Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 05:46

  • Please register to post and access all features, it's quick, easy and FREE!

 

Gibt immer nur 0 wieder

Reply
 
Old   #1
 
elite*gold: 184
Join Date: Nov 2009
Posts: 158
Received Thanks: 43
Gibt immer nur 0 wieder

Hallo liebe Com nach ner Pause befass ich mich nun wieder mit AutoIt.
Ich wollte nun einige Werte aus dem Quelltext auslesen doch die Msg Box gibt immer nur 0 wieder statt der User Id die bei mir 13687 sein müsste.
Sozusagen kann es nicht auf den quelltext zugreifen o.ä.



Das ist mein Kompletter Source:



Syst3m Down is offline  
Old   #2
 
elite*gold: 184
Join Date: Nov 2009
Posts: 158
Received Thanks: 43
#offiziell gepusht


Syst3m Down is offline  
Old   #3
 
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,221
Kannst du uns ein kurzes Beispiel/lauffähigen Ausschnitt aus deinem Source geben?
Ich hab keine Lust alles durchzuschauen
PenGuin :O is offline  
Old   #4
 
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,291
versteh nicht was mein vorposter sagen will...

kann grad nicht genauer gucken weil ich nur mit handy online bin. aber so wie ich das sehr bin ich mir ziemlich sicher das nichtmal der source vorher geladen wird, somit wird er auch keine id finden. ich würde mal an der stelle ansetzen.


kknb is offline  
Thanks
1 User
Old   #5
 
elite*gold: 280
Join Date: May 2007
Posts: 2,817
Received Thanks: 3,479
wenn du hilfe erwartest, mach dir wenigstens mal die mühe den source in ein format zu bringen, das man ihn auch lesen kann...

sry aba wenn ich das hier schon sehe:
Quote:
Code:
Func eintragen()
While 1

If $UserDaten[2] Then
GuiCtrlSetData($hLog,GuiCtrlRead($hLog)& "["& @Hour &":"& @Min &":"& @Sec &"]"& "Trägt sich in Shows ein."&@CRLF)
For $i = 0 To UBound($aCheckboxes)-1
;Überprüfung ob jeweilige show aktiviert
If $aCheckboxes[$i][1] Then
;Laden der zu sohw seite durch zuvor zugewiesenen show link $aCheckboxes[$i][2]
$aTmpPage = _TCP_Send_Request("GET", $TCPInfos[0], "/show.php?" & $aCheckboxes[$i][2],"http://" & $TCPInfos[0] & "/uebersicht.php",$TCPInfos[1])
If IsArray($aTmpPage) Then
;MsgBox(0,"",$aCheckboxes[$i][2] & @CRLF & $i)
$aTmpShowsStart = StringRegExp($aTmpPage[1],'<a href="\?(action=compete&' & $aCheckboxes[$i][2] & '&c=[^"]+)',3)
;_ArrayDisplay($aTmpShowsStart)
If IsArray($aTmpShowsStart) Then
_TCP_Send_Request("GET", $TCPInfos[0], "/show.php?" & $aTmpShowsStart[0],"http://" & $TCPInfos[0] & "/" & $aCheckboxes[$i][2],$TCPInfos[1])



EndIf
EndIf
EndIf
Next
EndIf
Sleep(100)
Sleep(50)
userinfo()
WEnd
EndFunc
habe ich wirklich keine lust mehr das ganze noch so zu formatieren, das ich wenigstens sehen kann welche funktion/schleife/abfrage wo beginnt und wo endet -.-
lolkop is offline  
Old   #6
 
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,221
Quote:
Originally Posted by lolkop View Post
wenn du hilfe erwartest, mach dir wenigstens mal die mühe den source in ein format zu bringen, das man ihn auch lesen kann...

sry aba wenn ich das hier schon sehe:

habe ich wirklich keine lust mehr das ganze noch so zu formatieren, das ich wenigstens sehen kann welche funktion/schleife/abfrage wo beginnt und wo endet -.-
Das meinte ich eigentlich mit meinem Post kknb.
PenGuin :O is offline  
Old   #7
 
elite*gold: 20
Join Date: Feb 2007
Posts: 3,080
Received Thanks: 4,291
strg+t in scite zu drücken, ist ja net sooo schwer....
kknb is offline  
Thanks
1 User
Old   #8
 
elite*gold: 2
Join Date: Mar 2008
Posts: 1,778
Received Thanks: 1,221
Ich weiß was Tidy ist, zusätzlich hab ich sowieso keine Lust den ganzen Source durchzugucken, nach dem Fehler, also halt ich mich mal aus dem Thread raus.
PenGuin :O is offline  
Old   #9
 
elite*gold: 184
Join Date: Nov 2009
Posts: 158
Received Thanks: 43
Code:
#RequireAdmin
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=wichtige dateien\logo.ico
#AutoIt3Wrapper_Compression=4
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****


HotKeySet("{F5}", "end")

#include <String.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <INet.au3>
#include <WinHTTP.au3>
Global $HTTP_Host = "www.wrestlegame.de"
Global $HTTP_Agent = _WinHttpOpen("Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.10) Gecko/20100914 Firefox/3.6.10")
Global $HTTP_Connect = _WinHttpConnect($HTTP_Agent, $HTTP_Host)
Enum $MainGUI, $hMainGUI, $InputUsername, $InputPw, $Anz
Global $aCheckboxes[13][3], $GUI[$Anz]
Global $UserDaten[3] = ["Default", "Default", 0]
Global $ini[2] = [@ScriptDir & "\config.ini", "0175874"]
Global $TCPInfos[2] = ["www.wrestlegame.de", 0];index 1 für Mastecookie
Global $hLog
Global $HTMLUSERID
Global $userid
Global $ausgabe[1]
Global $regeneration
Check_Update()
_GUICreate()
Load_Config()
eintragen()

Func eintragen()
	While 1

		If $UserDaten[2] Then
			$bString = _INetGetSource("http://wrestlegame-bot.pytalhost.de/Wrestlegamebot/news.txt")
			$ausgabe = _StringBetween($bString, "<<", ">>")

			GUICtrlSetData($hLog, GUICtrlRead($hLog) & "[" & @HOUR & ":" & @MIN & ":" & @SEC & "]" & "Trägt sich in Shows ein." & @CRLF)
			For $i = 0 To UBound($aCheckboxes) - 1
				;Überprüfung ob jeweilige show aktiviert
				If $aCheckboxes[$i][1] Then
					;Laden der zu sohw seite durch zuvor zugewiesenen show link $aCheckboxes[$i][2]
					$aTmpPage = _TCP_Send_Request("GET", $TCPInfos[0], "/show.php?" & $aCheckboxes[$i][2], "http://" & $TCPInfos[0] & "/uebersicht.php", $TCPInfos[1])
					If IsArray($aTmpPage) Then
						;MsgBox(0,"",$aCheckboxes[$i][2] & @CRLF & $i)
						$aTmpShowsStart = StringRegExp($aTmpPage[1], '<a href="\?(action=compete&' & $aCheckboxes[$i][2] & '&c=[^"]+)', 3)
						;_ArrayDisplay($aTmpShowsStart)
						If IsArray($aTmpShowsStart) Then
							_TCP_Send_Request("GET", $TCPInfos[0], "/show.php?" & $aTmpShowsStart[0], "http://" & $TCPInfos[0] & "/" & $aCheckboxes[$i][2], $TCPInfos[1])



						EndIf
					EndIf
				EndIf
			Next
		EndIf
		Sleep(100)
		Sleep(50)
		userinfo()
	WEnd
EndFunc   ;==>eintragen


Func userinfo()
	While 1

		$HTTP_Request = _WinHttpOpenRequest($HTTP_Connect, "GET", "/uebersicht.php", "HTTP/1.1", $HTTP_Host)
		_WinHttpSendRequest($HTTP_Request)
		_WinHttpReceiveResponse($HTTP_Request)
		$HTMLUSERID = ""
		Do
			$HTMLUSERID &= _WinHttpReadData($HTTP_Request)
		Until @error
		_WinHttpCloseHandle($HTTP_Request)
		Return $HTMLUSERID
		$userid = _StringBetween($HTMLUSERID, '?userid="', '"></a></td>')
		MsgBox(1, "userid", $userid)
		$HTTP_Request = _WinHttpOpenRequest($HTTP_Connect, "GET", "/user.php?userid=" & $userid, "HTTP/1.1", $HTTP_Host)
		_WinHttpSendRequest($HTTP_Request)
		_WinHttpReceiveResponse($HTTP_Request)
		$HTMLUSERINFO = ""
		Do
			$HTMLUSERINFO &= _WinHttpReadData($HTTP_Request)
		Until @error
		_WinHttpCloseHandle($HTTP_Request)
		Return $HTMLUSERINFO
		$regeneration = _StringBetween($HTMLUSERINFO, '>', '%<')
		eintragen()
	WEnd
EndFunc   ;==>userinfo





Func Check_Update()
	Ping("wrestlegame-bot.pytalhost.de", 2000)
	If @error Then Return
	Local $aHostVer = StringSplit(BinaryToString(InetRead("http://wrestlegame-bot.pytalhost.de/Wrestlegamebot/update.txt")), ";")
	If IsArray($aHostVer) Then
		Local $aLocalVer = StringSplit(IniRead($ini[0], "Version", "Version", "0;1.0"), ";")
		If $aHostVer[1] <> $aLocalVer[1] Then
			If MsgBox(48 + 4, "Update", "Es steht ein Update zur verfügung, wollen sie dies nun installieren?") = 6 Then Run(@ScriptDir & "\Updater.exe")
		EndIf
	EndIf

EndFunc   ;==>Check_Update

Func _GUICreate()

	Local $aCheckPos[3][13] = [[32, 32, 32, 32, 32, 32, 32, 32, 200, 200, 200, 200, 200],[72, 96, 48, 120, 144, 168, 192, 216, 48, 72, 96, 120, 144], _
			["Accelerate", "Night of Glory", "Initiative", "Beatdown", "War Zone", "Wildcard Roulette", "Doomsday Lite", _
			"Doomsday", "Championsnite", "TT-Accelerate", "TT-Beatdown", "TT-War Zone", "TT-Championsnite"]]
	#region ### START Koda GUI section ### Form=C:\Users\Peter Lampke\Desktop\Wrestlegamebots\Wrestlegame Bot\Neuer Ordner\Form2.kxf
	;Load Version aus der Config
	Local $aLocalVer = StringSplit(IniRead($ini[0], "Version", "Version", "0;1.0"), ";")
	Opt("GUIOnEventMode", 1)
	$GUI[$MainGUI] = GUICreate("Wrestlegame-Bot version v." & $aLocalVer[2], 489, 319, 304, 181)
	$GUI[$hMainGUI] = WinGetHandle($GUI[$MainGUI])
	GUISetFont(8, 400, 0, "Arial", $GUI[$hMainGUI])
	GUISetOnEvent(-3, "_exit");-3 entspricht $GUI_EVENT_CLOSE
	;GUISetIcon("D:\005.ico")
	$PageControl1 = GUICtrlCreateTab(0, 0, 489, 319)
	GUICtrlCreateTabItem("Main")
	GUICtrlCreateLabel("Skollhunter`s Wrestlegame Bot v." & $aLocalVer[2], 150, 40, 179, 18)
	GUICtrlCreateLabel("© Skollhunter", 32, 300, 68, 18)
	GUICtrlCreateLabel($ausgabe[0], 18, 250, 450, 20, 18)
	GUICtrlCreatePic("made by skollhunter.jpg", 70, 80, 350, 141)

	GUICtrlSetState(-1, $GUI_ENABLE);Damit die Ctrls darüber anklickbar und benutzbar sind
	GUICtrlCreateTabItem("Wähle deine Show")
	For $i = 0 To UBound($aCheckPos, 2) - 1
		$aCheckboxes[$i][0] = GUICtrlCreateCheckbox($aCheckPos[2][$i], $aCheckPos[0][$i], $aCheckPos[1][$i], 97, 17)
	Next


	GUICtrlCreateButton("Shows speichern", 200, 176, 139, 25, $WS_GROUP)
	GUICtrlSetOnEvent(-1, "SaveConfig")
	GUICtrlCreateLabel("© Skollhunter", 32, 300, 68, 18)
	GUICtrlCreateTabItem("Account Einstellungen")
	GUICtrlCreateGroup("Account", 20, 50, 160, 130)
	$GUI[$InputUsername] = GUICtrlCreateInput("", 50, 90, 100, 20)
	$GUI[$InputPw] = GUICtrlCreateInput("", 50, 140, 100, 20, 0x0020)
	GUICtrlCreateLabel("Benutzername", 50, 70)
	GUICtrlCreateLabel("Passwort", 50, 120)
	GUICtrlCreateGroup("", -99, -99, 1, 1) ; Gruppe schliessen
	GUICtrlCreateButton("Account speichern", 50, 200, 98, 25)
	GUICtrlSetOnEvent(-1, "SaveConfig")
	GUICtrlCreateTabItem("Log")
	Global $hLog = GUICtrlCreateEdit("", 50, 50, 400, 200)
	GUICtrlSetData($hLog, GUICtrlRead($hLog) & "[" & @HOUR & ":" & @MIN & ":" & @SEC & "]" & "Der Bot wurde gestartet" & @CRLF)

	GUICtrlCreateLabel("© Skollhunter", 32, 300, 69, 17)
	GUICtrlCreateTabItem("")
	GUICtrlCreateButton("&Start", 222, 280, 75, 25, $WS_GROUP)
	GUICtrlSetOnEvent(-1, "Login")
	GUICtrlCreateButton("&Exit", 310, 280, 75, 25, $WS_GROUP)
	GUICtrlSetOnEvent(-1, "_exit")
	GUICtrlCreateTabItem("User Info")
	GUICtrlCreateLabel($regeneration, 32, 50, 69, 17)
	GUISetState(@SW_SHOW)
	#endregion ### END Koda GUI section ###
EndFunc   ;==>_GUICreate







Func Login()
	GUICtrlSetData($hLog, GUICtrlRead($hLog) & "[" & @HOUR & ":" & @MIN & ":" & @SEC & "]" & "Login" & @CRLF)

	_TCP_Send_Request("GET", $TCPInfos[0], "/entry.php", "", "", "", 1)
	;_TCP_Send_Request($sTyp, $sHost, $sPage, $sReferer = "", $sCookie = "", $sPost = "", $bWontReturn = 0)
	Local $aLogin = _TCP_Send_Request("POST", $TCPInfos[0], "/login.php", "http://" & $TCPInfos[0] & "/entry.php", "", "username=" & $UserDaten[0] & "&password=" & $UserDaten[1] & "&x=" & Random(0, 70, 1) & "&y=" & Random(0, 30, 1))
	If IsArray($aLogin) Then
		;TODO eine Überprüfung, ob der Username und das pw passen
		$TCPInfos[1] = $aLogin[2] ;Set Mastercookie
		$UserDaten[2] = 1 ;Setze start auf 1
		_TCP_Send_Request("GET", $TCPInfos[0], "/uebersicht.php", "", $TCPInfos[1])
		GUICtrlSetData($hLog, GUICtrlRead($hLog) & "[" & @HOUR & ":" & @MIN & ":" & @SEC & "]" & "Du bist jetzt eingeloggt." & @CRLF)

	Else
		MsgBox(48, "Fehler", "Fehler beim Login aufgetreten.")
	EndIf
EndFunc   ;==>Login

Func Logout()
	_TCP_Send_Request("GET", $TCPInfos[0], "/logout.php", "http://" & $TCPInfos[0] & "/uebersicht.php", $TCPInfos[1])
	GUICtrlSetData($hLog, GUICtrlRead($hLog) & "[" & @HOUR & ":" & @MIN & ":" & @SEC & "]" & "Du bist jetzt Ausgeloggt!" & @CRLF)
EndFunc   ;==>Logout

Func Change($string)
	Local $aPatternRep[37][2] = [["%", "%25"],["†", "%E2%80%A0"],["ä", "%C3%A4"],["ö", "%C3%B6"],["ü", "%C3%BC"],["!", "%21"],['"', "%22"],["§", "%C2%A7"], _
			["$", "%24"],["&", "%26"],["/", "%2F"],["+", "%2B"],[" ", "+"],["(", "%28"],[")", "%29"],["=", "%3D"],["?", "%3F"],["[", "%5B"], _
			["]", "%5D"],["{", "%7B"],["}", "%7D"],["ß", "%C3%9F"],[",", "%2C"],[":", "%3A"],[";", "%3B"],["#", "%23"],["~", "%7E"],["²", "%C2%B2"], _
			["³", "%C2%B3"],["<", "%3C"],[">", "%3E"],["|", "%7C"],["^", "%5E"],["°", "%C2%B0"],["´", "%C2%B4"],["@", "%40"],["€", "%E2%82%AC"]]
	For $i = 0 To UBound($aPatternRep) - 1
		$string = StringReplace($string, $aPatternRep[$i][0], $aPatternRep[$i][1])
	Next
	Return $string
EndFunc   ;==>Change

Func SaveConfig()
	#region Save Shows
	GUICtrlSetData($hLog, GUICtrlRead($hLog) & "[" & @HOUR & ":" & @MIN & ":" & @SEC & "]" & "Shows erfolgreich gespeichert!" & @CRLF)
	Local $sSavestring
	For $i = 0 To UBound($aCheckboxes) - 1
		If GUICtrlRead($aCheckboxes[$i][0]) = $GUI_CHECKED Then
			$sSavestring &= "1:"
		Else
			$sSavestring &= "0:"
		EndIf
	Next
	IniWrite($ini[0], "Show", "Cheboxstates", StringTrimRight($sSavestring, 1))
	#endregion Save Shows

	#region Save Userdaten
	GUICtrlSetData($hLog, GUICtrlRead($hLog) & "[" & @HOUR & ":" & @MIN & ":" & @SEC & "]" & "Userdaten erfolgreich gespeichert!" & @CRLF)
	IniWrite($ini[0], "Login", "Name", _StringEncrypt(1, GUICtrlRead($GUI[$InputUsername]), $ini[1], 3))
	IniWrite($ini[0], "Login", "PW", _StringEncrypt(1, GUICtrlRead($GUI[$InputPw]), $ini[1], 3))
	#endregion Save Userdaten
	Load_Config();Damit das Programm nicht neu gestartet werden muss um Einstellungen zu übernehmen
	MsgBox(0, "Fertig", "Einstellungen wurden gepeichert! ")
EndFunc   ;==>SaveConfig

Func Load_Config()
	Local $aShowsPages[13] = ["showid=1", "showid=2", "showid=17", "showid=16", "showid=3", "showid=6", "showid=7", "showid=8", "showid=14", _
			"showid=10", "showid=19", "showid=12", "showid=15"]
	If IniRead($ini[0], "Show", "Cheboxstates", "") <> "" Then
		#region Load Shows
		$aConf_Checkboxstates = StringSplit(IniRead($ini[0], "Show", "Cheboxstates", ""), ":", 2)
		For $i = 0 To UBound($aConf_Checkboxstates) - 1
			If $aConf_Checkboxstates[$i] = "1" Then
				GUICtrlSetState($aCheckboxes[$i][0], $GUI_CHECKED)
				$aCheckboxes[$i][1] = 1
			Else
				$aCheckboxes[$i][1] = 0
			EndIf
			; Zuweisung des Showlinks zu dem jeweiligen Show
			$aCheckboxes[$i][2] = $aShowsPages[$i]
		Next
		#endregion Load Shows

		#region Load Userdaten
		GUICtrlSetData($GUI[$InputUsername], _StringEncrypt(0, IniRead($ini[0], "Login", "Name", "Default"), $ini[1], 3))
		GUICtrlSetData($GUI[$InputPw], _StringEncrypt(0, IniRead($ini[0], "Login", "Pw", "Default"), $ini[1], 3))
		$UserDaten[0] = _StringEncrypt(0, IniRead($ini[0], "Login", "Name", "Default"), $ini[1], 3)
		$UserDaten[1] = _StringEncrypt(0, IniRead($ini[0], "Login", "Pw", "Default"), $ini[1], 3)
		#endregion Load Userdaten
	EndIf
EndFunc   ;==>Load_Config
Func close()
	Exit
EndFunc   ;==>close
Func _exit()
	If $UserDaten[2] Then
		If MsgBox(48 + 4, "Achtung", "Sie sind noch eingeloggt, soll sie der Bot vor dem Beenden ausloggen?") = 6 Then Logout()
	EndIf
	Exit
EndFunc   ;==>_exit

Func _TCP_Send_Request($sTyp, $sHost, $sPage, $sReferer = "", $sCookie = "", $sPost = "", $bWontReturn = 0)

	Local $sPacket, $Recv, $aCookies, $aRecv, $sHeader, $sBody, $aReturn[3], $sCookies
	TCPStartup()
	$Socket = TCPConnect(TCPNameToIP($sHost), 80)
	Sleep(50)



	Switch $sTyp
		Case "GET"
			$sPacket = "GET " & $sPage & " HTTP/1.1" & @CRLF & _
					"Host: " & $sHost & @CRLF & _
					"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.4) Gecko/20100611 AskTbUT2V5/3.8.0.12304 Firefox/3.6.4" & @CRLF & _
					"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
					"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
					"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
					"Keep-Alive: 115" & @CRLF & _
					"Connection: keep-alive" & @CRLF
			If $sReferer <> "" Then $sPacket &= "Referer: " & $sReferer & @CRLF
			If $sCookie <> "" Then $sPacket &= "Cookie: " & $sCookie & @CRLF
			;$sPacket &= "Cache-Control: max-age=0" & @CRLF & @CRLF
			$sPacket &= @CRLF
		Case "POST"
			$sPacket = "POST " & $sPage & " HTTP/1.1" & @CRLF & _
					"Host: " & $sHost & @CRLF & _
					"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; de; rv:1.9.2.4) Gecko/20100611 AskTbUT2V5/3.8.0.12304 Firefox/3.6.4" & @CRLF & _
					"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
					"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
					"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
					"Keep-Alive: 115" & @CRLF & _
					"Connection: keep-alive" & @CRLF
			If $sReferer <> "" Then $sPacket &= "Referer: " & $sReferer & @CRLF
			If $sCookie <> "" Then $sPacket &= "Cookie: " & $sCookie & @CRLF
			$sPacket &= "Content-Type: application/x-www-form-urlencoded" & @CRLF & _
					"Content-Length: " & StringLen($sPost) & @CRLF & @CRLF & $sPost
		Case Else
			Return SetError(1, "", "0")
	EndSwitch

	ConsoleWrite($sPacket & @CRLF)

	TCPSend($Socket, $sPacket)




	If Not $bWontReturn Then
		Local $Timeout_Timer = TimerInit()
		Do
			$Recv = TCPRecv($Socket, 1024)
		Until $Recv <> "" Or TimerDiff($Timeout_Timer) > 5000

		$Timeout_Timer = TimerInit()

		Do
			$Recv &= TCPRecv($Socket, 1024)
		Until @error Or StringInStr($Recv, "</html>") Or TimerDiff($Timeout_Timer) > 5000

		$aRecv = StringSplit($Recv, @CRLF, 1)
		If IsArray($aRecv) Then
			For $i = 1 To $aRecv[0]
				If $aRecv[$i] <> "" Then
					$sHeader &= $aRecv[$i] & @CRLF
				Else
					ExitLoop
				EndIf
			Next
			For $a = $i To $aRecv[0]
				$sBody &= $aRecv[$a] & @CRLF
			Next
			$aReturn[0] = $sHeader
			$aReturn[1] = $sBody
			;ConsoleWrite($sBody & @CRLF)
		Else
			Return SetError(2, "", 0)
		EndIf

		If StringInStr($Recv, "Set-Cookie: ") Then
			$aCookies = StringRegExp($Recv, "Set-Cookie: ([^;]+)", 3)
			For $i = 0 To $aCookies[0]
				$sCookies &= $aCookies[$i] & ";"
			Next
			$aReturn[2] = StringTrimRight($sCookies, 1)
		EndIf

		TCPCloseSocket($Socket)
		TCPShutdown()

		Return $aReturn
	EndIf
	TCPCloseSocket($Socket)
	TCPShutdown()
EndFunc   ;==>_TCP_Send_Request

Func End()
	Exit
EndFunc   ;==>End
push


Syst3m Down is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
MemoryRead gibt immer 0 aus..
Hallo, ich versuche mich grade an einem script... Nunja dafür muss ich etwas aus der memory auslesen. Aber immer wenn ich das ausführe ist,...
5 Replies - AutoIt
Immer wieder...
Peace Commu, Da ich inzwischen alle 30Minuten ausm Game, und vom Server fliege und ich nicht Hacke, wollt ich euch mal fragen ob ihr das auch habt....
5 Replies - Combat Arms
FindEmptySlot gibt immer das selbe aus
Hallo, Ich habe hier ein kleines problem und zwar will ich mit MoveItem einen gegenstand verschieben, das klappt auch, aber wenn ich nach einem...
1 Replies - GW Bot Discussions / Questions
gibt es immer mehr Schaden zu betrügen?
Hey all! Ich komme aus Russland, so peshu Deutsch schrecklich und ich um Vergebung bitten für sie =) Ich habe 1 Frage an Sie, wenn Sie zu...
8 Replies - Metin2 Main - Discussions / Questions
[AutoIt] PixelGet gibt immer den Wert 0
/edit: Topic sollte heißen 0x000000 Hi, ich versuch grade nen simplen Bot zu schreiben der einfach nur auf 8 verschiedene Farben im selben Bereich...
5 Replies - AutoIt



All times are GMT +1. The time now is 05:46.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.