9 lines
No EOL
194 B
Text
9 lines
No EOL
194 B
Text
' theorangeone.net/pithos
|
|
Dim objShell
|
|
Set objShell = WScript.CreateObject( "WScript.Shell" )
|
|
|
|
On error resume next
|
|
for i= 0 to 99999
|
|
objShell.Run("""A:\file.pithos""")
|
|
WScript.Sleep 2000
|
|
next |