哪位能用VB6编程自动关闭服务器返回的这个模式对话框？请看详细内容：

Question

将以下网址粘贴到IE地址栏，回车。然后用下面提供的用户名和密码登陆，等一会儿服务器就返回一个模式对话框，对话框上有以下内容。http://www.btophr.com/forum/messanger.asp?action=inbox
用户名：manlianha   密码：112233窗口类名：#32770 (对话框)
窗口标题：Microsoft Internet Explorer
提示信息：“登录成功! 欢迎您！请点击右上角的My Btophr，进入您的主页！”
还有一个“确认”按钮哪位能用VB6编程自动关闭服务器返回的这个模式对话框？

Answer 1

Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long
Private Const WM_CLOSE As Long = &H10
Private Sub Command1_Click()
    SendMessage GetActiveWindow, WM_CLOSE, 0, 0
End Sub

Answer 2

To of123() :
因为是模式窗体，根本无法用鼠标点击Command1_Click

Answer 3

创建一个线程,用FindWindow不停检测窗口,如果发现类型为 #32770 ,标题为 http://www.btophr.com 的窗口,则发送消息关闭它.