- 296 名前：デフォルトの名無しさん mailto:sage [2008/08/27(水) 18:53:35 ]
- Dim mixi, email, password
Dim ie, document, form
mixi = "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()
