エレファントカシマシDB 管理人の日記 2017/09/07(木)

『敗北と死に至る道が生活』その4272

Set IE = CreateObject ("InternetExplorer.Application")
With IE
.Visible = True
.Navigate "http://www.aaa.com/login.php"
Do While .Busy = True Or . readyState <> 4
Loop
With .document
Set UID = .getElementByID ("ID")
Set PWD = .getElmetByID ("Pwd")
End With
End With
UID.Value="userid"
PWD.Value="password"
IE.document.forms (0).Submit

----
このコードを aa.vbs などで保存して適切な値に書き換えるとログインの自動化が出来るかもしれません。