Function httpGet(url, ByRef cookie, debug)
'Set dummy cookie, if none (or "") provided
Trim(cookie)
If len(cookie) = 0 Then
cookie = ""
End If
'Initialize XMLHttp Object
'Use the best/proper XMLHttp object available on your system
Set XMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")
'Set XMLHTTP = CreateObject("Msxml2.XMLHTTP")
'Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")
'Set up GET request (synchronous)
XMLHTTP.open "GET", Trim(url), False
'Set (optional) cookie
If len(cookie) <> 0 Then
XMLHTTP.setRequestHeader "Cookie", "excuse the Microsoft bug"
XMLHTTP.setRequestHeader "Cookie", cookie
end if
'Proxy
'XMLHTTP.setProxy 2, "202.70.34.10:81", ""
'XMLHTTP.setProxy 2, "202.70.34.10:80", ""
'Make request
XMLHTTP.send "" 'send no/blank data since is GET request
'wait for response
While XMLHTTP.readyState <> 4
XMLHTTP.waitForResponse 1000
Wend
'Parse response cookie headers & can be used for session state persistence
Dim strHeaders, hArr, kk, theCookie
strHeaders = XMLHTTP.getAllResponseHeaders()
hArr = Split(strHeaders,"Set-Cookie: ")
For kk = 1 To Ubound(hArr)
theCookie = Left(hArr(kk),Instr(hArr(kk),"path=/")-2)
cookie = cookie & " " & theCookie
Next
'Return response content
If debug = False Then
httpGet = XMLHTTP.responseText
Else
'return response headers + content for debugging
httpGet = strHeaders & XMLHTTP.responseText
End If
Set XMLHTTP = Nothing
End Function
Dim sessionCookie
sessionCookie = ""
'Make GET request to some URL with optional GET query parameters
dim sID, eID
dim voteID, reqID
dim sleepOff, offRang, sleepBan, banRange, coolDown
coolDown = 4
sleepOff = 6000
sleepBan = 1000 * 60 * 60 * coolDown
offRang = 3
banRange = 1
Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)
Do while true
'Get Voting ID
reqID = "http://polldaddy.com/n/113df4577acffec0e03c79cfc7210eb6/6685610?********"
Randomize
sessionCookie = ""
reqID = replace(reqID, "********", int(rnd() * 10000000000000) & "")
'WScript.Echo reqID
voteID = httpGet(reqID,sessionCookie,False)
'WScript.Echo voteID
'Truncate and make pretty ... yes?
sID = InStr(1, voteID, "PDV_n6685610='", 1) + Len("PDV_n6685610='")
eID = InStrRev(voteID, "';", -1, 1)
voteID = mid(voteID, sID, eID - sID)
Randomize
WScript.sleep ((int(rnd * (offRang + 1)) + 1) * sleepOff)
'WScript.Echo voteID
'DO THE DAMN VOTE
Dim GODLY_VOTE, YES
GODLY_VOTE = "http://polls.polldaddy.com/vote-js.php?p=6685610&b=1&a=30279773,&o=&va=16&cookie=0&url=http%3A//www.time.com/time/specials/packages/article/0%2C28804%2C2128881_2128882_2129192%2C00.html&n=********"
'GODLY_VOTE = "http://polls.polldaddy.com/vote-js.php?p=6685610&b=1&a=33279773,&o=&va=16&cookie=0&url=http%3A//www.time.com/time/specials/packages/article/0%2C28804%2C2128881_2128882_2129192%2C00.html&n=********"
GODLY_VOTE = replace(GODLY_VOTE, "********", voteID)
'FOR THE LEADER
'WScript.Echo sessionCookie
YES = httpGet(GODLY_VOTE,sessionCookie,False)
' Response can be read like this:
'WScript.Echo YES
if InStr(1, YES, "Cooling Off", 1) <> 0 then
'WScript.Echo YES
outFile.writeLine(NOW() & vbTab & "Sleeping due to a ban")
WScript.sleep ((int(rnd * (banRang + 1)) + 1) * sleepBan)
else
outFile.writeLine(NOW() & vbTab & "Made a successful vote to our leader!!!")
end if
Loop