【按键精灵】星际家园 脚本分享学习

ぐ飛哥。

纯属个人爱好 编写了一套虚拟机内运行的 基本完善脚本
前台实现

已实现
1.自动登录
2.自动出城
3.自动更换0耐久装备
4.安全码 识别
5.实现自动拾取别人不要的材料 提炼后 卖系统 赚取游戏币 金币 1w=1块钱
6.自动打怪 自动挖矿（正在开发中）
本人菜鸟 各位大牛 手下留情 源代码如下

[Visual Basic] 纯文本查看 复制代码

flg=0//基地出不去
quyu = ""//区域判断
xquyu = ""//选择的区域
nengliangtiao = ""//能量条
xueliang = 0//血值
tili = 0//体力
cx = 0//车坐标
cy = 0//车坐标
shezhi_tili = 0
ishang = 0
ixia = 0
izuo = 0
iyou = 0

set dm = createobject("dm.dmsoft")
base_path = dm.GetBasePath()
dm_ret = dm.SetPath(base_path)
dm_ret = dm.SetDict(0,"dm_soft.txt")
shezhi_tili = Form1.InputBox2.Text//获取设置的体力
xquyu = Form1.InputBox1.Text//获取设置的区域
ishang = Form1.Ishang.Text
ixia = Form1.Ixia.Text
izuo = Form1.Izuo.Text
iyou = Form1.Iyou.Text
yanchi = Form1.InputBox3.Text//拾取延迟
jiesuo=Form1.InputBox4.Text//解锁密码
nengliangtiao = GetPixelColor(501, 732)


MessageBox "最新脚本"
Delay 2000

For 10000
        s = dm.Ocr(85, 2, 300, 14, "ffffff-000000", 1.0)
        //MessageBox s
        //MessageBox "大循环"&+flg
        Call 屋检测
        Call 自动登陆
        //Call 区域判断
        If InStr(s, "基地大厅") > 0 and flg=0 Then 
                Call 出城
        ElseIf InStr(s, "安全区f06") > 0 Then
                Call 行走拾取
        Else 
                //MessageBox"1"
                flg = 1
                Call 回城
        End If        
Next
hong = 0

Sub 自动登陆
        deng = 0
        dm_ret = dm.FindStr(0, 0, 1024, 768, "安全屋内", "000000-000000", 1.0, intX, intY)
        If intX > 0 and IntY > 0 Then 
                deng = 1
        End If
        
        dm_ret = dm.FindStr(0, 0, 1024, 768, "网络已断开", "000000-000000", 1.0, intX, intY)
        If intX > 0 and IntY > 0 Then 
                deng = 1
        End If
        
        dm_ret = dm.FindStr(2,740 , 905,762, "波星", "000000-000000", 1.0, intX, intY)
        If intX > 0 and IntY > 0 Then 
                Delay 500
        Else 
                deng = 1
        End If
        
        dm_ret = dm.FindStr(0, 0, 1024, 768, "异常操作", "000000-000000", 1.0, intX, intY)
        If intX > 0 and IntY > 0 Then 
                deng = 1
        End If
        
        dm_ret = dm.FindStr(0, 0, 1024, 768, "分钟后", "ffffff-000000", 1.0, intX, intY)
        If intX > 0 and IntY > 0 Then 
                deng = 1
        End If
        
        
        If deng > 0 Then 
                Call Lib.系统.结束进程("FTGMOS.exe")
                Delay 8000
                dm_ret = dm.FindStr(0, 0, 1024, 768, "登录器", "000000-000000", 1.0, intX, intY)
                If intX > 0 and IntY > 0 Then 
                        MoveTo intX, IntY
                        Delay 500
                        LeftClick 1
                        Delay 4000
                End If
                Delay 5000
                
                For 500
                
                        FindPic 0,0,1024,768,"Attachment:\denglu1.bmp",0.8,intX,intY
                        If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 2000
                        LeftClick 1
                        Delay 2000
                        End If
                        Delay 5000
                        
                        
                        FindPic 0,0,1024,768,"Attachment:\denglu2.bmp",0.8,intX,intY
                        If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 2000
                        LeftClick 1
                        Delay 2000
                        End If
                        Delay 5000
                        
                        dm_ret = dm.FindStr(0, 0, 1024, 768, "登录验", "000000-000000", 1.0, intX, intY)
                        If intX > 0 and IntY > 0 Then 
                                MoveTo intX+50, IntY+40
                                Delay 500
                                LeftClick 1
                                Delay 4000
                        Else 
                                FindPic 0,0,1024,768,"Attachment:\denglu3.bmp",0.9,intX,intY
                                If intX > 0 And intY > 0 Then 
                                MoveTo intX, intY
                                Delay 2000
                                LeftClick 1
                                Delay 2000
                                End If
                                Delay 20000
                                
                        
                                s = dm.Ocr(21, 0, 308, 18, "ffffff-000000", 1.0)
                                
                                If InStr(s, "波星") > 0 Then 
                                        
                                        
                                        FindPic 0,0,1024,768,"Attachment:\xxx.bmp",0.9,intX,intY
                                        If intX > 0 And intY > 0 Then 
                                                MoveTo intX, intY
                                                Delay 500
                                                LeftClick 1
                                                Delay 4000
                                        End If
                                        
                                        Delay 10000
                                        SetSimMode 0
                                        Delay 3000
                                        MoveTo 315, 464
                                        Delay 3000
                                        LeftDown 1
                                        
                                        Delay 3000
                                        MoveTo 316, 652
                                        Delay 3000
                                        LeftUp 1
                                        Delay 3000
                
                                        MoveTo 84,694 
                                        Delay 3000
                                        LeftClick 1
                                        Delay 3000
                                        
                                        Exit For
                                Else 
                                        Call Lib.系统.结束进程("FTGMOS.exe")
                                End If        
                        End If        
                Next        
        End If
        
End Sub


Sub 换装备
        
        Delay 3000
        KeyPress "A", 1
        Delay 3000
        FindPic 0,0,1024,768,"Attachment:\30yin1.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        
                End If
        Delay 2000
        s = dm.Ocr(0, 0, 1024, 768, "f70000-000000", 1.0)
        If InStr(s,"耐久度")>0 Then 
                hong=1
        End If
        Delay 2000
        FindPic 0,0,1024,768,"Attachment:\40che1.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        
                End If
                
        Delay 3000
        s = dm.Ocr(0, 0, 1024, 768, "f70000-000000", 1.0)
        If InStr(s,"耐久度")>0 Then 
                hong=1
        End If
        
        
        
        If hong = 1 Then 
                //MessageBox "1"
                Delay 3000
                KeyPress "A", 1
                flg = 1
                Call 回城
                Delay 3000
                KeyPress "A", 1
                Delay 2000
                FindPic 0,0,1024,768,"Attachment:\30yin1.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 500
                        LeftDoubleClick 1
                        Delay 2000
                End If
                
                FindPic 0,0,1024,768,"Attachment:\40che1.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 500
                        LeftDoubleClick 1
                        Delay 2000
                End If
                
                Delay 3000
                KeyPress "A", 1
                
                MoveTo 48, 31
                Delay 500
                RightClick 1
                Delay 3000
                MoveTo 649, 30
                Delay 500
                RightClick 1
                
                
                Delay 10000
                
                dm_ret = dm.FindStr(0,0,1024,768,"百","f7f7f7-000000",1.0,intX,intY)
                If intX > 0 and IntY > 0 Then 
                        MoveTo intX + 20, IntY + 40
                        Delay 500
                        LeftClick 1
                        dm_ret = dm.FindStr(0,0,1024,768,"卖","f7f7f7-000000",1.0,intX,intY)
                        If intX > 0 and IntY > 0 Then 
                                MoveTo intX +5, IntY + 5
                                Delay 500
                                LeftClick 1
                                Delay 2000
                                MoveTo 458, 528
                                Delay 500
                                LeftDown 1
                                Delay 8000
                                LeftUp 1
                                Delay 2000
                                
                                
                                
                                dm_ret = dm.FindStr(0, 0, 1024, 768, "领", "f7ebc6-000000", 1.0, intX, intY)
                                If IntX > 0 and IntY > 0 Then 
                                        MoveTo intX +250, IntY + 5
                                        Delay 500
                                        LeftClick 1
                                        Delay 2000
                                        MoveTo intX +340, IntY +108
                                        Delay 500
                                        LeftClick 1
                                        Delay 3000
                                        
                                        dm_ret =dm.FindStr(0, 0, 1024, 768, "安全锁", "f7f7f7-000000", 1.0, intX, intY)
                                        If IntX > 0 and IntY > 0 Then 
                                                
                                                Delay 2000
                                                MoveTo intX +60, IntY +60
                                                Delay 500
                                                LeftClick 1
                                                Delay 2000
                                                SayString ""&+jiesuo
                                                Delay 1000
                                                dm_ret =dm.FindStr(0, 0, 1024, 768, "解锁", "addbe7-000000", 1.0, intX, intY)
                                                If IntX > 0 and IntY > 0 Then 
                                                         Delay 2000
                                                        MoveTo intX +5, IntY +3
                                                        Delay 500
                                                        LeftClick 1
                                                        Delay 3000
                                                        dm_ret = dm.FindStr(0, 0, 1024, 768, "领", "f7ebc6-000000", 1.0, intX, intY)
                                                        If IntX > 0 and IntY > 0 Then 
                                                                MoveTo intX +250, IntY + 5
                                                                Delay 500
                                                                LeftClick 1
                                                                Delay 2000
                                                                MoveTo intX +340, IntY +108
                                                                Delay 500
                                                                LeftClick 1
                                                                Delay 3000
                                                        End If
                                                        
                                                End If
                                        End If
                                        
                                        
                                        
                                
                                End If
                                
                                
                                
                                
                                dm_ret = dm.FindStr(0, 0, 1024, 768, "改", "f7ebc6-000000", 1.0, intX, intY)
                                If IntX > 0 and IntY > 0 Then 
                                        MoveTo intX +250, IntY + 5
                                        Delay 500
                                        LeftClick 1
                                        Delay 2000
                                        MoveTo intX +340, IntY +108
                                        Delay 500
                                        LeftClick 1
                                        Delay 2000
                                
                                End If
                                
                        End If
                        
                        
                End If
                
                FindPic 0,0,1024,768,"Attachment:\xxx.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 500
                        LeftClick 1
                        Delay 4000
                End If
                
                dm_ret = dm.FindStr(0,0,1024,768,"百","f7f7f7-000000",1.0,intX,intY)
                If intX > 0 and IntY > 0 Then 
                        MoveTo intX + 20, IntY + 40
                        Delay 500
                        LeftClick 1
                        dm_ret = dm.FindStr(0,0,1024,768,"买","f7f7f7-000000",1.0,intX,intY)
                        If intX > 0 and IntY > 0 Then 
                                MoveTo intX +5, IntY + 5
                                Delay 500
                                LeftClick 1
                                Delay 2000
                                dm_ret = dm.FindStr(0, 0, 1024, 768, "领", "f7ebc6-000000", 1.0, intX, intY)
                                If IntX > 0 and IntY > 0 Then 
                                        MoveTo intX +250, IntY + 5
                                        Delay 500
                                        LeftClick 1
                                        Delay 2000
                                        MoveTo intX +340, IntY +108
                                        Delay 500
                                        LeftClick 1
                                        Delay 2000
                                
                                End If
                                
                                
                                dm_ret = dm.FindStr(0, 0, 1024, 768, "改", "f7ebc6-000000", 1.0, intX, intY)
                                If IntX > 0 and IntY > 0 Then 
                                        MoveTo intX +250, IntY + 5
                                        Delay 500
                                        LeftClick 1
                                        Delay 2000
                                        MoveTo intX +340, IntY +108
                                        Delay 500
                                        LeftClick 1
                                        Delay 2000
                                
                                End If
                                
                        End If
                        
                        
                End If
                
                FindPic 0,0,1024,768,"Attachment:\xxx.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 500
                        LeftClick 1
                        Delay 4000
                End If
                
                KeyPress "D", 1
                Delay 3000
                
                FindPic 0,0,1024,768,"Attachment:\zhengli.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 500
                        LeftClick 1
                        Delay 4000
                End If
                
                FindPic 0,0,1024,768,"Attachment:\40che.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 500
                        LeftDoubleClick 1
                        Delay 4000
                End If
                
                MoveTo 963, 44
                Delay 500
                LeftClick 1
                Delay 1000
                
                
                FindPic 0,0,1024,768,"Attachment:\30yin.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 500
                        LeftDoubleClick 1
                        Delay 4000
                End If
                
                
                FindPic 0,0,1024,768,"Attachment:\xxx.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 500
                        LeftClick 1
                        Delay 4000
                End If
                
                hong = 0
                
        End If
        
        FindPic 0,0,1024,768,"Attachment:\xxx.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 500
                        LeftClick 1
                        Delay 4000
        End If
        

End Sub

Sub 检测
        FindPic 0,0,1024,768,"Attachment:\jiance.bmp",0.7,intX,intY
                If intX> 0 And intY> 0 Then
                Delay 200
                MoveTo 350,660 
                Delay 1000
                LeftClick 1
                Delay 2000
                s = dm.Ocr(430,357,587,390 ,"120.2.98-20.20.20|0.100.91-20.20.20|194.7.91-20.20.20|203.13.48-20.20.20|359.56.94-20.20.20|359.62.68-20.20.20|0.100.35-20.20.20|0.100.74-20.20.20|359.98.68-20.20.20|5.64.81-20.20.20",1.0)
                //MessageBox s
                s = Replace(s, "-", "")
                s = Replace(s, "一", "")
                //MessageBox s
                
                b = 0
                If InStr(s, "加")>0 Then 
                         a=Split(s,"加")
                        b=a(0)*1+a(1)*1
                End If
                
                If InStr(s, "减")>0 Then 
                         a=Split(s,"减")
                        b=a(0)*1-a(1)*1
                End If
                
                //MessageBox b
                
                MoveTo 499,416  
                Delay 1000
                LeftClick 1
                Delay 1000
                SayString b
                MoveTo 530, 492
                Delay 1000
                LeftClick 1
                Delay 1000 
                
        End If
End Sub



Sub 屋检测
        Delay 2000
        c = dm.Ocr(85, 2, 300, 14, "ffffff-000000", 1.0)
        //MessageBox c
        If InStr(c, "安全屋") > 0 Then 
        
                Delay 2000
                For 5
                        
                        FindPic 0,0,1024,768,"Attachment:\xxx.bmp",0.9,intX,intY
                        If intX > 0 And intY > 0 Then 
                                MoveTo intX, intY
                                Delay 500
                                LeftClick 1
                                Delay 2000
                        End If
                        
                Next
                
                
                
        
        
        
                For 30
                        MoveTo 330, 397
                        RightClick 1
                        Delay 1000
                        MoveTo 144, 401
                        RightClick 1
                        Delay 1000
                        //MessageBox "2222"
                        
                        FindPic 0,0,1024,768,"Attachment:\anquan.bmp",0.7,intX,intY
                        If intX> 0 And intY> 0 Then
                                MoveTo intX, intY
                                LeftClick 3
                                Delay 2000
                                FindPic 0,0,1024,768,"Attachment:\anquan5.bmp",0.7,intX,intY
                                If intX > 0 And intY > 0 Then 
                                Exit For
                                End If
                        End If
                        
                        
                        FindPic 0,0,1024,768,"Attachment:\anquan1.bmp",0.7,intX,intY
                        If intX> 0 And intY> 0 Then
                                MoveTo intX, intY
                                LeftClick 3
                                Delay 2000
                                FindPic 0,0,1024,768,"Attachment:\anquan5.bmp",0.7,intX,intY
                                If intX > 0 And intY > 0 Then 
                                Exit For
                                End If
                        End If
                                        
                        FindPic 0,0,1024,768,"Attachment:\anquan2.bmp",0.7,intX,intY
                        If intX> 0 And intY> 0 Then
                                MoveTo intX, intY
                                LeftClick 3
                                Delay 2000
                                FindPic 0,0,1024,768,"Attachment:\anquan5.bmp",0.7,intX,intY
                                If intX > 0 And intY > 0 Then 
                                Exit For
                                End If
                        End If                
                                        
                                                
                        FindPic 0,0,1024,768,"Attachment:\anquan3.bmp",0.7,intX,intY
                        If intX> 0 And intY> 0 Then
                                MoveTo intX, intY
                                LeftClick 3
                                Delay 2000
                                FindPic 0,0,1024,768,"Attachment:\anquan5.bmp",0.7,intX,intY
                                If intX > 0 And intY > 0 Then 
                                Exit For
                                End If
                        End If
                        
                Next
                
                For 10
                        FindPic 0,0,1024,768,"Attachment:\anquan5.bmp",0.7,intX,intY
                        If intX > 0 And intY > 0 Then 
                        Else 
                        Exit Sub
                        End If
                        
                        
                        Delay 2000
                         s= dm.Ocr(430,357,587,390 ,"120.2.98-20.20.20|0.100.91-20.20.20|194.7.91-20.20.20|203.13.48-20.20.20|359.56.94-20.20.20|359.62.68-20.20.20|0.100.35-20.20.20|0.100.74-20.20.20|359.98.68-20.20.20|5.64.81-20.20.20",1.0)
                        //MessageBox s
                        s = Replace(s, "-", "")
                        s = Replace(s, "一", "")
                        //MessageBox s
                        
                        b = 0
                        If InStr(s, "加")>0 Then 
                                 a=Split(s,"加")
                                b=a(0)*1+a(1)*1
                        End If
                        
                        If InStr(s, "减")>0 Then 
                                 a=Split(s,"减")
                                b=a(0)*1-a(1)*1
                        End If
                        
                        //MessageBox b
                        
                        MoveTo 499,416  
                        Delay 1000
                        LeftClick 1
                        Delay 1000
                        SayString b
                        MoveTo 530, 492
                        Delay 1000
                        LeftClick 1
                        Delay 10000         
                        
                        s = dm.Ocr(85, 2, 300, 14, "ffffff-000000", 1.0)
                        If InStr(s, "安全屋") = 0 Then 
                                Exit For
                        End If
                        
                Next
                
                
                
        End If
End Sub


Sub 行走拾取
                
                //MessageBox "行走"&+flg

                //右
                For iyou
                        Call 自动登陆
                        Call 检测
                        FindColor 0,0,1024,768,"F70000",intX,intY
                        If intX > 0 And intY > 0 Then 
                                 
                                cx = intX + 25
                                cy = intY - 50
                                If cx < 700-25 Then 
                                        MoveTo 784,240 
                                        RightClick 1
                                    Delay 1000
                                    
                                    Call 拾取
                                    
                                    MoveTo 891,538 
                                    RightClick 1
                                    Delay 1000
                                    Call 拾取
                                Else 
                                                //MessageBox "到右边了"
                                                MoveTo 512, 376
                                                RightClick 1
                                            Delay 1000
                                                MoveTo 400, 376
                                                RightClick 1
                                            Delay 1000
                                                Exit For
                                End If
                        else        
                        MoveTo 969, 44
                        Delay 100
                        LeftClick 1
                        Delay 100
                        End If
                        
                        
                        
                        
                Next
                Call 区域判断
                
                //下
                For ixia
                        Call 自动登陆
                        Call 检测
                        FindColor 0,0,1024,768,"F70000",intX,intY
                        If intX > 0 And intY > 0 Then 
                                 
                                cx = intX + 25
                                cy = intY - 50
                                If cy < 490+50 Then 
                                        MoveTo 507,521 
                                        RightClick 1
                                    Delay 1000
                                    Call 拾取
                                    
                                    MoveTo 783,583 
                                    RightClick 1
                                    Delay 1000
                                    Call 拾取
                                Else 
                                                //MessageBox "到下边了"
                                                MoveTo 512, 376
                                                RightClick 1
                                            Delay 1000
                                                MoveTo 400, 376
                                                RightClick 1
                                            Delay 2000
                                                Exit For
                                End If
                        Else 
                        MoveTo 969, 44
                        Delay 100
                        LeftClick 1
                        Delay 100        
                        
                        End If
                        
                        
                        
                        
                Next
                
                Call 区域判断
                Call 加能量
                //左
                For izuo
                        Call 自动登陆
                        Call 检测
                        FindColor 0,0,1024,768,"F70000",intX,intY
                        If intX > 0 And intY > 0 Then 
                                 
                                cx = intX + 25
                                cy = intY - 50
                                If cx > 280-25 Then 
                                        MoveTo 341,153 
                                        RightClick 1
                                    Delay 1000
                                    Call 拾取
                                    MoveTo 187,516 
                                    RightClick 1
                                    Delay 1000
                                    Call 拾取
                                Else 
                                                //MessageBox "到左边了"
                                                MoveTo 512, 376
                                                RightClick 1
                                            Delay 1000
                                            
                                            
                                                MoveTo 400, 376
                                                RightClick 1
                                            Delay 1000
                                                Exit For
                                End If
                        Else 
                        MoveTo 969, 44
                        Delay 100
                        LeftClick 1
                        Delay 100        
                        
                        End If
                        
                        
                        
                        
                Next
                
                Call 区域判断
                
                
                //上
                For ishang
                        Call 自动登陆
                        Call 检测
                        FindColor 0,0,1024,768,"F70000",intX,intY
                        If intX > 0 And intY > 0 Then 
                                 
                                cx = intX + 25
                                cy = intY - 50
                                If cy > 230+50 Then 
                                        MoveTo 229,127 
                                        RightClick 1
                                    Delay 1000
                                    Call 拾取
                                    
                                    MoveTo 587,284 
                                    RightClick 1
                                    Delay 1000
                                    Call 拾取
                                Else 
                                                //MessageBox "到左边了"
                                                MoveTo 512, 376
                                                RightClick 1
                                            Delay 2000
                                                MoveTo 400, 376
                                                RightClick 1
                                            Delay 1000
                                                Exit For
                                End If
                        Else 
                        MoveTo 969, 44
                        Delay 100
                        LeftClick 1
                        Delay 100        
                        
                        End If
                        
                        
                        
                        
                Next
                Call 区域判断
                Call 吃体力
                Delay 2000
                Call 加能量
                Delay 2000
                Call 换装备
End Sub

Sub 拾取
                FindPic 112,150,836,607,"Attachment:\dibao.bmp",0.7,intX,intY
                If intX > 0 And intY > 0 Then 
                MoveTo intX - 20, intY - 10
                RightClick 1
                Delay 50
                
                MoveTo intX+20, intY+10
                RightClick 1
                Delay 50
                
                MoveTo intX-20, intY+10
                RightClick 1
                Delay 50
                
                MoveTo intX+20, intY-10
                RightClick 1
                
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                
                
                
                
        End If
        
        
        FindPic 112,150,836,607,"Attachment:\digui.bmp",0.6,intX,intY
                If intX > 0 And intY > 0 Then 
                MoveTo intX - 20, intY - 10
                RightClick 1
                Delay 50
                
                MoveTo intX+20, intY+10
                RightClick 1
                Delay 50
                
                MoveTo intX-20, intY+10
                RightClick 1
                Delay 50
                
                MoveTo intX+20, intY-10
                RightClick 1
                
                
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                
                
                
        End If
        
        FindPic 112,150,836,607,"Attachment:\dike.bmp",0.7,intX,intY
                If intX > 0 And intY > 0 Then 
                MoveTo intX - 20, intY - 10
                RightClick 1
                Delay 50
                
                MoveTo intX+20, intY+10
                RightClick 1
                Delay 50
                
                MoveTo intX-20, intY+10
                RightClick 1
                Delay 50
                
                MoveTo intX+20, intY-10
                RightClick 1
                
                
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                
                
                
        End If
        
        
        FindPic 112,150,836,607,"Attachment:\dijiao.bmp",0.7,intX,intY
                If intX > 0 And intY > 0 Then 
                MoveTo intX - 20, intY - 10
                RightClick 1
                Delay 50
                
                MoveTo intX+20, intY+10
                RightClick 1
                Delay 50
                
                MoveTo intX-20, intY+10
                RightClick 1
                Delay 50
                
                MoveTo intX+20, intY-10
                RightClick 1
                
        
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                KeyPress "E", 1
                Delay yanchi
                
                
        
                
        End If
End Sub

Sub 区域判断
        If xquyu = 1 Then 
                s = dm.Ocr(85, 2, 300, 14, "ffffff-000000", 1.0)
                If InStr(s, "安全区f06") > 0 Then 
                        Exit Sub
                Else 
                        //MessageBox"2"
                        flg = 1
                        Call 回城
                End If        
        End If
        
        If xquyu = 2 Then 
                s = dm.Ocr(85, 2, 300, 14, "ffffff-000000", 1.0)
                If InStr(s, "安全区f06-1") > 0 Then 
                        Exit Sub
                Else 
                        //MessageBox"3"
                        flg = 1
                        Call 回城
                End If        
        End If
        
        If xquyu = 3 Then 
                s = dm.Ocr(85, 2, 300, 14, "ffffff-000000", 1.0)
                If InStr(s, "安全区f06-2") > 0 Then 
                        Exit Sub
                Else 
                        //MessageBox"4"
                        flg = 1
                        Call 回城
                End If        
        End If
End Sub

Sub 加能量
                Delay 2000
                KeyPress "D", 1
                Delay 1000
                FindPic 0,0,1024,768,"Attachment:\zhengli.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 500
                        LeftClick 1
                        Delay 4000
                End If
                Delay 1000
                FindPic 223,190,863,726,"Attachment:\djnlb.bmp",0.8,intX,intY
                If intX > 0 And intY > 0 Then 
                        Delay 1000
                        MoveTo IntX + 3, IntY + 3
                        Delay 500
                        LeftDoubleClick 1
                        Delay 1000
                End If
                
                Call 关闭
                
End Sub

Sub 关闭
        For 5
                FindPic 0,0,1024,768,"Attachment:\xxx.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 500
                        LeftClick 1
                        Delay 2000
                End If
        Next
        
End Sub


Sub 吃体力
        Delay 2000
        MoveTo 969, 44
        Delay 500
        LeftDoubleClick 1
        Delay 1000
        KeyPress "C", 1
        Delay 1000
        //获取体力值
        s = dm.Ocr(298, 259, 316, 272, "f7ebc6-000000", 1.0)
        Delay 2000
        Call 关闭
        Delay 1000
        If s > shezhi_tili Then 
                Delay 1000
                Exit Sub
        Else 
                Delay 2000
                KeyPress "D", 1
                Delay 1000
                FindPic 0,0,1024,768,"Attachment:\zhengli.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                        MoveTo intX, intY
                        Delay 500
                        LeftClick 1
                        Delay 4000
                End If
                Delay 1000
                FindPic 223,190,863,726,"Attachment:\mifan.bmp",0.9,intX,intY
                If intX > 0 And intY > 0 Then 
                         Delay 1000
                        MoveTo IntX + 3, IntY + 3
                        Delay 500
                        LeftDoubleClick 1
                        Delay 1000
                        MoveTo 969, 44
                        Delay 500
                        LeftDoubleClick 1
                        Delay 1000
                End If
                Delay 1000
                Call 关闭
                Delay 1000
                dm_ret = dm.FindStr(281,193,835,605, "不", "f7c700-000000", 1.0, intX, intY)
                If IntX > 0 and IntY > 0 Then 
                        MoveTo IntX - 18, IntY + 6
                        Delay 1000
                        LeftClick 1
                        Delay 2000
                        MoveTo IntX + 37, IntY + 30
                        Delay 1000
                        LeftClick 1
                        Delay 1000
                End If
                
        End If
                
End Sub


Sub 血量
        //获取血值
        s = dm.Ocr(729, 230, 749, 243, "f7f7f7-000000", 1.0)
        
End Sub

Sub 红名
        dm_ret = dm.FindStr(0,0,1024,768,"红名村","ffffff-000000",1.0,intX,intY)
        If intX > 0 and IntY > 0 Then 
                Delay 1200000
        End If
                
End Sub

Sub 回城
        
        
        Call 红名
        Call 屋检测
        If flg = 1 Then 
                
                Delay 3000
                MoveTo 971, 46
                Delay 100
                LeftClick 1
                Delay 1000
                
                
                KeyPress "B", 1
                //MessageBox flg
                Delay 3000
                
                For 20
                
                        dm_ret = dm.FindStr(0,0,1024,768,"免费方式","f7df00-000000",1.0,intX,intY)
                        If intX > 0 and IntY > 0 Then 
                                Delay 3000
                                MoveTo intX+5, intY+3
                                Delay 1000
                                LeftClick 1
                                Exit For
                        Else 
                                Delay 3000
                                 MoveTo 695,705
                                Delay 1000
                                LeftClick 1
                                //MessageBox flg
                                Delay 3000
                                
                        End If
                                        
                Next
                
                
                
                For 20
                        Call 屋检测
                        Delay 38000
                        //s = dm.Ocr(85, 2, 300, 14, "ffffff-000000", 1.0)
                        dm_ret = dm.FindStr(85, 2, 300, 14,"基地大厅","ffffff-000000",1.0,intX,intY)
                        If intX > 0 And intY > 0 Then 
                                
                                dt = 0
                                
                                
                                FindPic 0,0,1024,768,"Attachment:\dating1.bmp",0.7,intX,intY
                                If intX > 0 And intY > 0 Then 
                                        dt=1
                                End If
                                
                                FindPic 0,0,1024,768,"Attachment:\dating2.bmp",0.7,intX,intY
                                If intX > 0 And intY > 0 Then 
                                        dt=1
                                End If

                                FindPic 0,0,1024,768,"Attachment:\dating3.bmp",0.7,intX,intY
                                If intX > 0 And intY > 0 Then 
                                        dt=1
                                End If

                                FindPic 0,0,1024,768,"Attachment:\dating4.bmp",0.7,intX,intY
                                If intX > 0 And intY > 0 Then 
                                        dt=1
                                End If

                                FindPic 0,0,1024,768,"Attachment:\dating5.bmp",0.7,intX,intY
                                If intX > 0 And intY > 0 Then 
                                        dt=1
                                End If

                        
                                If dt>0 Then 
                                        flg = 0
                                        //MessageBox "回程"&+flg
                                        Exit For
                                Else 
                                        Delay 3000
                                        MoveTo 971, 46
                                        Delay 100
                                        LeftClick 1
                                        Delay 1000
                                        
                                        
                                        KeyPress "B", 1
                                        //MessageBox flg
                                        Delay 3000
                                        
                                        For 20
                
                                                dm_ret = dm.FindStr(0,0,1024,768,"免费方式","f7df00-000000",1.0,intX,intY)
                                                If intX > 0 and IntY > 0 Then 
                                                        Delay 3000
                                                        MoveTo intX+5, intY+3
                                                        Delay 1000
                                                        LeftClick 1
                                                        Exit For
                                                Else 
                                                        Delay 3000
                                                         MoveTo 695,705
                                                        Delay 1000
                                                        LeftClick 1
                                                        //MessageBox flg
                                                        Delay 3000
                                                        
                                                End If
                                                                
                                        Next
                                        
                                End If
                                
                        
                        End If
                Next
        End If        
        
        
        
        
End Sub

Sub 出城
//MessageBox "c"&+flg
For 4
MoveTo 740, 551
RightClick 1
Delay 1000

MoveTo 843, 625
RightClick 1
Delay 1000
Next

Delay 3000
For 20

FindPic 0,0,1024,768,"Attachment:\jidi1.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then 
MoveTo intX, intY
Delay 100
RightClick 1
Delay 3000

KeyDown "Tab", 1
Delay 300
MoveTo 565, 200
Delay 300
RightClick 1
Delay 300
KeyUp "Tab", 1

Delay 3000
MoveTo 568, 305
Delay 300
LeftClick 1
Delay 3000
Exit For

End If                
Next

Delay 3000

s = dm.Ocr(85, 2, 300, 14, "ffffff-000000", 1.0)


If InStr(s,"行政区")>0 Then 

        MoveTo 445, 170
        RightClick 1
        Delay 3000
        MoveTo 108, 183
        RightClick 1
        Delay 4000
        MoveTo 202, 130
        RightClick 1
        Delay 4500
        
        For 30
        
                        MoveTo 700, 200
                        RightClick 1
                        Delay 2000
                        MoveTo 861, 222
                        RightClick 1
                        Delay 2000
                        
                        FindPic 0,0,1024,768,"Attachment:\c1.bmp",0.9,intX,intY
                        If intX > 0 And intY > 0 Then 
                                MoveTo intX, intY
                                Delay 100
                                RightClick 1
                                Delay 4000
                                MoveTo 499, 79
                                Delay 500
                                RightClick 1
                                Delay 15000 
                                MoveTo 559, 32
                                Delay 500
                                RightClick 1
                                Delay 4000 
                                MoveTo 783, 101
                                Delay 500
                                RightClick 1
                                Delay 4000 
                        End If
                        
                        
                        
                        
                        
                        
                        
                        FindPic 0,0,1024,768,"Attachment:\cheng1.bmp",0.9,intX,intY
                        If intX > 0 And intY > 0 Then 
                                MoveTo intX, intY
                                Delay 100
                                RightClick 1
                                Delay 3000
                                KeyDown "Tab", 1
                                Delay 300
                                MoveTo 896, 468
                                Delay 300
                                RightClick 1
                                Delay 300
                                KeyUp "Tab", 1
                                Delay 3000
                                
                                If xquyu = 1 Then 
                                        //1
                                        MoveTo 922, 311
                                        Delay 300
                                        LeftClick 1
                                        Delay 3000
                                        
                                End If
                                
                                If xquyu = 2 Then 
                                        //1
                                        MoveTo 922, 335
                                        Delay 300
                                        LeftClick 1
                                        Delay 3000
                                        
                                End If
                                
                                If xquyu = 3 Then 
                                        //1
                                        MoveTo 922, 358
                                        Delay 300
                                        LeftClick 1
                                        Delay 3000
                                        
                                End If
                                Delay 5000
                                s = dm.Ocr(85, 2, 300, 14, "ffffff-000000", 1.0)
                                Delay 5000
                                //MessageBox s
                                If InStr(s, "安全区f06") > 0 Then 
                                        Exit Sub
                                Else 
                                        //MessageBox flg
                                        flg = 1
                                        //MessageBox"5"        
                                        Call 回城
                                        
                                End If
                                
                                Exit For
                        End If                
        Next
Else 
        flg = 1
        //MessageBox flg
        //MessageBox"6"        
        Call 回城
        
End If

End Sub

成品地址：https://pan.baidu.com/s/1uH7ynHaMJVPyXGgP5vIxtA
源代码分享，仅供学习交流

1.shui

请问一下，在手机540*960上面写的代码怎么适配到其他分辨率？

ぐ飛哥。

1.shui 发表于 2018-9-23 16:10
请问一下，在手机540*960上面写的代码怎么适配到其他分辨率？

这个应该 可以通过 计算 得到 其他分辨率 的定点
我也是菜鸟 可以提供给你这个思路

菊的花

向大神膜拜学习

甜煮淡

感谢分享

wblank

感谢大佬分享

刘运东

感谢分享

husiyu317

感谢大佬分享

whitex

感谢分享

ToT、

谢谢分享