Question

vbs读取页面某控件的莫某属性值

vbs读取页面某控件的莫某属性值

Answer 1

给你个 VBS申请 QQ的例子：
username="灵魂口袋" '用户名
password="linghunkoudai520" '密码
'on error resume next
Set ie = CreateObject("internetexplorer.application")
ie.navigate "http://reg.qq.com"
ie.Visible = true
do While ie.busy Or ie.readystate <> 4
loop
ie.document.all.item(207).focus
ie.document.all.item(207).value=password
ie.document.all.item(207).blur
ie.document.all.item(214).focus
ie.document.all.item(214).value=password
ie.document.all.item(214).blur
ie.document.all.item(40).focus
ie.document.all.item(40).value=username
ie.document.all.item(40).blur
ie.document.all.item(220).focus
ie.document.all.item(220).value=1
ie.document.all.item(220).onchange()
ie.document.all.item(220).blur
ie.document.all.item(461).focus
ie.document.all.item(461).value=13
ie.document.all.item(461).onchange()
ie.document.all.item(461).blur
ie.document.all.item(496).focus
ie.document.all.item(496).value=2
'ie.document.all.item(496).onchange()
ie.document.all.item(496).blur
ie.document.all.item(54).focus
ie.document.all.item(54).value=1981
ie.document.all.item(54).onchange()
ie.document.all.item(54).blur
ie.document.all.item(176).focus
ie.document.all.item(176).value=7
ie.document.all.item(176).onchange()
ie.document.all.item(176).blur
ie.document.all.item(191).focus
ie.document.all.item(191).value=6
ie.document.all.item(191).blur
'ie.document.all.item(191).onchange()
ie.Document.getElementById("verifycode").focus '201
do While len(ie.Document.getElementById("verifycode").value) <>4
loop
ie.Document.getElementById("a_submit").Click