VB6里自动提交/自动填表的一种相对通用的方案

admin

2013年12月11日 15:29 本文热度 5160

论坛里有人问起,就看了一下,发现代码比较简单.

而且这样子应该能比较通用地完成网页自动填表功能,适合做自动提交之类的.

干脆记下来,免得以后要用到时又忘了...............

代码没几句,就是通过ID或NAME来取得对象,再设置其VALUE值.

论坛里的两个帖子:

http://www.m5home.com/bbs/dispbbs.asp?boardid=27&Id=2721

http://www.m5home.com/bbs/dispbbs.asp?boardid=27&Id=2754

使用的代码都是同样的一份:

复制内容到剪贴板

程序代码

Option Explicit

Private Const sURL As String = "http://218.202.107.178:8081/aincs/webpage/index.jsp?SelfSessionKey=000000000000001a49444c3a687474702f52657150726f636573736f723a312e300000000000000100000000000000ac000102000000000c31302e3232302e332e313900ff8400000000004900504d43000000000000001a49444c3a687474702f52657150726f636573736f723a312e300020200000000974635f61696e6373002020200000000d2f746f6d636174345f706f6100000000000000035649530300000005000507017f000000000000000000000800000000564953000000000100000018000000000001000100000001050100010001010900000000_7A1B861487D6AFEDE237964589A17B26"

Private Sub Form_Load()
WebBrowser1.Navigate sURL
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If URL = sURL Then
Dim Ele As Object

Set Ele = WebBrowser1.Document.getElementById("mobileno") '根据ID取得对象
Ele.Value = "www.m5home.com"

Set Ele = WebBrowser1.Document.getElementsByName("password") '根据Name取得对象
Ele(0).Value = "www.m5home.com"

Set Ele = WebBrowser1.Document.getElementsByName("operVerifyCode") '根据Name取得对象
Ele(0).Value = "www.m5home.com"
End If
End Sub

在使用getElementsByName取对象时要注意一点,就是NAME是可以有重复的,所以getElementsByName返回的是一个集合,其中包含了所有相同NAME的对象.

而ID是不可能有重复的,所以getElementById返回的就是一个单一对象.

试过了pudn和CSDN等,都可以用这样的方式自动填表.

该文章在 2013/12/11 15:29:50 编辑过

关键字查询

方案

提交

自动

正在查询...

点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。

点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理，结合码头的业务特点，围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体，是物流码头及其他港口类企业的高效ERP管理信息系统。

点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。

点晴免费OA是一款软件和通用服务都免费，不限功能、不限时间、不限用户的免费OA协同办公管理系统。