按键精灵这个能不能帮我写个 谢谢_百度知道
按键精灵这个能不能帮我写个 谢谢
按键精灵这个能不能帮我写个
谢谢模拟按键
40-60秒范围内
范围内随机生成时间按 ↑ 一下
接着 0.2-1秒范围内 范围内随机生成时间按enter
一下整个动作无限重复
我有更好的答案
RandomizeDoT1&=&Int(((60&-&40&+&1)&*&Rnd)&+&40)TracePrint&T1Delay&t1&*&1000KeyPress&&Up&,&1T2&=&int(((10&-&2&+&1)&*&Rnd)&+&2)*100TracePrint&T2KeyPress&&Enter&,&1loop
如果在此基础上 加上
↑按键按下与弹起之间的延时
在59-97 毫秒范围内随机生成enter按键按下与弹起之间的延时 在91-134毫秒之间随机生成
应该怎么补充上呢？
就差这一步了
为您推荐：
其他类似问题
您可能关注的内容
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。我有个脚本是按键精灵 它的试用时间是30分钟 请大家帮我选择一个破解时间限制的软件 谢谢了_百度知道
我有个脚本是按键精灵 它的试用时间是30分钟 请大家帮我选择一个破解时间限制的软件 谢谢了
我有更好的答案
只有小精灵，没有原脚本破不了
采纳率：40%
为您推荐：
其他类似问题
您可能关注的内容
按键精灵的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。请高手门帮我优化下脚本谢谢。最要能长时间挂机的 _ 按键精灵手机版 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.9软件大小：62.5M更新时间：12-07
软件版本：1.3.1软件大小：29.2M更新时间：09-29
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 631|回复: 4
Dim txt_srk1,val_dxk1,val_dxk2,lis_xlk1,lis_xlk2,i,txt_srk2,txt_srk3,val_dxk3,txt_srk4,txt_srk5,rtxt_srk1=ReadUIConfig(&输入框1&,&默认值可写字符信息&)txt_srk2=ReadUIConfig(&输入框2&,&默认值可写字符信息&)txt_srk3=ReadUIConfig(&输入框3&,&默认值可写字符信息&)txt_srk4=ReadUIConfig(&输入框4&,&默认值可写字符信息&)txt_srk5=ReadUIConfig(&输入框5&,&默认值可写字符信息&)val_dxk1=ReadUIConfig(&多选框1&,true)val_dxk2=ReadUIConfig(&多选框2&,false)val_dxk3=ReadUIConfig(&多选框3&,false)lis_xlk1=ReadUIConfig(&下拉框1&,0)lis_xlk2=ReadUIConfig(&下拉框2&,0)Dim cscs= 0Sub 购买记录()
cs = cs + 1
ShowMessage &系统记录购买了&&cs&&次&End SubIf lis_xlk1=0 Then
While lis_xlk1=0
For txt_srk4
Call 初始坐标()
Call 十五号()
Delay 5000
WendEnd IfIf lis_xlk1=1 Then
While lis_xlk1=1
For txt_srk4
Call 初始坐标()
Call 十六号()
Delay 5000
WendEnd IfIf lis_xlk1=2 Then
While lis_xlk1=2
For txt_srk4
Call 初始坐标()
Call 十七号()
Delay 5000
WendEnd IfIf lis_xlk1=3 Then
While lis_xlk1=3
For txt_srk4
Call 初始坐标()
Call 十八号()
Delay 1000
WendEnd IfDelay 500Sub 十五号()
Tap 321, 58
Delay txt_srk1
Call 十五号门票()
Call 购买500门票()
If val_dxk2 = true and r=1 Then
Call 购买15门票2()
Call 查看邮件()End SubSub 十六号()
Tap 321, 58
Delay txt_srk1
Call 十六号门票()
Call 购买16门票()
If val_dxk2 = true and r=1 Then
Call 购买16门票2()
Call 查看邮件()End SubSub 十七号()
Tap 321, 58
Delay txt_srk1
Call 十七号门票()
Call 购买17门票()
If val_dxk2 = true and r=1 Then
Call 购买17门票2()
Call 查看邮件()End SubSub 十八号()
Tap 321, 58
Delay txt_srk1
Call 十八号门票()
Call 购买18号()
If val_dxk2 = true and r=1 Then
Call 购买18门票2()
Call 查看邮件()End SubSub 购买500门票()
If val_dxk1 = true Then
Dim intX,intY
FindPic 228,165,437,241,&Attachment:500.png&, &0&,0,0.9, intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
Delay txt_srk3
Tap intX+133, intY-35
Delay txt_srk3
Tap 388, 358
Delay 2000
Call 寄售()
End IfEnd SubSub 寄售()
Tap 160, 259//寄售
Delay 1000
Dim intX,intY
FindPic 703,138,894,197,&Attachment:没有东西.png&,&,0.8,intX,intY
If intX & -1 And intY & -1 Then
Tap 826, 187//石头
Delay 500Next
If lis_xlk2=1 Then
Call 价格输入()
Tap 455, 445//确定
Tap 395, 362//确定2
Delay 2000
Tap 162, 155//返回
Delay 1000End SubSub 查看邮件()
Dim intX,intY
FindPic 968,367,,&Attachment:查看邮件1.png&,&0&,0,0.8,intX,intY
If intX & -1 And intY & -1 Then
Call 查看还有没()
Dim intA1,intS1
FindPic 968,367,,&Attachment:查看邮件3.png&,&,0.7,intA1,intS1
If intA1 & -1 And intS1 & -1 Then
Call 查看还有没()
Dim intA2,intS2
FindPic 968,367,,&Attachment:查看邮件2.png&,&,0.7,intA2,intS2
If intA2 & -1 And intS2 & -1 Then
Call 查看还有没()
End IfEnd SubSub 十五号门票()
Tap 538, 175//15号门票
Delay txt_srk2End SubSub 十八号门票()
Tap 405, 258
Delay txt_srk2End SubSub 购买18号()
If val_dxk1 = true Then
Dim intX,intY
FindPic 228,165,437,241,&Attachment:5000.png&, &0&,0,0.9, intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
Delay txt_srk3
Tap intX+133, intY-35
Delay txt_srk3
Tap 388, 358
Delay 1000
Call 寄售()
intY = -1End SubSub 清除邀请啥的东西()
Dim intX,intY
FindPic 8,192,81,283,&Attachment:邀请.png&,&,0.9,intX,intY
If intX & -1 And intY & -1 Then
Tap 44, 225
Tap 502, 359
End IfEnd SubSub 购买16门票()
If val_dxk1 = true Then
Dim intX,intY
FindPic 228,165,437,241,&Attachment:1000.png&, &0&,0,0.8, intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
Delay txt_srk3
Tap intX+133, intY-35
Delay txt_srk3
Tap 388, 358
Delay 1000
Call 寄售()
////End SubSub 购买17门票()
If val_dxk1 = true Then
Dim intX,intY
FindPic 228,165,437,241,&Attachment:2000.png&, &0&,0,0.8, intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
Delay txt_srk3
Tap intX+133, intY-35
Delay txt_srk3
Tap 388, 358
Delay 1000
Call 寄售()
End IfEnd SubSub 十六号门票()
Tap 405,216
Delay txt_srk2End SubSub 十七号门票()
Tap 558,215
Delay txt_srk2End SubSub 价格输入()
Tap 469, 337
Delay 1000
KeyPress &Del&
Delay 1000
InputText txt_srk5
Tap 455, 445//确定
Delay 1000End SubSub 购买15门票2()
Dim intX,intY
FindPic 228,165,437,241,&Attachment:500魔石.png&, &0&,0,0.9, intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
Delay txt_srk3
Tap intX+133, intY-35
Delay txt_srk3
Tap 388, 358
Delay 1000
Call 寄售()
End IfEnd SubSub 购买16门票2()
Dim intX,intY
FindPic 228,165,437,241,&Attachment:1000魔石.png&, &0&,0,0.9, intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
Delay txt_srk3
Tap intX+133, intY-35
Delay txt_srk3
Tap 388, 358
Delay 1000
Call 寄售()
End IfEnd SubSub 购买17门票2()
Dim intX,intY
FindPic 228,165,437,241,&Attachment:2000魔石.png&, &0&,0,0.9, intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
Delay txt_srk3
Tap intX+133, intY-35
Delay txt_srk3
Tap 388, 358
Delay 1000
Call 寄售()
End IfEnd SubSub 购买18门票2()
Dim intX,intY
FindPic 228,165,437,241,&Attachment:5000魔石.png&, &0&,0,0.9, intX,intY
If intX & -1 And intY & -1 Then
Tap intX, intY
Delay txt_srk3
Tap intX+133, intY-35
Delay txt_srk3
Tap 388, 358
Delay 1000
Call 寄售()
End IfEnd SubSub 查看还有没()
Tap 974, 413
Delay 1500
Tap 454, 485
Delay 1500
Tap 92, 188
Delay 1500
Dim intA,intS
FindPic 576,450,740,512,&Attachment:提取附件.png&,&,0.6,intA,intS
If intA & -1 And intS & -1 Then
Tap 651, 485
Delay 1000
End IfWend
Tap 975, 414
Delay 1000tap
Delay 1000End SubSub 初始坐标()
While js=1Dim intX,intYFindPic 120,101,200,200,&Attachment:寄售列表.png&,&,0.9,intX,intYIf intX & -1 And intY & -1 Then js = 2End IfWendEnd Sub
大神呢？？？帮我看看。谢谢。。
似乎是魔域吧？
就是魔域的。抢票的东西
闽网文 (-037号谁能帮我做个脚本？按键精灵的_百度知道
谁能帮我做个脚本？按键精灵的
寻找大侠做一个针对一个窗口不停按ENTER的后台脚本，只针对一个窗口的，谢谢大侠，循环久一点，我目前的脚本是前台的，等我鼠标到桌面或者哪里时老是回车回车的，希望后台，只针对一个窗口，对其他没影响的，谢谢啦
PutAttachment .pluginPlugin hwnd = Window.GetKeyFocusWnd()For 999
KeyPress 13,99
EndFor EndFor
请大侠帮我改一下，改成后台，针对一个窗口不影响另外程序的，谢谢了，我用的是按键精灵
我有更好的答案
Dim Xuh,Yis,hwndUserVar Xuh=0 循环次数UserVar Yis=0 延时时间(毫秒)Delay 1000Plugin hwnd=Window.GetKeyFocusWnd()Delay 200For XuhDelay YisPlugin Window.SendKeyPress(hwnd,13)Delay YisEndForDelay 1000EndScript 复制到编辑界面然后保存
采纳率：33%
为您推荐：
其他类似问题
您可能关注的内容
按键精灵的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。求大神帮忙写个按键精灵脚本谢谢啦！！！_百度知道
求大神帮忙写个按键精灵脚本谢谢啦！！！
在窗口句柄198730 中的219，347 ——641，420这个范围检测这个图片，检测到了就单击这个图片一下再单击坐标415，471一下，如果没有检测到这个图片就单击坐标561，469一下
谢谢大神！！！
您的回答被采纳后将获得：
系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）
我有更好的答案
句柄是属于后台操作。按键目前不支持后台找图功能。
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。