您现在的位置:首页 >> VB >> 内容

vb6 webbrowser 禁示弹出对话框的代码

时间:2008/9/12 7:59:50 点击:2668

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant) 
    
Dim oDoc1 As HTMLDocument 
    
Set oDoc1 = pDisp.Document 
     oDoc1.parentWindow.execScript 
"function alert(){return;}" 
     oDoc1.parentWindow.execScript 
"function confirm(){return;}" 
     oDoc1.parentWindow.execScript 
"function showModalDialog(){return;}" 
End Sub 

作者:佚名 来源:不详
  • 上一篇:vb简单的IP设置转换器
  • 下一篇:VB取得系统信息代码
  • 相关文章
    相关评论
    发表我的评论
    • 大名:
    • 内容:
  • 人生一百-初学者园地(cxz.rs100.cn) © 2008 版权所有 All Rights Resverved.
  • Email:admin@rs99.cn 站长QQ:10860328 京ICP备07005520号
  • Powered by laoy8! V2.0