批處理登錄和訊博客

dim Wshell,ie

Set Wshell=WScript.CreateObject("WScript.Shell")

Set ie=WScript.CreateObject("InternetExplorer.Application")

ie.visible=True

ie.navigate "/login.aspx"

Do

Wscript.Sleep 200

Loop Until ie.ReadyState=4

ie.Document.form1.TextBoxUserName.value="168968"

ie.Document.form1.TextBoxPassword.value="123456"

Wshell.AppActivate "登錄"

WShell.SendKeys "{tab}{tab}~"