Question

vb中如何获得所有的窗口语柄

Answer 1

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 SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

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”的窗口，并把它们移到桌面左上角，大小设置为640*480，是精简得不能再简的代码了，只用了两个API函数。你在此基础上修改一下就行了。

Answer 2

如果是窗体自己的句柄的话，窗体有属性，可以直稿亩接告诉你的。别的程序调用的话，可以雀碧先把这个句柄写到一个文件里，然后让别的程序去读文件然后调用句柄就顷敬举可以咯。（网上有写好的程序去获取别的程序的窗体句柄。）