Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement