Gibt immer nur 0 wieder

Syst3m Down · 09/30/2010, 17:55

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:

Spoiler

Syst3m Down · 10/01/2010, 17:58

#offiziell gepusht

PenGuin :O · 10/01/2010, 22:41

Kannst du uns ein kurzes Beispiel/lauffähigen Ausschnitt aus deinem Source geben?
Ich hab keine Lust alles durchzuschauen

~~kknb~~ · 10/02/2010, 20:37

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.

lolkop · 10/02/2010, 20:51

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 -.-

PenGuin :O · 10/02/2010, 21:13

Quote:

Originally Posted by lolkop

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.

~~kknb~~ · 10/03/2010, 01:18

strg+t in scite zu drücken, ist ja net sooo schwer....

PenGuin :O · 10/03/2010, 11:42

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.

Syst3m Down · 10/03/2010, 15:01

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