postmessage_postmessage 发送按钮_jquery postmessage(2)

Case WM_KEYUP

Firstbyte = "C0" '如果是释放键

Case WM_CHAR

Firstbyte = "C0"

Case WM_SYSKEYDOWN

Firstbyte = "20"

Case WM_SYSKEYUP

Firstbyte = "E0"

Case WM_SYSCHAR

Firstbyte = "E0"

End Select

Dim Scancode

'获得键的扫描码

Scancode = MapVirtualKey(VirtualKey, 0)

Dim Secondbyte 'lparam参数的16-23位，即虚拟键扫描码

Secondbyte = Right("00" & Hex(Scancode), 2)

s = Firstbyte & Secondbyte & "0001" '0001为lparam参数的0-15位，即发送次数和其它扩展信息

MakeKeyLparam = Eval("&H" & s)

End Function

Function SendAltPlusKey(Hwnd,Key)

Dim vkey

vkey = Eval("&H" & Hex(Key))

PostMessage hwnd, WM_SYSKEYDOWN, &H12, MakeKeyLparam(&H12, WM_SYSKEYDOWN)

PostMessage hwnd, WM_SYSKEYDOWN, vkey, MakeKeyLparam(vkey, WM_SYSKEYDOWN)

PostMessage hwnd, WM_SYSKEYUP, vkey, MakeKeyLparam(vkey, WM_SYSKEYUP)

PostMessage hwnd, WM_KEYUP, &H12, MakeKeyLparam(&H12, WM_KEYUP)

End Function

Function SendCtrlPlusKey(Hwnd,Key)

Dim vkey

vkey = Eval("&H" & Hex(Key))

KeyDown 17, 1

//PostMessage hwnd, WM_KEYDOWN, &H11, MakeKeyLparam(&H11, WM_KEYDOWN)

PostMessage hwnd, WM_KEYDOWN, vkey, MakeKeyLparam(vkey, WM_KEYDOWN)

PostMessage hwnd, WM_KEYUP, vkey, MakeKeyLparam(vkey, WM_KEYUP)

KeyUp 17, 1

//PostMessage hwnd, WM_KEYUP, &H11, MakeKeyLparam(&H11, WM_KEYUP)

End Function

Function SendLclick(hwnd,x,y)

PostMessage hwnd, WM_LBUTTONDOWN, 0, Eval("&H" & Hex(y * 65536 + x))

PostMessage hwnd, WM_LBUTTONUP, 0, Eval("&H" & Hex(y * 65536 + x))

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-28477-2.html