【ムチムチ】エロ看護婦の思い出【ムンムン】

斧のパスいちいち入れるのめんどくさい奴はこれ使えば？
拡張子を.vbsにして保存してダブルクリック
パスは好きなように追加しれ


sURL = InputBox("斧のURLを入力してください","URL入力","")
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Visible = True
sPass = split("news,newsox,zip,sage,nsoku,nyusoku",",")
for i = 0 to ubound(sPass)
objIE.Navigate sURL
Do While objIE.Busy
WScript.Sleep 3000
Loop
objIE.Document.Forms(0).keyword.value = sPass(i)
objIE.Document.Forms(0).submit
Do While objIE.Busy
WScript.Sleep 100
Loop
if inStr(objIE.document.Body.innerText,"ダウンロードできる状態になりました。") > 0 then
WScript.Echo "ﾐﾂｹﾀ━━━━(ﾟ∀ﾟ)━━━━!!"
exit for
end if
WScript.Sleep 3000
next
if i = ubound(spass) + 1 then WScript.Echo "(´・ω・｀)ｼｮﾎﾞｰﾝ"
Set objIE = Nothing