VBS如何實現sendkeys模擬擊鍵操作

小編給大家分享一下VBS如何實現sendkeys模擬擊鍵操作，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！

 代碼如下:

' ======================================
' 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
' ======================================

以上是“VBS如何實現sendkeys模擬擊鍵操作”這篇文章的所有內容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內容對大家有所幫助，如果還想學習更多知識，歡迎關注億速云行業資訊頻道！