为编程爱好者分享易语言教程源码的资源网
三叶资源网易语言免费公开课
三叶资源网官方③群:33301895 三叶资源网解压密码 C全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现
三叶资源网官方③群:33301895 三叶资源网访问导航 B全站文字广告,诚邀与您合作 三叶资源网培训教程视频 花呗变现,花呗变现

网站首页 按键精灵相关 按键精灵Q语言 正文

按键精灵自动烧写测试脚本源码

三叶资源网 2018-10-31 按键精灵Q语言 86 ℃ 0 评论
三叶资源网易语言免费公开课

【功能说明】 

<51单片机烧写测试流程自动控制> 

【使用说明】 

<启动时要非烧写软件窗口,烧写软件要先设置好芯片和要下载的文件,先运行测试软件,设置循环延时为0秒,设置安全删除硬件为总是显示>

@chenxkj@yahoo.com.cn 

脚本附件:en_open.bmp, flip.bmp, insert.bmp, run.bmp, run_end.bmp, USB_TEST.bmp

运行环境:分辨率:1024x768 色深:32位 操作系统:Windows XP 按键精灵版本:7.02.4325

//UserVar Var1=0 设置内容  
PutAttachment *.bmp  
dim now  
//打开USB口  
VBSCall FindPic(140,740,1024,768,"Attachment:\flip.bmp",0.9,intX,intY)  
If intX<1  
    MessageBox "烧写软件未运行"  
Return   
EndIf   
MoveTo intX,intY  
LeftClick 1  
KeyDown 18,1  
Delay 200  
KeyPress 83,1  
Delay 200  
KeyPress 67,1  
Delay 200  
KeyPress 85,1  
Delay 200  
KeyUp 18,1  
VBSCall FindPic(0,0,1024,768,"Attachment:\en_open.bmp",0.8,intX,intY)  
MoveTo intX,intY  
LeftClick 1  
Delay 1000  
//开始烧写  
VBSCall FindPic(0,0,1024,768,"Attachment:\run.bmp",1.0,intX,intY)  
If intX<1  
Return   
EndIf   
MoveTo intX,intY  
Delay 200  
LeftClick 1  
Delay 15000  
//烧写是否完成完成  
now=0  
VBSCall FindPic(0,0,1024,768,"Attachment:\run_end.bmp",1.0,intX,intY)  
While intX<1  
    Delay 800  
    VBSCall FindPic(0,0,1024,768,"Attachment:\run_end.bmp",1.0,intX,intY)  
    now=now+1  
    If now>10  
        MessageBox "烧写失败"  
    Return   
EndIf   
//    MoveTo intX,intY  
EndFor   
//MessageBox "拔除跳线"  
//启动应用程序  
VBSCall FindColor(0,0,1024,768,"0000FF",intX,intY)  
MoveTo intX+5,intY+5  
LeftClick 1  
Delay 200  
//检测USB是否已经被识别  
VBSCall FindPic(850,730,1024,768,"Attachment:\insert.bmp",0.8,intX,intY)  
While intX<1  
    Delay 800  
    VBSCall FindPic(850,730,1024,768,"Attachment:\insert.bmp",0.8,intX,intY)  
    //    MoveTo intX,intY  
EndFor   
//开始测试  
MessageBox "请插卡"  
VBSCall FindPic(0,0,1024,768,"Attachment:\USB_TEST.bmp",0.9,intX,intY)  
MoveTo intX,intY  
LeftClick 1  
Delay 200  
KeyDown 18,1  
Delay 200  
KeyPress 84,1  
Delay 200  
KeyUp 18,1  
Delay 200  
//判断是否测试完成  
VBSCall GetColor=GetPixelColor(356,482)  
While GetColor="995E41"  
    Delay 800  
    VBSCall GetColor=GetPixelColor(356,482)  
    //    MoveTo intX,intY  
EndFor   
//回车结束一次烧写测试  
Delay 10000  
KeyPress 13,1  
Return



Tags:

来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网官方③群:33301895

本文暂时没有评论,来添加一个吧(●'◡'●)

欢迎 发表评论:

百度站内搜索
交流QQ群:33301895
三叶资源网官方③群:33301895
加群全凭信仰,群里有的资源网站也会有。
群里只是能及时交流,群主会尽力解答一些会的问题。
设置付费入群,只是为了过滤一些小号无意义广告。
所以不必要为了1块钱加群又退出
群主在群内发的红包都够你抢回来还有的多,更何况还能交流学习。
网站分类
随机tag
觅风易语言二值化群排名POST教程代理采集NoobyProtectSEaccess数据库大漠E语言web浏览器淘宝登录seo图片切割奇易模块网络相关源码黑月插件精易模块游戏辅助外挂按键精灵基础练习Discuz
最新评论