UC知道求助！按键精灵高手
来源：百度知道 编辑：UC知道 时间：2024/06/18 17:06:51
Rem start
key=0
WaitKey key
If key=90 （按Z 程序234自动停止 而程序1 自动重复 怎么加）
Gosub 程序1
ElseIf key=88 （按X 程序134自动停止 而程序2 自动重复 怎么加）
Gosub 程序2
ElseIf key=65 （按A 程序124自动停止 而程序3 自动重复 怎么加）
Gosub 程序3
ElseIf key=83 （按S 程序123自动停止 而程序4 自动重复 怎么加）
Gosub 程序4
ElseIf key=48 （这里按0 程序 1234 全部停止 怎么加）
？？？？？？？
EndIf
Goto start
EndScript
Sub 程序1
msgbox "这里是程序1"
Return 程序1
Sub 程序2
msgbox "这里是程序2"
Return 程序2
Sub 程序3
msgbox "这里是程序3"
Return 程序3
Sub 程序4
msgbox "这里是程序4"
Return 程序4
自动重复在下面程序里加也可以 请问怎么加
谢谢！！！！
正确了 肯定还要加
key=0
WaitKey key
If key=90 （按Z 程序234自动停止 而程序1 自动重复 怎么加）
Gosub 程序1
ElseIf key=88 （按X 程序134自动停止 而程序2 自动重复 怎么加）
Gosub 程序2
ElseIf key=65 （按A 程序124自动停止 而程序3 自动重复 怎么加）
Gosub 程序3
ElseIf key=83 （按S 程序123自动停止 而程序4 自动重复 怎么加）
Gosub 程序4
ElseIf key=48 （这里按0 程序 1234 全部停止 怎么加）
？？？？？？？
EndIf
Goto start
EndScript
Sub 程序1
msgbox "这里是程序1"
Return 程序1
Sub 程序2
msgbox "这里是程序2"
Return 程序2
Sub 程序3
msgbox "这里是程序3"
Return 程序3
Sub 程序4
msgbox "这里是程序4"
Return 程序4
自动重复在下面程序里加也可以 请问怎么加
谢谢！！！！
正确了 肯定还要加
5分确实太少了，不过还是说说我的想法吧。
Sub 程序1
rem 程序1开始
GetLastKey LastKey
If Chr(LastKey)="Z"
msgbox "这里是程序1"
goto 程序1开始
endif
return 程序1
...
sub2、3、4如法炮制
另外主程序里的按0全停止是不是意为结束脚本呢？
可以这样子：
...
ElseIf key=48
goto 结束
EndIf
Goto start
rem 结束
EndScript
5分太小气了！
你这个用子程序的方式来写还不如用GOTO+REM注释来实现，用GOSUB的方式有点复杂