WSH(・∀・)ｽﾚｯﾄﾞ! Part 3

WSH(・∀・)ｽﾚｯﾄﾞ! Part 3 at TECH

296:デフォルトの名無しさん
08/08/27 18:53:35
Dim mixi, email, password
Dim ie, document, form

mixi = "URLﾘﾝｸ(mixi.jp)"
email = "null@po.com"
password = "nullpo"

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True
ie.Navigate(mixi)
Do While ie.Busy
　　　　WScript.Sleep(1000)
Loop

Set document = ie.Document
Set form = document.forms("login_form")
If TypeName(form) = "Nothing" Then WScript.Quit()
form("email").value = email
form("password").value = password
form.submit()

次ページ

続きを表示

1を表示