编辑于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