2016-08-04 88 views
0
使用砰砰

我的VBA代碼如下說明如何通過砰砰如何節省時間,在VBA

Set wsh = VBA.CreateObject("WScript.Shell") 
for i = 1 to 1000 
    wsh.Run("cmd.exe /c plink -ssh 192.168.100.xx -l root -pw xxxx command", 0, True) 
    Sleep 1000 
next i 

控制我的主人如果我必須通過plink.exe擺脫主機信息每秒的模板,它必須執行「wsh.Run(」cmd.exe/c plink -ssh 192.168.100.xx -l root -pw xxxx command「,0,True)」,這會浪費時間在打開shell並執行plink。然後每一輪關閉它。有沒有一種方法來節省時間,這意味着打開shell並執行一次plink.exe並保持plink.exe監聽我的命令,直到循環結束?

+0

這個問題/答案([重定向輸入到可執行文件從Excel VBA](http://stackoverflow.com/a/1899704/119775))可能會給你你需要的;它顯示瞭如何通過WScript.Shell與可執行文件進行交互。 –

+0

...但第二個想法,我不清楚你想要達到什麼。你能舉一個例子說明如何在命令提示符下手動執行你想做的事情嗎?一旦澄清,就會更容易找出如何實現自動化。 –

+0

我修改了我的問題。 – StevenYen

回答

0

您可能想看看Chip Pearsons解決方案,Shell和Wait。

http://www.cpearson.com/excel/ShellAndWait.aspx

的ShellAndWait函數調用殼牌,然後等待Shell'd進程終止。您可以指定一個時間間隔,之後該功能超時並返回給調用者。 ShellAndWait聲明如下: