Question

vb webbrowser 网页登陆 iframe 没有ID 和NAME 如何给里面的文本框赋值呢

网址：mail.mawan.cn ,如果可以再谢

Answer 1

这是啥？不是有ID和Name吗

追问

你好！ 怎么给这个框赋值呢，username和password 框在 IFRAME里面，IFRAME是没有ID和NAME的。如果可以你试一下

追答

网页填表，没有搞不定的

追问

哦，现在不知道用啥方法，啊哦

追答

'添加部件Microsoft Internet Controls
'引用Microsoft HTML Object Library

Private Sub Command1_Click()
Dim Doc2 As HTMLDocument
Dim Web2 As WebBrowser_V1
Dim LikeUrl As String
LikeUrl = "https://mailsso.mxhichina.com/login.htm?app_code=smartmail&device_id=*"
Set Web2 = GetFrameLikeUrl(Web1.Document, LikeUrl)

If Not Web2 Is Nothing Then
    Set Doc2 = Web2.Document
    Doc2.getElementById("username").focus
    Doc2.getElementById("username").Value = Trim(Text1.Text)
    Doc2.getElementById("password").focus
    Doc2.getElementById("password").Value = Trim(Text2.Text)
    Doc2.getElementById("login_submit_btn").focus
    Doc2.getElementById("login_submit_btn").Click
End If
End Sub


百度说超字数了，追问，再不上函数的代码

追问

不会用，用我的这个网页不行

追答

补上函数

Function GetFrameLikeUrl(Vdoc As HTMLDocument, LikeUrl As String) As WebBrowser_V1
      Dim FrameWeb As WebBrowser_V1, MyFrames As Object, I As Long
      Set MyFrames = Vdoc.getElementsByTagName("iframe")
      'Set MyFrames = Vdoc.getElementsByTagName("FRAME")
      For I = 0 To MyFrames.length - 1
        Set FrameWeb = MyFrames(I)
        If FrameWeb.LocationURL Like LikeUrl Then
             Set GetFrameLikeUrl = FrameWeb
             Exit Function
        End If
      Next
End Function