• 首页
  • 教程
  • 资源
  • 脚本
  • 源码库
  • 新闻
  • 卖脚本
  • 用户中心
加入收藏  返回官网
你的位置:按键精灵资源站
有人可以幫忙寫一個小腳本嗎....
发布: 2017-12-09 21:51:04 | 作者: | 来源: 按键精灵资源站
我要寫一個遊戲中出現紅包自點擊~我一次開三個視窗,要三個都可以一起點擊!
我這個腳本都只會點擊同一個圖...不會跳另一個圖,有人可以教教我嗎??


Hwnd = Plugin.Window.MousePoint()
Arr = Split(Plugin.Window.GetWindowRect(Hwnd), "|")
Do
Call 找多圖(Arr(0), Arr(1), Arr(2), Arr(3),  "Attachment:\數字.bmp", 1.0)
Loop
Function  找多圖(起點X,起點Y,終點X,終點Y,圖片,相似度)
    Dim tx, ty, tx1, ty1
    找到的坐標=""
    tx = 起點X : ty = 起點Y : tx1 = 終點X : ty1 = 終點Y
    Do
        FindPic tx, ty, tx1, ty1, 圖片, 相似度, intX, intY
        If intX > 0 and intY > 0 Then
            找到的坐標 = 找到的坐標 & intX & "," & intY & "|"
            MoveTo intX,intY
                Delay 100
            LeftClick 1
                            Delay 100
            tx = intX + 5
            ty = intY
        Else
            ty = ty + 5
            tx = 起點X
            If intX = - 1  and intY = - 1  Then
                FindPic tx, ty, tx1, ty1, 圖片,相似度, intX, intY
                If intX > 0 and intY > 0 Then
                    找到的坐標 = 找到的坐標 & intX & "," & intY & "|"
                    MoveTo intX,intY
                Delay 100
            LeftClick 1
                            Delay 100
                    tx = intX + 5
                    ty = intY
                Else
                    Exit Do
                End If
            End If
        End if
    Loop
  End Function