介绍

已经集成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

接下来说明一下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 + php源码）

文件上传实例.rar