VB 获取第三方程序的状态栏文本

来源：百度知道 编辑：UC知道 时间：2024/06/18 13:32:05
最好给出例程
我已经获取到控件句柄
使用sendmessage SB_GETTEXT消息 获取不到
简单来说 在VB中建立一个窗体 加上状态栏控件
用sendmessage获取自己的的状态栏文本我都无法实现
请高手指点
另外如果有高手实现,那么类似于lable的文本怎么获取?最好给出VB例程
感谢两位 ljl88900给的代码 我测试了一下,获取不到文本啊,你试了吗?
就建立个窗体，加上statusbar1.hwnd用,得不到啊
MsgBox "状态栏文本是：" & GetStatusBarText(Me.StatusBar1.hwnd, 1) 空的

获取第三方程序的状态栏文本步骤如下：

一、建立一个模块，复制下面代码
Option Explicit
Private PlatformKnown As Boolean
Private NTflag As Boolean

Private fpHandle As Long
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Private WIN As OSVERSIONINFO

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (LpVersionInformation As OSVERSIONINFO) As Long
'
'================== Win95/98 Process Memory functions
Private Declare Function CreateFileMapping Lib "kernel32" Alias "CreateFileMappingA" (ByVal hFile As Long, ByVal lpFileMappigAttributes As Long, ByVal flProtect As Long, ByVal dwMaximumSizeHigh As Long, ByVal dwMaximumSizeLow As Long, ByVal lpName As String) As Long
Private Declare Function MapViewOfFile Lib &