剑网3吧 关注:8,514,173贴子:468,587,962

回复:新钓鱼按键

只看楼主收藏回复

这是代码!


IP属地:四川来自iPhone客户端33楼2022-01-06 11:35
收起回复
    试成功啦,好耶!解放双手


    IP属地:浙江来自Android客户端34楼2022-01-06 12:25
    收起回复
      2025-12-23 11:26:27
      广告
      不感兴趣
      开通SVIP免广告
      MoveTo 910, 1054
      LeftClick 1
      Dim i
      i = 0
      IfColor 904, 476, "C3E1F8", 2 Then
      i=i+8
      End If
      IfColor 904, 476, "D2CCC5", 2 Then
      MoveTo 910, 1054
      Delay 7000
      LeftClick 1
      End If
      Do while(i<8)
      FindPic 762,503,1154,571,"C:\Users\Administrator\Desktop\钓鱼插件.bmp",0.9,intX,intY
      If intX> 0 And intY> 0 Then
      TracePrint "找到图片"
      MoveTo 939, 1050
      LeftClick 1
      i = i + 1
      Delay 200
      Else
      TracePrint "没找到图片"
      IfColor 904, 476, "C3E1F8", 2 Then
      i = i + 8
      End If
      IfColor 904, 476, "D2CCC5", 2 Then
      i = i + 8
      End If
      End if
      Delay 200
      Loop
      MoveTo 910, 1054
      Delay 7000
      LeftClick 1
      楼楼帮我看看 我的也不收杆!!


      IP属地:湖南35楼2022-01-06 12:36
      收起回复
        我成功啦 哈哈哈哈哈哈哈哈


        来自iPhone客户端36楼2022-01-06 12:40
        收起回复
          马一个


          IP属地:四川37楼2022-01-06 14:10
          回复
            32楼的我弄了好久,颜色不知道选的哪个,我把坐标调到整个分辨率的大小都不收杆


            IP属地:广东38楼2022-01-06 15:44
            收起回复
              学着弄了4个小时,我还是没弄好,我真实废物


              IP属地:河南39楼2022-01-06 16:02
              回复
                马一下,好人一生平安


                IP属地:福建来自iPhone客户端40楼2022-01-06 16:26
                回复
                  2025-12-23 11:20:27
                  广告
                  不感兴趣
                  开通SVIP免广告
                  谢谢各位菩萨


                  IP属地:美国41楼2022-01-06 16:39
                  回复


                    IP属地:上海42楼2022-01-06 17:16
                    回复
                      我好想学可是好复杂QAQ


                      IP属地:美国来自iPhone客户端43楼2022-01-06 17:52
                      回复
                        32楼的改了下坐标试了5分钟,成功了,感谢


                        IP属地:浙江来自iPhone客户端44楼2022-01-06 17:55
                        回复
                          先收藏


                          来自Android客户端45楼2022-01-06 20:38
                          回复
                            MoveTo 897,1044
                            LeftClick 1
                            Dim i
                            i = 0
                            IfColor 891, 459, "CDEBFF", 2 Then
                            i=i+8
                            End If
                            IfColor 891, 459, "DCD7CB", 2 Then
                            MoveTo 897,1044
                            Delay 7000
                            LeftClick 1
                            End If
                            Do while(i<8)
                            FindPic 695,499,1202,564,"C:\Users\Administrator\Desktop\1.bmp",0.9,intX,intY
                            If intX> 0 And intY> 0 Then
                            TracePrint "找到图片"
                            MoveTo 944,1042
                            LeftClick 1
                            i = i + 1
                            Delay 200
                            Else
                            TracePrint "没找到图片"
                            IfColor 891, 459, "CDEBFF", 2 Then
                            i = i + 8
                            End If
                            IfColor 891, 459, "DCD7CB", 2 Then
                            i = i + 8
                            End If
                            End if
                            Delay 200
                            Loop
                            MoveTo 897,1044
                            Delay 7000
                            LeftClick 1
                            楼楼救救,一直找不到图片


                            IP属地:黑龙江46楼2022-01-06 22:26
                            收起回复
                              2025-12-23 11:14:27
                              广告
                              不感兴趣
                              开通SVIP免广告
                              狠狠码住


                              IP属地:广西来自Android客户端47楼2022-01-06 23:29
                              回复