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

你好，我用了你给我的关闭窗体的程序，发现一个问题。我需要在弹出窗体时，单击“是”，这样可以继续计时，而你的程序是直接关闭了那个窗口，没有达到计时的效果，能再麻烦一下嘛？

我的目的是要单击弹出的网页中的“确定”按钮

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 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)
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo 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, "提示": Exit Sub
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&) '关闭此窗体
SetWindowPos MsgForm, -1, 0, 0, 0, 0, 3 '窗体置前
keybd_event vbKeyReturn, 0, 0, 0 '模拟键按下
keybd_event vbKeyReturn, 0, &H2, 0 '模拟键弹起
End If
End Sub

图片另存为 "xxxxx.rar" .........


开着上面的程序，再在地址栏输入下面的代码,再按回车返回值是true,应该可以用了！
javascript:void((function(){alert(confirm("确认和取消"))})());

非常感谢，这次真成了

谁知道牛人的qq好

牛人好牛啊，俺是门外汉，也想学编程，可不知道怎么入手

就是这个窗口啊，请问怎么搞能让他自动弹出来的时候，自动点击“确定”

你该用按键精灵，那个更方便