VB模拟POST网页上传文件模块【无控件】

小歆10年前软件源码27228

介绍

已经集成mod模块,使用的时候直接调用FileUpload函数就可以了。程序是使用抓包软件将上传过程截取下来,通过post模拟上传头数据,再把文件转换为二进制上传到网站上的。

 

网页源码

网页源码是参考html教程上面的实例,没什么技术含量,直接贴出来了:

<form action="" enctype="multipart/form-data" method="post"

name="uploadfile">上传文件:<input type="file" name="upfile" /><br>

<input type="submit" value="上传" /></form>

 

VB源码

界面如图所示,文本框从上到下是text2到text5,返回数据文本框是text1,代码如下:

Private Sub Command1_Click()

Text1.Text = "正在上传..."

Command1.Enabled = False

Text1.Text = FileUpload(Text2.Text, Text3.Text, Text4.Text, Text5.Text)

Command1.Enabled = True

End Sub

vb文件上传实例01.jpg

接下来说明一下FileUpload函数,定义方式如下:

Public Function FileUpload(url As String, filePath As String, typeName As String, webName As String) As String

参数url:为网页地址;

参数filePath:要上传的本地文件路径+文件名;

参数typeName:文件类型,可以是application/upload 或 image/jpeg等;

参数webName:字段名,类似HTML表单Form中的input name。

vb文件上传实例-源码.jpg

 

源码下载(含vb + php源码)

文件上传实例.rar

相关文章

实现VB与EXCEL的无缝连接

  VB是常用的应用软件开发工具之一,由于VB的报表功能有限,而且一但报表格式发生变化,就得相应修改程序,给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大...

Discuz附件下载权限绕过工具.png

[小歆][Discuz附件下载权限绕过工具][V1.1][2014.03.13]

Discuz附件下载权限绕过工具V1.1 本软件利用Discuz论坛的漏洞来下载论坛的附件。 【Discuz3.X的有部分好像已经失效了,自测,我刚刚测试了一个3.X论坛还是...

【详解】VB6.0下用MSComm控件实现串口通信

VB6.0 下用 MSComm 控件实现串口通信 MSComm 控件通过串行端口传输和接收数据,为应用程序提供串行通讯功能 下...

VB中LostFocus、GotFocus事件的改进

---- VB中有一个LostFocus事件和一个GotFocus事件,看名字似乎是当当前窗口失去焦点或得到焦点时触发的事件。但在实际应用时却发现当这个窗口和Win...

用VB快速读取TextBox第N行的数据

TextBox 是以 vbCr+vbLf 为分行符号, 如果我们要逐一读取 TextBox 每一行, 无非是寻找 vbCr+vbLf 的所在位置, 然后取出每一行的字串, 不过这个方法不快,而且...

VB获取网页源代码的五种方法

方法1:inet控件调用方法 Inet1.OpenURL     添加microsoft ineternet transfor conctrol6.0 控件   &n...

评论列表

行客
2021-04-21 09:44:33

你好,能交流一下吗?很多图片上传有错误提示,

DDD
2022-04-17 23:06:12

博主 以上代码测试中文文件名的时候会报错

发表评论    

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。