[Question/Request]{WinHttp} - Login

[MoepMeep]

Originally Posted by isaias

wenn du probleme mit dem login hast kann ich dir weiterhelfen. ich habe nähmlich ein eigenes loginsystem gemacht und es funzt super. hab auch noch viele andere sachen noch gemacht ,wie z.b spambots,programmspambot(spamt einen mit programmen zu(öffnet sie)),ein script mit den man laufwerk öffnen kann,programmöffner(mit buttons zum öffnen),aimbot (pixelsearchbot) und metin2 angelbot. wenn ich das posten soll alles ,sagt mir bescheid (wie mann z.b auch spoiler macht ,weil ich nirgens geguckt hab wie man spoiler macht). mein loginsystem geht auf jeden fall so:

$inputusername = InputBox("Geben sie ihren benutzernamen ein","Benutzername:")
$inputpassword = InputBox("Geben sie ihr passwort ein","passwort:","","*")
If $inputusername = "yourusername" Or "someoneothersusername" And $inputPassword = "yourpassword" Or "someoneotherspassword" Then
MsgBox(0,"Erfolgreich eingeloggt","Sie haben sich erfolgreich eingeloggt!")
run("taskmgr.exe")
Else
MsgBox(0,"Login fehlgeschlagen!","Username oder Passwort sind falsch")
EndIf

Ich weiß nicht ob ich lachen oder weinen soll.

[Lumi]

Originally Posted by MoepMeep

Ich weiß nicht ob ich lachen oder weinen soll.

Ich weiß nicht, ob ich dich Reporten soll oder einfach nur ignorieren.

Originally Posted by FichteFoll

 Spoiler

Er hat es in diesem Thema gepostet, also würde ich sagen, dass die (eine) Antwort korrekt ist.

----

Wollte gerade meine Antwort posten, dann sehe ich erst, dass schon eine zweite Seite gibt. Shawn Spencer hat in diesem Sinne schon einmal recht. Sein RegEx ist vermutlich auch effizienter als "(\d+)</span>", deswegen habe ich den gerade mal übernommen. Den Rest hatte ich zufällig schon fertig, weil mir ein gewisser Useroutput recht war - zum Testen.

PHP Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinHttp.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 252, 297, 192, 124)
$Label1 = GUICtrlCreateLabel("Benutzername", 8, 8, 72, 17)
$Label2 = GUICtrlCreateLabel("Passwort", 32, 32, 47, 17)
$Input1 = GUICtrlCreateInput("", 96, 8, 121, 21)
$Input2 = GUICtrlCreateInput("", 96, 32, 121, 21)
$Button1 = GUICtrlCreateButton("Login", 80, 64, 75, 25)
$Button2 = GUICtrlCreateButton("elite*Gold abfragen", 56, 120, 131, 25)
$Edit1 = GUICtrlCreateEdit("", 8, 152, 233, 136)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###


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

        Case $Button2
            Login(1)

    EndSwitch
WEnd


Func Login($bGold = False)
    _ToogleButtons(0)

    $hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.0; rv:10.0.1) Gecko/20100101 Firefox/10.0.1")
    $hConnect = _WinHttpConnect($hSession, "www.elitepvpers.com")

    $sHTML = _WinHttpSimpleRequest($hConnect, "GET", "forum/")
    $sHTML = _WinHttpSimpleRequest($hConnect, "POST", "forum/login.php?do=login", "", "vb_login_username=" & GUICtrlRead($Input1) & "&vb_login_password=" & GUICtrlRead($Input2) & "&cookieuser=1&s=&securitytoken=guest&do=login")

    ; Login fehlgeschlagen
    If Not StringInStr($sHTML, "<strong>Thank you for logging in, ") Then
        _Output("Login fehlgeschlagen")
        _ToogleButtons(1)
        Return 0
    EndIf

    If Not $bGold Then
        _ToogleButtons(1) ; Weiter nur, wenn $bGold = True
        _Output("Login erfolgreich")
        Return 1
    EndIf

    ; Neue Seite laden (möglichst wenig Content)
    $sHTML = _WinHttpSimpleRequest($hConnect, "GET", "forum/faq.php")
    $aReturn = StringRegExp($sHTML, '<span class="gold">([^<]+)', 3)

    ; Buttons wieder aktivieren
    _ToogleButtons(1)

    If Not IsArray($aReturn) Then Return 0 * _Output("elite*Gold nicht gefunden")

    _Output("elite*Gold von "&GUICtrlRead($Input1) &": " & $aReturn[0])
    Return 1

EndFunc   ;==>GoldAbfrage

Func _ToogleButtons($bNewState = -1)
    Local $fNewState = $GUI_DISABLE
    If $bNewState = -1 Then $bNewState = BitAND(GUICtrlGetState($Button1), $GUI_DISABLE)
    If $bNewState Then
        $fNewState = $GUI_ENABLE
    EndIf

    GUICtrlSetState($Button1, $fNewState)
    GUICtrlSetState($Button2, $fNewState)
EndFunc

Func _Output($str)
    Return GUICtrlSetData($Edit1, $str & @CRLF, "1")
EndFunc 


Übrigens hattest du die Buttons vertauscht.

Edit: Übrigens, wenn elitepvpers das Ergebnis des Einloggens im HTTP-Header anzeigt, ginge das alles vermutlich schneller, aber ich hatte gerade keine Lust, das zu überprüfen.

Dein Script funktioniert Gut, aber jedoch komme ich mich nicht mit dem Script zurecht. o_o
So unübersichtlich.
Ist es möglich mit WinHttp einen Treasure Creator zu machen ?
Ich habs mal mit dem hier probiert, aber irgendwie klappt das nicht.

Func Truhen()

$hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.0; rv:10.0.1) Gecko/20100101 Firefox/10.0.1")
$hConnect = _WinHttpConnect($hSession, "www.elitepvpers.com")

$sHTML = _WinHttpSimpleRequest($hConnect, "GET", "forum/" )
$sHTML = _WinHttpSimpleRequest($hConnect, "POST", "theblackmarket/treasures/", "", "title=" & GUICtrlRead($Input4) & "content=" & GUICtrlRead($Input5) & "&cost=" & GUICtrlRead($Input6) & "&createtreasure=Submit")
$aReturn = StringRegExp($sHTML, '<span class="gold">([^<]+)', 3)

EndFunc

[Njahs]

Ich könnte dir allgemein, aber auch bei WinHTTP behilflich sein,
Lumi'.
Add mich in Skype, dort kann man es dir besser erklären.
Skype: xNjahs

[Freddy​]

Originally Posted by Lumi'

Ich weiß nicht, ob ich dich Reporten soll oder einfach nur ignorieren.



Dein Script funktioniert Gut, aber jedoch komme ich mich nicht mit dem Script zurecht. o_o
So unübersichtlich.
Ist es möglich mit WinHttp einen Treasure Creator zu machen ?
Ich habs mal mit dem hier probiert, aber irgendwie klappt das nicht.

Dashier sollte funktionieren.

PHP Code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <WinHttp.au3>

Global $nLogin = False

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Treasure", 227, 327, 363, 462)
$ID = GUICtrlCreateLabel("ID", 8, 16, 15, 17)
$Label1 = GUICtrlCreateLabel("PW", 8, 40, 22, 17)
$Label2 = GUICtrlCreateLabel("Treasure Name:", 8, 96, 80, 17)
$Input1 = GUICtrlCreateInput("", 32, 16, 121, 21)
$Input2 = GUICtrlCreateInput("", 32, 40, 121, 21, $ES_PASSWORD)
$Label3 = GUICtrlCreateLabel("Treasure Content", 8, 120, 86, 17)
$Label4 = GUICtrlCreateLabel("Treasure Cost", 8, 144, 70, 17)
$Input3 = GUICtrlCreateInput("", 96, 96, 121, 21)
$Input4 = GUICtrlCreateInput("", 96, 120, 121, 21)
$Input5 = GUICtrlCreateInput("", 96, 144, 121, 21)
$Label5 = GUICtrlCreateLabel("", 8, 64, 175, 17)
$Button1 = GUICtrlCreateButton("Login", 8, 176, 99, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Create Treasure", 120, 176, 99, 25, $WS_GROUP)
$Edit1 = GUICtrlCreateEdit("", 8, 208, 209, 113)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
         Case $GUI_EVENT_CLOSE
            If $nLogin = True Then
               _WinHttpCloseHandle($hSession)
               _WinHttpCloseHandle($hConnect)
            EndIf
            Exit
         Case $Button1
            $hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.0; rv:10.0.1) Gecko/20100101 Firefox/10.0.1")
            $hConnect = _WinHttpConnect($hSession, "www.elitepvpers.com")
            $sHTML = _WinHttpSimpleRequest($hConnect, "POST", "forum/login.php?do=login", "", "vb_login_username=" & GUICtrlRead($Input1) & "&vb_login_password=" & GUICtrlRead($Input2) & "&cookieuser=1&s=&securitytoken=guest&do=login")
            If StringInStr($sHTML, "<strong>Thank you for logging in, ") Then
               GUICtrlSetData($Label5,"Login successful!")
               GUICtrlSetData($Edit1,"Login successful"&@CRLF, "1")
               $nLogin = True
            Else
               MsgBox(0,"Login failed","Login failed!")
               GUICtrlSetData($Label5,"Login failed!")
            EndIf
         Case $Button2
            If $nLogin = True Then
               $sHTML = _WinHttpSimpleRequest($hConnect, "POST", "theblackmarket/treasures/", "","title="&GUICtrlRead($Input3)&"&content="&GUICtrlRead($Input4)&"&cost="&GUICtrlRead($Input5)&"&createtreasure=Submit")
               GUICtrlSetData($Edit1,"Treasure created!"&@CRLF, "1")
            Else
               MsgBox(0,"Not logged in!","You have to login")
            EndIf
    EndSwitch
WEnd 


[Lumi]

Ich verstehe diesen Teil nicht, aber es geht und sieht übersichtlich aus! Danke. ;3

[Freddy​]

Wenn du willst schreibe ich dir noch dran welcher Befehl was macht

[Lumi]

Klingt Gut. ;3
Schreib mir das aber per PN.