‘==========================================================================

‘ 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)实现后台发送按键脚本...相关推荐

  1. vbs获取程序窗体句柄_PyQt5 GUI程序的基本框架

    本节先通过一个简单的示例程序介绍PyQt5 GUI应用程序的基本框架. 启动Python自带的编程和交互式环境IDLE,点击"File"→"New File"菜 ...

  2. vbs获取程序窗体句柄_[VBA][高阶应用][类模块]自绘窗体进度条类cProgressBar.cls

    纯API自绘窗体的进度条类,废话少说,直接上代码 这个进度条类的调用方式: Private Declare Function FindWindow Lib "user32.dll" ...

  3. VBS调用Windows API函数

    Demon's Blog 忘记了,喜欢一个人的感觉 Demon's Blog  »  程序设计  »  VBS调用Windows API函数 « 用VBS修改Windows用户密码 在VB中创建和使用 ...

  4. 在C#中调用windows API函数

    Api函数是构筑Windws应用程序的基石,每一种Windows应用程序开发工具,它提供的底层函数都间接或直接地调用了Windows API函数,同时为了实现功能扩展,一般也都提供了调用Windows ...

  5. Python调用Windows API函数编写录音机和音乐播放器

    功能描述: 1)使用tkinter设计程序界面: 2)调用Windows API函数实现录音机和音乐播放器. 参考代码: . 运行界面:

  6. 调用Windows api 窗口截图

    分别调用windows api函数及CVI自带函数,完成对GRAPH界面的截图 界面设计如下图,右侧为graph控件的位置信息,调用API函数是完成对于选择窗口的固定位置进行截图,调用CVI自带函数则 ...

  7. delphi调用windows api

    在Delphi中调用Windows API 函数十分方便,只需在单元的uses段加入Windows 单元名即可(对于由Delphi自动创建的单元,该项工作已经完成).单元Windows.pas 已经由 ...

  8. c#调用windows api C#简单游戏外挂制作(以Warcraft Ⅲ为例)

    C#简单游戏外挂制作(以Warcraft Ⅲ为例) 网上有很多外挂制作的教程,大多是讲针对大型网络游戏的,主要包含一些抓包.反汇编.C++的知识综合.事实也如此,常见的外挂都是使用VC++写的,从来没 ...

  9. 使用Signature Tool自动生成P/Invoke调用Windows API的C#函数声明

    使用Signature Tool自动生成P/Invoke调用Windows API的C#函数声明 分类: 小技巧 Win32编程 C++ 解决难题 .NET2009-02-05 20:53 5186人 ...

最新文章

  1. javascript数据结构与算法-队列
  2. 如何在 Python 中开始机器学习?(小白必看)
  3. Spark源码阅读02-Spark核心原理之容错及HA(高可用)
  4. 【Python】青少年蓝桥杯_每日一题_5.09_画三角形和六边形
  5. NullInjectorError:No provider for MyNewService
  6. 7-63 情人节 (15 分)(c++stl)
  7. UI设计中的黄金分割率,实用案例适合临摹学习
  8. poj1637 Sightseeing tour 混合图欧拉回路判定
  9. 倒立摆 adams matlab,基于ADAMS与MATLAB联合仿真地倒立摆设计毕业论文.docx
  10. CTPN - 自然场景文本检测
  11. 领域迁移机器翻译方案总结
  12. java insert方法_Java StringBuilder insert()方法
  13. JAVA-实现接入企业微信发送消息(最详细代码讲解!)
  14. WMS仓储系统能给企业带来哪些帮助?
  15. 什么叫反光识别读数识别_一网通办全攻略来啦!政务服务事项网上办 让您一次都不用跑!...
  16. LOL:各服务器王者段位人数改动,越南菲律宾与韩国并列共300人
  17. idea的安装及基础设置
  18. 权重衰减weight_decay参数从入门到精通
  19. UAT:它也是一种“群体测试”吗?
  20. 轩辕Linux开放实验室

热门文章

  1. python数据分析系列教程——NumPy全解
  2. Quartus17下使用Modelsim10进行仿真
  3. 电磁场中场点和源点及▽(R)▽(1/R)▽.▽(1/R)
  4. python实现抢劵_双十一福利丨机械键盘、蓝牙音箱送送送!Python/UI/Unity多场微课解剖双十一套路!...
  5. CF789D Mike and distribution
  6. Menubutton按钮弹出菜单
  7. hihoCoder 1080 : 更为复杂的买卖房屋姿势 线段树区间更新
  8. GTD时间管理(3)---梳理总结
  9. 不支持对系统目录进行即席更新
  10. [转载] [Python基础语法]关键字、标识符和变量