Question

vb webbrowser 网页登陆 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 = "<a href="https://mailsso.mxhichina.com/login.htm?app_code=smartmail&device_id=" target="_blank">https://mailsso.mxhichina.com/login.htm?app_code=smartmail&device_id=</a>*"
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

能不能把函数发给我学习一下，谢谢。850018252@qq.com

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

请在原问题追问

追问

我是想用VB程序来操作139邮箱来自动发短信，但不能控制iframe 中的输入框。

追答

哪个页面

追问

中国移动139邮箱，百度一下就有。

追答

中国移动139邮箱 哪个输入框