Hey heute ein Tutorial wie man ein PW in sein Script macht.
Also zuerst brauchen wir ein Script
Ich mache mal ein Ziemlich einfachens :DD
Code:
MouseClick ("Left" )
MouseClick ("Left" )
Nun wo ihr euer Script habt setzt ihr über eurem Script das ein:
Code:
#Region
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#RequireAdmin ; optional Administratorrechte verlangen
#EndRegion
; Das sind die Includes die Wir brauchen.
Call("Anmeldung")
Func Anmeldung()
#Region
Opt("TrayIconHide", 1) ; optional den TrayIcon verstecken, damit man das Sript nicht ausversehen pausiert oder beendet
GUICreate("Anmeldung", 300, 55, @DesktopWidth/2 - @DesktopWidth/6, @DesktopHeight/2)
GUICtrlCreateLabel("Bitte Passwort eingebeben!", 12, 3)
$Senden = GUICtrlCreateButton("Senden", 216, 20, 80, 25, $WS_GROUP)
$Input = GUICtrlCreateInput("", 10, 23, 200, 20, $ES_PASSWORD)
GUISetState(@SW_SHOW)
#EndRegion
;GUI
$Key = ""; zwischen den "" muß dein Passwort stehen
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Senden
$Check = GUICtrlRead($Input)
$Test = 0
If $Check = $Key Then
$Test = MsgBox (0, "Erfolg","Richtiges Passwort!")
EndIf
If $Check <> $Key Then
MsgBox (016, "Fehler","Zugriff verweigert !")
EndIf
If $Test = 1 Then
GUISetState(@SW_HIDE)
ExitLoop
EndIf
EndSwitch
Sleep(10)
WEnd
EndFunc
So sieht mein Script dann aus:
Code:
#Region
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;#RequireAdmin ; optional Administratorrechte verlangen
#EndRegion
; Includes
Call("Anmeldung")
Func Anmeldung()
#Region
;Opt("TrayIconHide", 1) ; optional den TrayIcon verstecken, damit man das Sript nicht ausversehen pausiert oder beendet
GUICreate("Anmeldung", 300, 55, @DesktopWidth/2 - @DesktopWidth/6, @DesktopHeight/2)
GUICtrlCreateLabel("Bitte Passwort eingebeben!", 12, 3)
$Senden = GUICtrlCreateButton("Senden", 216, 20, 80, 25, $WS_GROUP)
$Input = GUICtrlCreateInput("", 10, 23, 200, 20, $ES_PASSWORD)
GUISetState(@SW_SHOW)
#EndRegion
;GUI
$Key = "G0LdPrEMiUm!"; zwischen den "" muß dein Passwort stehen
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Senden
$Check = GUICtrlRead($Input)
$Test = 0
If $Check = $Key Then
$Test = MsgBox (0, "Erfolg","Richtiges Passwort!")
EndIf
If $Check <> $Key Then
MsgBox (016, "Fehler","Zugriff verweigert !")
EndIf
If $Test = 1 Then
GUISetState(@SW_HIDE)
ExitLoop
EndIf
EndSwitch
Sleep(10)
WEnd
EndFunc
;Jetzt kommt das Richtige Script
MouseClick ( "Left" )
MouseClick ( "Left" )
Hoffentlich hats euch Gefallen:))
Und Statt "Danke" Zu schreiben gebt mir doch einfach ein THX :))