'添加部件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
vb webbrowser 网页登陆 iframe 没有ID 和NAME 如何给里面的文本框赋值呢
答案:2 悬赏:0 手机版
解决时间 2021-03-10 09:01
- 提问者网友：抽煙菂渘情少年
- 2021-03-09 17:37
最佳答案
- 五星知识达人网友：独钓一江月
- 2021-03-09 18:31
请在原问题追问
全部回答
- 1楼网友：猎心人
- 2021-03-09 19:27
这是啥？不是有id和name吗
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯