vbs自動填表單分析附源碼,這個實在不懂,謝謝 了.

Dim?ie,x

Dim?URL1,URL2,Name,IDnumber,PhoneNum

URL1?=?"/WSCG.jsp?TYPE=2"

URL2?=?"/ReservationSetThree.jsp"

Name?=?"XXXXXX" '引號內輸入姓名

IDnumber?=?"123456789098765432" '身份證號碼

PhoneNum?=?"12345678901" '電話號碼

Set?ie?=?CreateObject("internetexplorer.application")

ie.navigate?URL1

ie.Visible?=?True

Do?While?ie.busy?Or?ie.readystate?<>?4

WScript.Sleep?100

Loop

For?x?=?0?To?ie.Document.links.length?-?1

If?ie.Document.links.Item(x)?=?URL2?Then

ie.Document.links.Item(x).Click?

Exit?For

End?If

Next

WScript.Sleep?100

Set?ie?=?Nothing

IEAutoSend?Name,IDnumber,PhoneNum

Function?IEAutoSend(Name,IDnumber,PhoneNum)

Dim?oShellApp,?oShellAppWindows,?WebBrowser

Set?oShellApp?=?CreateObject("Shell.Application")

Set?oShellAppWindows?=?oShellApp.Windows

For?Each?WebBrowser?In?oShellAppWindows

If?LCase(TypeName(WebBrowser.document))?=?"htmldocument"?Then

If?WebBrowser.LocationURL?=?URL1?Then

WebBrowser.document.frames(0).document.form1.TRUENAME.Value?=?Name

WebBrowser.document.frames(0).document.form1.ZJHM.Value?=?IDnumber

WebBrowser.document.frames(0).document.form1.SJHM.Value?=?PhoneNum

WebBrowser.document.frames(0).document.form1.button.click

End?If

End?If

Next

End?Function?

妳給出的代碼，上半部分能夠實現“科目三”的選擇，而下半部分則不能輸入信息，因為這兒ie這個對象不支持下面的輸入方法。所以更改了壹下，重新創建了壹個對象。

本機測試通過，希望對妳有幫助，祝妳預約成功。還望即時采納！

上一篇:安裝centos時自動安裝的php怎麽卸載

下一篇:怎麽修改hadoop上的javahome