mceatsomething said:
If only we could get our hands on his
code.
note: someone with programming experience is gonna have to head this up. he lost me at WshShell.
Can anyone who knows what he or she is talking about tell me if this marginally modified version of this guys code is right? If so, then its just a matter of numbers, and I think we have those on our side.
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "iexplore.exe
http://neighborhoodies.com/catalog/noty_vote.php", 9
Wscript.Sleep 1000
WshShell.SendKeys "%F"
WshShell.SendKeys "O"
WshShell.SendKeys "java_script_:document.forms[0].vote[5].click{(}{)}"
WshShell.SendKeys "~"
WshShell.SendKeys "%F"
WshShell.SendKeys "O"
WshShell.SendKeys "java_script_:document.forms[0].submit.click{(}{)}"
WshShell.SendKeys "~"
Wscript.Sleep 1000
WshShell.SendKeys "%{F4}"
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("c:\documents and settings\username\cookies\username@catalog[1].txt")) Then
Set f1 = fso.GetFile("c:\documents and settings\username\cookies\username@catalog[1].txt")
f1.Delete
End If
If (fso.FileExists("c:\documents and settings\username\cookies\username@catalog[2].txt")) Then
Set f1 = fso.GetFile("c:\documents and settings\username\cookies\username@catalog[2].txt")
f1.Delete
End If
Wscript.Quit