用鍵盤事件接收鍵盤輸入，然後用API SetCursorPos 來移動滑鼠到指定坐標 mouse_event 來模擬滑鼠單擊 聲明部分Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
核心代碼SetCursorPos j, i（j和i 自己寫你想要的坐標）
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 '滑鼠單擊一次
⑵ VB編寫按鍵程序.
sendkeys
vbs SendKey用法
簡單說,這個命令就是模擬鍵盤操作,將一個或多個按鍵指令發送到指定Windows窗口來控制應用程序運行,其使用格式為:
object.SendKeys string
"object":表示WshShell對象
"string":表示要發送的按鍵指令字元串,需要放在英文雙引號中.
1.基本鍵
一般來說,要發送的按鍵指令都可以直接用該按鍵字元本身來表示,例如要發送字母"x",使用
WshShell.SendKeys "x" 即可.
也可直接發送多個按鍵指令,只需要將按鍵字元按順序排列在一起即可.例如,要發送按鍵"cfan",可以使用" WshShell.SendKeys "cfan" ".
2.特殊功能鍵
對於需要與Shift、Ctrl、Alt三個控制鍵組合的按鍵SendKeys使用特殊字元來表示:
特殊控制鍵 特殊字元
Shift +
Ctrl ^
Alt %
如要發送的組合按鍵是同時按下Ctrl+E,需要用" WshShell.SendKeys "^e" "表示,
如果要發送的組合按鍵是按住Ctrl鍵的同時按下E與C兩個鍵,這時應使用小括弧把字母括起來,書寫格式為" WshShell.SendKeys "^(ec)" ".這里要注意它與" WshShell.SendKeys "^ec" "的區別,後者表示組合按鍵是同時按住Ctrl和E鍵,然後松開Ctrl鍵,單獨按下"C"字母鍵
由於"+"、"^"這些字元用來表示特殊的控制按鍵了,如何表示這些按鍵呢?只要用大括弧括住這些字元即可.例如,要發送加號"+",可使用" WshShell.SendKeys "{+}" ".另外對於一些不會生成字元的控制功能按鍵,也同樣需要使用大括弧括起來按鍵號名稱,例如要發送回車鍵,需要用" WshShell.SendKeys "{ENTER}" "表示,發送向下的方向鍵用" WshShell.SendKeys "{DOWN}" "表示.
小提示
如果需要發送多個重復的單字母按鍵,不必重復輸入該字母,SendKdys允許使用簡化格式進行描述,使用格式為"{按鍵 數字}".例如要發送10個字母"x",則輸入" WshShell.SendKeys "{x 10}" "即可.
3.翻譯上手實例
" WshShell.SendKeys "^{ESC}u" "這句翻譯為:按下Ctrl+Esc組合鍵(相當於按Win鍵)打開"開始"菜單,按著按U鍵打開"關機"菜單.
---Just Do It---------------------------------
讓VBS腳本自動在詞本中輸入一行文字"Hello, welcome to cfan".
Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 200
WshShell.AppActivate " 無標題 - 記事本 "
WshShell.SendKeys "hello, welcome to cfan"
我們最常用的記事本沒有Word、WPS那樣的自動定時存檔功能,其實利用VBS腳本再加上SendKeys命令,就能彌補這個遺憾.打開記事本,輸入以下內容(以容易描述和分析,把代碼分為四個部分):
'第一部分：定義變數和對象
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
將其保存為記事本.vbs,以後要使用記事本時,都通過雙擊這個腳本文件來打開.
程序翻譯
這個腳本的基本思路是定時向記事本發送Ctrl+S這個存檔組合鍵.
第一部分:定義了腳本中需要用到的變數和對象."AutoSaveTime"變數用來設置自動存檔間隔,單位為毫秒,這里設置為5分鍾."TXTFileName"變數通過輸入框取得你要創建的文本文件名稱.
第二部分:運行記事本,對於Windows本身提供的程序,比如計算器等,可直接在"WshShell.Run"後輸入程序名稱,如"calc"對於非系統程序,則可輸入完全路徑,但要注意使用8.3格式輸入,比如" "D:\Progra~1\Tencent\QQ.exe" "
第三部分:這里用SendKeys命令執行了這樣的操作流程(請注意每個操作之間延時命令的使用):
在記事本中按Ctrl+S組合鍵→彈出保存文件的窗口→輸入文件名→按Alt+S組合鍵進行保存(默認保存在"我的文檔"目錄).
第四部分:定時存檔的關鍵,通過"While......Wend"這個當條件為"真"時循環命令,實現自動存檔代碼" WshShell.SendKeys "^s" "和定時代碼" WScript.Sleep AutoSaveTime "的重復執行.因為不能讓這個定時存檔循環一直執行,退出記事本後,必須自動退出腳本並結束循環,所以設計了一個循環判斷條件" WshShell.AppActivate TXTFileName=True ",當記事本運行中時,可以激活記事本窗口,這個條件運行結果為"True",定時存檔循環一直執行,退出記事本後,腳本無法激活記事本窗口,就會路出循環,執行"Wend"後面的"WScript.Quit"退出腳本.
---Just Do It---------------------------------
有款軟體叫"QQ多賬號自動登錄器",它有記住QQ賬號和密碼,從而幫你用指定QQ號碼自動登錄,特別適合有多個QQ賬號的朋友.其實利用VBS腳本你完全可以DIY一個.請到http://www.newhua.com/cfan/200419/vbs.rar下載腳本實例.其中有一個雙QQ號碼自動登錄的腳本,請對照其中的解釋將其修改為適合自己的QQ自動登錄腳本.
請製作一個腳本,在你復制了一段文字後,只要雙擊運行這個腳本,就會自動打開記事本,並自動將復制的文字粘貼進來.
-----------------------------------------------
VBS中Sendkey鍵盤對應的碼表
Key Code
------------------------------
Shift +
Ctrl ^
Alt %
BACKSPACE {BACKSPACE}, {BS}, or {BKSP}
BREAK {BREAK}
CAPS LOCK {CAPSLOCK}
DEL or DELETE {DELETE} or {DEL}
DOWN ARROW {DOWN}
END {END}
ENTER {ENTER}or ~
ESC {ESC}
HELP {HELP}
HOME {HOME}
INS or INSERT {INSERT} or {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}
⑶ VB編寫一個鍵盤快捷鍵程序，實現的功能是： 按下字母鍵"q"，相當於數值"74100"; 按下字母
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyQ Then
MsgBox "74100"
ElseIf KeyCode = vbKeyW Then
MsgBox "74200"
ElseIf KeyCode = vbKeyE Then
MsgBox "74300"
ElseIf KeyCode = vbKeyR Then
MsgBox "74400"
'...............................
End If
End Sub
⑷ VB中知道了鍵盤各個按鍵的代碼，怎樣編寫，舉個例子吧！誰來開頭！要控制項的順便說下
1.檢測是否按了「↑」鍵，例
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp Then msgbox "您按了↑鍵!"
End Sub
2.檢測按組合鍵
If (KeyCode = vbKeyNumpad0) And (Shift = 2) Then '按Ctrl+小鍵盤0
If (KeyCode = vbKeyF1) And (Shift = 2) Then '按Ctrl+F1
3.模擬按組合鍵
SendKeys "%{f4}" 'Alt+F4（關閉窗口）
SendKeys "{y 5}" '連續按5個y
SendKeys "Welcome" '發送字串
⑸ 怎樣用VB模擬鍵盤輸入
ivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC
Private Sub Command1_Click()
Dim hwnd As Long, Thwnd As Long
Shell "notepad.exe", 2 '打開一個記事本,將它最小化
hwnd = FindWindow("Notepad", "無標題 - 記事本") '得到記事本句柄
Thwnd = FindWindowEx(hwnd, 0, "Edit", vbNullString) '得到記事本句柄(就是我們寫字的那裡)
SendMessage Thwnd, WM_SETTEXT, 0, ByVal "好了,快給我分" '向記事本寫入文字
End Sub
⑹ VB一個簡單的鍵盤按鍵響應程序
因為vbShiftMask,vbCtrlMask,vbAltMask是按位排列的，即2^n(n=0,1,2),分別為1，2，4，像這種情況，程序處理的時候就要用到位運算符(And)來處理這種數據。這個程序可以簡化，你看看下面的。組合鍵情況顯示在窗體Caption里。
代碼如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim s As String
If (Shift And vbShiftMask) = vbShiftMask Then s = s & "SHIFT" & " "
If (Shift And vbCtrlMask) = vbCtrlMask Then s = s & "CTRL" & " "
If (Shift And vbAltMask) = vbAltMask Then s = s & "ALT" & " "
Caption = s
End Sub
⑺ 用VB編寫鍵盤映射程序
窗體KeyPreview設置為True
假設上方向鍵要映射為「1」鍵，則在keydown事件中這樣寫：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then KeyCode = 0: SendKeys "1"
End Sub
⑻ vb編程數字小鍵盤，1234567890
鍵盤鍵與虛擬鍵碼對照表
字母和數字鍵 數字小鍵盤的鍵 功能鍵 其它鍵
鍵 鍵碼鍵 鍵碼 鍵 鍵碼 鍵鍵碼
A65 0 96 F1 112 Backspace 8
B66 1 97 F2 113 Tab 9
C67 2 98 F3 114 Clear 12
D68 3 99 F4 115 Enter 13
E69 4 100F5 116 Shift 16
F70 5 101F6 117 Control 17
G71 6 102F7 118 Alt 18
H72 7 103F8 119 Caps Lock 20
I73 8 104F9 120 Esc 27
J74 9 105F10121 Spacebar32
K75 * 106F11122 Page Up 33
L76 + 107F12123 Page Down 34
M77 Enter 108-- --End 35
N78 - 109-- -- Home36
O79 . 110-- -- Left Arrow37
P80 / 111-- -- Up Arrow38
Q81 -- ---- -- Right Arrow 39
R82 -- ---- -- Down Arrow 40
S83 -- ---- -- Insert 45
T84 -- ---- -- Delete 46
U85 -- ---- -- Help 47
V86 -- ---- -- Num Lock 144
W87
X88
Y89
Z90
048
149
250
351
452
553
654
755
856
957
⑼ VB常用鍵盤代碼一覽表
Keycode 常數
可在代碼中的任何地方用下列常數代替實際值：
常數 值 描述
vbKeyLButton 0x1 滑鼠左鍵
vbKeyRButton 0x2 滑鼠右鍵
vbKeyCancel 0x3 CANCEL 鍵
vbKeyMButton 0x4 滑鼠中鍵
vbKeyBack 0x8 BACKSPACE 鍵
vbKeyTab 0x9 TAB 鍵
vbKeyClear 0xC CLEAR 鍵
vbKeyReturn 0xD ENTER 鍵
vbKeyShift 0x10 SHIFT 鍵
vbKeyControl 0x11 CTRL 鍵
vbKeyMenu 0x12 MENU 鍵
vbKeyPause 0x13 PAUSE 鍵
vbKeyCapital 0x14 CAPS LOCK 鍵
vbKeyEscape 0x1B ESC 鍵
vbKeySpace 0x20 SPACEBAR 鍵
vbKeyPageUp 0x21 PAGE UP 鍵
vbKeyPageDown 0x22 PAGE DOWN 鍵
vbKeyEnd 0x23 END 鍵
vbKeyHome 0x24 HOME 鍵
vbKeyLeft 0x25 LEFT ARROW 鍵
vbKeyUp 0x26 UP ARROW 鍵
vbKeyRight 0x27 RIGHT ARROW 鍵
vbKeyDown 0x28 DOWN ARROW 鍵
vbKeySelect 0x29 SELECT 鍵
vbKeyPrint 0x2A PRINT SCREEN 鍵
vbKeyExecute 0x2B EXECUTE 鍵
vbKeySnapshot 0x2C SNAPSHOT 鍵
vbKeyInsert 0x2D INSERT 鍵
vbKeyDelete 0x2E DELETE 鍵
vbKeyHelp 0x2F HELP 鍵
vbKeyNumlock 0x90 NUM LOCK 鍵
A 至 Z 鍵與 A – Z 字母的 ASCII 碼相同：
常數 值 描述
vbKeyA 65 A 鍵
vbKeyB 66 B 鍵
vbKeyC 67 C 鍵
vbKeyD 68 D 鍵
vbKeyE 69 E 鍵
vbKeyF 70 F 鍵
vbKeyG 71 G 鍵
vbKeyH 72 H 鍵
vbKeyI 73 I 鍵
vbKeyJ 74 J 鍵
vbKeyK 75 K 鍵
vbKeyL 76 L 鍵
vbKeyM 77 M 鍵
vbKeyN 78 N 鍵
vbKeyO 79 O 鍵
vbKeyP 80 P 鍵
vbKeyQ 81 Q 鍵
vbKeyR 82 R 鍵
vbKeyS 83 S 鍵
vbKeyT 84 T 鍵
vbKeyU 85 U 鍵
vbKeyV 86 V 鍵
vbKeyW 87 W 鍵
vbKeyX 88 X 鍵
vbKeyY 89 Y 鍵
vbKeyZ 90 Z 鍵
0 至 9 鍵與數字 0 – 9 的 ASCII 碼相同：
常數 值 描述
vbKey0 48 0 鍵
vbKey1 49 1 鍵
vbKey2 50 2 鍵
vbKey3 51 3 鍵
vbKey4 52 4 鍵
vbKey5 53 5 鍵
vbKey6 54 6 鍵
vbKey7 55 7 鍵
vbKey8 56 8 鍵
vbKey9 57 9 鍵
下列常數代表數字鍵盤上的鍵：
常數 值 描述
vbKeyNumpad0 0x60 0 鍵
vbKeyNumpad1 0x61 1 鍵
vbKeyNumpad2 0x62 2 鍵
vbKeyNumpad3 0x63 3 鍵
vbKeyNumpad4 0x64 4 鍵
vbKeyNumpad5 0x65 5 鍵
vbKeyNumpad6 0x66 6 鍵
vbKeyNumpad7 0x67 7 鍵
vbKeyNumpad8 0x68 8 鍵
vbKeyNumpad9 0x69 9 鍵
vbKeyMultiply 0x6A MULTIPLICATION SIGN (*) 鍵
vbKeyAdd 0x6B PLUS SIGN (+) 鍵
vbKeySeparator 0x6C ENTER 鍵
vbKeySubtract 0x6D MINUS SIGN (–) 鍵
vbKeyDecimal 0x6E DECIMAL POINT (.) 鍵
vbKeyDivide 0x6F DIVISION SIGN (/) 鍵
下列常數代表功能鍵：
常數 值 描述
vbKeyF1 0x70 F1 鍵
vbKeyF2 0x71 F2 鍵
vbKeyF3 0x72 F3 鍵
vbKeyF4 0x73 F4 鍵
vbKeyF5 0x74 F5 鍵
vbKeyF6 0x75 F6 鍵
vbKeyF7 0x76 F7 鍵
vbKeyF8 0x77 F8 鍵
vbKeyF9 0x78 F9 鍵
vbKeyF10 0x79 F10 鍵
vbKeyF11 0x7A F11 鍵
vbKeyF12 0x7B F12 鍵
vbKeyF13 0x7C F13 鍵
vbKeyF14 0x7D F14 鍵
vbKeyF15 0x7E F15 鍵
vbKeyF16 0x7F F16 鍵
⑽ VB製作軟鍵盤
用API keybd_event來模擬按鍵過程，但是Ctrl+Alt+Del不能模擬，前面已經定義了各個按鍵的值，需要按什麼鍵替換成對應的值就行了，由於是模擬鍵盤按鍵，所以按鍵發送的對象是當前激活的窗口。
Option Explicit
'
'Virtual Keys, Standard Set
'
Private Const VK_LBUTTON = &H1
Private Const VK_RBUTTON = &H2
Private Const VK_CANCEL = &H3
Private Const VK_MBUTTON = &H4 'NOT contiguous with L & RBUTTON
Private Const VK_BACK = &H8
Private Const VK_TAB = &H9
Private Const VK_CLEAR = &HC
Private Const VK_RETURN = &HD
Private Const VK_SHIFT = &H10
Private Const VK_CONTROL = &H11
Private Const VK_MENU = &H12
Private Const VK_PAUSE = &H13
Private Const VK_CAPITAL = &H14
Private Const VK_KANA = &H15
Private Const VK_HANGEUL = &H15 'old name - should be here for compatibility
Private Const VK_HANGUL = &H15
Private Const VK_JUNJA = &H17
Private Const VK_FINAL = &H18
Private Const VK_HANJA = &H19
Private Const VK_KANJI = &H19
Private Const VK_ESCAPE = &H1B
Private Const VK_CONVERT = &H1C
Private Const VK_NONCONVERT = &H1D
Private Const VK_ACCEPT = &H1E
Private Const VK_MODECHANGE = &H1F
Private Const VK_SPACE = &H20
Private Const VK_PRIOR = &H21
Private Const VK_NEXT = &H22
Private Const VK_END = &H23
Private Const VK_HOME = &H24
Private Const VK_LEFT = &H25
Private Const VK_UP = &H26
Private Const VK_RIGHT = &H27
Private Const VK_DOWN = &H28
Private Const VK_SELECT = &H29
Private Const VK_PRINT = &H2A
Private Const VK_EXECUTE = &H2B
Private Const VK_SNAPSHOT = &H2C
Private Const VK_INSERT = &H2D
Private Const VK_DELETE = &H2E
Private Const VK_HELP = &H2F
'VK_0 thru VK_9 are the same as ASCII '0' thru '9' (=&H30 - =&H39)
'VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' (=&H41 - =&H5A)
Private Const VK_LWIN = &H5B
Private Const VK_RWIN = &H5C
Private Const VK_APPS = &H5D
Private Const VK_NUMPAD0 = &H60
Private Const VK_NUMPAD1 = &H61
Private Const VK_NUMPAD2 = &H62
Private Const VK_NUMPAD3 = &H63
Private Const VK_NUMPAD4 = &H64
Private Const VK_NUMPAD5 = &H65
Private Const VK_NUMPAD6 = &H66
Private Const VK_NUMPAD7 = &H67
Private Const VK_NUMPAD8 = &H68
Private Const VK_NUMPAD9 = &H69
Private Const VK_MULTIPLY = &H6A
Private Const VK_ADD = &H6B
Private Const VK_SEPARATOR = &H6C
Private Const VK_SUBTRACT = &H6D
Private Const VK_DECIMAL = &H6E
Private Const VK_DIVIDE = &H6F
Private Const VK_F1 = &H70
Private Const VK_F2 = &H71
Private Const VK_F3 = &H72
Private Const VK_F4 = &H73
Private Const VK_F5 = &H74
Private Const VK_F6 = &H75
Private Const VK_F7 = &H76
Private Const VK_F8 = &H77
Private Const VK_F9 = &H78
Private Const VK_F10 = &H79
Private Const VK_F11 = &H7A
Private Const VK_F12 = &H7B
Private Const VK_F13 = &H7C
Private Const VK_F14 = &H7D
Private Const VK_F15 = &H7E
Private Const VK_F16 = &H7F
Private Const VK_F17 = &H80
Private Const VK_F18 = &H81
Private Const VK_F19 = &H82
Private Const VK_F20 = &H83
Private Const VK_F21 = &H84
Private Const VK_F22 = &H85
Private Const VK_F23 = &H86
Private Const VK_F24 = &H87
Private Const VK_NUMLOCK = &H90
Private Const VK_SCROLL = &H91
'
'VK_L* & VK_R* - left and right Alt, Ctrl and Shift virtual keys.
'Used only as parameters to GetAsyncKeyState() and GetKeyState().
'No other API or message will distinguish left and right keys in this way.
'
Private Const VK_LSHIFT = &HA0
Private Const VK_RSHIFT = &HA1
Private Const VK_LCONTROL = &HA2
Private Const VK_RCONTROL = &HA3
Private Const VK_LMENU = &HA4
Private Const VK_RMENU = &HA5
'dwFlags
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
Call keybd_event(VK_MENU, 0, KEYEVENTF_EXTENDEDKEY, 0) '按下Alt鍵
Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0) '按下Print Screen鍵
Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0) '抬起Print Screen鍵
Call keybd_event(VK_MENU, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0) '抬起Alt鍵
Call keybd_event(VK_LWIN, 0, KEYEVENTF_EXTENDEDKEY, 0) '按下Win鍵
Call keybd_event(VK_LWIN, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0) '抬起Win鍵
Call keybd_event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY, 0) '按下Num Lock鍵
Call keybd_event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0) '抬起Num Lock鍵
End Sub