按键精灵，简单游戏脚本

最新推荐文章于 2023-01-06 22:02:29 发布
最新推荐文章于 2023-01-06 22:02:29 发布
阅读量8.8k 收藏 41
点赞数 13
分类专栏： 脚本 文章标签： 按键精灵
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/tz_1qu212/article/details/77803091
版权

编辑于2017年09月02日
按键精灵主要的几个功能界面如下：
左边的界面，可以拉取一些控件，实现可视化交互。附件就是存放脚本所需资源的地方，方便发布后分享给他人。上方比较重要的就是调试，发布和抓抓了。抓抓就是用来抓取点坐标颜色，抓取图片，抓取文字（需另行处理）。

界面页面大概是这样的，左边可以选择整体配色，中间窗体，选中的控件可以在右侧看到和编辑它的属性。输入框获取焦点后不知道为啥没有光标显示，也不知道相关方法，于是便在右边设置了焦点颜色。

抓抓，比较重要的一个工具，左上角放大镜功能可以更好的找点（能把点的坐标颜色存起来，然后在脚本页面看到）。上面的图像处理应该是用来处理一些图片中的文字一类的。下方的起点终点和大小可以让你知道你所选区域的坐标。左下的句柄功能属于高级一点的功能。

脚本可以直接通过左侧命令进行插入，也可以在右侧源文件中直接编辑。使用左侧命令插入可以是你在不熟悉具体语法时慢慢熟悉它。由于我对有些变量的定义不了解，所以变量都是以最简单的形式进行定义的。

最后是我写的某腾讯页游某一个界面的脚本，腾讯页游微端进行了一些防护，下面的脚本只适用于浏览器。下面的代码只是希望能给你一个参考学习之用。

 

Dim dots (20)
dots(0) = Array(617, 470)
dots(1) = Array(671, 470)
dots(2) = Array(724, 470)
dots(3) = Array(782, 470)
dots(4) = Array(834, 470)
dots(5) = Array(890, 470)
dots(6) = Array(942, 470)
dots(7) = Array(997, 470)
dots(8) = Array(1054, 470)
dots(9) = Array(1104, 470)
dots(10) = Array(1156, 470)
dots(11) = Array(1211, 470)
dots(12) = Array(1265, 470)
dots(13) = Array(1320, 470)
dots(14) = Array(626, 540)
dots(15) = Array(677, 540)
dots(16) = Array(727, 540)
dots(17) = Array(781, 540)
dots(18) = Array(834, 540)
dots(19) = Array(891, 540)
i=0
While i=0
    FindPic 1350,700,1480,800,"Attachment:\征战.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1350,700,1480,800,"Attachment:\回城.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        i=1
    End If
Wend
Dim lvzhi
lvzhi = False
If Form1.lvzhi.Value = 1 Then
    lvzhi = True
End If
Dim hanxin
hanxin = False
If Form1.hanxin.Value = 1 Then
    hanxin = True
End If
Dim liubang
liubang = False
If Form1.liubang.Value = 1 Then
    liubang = True
End If
Dim yuji
yuji = False
If Form1.yuji.Value = 1 Then
    yuji = True
End If
Dim xiangyu
xiangyu = False
If Form1.xiangyu.Value = 1 Then
    xiangyu = True
End If
Dim sangui
sangui = False
If Form1.sangui.Value = 1 Then
    sangui = True
End If
i=0
While i=0
    FindPic 750,100,900,200,"Attachment:\返回普通关卡.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1 
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 750,100,900,200,"Attachment:\返回大地图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1150,400,1350,600,"Attachment:\大地图徐州.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
    End If
Wend
i=0
While i = 0
Call closeHorn
    FindPic 450,550,600,700,"Attachment:\精英关卡.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
        MoveTo 0,0
    End If
Wend
While lvzhi
    FindPic 550,250,700,450,"Attachment:\吕雉小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 550,250,700,450,"Attachment:\吕雉大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            lvzhi = False
        Else
            Call chuangGuan
            Call xuZhouXuanJiang
        End If
    End If
Wend
While hanxin
    FindPic 550,250,1000,450,"Attachment:\韩信小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 550,250,1000,450,"Attachment:\韩信大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            hanxin = False
        Else
            Call chuangGuan
            Call xuZhouXuanJiang
        End If
    End If
Wend
While liubang
    FindPic 700,250,1150,450,"Attachment:\刘邦小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 700,250,1150,450,"Attachment:\刘邦大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            liubang = False
        Else
            Call chuangGuan
            Call xuZhouXuanJiang
        End If
    End If
Wend
While yuji
    FindPic 850,250,1300,450,"Attachment:\虞姬小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 850,250,1300,450,"Attachment:\虞姬大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            yuji = False
        Else
            Call chuangGuan
            Call xuZhouXuanJiang
        End If
    End If
Wend
While xiangyu
    FindPic 1000,250,1400,450,"Attachment:\项羽小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1000,250,1400,450,"Attachment:\项羽大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            xiangyu = False
        Else
            Call chuangGuan
            Call xuZhouXuanJiang
        End If
    End If
Wend
While sangui
    FindPic 1100,250,1500,450,"Attachment:\三桂小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1100,250,1500,450,"Attachment:\三桂大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            sangui = False
        Else
            Call chuangGuan
            Call xuZhouXuanJiang
        End If
    End If
Wend
Dim yaojing
yaojing = False
If Form1.yaojing.Value = 1 Then
    yaojing = True
End If
Dim qinqiong
qinqiong = False
If Form1.qinqiong.Value = 1 Then
    qinqiong = True
End If
Dim shimin
shimin = False
If Form1.shimin.Value = 1 Then
    shimin = True
End If
Dim shishi
shishi = False
If Form1.shishi.Value = 1 Then
    shishi = True
End If
Dim songjiang
songjiang = False
If Form1.songjiang.Value = 1 Then
    songjiang = True
End If
Dim yuwen
yuwen = False
If Form1.yuwen.Value = 1 Then
    yuwen = True
End If
i=0
While i=0
    FindPic 750,100,900,200,"Attachment:\返回普通关卡.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1 
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 750,100,900,200,"Attachment:\返回大地图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1100,550,1250,700,"Attachment:\大地图扬州.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
    End If
Wend
i=0
While i = 0
Call closeHorn
    FindPic 450,550,600,700,"Attachment:\精英关卡.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
        MoveTo 0,0
    End If
Wend
While yaojing
    FindPic 550,250,700,450,"Attachment:\陈咬金小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 550,250,700,450,"Attachment:\陈咬金大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            yaojing = False
        Else
            Call chuangGuan
            Call yangZhouXuanJiang
        End If
    End If
Wend
While qinqiong
    FindPic 550,250,1000,450,"Attachment:\秦琼小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 550,250,1000,450,"Attachment:\秦琼大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            qinqiong = False
        Else
            Call chuangGuan
            Call yangZhouXuanJiang
        End If
    End If
Wend
While shimin
    FindPic 700,250,1150,450,"Attachment:\李世民小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 700,250,1150,450,"Attachment:\李世民大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            shimin = False
        Else
            Call chuangGuan
            Call yangZhouXuanJiang
        End If
    End If
Wend
While shishi
    FindPic 850,250,1300,450,"Attachment:\李师师小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 850,250,1300,450,"Attachment:\李师师大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            shishi = False
        Else
            Call chuangGuan
            Call yangZhouXuanJiang
        End If
    End If
Wend
While songjiang
    FindPic 1000,250,1400,450,"Attachment:\宋江小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1000,250,1400,450,"Attachment:\宋江大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            songjiang = False
        Else
            Call chuangGuan
            Call yangZhouXuanJiang
        End If
    End If
Wend
While yuwen
    FindPic 1100,250,1500,450,"Attachment:\宇文化及小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1100,250,1500,450,"Attachment:\宇文化及大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            yuwen = False
        Else
            Call chuangGuan
            Call yangZhouXuanJiang
        End If
    End If
Wend
Dim xiaoqiao
xiaoqiao = False
If Form1.xiaoqiao.Value = 1 Then
    xiaoqiao = True
End If
Dim guanyu
guanyu = False
If Form1.guanyu.Value = 1 Then
    guanyu = True
End If
Dim caocao
caocao = False
If Form1.caocao.Value = 1 Then
    caocao = True
End If
Dim zhuge
zhuge = False
If Form1.zhuge.Value = 1 Then
    zhuge = True
End If
Dim zhurong
zhurong = False
If Form1.zhurong.Value = 1 Then
    zhurong = True
End If
Dim menghuo
menghuo = False
If Form1.menghuo.Value = 1 Then
    menghuo = True
End If
i=0
While i=0
    FindPic 750,100,900,200,"Attachment:\返回普通关卡.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1 
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 750,100,900,200,"Attachment:\返回大地图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 700,550,900,700,"Attachment:\大地图益州.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
    End If
Wend
i=0
While i = 0
Call closeHorn
    FindPic 450,550,600,700,"Attachment:\精英关卡.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
        MoveTo 0,0
    End If
Wend
While xiaoqiao
    FindPic 550,250,700,450,"Attachment:\小乔小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 550,250,700,450,"Attachment:\小乔大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            xiaoqiao = False
        Else
            Call chuangGuan
            Call yiZhouXuanJiang
        End If
    End If
Wend
While guanyu
    FindPic 550,250,1000,450,"Attachment:\关羽小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 550,250,1000,450,"Attachment:\关羽大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            guanyu = False
        Else
            Call chuangGuan
            Call yiZhouXuanJiang
        End If
    End If
Wend
While caocao
    FindPic 700,250,1150,450,"Attachment:\曹操小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 700,250,1150,450,"Attachment:\曹操大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            caocao = False
        Else
            Call chuangGuan
            Call yiZhouXuanJiang
        End If
    End If
Wend
While zhuge
    FindPic 850,250,1300,450,"Attachment:\诸葛小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 850,250,1300,450,"Attachment:\诸葛大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            zhuge = False
        Else
            Call chuangGuan
            Call yiZhouXuanJiang
        End If
    End If
Wend
While zhurong
    FindPic 1000,250,1400,450,"Attachment:\祝融小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1000,250,1400,450,"Attachment:\祝融大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            zhurong = False
        Else
            Call chuangGuan
            Call yiZhouXuanJiang
        End If
    End If
Wend
While menghuo
    FindPic 1100,250,1500,450,"Attachment:\孟获小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1100,250,1500,450,"Attachment:\孟获大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            menghuo = False
        Else
            Call chuangGuan
            Call yiZhouXuanJiang
        End If
    End If
Wend
Dim chensheng
chensheng = False
If Form1.chensheng.Value = 1 Then
    chensheng = True
End If
Dim jingke
jingke = False
If Form1.jingke.Value = 1 Then
    jingke = True
End If
Dim shangyang
shangyang = False
If Form1.shangyang.Value = 1 Then
    shangyang = True
End If
Dim yingzheng
yingzheng = False
If Form1.yingzheng.Value = 1 Then
    yingzheng = True
End If
Dim shangzhou
shangzhou = False
If Form1.shangzhou.Value = 1 Then
    shangzhou = True
End If
Dim daji
daji = False
If Form1.daji.Value = 1 Then
    daji = True
End If
i=0
While i=0
    FindPic 750,100,900,200,"Attachment:\返回普通关卡.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1 
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 750,100,900,200,"Attachment:\返回大地图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 850,450,1050,600,"Attachment:\大地图中州.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
    End If
Wend
i=0
While i = 0
Call closeHorn
    FindPic 450,550,600,700,"Attachment:\精英关卡.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
        MoveTo 0,0
    End If
Wend
While chensheng
    FindPic 550,250,700,450,"Attachment:\陈胜小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 550,250,700,450,"Attachment:\陈胜大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            chensheng = False
        Else
            Call chuangGuan
            Call zhongZhouXuanJiang
        End If
    End If
Wend
While jingke
    FindPic 550,250,1000,450,"Attachment:\荆轲小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 550,250,1000,450,"Attachment:\荆轲大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            jingke = False
        Else
            Call chuangGuan
            Call zhongZhouXuanJiang
        End If
    End If
Wend
While shangyang
    FindPic 700,250,1150,450,"Attachment:\商鞅小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 700,250,1150,450,"Attachment:\商鞅大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            shangyang = False
        Else
            Call chuangGuan
            Call zhongZhouXuanJiang
        End If
    End If
Wend
While yingzheng
    FindPic 850,250,1300,450,"Attachment:\嬴政小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 850,250,1300,450,"Attachment:\嬴政大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            yingzheng = False
        Else
            Call chuangGuan
            Call zhongZhouXuanJiang
        End If
    End If
Wend
While shangzhou
    FindPic 1000,250,1400,450,"Attachment:\商纣小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1000,250,1400,450,"Attachment:\商纣大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            shangzhou = False
        Else
            Call chuangGuan
            Call zhongZhouXuanJiang
        End If
    End If
Wend
While daji
    FindPic 1100,250,1500,450,"Attachment:\妲己小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1100,250,1500,450,"Attachment:\妲己大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            daji = False
        Else
            Call chuangGuan
            Call zhongZhouXuanJiang
        End If
    End If
Wend
Dim shiqian
shiqian = False
If Form1.shiqian.Value = 1 Then
    shiqian = True
End If
Dim wusong
wusong = False
If Form1.wusong.Value = 1 Then
    wusong = True
End If
Dim likui
likui = False
If Form1.likui.Value = 1 Then
    likui = True
End If
Dim baosi
baosi = False
If Form1.baosi.Value = 1 Then
    baosi = True
End If
Dim gaoqiu
gaoqiu = False
If Form1.gaoqiu.Value = 1 Then
    gaoqiu = True
End If
i=0
While i=0
    FindPic 750,100,900,200,"Attachment:\返回普通关卡.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1 
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 750,100,900,200,"Attachment:\返回大地图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1050,250,1250,450,"Attachment:\大地图青州.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
    End If
Wend
i=0
While i = 0
Call closeHorn
    FindPic 450,550,600,700,"Attachment:\精英关卡.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
        MoveTo 0,0
    End If
Wend
While shiqian
    FindPic 500,250,700,450,"Attachment:\时迁小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 500,250,750,450,"Attachment:\时迁大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            shiqian = False
        Else
            Call chuangGuan
            Call qingZhouXuanJiang
        End If
    End If
Wend
While wusong
    FindPic 750,250,1000,450,"Attachment:\武松小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 700,250,1000,450,"Attachment:\武松大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            wusong = False
        Else
            Call chuangGuan
            Call qingZhouXuanJiang
        End If
    End If
Wend
While likui
    FindPic 900,250,1150,450,"Attachment:\李逵小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 800,250,1150,450,"Attachment:\李逵大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            likui = False
        Else
            Call chuangGuan
            Call qingZhouXuanJiang
        End If
    End If
Wend
While baosi
    FindPic 1100,250,1350,450,"Attachment:\褒姒小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 900,250,1300,450,"Attachment:\褒姒大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            baosi = False
        Else
            Call chuangGuan
            Call qingZhouXuanJiang
        End If
    End If
Wend
While gaoqiu
    FindPic 1250,250,1500,450,"Attachment:\高俅小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1100,250,1500,450,"Attachment:\高俅大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            gaoqiu = False
        Else
            Call chuangGuan
            Call qingZhouXuanJiang
        End If
    End If
Wend
Dim chuangwang
chuangwang = False
If Form1.chuangwang.Value = 1 Then
    chuangwang = True
End If
Dim yuanyuan
yuanyuan = False
If Form1.yuanyuan.Value = 1 Then
    yuanyuan = True
End If
Dim bianque
bianque = False
If Form1.bianque.Value = 1 Then
    bianque = True
End If
Dim goujian
goujian = False
If Form1.goujian.Value = 1 Then
    goujian = True
End If
Dim xiaozhuang
xiaozhuang = False
If Form1.xiaozhuang.Value = 1 Then
    xiaozhuang = True
End If
Dim aobai
aobai = False
If Form1.aobai.Value = 1 Then
    aobai = True
End If
i=0
While i=0
    FindPic 750,100,900,200,"Attachment:\返回普通关卡.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1 
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 750,100,900,200,"Attachment:\返回大地图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1200,150,1450,350,"Attachment:\大地图幽州.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
    End If
Wend
i=0
While i = 0
Call closeHorn
    FindPic 450,550,600,700,"Attachment:\精英关卡.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
        MoveTo 0,0
    End If
Wend
While chuangwang
    FindPic 550,250,700,450,"Attachment:\闯王小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 550,250,700,450,"Attachment:\闯王大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            chuangwang = False
        Else
            Call chuangGuan
            Call youZhouXuanJiang
        End If
    End If
Wend
While yuanyuan
    FindPic 550,250,1000,450,"Attachment:\圆圆小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 550,250,1000,450,"Attachment:\圆圆大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            yuanyuan = False
        Else
            Call chuangGuan
            Call youZhouXuanJiang
        End If
    End If
Wend
While bianque
    FindPic 700,250,1150,450,"Attachment:\扁鹊小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 700,250,1150,450,"Attachment:\扁鹊大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            bianque = False
        Else
            Call chuangGuan
            Call youZhouXuanJiang
        End If
    End If
Wend
While goujian
    FindPic 850,250,1300,450,"Attachment:\勾践小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 850,250,1300,450,"Attachment:\勾践大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            goujian = False
        Else
            Call chuangGuan
            Call youZhouXuanJiang
        End If
    End If
Wend
While xiaozhuang
    FindPic 1000,250,1400,450,"Attachment:\孝庄小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1000,250,1400,450,"Attachment:\孝庄大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            xiaozhuang = False
        Else
            Call chuangGuan
            Call youZhouXuanJiang
        End If
    End If
Wend
While aobai
    FindPic 1100,250,1500,450,"Attachment:\鳌拜小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1100,250,1500,450,"Attachment:\鳌拜大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            aobai = False
        Else
            Call chuangGuan
            Call youZhouXuanJiang
        End If
    End If
Wend
Dim yuanzhang
yuanzhang = False
If Form1.yuanzhang.Value = 1 Then
    yuanzhang = True
End If
Dim yuefei
yuefei = False
If Form1.yuefei.Value = 1 Then
    yuefei = True
End If
Dim liulang
liulang = False
If Form1.liulang.Value = 1 Then
    liulang = True
End If
Dim kehan
kehan = False
If Form1.kehan.Value = 1 Then
    kehan = True
End If
Dim xiaohou
xiaohou = False
If Form1.xiaohou.Value = 1 Then
    xiaohou = True
End If
i=0
While i=0
    FindPic 750,100,900,200,"Attachment:\返回普通关卡.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1 
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 750,100,900,200,"Attachment:\返回大地图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 850,200,1050,450,"Attachment:\大地图漠北.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
    End If
Wend
i=0
While i = 0
Call closeHorn
    FindPic 450,550,600,700,"Attachment:\精英关卡.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
        MoveTo 0,0
    End If
Wend
While yuanzhang
    FindPic 500,250,700,450,"Attachment:\元璋小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 500,250,750,450,"Attachment:\元璋大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            yuanzhang = False
        Else
            Call chuangGuan
            Call moBeiuXuanJiang
        End If
    End If
Wend
While yuefei
    FindPic 750,250,1000,450,"Attachment:\岳飞小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 700,250,1000,450,"Attachment:\岳飞大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            yuefei = False
        Else
            Call chuangGuan
            Call moBeiuXuanJiang
        End If
    End If
Wend
While liulang
    FindPic 900,250,1150,450,"Attachment:\六郎小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 800,250,1150,450,"Attachment:\六郎大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            liulang = False
        Else
            Call chuangGuan
            Call moBeiuXuanJiang
        End If
    End If
Wend
While kehan
    FindPic 1100,250,1350,450,"Attachment:\可汗小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 900,250,1300,450,"Attachment:\可汗大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            kehan = False
        Else
            Call chuangGuan
            Call moBeiuXuanJiang
        End If
    End If
Wend
While xiaohou
    FindPic 1250,250,1500,450,"Attachment:\萧后小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1100,250,1500,450,"Attachment:\萧后大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            xiaohou = False
        Else
            Call chuangGuan
            Call moBeiuXuanJiang
        End If
    End If
Wend
Dim wudi
wudi = False
If Form1.wudi.Value = 1 Then
    wudi = True
End If
Dim feiyan
feiyan = False
If Form1.feiyan.Value = 1 Then
    feiyan = True
End If
Dim songzu
songzu = False
If Form1.songzu.Value = 1 Then
    songzu = True
End If
Dim lichong
lichong = False
If Form1.lichong.Value = 1 Then
    lichong = True
End If
Dim sanfeng
sanfeng = False
If Form1.sanfeng.Value = 1 Then
    sanfeng = True
End If
i=0
While i=0
    FindPic 750,100,900,200,"Attachment:\返回普通关卡.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1 
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 750,100,900,200,"Attachment:\返回大地图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 650,250,900,500,"Attachment:\大地图西域.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
    End If
Wend
i=0
While i = 0
Call closeHorn
    FindPic 450,550,600,700,"Attachment:\精英关卡.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
        MoveTo 0,0
    End If
Wend
While wudi
    FindPic 500,250,700,450,"Attachment:\武帝小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 500,250,750,450,"Attachment:\武帝大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            wudi = False
        Else
            Call chuangGuan
            Call xiYuXuanJiang
        End If
    End If
Wend
While feiyan
    FindPic 750,250,1000,450,"Attachment:\飞燕小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 700,250,1000,450,"Attachment:\飞燕大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            feiyan = False
        Else
            Call chuangGuan
            Call xiYuXuanJiang
        End If
    End If
Wend
While songzu
    FindPic 900,250,1150,450,"Attachment:\宋祖小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 800,250,1150,450,"Attachment:\宋祖大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            songzu = False
        Else
            Call chuangGuan
            Call xiYuXuanJiang
        End If
    End If
Wend
While linchong
    FindPic 1100,250,1350,450,"Attachment:\林冲小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 900,250,1300,450,"Attachment:\林冲大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            linchong = False
        Else
            Call chuangGuan
            Call xiYuXuanJiang
        End If
    End If
Wend
While sanfeng
    FindPic 1250,250,1500,450,"Attachment:\三丰小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1100,250,1500,450,"Attachment:\三丰大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            sanfeng = False
        Else
            Call chuangGuan
            Call xiYuXuanJiang
        End If
    End If
Wend
Dim xishi
xishi = False
If Form1.xishi.Value = 1 Then
    xishi = True
End If
Dim liyu
liyu = False
If Form1.liyu.Value = 1 Then
    liyu = True
End If
Dim libai
libai = False
If Form1.libai.Value = 1 Then
    libai = True
End If
Dim luocheng
luocheng = False
If Form1.luocheng.Value = 1 Then
    luocheng = True
End If
Dim digong
digong = False
If Form1.digong.Value = 1 Then
    digong = True
End If
i=0
While i=0
    FindPic 750,100,900,200,"Attachment:\返回普通关卡.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1 
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 750,100,900,200,"Attachment:\返回大地图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 450,450,650,650,"Attachment:\大地图吐蕃.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
    End If
Wend
i=0
While i = 0
Call closeHorn
    FindPic 450,550,600,700,"Attachment:\精英关卡.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
        MoveTo 0,0
    End If
Wend
While xishi
    FindPic 500,250,700,450,"Attachment:\西施小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 500,250,750,450,"Attachment:\西施大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            xishi = False
        Else
            Call chuangGuan
            Call tuBoXuanJiang
        End If
    End If
Wend
While liyu
    FindPic 750,250,1000,450,"Attachment:\李煜小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 700,250,1000,450,"Attachment:\李煜大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            liyu = False
        Else
            Call chuangGuan
            Call tuBoXuanJiang
        End If
    End If
Wend
While libai
    FindPic 900,250,1150,450,"Attachment:\李白小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 800,250,1150,450,"Attachment:\李白大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            libai = False
        Else
            Call chuangGuan
            Call tuBoXuanJiang
        End If
    End If
Wend
While luocheng
    FindPic 1100,250,1350,450,"Attachment:\罗成小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 900,250,1300,450,"Attachment:\罗成大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            luocheng = False
        Else
            Call chuangGuan
            Call tuBoXuanJiang
        End If
    End If
Wend
While digong
    FindPic 1250,250,1500,450,"Attachment:\狄公小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1100,250,1500,450,"Attachment:\狄公大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            digong = False
        Else
            Call chuangGuan
            Call tuBoXuanJiang
        End If
    End If
Wend
Dim bole
bole = False
If Form1.bole.Value = 1 Then
    bole = True
End If
Dim mozi
mozi = False
If Form1.mozi.Value = 1 Then
    mozi = True
End If
Dim zhaowang
zhaowang = False
If Form1.zhaowang.Value = 1 Then
    zhaowang = True
End If
Dim zhangfei
zhangfei = False
If Form1.zhangfei.Value = 1 Then
    zhangfei = True
End If
Dim zhaoyun
zhaoyun = False
If Form1.zhaoyun.Value = 1 Then
    zhaoyun = True
End If
i=0
While i=0
    FindPic 750,100,900,200,"Attachment:\返回普通关卡.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1 
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 750,100,900,200,"Attachment:\返回大地图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 550,200,750,350,"Attachment:\大地图北疆.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
    End If
Wend
i=0
While i = 0
Call closeHorn
    FindPic 450,550,600,700,"Attachment:\精英关卡.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
        MoveTo 0,0
    End If
Wend
While bole
    FindPic 500,250,700,450,"Attachment:\伯乐小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 500,250,750,450,"Attachment:\伯乐大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            bole = False
        Else
            Call chuangGuan
            Call beiJiangXuanJiang
        End If
    End If
Wend
While mozi
    FindPic 750,250,1000,450,"Attachment:\墨子小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 700,250,1000,450,"Attachment:\墨子大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            mozi = False
        Else
            Call chuangGuan
            Call beiJiangXuanJiang
        End If
    End If
Wend
While zhaowang
    FindPic 900,250,1150,450,"Attachment:\赵王小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 800,250,1150,450,"Attachment:\赵王大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            zhaowang = False
        Else
            Call chuangGuan
            Call beiJiangXuanJiang
        End If
    End If
Wend
While zhangfei
    FindPic 1100,250,1350,450,"Attachment:\张飞小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 900,250,1300,450,"Attachment:\张飞大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            zhangfei = False
        Else
            Call chuangGuan
            Call beiJiangXuanJiang
        End If
    End If
Wend
While zhaoyun
    FindPic 1250,250,1500,450,"Attachment:\赵云小图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 1100,250,1500,450,"Attachment:\赵云大图.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        Call closeHorn
        FindPic 500,650,1500,750,"Attachment:\结束闯关.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then
            zhaoyun = False
        Else
            Call chuangGuan
            Call beiJiangXuanJiang
        End If
    End If
Wend
Function closeHorn
i=0
While i=0
    FindPic 400,700,500,850,"Attachment:\喇叭栏打开状态.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX,intY
        Delay 300
        LeftClick 1
        Delay 2000
        MoveTo 0,0
    End If
    FindPic 400,700,500,850,"Attachment:\喇叭栏关闭状态.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then 
        i=1
    End If
Wend
End Function
Function chuangGuan
i=0
While i=0
    FindPic 500,650,1500,750,"Attachment:\单人闯关.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
        MoveTo 0,0
    End If
Wend
End Function
Function xuZhouXuanJiang
    Dim jiang1
    Dim jiang2
    Dim jiang3
    Dim jiang4
    jiang1 = CInt(Form1.InputBox1.Text)
    jiang2 = CInt(Form1.InputBox2.Text)
    jiang3 = CInt(Form1.InputBox3.Text)
    jiang4 = jiang3
    Call xuanJiang(jiang1,jiang2,jiang3,jiang4)
End Function
Function yangZhouXuanJiang
    Dim jiang1
    Dim jiang2
    Dim jiang3
    Dim jiang4
    jiang1 = CInt(Form1.InputBox4.Text)
    jiang2 = CInt(Form1.InputBox5.Text)
    jiang3 = CInt(Form1.InputBox6.Text)
    jiang4 = jiang3
    Call xuanJiang(jiang1,jiang2,jiang3,jiang4)
End Function
Function yiZhouXuanJiang
    Dim jiang1
    Dim jiang2
    Dim jiang3
    Dim jiang4
    jiang1 = CInt(Form1.InputBox7.Text)
    jiang2 = CInt(Form1.InputBox8.Text)
    jiang3 = CInt(Form1.InputBox9.Text)
    jiang4 = jiang3
    Call xuanJiang(jiang1,jiang2,jiang3,jiang4)
End Function
Function zhongZhouXuanJiang
    Dim jiang1
    Dim jiang2
    Dim jiang3
    Dim jiang4
    jiang1 = CInt(Form1.InputBox10.Text)
    jiang2 = CInt(Form1.InputBox11.Text)
    jiang3 = CInt(Form1.InputBox12.Text)
    jiang4 = CInt(Form1.InputBox13.Text)
    Call xuanJiang(jiang1,jiang2,jiang3,jiang4)
End Function
Function qingZhouXuanJiang
    Dim jiang1
    Dim jiang2
    Dim jiang3
    Dim jiang4
    jiang1 = CInt(Form1.InputBox14.Text)
    jiang2 = CInt(Form1.InputBox15.Text)
    jiang3 = CInt(Form1.InputBox16.Text)
    jiang4 = jiang3
    Call xuanJiang(jiang1,jiang2,jiang3,jiang4)
End Function
Function youZhouXuanJiang
    Dim jiang1
    Dim jiang2
    Dim jiang3
    Dim jiang4
    jiang1 = CInt(Form1.InputBox17.Text)
    jiang2 = CInt(Form1.InputBox18.Text)
    jiang3 = CInt(Form1.InputBox19.Text)
    jiang4 = jiang3
    Call xuanJiang(jiang1,jiang2,jiang3,jiang4)
End Function
Function moBeiXuanJiang
    Dim jiang1
    Dim jiang2
    Dim jiang3
    Dim jiang4
    jiang1 = CInt(Form1.InputBox20.Text)
    jiang2 = CInt(Form1.InputBox21.Text)
    jiang3 = CInt(Form1.InputBox22.Text)
    jiang4 = jiang3
    Call xuanJiang(jiang1,jiang2,jiang3,jiang4)
End Function
Function xiYuXuanJiang
    Dim jiang1
    Dim jiang2
    Dim jiang3
    Dim jiang4
    jiang1 = CInt(Form1.InputBox23.Text)
    jiang2 = CInt(Form1.InputBox24.Text)
    jiang3 = CInt(Form1.InputBox25.Text)
    jiang4 = jiang3
    Call xuanJiang(jiang1,jiang2,jiang3,jiang4)
End Function
Function tuBoXuanJiang
    Dim jiang1
    Dim jiang2
    Dim jiang3
    Dim jiang4
    jiang1 = CInt(Form1.InputBox26.Text)
    jiang2 = CInt(Form1.InputBox27.Text)
    jiang3 = CInt(Form1.InputBox28.Text)
    jiang4 = jiang3
    Call xuanJiang(jiang1,jiang2,jiang3,jiang4)
End Function
Function beiJiangXuanJiang
    Dim jiang1
    Dim jiang2
    Dim jiang3
    Dim jiang4
    jiang1 = CInt(Form1.InputBox29.Text)
    jiang2 = CInt(Form1.InputBox30.Text)
    jiang3 = CInt(Form1.InputBox31.Text)
    jiang4 = jiang3
    Call xuanJiang(jiang1,jiang2,jiang3,jiang4)
End Function
Function xuanJiang(jiang1,jiang2,jiang3,jiang4)
    MoveTo dots(jiang1-1)(0),dots(jiang1-1)(1)
    Delay 300
    LeftClick 1
    Delay 2000
    MoveTo dots(jiang2-1)(0),dots(jiang2-1)(1)
    Delay 300
    LeftClick 1
    Delay 2000
    MoveTo dots(jiang3-1)(0),dots(jiang3-1)(1)
    Delay 300
    LeftClick 1
    Delay 2000
    MoveTo dots(jiang4-1)(0),dots(jiang4-1)(1)
    Delay 300
    LeftClick 1
    Delay 2000
    MoveTo 0,0
i=0
While i=0
    FindPic 1100,650,1400,750,"Attachment:\开始游戏.bmp",0.9,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        Delay 2000
        i=1
        MoveTo 0,0
    End If
Wend
Call game
End Function
Function game
Dim continue
continue = True
While continue
    FindPic 440,560,650,820,"Attachment:\被动出牌状态.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        Call passive
    End If
    FindPic 440,560,650,820,"Attachment:\主动出牌状态.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        Call postive
    End If
    FindPic 900,750,1050,820,"Attachment:\退出关卡.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        MoveTo intX, intY
        Delay 300
        LeftClick 1
        continue = False
    End If
    FindPic 550,450,1500,500,"Attachment:\关卡简介.bmp",0.5,intX,intY
    If intX > 0 And intY > 0 Then
        continue = False
    End If
Wend
End Function
Function passive
    i=10
While i > 0
MoveTo 950, 520
LeftClick 1
FindPic 900,550,1300,620,"Attachment:\被动出牌.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX, intY
    Delay 300
    LeftClick 1
    Delay 2000
    MoveTo 950,520
    i = 0
    Else 
        FindPic 1000, 550, 1200, 650, "Attachment:\取消.bmp", 0.5, intX, intY
        If intX > 0 And intY > 0 Then
            MoveTo intX, intY
            Delay 300
            LeftClick 1
            Delay 2000
            MoveTo 950,520
            i = 0
        End If
End If
FindPic 900,550,1300,620,"Attachment:\被动触发技能.bmp",0.5,intX,intY
If intX2 > 0 And intY2 > 0 Then
    MoveTo intX, intY
    Delay 300
    LeftClick 1
    Delay 2000
    MoveTo 950,520
    i=0
End If
FindPic 900, 450, 1050, 550, "Attachment:\猜花色.bmp", 0.5, intX, intY
If intX > 0 And intY > 0 Then
    MoveTo intX, intY
    Delay 300
    LeftClick 1
    Delay 2000
    MoveTo 950,520
    i = 0
End If
FindPic 900, 450, 1050, 550, "Attachment:\五谷丰登.bmp", 0.5, intX, intY
If intX > 0 And intY > 0 Then 
    MoveTo 1120, 400
    LeftClick 1
    MoveTo 1020, 400
    LeftClick 1
    MoveTo 920, 400
    LeftClick 1
    MoveTo 820, 400
    LeftClick 1 
    MoveTo 1120, 270
    LeftClick 1
    MoveTo 1020, 270
    LeftClick 1
    MoveTo 920, 270
    LeftClick 1
    MoveTo 820, 270
    LeftClick 1
    Delay 300
    MoveTo intX, intY
    LeftClick 1
    Delay 2000
    MoveTo 950,520
    i = 0
End If
    i = i-1
Wend
End Function
Function postive
i=3
While i>0
MoveTo 700, 760
LeftClick 1
Delay 50
MoveTo 750, 760
LeftClick 1
Delay 50
MoveTo 800, 760
LeftClick 1
Delay 50
MoveTo 850, 760
LeftClick 1
Delay 50
MoveTo 900, 760
LeftClick 1
Delay 50
MoveTo 950, 760
LeftClick 1
Delay 50
MoveTo 1000, 760
LeftClick 1
Delay 50
MoveTo 1050, 760
LeftClick 1
Delay 50
MoveTo 1100, 760
LeftClick 1
Delay 50
MoveTo 1150, 760
LeftClick 1
Delay 50
MoveTo 1200, 760
LeftClick 1
Delay 300
MoveTo 1400, 400
LeftClick 1
Delay 300
i=10
While i>0
FindPic 600,750,1000,820,"Attachment:\疏财.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX, intY
    Delay 300
    LeftClick 1
    Delay 2000
    i=0
End If
i = i-1
Wend
FindPic 900,550,1300,620,"Attachment:\被动出牌.bmp",0.5,intX,intY
If intX > 0 And intY > 0 Then
    MoveTo intX, intY
    Delay 300
    LeftClick 1
    Delay 2000
End If
i = i-1
Wend
End Function
EndScript

 

tz_1qu212
关注
  • 13
    点赞
  • 踩
  • 41
    收藏
    觉得还不错? 一键收藏
  • 4
    评论
专栏目录
简易版按键精灵源码
04-22
真正源码 c语言 编写 纯代码 无插件 绿色代码放心使用哦。
按键精灵网游脚本编写教程
04-15
按键精灵网游脚本编写教程按键精灵网游脚本编写教程按键精灵网游脚本编写教程按键精灵网游脚本编写教程
按键精灵 脚本
zhang804633234的专栏
01-06 5901
Call 注册大漠Dimenv 环境变量句柄Dim cpuid : cpuid = Plugin.Angel_sys.GetCpuId()'唯一ID//环境变量,线程里面要用到.要定义为环境变量ID句柄字符串 = ""//****************************** 检测按键,动作 ***************************************do Call Plugin.Msg.Tips("按Insert键绑定游戏,按Delete键解绑游戏") Key = Wa
按键精灵游戏实战实例1
九黎AJ的博客
10-21 867
普通交流群698307198欢迎加入v群,和各位大神一同交流 免责声明:本博客提供的所有内容仅供学习、分享与交流，我们不保证内容的正确性。通过使用本博客内容随之而来的问题与本博客无关。当使用本博客代码时，代表你已接受本博客的免责声明 群里有人要,正好我这里有些代码,就发出来了.希望对大家有帮助. 正文部分 Dim intX,intY Call 流程()//调用函数流程() Function 流程() Call 滑动() End Function Function 滑动() While.
MySQL查看表占用文件大小脚本
Lonely passerby
10-22 228
脚本如下： SELECT table_name AS TableName, TRUNCATE ( data_length / 1024 / 1024 / 1024, 2 ) AS DataLength, TRUNCATE ( index_length / 1024 / 1024 / 1024, 2 ) AS DataIndex, TRUNCATE (( data_length + index_length )/ 1024 / 1024 / 1024, 2 ) AS DataSum FROM
按键刷药_传奇游戏_传奇_传奇加药脚本_按键精灵mmt_通用按键_
09-30
【按键刷药_传奇游戏_传奇_传奇加药脚本_按键精灵mmt_通用按键】这一主题涉及到的是在网络游戏传奇中的自动化操作技术，特别是利用工具提高游戏效率的策略。在这个领域，玩家通常会寻求各种方法来提升游戏体验，其中...
按键精灵源代码(含源代码)_按键_发声_检测键盘_按键精灵u_
10-04
这个压缩包文件包含了按键精灵的源代码，为学习自动化技术、脚本编写以及深入理解按键精灵工作原理的用户提供了一个宝贵的资源。 一、按键精灵的基本功能 1. **模拟键盘操作**：按键精灵能够模拟用户在键盘上的...
按键精灵简单脚本制作教程.doc
05-19
按键精灵简单脚本制作教程 按键精灵是一个自动化操作软件，旨在帮助用户简化电脑操作，提高工作效率。该软件可以实现自动化操作，例如自动登录博客、自动处理表格和文档、自动收发邮件等。按键精灵具有“动动鼠标就...
按键精灵编写的游戏，打地鼠，很简单，易学易懂
05-25
按键精灵编写的游戏，打地鼠，很简单，易学易懂
易语言按键精灵调用模块
08-17
在使用"易语言按键精灵调用模块"时，开发人员可以结合这些功能，构建出复杂的人工智能脚本，实现一系列自动化的操作，比如游戏挂机、办公自动化、软件测试等。同时，这个模块也提供了一个友好的接口，使得编写这样的...
游戏脚本系统的demo
12-26
很好的脚本系统例子，教程见这里：http://dev.gameres.com/Program/Abstract/ScriptEngine.htm，这是tut8的zip，原链接已经失效
按键精灵高级教程-后台命令脚本
05-02
这个按键精灵官方收费才可以看的高级教程-后台命令脚本
EVE 后台框架 按键精灵版本
10-10
eve 只是框架 跟部分语句例子 大家可以根据自己需要进行补充完善
用c写按键精灵脚本语言,【按键精灵】全军出击按键精灵发言脚本，快速写脚本的基本框架讲解...
weixin_30345873的博客
05-21 1001
[Asm] 纯文本查看 复制代码Import "GK.lua"Dim jk,gj//定义全局函数，脚本所有的地方都可以用到Dim 确认退出,发言内容, 退出游戏, 不重回演习, qq登录 ,与qq好友玩, 点击匹配赛, 开始游戏,广场,飞机,拒绝邀请,新手八天,邀请跳,拒绝消息发送,广场1//定义涂色信息的变量，脚本任何地方都可以用Sub 图色赋值// 先定义所有的图色信息数组，后面...
按键精灵找图找色找字比色等图色命令失败的通用解决思路
热门推荐
ufoguoke的博客
02-24 1万+
作者：紫猫 按键精灵的图色命令功能非常强大, 有找图/找色/找字/比色等等各个不同功能的命令, 但是当大家遇到使用相关图色命令却返回找不到或得到坐标不正确, 对比不成功等情况的时候, 往往会一头雾水, 想不通如何解决这个问题. 出现这种问题的本质原因在于画面上的图色数据, 跟你自己写的图色数据不一致, 导致按键精灵给你返回结果是失败, 对比不成功. 然而这样的返回信息太过于单调, 就简单的告诉你找不到或一个其他坐标, 并没有告诉你到底哪里不一致. 所以我们要从这里入手, 当按键精灵图色找不到的时候, 我们让
python脚本例子_按键精灵脚本开发
weixin_39890431的博客
11-28 172
金猪脚本(原飞猪脚本)以按键精灵教学为主,涉及UiBot，Python,Lua等脚本编程语言,教学包括全自动办公脚本,游戏辅助脚本,引流脚本,网页脚本,安卓脚本,IOS脚本,注册脚本,点赞脚本,阅读脚本以及网赚脚本等各个领域。想学习按键精灵的朋友可以添加金猪脚本粉丝交流群:554127455 学习路上不再孤单,金猪脚本伴你一同成长.返回值：整数型。Win98系统返回为0；WinNT/2000/XP...
按键精灵缺少qmlibrary
最新发布
12-27
按键精灵是一款自动化操作软件，可以模拟鼠标和键盘操作，实现自动化任务。但是有些用户在使用按键精灵的过程中发现缺少qmlibrary文件的问题。 qmlibrary是按键精灵中的一个重要文件，它包含了大量的按键精灵脚本库和函数库。这些库和函数可以帮助用户更方便地编写脚本，实现各种自动化操作。 缺少qmlibrary文件会导致按键精灵无法正常运行，用户将无法使用一些高级的自动化功能。此外，也会导致用户无法编写复杂的脚本，限制了按键精灵的使用范围。 解决这个问题的方法可以有多种，首先可以尝试重新安装按键精灵软件，看是否能够自动补全缺少的文件。或者可以在官方网站或者软件论坛上下载一个完整的qmlibrary文件，然后手动添加到按键精灵的安装目录中。 总之，按键精灵缺少qmlibrary文件会影响到用户的使用体验，因此需要及时解决这个问题，以确保软件的正常运行。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值