VB登陆163邮箱
来源:互联网 发布:mac制作u盘系统安装盘 编辑:程序博客网 时间:2024/04/27 14:47
添加2个text,一个command,一个 WebBrowser
Dim vDoc, vTag
Dim i As Integer
Private Sub Command1_Click()
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.Name
Case "username"
vTag.Value = Text1 '用户名
End Select
End If
If vTag.Type = "password" Then
Select Case vTag.Name
Case "password"
vTag.Value = Text2 '密码
End Select
End If
If vTag.Name = "remUser" Then '如果不要记住用户名,此句删除
vTag.Click
End If
If vTag.Type = "submit" Then '如果不要点击按钮登陆,把此if的代码删除
vTag.Click
End If
End If
Next i
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://mail.163.com/"
End Sub
- VB登陆163邮箱
- VB邮箱登陆
- VB实现的多邮箱登陆
- 163 邮箱登陆
- selenium模拟登陆163邮箱
- 登陆163邮箱 验证邮箱帐号密码是否正确
- 一键登陆网易163邮箱
- PHP模拟登陆获取163邮箱联系人
- imaplib 模块登陆163邮箱及下载
- selenium+python模拟登陆163邮箱
- 登陆邮箱程序
- 邮箱登陆快捷方式
- 实现邮箱登陆代码
- 不能 登陆邮箱
- JS登陆邮箱
- 网易邮箱登陆链接
- c#登陆邮箱
- c++登陆邮箱
- VB局域网自动传播病毒
- 编码规范_总结
- Capture Allegro学习笔记1
- 获取指定文件相对于另一个文件的相对路径
- Strut1 工作原理
- VB登陆163邮箱
- 用VB6实现的3D文字按钮
- 发文章中,图片把div撑破了的解决办法 css代码
- 数据结构:图的最小生成树prim
- ubuntu 9.10专辑-中文输入法
- JBoss-4.2.3 GA 部署的时候注意jdk版本
- My 97 DatePicker
- 应用VBS修改注册表大全
- VB实现“木马”式隐形运行程序