vbs 控制台应用sendkeys无效怎么办

2014-11-12 08:34:37 3.1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

让user组用户登录时自动运行需要administrator权限的程序今天忙了大半天，总算成功了，这里就说说，大家如果有更好的方法也回帖说说，我也好学习下:)目的很简单，就是在启用UAC的情况下，让普通用户可以通过脚本运行需要管理员权限的程序，而不需要输入管理员密码当然脚本要加密，不能泄露管理员密码首先找到的是CPAU，发现没有效果，不知道为什么又找到runasspc，开始提示权限不足，后来用管理员进行加密，总算成功下载... 阅读详情

我需要在一个控制台应用中模拟键盘输入选择选项
我先是用vbs调用cmd.exe 然后利用sendkeys输入路径并在控制台窗口中打开我需要的控制台应用，应用也成功打开但是接下来的sendkeys完全无效我使用appactivate 激活这个控制台应用也没法使sendkeys起作用，但用键盘就可以，有谁知道这是为什么吗，有什么解决方案没有，我没什么脚本基础，还请高人指点，真不想用开发工具做这么简单的东西，谢谢

...全文

从整蛊脚本到实用工具：VBS、BAT、HTML/JS脚本的自动化原理与改造在计算机自动化领域，脚本编程是实现系统任务自动化的基础技术。其核心原理在于通过预定义的命令序列，调用操作系统或应用程序的接口，实现批量处理、定时任务或用户交互的自动化。这项技术的价值在于能显著提升工作效率，减少重复性人工操作，尤其适用于系统维护、部署、测试等场景。以Windows平台为例，VBScript、批处理（BAT/CMD）以及HTML/JavaScript是常见的脚本语言，它们虽看似简单，却蕴含着强大的自动化潜力。例如，VBScript的`WScript.Shell`对象可用于控制窗口和发送按键，而阅读详情

fansmit

vbScript 4,008 成员 3,512 内容

+ 关注 + 加入社区

切换为时间正序

N1CEyk 2016-07-01

打赏
举报

我也遇到了同样的问题了，sendkey 对cmd无效呀，不知道你解决了没

cuisanzhang 2015-11-09

打赏
举报

我估计这个EXEC 得强制用Cscript.exe执行：

fansmit 2014-11-18

打赏
举报

。。。怎么会这样

fansmit 2014-11-17

打赏
举报

2位朋友都没理解错这个应用确实需要带参数但是slwsss提供的set shellrun = CreateObject("WScript.Shell") shellrun.run "C:\a.exe -a.b" 我用了是无效的在命令行里它会提示我 Unable to open file 'a.b' 这个结果和我直接在命令行里输入C:\a.exe -a.b 是相同的错误提示除非我把当前的路径切换到这个应用的路径下在这里也就是c:\ 才能正常开启应用也就是说C:\test>C:\a.exe -a.b 回车会提示Unable to open file 'a.b' 但如果我先切换到C:\下也就是C:\>a.exe -a.b，就运行正常还有ccbccb的title testing代码如果用在我的应用上最后就会提示管道正在关闭

ccbccb 2014-11-17

打赏
举报

引用 26 楼 Fansmit 的回复:

[quote=引用 24 楼 ccbccb 的回复:] 对了，那你试试 C:\test>C:\a.exe -C:\a.b或 C:\test>C:\a.exe -\a.b呢？

这个试了一下貌似不行 ccbccb 能否给我个联系方式比如qq什么的那样就可以直接和你联系了这么一发一回的实在是费时间。。。[/quote] 现在发不了私信。

fansmit 2014-11-17

打赏
举报

引用 24 楼 ccbccb 的回复:

对了，那你试试 C:\test>C:\a.exe -C:\a.b或 C:\test>C:\a.exe -\a.b呢？

这个试了一下貌似不行 ccbccb 能否给我个联系方式比如qq什么的那样就可以直接和你联系了这么一发一回的实在是费时间。。。

fansmit 2014-11-17

打赏
举报

我是遇到了2个问题一个是带参数无法运行一个是运行后不接受sendkeys 或 stdin方法的输入这个应用是可以不带参数运行的所以第二个问题我是没带参数做的但实际上带不带参数这个应用都不接受输入

ccbccb 2014-11-17

打赏
举报

对了，那你试试 C:\test>C:\a.exe -C:\a.b或 C:\test>C:\a.exe -\a.b呢？

ccbccb 2014-11-17

打赏
举报

引用 22 楼 Fansmit 的回复:

2位朋友都没理解错这个应用确实需要带参数但是slwsss提供的set shellrun = CreateObject("WScript.Shell") shellrun.run "C:\a.exe -a.b" 我用了是无效的在命令行里它会提示我 Unable to open file 'a.b' 这个结果和我直接在命令行里输入C:\a.exe -a.b 是相同的错误提示除非我把当前的路径切换到这个应用的路径下在这里也就是c:\ 才能正常开启应用也就是说C:\test>C:\a.exe -a.b 回车会提示Unable to open file 'a.b' 但如果我先切换到C:\下也就是C:\>a.exe -a.b，就运行正常还有ccbccb的title testing代码如果用在我的应用上最后就会提示管道正在关闭

那这样的话就是说你的程序不接受stdin的输入吧。而且你的问题好像也和sendkeys之类的没什么关系吧。之所以要在特定的文件夹运行它，是因为它只在当前位置找文件，能正常的那个位置有这个文件，不正常的位置没那个文件，是不是这样的？搞了几天都还是没真正明白你想干什么。

ccbccb 2014-11-16

打赏
举报

你原来调用程序是用shell的run方法吧，其实在VBS中要打开控制台程序并且还要输入，应该换另一种思路，用Shell的exec方法。 Exec 方法请参阅 WshScriptExec 对象语言 JScript VBScript 显示所有语言在子命令外壳程序中运行应用程序，提供对 StdIn/StdOut/StdErr 流的访问。 object.Exec(strCommand) 参数 object WshShell 对象。 strCommand 表示用于运行脚本的命令行的字符串值。该命令行看上去和从命令提示符处键入完全一样。说明 Exec 方法返回 WshScriptExec 对象，它提供有关用 Exec 运行的脚本状态和错误信息，还提供对 StdIn、StdOut 和 StdErr 频道的访问。Exec 方法只允许执行命令行应用程序。Exec 方法不能用于运行远程脚本。不要混淆 Exec 方法和 Execute 方法（后者属于 WshRemote 对象）。试试这个是否有帮助。

fansmit 2014-11-16

打赏
举报

另外这个应用关闭最后会弹出“管道正在关闭”的错误提示错误定位在最后输入a的那个行

fansmit 2014-11-16

打赏
举报

引用 12 楼 ccbccb 的回复:

http://demon.tw/programming/vbs-run-and-exec.html 这个你可以看看，说得很详细。

我也是参考的你提供的链接内容做的并且加了一下你提供的测试运行状态的代码但是启动这个应用后之后的输入没有任何反应关闭这个应用会弹出状态值为1，我的代码如下

Set ws = WScript.CreateObject ("WSCript.shell")

cmd = "C:\a.exe"
//启动控制台应用
Set oExec = ws.Exec(cmd)

Do While oExec.Status = 0
     WScript.Sleep 100
Loop
 
WScript.Echo oExec.Status

wscript.sleep 3000
//在启动后的控制台应用中输入a选项（这个控制台里都是选项 输入a是为了模拟选择a项）
oexec.StdIn.WriteLine "a"

ccbccb 2014-11-16

打赏
举报

引用 16 楼 Fansmit 的回复:

这个是我原始的方法 Set ws = WScript.CreateObject ("WSCript.shell") cmd = "C:\a.exe" //启动控制台应用 Set oExec = ws.Exec(cmd) wscript.sleep 3000 //在启动后的控制台应用中输入a选项（这个控制台里都是选项输入a是为了模拟选择a项） oexec.StdIn.WriteLine "a" 这么些写也不行

另外还要注意writeline和write的区别

ccbccb 2014-11-16

打赏
举报

引用 16 楼 Fansmit 的回复:

这个是我原始的方法 Set ws = WScript.CreateObject ("WSCript.shell") cmd = "C:\a.exe" //启动控制台应用 Set oExec = ws.Exec(cmd) wscript.sleep 3000 //在启动后的控制台应用中输入a选项（这个控制台里都是选项输入a是为了模拟选择a项） oexec.StdIn.WriteLine "a" 这么些写也不行

给你一个简单的例子说明这种方法的可行性，在这个例子中我运行了cmd.exe，2秒后通过stdin输入title命令修改窗口的title，结果是成功的，可以看到效果。


Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("cmd.exe")
WScript.Sleep 2000
oExec.StdIn.WriteLine "title testing"
WScript.Sleep 10000

ccbccb 2014-11-16

打赏
举报

引用 18 楼 slwsss 的回复:

[quote=引用 6 楼 Fansmit 的回复:] [quote=引用 4 楼 slwsss 的回复:] [quote=引用 3 楼 Fansmit 的回复:] 我的那个必须用cmd 因为需要用到参数调用开程序已经无所谓了问题是打开后的控制台应用没法通过sendkeys方法实现我发现sendkeys方法也没法控制windows中的模拟键盘输入我用c#的sendkey方法也不行后来用User32.dll 的keybd_event也不行

开程序时就可以传入参数的[/quote] 请问应该如何用vbs启动带参数的控制台应用呢比如我在命令行里正常输入是 C:\a.exe -a.b, 那在vbs中应该怎么写呢？谢谢！[/quote] set shellrun = CreateObject("WScript.Shell") shellrun.run "C:\a.exe -a.b"[/quote] 你这个是假设他的程序支持命令行参数，我相信这个楼主肯定也懂的。他要的是向他的控制台程序输入，这是完全不同的问题。

slwsss 2014-11-16

打赏
举报

引用 6 楼 Fansmit 的回复:

[quote=引用 4 楼 slwsss 的回复:] [quote=引用 3 楼 Fansmit 的回复:] 我的那个必须用cmd 因为需要用到参数调用开程序已经无所谓了问题是打开后的控制台应用没法通过sendkeys方法实现我发现sendkeys方法也没法控制windows中的模拟键盘输入我用c#的sendkey方法也不行后来用User32.dll 的keybd_event也不行

ccbccb 2014-11-16

打赏
举报

引用 16 楼 Fansmit 的回复:

这个是我原始的方法 Set ws = WScript.CreateObject ("WSCript.shell") cmd = "C:\a.exe" //启动控制台应用 Set oExec = ws.Exec(cmd) wscript.sleep 3000 //在启动后的控制台应用中输入a选项（这个控制台里都是选项输入a是为了模拟选择a项） oexec.StdIn.WriteLine "a" 这么些写也不行

由于exec方法控制了stdin, stdout等，所以控制台窗口是黑屏没显示的。所以黑屏不能说就是不行。如果按了键后会有相应的输出，你可以操作它的stdout或stderr看看它的输出是否符合预期或是否有其他的错误提示。

fansmit 2014-11-16

打赏
举报

这个是我原始的方法
Set ws = WScript.CreateObject ("WSCript.shell")

cmd = "C:\a.exe"

//启动控制台应用

Set oExec = ws.Exec(cmd)

wscript.sleep 3000

//在启动后的控制台应用中输入a选项（这个控制台里都是选项输入a是为了模拟选择a项）

oexec.StdIn.WriteLine "a"

这么些写也不行

ccbccb 2014-11-16

打赏
举报

http://demon.tw/programming/vbs-run-and-exec.html 这个你可以看看，说得很详细。

ccbccb 2014-11-16

打赏
举报

另外有没有测试调用的程序的运行状态？看看《Script全集》里面这个示例：

Dim WshShell, oExec
Set WshShell = CreateObject("WScript.Shell")

Set oExec = WshShell.Exec("calc")

Do While oExec.Status = 0
     WScript.Sleep 100
Loop

WScript.Echo oExec.Status

我以前为了用runas命令也研究过这个问题。exec确实是可以用的，但由于runas命令的特殊性，在输入密码时还是不成功。后来有找到一个别人写的runas的替代品，不用手工输入密码了，所以也没再研究了。

加载更多回复（10）

vbs 控制台应用sendkeys无效怎么办

相关推荐