为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 三叶资源网官方③群:33301895

网站首页 按键精灵相关 按键精灵Q语言 正文

药水合成脚本

三叶资源网 2018-12-31 按键精灵Q语言 54 ℃ 0 评论

脚本附件:TransmuteWindow.bmp, 阿拉特.bmp, 合成按钮.bmp, 拿起.bmp, 确认.bmp, 圣水.bmp, 血红药水.bmp

运行环境:分辨率:1920x1080 色深:32位 操作系统:Windows 7 Ultimate 按键精灵版本:9.50.11632

@wjn060454    2013/4/19

 While 1  
    Delay 3000  
    KeyPress "8", 1  
    Delay 1000  
    FindPic 0, 0, 1920, 1080, "Attachment:\TransmuteWindow.bmp" , 0.9, J, K  
    If J > 0 AND K > 0 Then   
    Else   
//  MessageBox "No Find TranSmute Window ,Press 'ok' to Restart Script "  
    RestartScript  
    End If  
      
      
      
    FindPic 0, 0, 1920, 1080, "Attachment:\圣水.bmp", 0.8, X, Y  
        If X > 0 And Y > 0 Then   
             MoveTo X, Y  
             KeyDown "Shift", 1  
             Delay 1000  
             LeftClick 1  
             Delay 500  
             KeyUp "Shift", 1  
             FindPic 0,0,1920,1080,"Attachment:\确认.bmp",0.9,P,Q  
                If P > 0 And Q > 0 Then   
                    MoveTo P, Q  
                    Delay 300  
                    LeftClick 1  
                    Delay 300  
                Else   
                    RightClick 1  
                    MoveTo 0,0  
                    Delay 1000  
                    FindPic 0, 0, 1920, 1080, "Attachment:\拿起.bmp", 0.9, M, N  
                        If M > 0 And N > 0 Then   
                            MoveTo M, (N+10)  
                            Delay 1000  
                            LeftClick 1  
                            Delay 500  
                            Else   
                            KeyPress "Esc", 1  
                            MessageBox "No Find"  
                        End If  
                End If  
         Else   
            MessageBox "No Find Base Herb "  
         End If  
      
      
      
      
      
      
    MoveTo J+42, K+382  
    Delay 500  
    LeftClick 1  
    Delay 1000  
      
      
    FindPic 0, 0, 1920, 1080, "Attachment:\阿拉特.bmp", 0.8, X, Y  
    If X > 0 And Y > 0 Then   
             MoveTo X, Y  
             KeyDown "Shift", 1  
             Delay 1000  
             LeftClick 1  
             Delay 500  
             KeyUp "Shift", 1  
             FindPic 0,0,1920,1080,"Attachment:\确认.bmp",0.9,P,Q  
                If P > 0 And Q > 0 Then   
                    MoveTo P, Q  
                    Delay 300  
                    LeftClick 1  
                    Delay 300  
                Else   
                    RightClick 1  
                    MoveTo 0,0  
                    Delay 1000  
                    FindPic 0, 0, 1920, 1080, "Attachment:\拿起.bmp", 0.9, M, N  
                        If M > 0 And N > 0 Then   
                            MoveTo M, (N+10)  
                            Delay 1000  
                            LeftClick 1  
                            Delay 500  
                            Else   
                            KeyPress "Esc", 1  
                            MessageBox "No Find"  
                        End If  
                End If  
    Else   
        MessageBox "No Find Blood Herb"  
    End If  
  
      
      
    MoveTo J+154, K+382  
    Delay 500  
    LeftClick 1  
    Delay 1000  
      
      
    FindPic 0,0,1920,1080,"Attachment:\血红药水.bmp",0.8,X,Y  
    If X > 0 And Y > 0 Then   
    MoveTo X, Y  
         KeyDown "Shift", 1  
         Delay 1000  
         LeftClick 1  
         Delay 500  
         KeyUp "Shift", 1  
         FindPic 0,0,1920,1080,"Attachment:\确认.bmp",0.9,P,Q  
            If P > 0 And Q > 0 Then   
                MoveTo P, Q  
                Delay 300  
                LeftClick 1  
                Delay 300  
            Else   
                RightClick 1  
                MoveTo 0,0  
                Delay 1000  
                    FindPic 0, 0, 1920, 1080, "Attachment:\拿起.bmp", 0.9, M, N  
                    If M > 0 And N > 0 Then   
                        MoveTo M, (N+10)  
                        Delay 1000  
                        LeftClick 1  
                        Delay 500  
                        Else   
                        KeyPress "Esc", 1  
                        MessageBox "No Find"  
                    End If  
            End If  
              
Else   
    MessageBox "No Find Life Potion "  
End If  
  
  
  
MoveTo J+266, K+382  
Delay 500  
LeftClick 1  
Delay 1000  
  
Delay 1000  
  
FindPic 0,0,1920,1080,"Attachment:\合成按钮.bmp",0.9,X,Y  
If X > 0 And Y > 0 Then   
MoveTo X, Y  
Delay 300  
LeftClick 1  
Delay 300  
Else   
RestartScript  
End If  
  
Delay 4000  
  
  
end


文件下载

Tags:

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
辣妈帮Vstart火山移动鱼刺HTTP变体型注册表操作辅助源码多线程Excel酷Q源代码变现天猫网易clientToken自绘分段加密黑月插件易编辑框源码留言板EC反编译大漠插件
最新评论