仪器信息网APP

选仪器、听讲座、看资讯

立即体验

当前位置：仪器社区 >色谱 > 液相色谱（LC） > 帖子详情

利用vbs脚本文件实现Chemstation中自动加载运行宏命令

myoldid

2019/07/03

液相色谱（LC）

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

第1楼2019/07/15

从未试过如此，感觉又打开一扇知识大门

0

支点

第2楼2019/07/15

应助达人

高手，有宏方面的资料么

0

myoldid

第3楼2019/07/15

应助达人

这个我还没有了，需要的话可以直接找800要
支点(zhx_fs_ln) 发表:高手，有宏方面的资料么

1

近期热榜

热门活动

猜你喜欢最新推荐热门推荐更多推荐

品牌合作伙伴

日立科学仪器

珀金埃尔默仪器（上海）有限公司（PerkinElmer）

珀金埃尔默仪器（上海）有限公司（PerkinElmer）

日本电子株式会社

赛默飞世尔科技

马尔文帕纳科

上海仪电科仪

梅特勒托利多

布鲁克核磁

举报帖子

点赞用户

好友列表

加载中...

正在为您切换请稍后...