求帮忙写作业做VB程序作业,高分,可追加

> vb的webbrowser获取一个用js做的网页,高分求帮忙!解决思路
vb的webbrowser获取一个用js做的网页,高分求帮忙!解决思路
lml4152 & &
发布时间: & &
浏览:3 & &
回复:3 & &
悬赏:0.0希赛币
vb的webbrowser获取一个用js做的网页,高分求帮忙!我想用vb的webbrowser获取一个用js做的网页,这个网页有三层iframe,然后我想webbrowser能够读到最后一层iframe,而这些iframe的src都是赋值的我主要目的是想获取到最后一层的某一个input,然后给它的value赋值iframe的格式:&iframe name=&funcPlaceFrame& width=&100%& height=&100%& id=&funcPlaceFrame& src=&& frameBorder=&0& scrolling=&auto&&小弟不才,查了几天资料还是不能解决这个问题,希望高人帮忙!!!在线等帮忙
给个跨框架点击的函数例子,仅供你参考  VB code  Function ClickTheId(TheDocument As HTMLDocument, TheId As String) As Boolean
Dim ElWithId As Object, oFrame As IHTMLWindow2, oDoc As HTMLDocument, i As Long, bClicked As Boolean
Set ElWithId = TheDocument.getElementById(TheId)
If Not ElWithId Is Nothing Then
On Error Resume Next
ElWithId.focus
On Error GoTo 0
ElWithId.Click
Set ElWithId = Nothing
ClickTheId = True
ElseIf TheDocument.frames.length & 0 Then
For i = 0 To TheDocument.frames.length - 1
Set oFrame = TheDocument.frames(i)
On Error Resume Next
Set oDoc = oFrame.Document
If Err.Number = 70 Then
frmDenied = frmDenied + 1
MsgBox &Error # & & Err.Number & &, & & Err.Description & vbCrLf & _
&Source: & & Err.Source, , &Error&
bClicked = ClickTheId(oDoc, TheId)
If bClicked Then ClickTheId = True: Exit Function
ClickTheId = False
ClickTheId = False
End Function
lmliuhjj & &
10:41:26 & &
& & (0)(0)引用
应该要用上HTMLDocument的parentWindow
lmlpl121312 & &
10:41:26 & &
& & (0)(0)引用
要用上getElementByIdlmlose & &
10:41:26 & &
& & (0)(0)引用
本问题标题:
本问题地址:
温馨提示:本问答中心的任何言论仅代表发言者个人的观点,与希赛网立场无关。请对您的言论负责,遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则,将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&第三方登录:

参考资料

 

随机推荐