◆こんなソフトウェアつくってください!〜Part4〜◆

'Yahooにログイン.vbs

'-------------------

Const login = "なまえ"
Const passwd = "ぱすわーど"
Set ie = CreateObject("InternetExplorer.Application")
ie.visible = True
ie.navigate "http://www.yahoo.co.jp/r/l1"
Do
    WScript.Sleep 100
Loop While ie.Busy
With ie.document.forms(0)
    .item("login").value = login
    .item("passwd").value = passwd
    .Submit
End With