Hallo,
ich habe mir mal ein Script zusammengeschrieben, aber jetzt ist da im Code irgendetwas, was das Script langsam arbeiten lässt.
sprich es reagiert viel zu langsam beei der Texteingabe und bei ButtonClick reagiert es 2 oder mehr Sekunden zu langsam
Ich Poste euch mal den Code und hoffe ihr könnnt mir helfen, dass es schneller geht
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Local $Button1
Local $Button2
Local $Input1
Local $Input2
Local $Input3
Local $passwort1
Local $passwort2
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 239, 65, 491, 237)
$Input1 = GUICtrlCreateInput("", 8, 8, 137, 21, $ES_PASSWORD)
$Input2 = GUICtrlCreateInput("", 8, 32, 137, 21, $ES_PASSWORD)
$Input3 = GUICtrlCreateInput("", 8, 32, 137, 21, $ES_PASSWORD)
GUICtrlSetState(-1, $GUI_HIDE)
$Button1 = GUICtrlCreateButton("Setzen", 152, 32, 75, 25)
$Button2 = GUICtrlCreateButton("Eingabe", 152, 32, 75, 25)
GUICtrlSetState(-1, $GUI_HIDE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
pwsetzen()
Case $Button2
pweingabe()
EndSwitch
process()
WEnd
Func process()
Local $PID = ProcessExists("taskmgr.exe")
If $PID Then ProcessClose("taskmgr.exe")
Sleep(50)
WinActivate("Form1")
EndFunc
Func pwsetzen()
$passwort1 = GUICtrlRead($Input1)
$Passwort2 = GUICtrlRead($Input2)
If $passwort1 = $passwort2 Then
_desktopkill()
GUICtrlSetState($Input1, $GUI_HIDE)
GUICtrlSetState($Input2, $GUI_HIDE)
GUICtrlSetState($Button1, $GUI_HIDE)
GUICtrlSetState($Input3, $GUI_SHOW)
GUICtrlSetState($Button2, $GUI_SHOW)
Else
MsgBox(0, "falsches Passwort","Die Passwörter stimmen nicht überein, bitte setzen Sie ein neues Passwort!")
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
EndIf
EndFunc
Func pweingabe()
If GUICtrlRead($Input3) = $passwort2 Then
MsgBox(0,"Richtig","Das war das richtige Passwort!")
_desktopshow()
Else
MsgBox(0,"Falsch","Das war das falsche Passwort!")
GUICtrlSetData($Input3, "")
EndIf
EndFunc
Func _desktopkill()
Opt('WINTITLEMATCHMODE', 4)
ControlHide('classname=Shell_TrayWnd', '', '')
ControlHide('classname=Progman', '', '')
winsetstate("Start", "", @SW_HIDE)
EndFunc
Func _desktopshow()
Opt('WINTITLEMATCHMODE', 4)
ControlShow('classname=Shell_TrayWnd', '', '')
ControlShow('classname=Progman', '', '')
winsetstate("Start", "", @SW_SHOW)
EndFunc
LG
Ququknife