vbs代码问题 如何用vbs打开一个指定程序，然后在程序上输入密码

Option Explicit

Dim objShell, strProgram, strKeys

Set objShell = CreateObject("WscriptShell")

strKeys = "Hello world" '要发送的字符,请自己更改

strProgram = "c:\windows\system32\notepadexe" '需要打开的程序,请自己指定

With objShell

Run strProgram

WScriptSleep 500

SendKeys strKeys

SendKeys "~"

End With

Set objShell = Nothing

循环可以使用while wend：

Dim objws

Set objws=WScriptCreateObject("wscriptshell")

while true

wscriptsleep 5000

objwsRUN "1bat"

wend

注意：上面的代码会进入死循环，即会一直运行。

给你个思路吧:

你打开的是1txt,那么这个TXT的标题就是"1txt - 记事本",你可以在Timer控件下写代码，判断是否存在窗口"1txt - 记事本",存在则运行其他程序，不存在则继续监视！

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

Private Sub Timer1_Timer()

winHwnd = FindWindow(vbNullString, "1txt - 记事本")

If winHwnd <> 0 Then

shell "" ,vbhide

End If

End Sub

回答的太急都没看清是VBS，回答错了，我回答的是VB的，不好意思哈

pro="c:\windows\system32\notepadexe"'要打开的程序，写完整路径

n=split(pro,"\")

name=n(ubound(n))

for each ps in getobject("winmgmts:\\\root\cimv2:win32_process")instances_

s=s&sep&psname:sep="|":next

s=split(s,"|")

for i=0 to ubound(s)

if name=s(i) then wscriptquit

next

createobject("wscriptshell")run pro

除非它有像QQ呼出聊天窗口一样的全局快捷键

_________________

p = "C:\1exe"

CreateObject("WScriptShell")Run """" & p & """", 0

在链接客户机时，如果通过在vbs脚本中写入管理员账户，安全风险大了些。

你可以考虑做个msi文件格式的安装包，然后通过域的下发安装就可以了，具体 *** 作方法，你可以上网查下，通过windows 域安装分发软件，或安装软件的文档

以上就是关于vbs代码问题 如何用vbs打开一个指定程序，然后在程序上输入密码全部的内容，包括:vbs代码问题 如何用vbs打开一个指定程序，然后在程序上输入密码、VBS写个循环运行程序的代码让它一直运行、vbs如何实现在打开某一文件时运行程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！