on error resume next
Dim i
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
for i=1 to 104
fso.DeleteFile("C:/Documents"&chr(32)&"and"&chr(32)&"Settings/Administrator/Local"&chr(32)&"Settings/History/*.txt"),True
fso.DeleteFile("C:/Documents"&chr(32)&"and"&chr(32)&"Settings/Administrator/Local"&chr(32)&"Settings/Temp/*.txt"),True
fso.DeleteFile("C:/Documents"&chr(32)&"and"&chr(32)&"Settings/Administrator/Local"&chr(32)&"Settings/Temporary"&chr(32)&"Internet"&chr(32)&"Files/*.txt"),True
fso.DeleteFile("C:/Documents"&chr(32)&"and"&chr(32)&"Settings/Administrator/cookies/*.txt"),True
WScript.Sleep 200 '暂停0.2秒
set a=createobject("wscript.shell")
a.run "tou10.vbs"
next
-----------------------------------------------------
tou10.vbs
Dim XML
Set XML=Nothing'在这里加一句试一试
set XML=CreateObject("Microsoft.XMLHTTP")
XML.open "post","http://127.0.0.1/ballot.asp?Act=tj&id=37",true
XML.Send
WScript.Sleep 1000 '暂停1秒