7492
社区成员
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
cbm6666 2008-04-05
'************************** 代码 1
'添加 Text1
Private Sub Form_Load()
Text1.Text = "CBM666 到此一游"
Me.Caption = "隔岸观火"
End Sub
'**************************** 代码 2 用来抓上面代码1里面的Text1的内容
'添加 Command1
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_GETTEXT = &HD
Const WM_GETTEXTLENGTH = &HE
Dim Phwnd&, ChildHwnd&, Tmpstr$, Textlen&
Private Sub Command1_Click()
Phwnd = FindWindow(vbNullString, "隔岸观火")
If Phwnd <> 0 Then
ChildHwnd = FindWindowEx(Phwnd, 0, "ThunderTextBox", vbNullString)
If ChildHwnd > 0 Then
MsgBox GetText(ChildHwnd)
End If
End If
End Sub
Function GetText(Thwnd As Long) As String
Textlen = SendMessage(Thwnd, WM_GETTEXTLENGTH, 0, 0)
If Textlen = 0 Then GetText = "": Exit Function
Textlen = Textlen + 1
Tmpstr = Space(Textlen)
Textlen = SendMessage(Thwnd, WM_GETTEXT, Textlen, ByVal Tmpstr)
GetText = Left(Tmpstr, Textlen)
End Function
'添加 Text1
Private Sub Form_Load()
Text1.Text = "CBM666 到此一游"
Me.Caption = "隔岸观火"
End Sub
'**************************** 代码 2 用来抓上面代码1里面的Text1的内容
'添加 Command1
Option Explicit
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private 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
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_GETTEXT = &HD
Const WM_GETTEXTLENGTH = &HE
Dim Phwnd&, ChildHwnd&, Tmpstr$, Textlen&
Private Sub Command1_Click()
Phwnd = FindWindow(vbNullString, "隔岸观火")
If Phwnd <> 0 Then
ChildHwnd = FindWindowEx(Phwnd, 0, "ThunderTextBox", vbNullString)
If ChildHwnd > 0 Then
MsgBox GetText(ChildHwnd)
End If
End If
End Sub
Function GetText(Thwnd As Long) As String
Textlen = SendMessage(Thwnd, WM_GETTEXTLENGTH, 0, 0)
If Textlen = 0 Then GetText = "": Exit Function
Textlen = Textlen + 1
Tmpstr = Space(Textlen)
Textlen = SendMessage(Thwnd, WM_GETTEXT, Textlen, ByVal Tmpstr)
GetText = Left(Tmpstr, Textlen)
End Function
cbm6666 2008-04-05
Attn: 5F
写字版的类名是 RichEdit20W 只有一个
记事本的类名是 Edit 也是只有一个
QQ的聊天窗口的类名是 RichEdit20A 有两个,它的顺序是固定的,而且上面那个窗口是只读不容许赋值.
VB的TextBox 的类名是ThunderTextBox, 当然会有多个,但是这个可以很容易的区分为Text1 Text2 或Text3
写字版的类名是 RichEdit20W 只有一个
记事本的类名是 Edit 也是只有一个
QQ的聊天窗口的类名是 RichEdit20A 有两个,它的顺序是固定的,而且上面那个窗口是只读不容许赋值.
VB的TextBox 的类名是ThunderTextBox, 当然会有多个,但是这个可以很容易的区分为Text1 Text2 或Text3
东方之珠 2008-04-05
3楼的代码对写字板无效，写字板好像有2个文本框。
jp0088888 2008-04-05
很 好 .己 经 搞 定 了 .谢 了
嗷嗷叫的老马 2008-04-05
晕哦.
jp0088888 2008-04-04
有 具 体 的 程 序 吗 ?好 久 没 有 编 程 了 .知 道 原 理 但 就 是 编 不 出 来 .谢 了 .急 用 .
supergreenbean 2008-04-04
FindWindow
GetWindowText
GetWindowText
前端面试题 一、HTML和CSS 21 你做的页面在哪些流览器测试过？这些浏览器的内核分别是什么? 21 每个HTML文件里开头都有个很重要的东西，Doctype，知道这是干什么的吗？ 21 Quirks模式是什么？它和Standards模式有什么区别 21 ...
分布式服务框架 一个大型、稳健、成熟的分布式系统的背后，往往会涉及众多的支撑系统，我们将这些支 撑系统称为分布式系统的基础设施。除了前面所介绍的分布式协作及配置管理系统ZooKeeper， 我们进行系统架构设计所依赖的基础设施...
TokenInsight 对话首席——Facebook Libra背后共识算法第一作者首次中文平台深度访谈... 邀行业首席，谈市场现状，见趋势未来！第14期《对话首席》线上直播，于7月19日（周五）上午11点举办。本次《对话首席》特邀Facebook Libra背后共识算法第一作者...
写一个高性能的服务器,C++编写高性能服务器实例教程.pdf C++编编写写高高性性能能服服务务器器实实例例教教程程我将展示如何使用现代C++编写一个Echo服务器，相当于分布式 统开发中的“Hello World”。这个服务器会将接收的消息直接返回。我们同时需要一个可以向我们的...
OTL中文文档 说明 该文档说明的是4.0版本的ORACLE/ODBC和DB2-CLI...框架是一个简单的OTL_stream的概念，OTL适配器则是一个基于数据库API的经量级的类库，并且作为参数传给OTL的框架参数。 OTL4.0仅通过otl_stream、otl_connect...
转载 elm中文手册 elm-lang 的中文手冊翻譯自 http://elm-lang.org/https://github.com/elm-lang/elm-compiler前言介紹函數式編程 (Functional Programming)像是： Haskell, Scala, Closure 等等被開發出來在各式各樣的專案中使用。...
NASM中文手册 第一章: 简介 1.1 什么是NASM NASM是一个为可移植性与模块化而设计的一个80x86的汇编器。它支持相当多 的目标文件格式，包括Linux和NetBSD/FreeBSD,a.out,ELF,COFF,微软16 位的OBJ和Win32。它还可以输出纯二进制文件...
[游戏程序] 经典游戏服务器端架构概述 腾讯游戏学院专家Wade在本文列举了游戏服务器中几种经典的架构，除了常见的进程结构外，还论述了内存和线程/进程结构。 一、架构的分析模型 1.1讨论的背景 现代电子游戏，基本上都会使用一定的网络功能。从验证正版...
一名程序员眼里中国量化投资的未来 先直接上图 然后做一名搬运工，接近原文演讲。...美国的资产管理有两个趋势：一个是共同基金的逐渐指数化，另外一个趋势是对冲基金的逐渐走向量化。国外的对冲基金，相当于中国的证券私募。最初的对冲基...
我的一个关于文件的程序 - [C语言] 2005-09-05我的一个关于文件的程序 - [C语言]#includevoid main(){char ch;FILE* fp;if((fp=fopen("test.txt","r"))==NULL){printf("error");exit(1);}fseek(fp,0L,2);while((fseek(fp,-1L,1))!=-1){ch=fgetc(fp);pu
Java中高级面试题总览(一) 目录 JAVA 基础 JVM 知识 开源框架知识 ...1.JAVA 中的几种基本数据类型是什么，各自占用多少字节。 数据类型 关键字 内置类 内存占用字节数 布尔...
我肝了一个月，给你写出了这本Java开发手册。 点击上方"IT牧场"，选择"设为星标"技术干货每日送达！先来看一下本篇文章的思维导图吧，我会围绕下面这些内容进行讲解。内容很干，小伙伴们看完还希望不吝转发...
RFC 2869 Radius Extensions 中文版本 如果一种实现没有满足本协议中的一个或者多个MUST或者MUST NOT要求，那么 该实现和本协议是不兼容的；如果一个实现满足了本协议中所有的MUST、 MUST NOT、SHOULD和SHOULD NOT要求，那么该实现和本协议是无条件...
2016-2017-2 《程序设计与数据结构》课程总结 课程作为教学改革的一个试点，把传统的《程序设计》和《数据结构》合并成一门课程，96课内学时，30个实践学时。 本课程的教学目标是让学生理解程序设计的基础知识、基本方法和基本技能，能用计算机分析和解决问题；...
一个计算机专业学生几年的编程经验汇总（好文要转） 一个计算机专业学生几年的编程经验汇总 绝对好文,该系列一共11篇,斑竹可以考虑置顶,各位坛友看完之后，java基础绝对有不小的提升！ =======================================================================...
Liferay 6.0.5开发中文指南 也就是说，它将不同的应用程序用户界面组合到一个统一的表示中去。Portal 页使用户能够通过登录对话框向 Portal 验证自己的身份以便访问个性化的 Portal 视图。大部分 Portal 页包括一些导航机制以允许用户导航到...
[面面面]一篇搞定计算机面试常见知识点（10w字更新中） 写这篇文章的目的是为了在摸鱼或者备考时打开看一看，感受一下计算机知识海洋的浩瀚。本文部分内容是我自己的理解也有部分是网络上我认为总结的比较好进而抄录整理得来。
MyBatis 3中文用户手册 MyBatis 3 ...如果你发现了本文档的遗漏之处，或者丢失MyBatis特性的说明时，那么最好的方法就是了解一下这个遗漏之处然后把它记录下来。 我们在wiki接收公共的文档贡献： http://code.google.com/p/mybatis
