VB ·¢ËÍÄ£Äâ°´¼ü

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 ¹Ø±Õ¼ÆËãÆ÷   http://zhidao.baidu.com/question/33428479.html
´°Ìå´úÂ룺
Ç°ÌáÄãµÃµÃµ½ÄãÓÎÏ·µÄ¾ä±ú hwnd = &H307F8   '°Ñ¸ö307f8¸ÄΪÄãÓÎÏ·µÄ¾ä±ú¾Í¿ÉÒÔÁË Spy.exeÕâ¸öÈí¼þ¿ÉÒÔ×¥¾ä±ú
Private Sub Form_Load()
Dim hwnd As Long
hwnd = &H307F8 'XXXXX±íʾ¼Çʱ¾±à¼­¿òµÄ¾ä±ú
PostMessage hwnd, WM_KEYDOWN, VK_A, MakeKeyLparam(VK_A, WM_KEYDOWN) '°´ÏÂA¼ü
PostMessage hwnd, WM_CHAR, Asc("A"), MakeKeyLparam(VK_A, WM_KEYDOWN) 'ÊäÈë×Ö·ûA
PostMessage hwnd, WM_UP, VK_A, MakeKeyLparam(VK_A, WM_UP) 'ÊÍ·ÅA¼ü
End Sub
Ä£¿é´úÂ룺
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_CHAR = &H102
Public Const VK_A = &H41
Function MakeKeyLparam(ByVal VirtualKey As Long, ByVal flag As Long) As Long
Dim s As String
Dim Firstbyte As String 'lparam²ÎÊýµÄ24-31λ
If flag = WM_KEYDOWN Then 'Èç¹ûÊÇ°´Ï¼ü
Firstbyte = "00"
Else
Firstbyte = "C0" 'Èç¹ûÊÇÊͷżü
End If
Dim Scancode As Long
'»ñµÃ¼üµÄɨÃèÂë
Scancode = MapVirtualKey(VirtualKey, 0)
Dim Secondbyte As String 'lparam²ÎÊýµÄ16-23룬¼´ÐéÄâ¼üɨÃèÂë
Secondbyte = Right("00" & Hex(Scancode), 2)
s = Firstbyte & Secondbyte & "0001" '0001Ϊlparam²ÎÊýµÄ0-15룬¼´·¢ËÍ´ÎÊýºÍÆäËüÀ©Õ¹ÐÅÏ¢
MakeKeyLparam = Val("&H" & s)
End Function

°´¼ü ´úÂë
SHIFT +
CTRL ^