0

在 vb 脚本甚至命令行方面，我是一个完全的业余爱好者，所以请多多包涵。

我创建了一个 vb 脚本send.vbs用于使用 Wshshell.sendkeys 发送密钥。在这个脚本中，我将使用 vsh 命令进入 vshell，在输入 vsh 后我得到两个选项，我从中选择选项 2，然后我正在执行一个命令，其输出被重定向到一个文本文件。然后我将该文件 ftp 到不同的服务器。现在我想安排这个 vb 脚本每 10 分钟运行一次。现在，如果我双击此脚本文件，它只会打开一个黑色窗口片刻然后将其关闭。命令不执行。但是当我手动打开一个命令窗口然后我转到脚本所在的路径然后我执行它时，它工作正常并且我得到了所需的输出。

我尝试用cscript send.vbs编写一个批处理文件，并安排它每 10 分钟运行一次。但是这个批处理文件不运行 vbscript。any1 可以帮助我编写一个批处理文件，它将打开一个命令提示符，然后在该命令提示符下运行 thi vb 脚本。脚本如下：

Set WshShell = wscript.CreateObject("wscript.Shell")
wshshell.sendkeys "vsh"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "2"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "tls display agents > Agentstat.txt"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "quit"
wshshell.sendkeys "{ENTER}"

任何帮助都非常感谢..谢谢！

4

1 回答 1

0

干得好 ...

Set WshShell = wscript.CreateObject("wscript.Shell")
WshShell.Run "cmd"
WScript.Sleep 100 
WshShell.AppActivate "C:\Windows\system32\cmd.exe" 
WScript.Sleep 100 
wshshell.sendkeys "vsh"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "2"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "tls display agents > Agentstat.txt"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "PAUSE"
wshshell.sendkeys "{ENTER}"
wshshell.sendkeys "quit"
wshshell.sendkeys "{ENTER}"
于 2013-09-04T07:48:45.433 回答