Dim $mIPAdress = "81.23.243.135"
Dim $mPort = 80

Dim $DEBUG = False

TCPStartup()

Dim $lResultString = _Query_String()
Dim $i = 0

While 1
	_Do_Vote()
	$i += 1
	ConsoleWrite("You have voted " & $i & " time(s). Thank you for voting!" & @CRLF)
WEnd

Func _Do_Vote()
	$lSocket = TCPConnect($mIPAdress, $mPort)
	If Not @error Then
		TCPSend($lSocket, $lResultString )
		
		If $DEBUG Then
			Sleep(100)
			$lRecv = TCPRecv($lSocket,1024)
			ConsoleWrite("Received: " & @CRLF & $lRecv & @CRLF & @CRLF)
		EndIf
		
		TCPCloseSocket($lSocket)
	Else
		ConsoleWrite("! Captain, we get error: " & @error & @CRLF)
	EndIf
EndFunc

#cs
This is a function to provide roughly the following string:


POST /assets/php/vote-proxy.php HTTP/1.1..Host: ema.mtv.co.uk..User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.9.0.3) Gecko/2008092417 Firefox/3.0.3 (.NET CLR 3.5.30729)..Accept: */*..Accept-Language: nl,en-us;q=0.7,en;q=0.3..Accept-Encoding: gzip,deflate..Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7..Keep-Alive: 300..Connection: keep-alive..Content-Type: application/x-www-form-urlencoded; charset=UTF-8..X-Requested-With: XMLHttpRequest..Referer: http://ema.mtv.co.uk/vote/..Content-Length: 97..Pragma: no-cache..Cache-Control: no-cache....server=http%3A%2F%2Fcmsema.mtv.co.uk%2Fema2008%2Fxml%2Fvoting%2FquietVote.jhtml&voteFor=274130150


Special characters have been replaced by a . here, but are available in the string the query returns.
#ce

Func _Query_String()
	$lHexQuery = "50 4F 53 54 20 2F 61 73 73 65 74 73 2F 70 68 70 2F 76 6F 74 65 2D 70 72 6F 78 79 2E 70 68 70 20 48 54 54 50 2F 31 2E 31 0D 0A 48 6F 73 74 3A 20 65 6D 61 2E 6D 74 76 2E 63 6F 2E 75 6B 0D 0A 55 73 65 72 2D 41 67 65 6E 74 3A 20 4D 6F 7A 69 6C 6C 61 2F 35 2E 30 20 28 57 69 6E 64 6F 77 73 3B 20 55 3B 20 57 69 6E 64 6F 77 73 20 4E 54 20 35 2E 31 3B 20 6E 6C 3B 20 72 76 3A 31 2E 39 2E 30 2E 33 29 20 47 65 63 6B 6F 2F 32 30 30 38 30 39 32 34 31 37 20 46 69 72 65 66 6F 78 2F 33 2E 30 2E 33 20 28 2E 4E 45 54 20 43 4C 52 20 33 2E 35 2E 33 30 37 32 39 29 0D 0A 41 63 63 65 70 74 3A 20 2A 2F 2A 0D 0A 41 63 63 65 70 74 2D 4C 61 6E 67 75 61 67 65 3A 20 6E 6C 2C 65 6E 2D 75 73 3B 71 3D 30 2E 37 2C 65 6E 3B 71 3D 30 2E 33 0D 0A 41 63 63 65 70 74 2D 45 6E 63 6F 64 69 6E 67 3A 20 67 7A 69 70 2C 64 65 66 6C 61 74 65 0D 0A 41 63 63 65 70 74 2D 43 68 61 72 73 65 74 3A 20 49 53 4F 2D 38 38 35 39 2D 31 2C 75 74 66 2D 38 3B 71 3D 30 2E 37 2C 2A 3B 71 3D 30 2E 37 0D 0A 4B 65 65 70 2D 41 6C 69 76 65 3A 20 33 30 30 0D 0A 43 6F 6E 6E 65 63 74 69 6F 6E 3A 20 6B 65 65 70 2D 61 6C 69 76 65 0D 0A 43 6F 6E 74 65 6E 74 2D 54 79 70 65 3A 20 61 70 70 6C 69 63 61 74 69 6F 6E 2F 78 2D 77 77 77 2D 66 6F 72 6D 2D 75 72 6C 65 6E 63 6F 64 65 64 3B 20 63 68 61 72 73 65 74 3D 55 54 46 2D 38 0D 0A 58 2D 52 65 71 75 65 73 74 65 64 2D 57 69 74 68 3A 20 58 4D 4C 48 74 74 70 52 65 71 75 65 73 74 0D 0A 52 65 66 65 72 65 72 3A 20 68 74 74 70 3A 2F 2F 65 6D 61 2E 6D 74 76 2E 63 6F 2E 75 6B 2F 76 6F 74 65 2F 0D 0A 43 6F 6E 74 65 6E 74 2D 4C 65 6E 67 74 68 3A 20 39 37 0D 0A 50 72 61 67 6D 61 3A 20 6E 6F 2D 63 61 63 68 65 0D 0A 43 61 63 68 65 2D 43 6F 6E 74 72 6F 6C 3A 20 6E 6F 2D 63 61 63 68 65 0D 0A 0D 0A 73 65 72 76 65 72 3D 68 74 74 70 25 33 41 25 32 46 25 32 46 63 6D 73 65 6D 61 2E 6D 74 76 2E 63 6F 2E 75 6B 25 32 46 65 6D 61 32 30 30 38 25 32 46 78 6D 6C 25 32 46 76 6F 74 69 6E 67 25 32 46 71 75 69 65 74 56 6F 74 65 2E 6A 68 74 6D 6C 26 76 6F 74 65 46 6F 72 3D 32 37 34 31 33 30 31 35 30 "
	
	$lSplit = StringSplit($lHexQuery," ")
	$lHexQuery = ""
	
	For $x = 1 to $lSplit[0]
		If $lSplit[$x] Then
			$lHexQuery &= Chr((Dec($lSplit[$x])))
		EndIf
	Next
	
	Return $lHexQuery
EndFunc