java 调用dll 方法 postmessage实现后台模拟按键_VBS调用windows api函数（postmessage）实现后台发送按键脚本...

最新推荐文章于 2024-07-26 03:03:51 发布

行疆儒生

最新推荐文章于 2024-07-26 03:03:51 发布

阅读量309

点赞数

文章标签： java 调用dll 方法 postmessage实现后台模拟按键

本文链接：https://blog.csdn.net/weixin_35931648/article/details/114878624

版权

这篇博客介绍了如何使用VBScript和Windows API函数PostMessage来实现后台模拟按键操作。通过创建对象并注册DLL，博主展示了如何找到特定窗口句柄，并发送WM_KEYDOWN消息来模拟按下F1和1002键的序列。

摘要由CSDN通过智能技术生成

'==========================================================================

' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0

' NAME:

' AUTHOR: Microsoft , Microsoft

' DATE : 2014/8/10

' COMMENT:

'===================定义变量，注册API对象==================================

Dim UserWrap,hWnd

Set UserWrap = CreateObject("DynamicWrapper")

Set ws=WScript.CreateObject("wscript.shell")

WScript.Sleep 500

ws.Run "calc",0

WScript.Sleep 500

'Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

UserWrap.Register "USER32.DLL", "ShowWindow", "I=hl", "f=s", "R=l"

'Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

UserWrap.Register "USER32.DLL", "FindWindow", "I=ss", "f=s", "R=l"

'Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

UserWrap.Register "USER32.DLL", "SetWindowPos", "I=Hllllll", "f=s", "R=l"

'Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)

UserWrap.Register "USER32.DLL", "PostMessage", "I=hlls", "f=s", "R=l"

'Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

UserWrap.Register "USER32.DLL", "SetWindowText", "I=Hs", "f=s", "R=l"

'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

UserWrap.Register "USER32.DLL", "FindWindowEx", "I=llss", "f=s", "R=l"

'Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

UserWrap.Register "USER32.DLL", "SetCursorPos", "I=ll", "f=s", "R=l"

'===================查找控件或者窗体句柄===============================

hWnd = UserWrap.FindWindow(vbNullString,"计算器")

'hWnd = UserWrap.FindWindow("kugou_ui",vbNullString)

hWnd1 = UserWrap.FindWindowEx(hWnd,0,vbNullString,Edit)

'UserWrap.ShowWindow hWnd,SW_HIDE

'UserWrap.SetWindowText hWnd,"hello world"

' MsgBox hWnd

' MsgBox hWnd1

'UserWrap.SetWindowPos hWnd, -1, 0, 0, 0, 0, 3