#include <WinHTTP.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <File.au3>
#Include <Misc.au3>

$input_name = 0
$name = 0

$gui=GUICreate("Pulse DKP finder", 280, 320, 100, 100,$WS_POPUPWINDOW & $DS_SETFOREGROUND,$WS_EX_TOOLWINDOW )
GUISetBkColor(0x000000)
WinSetOnTop($gui, "", 1)

$pulselogo=GUICtrlCreatePic(@ScriptDir & "\pulse logo.jpg", 4, 10, 273, 141);fügt das bild ein
GUICtrlSetState($pulselogo, $GUI_DISABLE)

$label_text=GUICtrlCreateLabel("Geben sie den Namen ein", 15, 175, 250, 15)
GUICtrlSetColor($label_text, 0xADADAD)
GUICtrlSetFont($label_text, 12, "700", "", "Times nwe Roman","PROOF_QUALITY=10" )

$input_name=GUICtrlCreateInput("", 15, 200, 250, 20)
GUICtrlSetBkColor($input_name, 0x8B2323)
GUICtrlSetColor($input_name, 0xADADAD)
GUICtrlSetFont($input_name, 10, "700", "", "Times nwe Roman","PROOF_QUALITY=10" )

$button_Suchen=GUICtrlCreateButton("Suchen", 15, 225, 120, 20)
GUICtrlSetBkColor($button_Suchen, 0xCD0000)
GUICtrlSetColor($button_Suchen, 0xADADAD)

$button_beenden=GUICtrlCreateButton("Abbrechen", 145, 225, 120, 20)
GUICtrlSetBkColor($button_beenden, 0xCD0000)
GUICtrlSetColor($button_beenden, 0xADADAD)

GUISetState()

While 1
    $msg=GuiGetMsg()
    If $msg=-3 Then
        Exit
    endif
    If $msg = $button_beenden Then
        Exit
    endif
    If $msg=$button_Suchen Then

        GUICtrlSetData($input_name, "")

        $subgui=GUICreate("", 280, 60, 100, 360,$WS_POPUPWINDOW & $DS_SETFOREGROUND,$WS_EX_TOOLWINDOW)
        GUISetBkColor(0x000000)
        WinSetOnTop($subgui, "", 1)

        $label_gedult=GUICtrlCreateLabel("Etwas Gedult bitte", 15, 15, 250, 15)
        GUICtrlSetColor($label_gedult, 0xADADAD)
        GUICtrlSetFont($label_gedult, 12, "700", "", "Times nwe Roman","PROOF_QUALITY=10" )
        GUISetState()
        _suchen()
    endif
Wend

Func _suchen()
    $name = GUICtrlRead($input_name)

    $hSession = _WinHttpOpen("Allvatar Reader") ; User Agent bestimmen
    $hConnect = _WinHttpConnect($hSession, "soul.host.allvatar.com") ; Zum Host verbinden

    _WinHTTPRequest($hConnect, "/login.php") ; Login Seite besuchen
    _WinHTTPRequest($hConnect, "/login.php", "username=Antipope&password=notebook&login=Login+-+Die+CMS-Bridge+ist+aktiviert.+Benutzt+die+Login-Daten+eures+Forums%2FCMS+um+euch+anzumelden.") ; einloggen

    $sHTML = _WinHTTPRequest($hConnect,"/viewmember.php?s=&name=" & $name) ; Seite öffnen
    $aJetzt = StringRegExp($sHTML,'Jetzt[^"]+[^>]+>([\d.]+)',3) ; Wert auslesen

    sleep (500)

    GUICtrlDelete($label_gedult)

    $label_find=GUICtrlCreateLabel($name & " hat " & $aJetzt[0] & " DKP", 15, 15, 250, 15)
    GUICtrlSetColor($label_find, 0xADADAD)
    GUICtrlSetFont($label_find, 12, "700", "", "Times nwe Roman","PROOF_QUALITY=10" )
    GUISetState()
endfunc

Func _WinHTTPRequest($hConnect, $sSite, $sPost = "", $sReferer = $WINHTTP_NO_REFERER)
        ;Author: SEuBo
        Local $hRequest, $sHTML, $sMode = "GET", $sHeaders = $WINHTTP_NO_ADDITIONAL_HEADERS, $sOptional = $WINHTTP_NO_REQUEST_DATA
        If $sPost <> "" Then
            $sMode = "POST"
            $sOptional = $sPost
            $sHeaders = "Content-Type: application/x-www-form-urlencoded" & @CRLF
        EndIf

        $hRequest = _WinHttpOpenRequest($hConnect, $sMode, $sSite, "HTTP/1.1", $sReferer) ; Anfrage an die Seite stellen
        _WinHttpSendRequest($hRequest, $sHeaders, $sOptional) ; Anfrage senden.
        _WinHttpReceiveResponse($hRequest) ; Warte auf Antwort des Servers
        Do
            $sHTML &= _WinHttpReadData($hRequest) ; Antwort aus dem Buffer lesen.
        Until @error ; bis ein fehler auftritt (übertragung abgeschlossen)
        If @error Then
            _fehler()
        endif
        ;Return $sHTML

    EndFunc   ;==>_WinHTTPRequest

Func _fehler()
    $label_fehler=GUICtrlCreateLabel("Der Name wurde nicht gefunden", 15, 15, 250, 15)
    GUICtrlSetColor($label_fehler, 0xADADAD)
    GUICtrlSetFont($label_fehler, 12, "700", "", "Times nwe Roman","PROOF_QUALITY=10" )
    GUISetState()
endfunc