Question

VB怎样关闭其他程序产生的对话框

如题
我想问的就是调用哪个API获得句柄，谢谢！

Answer 1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName 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
Private Const WM_CLOSE = &H10

'关闭IE弹出的对话框

Private Sub Timer1_Timer()
hwnd1 = FindWindow("#32770", "Windows Internet Explorer")

'每个窗体的类名都可能不同,所以请在网上下载一个叫spy++的软件,即可取得目标窗体类名,该窗体的类名是不变的,所以只要取一次填上就可以了

'IE 7
hwnd2 = FindWindow("#32770", "Microsoft Internet Explorer")
'IE 6
If hwnd1 <> 0 Then
SendMessage hwnd1, WM_CLOSE, 0, 0
End If
If hwnd2 <> 0 Then
SendMessage hwnd2, WM_CLOSE, 0, 0
End If
End Sub

Answer 2

Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Answer 3

调用API找到对话框句柄，再操作

Answer 4

使用API找到想要关闭窗体的句柄
再用API关闭这个句柄窗体
具体代码网上找找