- //UserVar Var1=0 设置内容
- 展开附件 *.bmp
- dim now
- //打开USB口
- 调用外部VBScript子程序 在屏幕区域里查找图形(140,740,1024,768,"Attachment:\flip.bmp",0.9,intX,intY)
- 如果表达式 (intX<1) 为真,则
- 弹出窗口 "烧写软件未运行"
- 子程序结束,回到调用处
- 条件结束
- 鼠标移到 intX , intY
- 左键单击
- 按住<Alt>
- 延时200毫秒
- 按键<S>
- 延时200毫秒
- 按键<C>
- 延时200毫秒
- 按键<U>
- 延时200毫秒
- 弹起<Alt>
- 调用外部VBScript子程序 在屏幕区域里查找图形(140,740,1024,768,"Attachment:\flip.bmp",0.9,intX,intY)
- 鼠标移到 intX , intY
- 左键单击
- 延时1000毫秒
- //开始烧写
- 调用外部VBScript子程序 在屏幕区域里查找图形(140,740,1024,768,"Attachment:\flip.bmp",0.9,intX,intY)
- 如果表达式 (intX<1) 为真,则
- 子程序结束,回到调用处
- 条件结束
- 鼠标移到 intX , intY
- 延时200毫秒
- 左键单击
- 延时15000毫秒
- //烧写是否完成完成
- now=0
- 调用外部VBScript子程序 在屏幕区域里查找图形(140,740,1024,768,"Attachment:\flip.bmp",0.9,intX,intY)
- 如果表达式 (intX<1) 为真,则循环执行
- 延时800毫秒
- 调用外部VBScript子程序 在屏幕区域里查找图形(140,740,1024,768,"Attachment:\flip.bmp",0.9,intX,intY)
- now=now+1
- 如果表达式 (now>10) 为真,则
- 弹出窗口 "烧写失败"
- 子程序结束,回到调用处
- 条件结束
- // MoveTo intX,intY
- 循环结束
- //MessageBox "拔除跳线"
- //启动应用程序
- 调用外部VBScript子程序 在屏幕区域里查找图形(140,740,1024,768,"Attachment:\flip.bmp",0.9,intX,intY)
- 鼠标移到 intX+5 , intY+5
- 左键单击
- 延时200毫秒
- //检测USB是否已经被识别
- 调用外部VBScript子程序 在屏幕区域里查找图形(140,740,1024,768,"Attachment:\flip.bmp",0.9,intX,intY)
- 如果表达式 (intX<1) 为真,则循环执行
- 延时800毫秒
- 调用外部VBScript子程序 在屏幕区域里查找图形(140,740,1024,768,"Attachment:\flip.bmp",0.9,intX,intY)
- // MoveTo intX,intY
- 循环结束
- //开始测试
- 弹出窗口 "请插卡"
- 调用外部VBScript子程序 在屏幕区域里查找图形(140,740,1024,768,"Attachment:\flip.bmp",0.9,intX,intY)
- 鼠标移到 intX , intY
- 左键单击
- 延时200毫秒
- 按住<Alt>
- 延时200毫秒
- 按键<T>
- 延时200毫秒
- 弹起<Alt>
- 延时200毫秒
- //判断是否测试完成
- 调用外部VBScript子程序 在屏幕区域里查找图形(140,740,1024,768,"Attachment:\flip.bmp",0.9,intX,intY)
- 如果表达式 (GetColor="995E41") 为真,则循环执行
- 延时800毫秒
- 调用外部VBScript子程序 在屏幕区域里查找图形(140,740,1024,768,"Attachment:\flip.bmp",0.9,intX,intY)
- // MoveTo intX,intY
- 循环结束
- //回车结束一次烧写测试
- 延时10000毫秒
- 按键<Enter>
- 子程序结束,回到调用处