Question

vb 查找外部软件的文本框句柄

将剪贴板板中的内容粘贴到 后台登陆 界面中的文本框中
不知道怎么搞的，su的值总是0，求高手帮忙，我是初学者，多谢指教

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_PASTE = &H302

Private Sub Command1_Click()

Dim winhand As Long
Dim su As Long
winhand = FindWindow(vbNullString, "后台登陆")
su = FindWindowEx(winhand, 0, "EDIT", vbNullString)
Call SendMessage(su, WM_PASTE, 0, 0&)
End Sub

Answer 1

首先 找到 找到外部程序的主窗口的句柄 然后再查找其子窗口
父窗口用findwindow就可以 子窗口要指定要查找窗口的class

windows 中每一个窗口都有一个类的
比如记事本的文本框 类名叫edit VB的textbox 类名叫ThunderRT6TextBox
等等