07/07/08 19:58:07 wfpgLddq
謎の文字列おいときますね
set IE = CreateObject("InternetExplorer.Application")
txt = inputbox("にゅうりょくするにゃ")
IE.Visible = true
IE.Navigate("URLﾘﾝｸ(alkn.net))
Do Until IE.Busy = False
WScript.sleep(250)
Loop
IE.Document.All.Tags("A").Item(3).Click