- (VBScript语句) dim a,w,d,s,dan(5),zf1,zf2,n,m,k,m1,k1,zf,danuu,danqx,danqy,ni,is2,jguo,weizhi
- //确定位置
- 展开附件 //确定位置
- 标记 {开始}
- //
- 调用插件命令 t1=GetSysInfo.GetTime()
- 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
- 如果表达式 (xs>=0 and ys>=0) 为真,则
- 如果 (xs-15,ys-21) 的颜色不等于 #ff00 则
- 跳转到标记 {结束}
- //定点失败,跳转结束
- 条件结束
- 否则
- //MessageBox "要求验证的窗口“确定”按钮被遮挡,无法继续识别"
- 跳转到标记 {结束}
- //定点失败,跳转结束
- 条件结束
- //★★四点判断
- //4个角的点坐标1(a,w) 2(d,w) 3(a,s) 4(d,s)
- (VBScript语句) a=xs-129:w=ys-82
- (VBScript语句) d=a+99:s=w+99
- 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
- (VBScript语句) n=0
- 标记 下到上点
- 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
- 如果表达式 (qxs=-1 and qys=-1) 为真,则
- (VBScript语句) n=n+1
- 跳转到标记 下到上点
- 条件结束
- (VBScript语句) n=0
- 标记 左到右点
- 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
- 如果表达式 (qxa=-1 and qya=-1) 为真,则
- (VBScript语句) n=n+1
- 跳转到标记 左到右点
- 条件结束
- (VBScript语句) n=0
- 标记 右到左点
- 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
- 如果表达式 (qxd=-1 and qyd=-1) 为真,则
- (VBScript语句) n=n+1
- 跳转到标记 右到左点
- 条件结束
- //★★上左面第一点(qxw,qyw),下右面第一点(qxs,qys),左上面第一点(qxa,qya),右下面第一点(qxd,qyd)
- //MessageBox "上左面("&qxw&","&qyw&"),下右面("&qxs&","&qys&"),左上面("&qxa&","&qya&"),右下面("&qxd&","&qyd&")"
- 如果表达式 (qys-qyw>(qxd-qxa)*0.7) 为真,则
- // MessageBox "上下识别"
- 调用子程序 {↓}
- 调用子程序 {↑}
- 否则如果(qys-qyw<=(qxd-qxa)*0.7)为真,则
- 调用子程序 {↓}
- 调用子程序 {↑}
- //MessageBox "左右识别"
- 条件结束
- //M zf1&" "&zf2
- 调用插件命令 t2=GetSysInfo.GetTime()
- //
- 调用子程序 {答案}
- 调用子程序 {luweijile}
- (VBScript语句) t3=(t2-t1)/1000
- //◆◆◆◆◆◆◆◆◆◆◆◆测试或者实际应用可以在下面两行中改动◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
- 跳转到标记 {点击答案}
- 调用子程序 {点击答案}"识别结果为:"&jguo&" 应该选择答案:"&weizhi&" 用时为:"&t3&"秒"
- //Gosub {点击答案}
- //◆◆◆上面MessageBox是测试用┃Gosub 是实际挂机用。两者选择其一。用加减“//”可以控制◆◆◆◆
- //Delay 6000
- //Goto {开始}
- 标记 {结束}
- //Delay 20000
- //Goto {开始}
- 脚本停止运行
- //〓〓〓〓〓〓〓〓〓〓〓〓〓主程序结束,下面是子程序。整个脚本的核心〓〓〓〓〓〓〓〓〓〓〓〓〓
- 子程序 {点击答案}
- 如果表达式 (weizhi=1) 为真,则
- 鼠标移到 a+150 , w+5
- 左键单击
- 否则如果(weizhi=2)为真,则
- 鼠标移到 a+150 , w+5+12
- 左键单击
- 否则如果(weizhi=3)为真,则
- 鼠标移到 a+150 , w+29
- 左键单击
- 否则如果(weizhi=4)为真,则
- 鼠标移到 a+150 , w+41
- 左键单击
- 否则如果(weizhi=5)为真,则
- 鼠标移到 a+150 , w+53
- 左键单击
- 否则如果(weizhi=6)为真,则
- 鼠标移到 a+150 , w+65
- 左键单击
- 条件结束
- 延时900毫秒
- 鼠标移到 a+168 , w+91
- 左键单击
- 延时800毫秒
- 鼠标移到 a+180 , w+91
- 子程序结束,回到调用处
- //点击好答案后延时6秒
- 子程序 {答案}