马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 高冷小Q 于 2015-9-30 18:24 编辑
在网页上后台是黑的,前台找图0.0.2000.2000居然是这样图片怎么回事,前边找图没事后边不行!前台是把网页最大化找的,顺便截了图是这样的图!求解。
//=================一键登录=================\\
功能 自动登录()
自检窗口句柄()
变量 次数合,ERP界面句柄,窗口下料表格句柄
循环(真)
ERP界面句柄 = 枚举窗口("User Defined Menu(udm_tree)[正星科技有限公司]",0)
调试输出("ERP界面句柄 ="&ERP界面句柄)
如果(ERP界面句柄 =="" )
循环(真)
等待(1500)
变量 选择进入作业 = 枚举窗口("营运中心编号选择作业(aoos901)",0)
调试输出("选择进入作业="&选择进入作业)
如果(选择进入作业 =="")
变量 ERP客户端路径 = 浏览框获取文本("浏览框0")
如果(ERP客户端路径 !="")
进程打开(ERP客户端路径)
等待(3500)
变量 客户端句柄 =枚举窗口("Genero Desktop Client - port: 6400 ",0)
调试输出("客户端句柄 ="&客户端句柄)
如果(客户端句柄 !="" )
窗口显示(客户端句柄)
窗口激活(客户端句柄)
等待(200)
窗口鼠标左键单击(客户端句柄,53,121)
等待(200)
超级键盘按键(13)
等待(200)
超级键盘按键(13)
等待(2000)
变量 帐密错误句柄 = 枚举窗口("Error",0)
调试输出("帐密错误句柄="&帐密错误句柄)
如果(帐密错误句柄 !="")
等待(200)
窗口提交按键(帐密错误句柄,13)
等待(200)
消息框("请输入正确账号密码,点击ERP记录密码!从新关闭在开启")
等待(300)
线程关闭(线程1)
热键注册("热键0")
结束
结束
否则
消息框("请选择客户端路径!")
结束
否则
窗口激活(选择进入作业)
等待(300)
超级键盘按键(13)
等待(4500)
跳出
结束
结束
否则
跳出
结束
结束
变量 系统重要提示句柄 = 枚举窗口("系统重要提示",0)
如果(系统重要提示句柄 !="" )
窗口激活(系统重要提示句柄)
等待(300)
超级键盘按键(13)
等待(300)
结束
等待(300)
窗口恢复(ERP界面句柄)
等待(300)
窗口激活(ERP界面句柄)
调试输出("ERP界面句柄="&ERP界面句柄)
等待(350)
//点消耗
如果(单选框获取状态("单选框1"))
等待(200)
窗口提交字符串(ERP界面句柄,"asfi301")
等待(300)
超级键盘按键(13)
等待(4600)
变量 窗口301句柄 = 枚举窗口("工单维护作业(asfi301-客工艺序-)",0)
如果(窗口301句柄 !="" )
窗口最大化(窗口301句柄)
等待(200)
窗口激活(窗口301句柄)
等待(350)
窗口提交按键(窗口301句柄,81)
等待(300)
变量 筛选单 = 下拉框获取文本("下拉框1")
选择(筛选单)
条件 "13108*"
等待(200)
窗口提交字符串(窗口301句柄,"13108*")
条件 "13109*"
等待(200)
窗口提交字符串(窗口301句柄,"13109*")
结束
超级键盘按键(9,2)
等待(200)
变量 工号=编辑框获取文本("编辑框1")
如果(工号 !="")
窗口提交字符串(窗口301句柄,工号)
结束
超级键盘按键(9,4)
等待(200)
窗口提交字符串(窗口301句柄,"Y")
等待(200)
如果(复选框获取状态("复选框3"))
等待(200)
超级键盘按键(9)
等待(200)
窗口发送字符串(窗口301句柄,"2")
等待(200)
结束
窗口鼠标左键单击(窗口301句柄,1088,271)
等待(200)
变量 日期=编辑框获取文本("编辑框2")
如果(日期 !="")
窗口提交字符串(窗口301句柄,日期)
否则
变量 当天时间 = 当前时间()
变量 当天日期 = 字符串截取(当天时间,2,10)
等待(200)
窗口提交字符串(窗口301句柄,当天日期)
结束
等待(200)
超级键盘按下(17)
超级键盘按键(13)
超级键盘弹起(17)
等待(350)
超级键盘按键(9,7)
等待(300)
窗口提交字符串(窗口301句柄,"N")
等待(300)
超级键盘按下(17)
超级键盘按键(13)
超级键盘弹起(17)
等待(200)
循环(真)
字库设置("rc:\\字库.txt",0)
变量 总笔数 = 窗口识字(窗口301句柄,126,791,159,812,"000000-303030",1.0)
调试输出("总笔数="&总笔数)
如果( 总笔数 !="")
变量 几笔 = 字符串修剪(总笔数,"-")
调试输出("几笔="&几笔)
遍历(变量 k = 0; k < 几笔; k++)
等待(500)
变量 取消审X=0,取消审Y=0
变量 取消审 = 窗口找图(窗口301句柄,0,0,2000,2000,"rc:\\取消审核.bmp","000000",0.9,1,取消审X,取消审Y)
窗口激活(窗口301句柄)
调试输出("取消审核="&取消审)
如果(取消审 !=-1 )
等待(200)
超级鼠标移动(取消审X+28,取消审Y+34) //x=12 y=6
等待(200)
超级鼠标左键单击()
等待(400)
超级键盘按键(13)
等待(200)
结束
循环(真)
字库设置("rc:\\字库.txt",0)
变量 单身 = 窗口识字(窗口301句柄,209,785,238,805,"000000-303030",1.0)
调试输出("单身数="&单身)
如果( 单身 !="")
变量 项目 = 字符串修剪(单身,"-")
调试输出("项目="&项目)
等待(200)
窗口提交按键(窗口301句柄,66)
等待(200)
超级键盘按键(9,4)
等待(200)
窗口提交按键(窗口301句柄,69)
等待(200)
遍历(变量 j = 1; j < 项目; j++)
等待(400)
窗口提交按键(窗口301句柄,40)
等待(400)
窗口提交按键(窗口301句柄,38)
等待(400)
窗口提交按键(窗口301句柄,69)
等待(400)
结束
跳出
结束
结束
等待(200)
超级键盘按下(17)
超级键盘按键(13)
超级键盘弹起(17)
等待(500)
超级键盘按下(17)
超级键盘按键(13)
超级键盘弹起(17)
等待(500)
超级键盘按键(13)
等待(200)
变量 申盒X=0,申盒Y=0
变量 盒序号 = 窗口找图(窗口301句柄,0,0,2000,2000,"rc:\\审核.bmp","000000",0.9,1,申盒X,申盒Y)
调试输出("盒序号="&盒序号)
如果(盒序号 !=-1 )
等待(200)
超级鼠标移动(申盒X+21,申盒Y+34)
等待(200)
超级鼠标左键单击()
等待(400)
超级键盘按键(13)
等待(200)
结束
窗口提交按键(窗口301句柄,78)
等待(200)
结束
跳出
结束
结束
热键注册("热键0")
结束
结束
如果(单选框获取状态("单选框2"))
窗口提交字符串(ERP界面句柄,"aimi100")
等待(300)
超级键盘按键(13)
等待(4600)
结束
//领料
窗口下料表格句柄 = 窗口模糊查找("Excel","XLMAIN")
次数合 = 编辑框获取文本("编辑框0")+编辑框获取文本("编辑框3")
调试输出("次数合="&次数合)
如果(复选框获取状态("复选框6"))
等待(500)
窗口激活(ERP界面句柄)
调试输出("ERP界面句柄="&ERP界面句柄)
等待(600)
窗口提交字符串(ERP界面句柄,"asfi301")
等待(300)
超级键盘按键(13)
等待(4600)
变量 窗口301句柄 = 枚举窗口("工单维护作业(asfi301-客工艺序-)",0)
调试输出("窗口下料表格句柄 ="&窗口下料表格句柄)
如果(窗口301句柄 !="" )
窗口最大化(窗口301句柄)
变量 mm=编辑框获取文本("编辑框0")
遍历(变量 i=0;i<mm;i++)
等待(300)
窗口激活(窗口301句柄)
等待(300)
超级键盘按键(112)
等待(200)
窗口发送字符串(窗口301句柄,"13108")
等待(200)
超级键盘按键(9,14)
等待(300)
窗口恢复(窗口下料表格句柄)
等待(300)
窗口激活(窗口下料表格句柄)
等待(300)
超级键盘按下(17)
超级键盘按键(67)
超级键盘弹起(17)
等待(200)
窗口激活(窗口301句柄)
等待(300)
超级键盘按下(17)
超级键盘按键(86)
超级键盘弹起(17)
等待(200)
超级键盘按键(13)
等待(200)
变量 料件句柄 = 枚举窗口("Warning (mfg3403)",0)
如果(料件句柄 !="" )
窗口激活(料件句柄)
等待(300)
超级键盘按键(13)
等待(200)
窗口激活(窗口下料表格句柄)
等待(300)
超级键盘按键(39,2)
等待(200)
窗口激活(窗口301句柄)
等待(300)
超级键盘按键(27)
等待(200)
设置剪切板("料件不存在")
等待(200)
否则
等待(200)
窗口激活(窗口下料表格句柄)
等待(300)
超级键盘按键(39,2)
等待(200)
超级键盘按下(17)
超级键盘按键(67)
超级键盘弹起(17)
等待(200)
窗口激活(窗口301句柄)
等待(300)
超级键盘按下(17)
超级键盘按键(86)
超级键盘弹起(17)
等待(200)
超级键盘按键(9,3)
//工艺 否
如果(复选框获取状态("复选框0"))
等待(200)
超级键盘按键(32)
等待(200)
超级键盘按键(13)
等待(200)
窗口发送字符串(窗口301句柄,"B005")
结束
等待(300)
超级键盘按下(17)
超级键盘按键(13)
超级键盘弹起(17)
等待(300)
变量 问题句柄 = 枚举窗口("Warning",0)
变量 问题标题=窗口获取标题(问题句柄)
选择(问题标题)
条件 "Warning (abm-742)"
窗口激活(问题句柄)
等待(200)
超级键盘按键(13)
等待(300)
超级键盘按键(27)
等待(300)
设置剪切板("无结构")
条件 "Warning (mfg4030)"
窗口激活(问题句柄)
等待(300)
超级键盘按键(13)
等待(200)
超级键盘按键(27)
等待(200)
设置剪切板("无工艺编码")
条件 "Warning (mfg-064)"
窗口激活(问题句柄)
等待(300)
超级键盘按键(13)
等待(200)
超级键盘按键(27)
等待(200)
设置剪切板("制程追踪资料未确认")
默认
等待(200)
超级键盘按键(13)
等待(200)
超级键盘按键(13)
等待(3000)
窗口激活(窗口301句柄)
等待(350)
超级键盘按下(17)
超级键盘按键(13)
超级键盘弹起(17)
等待(500)
超级键盘按键(13)
等待(350)
//防止异常多回车
超级键盘按键(13)
等待(350)
超级键盘按键(13)
等待(350)
变量 审核X=0,审核Y=0
变量 审核序号 = 窗口找图(窗口301句柄,0,0,2000,2000,"rc:\\审核.bmp","000000",0.9,1,审核X,审核Y)
窗口激活(窗口301句柄)
调试输出("审核序号="&审核序号)
如果(审核序号 !=-1 )
等待(200)
超级鼠标移动(审核X+21,审核Y+34) //x=12 y=6
等待(200)
超级鼠标左键单击()
等待(400)
超级键盘按键(13)
等待(350)
超级键盘按键(13)
等待(350)
超级键盘按键(13)
等待(300)
变量 工单编号X=0,工单编号Y=0
变量 工单编号 = 找图(0,0,2000,2000,"rc:\\工单编号.bmp","000000",0.9,0,工单编号X,工单编号Y)
调试输出("工单编号="&工单编号)
如果(工单编号 !=-1 )
等待(200)
超级鼠标移动(工单编号X+180,工单编号Y+8)
等待(200)
超级鼠标右键单击(1)
等待(300)
超级键盘按键(38)
等待(200)
超级键盘按键(13)
否则
消息框("未找工单编号")
结束
结束
结束
结束
等待(200)
窗口激活(窗口下料表格句柄)
等待(200)
超级键盘按键(39)
等待(200)
超级键盘按下(17)
超级键盘按键(86)
超级键盘弹起(17)
等待(300)
变量 问题 = 获取剪切板()
选择(问题)
条件 "无结构"
窗口激活(窗口下料表格句柄)
等待(300)
超级键盘按下(17)
超级键盘按键(57)
超级键盘弹起(17)
等待(300)
次数合--
调试输出("次数合--="&次数合)
条件 "无工艺编码"
窗口激活(窗口下料表格句柄)
等待(300)
超级键盘按下(17)
超级键盘按键(57)
超级键盘弹起(17)
等待(300)
次数合--
调试输出("次数合--="&次数合)
条件 "制程追踪资料未确认"
窗口激活(窗口下料表格句柄)
等待(300)
超级键盘按下(17)
超级键盘按键(57)
超级键盘弹起(17)
等待(300)
次数合--
调试输出("次数合--="&次数合)
结束
等待(300)
超级键盘按键(40)
等待(200)
超级键盘按键(37,3)
等待(200)
结束
结束
结束
//委外
如果(复选框获取状态("复选框5"))
自检窗口句柄()
如果(复选框获取状态("复选框6"))
等待(500)
窗口激活(窗口下料表格句柄)
等待(500)
超级键盘按键(39,2)
等待(300)
超级键盘按键(38,次数合)
结束
等待(500)
窗口激活(ERP界面句柄)
调试输出("ERP界面句柄="&ERP界面句柄)
等待(600)
窗口提交字符串(ERP界面句柄,"asfp700")
等待(300)
超级键盘按键(13)
等待(4600)
变量 窗口700句柄 = 枚举窗口("工艺委外工单转采购单作业(asfp700)",0)
如果(窗口700句柄 !="" )
窗口最大化(窗口700句柄)
窗口激活(窗口700句柄)
等待(300)
超级键盘按键(13)
等待(200)
窗口提交字符串(窗口700句柄,"13108*")
等待(200)
超级键盘按键(13,3)
等待(9000)
窗口提交字符串(窗口700句柄,"12204")
等待(200)
超级键盘按键(13,3)
等待(200)
窗口提交字符串(窗口700句柄,"RMB")
等待(200)
超级键盘按键(13,2)
等待(2200)
循环(真)
字库设置("rc:\\字库.txt",0)
变量 总笔数 = 窗口识字(窗口700句柄,126,785,159,805,"000000-303030",1.0)
调试输出("总笔数="&总笔数)
变量 几笔 = 字符串修剪(总笔数,"-")
调试输出("几笔="&几笔)
调试输出("次数合="&次数合)
如果( 几笔 == 次数合 )
遍历(变量 j=0;j<次数合;j++)
等待(300)
窗口激活(窗口700句柄)
等待(500)
超级键盘按键(32)
等待(200)
超级键盘按键(13,2)
等待(200)
变量 编号 = 下拉框获取文本("下拉框0")
选择(编号)
条件 "飞键"
等待(200)
窗口提交字符串(窗口700句柄,"P0193")
条件 "金教"
等待(200)
窗口提交字符串(窗口700句柄,"P0328")
结束
等待(200)
超级键盘按键(13)
等待(200)
窗口激活(窗口下料表格句柄)
等待(300)
超级键盘按下(17)
超级键盘按键(67)
超级键盘弹起(17)
等待(300)
窗口激活(窗口700句柄)
等待(300)
超级键盘按下(17)
超级键盘按键(86)
超级键盘弹起(17)
等待(300)
超级键盘按键(13,2)
等待(300)
窗口激活(窗口下料表格句柄)
等待(300)
超级键盘按键(40)
等待(300)
结束
窗口激活(窗口700句柄)
等待(200)
超级键盘按下(17)
超级键盘按键(13)
超级键盘弹起(17)
等待(300)
超级键盘按键(13)
等待(700)
变量 工单k,工单g
变量 工单句柄 = 窗口查找("对话框","QWidget")
调试输出("工单句柄="&工单句柄)
窗口激活(工单句柄)
如果(工单句柄 !="" )
窗口获取大小(工单句柄,工单k,工单g)
调试输出("工单k="&工单k&"工单g="&工单g)
字库设置("rc:\\字库.txt",0)
变量 字长度 = 窗口识字(工单句柄,0,0,工单k,工单g,"000000-303030",1.0)
调试输出("字长度="&字长度)
变量 单号 = 字符串修剪(字长度,"-")
调试输出("单号="&单号)
窗口激活(窗口下料表格句柄)
等待(200)
超级键盘按键(38)
等待(200)
超级键盘按键(39,2)
等待(200)
窗口提交字符串(窗口下料表格句柄,单号)
等待(300)
超级键盘按下(17)
超级键盘按键(83)
超级键盘弹起(17)
等待(300)
窗口激活(工单句柄)
等待(300)
超级键盘按键(13,2)
等待(200)
跳出
否则
消息框("未找到工单编号窗口")
结束
结束
结束
结束
结束
//打印
如果(复选框获取状态("复选框4"))
自检窗口句柄()
等待(500)
窗口激活(ERP界面句柄)
等待(600)
窗口提交字符串(ERP界面句柄,"apmt590")
等待(300)
超级键盘按键(13)
等待(4600)
变量 窗口590句柄 = 枚举窗口("委外采购单维护作业(apmt590)",0)
如果(窗口590句柄 !="" )
窗口最大化(窗口590句柄)
等待(200)
窗口激活(窗口590句柄)
等待(350)
窗口提交按键(窗口590句柄,81)
等待(200)
窗口激活(窗口下料表格句柄)
等待(300)
超级键盘按下(17)
超级键盘按键(67)
超级键盘弹起(17)
等待(200)
窗口激活(窗口590句柄)
等待(200)
超级键盘按下(17)
超级键盘按键(86)
超级键盘弹起(17)
等待(350)
超级键盘按下(17)
超级键盘按键(13)
超级键盘弹起(17)
等待(500)
窗口提交按键(窗口590句柄,79)
等待(200)
超级键盘按键(13)
等待(9200)
循环(真)
等待(2500)
变量 PDF句柄=枚举窗口("阅读器",0)
如果(PDF句柄 =="")
变量 网页下载句柄=窗口模糊查找("apmr900","IEFrame")
调试输出("网页下载句柄="&网页下载句柄)
如果(网页下载句柄 !="")
窗口激活(网页下载句柄)
等待(200)
窗口最大化(网页下载句柄)
等待(300)
// 老是走到这个循环找图 找不到图!
循环(真)
等待(1000)
变量 字母x=0,字母y=0
变量 图字 = 找图(0,0,2000,2000,"rc:Export字母.bmp","212121-737274",1,0,字母x,字母y)
调试输出("字母x="&字母x&"--"&"字母y="&字母y)
调试输出("图字 = "&图字)
截图(0,0,2000,2000,"d:截图.bmp")
如果(图字 !=-1 )
鼠标移动(字母x,字母y)
鼠标左键单击()
等待(2000)
超级键盘按下(164)
超级键盘按键(79)
超级键盘弹起(164)
等待(200)
跳出
结束
结束
结束
否则
等待(300)
窗口激活(PDF句柄)
等待(500)
超级键盘按下(17)
超级键盘按键(80)
超级键盘弹起(17)
等待(500)
超级键盘按键(13)
等待(200)
跳出
结束
结束
结束
热键注册("热键0")
结束
结束
|