sssleg 发表于 2023-4-17 23:31

[XIUREN秀人网]2021.04.06 No.3273 王雨纯

[预览缩图]:

[下载网盘]:百度网盘
[解压密码]:sssleg.com
[下载链接]:**** Hidden Message *****

wangguan1999 发表于 2023-8-19 22:38

rkrq

6141220498 发表于 2023-11-17 16:54

565654654

chris005 发表于 2023-11-23 16:30

感谢BZ分享

leelue 发表于 2023-11-29 15:57


感谢BZ分享

xzy000 发表于 2024-3-1 15:11

感谢分享，支持！

3582456 发表于 2024-11-9 01:38

Call 刷任务
Sub 刷任务
    do
      Call 主页面
      Call 点(938, 920)
      Call 挑战BOSS
      Call 强化
      Call 寻宝
      Call 奇遇
      Call 熔炼
      Call 聊天
    loop
End Sub
Rem zend
//常用调用区域
Sub 主页面
    Do
      FindPic 0,0,1920,1200,"E:\sanguosha\主界面.bmp",0.9,intX,intY
      If intX > 0 And intY > 0 Then
            Exit do
      End If
      Call 点(700,1100)
      Delay 10000
    loop
End Sub
Sub 点(a, b)
    MoveTo a, b
    LeftClick 1
    Delay 1000
End Sub
Sub 挑战BOSS
    FindPic 0,0,1920,1200,"E:\sanguosha\shua\多人BOSS.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
      Delay 1000
      FindPic 0,0,1920,1200,"E:\sanguosha\shua\挑战灰.bmp",0.9,intX,intY
      If intX > 0 And intY > 0 Then
            Goto zend
      End If
      Call 点(960, 886)
      Do
            MoveTo 683,906
            LeftClick 1
            Delay 500
            FindPic 0,0,1920,1200,"E:\sanguosha\shua\BOSS退出.bmp",0.9,intX,intY
            If intX > 0 And intY > 0 Then
                MoveTo intX, intY
                LeftClick 1
                Delay 500
                Exit do
            End If
      Loop
    End If       
End Sub
Sub 强化
    FindPic 0,0,1920,1200,"E:\sanguosha\shua\强化.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
      Call 点(850,980)
      Call 点(1250, 100)
      Call 主页面
    End If
End Sub
Sub 寻宝
    FindPic 0,0,1920,1200,"E:\sanguosha\shua\寻宝.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
      Call 点(769, 885)
      //补充买钥匙提示
      Call 点(1117,1083)
      Call 点(1084,961)
      Call 主页面
    End If
End Sub
Sub 奇遇
    FindPic 0,0,1920,1200,"E:\sanguosha\shua\奇遇.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
      Goto zend
    End If
End Sub
Sub 聊天
    FindPic 0,0,1920,1200,"E:\sanguosha\shua\聊天.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
      MoveTo intX, intY
      LeftClick 1
      Delay 500
      Call 点(722,889)
      Call 点(1005,917)
      Call 点(735, 1018)
      Call 主页面
    End If
End Sub
Sub 熔炼
    FindPic 0,0,1920,1200,"E:\sanguosha\shua\熔炼.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
      Delay 1000
      FindPic 0,0,1920,1200,"E:\sanguosha\shua\熔炼空.bmp",0.9,intX,intY
      If intX > 0 And intY > 0 Then
            Goto zend//添加其他熔炼跳转
      End If
      Call 点(964, 976)
      Call 主页面
    End If
End Sub

123456aa 发表于 2024-11-9 07:59

:)

pyk918 发表于 2024-11-26 02:55

感谢分享
页: [1]
查看完整版本: [XIUREN秀人网]2021.04.06 No.3273 王雨纯