Schnelltasten erstellen

  • Hi!

    Ich bin vor kurzem auf das Programm Autoit und somit auch auf diese Forum gestoßen.
    Leider komme ich mit dem Programm noch nicht so klar :S

    Und zwar wollte ich jemanden von euch bitten mir einen Skript zu schreiben, welcher Folgende Schnelltasten enthält:

    Beim drücken der F1-Taste soll die Helligkeit verringert werden, bei F2 die Helligkeit erhöht und bei F3 der Internet Explorer geöffnet werden.
    Habe schon überall gesucht aber nirgends so nen Programm gefunden.
    Vielen Dank für eure Hilfe!

  • So gehts:

    Spoiler anzeigen
    [autoit]

    HotKeySet ("{F1}", "_1")
    HotKeySet ("{F2}", "_2")
    HotKeySet ("{F3}", "_ie")

    [/autoit] [autoit][/autoit] [autoit]

    Func _1 ()
    MsgBox (0, "", "Sry, keine Ahnung wie man die Helligkeit verstellt!")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _2 ()
    MsgBox (0, "", "Sry, keine Ahnung wie man die Helligkeit verstellt!")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _ie ()
    Run (@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    Sleep (100)
    WEnd

    [/autoit]

    MfG. tobi_girst

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

  • Moing,

    probier das mal aus....

    Wie immer keine Garantie!

    F1 dunkler
    F2 Heller
    F3 InternetExporer
    F4 normale Helligkeit
    F11 beendet das script...

    Spoiler anzeigen
    [autoit]

    HotKeySet ("{F1}", "_1")
    HotKeySet ("{F2}", "_2")
    HotKeySet ("{F3}", "_ie")
    HotKeySet ("{F4}", "normal")
    HotKeySet ("{F11}", "ende")

    [/autoit] [autoit][/autoit] [autoit]

    $rgb = 128

    [/autoit] [autoit][/autoit] [autoit]

    Func _2 ()
    if $rgb < 286 Then
    $rgb = $rgb + 10
    _SetGamma($rgb, $rgb, $rgb)
    EndIf

    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _1 ()
    if $rgb > 0 Then
    $rgb =$rgb - 10
    _SetGamma ($rgb, $rgb, $rgb)
    EndIf

    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func _ie ()
    Shellexecute ("IEXPLORE.exe")
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func normal ()
    $rgb = 128
    _SetGamma ($rgb, $rgb, $rgb)
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    Func ende ()
    exit
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    Sleep (100)
    WEnd

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    Func _SetGamma($vRed=128,$vGreen=128,$vBlue=128)

    Local $n_ramp,$rVar,$gVar,$bVar,$Ret,$i,$dc

    If $vRed < 0 or $vRed > 386 then
    SetError(1)
    Return -1 ;Invalid Red value
    EndIf

    If $vGreen < 0 or $vGreen > 386 then
    SetError(2)
    Return -1 ;Invalid Green value
    EndIf

    If $vBlue < 0 or $vBlue > 386 then
    SetError(3)
    Return -1 ;Invalid Blue value
    EndIf

    $dc = DLLCall("user32.dll","int","GetDC","hwnd",0)
    $n_ramp = DllStructCreate("short[" & (256*3) & "]")

    [/autoit] [autoit][/autoit] [autoit]

    For $i = 0 to 256

    [/autoit] [autoit][/autoit] [autoit]

    $rVar = $i * ($vRed + 128)
    If $rVar > 65535 then $rVar = 65535
    $gVar = $i * ($vGreen + 128)
    If $gVar > 65535 then $gVar = 65535
    $bVar = $i * ($vBlue + 128)
    If $bVar > 65535 then $bVar = 65535

    DllStructSetData($n_ramp,1,Int($rVar),$i) ;red
    DllStructSetData($n_ramp,1,Int($gVar),$i+256) ;green
    DllStructSetData($n_ramp,1,Int($bVar),$i+512) ;blue

    [/autoit] [autoit][/autoit] [autoit]

    Next

    $ret = DLLCall("gdi32.dll","int","SetDeviceGammaRamp", _
    "int",$dc[0],"ptr",DllStructGetPtr($n_Ramp))

    $dc = 0
    $n_Ramp = 0

    [/autoit] [autoit][/autoit] [autoit]

    EndFunc

    [/autoit]
  • Und sowas lässt sich leicht erweitern ;)
    Theoretisch wäre es für dich vielleicht besser, wenn du für die Helligkeit Strg+Pfeil-runter oder hoch usw. machst...