postmessage_postmessage 发送按钮_jquery postmessage(3)

End Function

Function SendRclick(hwnd,x,y)

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

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

End Function

Function SendKey(hwnd, key)

Dim vkey

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

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

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

End Function

//运行notepad

RunApp "notepad.exe"

Delay 100

Hwnd = Plugin.Window.Find("Notepad", 0)

Hwndex =Plugin.Window.FindEx(Hwnd,0,"edit",0) //获取edit窗口句柄

//输入点数据

For k=0 to 9

For i= 0 to 9

SendKey hwndex, 48+(k+i) mod 10

Delay 10

Next

SendKey hwndex, 13

Next

SendCtrlPlusKey Hwndex,65 //ctrl+a 全选

Delay 500

SendRclick Hwndex, 100, 100 //窗口坐标(100,100)处点击右键

Delay 500

SendKey hwndex, 67 //按c复制

Delay 500

SendLclick Hwndex, 1, 170//窗口坐标(1,170)处点击左键

Delay 100

SendRclick Hwndex, 1, 170 //窗口坐标(1,170)处点击左键

Delay 500

SendKey hwndex, 80//按p粘贴

Delay 100

[/code]

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