hi! ich bins (jaja schon wieder)
ich hab nur noch ein großes problen (für mich ist das groß)
ich schreibe gerade an menem ersten wirklichem Projekt, das per druck aud eine der 10 numpad Zahlentasten ein programm öffnet. nur solange das programm läuft sind die zahlentasten dann ja von dem skript belegt und man kan die tasten nicht mehr "normal" nutzen. deshalb hab ich gesagt wen numlock off ist dann sind die tasten von dem skript belegt und wen sie auf on ist sind es normale numtasten
Spoiler anzeigen
$standartpfadini = @ScriptDir &"\programme.ini"
$standartpfad = @ScriptDir &"\Programme ändern.exe"
$standartpfadmenue = @ScriptDir &"\Hauptmenü.exe"
$standartpfad = @ScriptDir &"\office.HOTkeys_v0.3 BETA.exe"
$profilaktiv = IniRead($standartpfadini,"select","Profil","-kein Profil gewählt-")
;###################PFAD###################
$1 = Iniread($standartpfadini,$profilaktiv,"1","0")
$2 = Iniread($standartpfadini,$profilaktiv,"2","0")
$3 = Iniread($standartpfadini,$profilaktiv,"3","0")
$4 = Iniread($standartpfadini,$profilaktiv,"4","0")
$5 = Iniread($standartpfadini,$profilaktiv,"5","0")
$6 = Iniread($standartpfadini,$profilaktiv,"6","0")
$7 = Iniread($standartpfadini,$profilaktiv,"7","0")
$8 = Iniread($standartpfadini,$profilaktiv,"8","0")
$9 = Iniread($standartpfadini,$profilaktiv,"9","0")
$0 = Iniread($standartpfadini,$profilaktiv,"0","0")
;#################NAME#####################
$n1 = Iniread($standartpfadini,$profilaktiv,"n1","0")
$n2 = Iniread($standartpfadini,$profilaktiv,"n2","0")
$n3 = Iniread($standartpfadini,$profilaktiv,"n3","0")
$n4 = Iniread($standartpfadini,$profilaktiv,"n4","0")
$n5 = Iniread($standartpfadini,$profilaktiv,"n5","0")
$n6 = Iniread($standartpfadini,$profilaktiv,"n6","0")
$n7 = Iniread($standartpfadini,$profilaktiv,"n7","0")
$n8 = Iniread($standartpfadini,$profilaktiv,"n8","0")
$n9 = Iniread($standartpfadini,$profilaktiv,"n9","0")
$n0 = Iniread($standartpfadini,$profilaktiv,"n0","0")
While 1
$num = DllCall("user32.dll","long","GetKeyState","long",0x90)
If $num[0] = 1 Then
$a = "1"
Else
$a = "0"
EndIf
if $a = "1" Then
ToolTip("aktiv",0,0,)
sleep(200)
exitloop
soweit komm ich und es funktioniert auch. wen die numpad led leuchtet bleibt es in der schlaufe und wenn nicht leuft das skript weiter. wenn ich dann aber (während das skript läuft auf die numlock taste drücke und es vorher "aktiv" wahr (also die sleife bereits verlassen hat) kan ich drücken was soviel ich will. es bleibt ja aus der schlaufe drausen.
1. kann ich irgend wie sagen das es wieder zurück in die schlaufe soll?
2. wen nicht welche möglichkeiten giebt es sonst?
Spoiler anzeigen
ElseIf $a = "0" Then
ToolTip("inaktiv",0,0,)
sleep(200)
endif
WEnd
HotKeySet ( "{NUMPAD1}","p1")
HotKeySet ( "{NUMPAD2}","p2")
HotKeySet ( "{NUMPAD3}","p3")
HotKeySet ( "{NUMPAD4}","p4")
HotKeySet ( "{NUMPAD5}","p5")
HotKeySet ( "{NUMPAD6}","p6")
HotKeySet ( "{NUMPAD7}","p7")
HotKeySet ( "{NUMPAD8}","p8")
HotKeySet ( "{NUMPAD9}","p9")
HotKeySet ( "{NUMPAD0}","p0")
HotKeySet ( "{NUMPADADD}","po")
HotKeySet ( "{NUMPADSUB}","pi")
HotKeySet ( "{NUMPADMULT}","pm")
HotKeySet ( "{ESC}", "Terminate")
While 1
Sleep(100)
WEnd
;####################################
Func p1()
run ($1)
EndFunc
Func p2()
run ($2)
EndFunc
Func p3()
run ($3)
EndFunc
Func p4()
run ($4)
EndFunc
Func p5()
run ($5)
EndFunc
Func p6()
run ($6)
EndFunc
Func p7()
run ($7)
EndFunc
Func p8()
run ($8)
EndFunc
Func p9()
run ($9)
EndFunc
Func p0()
run ($0)
EndFunc
Func po()
MsgBox(0,"office.HOTkeys-Programme","1. " & $n1 & @CRLF & "2. " & $n2 & @CRLF & "3. " & $n3 & @CRLF & "4. " & $n4 & @CRLF & "5. " & $n5 & @CRLF & "6. " & $n6 & @CRLF & "7. " & $n7 & @CRLF & "8. " & $n8 & @CRLF & "9. " & $n9 & @CRLF & "0. " & $n0)
EndFunc
Func pi()
run ($standartpfadmenue)
EndFunc
Func pm()
run ($standartpfad)
exit
EndFunc
Func Terminate()
Exit 0
EndFunc
danke in vorhinein
Edit BugFix: Bitte Spoiler verwenden!
