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()