首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb的webbrowser获取一个用js作的网页,高分求帮忙

2012-12-31 
vb的webbrowser获取一个用js做的网页,高分求帮忙!我想用vb的webbrowser获取一个用js做的网页,这个网页有三

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">
小弟不才,查了几天资料还是不能解决这个问题,希望高人帮忙!!!在线等帮忙
[解决办法]
给个跨框架点击的函数例子,仅供你参考

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"
  Else
  bClicked = ClickTheId(oDoc, TheId)
  If bClicked Then ClickTheId = True: Exit Function
  End If
  Next i
  ClickTheId = False
  Else
  ClickTheId = False
  End If
End Function 
 
 
 

[解决办法]
应该要用上
HTMLDocument的parentWindow
[解决办法]
要用上getElementById

热点排行