用WebBrowser加载一个网页：<html xmlns="http://www.w3.org/1999/xhtml" >
<head>
<title>无标题页</title>
</head>
<body>
<script language="javascript">
alert("OK");
</script>
</body>
</html>这个网页加载后会弹出一个“确定”的对话框。我在VB6中这样写代码：
Private Sub Command5_Click()
Timer1.Interval=1000
Timer1.Enabled = True
WebBrowser1.Navigate App.Path & "\page.htm"
End SubPrivate Sub Timer1_Timer()
Debug.Print "SendKey"
SendKeys "{ENTER}"
Debug.Print "EndKey"
Timer1.Enabled = False
End Sub目的是想当网页被加载，网页的对话框弹出后，程序能模拟人点击Webbrowser1中网页中的“确定”按钮。但是我发现，当
WebBrowser1.Navigate App.Path & "\page.htm"一句执行后，只有当人为点击的网页弹出的对话框（Javascript中的alert函数）中的“确定”时，Timer1_Timer的代码才被执行。
那么怎么才能用WebBrowser加载一个有弹出提示框的网页后，能让程序模拟实现“确定”点击？
<head>
<title>无标题页</title>
</head>
<body>
<script language="javascript">
alert("OK");
</script>
</body>
</html>这个网页加载后会弹出一个“确定”的对话框。我在VB6中这样写代码：
Private Sub Command5_Click()
Timer1.Interval=1000
Timer1.Enabled = True
WebBrowser1.Navigate App.Path & "\page.htm"
End SubPrivate Sub Timer1_Timer()
Debug.Print "SendKey"
SendKeys "{ENTER}"
Debug.Print "EndKey"
Timer1.Enabled = False
End Sub目的是想当网页被加载，网页的对话框弹出后，程序能模拟人点击Webbrowser1中网页中的“确定”按钮。但是我发现，当
WebBrowser1.Navigate App.Path & "\page.htm"一句执行后，只有当人为点击的网页弹出的对话框（Javascript中的alert函数）中的“确定”时，Timer1_Timer的代码才被执行。
那么怎么才能用WebBrowser加载一个有弹出提示框的网页后，能让程序模拟实现“确定”点击？
解决方案 »
- 对象变量或者with块变量没有设置（代码如下）
- 我想要的是可以随时备份SQL;并且可以选择性恢复SQL的代码
- 做了自己该做的!心情好!散分!!来者有!!(以前看别人散分，现在自己也想开心)
- !!!!!!!!!!!???????????十万火急!!
- 将记录集里面的每一条记录里面的ID号字段的值用该记录的绝对位置替换,这条SQL语句怎么写呀?
- vb自带的按钮选择flat，怎么还是有立体感
- 请问toolbar能不能改变宽度（100分）
- 字符串如何转换成进制数？
- 新手提问~VB程序难吗
- 刚刚开始运行还好好的..可是现在运行确提示report width is larger than paper width?
- 如何用DLL实现两个VB程序间的数据交换？
- 送分100分：出现“无法在此会话中启动更的事务”是什么原因。
然后 用:GetParent找到这个窗口的父窗口
再用GetWindowText找到父窗口的字符串
判断是否是自己主程序的窗口
如果是
SendMessage(WM_CLOSE）
放在：WebBrowser1.Navigate App.Path & "\page.htm"前面，它还没弹出那个alert提示
放在后面，你不点Javascript的alert的确定，后面的代码就不会去执行！