07/04/16 01:25:16 xhJaCyZ5
四代目スレ504によるWSH(vbs)製ダウンローダー
504 2006/10/31(火) 01:29:55 ID:wlhSMAP9
名無しかな？(sage)
ついに完成した
set IE = CreateObject("InternetExplorer.Application")
txt = inputbox("にゅうりょくするにゃ")
IE.Visible = true
IE.Navigate("URLﾘﾝｸ(turine.homeip.net))
Do Until IE.Busy = False
WScript.sleep(250)
Loop
IE.Document.form1.dwnpass.value ="marimite"
IE.Document.form1.Submit()
Do Until IE.Busy = False
WScript.sleep(250)
Loop
IE.Document.form1.Item(0).Click