Button Password
Verfasst: 03.09.2016 22:41
Hallo, wie kann man ein Button mit einem Password versehen, ist es möglich?
Code: Alles auswählen
EnableExplicit
If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(1, 10, 10, 100, 20, "Starten", 0)
Repeat
Select WaitWindowEvent()
Case #PB_Event_Gadget
Select EventGadget()
Case 1
If InputRequester("Starten", "Passwort:", "", #PB_InputRequester_Password) = "PureBasic"
RunProgram("notepad.exe")
Else
MessageRequester("Zugriff verweigert", " Du kommst hier nicht rein!", #MB_ICONERROR)
EndIf
EndSelect
Case #PB_Event_CloseWindow
End
EndSelect
ForEver
EndIf