1.按键精灵 提问 源代码怎么写
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
//这一句是一行的
While True
KeyState = GetAsyncKeyState(81)
If KeyState KeyDown 74, 1
Else
KeyUp 74, 1
Delay 100
KeyPress 75, 1
End If
Wend
2.按键精灵知道代码,怎么写成脚本
打开按键精灵,切换到源文件模式,把代码直接粘贴就好了.然后点击上面发布。生成小精灵就OK了。
但这只能是没有附件,没有界面,没有插件的源码可以。
如果有界面,你需要按照代码,画出界面来。然后将附件添加进去。如果有其他支持库,你必须要有支持库文件,放在按键精灵plugin目录下,如:Q语言大学按键精灵支持库.dll。
至于如何判断代码是不是包含这些,只需要点击调试。如直接通过,则可以直接发布成EXE小精灵。如果无法通过,可以在下方调试的脚本信息,查看需要一些什么
专业作者回答,请采纳。如有以问,请追问
3.求大神写一个按键精灵脚本代码
按键精灵的鼠标动作录制是一项非常好用的功能,但因为鼠标点击的地方是固定死板的,且延迟时间无法调整,如果在后台脚本中添加一些专用代码,就可以调整点击频率和点击时间,甚至可以在安卓模拟器上使用模拟按压式点击,当然,这只是冰山一角,创造脚本为专业连续作业做准备才好玩呢!

按键精灵脚本代码大全:
小技巧:按Ctrl+F,输入命令,即可进行查找定位:
按键精灵命令使用方法:
键盘命令分为两大类:键盘模拟命令和键盘控制命令.键盘模拟命令可以模拟我们日常操作键盘的行为.操作键盘的动作分为三类:按下、弹起、按下并弹起.键盘控制命令可以在脚本执行过程中通过键盘控制脚本行为.
[KeyPress、KeyPressS、KeyPressH]
格式: KeyPress {键盘虚拟码},{次数}
解释: 先"按下"再"弹起"键,模拟我们平时的"按键"操作
4.按键精灵颜色判断代码怎么写
/**按住滑动*/
MoveTo 782,1277//鼠标移动到782,1277
LeftDown 1//左键按下
MoveTo 760, 1680//鼠标移动到760,1680
LeftUp 1//左键弹起
/**颜色判断*/
IfColor 628,1846,"#FF6600",0 Then//如果点628,1846等于#FF6600
MoveTo 785, 1835//鼠标移动到785,1835
LeftClick 1//左键点击一次
//持续。。。怎么个持续法?点击几次还是按住不动?或者是别的?
IfColor 234,600,"#FF6600",0 Then
EndScript//脚本停止运行
Else
//重复运行
//从哪里开始重复?
End If
Else //如果点628,1846不等于#FF6600
//怎么办?
End If持续点击怎么持续?循环从哪里循环?第一个条件不符合怎么办?代码填完整就能用了
5.按键精灵随机输入文本代码怎么写
Dim Y(9),Z(9)
Val = InputBox("用|分隔","请输入10个字或词","你好|再见|老头|郁闷|努力|神马|纠结|Seven|Eight|Nine",7000,7000)
X = Split(Val, "|")
i=0
Rem 随机数
If i=10
Goto 输出
End If
randomize(timer)
n=int(10*rnd)
If n=10
Goto 随机数
End If
j=0
Rem 随机排序
If j=i
Z(j)=n
i=i+1
Goto 随机数
Else
If Z(j)=n
Goto 随机数
Else
j=j+1
Goto 随机排序
End If
End If
Rem 输出
i=0
For 10
Y(i)=X(Z(i))
i=i+1
Next
Call RunApp("notepad.exe")
Delay 1000
Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")
Hwnd = Plugin.Window.FindEx(Hwnd, 0, "Edit", 0)
i=0
For 10
Call Plugin.Window.SendString(hwnd,Y(i))
Call Plugin.Bkgnd.KeyPress(hwnd,13)
i=i+1
Next
6.求按键精灵代码
Rem 等待按键1
WaitKey key
TracePrint "用户按下的键是:" & key
If key=65
Gosub XXX
//执行你需要的东西.
Delay 1000
Goto 等待按键1
EndScript
SUB XXX
这里加你的脚本内容
RETURN XXX
将你要执行的XXX写成SUB,然后调用
方法2
直接写你要直接的XXX,然后开始键设为A,即可
7.按键精灵 翻页代码怎么写
FindPic fanyeX,fanyeY,fanye1X,fanye1Y,"Attachment:\3221.bmp",1,intX2,intY2
FindPic fanyeX,fanyeY,fanye1X,fanye1Y,"Attachment:\12.bmp",1,intX3,intY3
FindPic fanyeX,fanyeY,fanye1X,fanye1Y,"Attachment:\21.bmp",1,intX4,intY4
FindPic fanyeX,fanyeY,fanye1X,fanye1Y,"Attachment:\321.bmp",1,intX1,intY1
If intX1 > 0 And intY1 > 0 Then
Call shouye()
ElseIf intX2 > 0 And intY2 > 0 Then
Call xiayiye()
ElseIf intX3 > 0 And intY3 > 0 Then
Call xiayiye()
ElseIf intX4 > 0 And intY4 > 0 Then
Call shouye()
Else
MessageBox "没有找到图片"
End If完成。
8.帮写一段按键精灵代码
//以下只是参考指令,楼主执行修改,如果有不明白的地方可以追问!
//判断A点颜色
Rem A点颜色
IfColor 0,0,0,0
//当色点等于A,则移动鼠标到某处,按一下左键,
MoveTo 0,0
Delay 100
LeftClick 1
//然后移动到另一点再按一下鼠标左键。
moveto 0,0
Delay 100
LeftClick 1
Else
//设置点延时
Delay 100
//当不等于A时判断下面
Goto B点颜色
EndIf
//判断B点颜色
Rem B点颜色
IfColor 0,0,0,0
//当颜色等于B,则ATL+C,
KeyDown 18,1
KeyPress 67,1
KeyUp 18,1
//延迟500毫秒ALT+V。
Delay 500
KeyDown 18,1
KeyPress 86,1
KeyUp 18,1
Else
//当颜色不等于B,则ALT+W
KeyDown 18,1
KeyPress 87,1
KeyUp 18,1
EndIf
//脚本结束
EndScript
有什么不懂的楼主可以追问