我用webbrowser打开一个网页后,想修改他的一些script。用了这样的语句
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Set objScript = Me.WebBrowser1.Document.createElement("SCRIPT")
objScript.src = "c:\temp.js"
If Not Me.WebBrowser1.Document Is Nothing Then
If Not Me.WebBrowser1.Document.body Is Nothing Then
WebBrowser1.Document.body.appendChild (objScript)
End Sub结果在IE6.0的环境下可以运行。在IE7.0的环境下提示:“脚本错误:无效字符”, 我把temp.js清空,里面没有一句话,还是提示“无效字符”
只有删了temp.js才能正常运行,当然网页中运行的js是原来网站的。这是为什么?
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Set objScript = Me.WebBrowser1.Document.createElement("SCRIPT")
objScript.src = "c:\temp.js"
If Not Me.WebBrowser1.Document Is Nothing Then
If Not Me.WebBrowser1.Document.body Is Nothing Then
WebBrowser1.Document.body.appendChild (objScript)
End Sub结果在IE6.0的环境下可以运行。在IE7.0的环境下提示:“脚本错误:无效字符”, 我把temp.js清空,里面没有一句话,还是提示“无效字符”
只有删了temp.js才能正常运行,当然网页中运行的js是原来网站的。这是为什么?
解决方案 »
- 我想编写个TM2008批量登陆工具
- 急~~~~~TreeView问题,35603 无效的关键字
- [精贴] 你 们 知 道 BASIC 活 到 现 在 几 岁 了 ?
- 谁有一对多文件传输的例子(实在没分了)
- 如何在水晶报表中使用DateDiff函数来获得130分钟是几天几小时几分钟啊!
- vb生成EXECL文件格式门问题帮助看一下代码?工作需要非常急!
- 数据库已经连上,却读不到数据
- 如何让我的exe文件在登录前运行?急!!!
- vb中 将id存入数组
- 续:数组格式化后并存为文本文件(现在存到数组),请暴风雨老大看一下,谢谢
- Execl VBA中。怎么判断 sheet1中第一行是否与sheet2中第一行的内容完全相同???急。在线等待中。。。。。
- Round(9 / 2)不是四舍五入吗?
另外,IE7安装后注册表中有错误,你要修改一下,不过从你的代码表现来看,你应该已经修改了,所以问题是出在这儿。在IE6中不需要加上<script>标志就可以,但IE7不行。
IE7安装后,注册表中HKEY_CLASSES_ROOT\TypeLib\{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}\1.1\0\win32的值为C:\WINDOWS\system32\ieframe.dll\1,修改成C:\WINDOWS\system32\ieframe.dll就可以在VB6中使用IE7的 WebBrowser了。
WebBrowser1.Navigate "http://member1.taobao.com/member/login.jhtml?ssl=false&redirect_url=http%3A%2F%2Fmember1.taobao.com%2Faso%2Frtgs%3Fdomain%3Daliim%26target%3D687474703A2F2F776562777774622E696D2E616C69736F66742E636F6D2F77616E6777616E672F77656277772E68746D3F%26account_type%3Dnick"
End Sub
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Set objScript = Me.WebBrowser1.Document.createElement("SCRIPT")
objScript.src = "c:\temp.js"
If Not Me.WebBrowser1.Document Is Nothing Then
If Not Me.WebBrowser1.Document.body Is Nothing Then
WebBrowser1.Document.body.appendChild (objScript)
End If
End If
End Subtemp.js如下
<script language=javascript>
var a='123';
alert(a);
</script>
问一句,楼主是dycatv吗?
IE7默认不执行本地加载的JS,只能加载网上的js问题已解决。