按键精灵怎么设置找两个图,当找两个图才执行
按时间排序
FindPic 0,0,,&Attachment:\神盾1.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 Then
FindPic 0,0,,&Attachment:\神盾2.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
//要执行的代码
End IfEnd If
Call 注册Call 绑定A类 = &a1.bmp|a2.bmp|a3.bmp|a4.bmp|a5.bmp&//如果图片多,可以再加A类 = split(A类, &|&)//数组B类 = &b1.bmp|b2.bmp&C类 = &c1.bmp|c2.bmp&Do//这个是无限循环,当A类的N个图片找完后,反回继续从A类第一个图片开始找,如此反复,直到你停止脚本运行
For i = 0 To UBound(A类)
dm_ret = dm.FindPic(0, 0, , A类(i), &000000&, 0.9, 0, x, y)
If x &= 0 and y &= 0 Then
dm.MoveTo x + 5, y + 5
dm.LeftClick
Exit Do//找到A类第i个图后跳出循环,否则一直找
dm_ret = dm.FindPic(0, 0, , 图B, &000000&, 0.9, 0, x, y)
If x &= 0 and y &= 0 Then
dm.MoveTo x + 5, y + 5
dm.LeftClick
Exit Do //找到B类图内的任一图片后跳出循环,否则一直找
dm_ret = dm.FindPic(0, 0, , 图C, &000000&, 0.9, 0, x, y)
If x &= 0 and y &= 0 Then
dm.MoveTo x + 5, y + 5
dm.LeftClick
Exit Do//找到C类图内的任一图片后跳出循环,否则一直找
//这组找完,返回并找下一个A类图片
//A类图片都找完了,如果想一直循环找,就加一个无限循环Loop Sub 绑定
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd,&dx2&,&windows2&,&dx&,0)
Delay 1000
If dm_ret = 1 Then
Call Plugin.Msg.Tips(&绑定成功&)
End IfEnd SubSub 注册大漠()
need_ver = &3.1233&
set ws=createobject(&Wscript.Shell&)
ws.run &regsvr32 atl.dll /s&
set ws=nothing
PutAttachment &c:\test_game&,&*.*&
PutAttachment &.\Plugin&, &RegDll.dll&
Call Plugin.RegDll.Reg(&c:\test_game\dm.dll&)
set dm = createobject(&dm.dmsoft&)
ver = dm.Ver()
if ver && need_ver then
set dm = nothing
set ws=createobject(&Wscript.Shell&)
ws.run &regsvr32 c:\test_game\dm.dll /s&
set ws=nothing
set dm = createobject(&dm.dmsoft&)
ver = dm.Ver()
if ver && need_ver then
messagebox &插件版本错误,当前使用的版本是:&&ver&&,插件所在目录是:&&dm.GetBasePath()
messagebox &请关闭程序,重新打开本程序再尝试&
dm.SetPath &c:\test_game&
dm_ret = dm.SetDict(0, &dm_soft.txt&)
Delay 50End SubSub OnScriptExit()
dm.UnBindWindow End Sub 如果你的大漠插件不是3.1233版本,请将注册开头的 need_ver = &3.1233& 改为你用的大漠插件版本号
第三个警报系统在城堡中不在外面，城堡位置按下M键，在最左上角选中城堡地图，就能看见城堡位置。总之第三个警报保证不再外面。
图像模糊，看不清楚，隐约少一个条件结束语句。
ep saying you will for? Why don't you do it? It
DoFindPic 0, 0, , &Attachment:\图1.bmp&, 0.9, intX, intYDelay 200Loop Until intX & 0Delay 200FindPic 0, 0, , &Attachment:\图2.bmp&, 0.9, intX, intY
上楼去以后,直进,跑到尾端就可以了
rem ks FindPic 0,0,,&Attachment:\找这个图.bmp&,0.9,intX,intYIf intX & 0 And intY & 0 ThenMoveTo intX,intYelsegoto ks End If
感谢您为社区的和谐贡献力量请选择举报类型
经过核实后将会做出处理感谢您为社区和谐做出贡献
确定要取消此次报名，退出该活动？
请输入私信内容：求助: 按键精灵 (怎么做到循环时,每次输入的都是不同的定义变量)如下图所示。
按时间排序
用数组来做可以Dim Q（2）Q（0）=1111111Q（1）=2222222Q（2）=3333333For i = 0 to 2。。。输入文本 Q(i)。。。next不知道你要实际什么功能，如果QQ数据太多。数组就不太好了，因为没规律但好像可以用直接提取txt文档内容来做
你试试这样调试：Event Form1.button1.Click
miao = Form1.InputBox1.Text
MessageBox miao End Event
1.需要按键精灵版本8以上的。打开按键精灵后→点击“新建”→界面→输入框→在右边区域画个框框→点击“设置界面”2.call sub是调用子程序么？建议子程序名不要用sub，名词冲突3.使用方法：自定义界面→在框框里输入数字→保存→退出→启动
找图代码下边加个判断 if intX &0 and intY&0 thena=a+1end if
Dimenv miaoEvent Form1.InputBox1.Changemiao = Form1.InputBox1.TextEnd EventDelay (miao-1) * 1000这样就可以了
For 5TracePrint
Lib.算法.随机取姓名()Next 循环次数随自己喜欢修改
感谢您为社区的和谐贡献力量请选择举报类型
经过核实后将会做出处理感谢您为社区和谐做出贡献
确定要取消此次报名，退出该活动？
请输入私信内容：按键精灵设置循环脚本的图文步骤
本文相关软件
按键精灵是一款模拟键鼠操作的编程软件。按键精灵可以帮您操作电脑，支持动作录制和回放...you have been blocked如何满足同时找到两张图片才执行点击操作 _ 按键精灵手机版 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.3.0软件大小：62.5M更新时间：5-24
软件版本：1.3.3软件大小：29.2M更新时间：06-14
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 968|回复: 5
在写脚本的时候遇到个难题，就是有的交友APP的粉丝列表里有男有女，我只需点击女生，但粉丝类别页又没有性别选择框，只能靠识图来选择。遇到是男生时就跳过继续寻找，只到找到了“女生图标”和“关注图标”才点击关注图标继续接下来的操作，请教下各位这样的代码改怎么写呢？
过大年勋章俩小福娃给大家拜年啦！天使勋章天使一样的用户黄金之翼黄金之翼勋章骨灰级按键用户3年以上的按键论坛用户按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com发帖高手鼓励积极回复，但注意不要灌水哦学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键元老资深按键用户的尊贵荣誉勋章
//在写脚本的时候遇到个难题，就是有的交友APP的粉丝列表里有男有女，我只需点击女生，但粉丝类别页又没有性别选择框，
//遇到是男生时就跳过继续寻找，
//只到找到了“女生图标”和“关注图标”才点击关注图标继续接下来的操作，请教下各位这样的代码改怎么写呢？
Dim 女生图标路径,关注图标路径
Dim 女生图标查找区域,关注图标查找区域
女生图标路径=&Attachment:1.png&
关注图标路径=&Attachment:2.png&
女生图标查找区域=&0,0,0,0&
关注图标查找区域 = &0,0,0,0&
Dim 二者得兼=两张图同时出现了吗(女生图标路径,女生图标查找区域,关注图标路径,关注图标查找区域)
If 二者得兼 Then
sm(&二者得兼&)
sm(&二者不可得兼&)
Function 找图(找图路径,找图范围)
Dim x1,y1,x2,y2
arr=split(找图范围,&,&)
x1 = cint(arr(0))
y1 = cint(arr(1))
x2 = cint(arr(2))
y2 = cint(arr(3))
Dim intX, intY,返回值
返回值=FindPic(0, 0, 0, 0, 找图路径,&, 0.8, intX, intY)
'需要用函数返回值时要加个括号
If 返回值&-1 then
找图=false
End Function
Function 两张图同时出现了吗(图片1, 图片1找图范围, 图片2, 图片2找图范围)
Dim 图片1在不在,图片2在不在
图片1在不在 = 找图(图片1, 图片1找图范围)
图片2在不在 = 找图(图片2, 图片2找图范围)
If 图片1在不在 and 图片2在不在 Then
两张图同时出现了吗 = true
两张图同时出现了吗 = false
End Function
Sub sm(sss)
ShowMessage sss, , 300
TracePrint sss
Sys.SetClipText sss
Delay 2000
回复 非常感谢大神的解答，多学习！
月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。小红帽对论坛提出良好建议（可向管理员申请）按键精灵开发者3级可通过提升认证等级来升级勋章：rz.anjian.com
回复 果断收藏到命令库里
闽网文 (-037号
注意: 以下为数据查询分析工具，正式站点使用请使用官方发布版本或自行Release编译。