自动输入密码并登入软件

b.vbs内容如下：

Set WShell=WScript.CreateObject("WScript.Shell")

'编写了一个函数 处理删除 某进出  没必要写一个函数 直接删除就好
Function KillProc(strProcName)
On Error Resume Next
 Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
 Set arrProcesses = objWMIService.ExecQuery( "select * from win32_process where Name ='"&strProcName&"'" )
 For Each proccess In arrProcesses
  proccess.Terminate 0
 Next
End Function
KillProc"Park.exe"'把原来运行的程序删除

set fso=CreateObject("Scripting.FileSystemObject")
path=fso.getfile("C:\Program Files\Park NET\Park.exe").shortpath
WShell.run path,1 '注意参数，

'ws.AppActivate "Park.exe"
'a=WShell.run("a.bat")
'a=WShell.run("a.bat")
WScript.Sleep 2000'
'WShell.SendKeys"123456"' 输入密码

WShell.SendKeys"{TAB}"'模拟键盘上的{TAB}
WShell.SendKeys"{TAB}"
WScript.Sleep 200
WShell.SendKeys"{ENTER}"
WScript.Sleep 200
WShell.SendKeys"{ENTER}"
'KillProc"cmd.exe"

双击实现自动运行程序，并输入密码

模拟键盘操作