育才学习网1.按键精灵子程序怎么用
先说一下子程序的意思，子程序如一个箱子，你可以往里面安放各种代码，当你要用到里面的代码的时候，你就可以调用子程序，执行copy里面的代码。子程序一般是用在某段代码应用较多的时候，反复输代码太麻烦，不如存进一个子程序，想用的时候一句调用就可以了。下面说一下按键8及以上版本的语法。
例：
Sub a
LeftClick 1
End Sub
Call a
Call a
Call a
粘贴到按键精知灵上，运行脚本，鼠标会连续点击三次。这段代码的意思是先建立一个子程序，叫a（子程序名是你自己定的，中文也行），里面装着鼠标单击一次的命令，下道面调用三次子程序a，意思就是执行三次子程序a里的命令，所以鼠标就会单击三次。明白了吗？
全手打，望采纳。
2.怎么设置按键精灵子程序
好吧，我来消灭0回复：
（按键版本：8.x ）
//支持Exit Sub 命令退出子程序过程
Call 子程序（）
EndScript
Sub 子程序（）
Msgbox "我是子程序，被你调用了"
End Sub
（按键版本： 7.x）
Gosub 子程序
EndScript
Sub 子程序
Msgbox "我是子程序，被你调用了"
Return 子程序
可以把“子程序”这几个字改成你想要的子程序名字
3.按键精灵 怎么按自己的设置的命令 运行某子程序
Dim Input
Do
Input = InputBox（"请输入运行的程序，提示：12356"）
If int(len(Input))>6 or int(len(Input))<=0
Else
For a=1 to len(Input)
if int(Mid(Input, a, 1))=1
call q1()
ElseIf int(Mid(Input, a, 1))=2
call q2()
ElseIf int(Mid(Input, a, 1))=3
call q3()
ElseIf int(Mid(Input, a, 1))=4
call q4()
ElseIf int(Mid(Input, a, 1))=5
call q5()
ElseIf int(Mid(Input, a, 1))=6
call q6()
End If
Next
Exit Do
End If
Loop
Sub q1()
MessageBox "运行q1"
End Sub
Sub q2()
MessageBox "运行q2"
End Sub
Sub q3()
MessageBox "运行q3"
End Sub
Sub q4()
MessageBox "运行q4"
End Sub
Sub q5()
MessageBox "运行q5"
End Sub
Sub q6()
MessageBox "运行q6"
End Sub
4.按键精灵中 怎么给子程序定义一个参数
这主要涉及到sub与function过程的应用。
只能给你说个大概思路。看代码//每隔5分钟循环判断背包DoWhiletrueIf判断（）=trueThenExitDo//这句代码意思：先执行判断（）子程序，取得其返回值。
如果返回值是true，即背包满了，就跳出循环Delay5*60*1000//延迟5分钟loopCall回城（）Call卖东西（）Function判断（）//背包满了返回真，否则返回假Dimrefer//定义局部变量If判断条件成立Thenrefer=trueElserefer=falseEndIf判断=refer//返回refer值EndFunctionSub回城（）EndSubSub卖东西（）EndSub大致思路就这样，中间涉及到很多细节问题，需要你自己去完善。比如回城前应停止打怪；回城后怎样找到商人；卖东西，哪些卖，哪些不卖。
卖完东西后怎么返回挂机地点。
5.按键精灵 子程序选择
While True
Key = WaitKey（) //等待按键按下，获取按下键的ASCII码，按键精灵里面有查询ASCII码
//在按键精灵里面，是不用定义变量的（数组和环境变量要定义）。
//有关全局变量和局部变量，例子脚本里面有。
Select Case Key
Case 65 : Call 单怪（）
Case 66 : Call 多怪（）
End Select
Wend
Sub 单怪（）
//写执行打单怪代码，注意代码不能是死循环
End Sub
Sub 多怪（）
//写执行打多怪代码，注意代码不能是死循环
End Sub
//代码实现功能：按一下A键打单怪，按一下B键，打多怪
//如果打怪程序是死循环，打完怪后你要先停止脚本，再启动
转载请注明出处育才学习网 » 按键精灵怎么写子程序