按键精灵脚本找多个同样的图依次单击！

有1.2.3.4.5...等“多个相同”的图（A类），以及另外“两张不同”的图（B类），类：作用相同！【循环查找并执行操作】：找到（A类）第1张图后单击，再依次查找（B类... 有1.2.3.4.5...等“多个相同”的图（A类），以及另外“两张不同”的图（B类），类：作用相同！

【循环查找并执行操作】：
找到（A类）第1张图后单击，再依次查找（B类）的1、2图，找到其中一张单击返回循环。
找到（A类）第2张图后单击，再依次查找（B类）的1、2图，找到其中一张单击返回循环。
找到（A类）第3张图后单击，再依次查找（B类）的1、2图，找到其中一张单击返回循环。
找到（A类）第4张图后单击，再依次查找（B类）的1、2图，找到其中一张单击返回循环。
找到（A类）第5张图后单击，再依次查找（B类）的1、2图，找到其中一张单击返回循环。
．．．．．．
以此依次查找循环执行操作，最好可以后台鼠标操作！
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
★满意绝对追加100分以上！★
【重新整理下思路】：

★包含内容：
有A1、A2、A3、A4、A5......等多张相同的A类图片，及1张B类图片，以及C1、C2的两张不同的C类图片。

★循环查找并执行操作：
①找到A类第一张A1图，找到后单击
②再依次查找B类的B1图，找到后单击
③再查找C类的C1图，找到单击返回最初
④再查找C类的C2图，找到单击
继续下一张A2图(，并且执行②③④
继续下一张A3图(，并且执行②③④
．．．．．．

以此依次查找循环执行操作，最好可以后台鼠标操作，如果是大漠插件的话希望有带完整注册脚本（小白一名请见谅）！展开

 我来答

2个回答

#热议# 不吃早饭真的会得胆结石吗？

风语232
2014-09-24 · 超过75用户采纳过TA的回答

知道小有建树答主

回答量：214

采纳率：50%

帮助的人：91.6万

我也去答题访问个人页

关注

展开全部

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类)

        Do

            dm_ret = dm.FindPic(0, 0, 2000, 2000, A类(i), "000000", 0.9, 0, x, y)

            If x >= 0 and y >= 0 Then

                dm.MoveTo x + 5, y + 5

                Delay 100

                dm.LeftClick 

                Delay 100

                Exit Do//找到A类第i个图后跳出循环,否则一直找

            End If

            Delay 100

        Loop

        Do

            dm_ret = dm.FindPic(0, 0, 2000, 2000, 图B, "000000", 0.9, 0, x, y)

            If x >= 0 and y >= 0 Then

                dm.MoveTo x + 5, y + 5

                Delay 100

                dm.LeftClick 

                Delay 100

                Exit Do //找到B类图内的任一图片后跳出循环,否则一直找

            End If

            Delay 100

        Loop

        Do

            dm_ret = dm.FindPic(0, 0, 2000, 2000, 图C, "000000", 0.9, 0, x, y)

            If x >= 0 and y >= 0 Then

                dm.MoveTo x + 5, y + 5

                Delay 100

                dm.LeftClick 

                Delay 100

                Exit Do//找到C类图内的任一图片后跳出循环,否则一直找

            End If

            Delay 100

        Loop

        //这组找完,返回并找下一个A类图片

    Next

    //A类图片都找完了,如果想一直循环找,就加一个无限循环

Loop 

Sub 绑定

    Rem 绑定

    hwnd = dm.GetMousePointWindow()

    Delay 100

    dm_ret = dm.BindWindow(hwnd,"dx2","windows2","dx",0)

    Delay 1000

    If dm_ret = 1 Then 

        Call Plugin.Msg.Tips("绑定成功")

        Delay 100

    Else 

        Goto 绑定

    End If

End Sub

Sub 注册大漠()

    need_ver = "3.1233"

    Delay 50

    set ws=createobject("Wscript.Shell")

    Delay 50

    ws.run "regsvr32 atl.dll /s"

    Delay 50

    set ws=nothing

    PutAttachment "c:\test_game","*.*"

    Delay 50

    PutAttachment ".\Plugin", "RegDll.dll"

    Delay 50

    Call Plugin.RegDll.Reg("c:\test_game\dm.dll")

    Delay 50

    set dm = createobject("dm.dmsoft")

    Delay 50

    ver = dm.Ver()

    Delay 50

    if ver <> need_ver then

        Delay 50

        set dm = nothing

        Delay 50

        set ws=createobject("Wscript.Shell")

        Delay 50

        ws.run "regsvr32 c:\test_game\dm.dll /s"

        Delay 50

        set ws=nothing

        Delay 50

        set dm = createobject("dm.dmsoft")

        Delay 50

        ver = dm.Ver()

        Delay 50

        if ver <> need_ver then

            messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()

            messagebox "请关闭程序,重新打开本程序再尝试"

            endscript

        end if

    end if

    dm.SetPath "c:\test_game"

    Delay 50

    dm_ret = dm.SetDict(0, "dm_soft.txt")

    Delay 50

End Sub

Sub OnScriptExit()

      dm.UnBindWindow 

End Sub

如果你的大漠插件不是3.1233版本,请将注册开头的 need_ver = "3.1233" 改为你用的大漠插件版本号

更多追问追答

追问

亲，代码复制后附件加入图片，脚本不单击B类图啊~
其实只需要鼠标后台就行了~如果方便的话不用大漠会好些！

追答

将119行的 “Sub 注册大漠() ” 改成  “sub 注册”

已赞过 已踩过<

评论收起

maozz
2014-09-24 · TA获得超过2038个赞

知道大有可为答主

回答量：2063

采纳率：92%

帮助的人：1264万

我也去答题访问个人页

关注

展开全部

Dim ta(4), tb(1)//申明两个数组来存放图片
//假设图A类有5张图.图的名称为:图A-1,图A-2...
For i = 0 To UBound(ta)
    i1 = i+1
    ta(i) = "Attachment:\图A-" & i1 & ".bmp"//循环给数组A赋值
Next
For i = 0 To UBound(tb)
    i1 = i+1
    tb(i) = "Attachment:\图B-" & i1 & ".bmp"//循环给数组B赋值
Next
i = 0
Do
    FindPic 0,0,1024,768,ta(i),0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        i1 = 0
        Do
            FindPic 0, 0, 1024, 768, tb(i1), 0.9, intX, intY
            If intX > 0 And intY > 0 Then 
                MoveTo intX + 5, intY + 5
                Delay 10
                LeftClick 1
                Exit Do//找到单击后跳出找图B的循环
            Else 
                i1 = i1 + 1//找不到就找B类下一个图
                If i1 = 2 Then //如果B类都没有找到,就一直不停的找
                    i1 = 0
                End If
            End If
            Delay 200
        loop
    End If
    i = i + 1
    If i > UBound(ta) Then //如果找到A类最后一张图,则返回重找
        i = 0
    End If
    Delay 200
Loop

如果图片的命名方式不规则,就只能一个一个的给数组赋值

更多追问追答
追问

亲，B组图是两张会变化的图片。。。
追答

会变化的图是什么意思?既然你都不知道会出哪张图,让程序如何去找呢
追问

亲，我重新整理了下思路，补充内容应该更直观些吧！

PS：所谓”会变化的图“也就是有2张同类作用的图，以B类图为例，第一次显示的是B1这张图，单击后因为某些原因，下次会变成B2这张图，但作用没变！所以依次查找B1、B2、找到其中一张单击即可！
追答

//创建大漠对象 
Set dm = createobject("dm.dmsoft")
//
//设置全局路径 ,就是图片所在路径
dm_setpath "d:\zz_game"
//
hwnd = dm.GetMousePointWindow()
dm_ret = dm.BindWindow(hwnd,"gdi","windows","windows",0)
Delay 1500
//
Dim ta(4)
For i = 0 To UBound(ta)
    i1 = i+1
    ta(i) = "A" & i1 & ".bmp"//循环给数组A赋值
Next
For i = 0 To UBound(ta)
    Do
        dm_ret = dm.FindPic(0, 0, 2000, 2000, ta(i), "000000", 0.9, 0, intX, intY)
        Delay 200
    Loop Until intX > 0
    Call 单击(intX + 5, intY + 5)
    Delay 1000
    Do
        dm_ret = dm.FindPic(0, 0, 2000, 2000, "B1.bmp|B2.bmp", "000000", 0.9, 0, intX, intY)
        Delay 200
    Loop Until intX > 0
    Call 单击(intX + 5, intY + 5)
    Delay 1000
    Do
        dm_ret = dm.FindPic(0, 0, 2000, 2000, "C1.bmp|C2.bmp", "000000", 0.9, 0, intX, intY)
        Delay 200
    Loop Until intX > 0
    Call 单击(intX + 5, intY + 5)
    Delay 1000
Next
//
Sub 单击(x, y)
    dm.MoveTo x, y
    Delay 20
    dm.LeftClick
End Sub
追问

图片我该如何命名及添加呢！
追答

A1.bmp
A2.bmp
B1.bmp
C1.bmp
追问

亲有什么联系方式吗
追答

我服你了,加Q吧

本回答被提问者采纳

已赞过 已踩过<

评论收起

推荐律师服务：若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

您可能关注的内容

自动点击器安卓下载-屏幕连点工具下载

click.wxczy.cn

鼠标自动点击-鼠标键盘自动点击-2025全新版下载

鼠大侠是一款鼠标自动点击，一键连点适用于办公、抢购、游戏等多种场景，另外还可以录制键盘鼠标操作，自定义编写鼠标宏，专业客服团队一对一指导，立即下载体验吧!

sdx.hnpulinwl.cn广告

按键精灵 脚本找多个同样的图 依次单击！

您可能关注的内容

其他类似问题

为你推荐：

按键精灵脚本找多个同样的图依次单击！