你的位置：
求一个简单的多技能判断脚本如何写
17:27:50 |
来源: 按键精灵资源站
玩wow，想一直打一个怪，类似木桩
可是技能循环怎么写
用的圣骑，比如说3个技能，1技能是要消耗3豆的，而2.3技能每次加1个豆
我想写的是，如果1技能亮了，就用1技能，否则就用2,3技能（这时候所有3个技能都是可以用的，优先释放1技能，然后再用2,3）
接触时间不长，所以开始写了个傻瓜式的
就是按时间顺序，先2,3技能，然后1技能这样，单有时候会卡主1技能，然后又从2,3开始轮回
如何写这样的判断呢
我用搜图功能，直接不会攻击了，谁能帮帮我，是不是搜色好点？
希望高手指点一二按键精灵，简单游戏脚本 - CSDN博客
按键精灵，简单游戏脚本
按键精灵主要的几个功能界面如下：
左边的界面，可以拉取一些控件，实现可视化交互。附件就是存放脚本所需资源的地方，方便发布后分享给他人。上方比较重要的就是调试，发布和抓抓了。抓抓就是用来抓取点坐标颜色，抓取图片，抓取文字（需另行处理）。
界面页面大概是这样的，左边可以选择整体配色，中间窗体，选中的控件可以在右侧看到和编辑它的属性。输入框获取焦点后不知道为啥没有光标显示，也不知道相关方法，于是便在右边设置了焦点颜色。
抓抓，比较重要的一个工具，左上角放大镜功能可以更好的找点（能把点的坐标颜色存起来，然后在脚本页面看到）。上面的图像处理应该是用来处理一些图片中的文字一类的。下方的起点终点和大小可以让你知道你所选区域的坐标。左下的句柄功能属于高级一点的功能。
脚本可以直接通过左侧命令进行插入，也可以在右侧源文件中直接编辑。使用左侧命令插入可以是你在不熟悉具体语法时慢慢熟悉它。由于我对有些变量的定义不了解，所以变量都是以最简单的形式进行定义的。
最后是我写的某腾讯页游某一个界面的脚本，腾讯页游微端进行了一些防护，下面的脚本只适用于浏览器。下面的代码只是希望能给你一个参考学习之用。
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()
dots(9) = Array()
dots(10) = Array()
dots(11) = Array()
dots(12) = Array()
dots(13) = Array()
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)
&& &FindPic 0,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 0,800,&Attachment:\回城.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &i=1
&& &End If
lvzhi = False
If Form1.lvzhi.Value = 1 Then
&& &lvzhi = True
Dim hanxin
hanxin = False
If Form1.hanxin.Value = 1 Then
&& &hanxin = True
Dim liubang
liubang = False
If Form1.liubang.Value = 1 Then
&& &liubang = True
yuji = False
If Form1.yuji.Value = 1 Then
&& &yuji = True
Dim xiangyu
xiangyu = False
If Form1.xiangyu.Value = 1 Then
&& &xiangyu = True
Dim sangui
sangui = False
If Form1.sangui.Value = 1 Then
&& &sangui = True
&&& 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 0,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
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
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,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &lvzhi = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call xuZhouXuanJiang
&& &&& &End If
&& &End If
While hanxin
&& &FindPic 550,250,,&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,,&Attachment:\韩信大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &hanxin = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call xuZhouXuanJiang
&& &&& &End If
&& &End If
While liubang
&& &FindPic 700,250,,&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,,&Attachment:\刘邦大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &liubang = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call xuZhouXuanJiang
&& &&& &End If
&& &End If
While yuji
&& &FindPic 850,250,,&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,,&Attachment:\虞姬大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &yuji = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call xuZhouXuanJiang
&& &&& &End If
&& &End If
While xiangyu
&& &FindPic 0,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 0,450,&Attachment:\项羽大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &xiangyu = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call xuZhouXuanJiang
&& &&& &End If
&& &End If
While sangui
&& &FindPic 0,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 0,450,&Attachment:\三桂大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &sangui = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call xuZhouXuanJiang
&& &&& &End If
&& &End If
Dim yaojing
yaojing = False
If Form1.yaojing.Value = 1 Then
&& &yaojing = True
Dim qinqiong
qinqiong = False
If Form1.qinqiong.Value = 1 Then
&& &qinqiong = True
Dim shimin
shimin = False
If Form1.shimin.Value = 1 Then
&& &shimin = True
Dim shishi
shishi = False
If Form1.shishi.Value = 1 Then
&& &shishi = True
Dim songjiang
songjiang = False
If Form1.songjiang.Value = 1 Then
&& &songjiang = True
yuwen = False
If Form1.yuwen.Value = 1 Then
&& &yuwen = True
&&& 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 0,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
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
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,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &yaojing = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call yangZhouXuanJiang
&& &&& &End If
&& &End If
While qinqiong
&& &FindPic 550,250,,&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,,&Attachment:\秦琼大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &qinqiong = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call yangZhouXuanJiang
&& &&& &End If
&& &End If
While shimin
&& &FindPic 700,250,,&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,,&Attachment:\李世民大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &shimin = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call yangZhouXuanJiang
&& &&& &End If
&& &End If
While shishi
&& &FindPic 850,250,,&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,,&Attachment:\李师师大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &shishi = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call yangZhouXuanJiang
&& &&& &End If
&& &End If
While songjiang
&& &FindPic 0,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 0,450,&Attachment:\宋江大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &songjiang = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call yangZhouXuanJiang
&& &&& &End If
&& &End If
While yuwen
&& &FindPic 0,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 0,450,&Attachment:\宇文化及大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &yuwen = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call yangZhouXuanJiang
&& &&& &End If
&& &End If
Dim xiaoqiao
xiaoqiao = False
If Form1.xiaoqiao.Value = 1 Then
&& &xiaoqiao = True
Dim guanyu
guanyu = False
If Form1.guanyu.Value = 1 Then
&& &guanyu = True
Dim caocao
caocao = False
If Form1.caocao.Value = 1 Then
&& &caocao = True
zhuge = False
If Form1.zhuge.Value = 1 Then
&& &zhuge = True
Dim zhurong
zhurong = False
If Form1.zhurong.Value = 1 Then
&& &zhurong = True
Dim menghuo
menghuo = False
If Form1.menghuo.Value = 1 Then
&& &menghuo = True
&&& 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
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
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,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &xiaoqiao = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call yiZhouXuanJiang
&& &&& &End If
&& &End If
While guanyu
&& &FindPic 550,250,,&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,,&Attachment:\关羽大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &guanyu = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call yiZhouXuanJiang
&& &&& &End If
&& &End If
While caocao
&& &FindPic 700,250,,&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,,&Attachment:\曹操大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &caocao = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call yiZhouXuanJiang
&& &&& &End If
&& &End If
While zhuge
&& &FindPic 850,250,,&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,,&Attachment:\诸葛大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &zhuge = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call yiZhouXuanJiang
&& &&& &End If
&& &End If
While zhurong
&& &FindPic 0,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 0,450,&Attachment:\祝融大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &zhurong = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call yiZhouXuanJiang
&& &&& &End If
&& &End If
While menghuo
&& &FindPic 0,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 0,450,&Attachment:\孟获大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &menghuo = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call yiZhouXuanJiang
&& &&& &End If
&& &End If
Dim chensheng
chensheng = False
If Form1.chensheng.Value = 1 Then
&& &chensheng = True
Dim jingke
jingke = False
If Form1.jingke.Value = 1 Then
&& &jingke = True
Dim shangyang
shangyang = False
If Form1.shangyang.Value = 1 Then
&& &shangyang = True
Dim yingzheng
yingzheng = False
If Form1.yingzheng.Value = 1 Then
&& &yingzheng = True
Dim shangzhou
shangzhou = False
If Form1.shangzhou.Value = 1 Then
&& &shangzhou = True
daji = False
If Form1.daji.Value = 1 Then
&& &daji = True
&&& 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,,&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
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
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,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &chensheng = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call zhongZhouXuanJiang
&& &&& &End If
&& &End If
While jingke
&& &FindPic 550,250,,&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,,&Attachment:\荆轲大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &jingke = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call zhongZhouXuanJiang
&& &&& &End If
&& &End If
While shangyang
&& &FindPic 700,250,,&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,,&Attachment:\商鞅大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &shangyang = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call zhongZhouXuanJiang
&& &&& &End If
&& &End If
While yingzheng
&& &FindPic 850,250,,&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,,&Attachment:\嬴政大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &yingzheng = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call zhongZhouXuanJiang
&& &&& &End If
&& &End If
While shangzhou
&& &FindPic 0,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 0,450,&Attachment:\商纣大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &shangzhou = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call zhongZhouXuanJiang
&& &&& &End If
&& &End If
While daji
&& &FindPic 0,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 0,450,&Attachment:\妲己大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &daji = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call zhongZhouXuanJiang
&& &&& &End If
&& &End If
Dim shiqian
shiqian = False
If Form1.shiqian.Value = 1 Then
&& &shiqian = True
Dim wusong
wusong = False
If Form1.wusong.Value = 1 Then
&& &wusong = True
likui = False
If Form1.likui.Value = 1 Then
&& &likui = True
baosi = False
If Form1.baosi.Value = 1 Then
&& &baosi = True
Dim gaoqiu
gaoqiu = False
If Form1.gaoqiu.Value = 1 Then
&& &gaoqiu = True
&&& 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 0,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
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
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,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &shiqian = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call qingZhouXuanJiang
&& &&& &End If
&& &End If
While wusong
&& &FindPic 750,250,,&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,,&Attachment:\武松大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &wusong = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call qingZhouXuanJiang
&& &&& &End If
&& &End If
While likui
&& &FindPic 900,250,,&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,,&Attachment:\李逵大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &likui = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call qingZhouXuanJiang
&& &&& &End If
&& &End If
While baosi
&& &FindPic 0,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,,&Attachment:\褒姒大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &baosi = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call qingZhouXuanJiang
&& &&& &End If
&& &End If
While gaoqiu
&& &FindPic 0,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 0,450,&Attachment:\高俅大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &gaoqiu = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call qingZhouXuanJiang
&& &&& &End If
&& &End If
Dim chuangwang
chuangwang = False
If Form1.chuangwang.Value = 1 Then
&& &chuangwang = True
Dim yuanyuan
yuanyuan = False
If Form1.yuanyuan.Value = 1 Then
&& &yuanyuan = True
Dim bianque
bianque = False
If Form1.bianque.Value = 1 Then
&& &bianque = True
Dim goujian
goujian = False
If Form1.goujian.Value = 1 Then
&& &goujian = True
Dim xiaozhuang
xiaozhuang = False
If Form1.xiaozhuang.Value = 1 Then
&& &xiaozhuang = True
aobai = False
If Form1.aobai.Value = 1 Then
&& &aobai = True
&&& 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 0,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
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
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,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &chuangwang = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call youZhouXuanJiang
&& &&& &End If
&& &End If
While yuanyuan
&& &FindPic 550,250,,&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,,&Attachment:\圆圆大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &yuanyuan = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call youZhouXuanJiang
&& &&& &End If
&& &End If
While bianque
&& &FindPic 700,250,,&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,,&Attachment:\扁鹊大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &bianque = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call youZhouXuanJiang
&& &&& &End If
&& &End If
While goujian
&& &FindPic 850,250,,&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,,&Attachment:\勾践大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &goujian = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call youZhouXuanJiang
&& &&& &End If
&& &End If
While xiaozhuang
&& &FindPic 0,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 0,450,&Attachment:\孝庄大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &xiaozhuang = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call youZhouXuanJiang
&& &&& &End If
&& &End If
While aobai
&& &FindPic 0,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 0,450,&Attachment:\鳌拜大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &aobai = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call youZhouXuanJiang
&& &&& &End If
&& &End If
Dim yuanzhang
yuanzhang = False
If Form1.yuanzhang.Value = 1 Then
&& &yuanzhang = True
Dim yuefei
yuefei = False
If Form1.yuefei.Value = 1 Then
&& &yuefei = True
Dim liulang
liulang = False
If Form1.liulang.Value = 1 Then
&& &liulang = True
kehan = False
If Form1.kehan.Value = 1 Then
&& &kehan = True
Dim xiaohou
xiaohou = False
If Form1.xiaohou.Value = 1 Then
&& &xiaohou = True
&&& 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,,&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
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
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,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &yuanzhang = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call moBeiuXuanJiang
&& &&& &End If
&& &End If
While yuefei
&& &FindPic 750,250,,&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,,&Attachment:\岳飞大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &yuefei = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call moBeiuXuanJiang
&& &&& &End If
&& &End If
While liulang
&& &FindPic 900,250,,&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,,&Attachment:\六郎大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &liulang = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call moBeiuXuanJiang
&& &&& &End If
&& &End If
While kehan
&& &FindPic 0,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,,&Attachment:\可汗大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &kehan = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call moBeiuXuanJiang
&& &&& &End If
&& &End If
While xiaohou
&& &FindPic 0,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 0,450,&Attachment:\萧后大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &xiaohou = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call moBeiuXuanJiang
&& &&& &End If
&& &End If
wudi = False
If Form1.wudi.Value = 1 Then
&& &wudi = True
Dim feiyan
feiyan = False
If Form1.feiyan.Value = 1 Then
&& &feiyan = True
Dim songzu
songzu = False
If Form1.songzu.Value = 1 Then
&& &songzu = True
Dim lichong
lichong = False
If Form1.lichong.Value = 1 Then
&& &lichong = True
Dim sanfeng
sanfeng = False
If Form1.sanfeng.Value = 1 Then
&& &sanfeng = True
&&& 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
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
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,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &wudi = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call xiYuXuanJiang
&& &&& &End If
&& &End If
While feiyan
&& &FindPic 750,250,,&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,,&Attachment:\飞燕大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &feiyan = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call xiYuXuanJiang
&& &&& &End If
&& &End If
While songzu
&& &FindPic 900,250,,&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,,&Attachment:\宋祖大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &songzu = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call xiYuXuanJiang
&& &&& &End If
&& &End If
While linchong
&& &FindPic 0,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,,&Attachment:\林冲大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &linchong = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call xiYuXuanJiang
&& &&& &End If
&& &End If
While sanfeng
&& &FindPic 0,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 0,450,&Attachment:\三丰大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &sanfeng = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call xiYuXuanJiang
&& &&& &End If
&& &End If
xishi = False
If Form1.xishi.Value = 1 Then
&& &xishi = True
liyu = False
If Form1.liyu.Value = 1 Then
&& &liyu = True
libai = False
If Form1.libai.Value = 1 Then
&& &libai = True
Dim luocheng
luocheng = False
If Form1.luocheng.Value = 1 Then
&& &luocheng = True
Dim digong
digong = False
If Form1.digong.Value = 1 Then
&& &digong = True
&&& 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
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
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,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &xishi = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call tuBoXuanJiang
&& &&& &End If
&& &End If
While liyu
&& &FindPic 750,250,,&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,,&Attachment:\李煜大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &liyu = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call tuBoXuanJiang
&& &&& &End If
&& &End If
While libai
&& &FindPic 900,250,,&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,,&Attachment:\李白大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &libai = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call tuBoXuanJiang
&& &&& &End If
&& &End If
While luocheng
&& &FindPic 0,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,,&Attachment:\罗成大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &luocheng = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call tuBoXuanJiang
&& &&& &End If
&& &End If
While digong
&& &FindPic 0,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 0,450,&Attachment:\狄公大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &digong = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call tuBoXuanJiang
&& &&& &End If
&& &End If
bole = False
If Form1.bole.Value = 1 Then
&& &bole = True
mozi = False
If Form1.mozi.Value = 1 Then
&& &mozi = True
Dim zhaowang
zhaowang = False
If Form1.zhaowang.Value = 1 Then
&& &zhaowang = True
Dim zhangfei
zhangfei = False
If Form1.zhangfei.Value = 1 Then
&& &zhangfei = True
Dim zhaoyun
zhaoyun = False
If Form1.zhaoyun.Value = 1 Then
&& &zhaoyun = True
&&& 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
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
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,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &bole = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call beiJiangXuanJiang
&& &&& &End If
&& &End If
While mozi
&& &FindPic 750,250,,&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,,&Attachment:\墨子大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &mozi = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call beiJiangXuanJiang
&& &&& &End If
&& &End If
While zhaowang
&& &FindPic 900,250,,&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,,&Attachment:\赵王大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &zhaowang = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call beiJiangXuanJiang
&& &&& &End If
&& &End If
While zhangfei
&& &FindPic 0,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,,&Attachment:\张飞大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &zhangfei = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call beiJiangXuanJiang
&& &&& &End If
&& &End If
While zhaoyun
&& &FindPic 0,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 0,450,&Attachment:\赵云大图.bmp&,0.9,intX,intY
&& &If intX & 0 And intY & 0 Then
&& &&& &Call closeHorn
&& &&& &FindPic 500,650,,&Attachment:\结束闯关.bmp&,0.9,intX,intY
&& &&& &If intX & 0 And intY & 0 Then
&& &&& &&& &zhaoyun = False
&& &&& &Else
&& &&& &&& &Call chuangGuan
&& &&& &&& &Call beiJiangXuanJiang
&& &&& &End If
&& &End If
Function closeHorn
&& &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
End Function
Function chuangGuan
&& &FindPic 500,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
&& &&& &MoveTo 0,0
&& &End If
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
&& &FindPic 0,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
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,,&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,,&Attachment:\关卡简介.bmp&,0.5,intX,intY
&& &If intX & 0 And intY & 0 Then
&&&&&&& continue = False
&& &End If
End Function
Function passive
While i & 0
MoveTo 950, 520
LeftClick 1
FindPic 900,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
&& &&& &FindPic , , &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,550,,&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
FindPic 900, 450, , &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
FindPic 900, 450, , &Attachment:\五谷丰登.bmp&, 0.5, intX, intY
If intX & 0 And intY & 0 Then
&& &MoveTo
&& &LeftClick 1
&& &MoveTo
&& &LeftClick 1
&& &MoveTo 920, 400
&& &LeftClick 1
&& &MoveTo 820, 400
&& &LeftClick 1
&& &MoveTo
&& &LeftClick 1
&& &MoveTo
&& &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 = i-1
End Function
Function postive
MoveTo 700, 760
LeftClick 1
MoveTo 750, 760
LeftClick 1
MoveTo 800, 760
LeftClick 1
MoveTo 850, 760
LeftClick 1
MoveTo 900, 760
LeftClick 1
MoveTo 950, 760
LeftClick 1
LeftClick 1
LeftClick 1
LeftClick 1
LeftClick 1
LeftClick 1
LeftClick 1
FindPic 600,750,,&Attachment:\疏财.bmp&,0.9,intX,intY
If intX & 0 And intY & 0 Then
&&& MoveTo intX, intY
&&& Delay 300
&&& LeftClick 1
&&& Delay 2000
FindPic 900,550,,&Attachment:\被动出牌.bmp&,0.5,intX,intY
If intX & 0 And intY & 0 Then
&&& MoveTo intX, intY
&&& Delay 300
&&& LeftClick 1
&&& Delay 2000
End Function
本文已收录于以下专栏：
相关文章推荐
按键精灵2014----简单游戏脚本免费制作开发工具，按键精灵论坛配有易学易懂的简单脚本开发教程，学习游戏脚本开发必备软件，教你怎么开发脚本，如何快速制作脚本。还有丰富的免费游戏脚本下载~
来源：按键学院   【按键精灵】
脚本使用说明:
1. 此脚本可应用于各种网络游戏，用于自动间隔时间使用辅助技能，可自定义三个技能和间隔时间。
2. 脚本开始运行前请先在按键精灵主界面上设置自定...
按键精灵2014----简单游戏脚本免费制作开发工具，按键精灵论坛配有易学易懂的简单脚本开发教程，学习游戏脚本开发必备软件，教你怎么开发脚本，如何快速制作脚本。还有丰富的免费游戏脚本下载~
今天分享一个简单的自动化工具，他就是是按键精灵，可能有人用过，只要有一丝编程基础，就可以用这个软件了。
按键精灵主要就是关于鼠标与键盘的操作你可以将一段动作记录下来，然后重复执行n遍，也可以自己制作...
按键精灵，批量传包工具源码备份
尝试实现按键精灵的原理
来源：按键学院   【按键精灵】
开开心心做设计，敲代码
 顺顺利利调试运行，美滋滋的上万行代码，遛遛的通过了语法检查
  咦，突然不动了......
卡……卡屏了么。。。窗口无响应。。。...
他的最新文章
讲师：宋宝华
讲师：何宇健
您举报文章：
举报原因：
原文地址：
原因补充：
(最多只允许输入30个字)