求高手编个程序，能自动单击网页弹出的对话框

有人能帮帮我吗？

'添加控件 Text1 Text2 Command1 Option Explicit
Option Compare Text
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 '关闭窗体常量
Dim MsgForm As Long Private Sub Form_Load()
Text1.Text = "Microsoft Internet Explorer" '一般IE的JS脚本消息框都是这个标题
Text2.Text = "2000" '每两秒执行一次
End Sub Private Sub Command1_Click()
If Text1.Text = "" Then MsgBox "请输入窗体名", 0, "提示"
If Timer1.Enabled = False Then
Command1.Caption = "开启"
Text1.Enabled = False
Text2.Enabled = False
Timer1.Interval = Val(Text2.Text)
Timer1.Enabled = True
Else
Command1.Caption = "停止"
Text1.Enabled = True
Text2.Enabled = True
Timer1.Interval = Val(Text2.Text)
Timer1.Enabled = False
End If
End Sub Private Sub Timer1_Timer()
MsgForm = FindWindow(vbNullString, Text1.Text) '查找窗体标题
If MsgForm > 0 Then
Call SendMessage(MsgForm, WM_CLOSE, 0, ByVal 0&) '关闭此窗体
End If
End Sub


网速不好，上面发重复了，麻烦吧主删一个

楼主把这个图片，另存为 "关闭窗体.rar" 解压一下就可以用了！

多谢多谢！！！！好用！！

直接禁用JavaScript看它还怎么弹alert

还是喜欢api hook

牛人啊、原来程序还可以当图片用啊。

挂Hook要是一个变量没声明，或是隐函声明，你就会被无情的踢出来。。。

还有一个头痛的问题就是，bas中的函数不能调用Form中的过程，调用的结果还是被无情的T出来
记得我做控件要用到MouseScroll的时候就是一个背锯。。

hook里尽量全部api吧。。。调用过程啥的全部用指针方式去call
hook嘛肯定是弄公开的拉,弄未公开导出函数可不那么好弄了

看了下,调用alert的api是MessageBoxIndirect,然后很简单的都不用hook,直接return 1就可以了

最后我的做法是用Timer检察String中的消息。。。
。。。
我弄错了，我用的是SetWindowLong截出的消息。。。。

各位的讨论好深奥，听不明白，曾经很想学VB，可没学进去，现在学学还有前途吗？