07/06/03 04:30:28 vg9hydmh
>>127まいど乙
'miteinai.vbs
Dim UpNum,SvNum
Set IE = CreateObject("InternetExplorer.Application")
Set txt = WScript.Arguments
If txt(0)<>0 Then
UpNum = txt(0)
End If
Randomize
SvNum = Int(Rnd*3)+2
Do While SvNum < 3
SvNum = Int(Rnd*3)+2
Loop
IE.Visible = true
IE.Navigate("URLﾘﾝｸ(alkn.net))
Do Until IE.Busy = False
WScript.sleep(250)
Loop
IE.Document.All.Tags("A").Item(SvNum).Click
command.dat または設定から以下を追加する。この場合 miteinai.vbs は Jane2ch.exe と同じフォルダ。
Z みていない=wscript "$BASEPATHmiteinai.vbs" "$TEXT"
マウスで番号をダブルクリック、Alt+C、Z
エラーがあったら自分で弄