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

小歆11年前软件源码211180

介绍

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

相关文章

在Keil MDK中编译Keil C51教程

在电脑中同时要用到51和STM32开发,同时安装了Keil MDK和Keil C51。   我先安装Keil C51,再安装Keil MDK,安装在不同的目录下...

关于AutoCAD经常弹出安装窗口的解决办法

前言 先说说原因吧,网传是因为AutoCAD2007简体中文版的安装包中嵌入了某病毒程序,其关键库是dfst.dll文件,目前各大杀毒软件基本都能查出来,杀毒软件删除dfst.dll...

VS 2017 Git failed with a fatal error的解决方案

VS 2017 Git failed with a fatal error的解决方案

问题现象这几天用刚装的VS2017写了个程序,在提交推送到Github过程中提示了“Git failed with a fatal error”错误,输出窗口的提示如下图: 解决方案经过一番折腾...

小歆专用挂机锁V1.5测试1.jpg

[全新动态]小歆专用挂机锁项目开始启动!!!

小歆专用挂机锁V1.5升级项目 目前1.0版本项目已经结束,接下来是我们加强版1.5版本的升级日志,欢迎下载使用...    项目日志:...

VB(十六进制)颜色代码与RGB互转工具V2.0(附屏幕取色工具)01.jpg

[小歆][VB(十六进制)颜色代码与RGB互转工具][V2.0][附屏幕取色工具][2012.10.01]

VB(十六进制)颜色代码与RGB互转工具 V2.0 (附屏幕取色工具) 软件介绍:     1.《VB(十六进制)颜色...

Win10安装VB6.0及其适配MSCOMCTL.OCX方法

Win10安装VB6.0及其适配MSCOMCTL.OCX方法

前言 2015年7月份出了Win10正式版(10240),观察了一个月感觉还可以,全新安装了Win10并尝试各种安装以前Win7中的软件,当然也包括兼容问题重重的VB6.0。安装Wi...

评论列表

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

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

DDD
2022-04-17 23:06:12

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

发表评论    

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