Code:
$FORM1 = GUICreate("MultiClient By Whazzert & SmoGG", 377, 248, 216, 177)
GUISetCursor(0)
GUISetBkColor(0)
$BUTTON1 = GUICtrlCreateButton("Run LC", 16, 176, 99, 41)
$BUTTON2 = GUICtrlCreateButton("Exit", 256, 176, 99, 41)
$BUTTON3 = GUICtrlCreateButton("About", 136, 176, 99, 41)
$BUTTON4 = GUICtrlCreateButton("2x", 16, 216, 43, 17)
$BUTTON5 = GUICtrlCreateButton("3x", 72, 216, 43, 17)
$LABEL1 = GUICtrlCreateLabel("www.whazzert.net", 248, 224, 113, 19)
GUICtrlSetFont(-1, 9, 400, 0, "Georgia")
GUICtrlSetColor(-1, 16777215)
$LABEL2 = GUICtrlCreateLabel("MultiClient ", 16, 16, 356, 94)
GUICtrlSetFont(-1, 48, 800, 2, "Comic Sans MS")
GUICtrlSetColor(-1, 32768)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$NMSG = GUIGetMsg()
Switch $NMSG
Case $GUI_EVENT_CLOSE
Exit
Case $BUTTON1
Run(@ScriptDir & "\Bin\Nksp.exe 6574")
Case $BUTTON4
Run(@ScriptDir & "\Bin\Nksp.exe 6574")
Run(@ScriptDir & "\Bin\Nksp.exe 6574")
Case $BUTTON5
Run(@ScriptDir & "\Bin\Nksp.exe 6574")
Run(@ScriptDir & "\Bin\Nksp.exe 6574")
Run(@ScriptDir & "\Bin\Nksp.exe 6574")
Case $BUTTON3
MsgBox(0, "About", "Thanks to use the MultiClient from Whazzert & SmoGG")
Case $BUTTON2
Exit
EndSwitch
WEnd
Code:
Global $TITLE = "Passwort-Generator v1.0 By Whazzert "
If _Singleton($TITLE, 1) = 0 Then
MsgBox(48, $TITLE, "Das Programm läuft bereits!")
Exit
EndIf
Opt("TrayMenuMode", 1)
Opt("TrayAutoPause", 0)
Global $KEY[5]
$KEY[0] = "1234567890"
$KEY[1] = _StringRepeat($KEY[0], 4) & "abcdefghijklmnopqrstuvwxyz"
$KEY[2] = $KEY[1] & "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
$KEY[3] = $KEY[2] & "öäüÖÄÜß"
$KEY[4] = $KEY[3] & "@€µ²³°!§$%&/()=<>|,.-;:_#+*~?\" & Chr(34) & Chr(39)
Global $GUI = GUICreate($TITLE, 800, 180, -1, -1)
GUISetIcon(@SystemDir & "\shell32.dll", -212)
Global $TRAYSHOW = TrayCreateItem("Passwort-Generator anzeigen")
Global $TRAYEXIT = TrayCreateItem("Beenden")
GUICtrlCreateGroup("Stärke", 10, 8, 130, 55)
Global $COMBO = GUICtrlCreateCombo("", 20, 30, 110, 20, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "1 = Sehr Leicht|2 = Leicht|3 = Mittel|4 = Hoch|5 = Sehr Hoch", "3 = Mittel")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Passwortlänge (Anzahl der Zeichen)", 150, 8, 480, 55)
Global $SLIDER = GUICtrlCreateSlider(160, 25, 400, 30, BitOR($TBS_TOOLTIPS, $TBS_AUTOTICKS))
GUICtrlSetLimit(-1, 64, 4)
_GUICtrlSlider_SetTicFreq($SLIDER, 4)
_GUICtrlSlider_SetPageSize($SLIDER, 4)
_GUICtrlSlider_SetPos($SLIDER, 16)
Global $RANGE = GUICtrlCreateLabel("16", 565, 30, 40, 22, BitOR($SS_CENTER, $SS_SUNKEN))
GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
GUICtrlSetColor(-1, 16711680)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $BUTTON = GUICtrlCreateButton("Erstellen", 30, 70, 90, 25, $BS_DEFPUSHBUTTON)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
Global $WPABUTTON = GUICtrlCreateButton("WLAN-Passwort (WPA) Erstellen", 150, 70, 220, 25)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetTip(-1, "63 Zeichen (Zahlen und Buchstaben mit Groß-/Kleinschreibung)")
GUICtrlCreateGroup("Passwort (wird automatisch in die Zwischenablage kopiert)", 10, 102, 780, 60)
Global $CODE = GUICtrlCreateInput("", 20, 125, 760, 25)
GUICtrlSetFont(-1, 14, 800, 0, "Courier New")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState($CODE, $GUI_FOCUS)
PASSWORT()
GUISetState()
While 1
Switch GUIGetMsg()
Case $COMBO
PASSWORT()
Case $SLIDER
GUICtrlSetData($RANGE, GUICtrlRead($SLIDER))
PASSWORT()
Case $BUTTON
PASSWORT()
Case $WPABUTTON
PASSWORT(True)
Case $GUI_EVENT_MINIMIZE
Opt("TrayIconHide", 0)
TraySetIcon(@SystemDir & "\shell32.dll", -212)
GUISetState(@SW_HIDE, $GUI)
While 2
Switch TrayGetMsg()
Case $TRAYSHOW
Opt("TrayIconHide", 1)
GUISetState(@SW_SHOW, $GUI)
GUISetState(@SW_RESTORE, $GUI)
ExitLoop
Case $TRAYEXIT
Exit
EndSwitch
WEnd
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func PASSWORT($BWPA = False)
Local $CHOICE = Number(StringLeft(GUICtrlRead($COMBO), 1))
Local $I, $PASS = ""
Local $ILIMIT = Number(GUICtrlRead($RANGE))
If $BWPA Then
$CHOICE = 3
$ILIMIT = 63
EndIf
For $I = 1 To $ILIMIT
$PASS &= StringMid($KEY[$CHOICE - 1], Random(1, StringLen($KEY[$CHOICE - 1]), 1), 1)
Next
GUICtrlSetData($CODE, $PASS)
ClipPut($PASS)
EndFunc
