论坛 › 已解决问题区 › 热键这样定错了吗???只是求加一个激活和退出的按键

lin6163 发表于 2009-6-4 11:01:34

热键这样定错了吗???只是求加一个激活和退出的按键

本帖最后由 lin6163 于 2009-6-5 22:40 编辑

#NoTrayIcon
HotKeySet("!+l", "Start")
HotKeySet("!+m", "myExit")

While 1
sleep(10)
WEnd

Func myExit()
    Exit
EndFunc

func Start()
HotKeySet("+r", "radmin")
HotKeySet("+s", "VNC")
HotKeySet("+c", "exit1")

While 1
sleep(10)
WEnd

Func radmin()
    run("C:\WINDOWS\system\a.exe")
EndFunc

func VNC()
        run("C:\WINDOWS\system\b.exe")
endfunc

func exit1()
    $aa = MsgBox ( 1+32, "警告", "你是否要退出!" )
if $aa = 1 Then
exit
EndIf
endfunc
endfunc

kn007 发表于 2009-6-4 12:58:46

不懂，留个名，有答案了好来看，学一学

lynfr8 发表于 2009-6-4 13:31:46

本帖最后由 lynfr8 于 2009-6-4 13:35 编辑

#NoTrayIcon
HotKeySet("!+l", "Start")
HotKeySet("!+m", "myExit")

While 1
sleep(10)
WEnd;你用了2次循环语句

func Start()
HotKeySet("+r", "radmin")
HotKeySet("+s", "VNC")
HotKeySet("+c", "exit1")
endfunc;就是这里你处理的不好，对热键的语法结构好像你还不是很清晰

Func myExit()
    Exit
EndFunc

Func radmin()
    run("C:\WINDOWS\system\a.exe")
EndFunc

func VNC()
      run("C:\WINDOWS\system\b.exe")
EndFunc

func exit1()
    $aa = MsgBox ( 1+32, "警告", "你是否要退出!" )
If $aa = 1 Then
Exit
EndIf
Endfunc

kn007 发表于 2009-6-4 13:52:58

学习了，13：51把#3保存到126

lin6163 发表于 2009-6-5 22:40:16

谢谢
lynfr8

查看完整版本: 热键这样定错了吗???只是求加一个激活和退出的按键