这是老弟第一次正儿八经的发帖子,希望有掌声:
本人用的安捷伦的工作站,每次打印标液的混合标液图谱时都需要重新校正,很麻烦,所以小弟不才用按键精灵写了一段脚本,感兴趣的可以看看,抛砖引玉希望各位大侠批评指正,继续增加新功能。
hwnd = Plugin.Window.Find("WindowsForms10.Window.8.app.0.378734a", "仪器 1 (脱机): 数据分析 ")
Call Plugin.Window.Active(hwnd)
Delay 1000 '激活脱机窗口
KeyDown 18, 1
Delay 1000
KeyPress 67, 1
Delay 100
KeyUp 18, 1
Delay 1000
KeyPress "R", 1
Delay 1000 '打开校正
jz = Plugin.Window.Foreground ()
th = Plugin.Window.Findex(jz,0, "Button", "替换")
TracePrint th
Call Plugin.Bkgnd.LeftClick(th, 0, 0)
Delay 1000
KeyPress "Enter", 1
Delay 1000
KeyPress "Enter", 1 '替换确定
jb1=Plugin.Window.Findex(hwnd,0, "WindowsForms10.Window.8.app.0.378734a", "panelControl1")
TracePrint jb1
jb2= Plugin.Window.Findex(jb1,0,"WindowsForms10.Window.8.app.0.378734a",0)
TracePrint jb2
jb3= Plugin.Window.Findex(jb2,0,"WindowsForms10.Window.8.app.0.378734a","panelControl1")
TracePrint jb3
jb4= Plugin.Window.Findex(jb3,0,"WindowsForms10.Window.8.app.0.378734a",0)
TracePrint jb4
jb5= Plugin.Window.Findex(jb4,0,"WindowsForms10.Window.8.app.0.378734a","panelChemStation")
TracePrint jb5
jb6 = Plugin.Window.Findex(jb5, 0, "PhxCntrllr1", "仪器 1 (脱机): 数据分析 ")
TracePrint jb6
jb7 = Plugin.Window.Findex(jb6, 0, "HpViewClipper", "ViewMGR")
TracePrint jb7
jzb = Plugin.Window.Findex(jb7,0, "HPCHEM_GTW_STDTAB_01", "校正表")
TracePrint jzb
qd = Plugin.Window.Findex(jzb,0, "Button", "确定")
TracePrint qd
Call Plugin.Bkgnd.LeftClick(qd, 0, 0)
Delay 1000
FindPic 0,0,1024,768,"D:\print.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
'找到打印按钮
MoveTo intX, intY
MoveR 10, 10
Delay 100
LeftClick 1
End If
‘把附件里打印的图标放到D盘的根目录就可以了。当然也可以根据自己修改的代码中的路径放置。