Sendkey ad applicazione
'sendkey to application
$typecheck on
const KEYEVENTF_KEYUP = &H2 ' Release key
Declare function keybd_event Lib "user32" alias "keybd_event" (bVk As Byte, bScan _
As Byte, dwFlags As Long, dwExtraInfo As Long) as long
Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long
Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" _
(hwnd As Long) As Long
const VK_LBUTTON=&h01 'Left mouse button.
const VK_RBUTTON=&h02 'Right mouse button.
const VK_CANCEL=&h03 'Used for control-break processing.
const VK_MBUTTON=&h04h 'Middle mouse button (3-button mouse).
const VK_BACK=&h08
const VK_TAB=&h09
const VK_CLEAR=&h0C
const VK_RETURN=&h0D
const VK_SHIFT=&h10
const VK_CONTROL=&h11
const VK_MENU=&h12
const VK_PAUSE=&h13
const VK_CAPITAL=&h14
const VK_ESCAPE=&h1B
const VK_SPACE=&h20
const VK_PRIOR=&h21 'Page up.
const VK_NEXT=&h22 'Page down.
const VK_END=&h23
const VK_HOME=&h24
const VK_LEFT=&h25
const VK_UP=&h26
const VK_RIGHT=&h27
const VK_DOWN=&h28
const VK_SELECT=&h29
const VK_INSERT=&h2D
const VK_DELETE=&h2E
const VK_HELP=&h2F
const VK_0=&h30
const VK_1=&h31
const VK_2=&h32
const VK_3=&h33
const VK_4=&h34
const VK_5=&h35
const VK_6=&h36
const VK_7=&h37
const VK_8=&h38
const VK_9=&h39
const VK_A=&h41
const VK_B=&h42
const VK_C=&h43
const VK_D=&h44
const VK_E=&h45
const VK_F=&h46
const VK_G=&h47
const VK_H=&h48
const VK_I=&h49
const VK_J=&h4A
const VK_K=&h4B
const VK_L=&h4C
const VK_M=&h4D
const VK_N=&h4E
const VK_O=&h4F
const VK_P=&h50
const VK_Q=&h51
const VK_R=&h52
const VK_S=&h53
const VK_T=&h54
const VK_U=&h55
const VK_V=&h56
const VK_W=&h57
const VK_X=&h58
const VK_Y=&h59
const VK_Z=&h5A
const VK_NUMPAD0=&h60
const VK_NUMPAD1=&h61
const VK_NUMPAD2=&h62
const VK_NUMPAD3=&h63
const VK_NUMPAD4=&h64
const VK_NUMPAD5=&h65
const VK_NUMPAD6=&h66
const VK_NUMPAD7=&h67
const VK_NUMPAD8=&h68
const VK_NUMPAD9=&h69
const VK_MULTIPLY=&h6A
const VK_ADD=&h6B
const VK_SEPARATER=&h6C
const VK_SUBTRACT=&h6D
const VK_DECIMAL=&h6E
const VK_DIVIDE=&h6F
const VK_F1=&h70
const VK_F2=&h71
const VK_F3=&h72
const VK_F4=&h73
const VK_F5=&h74
const VK_F6=&h75
const VK_F7=&h76
const VK_F8=&h77
const VK_F9=&h78
const VK_F10=&h79
const VK_F11=&h7A
const VK_F12=&h7B
const VK_F13=&h7C
const VK_F14=&h7D
const VK_F15=&h7E
const VK_F16=&h7F
const VK_F17=&h80
const VK_F18=&h81
const VK_F19=&h82
const VK_F20=&h83
const VK_F21=&h84
const VK_F22=&h85
const VK_F23=&h86
const VK_F24=&h87
declare sub go
Create form as qform
center
create Button1 as QButton
Caption="Send 'world' to notepad"
Left=18
Top=18
Width=261
onclick=go
end create
end create
dim hwnd as long
run("notepad.exe")
sleep .3
hwnd=Getforegroundwindow() 'get handle
form.showmodal
sub go
SetForegroundWindow(hwnd)'focus to notepad
keybd_event (vk_shift, 0, 0, 0) 'shiftkey down
keybd_event (vk_w, 0, 0, 0) 'w key down
keybd_event (vk_w, 0, 0 ,KEYEVENTF_KEYUP)'key up
sleep .3
keybd_event (vk_shift, 0, 0, KEYEVENTF_KEYUP) 'shiftkey up
keybd_event (vk_o, 0, 0, 0) 'o
keybd_event (vk_o, 0, 0 ,KEYEVENTF_KEYUP)
sleep .3
keybd_event (vk_r, 0, 0, 0) 'r
keybd_event (vk_r, 0, 0 ,KEYEVENTF_KEYUP)
sleep .3
keybd_event (vk_l, 0, 0, 0) 'l
keybd_event (vk_l, 0, 0 ,KEYEVENTF_KEYUP)
sleep .3
keybd_event (vk_d, 0, 0, 0) 'd
keybd_event (vk_d, 0, 0 ,KEYEVENTF_KEYUP)
sleep .3
end sub
|