[opentwebst]一个简单的登陆脚本

这个是个简单的vbs脚本，使用opentwebst进行录制

'Use the command line below to launch the script (or just double click the .vbs file):
' %windir%system32wscript.exe TwebstScript.vbs

Option Explicit
Dim core
Dim browser
Dim browser2
Set core    = CreateObject("OpenTwebst.Core")
Set browser = core.StartBrowser("http://127.0.0.1/logain.php")

Call browser.FindElement("input text", "id=SYSUSERNAME").InputText("050000")
Call browser.FindElement("input password", "id=PASSWORD").InputText("password")
Call browser.FindElement("input button", "name=go").Click()
Call WScript.Sleep(2000)
set  browser2 = core.findBrowser("url=http://127.0.0.1/main/*")
Call browser2.FindElement("img", "id=Image0").Click()

第二段内容是进入系统之后的新网页操作,点击一个id为image0的图标，进入代办事宜

https://v.youku.com/v_show/id_XMjc2Mjg3NDM4MA.html