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人 ...
最新文章
- javascript数据结构与算法-队列
- 如何在 Python 中开始机器学习?(小白必看)
- Spark源码阅读02-Spark核心原理之容错及HA(高可用)
- 【Python】青少年蓝桥杯_每日一题_5.09_画三角形和六边形
- NullInjectorError:No provider for MyNewService
- 7-63 情人节 (15 分)(c++stl)
- UI设计中的黄金分割率,实用案例适合临摹学习
- poj1637 Sightseeing tour 混合图欧拉回路判定
- 倒立摆 adams matlab,基于ADAMS与MATLAB联合仿真地倒立摆设计毕业论文.docx
- CTPN - 自然场景文本检测
- 领域迁移机器翻译方案总结
- java insert方法_Java StringBuilder insert()方法
- JAVA-实现接入企业微信发送消息(最详细代码讲解!)
- WMS仓储系统能给企业带来哪些帮助?
- 什么叫反光识别读数识别_一网通办全攻略来啦!政务服务事项网上办 让您一次都不用跑!...
- LOL:各服务器王者段位人数改动,越南菲律宾与韩国并列共300人
- idea的安装及基础设置
- 权重衰减weight_decay参数从入门到精通
- UAT:它也是一种“群体测试”吗?
- 轩辕Linux开放实验室
热门文章
- python数据分析系列教程——NumPy全解
- Quartus17下使用Modelsim10进行仿真
- 电磁场中场点和源点及▽(R)▽(1/R)▽.▽(1/R)
- python实现抢劵_双十一福利丨机械键盘、蓝牙音箱送送送!Python/UI/Unity多场微课解剖双十一套路!...
- CF789D Mike and distribution
- Menubutton按钮弹出菜单
- hihoCoder 1080 : 更为复杂的买卖房屋姿势 线段树区间更新
- GTD时间管理(3)---梳理总结
- 不支持对系统目录进行即席更新
- [转载] [Python基础语法]关键字、标识符和变量