主题:【分享】利用vbs脚本文件实现Chemstation中自动加载运行宏命令

浏览 |回复3 电梯直达
myoldid
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
1.  在上篇文章 利用宏命令实现Chemstation下在紫外光谱图中显示化合物的最大/最小吸收波长,适用于VWD的手动扫描和DAD的自动扫描中,最后一步需要手动来输入宏命令,因为每次重启工作站后,之前输入的命令功能会失效需要每次重新输入。如果需要常常使用宏命令,这样每次输入麻烦而且可能出错。本文使用vbs脚本的方式实现用脚本自动输入自动运行的功能。
2.  右击桌面离线工作站图标,进入"快捷方式"菜单,复制下目标框中的所有内容,包含引号。本例中的全部内容为D:\Program Files\Agilent Technologies\OpenLAB Services\UI\Agilent.OpenLab.ControlPanel.exe -console -param 29 -param Offline

图1. 复制目标路径
3.  新建一个文本文档,复制以下代码到文档中
Dim WshShell, StationPath
StationPath="""D:\Program Files\Agilent Technologies\OpenLAB Services\UI\Agilent.OpenLab.ControlPanel.exe""" '此行输入控制面板的路径,也就是步骤2中复制内容的前半段一直到ControlPanel.exe”,注意包含引号

Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run StationPath & " -console -param 29 -param Offline" '此行输入离线工作站快捷方式名称,也就是步骤2中复制内容的后半段
WScript.Sleep 5000 '这里为等待时间,根据工作站启动速度来定,以毫秒为单位。即5000为5秒
WshShell.SendKeys "macro  spctools.mac"  '此行输入待运行的命令,此例中是spctools.mac 可以显示最大最小吸收波长的功能
WScript.Sleep 1000 '输入命令后等待时间
WshShell.SendKeys "{enter}"


图2. 编辑代码,忽略图中的倒数第二行注释
3. 选中文件按F2重命名,将新建的.txt文档改名为"开启宏命令.vbs"。如果看不到.txt,则移步到步骤4
4. 如果看不到.txt,则点击"组织-文件和搜索选项-查看-取消选中隐藏已知文件的扩展名前的复选框;


图3.图4 显示扩展名
5. 关键步骤: 先打开离线工作站,待工作站正常打开后,使得离线工作站为当前窗口,然后再双击运行"开启宏命令.vbs"。这时候脚本会再次开启离线工作站,然后光标自动定位到命令行栏,自动输入macro  spctools.mac,过1s后自动确认,完成开启宏命令的操作。

图5. 自动运行

图6. 运行效果
为您推荐
仪采通
Insm_b142297f
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
支点
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
myoldid
结帖率:
100%
关注:0 |粉丝:0
新手级: 新兵
原文由 支点(zhx_fs_ln) 发表:
高手,有宏方面的资料么
这个我还没有了,需要的话可以直接找800要