介绍
已经集成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
发表评论: