Question

VB6控件 WebBrowser中加载的网页问题？？？？？？如题，给出能用的方法我会在加分。。。

For Each Item1 In WebBrowser1.Document.frames("popup_dialog_frame").Document.getElementsByTagName("span")
If Item1.innerText = "选择文件" Then
Item1.parentElement.Click
End If
Next
其中POPUP_dialog_frame 是框架名，是个浮动框架，此代码的在IE8中能用，但IE10中却不能用，提示为对象‘frames’的方法 'JScriptTypeInfo'失败

Answer 1

可以尝试下边这个

Private Sub Command1_Click()
Set ie = CreateObject("internetexplorer.application")
ie.menubar = 1 '不显示IE对象菜单栏
ie.AddressBar = 1 '不显示IE对象地址栏
ie.ToolBar = 1 '不显示IE对象工具栏
ie.StatusBar = 1 '不显示IE对象状态栏
ie.FullScreen = 0 '全屏化IE对象
ie.Width = 800 '设置IE对象宽度
ie.Height = 600 '设置IE对象高度
ie.Resizable = 0 '设置IE对象大小是否可以被改动
ie.Visible = 1 '设置是否可见
ie.Navigate "web.qq.com" '设置IE对象默认指向的页面
End Sub

Answer 2

VB6中的WebBrowser1只支持到IE7

追问

这个软件是以前写的一个小程序,向一指定网页中上传文件.前面还有几步操作,都在IE10中能正常使用,运行到去单击(click)一个框架中的标签就出错了,程序在WIN7下能正常使用,但如果把IE升级到IE10,运行到去点框架中的标签就会出错!!!!!!!!!!!!!!!!!!!!

追答

VB6中的WebBrowser1只支持到IE7