我用按键精灵写了一个自动识图点击的脚本，实现游戏挂机，可以帮我看看如何优化吗？

LJH5785

本人纯小白，个人兴趣，心血来潮写的脚本，但是不知道怎么优化，目前是能用的状态，请各位大佬帮忙看看吧~
如果可以的话，我还想设置脚本的多功能，实现在不同的选项执行不同的识图找图，这个功能目前也不太会弄，有没有大佬一块帮忙看看？
以下是脚本的命令：

Do
    FindPic 0, 0, 1920, 1080, "Attachment:\段位战斗.bmp", 0.5, intX, intY
    FindPic 0, 0, 1920, 1080, "Attachment:\自动.bmp", 0.5, intX3, intY3
    FindPic 0,0,1024,768,"Attachment:\自动点亮.bmp",0.5,intX2,intY2
    FindPic 0, 0, 1920, 1080, "Attachment:\确认.bmp", 0.5, intX4, intY4
    FindPic 0,0,1920,1080,"Attachment:\确定.bmp",0.5,intX5,intY5
    //以下是条件判断；如果返回的坐标大于0，那么就说明找到了。
    If intX > 0 And intY > 0  Then
        MoveTo intX,intY
        LeftClick 1
    Elseif intX2 > 0 And intY2 > 0 Then
        MoveTo intX2, intY2
        LeftClick 1
    Elseif intX3 > 0 And intY3 > 0 Then
        MoveTo intX3, intY3
        LeftClick 1
    Elseif intX4 > 0 And intY4 > 0 Then
        MoveTo intX4, intY4
        LeftClick 5
    Elseif intX5 > 0 And intY5 > 0 Then
        MoveTo intX5, intY5
        LeftClick 5
    End If
    Delay 1000
Loop
Event Form1.Button2.Click
    EndScript
End Event
Event Form1.Button1.Click
Do
    FindPic 0, 0, 1920, 1080, "Attachment:\段位战斗.bmp", 0.5, intX, intY
    FindPic 0, 0, 1920, 1080, "Attachment:\自动.bmp", 0.5, intX3, intY3
    FindPic 0,0,1024,768,"Attachment:\自动点亮.bmp",0.5,intX2,intY2
    FindPic 0, 0, 1920, 1080, "Attachment:\确认.bmp", 0.5, intX4, intY4
    FindPic 0,0,1920,1080,"Attachment:\确定.bmp",0.5,intX5,intY5
    //以下是条件判断；如果返回的坐标大于0，那么就说明找到了。
    If intX > 0 And intY > 0  Then
        MoveTo intX,intY
        LeftClick 1
    Elseif intX2 > 0 And intY2 > 0 Then
        MoveTo intX2, intY2
        LeftClick 1
    Elseif intX3 > 0 And intY3 > 0 Then
        MoveTo intX3, intY3
        LeftClick 1
    Elseif intX4 > 0 And intY4 > 0 Then
        MoveTo intX4, intY4
        LeftClick 5
    Elseif intX5 > 0 And intY5 > 0 Then
        MoveTo intX5, intY5
        LeftClick 5
    End If
    Delay 1000
Loop
End Event

t  
Event Form2.Load
Do
FindPic 0, 0, 1920, 1080, "Attachment:\匹配战斗.bmp", 0.9, intX, intY
FindPic 0, 0, 1920, 1080, "Attachment:\自动.bmp", 0.5, intX2, intY2
If intX > 0 And intY > 0 Then
MoveTo intX,intY
        LeftClick 1
Elseif intX2 > 0 And intY2 > 0 Then
        MoveTo intX2, intY2
        LeftClick 1
End If
Loop

End Event

BTCQAQ

' 优化后的 FindAndClick 函数
Function FindAndClick(ByVal imgPath As String, ByVal threshold As Single)
    Dim intX, intY
    FindPic 0, 0, 1920, 1080, imgPath, threshold, intX, intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        LeftClick 1
        Return True
    End If
    Return False
End Function

' 事件：Button2 点击时的行为
Event Form1.Button2.Click
    EndScript
End Event

' 事件：Button1 点击时的行为
Event Form1.Button1.Click
    Do
        ' 先判断所有图片
        If FindAndClick("Attachment:\段位战斗.bmp", 0.5) Then
            Delay 1000
        ElseIf FindAndClick("Attachment:\自动.bmp", 0.5) Then
            Delay 1000
        ElseIf FindAndClick("Attachment:\自动点亮.bmp", 0.5) Then
            Delay 1000
        ElseIf FindAndClick("Attachment:\确认.bmp", 0.5) Then
            Delay 1000
        ElseIf FindAndClick("Attachment:\确定.bmp", 0.5) Then
            Delay 1000
        End If
    Loop
End Event

' 事件：Form2 加载时的行为
Event Form2.Load
    Do
        If FindAndClick("Attachment:\匹配战斗.bmp", 0.9) Then
            Delay 1000
        ElseIf FindAndClick("Attachment:\自动.bmp", 0.5) Then
            Delay 1000
        End If
    Loop
End Event
优化说明：
1. FindAndClick 函数：提取了图片查找和点击的代码逻辑。减少了代码重复性，增加了可读性。
2. 延迟：在每次点击后等待 1000ms，但可以根据实际需求调整。3. 如果每次点击后没有变化，可以考虑减少延迟时间。
4. 判断简化：避免多次写相同的 If 语句，提高了代码效率。

BTCQAQ

楼主您原先的代码可以讲已经很完善了，哈哈哈，楼主谦虚了

sktao

这个早就有人发了的啊  识图点击  玩游戏很棒

gwgdaemon

BTCQAQ 发表于 2025-4-6 11:18
' 优化后的 FindAndClick 函数
Function FindAndClick(ByVal imgPath As String, ByVal threshold As Sing ...

建议很好

w220913

想请假下 按键精灵 查找图片准确率实在太低了。我降低匹配度还瞎点

Yifan2007

不要用附件找图，不然很大概率找不到，相似度都改成0.75，不然会误触，多用点delay 200不然会卡死

8204118

什么游戏的？

x443681912

用大漠/乐玩等插件改成后台应该就完美了

binbin487

直接做个数组来存信息会精简很多！