功夫派改键源码大公开!按键精灵版
分类:功夫派,功夫派改键,功夫派外挂
应广大用户需求,这里我把功夫派改键——按键精灵版源代码公开,大家需要的话拿去吧,要改的话自己改
就当做新年礼物奉献给大家吧。有疑问的话可以找我,我是很好姐姐
=========华丽的分界线=========
Dim a
a=inputbox("本脚本的发布网站是什么?","使用认证")
If a="www.51saier.cn" Then
MessageBox ("认证成功"&vbcrlf&vbcrlf&"本脚本方便功夫派玩家操作"&vbcrlf&"喜欢左手控制方向右手攻击的玩家的选择,如果你喜欢默认按键,请不要使用本软件"&vbcrlf&"方向键不变"&vbcrlf&"Num1=C (攻击键)"&vbcrlf&"Num2=X (跳跃键)"&vbcrlf&"Num4~7对应键盘攻击热键ASDQW"&vbcrlf&"Num3=JK (JumpKick即跳踢,熊猫的选择)"&vbcrlf&"Num0=左冲刺"&vbcrlf&"Num.=右冲刺"&vbcrlf&vbcrlf&"注意按键速度不要太快,基本上是终止上个动作后才继续按")
Call 按键开始
Else
MessageBox ("对不起,认证失败")
EndScript
End If
EndScript
Sub 按键开始
While 1
key = WaitKey()
Select case key
Case 97
KeyPress 67, 1
Case 98
KeyPress 88, 1
Case 100
KeyPress 65, 1
Case 101
KeyPress 83, 1
Case 102
KeyPress 68, 1
Case 103
KeyPress 81, 1
Case 104
KeyPress 87, 1
Case 110
KeyPress "Right", 1
KeyDown "Right", 1
KeyPress 67, 1
KeyUp "Right", 1
Case 96
KeyPress "Left", 1
KeyDown "Left", 1
KeyPress "C", 1
KeyUp "Left", 1
Case 99
KeyPress "X", 1
KeyPress "C", 3
End Select
Wend
End Sub
Sub OnScriptExit()
RunApp "http://www.51saier.cn"
End Sub
=========华丽的分界线=========