' ====================================== 
' VBS 中 SendKeys 模擬鍵盤擊鍵 
' 2009-07-26 
' 劉林 
' ====================================== 
Dim WshShell 
Set WshShell=WScript.CreateObject("WScript.Shell") 
WshShell.Run "cmd" 
' 讓腳本等待1000毫秒，也就是1秒再執行下一條語句 
WScript.Sleep 1000 
' -- 發送字符時，輸入法一定要在英文件狀態下 
' 發送分號 
WshShell.SendKeys ";" 
WScript.Sleep 1000 
' 發送冒號 
WshShell.SendKeys ":" 
WScript.Sleep 1000 
' 發送雙引號 -- 利用chr把雙引號轉換出來 
WshShell.SendKeys Chr(34) 
WScript.Sleep 1000 
' 發送帶有雙引號的字符串 
WshShell.SendKeys Chr(34)&"this is a string"&Chr(34) 
WScript.Sleep 1000 
' -- 切記，這里是模擬的擊鍵操作，所以不能發送中文 
'WshShell.SendKeys Chr(34)&"這是一個字符串"&Chr(34) 
WScript.Sleep 1000 
' ================================================ 
' -- 如何模擬回車，上檔鍵，Alt鍵喃? 
' ================================================ 
' -- 如何模擬回車, -- {enter}這就代表是發送回車 
WshShell.SendKeys "this is a enter!{enter}" 
WScript.Sleep 1000 
' -- 如何模擬上檔鍵Shift, -- +這就代表是發送shift 
WshShell.SendKeys "this is +a" ' 結果為 this is A 
WScript.Sleep 1000 
' -- 如何模擬Alt, -- %這就代表是發送Alt 
WshShell.SendKeys "this is %{TAB}" ' 結果為 切換窗口 
WScript.Sleep 1000 
' =========================================================== 
' -- 那么如何發送%, + ^ 喃 
WshShell.SendKeys "this is {+}{^}{%}" ' 結果為 切換窗口 
WScript.Sleep 1000 
' -- 這里你可能已經明白了，發送送特殊字符時，請放到 {} 中 
' =========================================================== 
' ====================================== 
' 更多信息請看VBS幫助文檔 2009-07-26 
' ======================================