Foxtable(狐表)用户栏目专家坐堂 → 这个错误怎么解决


  共有2256人关注过本帖树形打印复制链接

主题:这个错误怎么解决

帅哥哟,离线,有人找我吗?
Fotable
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1015 积分:6979 威望:0 精华:0 注册:2012/8/1 18:41:00
这个错误怎么解决  发帖心情 Post By:2015/7/22 22:37:00 [只看该作者]

Dim ObjIE As Object  = CreateObject("internetexplorer.application")
ObjIE.Navigate("url" )
Do While objie.ReadyState <> 4
    Application.DoEvents
Loop
Dim neirong As System.Windows.Forms.HtmlElement
neirong = ObjIE.Document.getelementbyid("js_content")

 

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl
web.Document.window.Frames(0).Document.body.Innerhtml = neirong.Innerhtml

 

运行报错

无法将类型为“System.__ComObject”的 COM 对象强制转换为类类型“System.Windows.Forms.HtmlElement”。表示 COM 组件的类型实例不能强制转换为不表示 COM 组件的类型;不过,只要基础 COM 组件支持对接口 IID 的 QueryInterface 调用,就能将这些实例强制转换为接口。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/22 22:40:00 [只看该作者]

 用webbrowser就行了,参考奥迪吗

 

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://vip.stock.finance.sina.com.cn/mkt/#all_forex")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
MessageBox.Show("等待数据加载完成")

Dim elems As object = web.Document.GetElementById("list_amount_ctrl").GetElementsByTagName("a")
For Each elem As object In elems
    If elem.InnerText = "80" Then
        elem.InvokeMember("click")
    End If
Next

elems = web.Document.GetElementById("tbl_wrap").GetElementsByTagName("tr")
MessageBox.Show("共获取 " & elems.count-1 & " 条数据")


 回到顶部
帅哥哟,离线,有人找我吗?
Fotable
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1015 积分:6979 威望:0 精华:0 注册:2012/8/1 18:41:00
  发帖心情 Post By:2015/7/22 23:51:00 [只看该作者]

Dim web2 As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser2").BaseControl
web2.navigate( "url" )
Do While web2.ReadyState <> 4
    Application.DoEvents
Loop


Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl
web.Document.window.Frames(0).Document.body.Innerhtml = neirong.Innerhtml '

 

修改成这样 同样报错


 回到顶部
帅哥哟,离线,有人找我吗?
Fotable
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1015 积分:6979 威望:0 精华:0 注册:2012/8/1 18:41:00
  发帖心情 Post By:2015/7/22 23:54:00 [只看该作者]

谢谢 可以了

 回到顶部