vb高手进来看下!!!
发布网友
发布时间：2023-11-23 22:22
共1个回答
热心网友
时间：2024-07-21 13:24
Dim oDoc As Variant
Dim ttt As Variant '定义变量
Set oDoc = pDisp.Document '设置document 对象
Set ttt = oDoc.getElementsByTagName("script") '得到script 元素
ttt(0).language = "vbscript" 设置script的语言为vbscript
ttt(0).Text = ""
pDisp.Document.parentWindow.execScript "window.alert=null;" '运行script 使弹出消息无
屏蔽frame内的要用getElementsByTagName("frame") 去读xxx.htm的内容然后像上面一样处理.
错误信息是因为script为空,ttt(0).language 赋值就出错.可以在这句上面加上
on error resume next
