麻烦哪位好人帮我写个按键精灵脚本 非常简单 谢谢_百度知道
麻烦哪位好人帮我写个按键精灵脚本 非常简单 谢谢
1秒钟按下1 1分钟按下F3 3分钟按下E 无限循环
我有更好的答案
由于按键精灵是直线型的编程方式.但是你给的说明有些模糊.我是这样理解的:1:每隔一秒钟按一下12:每隔1分钟按一下F33:每隔3分钟按下E这三个步骤的时间各不相关,并且保持独立.如果我理解的是对的,上线请M我.我会根据你的要求尽我所能吧代码完善达到其他语言的时钟效果.
采纳率：35%
确实是简单，这是按键精灵的入门教程，它的说明里就有，一看就会。
等会哈, 我给你写个去 , 有啥问题你Hi我Delay 1000KeyPress 97,1Delay 60000KeyPress 114,1Delay 180000KeyPress 69,1
Rem xhFor 3
KeyPress 49,1
Delay 1000
KeyPress 114,1EndFor KeyPress 69,1Goto xh
楼上的，我加你好友了哈，你也加我吧Dim t now u t=nowu=nowdate1=date2 Rem XHKeyPress 49,1If DateDiff(&s&,t,now)&=180Gosub ANEElseIf DateDiff(&s&,u,now)&=60Gosub ANF3EndIfGoto XHSub ANEKeyPress 69,1t=nowGoto XHReturn ANESub ANF3KeyPress 114,1u=nowGoto XHReturn ANF3试试
其他2条回答
为您推荐：
其他类似问题
您可能关注的内容
按键精灵脚本的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。我有个脚本是按键精灵 它的试用时间是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
查看: 628|回复: 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号谁帮我写一个超级简单的手机脚本【按键精灵吧】_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：401,784贴子：
谁帮我写一个超级简单的手机脚本收藏
我手机按键精灵，按音量键不管用。求大神帮我写个不断点手机屏幕某个点的脚本就行。就是间隔0.3秒点一下某个点。我邮箱。谢谢大神么了！
全自动挂机app引流脚本工作室,别人主动来加你好友,新一代微商软件,精准男粉女粉流量,多款微商app引流脚本软件工作室,可任意定位加附近的人
就是炼金那个位置
每0.3秒点一下炼金就行
我手机是5.5寸的
求大神帮帮忙
登录百度帐号