#include <GUIConstantsEx.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>
#include <WinHTTP.au3>
#include <GDIPlus.au3>

Global $dokument = @ScriptDir & "\LV_Daten.Dat"
Global $dokument2 = @ScriptDir & "\LV_Daten2.Dat"

$name = "Antip%F3p%E8"
$aJetzt = 0
$tguicount = 0
$sguicount = 0
$alreadyread1=0
$alreadyread2=0

$farbenormal="0xFFFFFF"
$farberot="0xFF4500"

;Haputfenster
$gui=GUICreate("Anti's DKP Viewwer", 330, 330, 230, 100,$WS_POPUPWINDOW,$WS_EX_TOOLWINDOW ) ;erstellt eine GUi
GUISetBkColor(0x000000); setzt die farbe der GUI

$pic=GUICtrlCreatePic(@ScriptDir & "/Anti.jpg", 15, 5, 300, 273); erstellt das pic auf dem GUi
GUICtrlSetState($pic, $GUI_DISABLE);dadurch sind die button über das bild

$button_tteile=GUICtrlCreateButton("T-Teile", 35, 140, 90, 20, $BS_BITMAP);erstellt den button für die T-teile
GUICtrlSetBkColor(-1, 0x6495ED); hintergrundfarbe
GUICtrlSetColor(-1, 0xFFFFFF);schriftfarbe
GUICtrlSetFont(-1, 10, 600, "", "Times new Roman");schriftart

$button_stoffteile=GUICtrlCreateButton("Stoff-teile", 40, 170, 90, 20, $BS_BITMAP);erstellt den button für die T-teile
GUICtrlSetBkColor(-1, 0x6495ED);hitnergrundfarbe
GUICtrlSetColor(-1, 0xFFFFFF);schriftfarbe
GUICtrlSetFont(-1, 10, 600, "", "Times new Roman");schriftart

$button_exit=GUICtrlCreateButton("Beenden", 60, 295, 210, 20);erstellt button für beenden
GUICtrlSetBkColor(-1, 0x6495ED);hintergrundfarbe
GUICtrlSetFont(-1, 10, 600, "", "Times new Roman");schriftart
GUICtrlSetColor(-1, 0xFFFFFF);schriftfarbe

GUISetState()

_suchen();funktion suchen

$label_meinedkp=GUICtrlCreateLabel("   Betrag:  " & $aJetzt[0], 100, 270, 180, 20)
GUICtrlSetFont(-1, 10, 600, "", "Times new Roman");schriftart
GUICtrlSetColor(-1, 0xFFFFFF);schriftfarbe
$vgldkp=$aJetzt[0]

$tgui=GUICreate("T-Teile", 170, 300, 61, 115,$WS_POPUPWINDOW,$WS_EX_TOOLWINDOW );erstellt t-teile gui (links)
GUISetBkColor(0x000000); setzt die farbe der GUI
GUISetState(@SW_HIDE, $tgui);anfang noch versteckt

$sgui=GUICreate("Stoff-Teile", 170, 300, 559, 115,$WS_POPUPWINDOW,$WS_EX_TOOLWINDOW );erstellt t-teile gui (links)
GUISetBkColor(0x000000); setzt die farbe der GUI
GUISetState(@SW_HIDE, $sgui);anfangs noch versteckt



While 1
    $msg=GUIGetMsg()
    If $msg = -3 then exit
    If $msg = $button_exit then Exit
    If $msg=$button_tteile Then _tteilegui()
    If $msg=$button_stoffteile then _stoffteilegui()
    sleep (20)
wend

Func _suchen()

    $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=Gilde&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
endfunc

Func _WinHTTPRequest($hConnect, $sSite, $sPost = "", $sReferer = $WINHTTP_NO_REFERER)
        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)

        Return $sHTML

EndFunc   ;==>_WinHTTPRequest

Func _tteilegui();t-teile funktion
    If $tguicount= 0 then
        GUISetState(@SW_SHOW, $tgui);aufdecken
        $tguicount = 1
        If $alreadyread1=0 then
            If FileExists($dokument) Then
                $inhalt = ""
                _FileReadToArray($dokument, $inhalt)
                If IsArray($inhalt) Then
                    For $j = 1 To $inhalt[0]
                        $name=$inhalt[$j]
                        _suchen()
                        If $aJetzt[0] < $vgldkp then
                            GUICtrlCreateLabel($name, 15, $j * 15 + ($j-1*5), 140, 15)
                            GUICtrlSetColor(-1, $farbenormal);schriftfarbe
                            GUICtrlCreateLabel($aJetzt[0], 120, $j * 15 + ($j-1*5), 140, 15)
                            GUICtrlSetColor(-1, $farbenormal);schriftfarbe
                        elseif $aJetzt[0] > $vgldkp Then
                            GUICtrlCreateLabel($name, 15, $j * 15 + ($j-1*5), 140, 15)
                            GUICtrlSetColor(-1, $farberot);schriftfarbe
                            GUICtrlCreateLabel($aJetzt[0], 120, $j * 15 + ($j-1*5), 140, 15)
                            GUICtrlSetColor(-1, $farberot);schriftfarbe
                        endif
                    Next
                EndIf
            EndIf
            $alreadyread1=1
        endif
    elseif $tguicount = 1 Then
        GUISetState(@SW_HIDE, $tgui); verstecken
        $tguicount = 0
    endif
EndFunc

Func _stoffteilegui();stoff-teile funktion
    If $sguicount= 0 then
        GUISetState(@SW_SHOW, $sgui);aufdecken
        $sguicount = 1
        If $alreadyread2=0 then
            If FileExists($dokument2) Then
                $inhalt = ""
                _FileReadToArray($dokument2, $inhalt)
                If IsArray($inhalt) Then
                    For $j = 1 To $inhalt[0]
                        $name=$inhalt[$j]
                        _suchen()
                        If $aJetzt[0] < $vgldkp Then
                            GUICtrlCreateLabel($name, 15, $j * 15 + ($j-1*5), 140, 15)
                            GUICtrlSetColor(-1, $farbenormal);schriftfarbe
                            GUICtrlCreateLabel($aJetzt[0], 120, $j * 15 + ($j-1*5), 140, 15)
                            GUICtrlSetColor(-1, $farbenormal);schriftfarbe
                        ElseIf $aJetzt[0] > $vgldkp Then
                            GUICtrlCreateLabel($name, 15, $j * 15 + ($j-1*5), 140, 15)
                            GUICtrlSetColor(-1, $farberot);schriftfarbe
                            GUICtrlCreateLabel($aJetzt[0], 120, $j * 15 + ($j-1*5), 140, 15)
                            GUICtrlSetColor(-1, $farberot);schriftfarbe
                        endif
                    Next
                EndIf
            endif
            $alreadyread2=1
        endif
    elseif $sguicount = 1 Then
        GUISetState(@SW_HIDE, $sgui); verstecken
        $sguicount = 0
    endif
endfunc