Hallo alle miteinander!
Im Geschäft hab ich den Auftrag bekommen ein kleines Progrämmchen zu scheiben, dass folgendes können soll:
Das Programm soll ausgeführt werden, und ein "login- Fenster" soll erscheinen. Also ein Feld für Benutzer und eines für die Passwort eingabe.
Danach sollte, die verbindun zu div. Netzlaufwerken hergestellt werden.
Das habe ich so eigentlich auch hinbekommen, nur mach mit das Zeug mit der GUI einwenig Probleme..
Also Hier mal der Code:
[autoit]
#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)
$return = MsgBox(4, "Login", "Sie wollen sich am KSK System anmelden?", 30)
If $return = 7 Then ;Eingabe Username
Exit
EndIf
$ok=0
$login=0
While $ok=0
While $login=0
GUICreate("Login", 320, 100) ; will create a dialog box that when displayed is centered
GUISetHelp("notepad") ; will run notepad if F1 is typed
Opt("GUICoordMode",2)
$widthCell=120
GUICtrlCreateLabel ("Benutzername", 10, 20, $widthCell)
$username = GuiCtrlCreateInput("", 0, -1, 150, 20)
GUICtrlCreateLabel ("Passwort", -2.25*$widthcell, 0)
$passwd = GuiCtrlCreateInput("", -30, -1, 150, 20,$ES_PASSWORD)
$Button_1 = GUICtrlCreateButton ("Login", -135, 10,50)
[/autoit][autoit][/autoit][autoit][/autoit][autoit]GUISetState () ; will display an empty dialog box
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]; Run the GUI until the dialog is closed
Do
$msg = GUIGetMsg()
Until $msg = $Button_1
[/autoit][autoit][/autoit][autoit];-------------------------------------------------------------------------------------------
; Laufwerk H: wird mit username und passwort gemountet
DriveMapAdd("H:", "\\ksk-srv1\Home\" & $username, 0, "phtg\" & $username, $passwd)
DriveMapAdd("I:", "\\ksk-srv1\Readwrite")
DriveMapAdd("K:", "\\ksk-srv1\Read")
DriveMapAdd("X:", "\\ksk-srv1\NBK")
$check = DriveMapGet("H:")
[/autoit][autoit][/autoit][autoit]IF $check = '\\ksk-srv1\Home\' & $username Then
$ok=1
MsgBox(0, "Erfolgreich", "Die Laufwerke wurden verbunden",4)
Exit
Else
MsgBox(0, "Error", "Passwort oder Username wurden nicht akzeptiert.")
EndIf
;-------------------------------------------------------------------------------------------
$login=1
GUISetOnEvent($GUI_EVENT_CLOSE)
WEnd
[/autoit][autoit][/autoit][autoit]WEnd
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]Das Problem ist irgendwie, dass wenn man auf "Login" klickt nicht aus der Schleife kommt..
Hat jemand eine Idee?