vbs获取程序窗体句柄_VBS调用windows api函数(postmessage)实现后台发送按键脚本...
‘==========================================================================
‘
‘ 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
‘MsgBox "将鼠标移到左上角"
‘UserWrap.SetCursorPos 0,0
‘=================定义系统常量===========================
Private Const WM_KEYDOWN = &H100
Private Const wm_keyup= &H101
Private Const WM_CHAR = &H102
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105
‘=================发送F1按键=====================
UserWrap.PostMessage hWnd, WM_KEYDOWN, 112, 0
‘=================发送1002========================
UserWrap.PostMessage hWnd,WM_KEYDOWN ,97,0
UserWrap.PostMessage hWnd,WM_KEYDOWN ,96,0
UserWrap.PostMessage hWnd,WM_KEYDOWN ,96,0
UserWrap.PostMessage hWnd,WM_KEYDOWN ,98,0
vbs获取程序窗体句柄_VBS调用windows api函数(postmessage)实现后台发送按键脚本...相关推荐
- vbs获取程序窗体句柄_PyQt5 GUI程序的基本框架
本节先通过一个简单的示例程序介绍PyQt5 GUI应用程序的基本框架. 启动Python自带的编程和交互式环境IDLE,点击"File"→"New File"菜 ...
- vbs获取程序窗体句柄_[VBA][高阶应用][类模块]自绘窗体进度条类cProgressBar.cls
纯API自绘窗体的进度条类,废话少说,直接上代码 这个进度条类的调用方式: Private Declare Function FindWindow Lib "user32.dll" ...
- VBS调用Windows API函数
Demon's Blog 忘记了,喜欢一个人的感觉 Demon's Blog » 程序设计 » VBS调用Windows API函数 « 用VBS修改Windows用户密码 在VB中创建和使用 ...
- 在C#中调用windows API函数
Api函数是构筑Windws应用程序的基石,每一种Windows应用程序开发工具,它提供的底层函数都间接或直接地调用了Windows API函数,同时为了实现功能扩展,一般也都提供了调用Windows ...
- Python调用Windows API函数编写录音机和音乐播放器
功能描述: 1)使用tkinter设计程序界面: 2)调用Windows API函数实现录音机和音乐播放器. 参考代码: . 运行界面:
- 调用Windows api 窗口截图
分别调用windows api函数及CVI自带函数,完成对GRAPH界面的截图 界面设计如下图,右侧为graph控件的位置信息,调用API函数是完成对于选择窗口的固定位置进行截图,调用CVI自带函数则 ...
- delphi调用windows api
在Delphi中调用Windows API 函数十分方便,只需在单元的uses段加入Windows 单元名即可(对于由Delphi自动创建的单元,该项工作已经完成).单元Windows.pas 已经由 ...
- c#调用windows api C#简单游戏外挂制作(以Warcraft Ⅲ为例)
C#简单游戏外挂制作(以Warcraft Ⅲ为例) 网上有很多外挂制作的教程,大多是讲针对大型网络游戏的,主要包含一些抓包.反汇编.C++的知识综合.事实也如此,常见的外挂都是使用VC++写的,从来没 ...
- 使用Signature Tool自动生成P/Invoke调用Windows API的C#函数声明
使用Signature Tool自动生成P/Invoke调用Windows API的C#函数声明 分类: 小技巧 Win32编程 C++ 解决难题 .NET2009-02-05 20:53 5186人 ...
最新文章
- 台积电2nm工艺重大突破!
- CSMA/CD在全双工和半双工模式下的区别
- 关于c语言中负数位移位操作的漫谈
- 杀毒软件:看企业版与单机版之间区别
- New %: % Syntax for HTML Encoding Output in ASP.NET 4 (and ASP.NET MVC 2)
- PHP连接MySQL数据库的几种方法
- HA集群之三:corosync+pacemaker实现httpd服务的高可用
- STA 137 Topics covered this week
- php中取整的函数,利用PHP怎么对函数进行取整
- 数字金融欺诈行为名词表
- 第一个程序python-HelloWorld
- ElementUI 按需引入坑爹的点记录
- ARM 指令集 比较指令
- kvm virtio功能配置
- 表白,整人,无门槛,娱乐代码
- 以后 博文 要做 中文对照,利于国际化,利于自己熟悉英语。
- Android_adb shell dumpsys介绍
- 高一计算机课的总结,高中《信息技术》期末教学总结范文
- 马有千里之行,无人不能自往。人有冲天之志,无运不能自通
- 楼梯计算机公式,楼梯计算公式
热门文章
- 新兴的人工智能服务器,5个新兴人工智能物联网应用
- 2019 杭电多校第六场 题解
- P1279 字串距离 (动态规划)
- OpenGL第六节:加载png图片
- Selenium2+python自动化49-判断文本(text_to_be_present_in_element)
- 同一界面放两个TTIWDBAdvWebGrid的问题(delphi IW TMS)
- HTML+CSS 整站 步骤
- 用户控件页为什么找不到.ClientScript.RegisterClientScriptBlock原因
- QTP鼠标点击和浏览器事件的动态切换
- [读书笔记]一些编码中需要注意的东西