Copy code
set WshShell = WScript.CreateObject(“WScript.Shell”)
WshShell.run “runas /user:user1 %comspec%” ‘Open command prompt
WScript.Sleep 1000
WshShell.SendKeys “password1″ ’send password
WshShell.SendKeys “{ENTER}”
WScript.Sleep 1000
‘Open TM
WshShell.SendKeys Chr(34) + “C:\Software\QQ\Bin\QQ.exe” + Chr(34)
WshShell.SendKeys “{ENTER}”
WshShell.SendKeys “exit” ‘Close command prompt
WshShell.SendKeys “{ENTER}”
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/155926.html
標籤：網絡編程
上一篇：vb給flash發送資料的問題！