『敗北と死に至る道が生活』その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 などで保存して適切な値に書き換えるとログインの自動化が出来るかもしれません。
年末年始恒例？ クリスマスボーナス 又は 年末助け合い 又は お年玉 なんでもいいんですが・・・。EKDB運営にあたり有料レンタルサーバーを借り、日々更新作業を行っています。つきましては寄付をいただける方は Amazon ギフト券を購入して番号を送付していただけると、サーバーレンタル代、Web関係の書籍、エレカシ関係の購入などで助かります。
送ってもいいぞという方は Amazon から宛てに Amazonギフト券(Eメールタイプ)を送ってみて下さい。「15円から50万円まで、お好きな金額を自由に設定できます」だそうです。（いただいたギフト券はありがたく使わせて頂きます）今後も今まで通り続けますので、もちろんスルーしていただいても結構です。
Tweets by ekdb_admin