VB任务实例，VB向WebBrowser控件提交表单自动登录

Posted 2023-04-01

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Private Sub Form_Load()
WebBrowser1.Navigate " http://reg4.163.com/CheckUser.jsp"
End SubPrivate Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False '禁用右键
End FunctionPrivate Sub Webbrowser1_DownloadComplete()
Set M_Dom = WebBrowser1.Document
End SubPrivate Sub Form_Resize()
If Me.WindowState <> 1 Then
WebBrowser1.Left = 10
WebBrowser1.Width = Me.Width - 120
WebBrowser1.Height = Me.Height - 800
End If
End Sub
Private Sub Command1_Click()
Dim Obj As ObjectSet Obj = WebBrowser1.Document
Obj.All.username.Value = Text1.Text
Obj.All.password.Value = Text2.Text
Obj.All.submit.Click

End Sub'这个是登录163通行证的代码，你去研究下！不明白Q我追问

2138160441

参考技术A 我可以帮你写 需要留下联系方式追问

2138160441

vb的webbrowser控件问题

如何放大/缩小网页的大小，让它适应webbrowser的大小，也就是webbrowser要能完整显示网页内容，谢谢

参考技术A webbrowser缩放网页的代码是
WebBrowser1.Document.body.Style.Zoom =50%
主要的是你要能取得当前网页的宽度才行本回答被提问者采纳 参考技术B 呵呵。这等于问如何让脚适合鞋子的大小？是不是啊。朋友？
不过，我还是希望你能成功。