VB 获得窗口句柄答:Private Sub Command1_Click()Dim i As Long i = FindWindowEx(0, 0, vbNullString, "TestWindow")Do Until i = 0 SetWindowPos i, Me.hwnd, 0, 0, 640, 480, 0 i = FindWindowEx(0, i, vbNullString, "TestWindow")Loop End Sub 以上代码是搜索所有标题为“TestWindow”的窗口,并把...