我这样来，hwnd这句话就有问题，这是为什么啊？

Question

Private Sub Command1_Click()
hWnd2 = FindWindow(vbNullString, "计算器")
MsgBox hWnd2, , " 。"
hwnd = FindWindowEx(vbNullString, hWnd2, "edit", vbNullString)
MsgBox hwnd, , " "

End Sub
说什么函数或接口标记为限制或VB使用了不支持的自动类型 类型错应该不会，我定义过也是这样错的。 

Answer 1

寻找窗口列表中第一个符合指定条件的顶级窗口（在vb里使用：FindWindow最常见的一个用途是获得ThunderRTMain类的隐藏窗口的句柄；该类是所有运行中vb执行程序的一部分。获得句柄后，可用api函数GetWindowText取得这个窗口的名称；该名也是应用程序的标题）返回值：Long，找到窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError参数：lpClassName ---- String，指向包含了窗口类名的空中止（C语言）字串的指针；或设为vbNullString，表示接收任何类lpWindowName --- String，指向包含了窗口文本（或标签）的空中止（C语言）字串的指针；或设为零，表示接收任何窗口标题很少要求同时按类与窗口名搜索。为向自己不准备参数传递一个零，最简便的办法是传递vbNullString常数示例Dim hw& , cnt&Dim rttitle As String * 256hw& = FindWindow("ThunderRT5Main", vbNullString) ' ThunderRTMain under VB4cnt = GetWindowText(hw& , rttitle, 255)MsgBox Left$(rttitle, cnt), 0, "RTMain title"

Answer 2

FindWindowEx函数　　函数功能：在窗口列表中寻找与指定条件相符的第一个子窗口 。　　该函数获得一个窗口的句柄，该窗口的类名和窗口名与给定的字符串相匹配。这个函数查找子窗口，从排在给定的子窗口后面的下一个子窗口开始。在查找时不区分大小写。　　参数：（1）hwndParent：要查找的子窗口所在的父窗口的句柄（如果设置了hwndParent，则表示从这个hwndParent指向的父窗口中搜索子窗口）。　　如果hwndParent为 0 ，则函数以桌面窗口为父窗口，查找桌面窗口的所有子窗口。　　Windows NT5.0 and later：如果hwndParent是HWND_MESSAGE，函数仅查找所有消息窗口。　　（2）hwndChildAfter ：子窗口句柄。查找从在Z序中的下一个子窗口开始。子窗口必须为hwndParent窗口的直接子窗口而非后代窗口。如果HwndChildAfter为NULL，查找从hwndParent的第一个子窗口开始。如果hwndParent 和 hwndChildAfter同时为NULL，则函数查找所有的顶层窗口及消息窗口。　　（3）lpszClass：指向一个指定了类名的空结束字符串，或一个标识类名字符串的成员的指针。如果该参数为一个成员，则它必须为前次调用theGlobaIAddAtom函数产生的全局成员。该成员为16位，必须位于lpClassName的低16位，高位必须为0。　　（4）lpszWindow：指向一个指定了窗口名（窗口标题）的空结束字符串。如果该参数为 NULL，则为所有窗口全匹配。　　返回值：Long，找到的窗口的句柄。如未找到相符窗口，则返回零。会设置GetLastError　　如果函数成功，返回值为具有指定类名和窗口名的窗口句柄。如果函数失败，返回值为NULL。　　若想获得更多错误信息，请调用GetLastError函数。　　声明：1.VB 声明　　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　　2.C# 声明　　[DllImport("user32.dll", SetLastError = true)]　　public static extern IntPtr FindWindowEx(IntPtr parentHandle, IntPtr childAfter, string className, string windowTitle);　　3.VB .NET 声明　　<DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _　　Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _　　ByVal childAfter As IntPtr, _　　ByVal lclassName As String, _　　ByVal windowTitle As String) As IntPtr　　End Function　　相关例子：　　'Example Name: Changing a VB Toolbar to a Rebar-Style Toolbar　　BAS Moduel Code　　Option Explicit　　Public Const WM_USER= &H400　　Public Const TB_SETSTYLE = WM_USER + 56　　Public Const TB_GETSTYLE = WM_USER + 57　　Public Const TBSTYLE_FLAT = &H800　　Public Declare Function SendMessage Lib "user32" _　　Alias "SendMessageA" _　　(ByVal hwnd As Long, _　　ByVal wMsg As Long, _　　ByVal wParam As Long, _　　lParam As Any) As Long　　Public 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　　'--end block--'　　' Form Code　　Option Explicit　　Private Sub Form_Load()　　With Combo1　　.Width = Toolbar1.Buttons("combo1").Width　　.Top = (Toolbar1.Height - Combo1.Height) \ 2　　.Left = Toolbar1.Buttons("combo1").Left　　.AddItem "Black" ' Add colours for text.