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


Global $sLVdat = @ScriptDir & "\LV_Daten.Dat"

$hgui=GuiCreate("DKP Manager",300,650,100,100)
GUISetBkColor(0x000000)

$check = 0
$subgui = 0
$momnamedkp=0
$a = 0
$name=0
$aJetzt=0
$neuedkp = 0
$altername = 0

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

$input_name=GUICtrlCreateInput("", 15, 165, 110, 20)
GUICtrlSetBkColor($input_name, 0xA52A2A)
$input_dkp=GUICtrlCreateInput("", 140, 165, 60, 20)
GUICtrlSetBkColor($input_dkp, 0xA52A2A)
$button_create=GUICtrlCreateButton("Add char", 210, 165, 75, 20)
GUICtrlSetBkColor($button_create, 0xA52A2A)
GUICtrlSetColor($button_create, 0xFFFF00)

$uberschriften1=GUICtrlCreateLabel(" Name", 15, 200, 50, 15)
GUICtrlSetColor($uberschriften1,0x00FF00)
GUICtrlSetFont($uberschriften1, 10, "default", "default", "Arial Black")

$uberschriften2=GUICtrlCreateLabel(" DKP", 176, 200, 50, 15)
GUICtrlSetColor($uberschriften2,0x00FF00)
GUICtrlSetFont($uberschriften2, 10, "default", "default", "Arial Black")

$liste=GUICtrlCreateListView("Name|DKP", 15, 220, 270, 400,$LVS_NOCOLUMNHEADER, $LVS_EX_FULLROWSELECT)
GUICtrlSendMsg($liste,$LVM_SETCOLUMNWIDTH, 0, 160)
GUICtrlSendMsg($liste,$LVM_SETCOLUMNWIDTH, 1, 110)
_GUICtrlListView_SetTextColor($liste, 0x7CFC00)
_GUICtrlListView_SetTextBkColor($liste, 0x000000)
_GUICtrlListView_SetBkColor($liste, 0x000000)


$button_delete=GUICtrlCreateButton("Delete character", 15, 625, 270, 20)
GUICtrlSetBkColor($button_delete, 0xA52A2A)
GUICtrlSetColor($button_delete, 0xFFFF00)

_loadLV()

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GuiSetState()

Global $B_DESCENDING[_GUICtrlListView_GetColumnCount($liste)]


While 1
    $msg=GuiGetMsg()
    If $msg=-3 Then
        _saveLV()
        Exit
    endif
    If $msg = $button_create then _erstellen()
    If $msg = $button_delete Then _loschen()
Wend

Func _loschen()
    If GUICtrlRead($liste) <> 0 Then
            _GUICtrlListView_DeleteItemsSelected($liste)
    endif
EndFunc

Func _erstellen()
    $check = 0
        For $i = 0 To _GUICtrlListView_GetItemCount($liste) - 1
            If _GUICtrlListView_GetItemText($liste, $i) = GUICtrlRead($input_name) Then
                _GUICtrlListView_SetItemText($liste, $i, GUICtrlRead($input_dkp), 1)
                $B_DESCENDING = True
                _GUICtrlListView_SimpleSort($liste, $B_DESCENDING, 1)
                GUICtrlSetData($input_name, "")
                GUICtrlSetData($input_dkp, "")
                ControlFocus($hGui,"",$input_name)
                $check = 1
                ExitLoop
            EndIf
        next
        If $check = 0 then
            GUICtrlCreateListViewItem(GUICtrlRead($input_name) & "|" & GUICtrlRead($input_dkp), $liste)
            $B_DESCENDING = True
            _GUICtrlListView_SimpleSort($liste, $B_DESCENDING, 1)
            GUICtrlSetData($input_name, "")
            GUICtrlSetData($input_dkp, "")
            ControlFocus($hGui,"",$input_name)
        EndIf
EndFunc

Func _saveLV()
    Local $sFile, $aItem, $hFileOut
    $hFileOut = FileOpen($sLVdat, 2)
    For $j = 0 To _GUICtrlListView_GetItemCount($Liste) - 1
        $aItem = _GUICtrlListView_GetItemTextString($Liste, $j)
        FileWriteLine($hFileOut, $aItem)
    Next
    FileClose($hFileOut)
EndFunc   ;==>_saveLVs

Func _LoadLV()
Local $aItems
    If FileExists($sLVdat) Then
        $aItems = ""
        _FileReadToArray($sLVdat, $aItems)
        If IsArray($aItems) Then
            For $j = 1 To $aItems[0]
                $name=Stringsplit($aItems[$j],"|")
                MsgBox(0, "sgds", $aItems[1])
                sleep (3000)
                MsgBox(0, "setes", $name[1])
                _erneuern()
                GUICtrlCreateListViewItem($altername & "|" & $neuedkp, $Liste)
            Next
        EndIf
    EndIf
EndFunc   ;==>_LoadLVs

Func WM_NOTIFY($hWnd, $MsgID, $wParam, $lParam)
    Local $tagNMHDR, $event, $hwndFrom, $code
    $tagNMHDR = DllStructCreate("int;int;int", $lParam)
    If @error Then Return 0
    $code = DllStructGetData($tagNMHDR, 3)
    If $wParam = $liste Then
        ConsoleWrite($code & @CRLF)
        Switch $code
            ;case $NM_CLICK        ;Klick
            Case $NM_DBLCLK     ;Doppelklick
                If _GUICtrlListView_GetSelectedCount($liste) > 0 Then
                    For $i = 0 To _GUICtrlListView_GetItemCount($liste)
                        If _GUICtrlListView_GetItemSelected($liste, $i) Then
                            $aItem = _GUICtrlListView_GetItemTextArray($liste, $i)
                            $input_neuedkp=InputBox("Neue DKP", "Geben sie die neuen DKP an", "", "", 100, 60, 410, 160)
                            GUICtrlSetBkColor($input_neuedkp, 0x000000)
                            If not @error Then
                                If $input_neuedkp <> "" Then
                                    _GUICtrlListView_SetItemText($liste, $i, $input_neuedkp, 1)
                                    $B_DESCENDING = True
                                    _GUICtrlListView_SimpleSort($liste, $B_DESCENDING, 1)
                                    GUICtrlSetData($input_name, "")
                                    GUICtrlSetData($input_dkp, "")
                                    ControlFocus($hGui,"",$input_name)
                                endif
                            endif
                        EndIf
                    Next
                EndIf
        EndSwitch
    EndIf
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

Func _erneuern()
    $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=" & $altername) ; Seite öffnen
    $aJetzt = StringRegExp($sHTML,'Jetzt[^"]+[^>]+>([\d.]+)',3) ; Wert auslesen
    If IsArray($aJetzt) Then
        $neuedkp = $aJetzt[0]
    endif
    Return

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