vb编写邮件登陆程序，要求可以批量的导入挨个测试是否登陆成功，登陆成功后的邮箱密码另存在其他地方

发布网友 发布时间：2022-04-25 16:28

我来回答

共2个回答

热心网友 时间：2023-10-17 18:49

form1只用来设计登陆界面。加一个form2,用来设计登陆后的内容。

以下是form1的代码：

private Sub Form_Load()
WebBrowser1.Navigate ""
End Sub

Private Sub WebBrowser1_TitleChange(ByVal Text As String)
If webBrowser1.LocationURL= "" Then '判断网页地址是否正确进入操作页面
Form2.Show 'form2显示
Form2.WindowState = 2 'form2窗口最大化
Form1.Hide 'form1 隐藏
Else
End If
End Sub

以下是form2的代码：
Private Sub Form_Load()
WebBrowser1.Navigate ""

End Sub

Private Sub Form_Resize() 'form2大小改变事件
WebBrowser1.Width = Me.Width 'webbrowser1宽度跟着改变
WebBrowser1.Height = Me.Height 'webbrowser1高度跟着改变
End Sub

Private Sub Form_Unload(Cancel As Integer) 'form2关闭事件
Unload Form1 'form1跟着关闭
End Sub

热心网友 时间：2023-10-17 18:50

这个程序不容易啊！
而且邮箱登录还有验证码的输入！你还是到黑客论坛去求求那里的高手吧