Beiträge von Fast2

  • MSN für Kinder Zeitlich begrenzen (Prozess loggen und automatisch beenden)

    Dann schreibt man sich noch ein Script, welches einfach nur durchgehend alle geöffneten Programme loggt und per gehidetem Explorerfenster gestartet wird(wegen "Prozessstruktur beenden"). Dann schreibt das Script in eine sehr gut versteckte Datei immer wieder "Events" So dass dann die Logdatei so in etwa aussieht(Kommentare die nicht in die Datei gehören mit "§" am Anfang:

    Spoiler anzeigen


    Das muss man nur noch umsetzen ;)
    Edit: Das Programm sollte nicht per Registry oder ähnlichem Autostarten(msconfig.exe) , dafür braucht man auch noch ne Lösung.

  • _IELoadWait, Error

    Vllt. liegts ja daran dass die ganze Bedienoberfläche(zumindest bei mir, FritzBox Fon Wlan 7170) mit JavaScript bestückt(es geht gar nix, falls nicht aktiviert)
    Allerdings muss ich zugeben das ich mich mit diesen IE.au3 Funktionen nicht auskenn, also sollte es nicht daran liegen, dann ignoriert meinen Post einfach. ;)

  • Überwachen eines Prozesses und rebooten des Rechners zu einer bestimmten Zeit

    Hä? Ich habe jetzt diese Diskussion verfolgt, aber entweder das liegt am neuen AutoIt, oder ich hab was falsch verstanden, denn wenn ich diesen Code ausführe kommt immer das richtige Ergebnis:

    [autoit]

    If Not StringIsDigit($NU) Then
    Select
    Case StringIsDigit($XC) = 0
    $FM &= $XC & @CRLF
    ContinueCase
    Case StringIsDigit($MC) = 0
    $FM &= $MC & @CRLF
    ContinueCase
    Case StringIsDigit($HC) = 0
    $FM &= $HC & @CRLF
    EndSelect
    MsgBox(16, "Fehler", $FM)
    EndIf

    [/autoit]
    Die Werte entstehen so
    [autoit]


    Dim $FM = ""
    $XC = IniRead(@ScriptDir&"\test.ini", "ACK", "XC", "Der Wert XC in der INI wurde auf eine nicht gültige Weise verändert!")
    $MC = IniRead(@ScriptDir&"\test.ini", "ACK", "MA", "Der Wert MA in der INI wurde auf eine nicht gültige Weise verändert!")
    $HC = IniRead(@ScriptDir&"\test.ini", "ACK", "HA", "Der Wert HA in der INI wurde auf eine nicht gültige Weise verändert!")
    $NU = $XC&$MC&$HC&

    [/autoit]


    Der Inhalt der INI(Natürlich nur der Ausschnitt):
    [ACK]
    XC=630
    MA=610
    HA=630
    AA=650


    Bei mir kommt da ganz normal keine ErrorMsg, ändere ich die Werte jedoch, so das auch Buchstaben vorhanden sind, oder lösche ich diese bekomme ich die richtige Fehlernachricht.
    Edit: Beim testen der Codeschnipsel ist mir aufgefallen das die Methode den Inhalt des Schlüssels und nicht den Defalt vom IniRead liefert, wenn man etwas austauscht. Peinlich peinlich... ;) :D :rolleyes:

  • hnzck is wieder da und bringt wieder n porblem mit

    Hatten wir das nicht schonmal? Oder war das im Englischen? Im Englischen aber auf alle Fälle, denn da hab ich diesen Code her:

    Das ist zu 99% die Hälfte der Lösung
    [autoit]

    ;Laut Post im EN-Forum von amel27
    ;Quelle: http://www.autoitscript.com/forum/index.ph…opic=40690&st=0
    ;Example for using with DllCallBack.au3 library (for AutoIt v3.8.2.1 and lower)

    [/autoit]

    #include <DllCallBack.au3>
    Global $hWinHook

    $CallBackProc = TogglePlugKeyBoard()
    MsgBox(4096, "", "KeyBoard is disabled, press OK to enable it smile.gif.")

    TogglePlugKeyBoard($CallBackProc)
    MsgBox(4096, "", "KeyBoard is enabled!")

    Exit

    Func TogglePlugKeyBoard($hCallProc=0)
    If IsArray($hWinHook) Then
    DllCall("user32.dll", "int", "UnhookWindowsHookEx", "hwnd", $hWinHook[0])
    _DllCallBack_Free($hCallProc)
    Return 0
    EndIf

    Local Const $WH_KEYBOARD_LL = 13
    Local $hKeyProc = _DllCallBack("_KeyProc", "int;ptr;ptr")
    Local $hMod = DllCall("kernel32.dll", "hwnd", "GetModuleHandle", "ptr", 0)
    $hWinHook = DllCall("user32.dll", "hwnd", "SetWindowsHookEx", _
    "int", $WH_KEYBOARD_LL, _
    "ptr", $hKeyProc, _
    "hwnd", $hMod[0], _
    "dword", 0)
    Return $hKeyProc
    EndFunc

    Func _KeyProc($nCode, $wParam, $lParam)
    If $nCode < 0 Then
    Local $iRet = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hWinHook[0], _
    "int", $nCode, _
    "ptr", $wParam, _
    "ptr", $lParam)
    Return $iRet[0]
    EndIf
    Return 1
    EndFunc


    ;=============================================
    ;Example only for AutoIt v3.2.10.0 and higher:

    Global $hWinHook

    $CallBackProc = TogglePlugKeyBoard()
    MsgBox(4096, "", "KeyBoard is disabled, press OK to enable it smile.gif.")

    TogglePlugKeyBoard($CallBackProc)
    MsgBox(4096, "", "KeyBoard is enabled!")

    Exit

    Func TogglePlugKeyBoard($hCallProc=0)
    If IsArray($hWinHook) Then
    DllCall("user32.dll", "int", "UnhookWindowsHookEx", "hwnd", $hWinHook[0])
    DllCallbackFree($hCallProc)
    Return 0
    EndIf

    Local Const $WH_KEYBOARD_LL = 13
    Local $hKeyProc = DllCallbackRegister("_KeyProc", "int", "int;ptr;ptr")
    Local $hMod = DllCall("kernel32.dll", "hwnd", "GetModuleHandle", "ptr", 0)
    $hWinHook = DllCall("user32.dll", "hwnd", "SetWindowsHookEx", _
    "int", $WH_KEYBOARD_LL, _
    "ptr", DllCallbackGetPtr($hKeyProc), _
    "hwnd", $hMod[0], _
    "dword", 0)
    Return $hKeyProc
    EndFunc

    Func _KeyProc($nCode, $wParam, $lParam)
    If $nCode < 0 Then
    Local $iRet = DllCall("user32.dll", "long", "CallNextHookEx", "hwnd", $hWinHook[0], _
    "int", $nCode, _
    "ptr", $wParam, _
    "ptr", $lParam)
    Return $iRet[0]
    EndIf
    Return 1
    EndFunc

    [autoit][/autoit]

    So, wie du das Einbaust usw: keine Ahnung, experimentieren :D:rofl:^^:whistling:

  • GuiSetHelp

    Es geht bestimmt einfacher, aber man könnte ja auch mit einer Funktion die so alle 500ms ausgerufen wird (mit AdlibEnable()) überprüfen, welches Fenster gerade aktiv ist, und dann die HotKeys setzten/entfernen.