VB 如何获取一外部程序窗口内已知控件句柄的内容

2024-11-30 02:30:31

推荐回答（1个）

回答1：

我有个实例：打开记事本+获得记事本的句柄+向记事本中写入字符串+更改记事本的标题+获得所有运行的程序的标题。代码如下：
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5325
ClientLeft = 60
ClientTop = 450
ClientWidth = 7560
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 5325
ScaleWidth = 7560
StartUpPosition = 2 '屏幕中心
Begin VB.ListBox List1
Height = 4380
Left = 360
TabIndex = 4
Top = 480
Width = 4095
End
Begin VB.CommandButton Command4
Caption = "获得所有程序标题"
Height = 495
Left = 4800
TabIndex = 3
Top = 2400
Width = 2535
End
Begin VB.CommandButton Command3
Caption = "打开写入记事本+改标题"
Height = 495
Left = 4800
TabIndex = 2
Top = 1800
Width = 2535
End
Begin VB.CommandButton Command2
Caption = "运行记事本"
Height = 495
Left = 4800
TabIndex = 1
Top = 1200
Width = 2535
End
Begin VB.CommandButton Command1
Caption = "打开写入记事本"
Height = 495
Left = 4800
TabIndex = 0
Top = 600
Width = 2535
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'1
Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
'==========================================================
'3
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
Private Const WM_PASTE = &H302
'===========================================================
'4
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Const GW_CHILD = 5
Private Const GW_HWNDNEXT = 2
'
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Sub Command1_Click()
'1 打开写入记事本
Dim AppID As Integer
AppID = Shell("C:\WINDOWS\notepad.exe", 1)

AppActivate AppID
SendKeys "-2.356e+012年后光荣感如果好了" '"SendKeys--字符有误，速度慢"

End Sub
Private Sub Command2_Click()
WinExec "notepad.exe", 5

End Sub
Private Sub Command3_Click()
'3 打开写入记事本+改标题
Dim TemphWnd As Long
AppID = Shell("C:\WINDOWS\notepad.exe", 1)
TemphWnd = FindWindow("Notepad", vbNullString)
'--------------------------------------------
SetWindowText TemphWnd, "Welcome to VB" '
'--------------------------------------------
TemphWnd = FindWindowEx(TemphWnd, 0, "Edit", vbNullString)
If TemphWnd Then
'Debug.Print TemphWnd
VB.Clipboard.SetText "-2.356e+012年后光荣感如果好了" '"SendMessage--字符正确，速度快"
SendMessage TemphWnd, WM_PASTE, 0, ByVal 0&

End If
End Sub

Private Sub Command4_Click()
'4 获得所有程序标题
Dim ret As Long
Dim hwnd As Long
Dim str As String * 256
ret = GetDesktopWindow()
hwnd = GetWindow(ret, GW_CHILD)
Do While hwnd <> 0
GetWindowText hwnd, str, Len(str)
hwnd = GetWindow(hwnd, GW_HWNDNEXT)
If Left$(str, 1) <> vbNullChar Then
Form1.List1.AddItem str
End If
Loop
End Sub

最新问答

碧桂园怎么样？如何评价？

如何学好经济法

我是做建材的，大家说说我是在58上推广呢还是58同城上，我比较认可58同城？？？？？、、、、

最近总是感觉很困眼睛睁不开？

怎么样做老公才不会和他朋友去酒吧玩呢他朋友也是老说话伤害我怎么办

婚礼现场新娘新郎对父母说什么最让人感动

我和女朋友异地，谈了几个月她现在几乎每天都在工作，她的工作很忙压力很大

南方地区和北方地区的交通工具是什么？

空气能热水器带动地暖

澳洲蜂胶怎么样