Minecraft Account Checker

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=UserCP_Checker\epvp.ico
#AutoIt3Wrapper_Res_Description=by Der-Eddy
#AutoIt3Wrapper_Res_LegalCopyright=by Der-Eddy
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/striponlyincludes /om
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;~ #include <Array.au3>

Global $Form1, $Edit1, $Edit2, $Edit3, $Label1, $Label2, $Button1, $i, $acc
Global $c1 = 0, $c2 = 0

Opt("GUIOnEventMode", 1)
Opt("MustDeclareVars", 1)

$Form1 = GUICreate("Minecraft Account Checker", 634, 695)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
$Edit1 = GUICtrlCreateEdit("-Minecraft Namen, einen pro Zeile-", 8, 16, 321, 609)
$Edit2 = GUICtrlCreateEdit("", 352, 16, 265, 361)
GUICtrlSetData(-1, "")
$Edit3 = GUICtrlCreateEdit("", 352, 416, 265, 209)
$Button1 = GUICtrlCreateButton("Check", 8, 640, 321, 41)
GUICtrlSetOnEvent(-1, "Check")
$Label1 = GUICtrlCreateLabel("Accounts mit Premium:", 352, 392, 268, 17, $SS_CENTER)
$Label2 = GUICtrlCreateLabel("Accounts ohne Premium:", 352, 648, 268, 17, $SS_CENTER)
GUISetState(@SW_SHOW)


While 1
    Sleep (100)
WEnd

Func Check()
    $acc = GUICtrlRead($Edit1)
    If $acc = "-Minecraft Namen, einen pro Zeile-" Then
        MsgBox(48, "Fehler", "Es wurde kein Account angegeben!")
        Return 0
    EndIf
    $acc = StringSplit($acc, @CRLF, 1)
;~  _ArrayDisplay($acc)
    For $i = 1 To $acc[0]
        If BinaryToString(InetRead("https://minecraft.net/haspaid.jsp?user=" & $acc[$i], 1)) = "True" Then
            If GUICtrlRead($Edit2) = "" Then
                GUICtrlSetData($Edit2, $acc[$i])
            Else
                GUICtrlSetData($Edit2, GUICtrlRead($Edit2) & @CRLF & $acc[$i])
            EndIf
            $c1 += 1
            GUICtrlSetData($Label1, "Accounts mit Premium: " & $c1)
        Else
            If GUICtrlRead($Edit3) = "" Then
                GUICtrlSetData($Edit3, $acc[$i])
            Else
                GUICtrlSetData($Edit3, GUICtrlRead($Edit3) & @CRLF & $acc[$i])
            EndIf
            $c2 += 1
            GUICtrlSetData($Label2, "Accounts ohne Premium: " & $c2)
        EndIf
    Next
EndFunc

Func _Exit()
    Exit 1
EndFunc