精易论坛

标题: 求助一个安卓按键精灵代码转到PC按键精灵使用的问题 [打印本页]
作者: aq001    时间: 2024-1-3 21:41
标题: 求助一个安卓按键精灵代码转到PC按键精灵使用的问题
下面这段代码是安卓按键精灵的可以运行 作用是吧全部图色信息都做在表里 全部遍历一遍图色信息 吧检测状态也存储在表里 需要做判断的时候直接调用单键查找进行逻辑对比 我想迁移到PC按键来用但是PC好像没法用这种表 单键表达方式 有什么替代方式么 源码上传在附件了
不胜感激 能提供PC可执行的源码可以追加100精币



dim tb={_
"战斗胜利经验": Array(600,0,640,32,"55DFFF-111111","-2|634|55DFFF-111111,4|629|13BDFF-111111,-2|1274|55DFFF-111111,-1|1252|55DFFF-111111,-557|9|55DFFF-111111,-557|1271|55DFFF-111111","假","点击",0,0,0,0,-1,-1),_
"战斗胜利物品": Array(635,9,712,75,"0EBBFD-111111","0|7|FFFFFF-111111,0|15|13BDFF-111111,0|22|FFFFFF-111111,-21|10|FFFFFF-111111,0|-29|13BDFF-111111,0|-36|FFFFFF-111111,13|-7|0EBBFD-111111,25|-16|0EBBFD-111111,25|-13|FFFFFF-111111","假","点击",0,0,0,0,-1,-1),_
"地图界面": Array(16,948,115,1276,"FFFFFF-111111","0|-6|14BDFF-111111,0|-25|13BCFF-111111,0|106|FFFFFF-111111,0|113|14BDFF-111111,0|119|FFFFFF-111111,0|165|FFFFFF-111111,0|171|14BDFF-111111,0|283|FFFFFF-111111,-42|235|049BFF-111111","假","不点击",-636,1100,1000,0,-1,-1),_
}
//s(0)坐标1
//s(1)坐标2
//s(2)坐标3
//s(3)坐标4
//s(4)起点坐标图色
//s(5)偏移坐标图色
//s(6)图色是否找到输出
//s(7)是否点击
//s(8)点击偏移X
//s(9)点击偏移Y
//s(10)点击后延迟毫秒
//s(11)找图方向
//s(12)储存找到的坐标X 默认-1
//s(13)储存找到的坐标Y
//s(14)---
//s(15)---

Function 遍历键值图色(数组)
    //s(0)坐标1
    //s(1)坐标2
    //s(2)坐标3
    //s(3)坐标4
    //s(4)起点坐标图色
    //s(5)偏移坐标图色
    //s(6)图色是否找到输出
    //s(7)是否点击
    //s(8)点击偏移X
    //s(9)点击偏移Y
    //s(10)点击后延迟毫秒
    //s(11)找图方向
    //s(12)储存找到的坐标X 默认-1
    //s(13)储存找到的坐标Y
    //s(14)坐标1
    //s(15)坐标1


    For Each v , s In 数组
        //         TracePrint v
        s(6) = "假"
        s(12) = -1
        s(13)= -1
        // TracePrint  Join(s,",")
        // TracePrint s(0),s(1),s(2),s(3),s(4),s(5),s(11)
        FindMultiColor s(0),s(1),s(2),s(3),s(4),s(5),s(11),0.96,intX, intY
        If intX >-1  Then
            If ReadUIConfig("多选框1")  = True Then
           
                TracePrint "找到了字>>>>>>>"&v&"坐标 "&intX&"/"&intY
            End If
            //  TracePrint "找到了字>>>>>>>"&v&"坐标 "&intX&"/"&intY
            s(6) = "真"
            s(12) = intX
            s(13) = intY
            If s(6) = "真" and s(7) = "点击" Then
                Tap s(12) + s(8), s(13)+s(9)
                Delay s(10)
                If s(10) > 500 Then
                    KeepCapture       
                End If
            End If
        Else
            //             TracePrint "没到了字>>>>>>>"&名称&" 用的是第 "&I
        End If
         
    Next       
End Function

Function 单键值查找(名称, 键值)
    单键值查找=False
    //s(0)坐标1
    //s(1)坐标2
    //s(2)坐标3
    //s(3)坐标4
    //s(4)起点坐标图色
    //s(5)偏移坐标图色
    //s(6)图色是否找到输出
    //s(7)是否点击
    //s(8)点击偏移X
    //s(9)点击偏移Y
    //s(10)点击后延迟毫秒
    //s(11)找图方向
    //s(12)储存找到的坐标X 默认-1
    //s(13)储存找到的坐标Y
    //s(14)---
    //s(15)---
    //初始化
    键值(6) = "假"
    键值(12) = -1
    键值(13)= -1
    // TracePrint 名称
    // TracePrint 键值(0),键值(1),键值(2),键值(3),键值(4),键值(5),键值(11)
    FindMultiColor 键值(0),键值(1),键值(2),键值(3),键值(4),键值(5),键值(11),0.95,intX, intY
    If intX >-1  Then
        单键值查找 = True

        TracePrint "找到了字>>>>>>>"&名称&"坐标 "&intX&"/"&intY
        键值(6) = "真"
        键值(12) = intX
        键值(13) = intY
        If 键值(6) = "真" and 键值(7) = "点击" Then
            Tap 键值(12) + 键值(8), 键值(13)+键值(9)
            Delay 键值(10)
            If 键值(10) > 500 Then
                KeepCapture       
            End If
        End If



    Else
        //             TracePrint "没到了字>>>>>>>"&名称&" 用的是第 "&I
    End If

End Function


遍历键值图色 (tb)
  If 单键值查找("暂停按钮", tb["暂停按钮"]) = True Then
            ShowMessage "玩家手动释放技能战斗模式"
        End If


宝可梦探险寻宝-1.0.2ampampAQ.rar

6.85 KB, 下载次数: 2
作者: 九千七    时间: 2024-1-3 22:26
你这个pc是啥pc
作者: aq001    时间: 2024-1-4 00:53
就是win环境直接运行的按键精灵 不是安卓环境的按键精灵
作者: aq001    时间: 2024-1-8 09:22
Dim 色组(5)
//           x   y x1   y1   起始色组  偏移色组   精确度 找图方向 存x 存y  状态  是否点击  偏移x 偏移y 点击延时
//("对战模式",36,98,212,224,"99B5CD","5|-7|444444", 0.9,  1,    -1, -1,  "假",  "点击",   0,  0,     200)
色组(0)=array("对战模式",38,107,161,238,"3effff-111111","-2|5|3fffff-111111,-1|24|3fffff-111111,-1|41|3fffff-111111,78|23|ffffff-111111,78|32|316671-111111,78|41|ffffff",0.9,1,-1,-1,"假","点击",0,0,1000)
色组(1) = array("人机对战",60,261,255,397,"9aa1a5","1|0|9aa1a5,3|0|2d6675,7|-1|949ea3,25|7|fafbfc,31|-2|fafbfc,44|-3|f7fafa,74|-2|fbfcfc,88|-1|f5f8f9,81|-2|dee8ea",0.9,1,-1,-1,"假","点击",0,0,1000)
色组(2) = array("开始游戏偏移点击1V1",547,490,634,524,"e5e6e7-111111","7|6|f6f7f7-111111,3|3|051c23-111111,24|13|d8dcde-111111,24|11|061e27-111111,44|8|f1f2f2-111111,59|3|f1f2f2-111111",0.9,1,-1,-1,"假","点击",-152,-392,500)
色组(3) = array("开始游戏点击",547,490,634,524,"e5e6e7-111111","7|6|f6f7f7-111111,3|3|051c23-111111,24|13|d8dcde-111111,24|11|061e27-111111,44|8|f1f2f2-111111,59|3|f1f2f2-111111",0.9,1,-1,-1,"假","点击",0,0,500)
色组(4) = array("进入游戏",591,524,685,562,"fbffff-111111","3|-2|38a4c5-111111,5|-1|f5ffff-111111,18|-4|f4ffff-111111,24|0|3aa7ca-111111,42|12|43b3d4-111111,61|0|d3f8ff-111111",0.9,1,-1,-1,"假","点击",0,0,500)
色组(5) = array("确定对战开始",800,411,873,457,"dae2e7-111111","1|12|5c8dad-111111,32|8|e8edf0-111111,29|12|5891b5-111111,32|12|e7ecef-111111",0.9,1,-1,-1,"假","点击",0,0,500)

Function 遍历多点找色(找色)
    For i = 0 To UBound(找色)
        //                TracePrint 找色(i)(0)//色组名称
        //                TracePrint 找色(i)(1)//色组坐标x
        //                TracePrint 找色(i)(2)//色组坐标y
        //                TracePrint 找色(i)(3)//色组坐标x1
        //                TracePrint 找色(i)(4)//色组坐标y1
        //                TracePrint 找色(i)(5)//基准颜色
        //                TracePrint 找色(i)(6)//偏移颜色
        //                TracePrint 找色(i)(7)//找图精度
        //                TracePrint 找色(i)(8)//找图方向
        //                TracePrint 找色(i)(9)//找图坐标x
        //                TracePrint 找色(i)(10)//找图坐标y
        //                TracePrint 找色(i)(11)//找图结果
        //                TracePrint 找色(i)(12)//是否点击
        //                TracePrint 找色(i)(13)//点击偏移X
        //                TracePrint 找色(i)(14)//点击偏移Y
        //                TracePrint 找色(i)(15)//点击延时
        //  TracePrint   Join( 色组(i))
        Dim 反馈
        反馈=  dm.FindMultiColor(找色(i)(1),找色(i)(2),找色(i)(3),找色(i)(4),找色(i)(5),找色(i)(6),找色(i)(7),找色(i)(8),intX, intY)
        If 反馈 = 1 Then
            色组(i)(9)=intX
            色组(i)(10) = intY
            //            TracePrint intX
            //            TracePrint intY
            //            TracePrint 色组(i)(9)//找图坐标x
            //            TracePrint 色组(i)(10)//找图坐标y
            色组(i)(11) ="真"
            TracePrint ">>>>>>>>>>>找到了图色--- " & 找色(i)(0) & "坐标      " & intX & "/" & intY
            If 找色(i)(12) = "点击" and 色组(i)(11) = "真" Then
                //            TracePrint 色组(i)(9)+找色(i)(13)
                //              TracePrint   色组(i)(10) +找色(i)(14)
                dm.MoveTo 色组(i)(9)+找色(i)(13),色组(i)(10) +找色(i)(14)
                Delay 50
                dm.LeftClick
                Delay 找色(i)(15)
            End If
        Else
            色组(i)(11) ="假"
            色组(i)(9)=-1
            色组(i)(10) = - 1
            // TracePrint "没有找到图色--- "&找色(i)(0) &"   "&Join( 色组(i))
        End If
        //        TracePrint   Join( 色组(i))
    Next

End Function
作者: aq001    时间: 2024-1-8 10:36
问题自己已经解决 源码放出



欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4