Guten Nachmittag erstmal,
ich wollte hier mal mein kleine Login-Gui vorstellen.
Ich weiß es ist kein Riesen-Super-Geiles-Mega-Ultra-Programm =) jedoch wollte ich es trotzdem mal hier reinstellen und schauen was ihr verbessern würdet.
Hierfür muss jedoch eine config.ini in dem selben Ordner wie die .au3 erstellt werden.
ich wollte hier mal mein kleine Login-Gui vorstellen.
Ich weiß es ist kein Riesen-Super-Geiles-Mega-Ultra-Programm =) jedoch wollte ich es trotzdem mal hier reinstellen und schauen was ihr verbessern würdet.
Code:
#include <GUIConstants.au3>
#include <ColorConstants.au3>
#include <Misc.au3>
$Log=GUICreate("Login",200,100)
GUISetState(@sw_show,$Log)
;GUICtrlCreateCheckbox("",20,20,12,12)
$ID=GUICtrlCreateInput(IniRead(@ScriptDir& "/config.ini","FirstAcc","ID","Default"),20,10,100,20)
$PW=GUICtrlCreateInput(IniRead(@ScriptDir& "/config.ini","FirstAcc","PW","Default"),20,40,100,20,0x0020)
$Ac=GUICtrlCreateButton("Start!",20,70,100,20)
$Sv=GUICtrlCreateButton("Save!",135,10,50,80)
$Main=GUICreate("Main",200,200)
GUISetState(@SW_HIDE,$Main)
GUISetBkColor(0x7CFC00)
$RID = "test"
$RPW = "test"
$T = 4
While 1
$msg = GUIGetMsg()
Switch $msg
Case $Ac
If GUICtrlRead($PW)=$RPW AND GUICtrlRead($ID)=$RID Then
MsgBox(0,"Ergebniss","Richtig!!!")
GUISetState(@SW_HIDE,$Log)
GUISetState(@SW_SHOW,$Main)
Else
$T = $T-1
MsgBox(0,"Ergebniss","Falsch!!! Noch "&$T&" Versuche")
EndIf
if $T = 0 Then
MsgBox(0,"Achtung!","Keine Versuche mehr!!!")
Exit
EndIf
Case $Sv
IniWrite(@ScriptDir & "/config.ini","FirstAcc", "ID", GUICtrlRead($ID))
IniWrite(@ScriptDir & "/config.ini","FirstAcc", "PW", GUICtrlRead($PW))
MsgBox(0,"Save!","Account Gespeichert.")
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Sleep(20)
WEnd