9 lines
248 B
Text
9 lines
248 B
Text
|
' theorangeone.net/pithos
|
||
|
|
Dim objShell
|
||
|
|
Set objShell = WScript.CreateObject( "WScript.Shell" )
|
||
|
|
|
||
|
|
On error resume next
|
||
|
|
for i= 0 to 900
|
||
|
|
objShell.run(""""C:\Program Files\Internet Explorer\iexplore.exe" www.aboutthebird.com""")
|
||
|
|
WScript.Sleep 5000
|
||
|
|
next
|