易语言教程_易语言源码_易语言写挂_易语言论坛_看流星社区

 找回密码
 注册
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
零基础辅助入门教学 原创 高清 专业课程售后(每日解答)
赞助广告位 请点击这里联系站长 QQ20209081
赞助广告位 请点击这里联系站长 QQ20209081
赞助广告位 请点击这里联系站长 QQ20209081
查看: 1094|回复: 1

VB中findwindowex函数的用法。

[复制链接]
发表于 2014-7-30 09:07:45 | 显示全部楼层 |阅读模式
Private Sub Command1_Click()
    hWnd2 = FindWindow(vbNullString, "计算器")
    MsgBox hWnd2, , "  。"
    hwnd = FindWindowEx(vbNullString, hWnd2, "edit", vbNullString)
    MsgBox hwnd, , "   "

End Sub
我这样来。hwnd这句话就有问题。说什么函数或接口标记为限制或VB使用了不支持的自动类型 类型错应该不会,我定义过也是这样错的。 麻烦再附上之后给计算器的"edit"类用sendmessage函数发送一个字符串str1的代码
发表于 2014-7-30 09:08:29 | 显示全部楼层
寻找窗口列表中第一个符合指定条件的顶级窗口(在vb里使用:FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄;该类是所有运行中vb执行程序的一部分。获得句柄后,可用api函数GetWindowText取得这个窗口的名称;该名也是应用程序的标题)

返回值:Long,找到窗口的句柄。如未找到相符窗口,则返回零。会设置GetLastError

参数:lpClassName ----  String,指向包含了窗口类名的空中止(C语言)字串的指针;或设为vbNullString,表示接收任何类

lpWindowName ---  String,指向包含了窗口文本(或标签)的空中止(C语言)字串的指针;或设为零,表示接收任何窗口标题

很少要求同时按类与窗口名搜索。为向自己不准备参数传递一个零,最简便的办法是传递vbNullString常数
  示例
  Dim hw& , cnt&
  Dim rttitle As String * 256
  hw&  = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4
  cnt = GetWindowText(hw& , rttitle, 255)
  MsgBox Left$(rttitle, cnt), 0, "RTMain title"
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|看流星社区  |网站地图

GMT+8, 2018-8-21 12:37 易语言论坛 易语言导航

Powered by 看流星社区 X3.2

©2011-2016 最好的辅助编程技术论坛

快速回复 返回顶部 返回列表