怎样得到另一个应用程序窗口中的控件句柄?(都来看看!分数不够再加)

Question

用这个API函数：
Public Declare Function GetDlgItem Lib "user32" Alias "GetDlgItem" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As Long

Answer 1

不行，GetDlgItem不能跨进程调用的。

Answer 2

hDlg      ---控件所属窗口的HWND
nIDDlgItem---控件的ID
返回值    ---控件的HWND
所以，不行！

Answer 3

Private Declare Function FindWindow% Lib "user32" Alias "FindWindowA" (ByVal lpclassname As Any, ByVal lpCaption As Any)
Dim hwnd%Private Sub Command1_Click()
hwnd% = FindWindow%("wndclass_desked_gsk", 0&)
If hwnd% = 0 Then 
MsgBox "VB没打开"
Else
MsgBox "VB已经打开"
End If
End Sub这里wndclass_desked_gsk是VB的类名,你可以改其他的,如EXCEL是OPUSAppVB6.0+Windows98下通过给分!