古代花架:vb 拦 IE 弹 出 的 警 告 消 息
来源:百度文库 编辑:高考问答 时间:2024/04/30 21:03:30
弹出警告指的是:网页中《设为首页》 这样的弹出
要么直接不让 它弹出来
要么 在它弹出后,能自动点 确定
我是新人,积分不多,希望大家不要嫌少!
这个我知道,但是对IE这样的弹出findwindow和setwindowpos是不行的。
biaoti = FindWindow(vbNullString, "Microsoft Internet Explorer")
If biaoti <> 0 Then
SetForegroundWindow biaoti
SendKeys "~"
End If
根本不行,不信你试试!
要么直接不让 它弹出来
要么 在它弹出后,能自动点 确定
我是新人,积分不多,希望大家不要嫌少!
这个我知道,但是对IE这样的弹出findwindow和setwindowpos是不行的。
biaoti = FindWindow(vbNullString, "Microsoft Internet Explorer")
If biaoti <> 0 Then
SetForegroundWindow biaoti
SendKeys "~"
End If
根本不行,不信你试试!
如果你只是自己用的话,大可不必自己编写,这样的软件现在不少。如果是为了学习编程,那我就提示你一下,我这里没有VB不能写源代码给你
API中的findwindow()函数可以找到指定标题的窗口
setwindowpos()函数可以激活窗口
VB中的Sendkeys过程可以向插入点发送指定的键盘按键
如果我说这些你还不能明白的话,那么你就先去学一下VB的API,很快就能明白的
对了MozillaFireFox浏览器可以避免JavaScript脚本运行,就不会弹出对话框了