sendkeys用法詳解

將一個或多個按鍵消息發送到活動窗口，就如同在鍵盤上進行輸入一樣。 

語法 

SendKeys string[, wait] 

SendKeys 語句的語法具有以下幾個命名參數： 

部分 描述   
string 必需的。字符串表達式，指定要發送的按鍵消息。   
Wait   可選的。指定等待方式的 [e-mail] 值。如果為 False（缺省值），則控件在按鍵發送出去之后立刻返回到過程。如果為 True，則按鍵消息必須在控件返回到過程之前加以處理。   

說明 

每個按鍵由一個或多個字符表示。為了指定單一鍵盤字符，必須按字符本身的鍵。例如，為了表示字母 A，可以用 "A" 作為 string。為了表示多個字符，就必須在字符后面直接加上另一個字符。例如，要表示 A、B 及 C，可用 "ABC" 作為 string。 

對 SendKeys 來說，加號 (+)、插入符 (^)、百分比符號 (%)、上划線 (~) 及圓括號 ( ) 都具有特殊意義。為了指定 上述任何一個字符，要將它放在大括號 ({}) 當中。例如，要指定正號，可用 {+} 表示。方括號 ([ ]) 對 SendKeys 來說並不具有 特殊意義，但必須將它們放在大括號中。在其它應用程序中，方括號有特殊意義，在出現動態數據交換 (DDE) 的時候，它可能具有重要意義。為了指定大括 號字符，請使用 {{} 及 {}}。 

為了在按下按鍵時指定那些不顯示的字符，例如 ENTER 或 TAB 以及那些表示動作而非字符的按鍵，請使用下列代碼： 

按鍵 代碼   
BACKSPACE {BACKSPACE}, {BS}, 或 {BKSP}   
BREAK {BREAK}   
CAPS LOCK {CAPSLOCK}   
DEL or DELETE {DELETE} 或 {DEL}   
DOWN ARROW {DOWN}   
END {END}   
ENTER {ENTER}或 ~   
ESC {ESC}   
HELP {HELP}   
HOME {HOME}   
INS or INSERT {INSERT} 或 {INS}   
LEFT ARROW {LEFT}   
NUM LOCK {NUMLOCK}   
PAGE DOWN {PGDN}   
PAGE UP {PGUP}   
PRINT SCREEN {PRTSC}   
RIGHT ARROW {RIGHT}   
SCROLL LOCK {SCROLLLOCK}   
TAB {TAB}   
UP ARROW {UP}   
F1 {F1}   
F2 {F2}   
F3 {F3}   
F4 {F4}   
F5 {F5}   
F6 {F6}   
F7 {F7}   
F8 {F8}   
F9 {F9}   
F10 {F10}   
F11 {F11}   
F12 {F12}   
F13 {F13}   
F14 {F14}   
F15 {F15}   
F16 {F16}   


為了指定那些與 SHIFT、CTRL 及 ALT 等按鍵結合的組合鍵，可在這些按鍵碼的前面放置一個或多個代碼，這些代碼列舉如下： 

按鍵 代碼   
SHIFT +   
CTRL ^   
ALT %   

為了說明在按下其它按鍵時應同時按下 SHIFT、CTRL、及 ALT 的任意組合鍵，請把那些按鍵的碼放在括號當中。例如，為了說明按 下 E 與 C 的時候同時按下 SHIFT 鍵，請使用 "+(EC)"。為了說明在按下 E 的時候同時按下 SHIFT 鍵，但接着按 C 而不 按 SHIFT，則使用 "+EC"。 

為了指定重復鍵，使用 {key number} 的形式。必須在 key 與 number 之間放置一個空格。例如，{LEFT 42} 意指 42 次按下 LEFT ARROW 鍵；{h 10} 則是指 10 次按下 H 鍵。 

注意 不能用 SendKeys 將按鍵消息發送到這樣一個應用程序，這個應用程序並沒有被設計成在 Microsoft Windows 中運行。Sendkeys 也無法將 PRINT SCREEN 按鍵 {PRTSC} 發送到任何應用程序

輸入“漢字-啊”的時候 用 
SendKeys "漢字" 
DoEvents 
SendKeys "-" 
DoEvents 
SendKeys "啊"

SendKeys 語句示例

本示例使用 Shell 函數來運行 Microsoft Windows 所附的計算器程序；然后使用 SendKeys 語句來按下計算器的某些數字鍵，最后退出計算器。（若要觀察示例運行過程，可將示例粘貼到過程中，再運行過程即可。因為 AppActivate 會將焦點轉移到計算器應用程序，故本示例不能以單步方式來運行。）。Dim ReturnValue, I 
ReturnValue = Shell("Calc.EXE", 1) ' 運行計算器。 
AppActivate ReturnValue ' 激活計算器。 
For I = 1 To 100 ' 設置計數循環。 
SendKeys I & "{+}", True ' 按下按鍵給計算器 
Next I ' 將所有 I 值相加。 
SendKeys "=", True ' 取得總合。 
SendKeys "%{F4}", True ' 按 ALT+F4 關閉計算器。
    
走近VB.NET十六 SendKeys方法與Shell函數 

hejianzhong http://www.yescnet.com 

VB.Net中使用Sendkeys遙控: 
大家在VB6中都用過sendkeys，幕通過發送鍵盤的事件間接地控制外部程序，是有遙控之說。 
我在VB7中卻發現這個不能用了， 也就不了了之， 
后來一次在查閱MSDN的時候竟看到了這個，是以嘗試了一下，竟然舊貌新顏，還是一樣好用。 

主要是在system.winforms族中找到sendkeys 使用方法同VB6 
鍵:一般的字符鍵如下輸入”A” “B” “C”………………”Z”等，如果要連續按下兩個以上就使用”AB”的形式 
如果同時按下AB就使用括號如”(AB)” 

如果是功能鍵，就放到大括號中如“{F4}” 另：用+代表Shift,用^代表Ctrl,用%代表Alt 

如“+A”表示按下Shift同時按A 


下面是一個例子： 

Dim sdstr As System.WinForms.SendKeys 

sdstr.Send("%{F4}") 發送ALT+F4 

下面這個代碼在按下Button2以后轉移焦點到下一個控件， 


使按鈕能按下又不能按受焦點. 

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) 

Dim sdstr As System.WinForms.SendKeys 

sdstr.Send("{TAB}") 

End Sub 

下面使用SendWait,使用的方法同上,不過執行這個過程會等待到發送的鍵執行完成以后,再繼續執行后面的代碼. 

Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) 

Dim sdstr As System.WinForms.SendKeys 

'sdstr.Send("{TAB}") 

sdstr.SendWait("{TAB}") 

End Sub 


VB.NET中使用shell調用外部程序: 

Shell(pathname as string,[style as microsoft.visualbasic.appwinstyle=2],[wait as boolean=false],[timeout as integer=-1]) as integer 

調用資源管理器 

Dim PID As Integer 
PID = Shell("explorer.exe http://vbnetcn.126.com", Microsoft.VisualBasic.AppWinStyle.NormalFocus, True) 

調用默認程序 

Dim PID As Integer 
PID = Shell("start.exe mailto:[e-mail]", Microsoft.VisualBasic.AppWinStyle.Hide, True) 

使用Microsoft.VisualBasic.AppWinStyle.Hide參數是為了隱藏程序運行時跳出的DOS窗口。

定時存盤的記事本 

'第一部分：定義變量和對象 

Dim WshShell, AutoSaveTime, TXTFileName 
AutoSaveTime=300000 
Set WshShell=WScript.CreateObject("WScript.Shell") 
TXTFileName=InputBox("請輸入你要創建的文件名(不能用中文和純數字)：") 

'第二部分：打開並激活記事本 

WshShell.Run "notepad" 
WScript.Sleep 200 
WshShell.AppActivate "無標題 - 記事本" 

'第三部分：用輸入的文件名存盤 

WshShell.SendKeys "^s" 
WScript.Sleep 300 
WshShell.SendKeys TXTFileName 
WScript.Sleep 300 
WshShell.SendKeys "%s" 
WScript.Sleep AutoSaveTime 
'第四部分：自動定時存盤 
While WshShell.AppActivate (TXTFileName)=True 
WshShell.SendKeys "^s" 
WScript.Sleep AutoSaveTime 
Wend 
WScript.Quit 

在記事本中輸入字符

Dim WshShell 
Set WshShell=WScript.CreateObject("WScript.Shell") 
WshShell.Run "notepad" 
WScript.Sleep 500 
WshShell.AppActivate "無標題 - 記事本" 
WshShell.SendKeys "H" '輸入字符H
WScript.Sleep 500 
WshShell.SendKeys "%FS" '保存內容
WScript.Sleep 500 
WshShell.SendKeys "b" 'b為文件名
WScript.Sleep 500 
WshShell.SendKeys "%S" '保存文件名
WScript.Sleep 500 
WshShell.SendKeys "%FX" '退出

自動死機
DIM WSHSHELL 
SET WSHSHELL=WSCRIPT.CREATEOBJECT("WSCRIPT.SHELL") 
'WSHSHELL.RUN " " 
'WSCRIPT.SLEEP 1000 
WSHSHELL.SENDKEYS "{ENTER}" 
'WSCRIPT.SLEEP 1000 
WSHSHELL.SENDKEYS "{ENTER}" 
'WSCRIPT.SLEEP 1000 
WSHSHELL.SENDKEYS "{ENTER}" 
'WSCRIPT.SLEEP 1000 
WSHSHELL.SENDKEYS "{ENTER}" 
'WSCRIPT.SLEEP 1000 
WSHSHELL.SENDKEYS "{ENTER}" 

重啟計算機
Dim WshShell 
set WshShell = WScript.CreateObject("WScript.Shell") 
WshShell.SendKeys "^{ESC}u" 
WshShell.SendKeys "R" 

彈出關閉對話框
dim objshell
Set objshell = wscript.CreateObject("Shell.Application")
objshell.ShutdownWindows