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

答案:2 悬赏:0 手机版

解决时间 2021-03-10 09:01

提问者网友：抽煙菂渘情少年
2021-03-09 17:37

'添加部件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

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

最佳答案

五星知识达人网友：独钓一江月
2021-03-09 18:31

请在原问题追问

全部回答

1楼网友：猎心人
2021-03-09 19:27

这是啥？不是有id和name吗

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息