返回列表 发帖

[问题求助] 关于vbs的sendkeys没有响应的问题

有两种脚本:
第一种可以运行
set WS=createobject("wscript.shell")
WS.Run ("""C:\Program Files\MATLAB\R2016a\bin\matlab.exe""")'打开matlab编程软件
WScript.Sleep 18000
WS.AppActivate("Matlab R2016a")'激活窗口
WS.SendKeys "% "发送alt空格
WScript.Sleep 500
WS.SendKeys "x"'发送x:这样最大化窗口
WScript.Sleep 500
WS.SendKeys "^0"'发送Ctrl+0,定位光标到命令框
WScript.Sleep 500
WS.SendKeys "paraS@#$%^&*trCell"'发送命令
WScript.Sleep 500
WS.SendKeys "+{ENTER}"'回车,运行命令
WScript.Sleep 500COPY
第二种
Set objShell = CreateObject("Shell.Application")
objShell.ShellExecute "C:\Program Files\MATLAB\R2016a\bin\matlab.exe", "", "", "runas", 1
set objShell = nothing
set WS=createobject("wscript.shell")
WScript.Sleep 18000
WS.AppActivate("Matlab R2016a")
WS.SendKeys "% "
WScript.Sleep 500
WS.SendKeys "x"
WScript.Sleep 500
WS.SendKeys "^0"
WScript.Sleep 500
WS.SendKeys "paraS@#$%^&*trCell"
WScript.Sleep 500
WS.SendKeys "+{ENTER}"
WScript.Sleep 500 收起COPY
第二种打开matlab后,就没反应了.后面的一系列sendkeys都不知道跑哪里去了.

会不会和管理员权限有关系?

以管理員模式執行腳本,在腳本中直接使用 CreateObject("WScript.Shell").Run 啟動 Matlab 程式。
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表