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

‘ 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. 台积电2nm工艺重大突破!
  2. CSMA/CD在全双工和半双工模式下的区别
  3. 关于c语言中负数位移位操作的漫谈
  4. 杀毒软件:看企业版与单机版之间区别
  5. New %: % Syntax for HTML Encoding Output in ASP.NET 4 (and ASP.NET MVC 2)
  6. PHP连接MySQL数据库的几种方法
  7. HA集群之三:corosync+pacemaker实现httpd服务的高可用
  8. STA 137 Topics covered this week
  9. php中取整的函数,利用PHP怎么对函数进行取整
  10. 数字金融欺诈行为名词表
  11. 第一个程序python-HelloWorld
  12. ElementUI 按需引入坑爹的点记录
  13. ARM 指令集 比较指令
  14. kvm virtio功能配置
  15. 表白,整人,无门槛,娱乐代码
  16. 以后 博文 要做 中文对照,利于国际化,利于自己熟悉英语。
  17. Android_adb shell dumpsys介绍
  18. 高一计算机课的总结,高中《信息技术》期末教学总结范文
  19. 马有千里之行,无人不能自往。人有冲天之志,无运不能自通
  20. 楼梯计算机公式,楼梯计算公式

热门文章

  1. 新兴的人工智能服务器,5个新兴人工智能物联网应用
  2. 2019 杭电多校第六场 题解
  3. P1279 字串距离 (动态规划)
  4. OpenGL第六节:加载png图片
  5. Selenium2+python自动化49-判断文本(text_to_be_present_in_element)
  6. 同一界面放两个TTIWDBAdvWebGrid的问题(delphi IW TMS)
  7. HTML+CSS 整站 步骤
  8. 用户控件页为什么找不到.ClientScript.RegisterClientScriptBlock原因
  9. QTP鼠标点击和浏览器事件的动态切换
  10. [读书笔记]一些编码中需要注意的东西