ballot

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秒