Loginsystem funktioniert nicht!

Alisamix

Hallo, ich habe eine test.php, und eine users.txt in der user in form von user:passwort drin sind.

Nunja, xxx.de/test.php?user=Alisamix&pass=test123 zeigt somit eine 1, ansonsten eine 0.

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
HotKeySet( "{F5}", "Login")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 451, 362, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 144, 56, 121, 21)
$Input2 = GUICtrlCreateInput("Input2", 144, 208, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 176, 296, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


	EndSwitch
WEnd


Func Login()
$sHTML = BinaryToString(InetRead("http://addonbusters.bplaced.net/login/test2.php?user="&$Input1&"pass="&$Input2,1),4)
$sHTML = StringRegExpReplace($sHTML,"\A.+?:","http://addonbusters.bplaced.net/login/test2.php?user="&$Input1&"pass="&$Input2)
MsgBox(0,"",$sHTML)
EndFunc

Alles anzeigen

das funktioniert nicht, wüsstet ihr warum? auf druck von f5 sollte in der msgbox eine 1 oder 0 gezeigt werden.

SEuBo

Mach mal

[autoit]

HttpSetUserAgent("Google Bot")

[/autoit]

In Zeile 5 oder so. Bplaced blockiert den Standard User Agent von AutoIt.

Btw: Das RegExpReplace ist recht sinnlos - der Text bis zum ersten Doppelpunkt wird durch http://addonbusters.bplaced.net/login/test2.php?user="&$Input1&"pass="&$Input2 ersetzt ?! Naja ist ja nicht meine Sache

Außerdem: Statt $Input1 und $Input2 musst du GUICtrlRead($Input1) machen. Sonst bekommst du nicht den Text vom Input, sondern nur seine ID.

Jonathan

werden da die logindaten echt über die GET methode übertragen

Alisamix

Ja werden sie, und es ist nix großes :>

Funktioniert immernoch nicht:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
HttpSetUserAgent("Google Bot")
HotKeySet( "{F5}", "Login")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 451, 362, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 144, 56, 121, 21)
$Input2 = GUICtrlCreateInput("Input2", 144, 208, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 176, 296, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit


	EndSwitch
WEnd


Func Login()
$lol1 = GUICtrlRead($Input1)
$lol2 = GUICtrlRead($Input2)
$sHTML = BinaryToString(InetRead("http://addonbusters.bplaced.net/login/test2.php?user="&$lol1&"pass="&$lol2,1),4)
$sHTML = StringRegExpReplace($sHTML,"\A.+?:","http://addonbusters.bplaced.net/login/test2.php?user="&$lol1&"pass="&$lol2)
MsgBox(0,"",$sHTML)
EndFunc

Alles anzeigen

Es kommt immer ne 0, egal was rauskommt. Woran könnte es liegen?

Reaker

probier mal folgendes:

Spoiler anzeigen

[autoit]

Func Login()
$lol1 = GUICtrlRead($Input1)
$lol2 = GUICtrlRead($Input2)
$GET = _INetGetSource("http://addonbusters.bplaced.net/login/test2.php?user=" & $lol1 & "&pass=" & $lol2)
If @error Then
MsgBox(16, "Fehler", "Es ist ein Fehler aufgetreten")
Else
If $GET = 1 Then
MsgBox(0, "", "Login erfolgreich")
ElseIf $GET = 0 Then
MsgBox(0, "", "Login fehlgeschlagen")
Else
MsgBox(0, "", "Unbekannter Rückgabewert")
EndIf
EndIf
EndFunc ;==>Login

[/autoit]

also hab 2 dinge geändert .. die Userinfo werden mit _InetGetSource übermittelt und was glaube dein Fehler war ist folgendes:

test2.php?user="&$lol1&"pass="&$lol2
es müsste aber so sein:
test2.php?user="&$lol1&"&pass="&$lol2

/Edit bitte nutze die Autoit-Quellcode Funktion im Editor damit dein Code übersichtlicher aussieht

Alisamix

danke, hat geklappt