AutoIt.@ - Tools und Hilfeforum

#include <GUIConstants.au3> ToolTip("Entscheidungshelfer ist im Einsatz | by Blacky", 0, 0) $hGUI = GUICreate("Form1", 625, 445, 193, 125) GUICtrlCreateLabel("Wie viele Möglichkeiten???", 128, 24, 330, 36) GUICtrlSetFont(-1, 20, 400, 0, "MS Sans Serif") Dim $Radio[3] $Radio[0] = GUICtrlCreateRadio("Zwei", 248, 152, 49, 17) $Radio[1] = GUICtrlCreateRadio("Drei", 248, 200, 49, 17) $Radio[2] = GUICtrlCreateRadio("Vier", 248, 248, 49, 17) $Button1 = GUICtrlCreateButton("Bestätigen", 176, 312, 265, 97, 0) GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif") GUISetState(@SW_SHOW) $hGUI2 = GUICreate("", 625, 445, 193, 125) GUISetFont(12, 400, 0, "MS Sans Serif") GUICtrlSetFont(GUICtrlCreateLabel("Bitte geben sie die Möglichkeiten ein!", 88, 24, 356, 30), 17, 400, 0, "MS Sans Serif") $hSubmit = GUICtrlCreateButton("Bestätigen", 192, 326, 241, 89, 0) While 1 * Sleep(10) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 $iWas = -1 For $i = 0 To UBound($Radio) - 1 If GUICtrlRead($Radio[$i]) = 1 Then $iWas = $i + 2 Next If $iWas > -1 Then GUISetState(@SW_HIDE, $hGUI) GUISetState(@SW_SHOW, $hGUI2) GUISwitch($hGUI2) GUISetFont(12, 400, 0, "MS Sans Serif") Dim $aInputs[$iWas] For $i = 0 To $iWas - 1 ConsoleWrite($i & @CRLF) GUICtrlCreateLabel($i + 1 & ".", 96, 136 + (49 * $i), 17, 24) $aInputs[$i] = GUICtrlCreateInput("", 120, 136 + (49 * $i), 449, 21) Next EndIf If $iWas = -1 Then MsgBox(0, "Fehler", "Bitte wählen sie eine Option aus!") Case $hSubmit For $i = 0 To UBound($aInputs) - 1 If GUICtrlRead($aInputs[$i]) = "" Then ContinueLoop 2 Next MsgBox(0, "Ergebnis", "UUUUUND... das ergebnis ist:", 2) MsgBox(0, "Ergebnis", GUICtrlRead($aInputs[Random(0, UBound($aInputs) - 1, 1)]), 2) ExitLoop EndSwitch WEnd MsgBox(0, "", "Danke das sie meinen Entscheidungshelfer benutzt haben!",3) Sleep(200) Exit

HotKeySet("{PRINTSCREEN}", "_CB") While 1 * Sleep(50) $aMPos = MouseGetPos() $iOpt = Opt("MouseCoordMode", 2) $aCMPos = MouseGetPos() Opt("MouseCoordMode", $iOpt) $iCol = PixelGetColor($aMPos[0], $aMPos[1]) $hWnd = WinGetHandle("") $aWPos = WinGetPos($hWnd) ToolTip( _ "Mausposition: " & @TAB & $aMPos[0] & ", " & $aMPos[1] & @CRLF & _ "Akt. Farbe: " & @TAB & "0x" & Hex($iCol, 6) & @CRLF & @CRLF & _ "Aktives Fenster: " & @TAB & WinGetTitle($hWnd) & @CRLF & _ "Fenster-Handle: " & @TAB & $hWnd & @CRLF & _ "Fensterposition: " & @TAB & $aWPos[0] & ", " & $aWPos[1] & @CRLF & _ "Rel. Mauskoord.: " & @TAB & $aCMPos[0] & ", " & $aCMPos[1] & @CRLF _ ) WEnd Func _CB() ClipPut( _ "Mausposition: " & @TAB & $aMPos[0] & ", " & $aMPos[1] & @CRLF & _ "Akt. Farbe: " & @TAB & "0x" & Hex($iCol, 6) & @CRLF & @CRLF & _ "Aktives Fenster: " & @TAB & WinGetTitle($hWnd) & @CRLF & _ "Fenster-Handle: " & @TAB & $hWnd & @CRLF & _ "Fensterposition: " & @TAB & $aWPos[0] & ", " & $aWPos[1] & @CRLF & _ "Rel. Mauskoord.: " & @TAB & $aCMPos[0] & ", " & $aCMPos[1] & @CRLF _ ) EndFunc ;==>_CB

Dim $aKeys[5] = ["{F5}", "{F6}", "{F7}", "{F8}", "{F9}"] Global $aHK[5], $aMSG[5], $ahHotkey[5], $ahMSG[5] For $i = 0 To UBound($aKeys) - 1 $aHK[$i] = IniRead("C:\Temp\config.ini", "config", $i + 1, $aKeys[$i]) $aMSG[$i] = IniRead("C:\Temp\config.ini", "msg", $i + 1, "Keine Nachricht gefunden!") HotKeySet($aHK[$i], "_SendMsg") Next HotKeySet('{ESC}', 'end') HotKeySet('^{f1}', 'show') HotKeySet('^{f2}', 'hide') Opt("TrayMenuMode", 1) Global $MenuItem = TrayCreateItem("Config einblenden") Global $MenuItem3 = TrayCreateItem("Config ausblenden") Global $MenuItem2 = TrayCreateItem("Beenden") #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Edit By SEuBo", 586, 462, 192, 124) For $i = 0 To UBound($aKeys) - 1 $ahMSG[$i] = GUICtrlCreateInput($aMSG[$i], 216, 56 + (79 * $i), 305, 21) $ahHotkey[$i] = GUICtrlCreateInput($aHK[$i], 27, 56 + (79 * $i), 129, 21) GUICtrlCreateLabel("HotKey", 32, 32 + (79 * $i), 39, 17) GUICtrlCreateLabel("Nachricht", 216, 32 + (79 * $i), 50, 17) Next $send = GUICtrlCreateButton("Speichern", 248, 404, 249, 33, $WS_GROUP) GUISetState(@SW_HIDE) While 1 Local $sKeys = "" For $i = 0 To UBound($aKeys) - 1 $sKeys &= $aKeys[$i] & "," Next ToolTip('Text Writer an , belegte Tasten: ' & StringTrimRight($sKeys, 1) & ' | Config einblenden: STRG+F1, Config ausblenden: STRG+F2, Beenden: ESC', 5, 5) $nMsg2 = TrayGetMsg() Switch $nMsg2 Case $MenuItem2 Exit Case $MenuItem GUISetState(@SW_SHOW) Case $MenuItem3 GUISetState(@SW_HIDE) EndSwitch $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $send For $i = 0 To UBound($aKeys) - 1 IniWrite("C:\Temp\config.ini", "config", $i + 1, GUICtrlRead($ahHotkey[$i])) IniWrite("C:\Temp\config.ini", "msg", "1", GUICtrlRead($aMSG[$i])) Next MsgBox(0, 'Erfolgreich', 'Erfolgreich gespeichert!') EndSwitch WEnd Func _SendMsg() For $i = 0 To UBound($aKeys) - 1 If @HotKeyPressed = $aKeys[$i] Then Send($aMSG[$i]) EndIf Next EndFunc ;==>_SendMsg Func show() GUISetState(@SW_SHOW) EndFunc ;==>show Func hide() GUISetState(@SW_HIDE) EndFunc ;==>hide Func end() Exit EndFunc ;==>end