VBA自动登陆163信箱

原创 2007年10月01日 18:22:00

 Sub Goto163()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All(9).Value = "myusername"
.Document.Forms(0).All(13).Value = "mypassword"
.Document.Forms(0).All(35).Click
End With
MsgBox "Ok"
End Sub

或者:

Sub Goto163()
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
.Document.Forms(0).All("username").Value = "myusername"
.Document.Forms(0).All("password").Value = "mypassword"
.Document.Forms(0).All("登录邮箱").Click
End With
MsgBox "Ok"
End Sub

附:

Sub show163tags()
Dim i As Byte
With CreateObject("InternetExplorer.Application")
.Visible = True
.navigate "http://mail.163.com"
Do Until .Readystate = 4
DoEvents
Loop
On Error Resume Next
For i = 1 To 100
If Len(.Document.Forms(0).All(i).Name) > 0 Then Debug.Print "i=" & i; "  name=" & .Document.Forms(0).All(i).Name
Next
End With
MsgBox "ok"
End Sub

返回:

i=9  name=username
i=13  name=password
i=17  name=selType
i=24  name=remUser
i=26  name=secure
i=35  name=登录邮箱
i=40  name=登录网盘
i=62  name=style
i=63  name=product

相关文章推荐

163邮箱自动登陆(登录)通用版

  • 2008年09月22日 16:34
  • 36KB
  • 下载

163邮箱批处理自动登陆

  • 2009年08月21日 09:59
  • 185B
  • 下载

selenium+python模拟登陆163邮箱

下午学习了一下selenium写自动化脚本,原本书上的教程是模拟登陆126邮箱,所以我想做一个模拟登陆163邮箱,没想到里面还有很多坑。 1、163邮箱的账号密码区域的input标签的id是自动生...

163邮箱快捷登陆

  • 2014年01月01日 11:52
  • 2.82MB
  • 下载

python登陆163实例

  • 2013年03月15日 17:25
  • 5KB
  • 下载

PHP模拟登陆获取163邮箱联系人

163邮箱批量登陆

  • 2017年11月04日 05:11
  • 1.44MB
  • 下载

用js写的163登陆界面系统

  • 2016年07月11日 21:57
  • 11KB
  • 下载

python 3.x 163邮箱登陆,邮件读取

import urllib.request import urllib.parse import http.cookiejar,reopener = None# 带Cookie访问 def op...
  • bkxiaoc
  • bkxiaoc
  • 2015年11月20日 10:52
  • 2786

仿163邮件内页+登陆

  • 2010年09月04日 18:41
  • 125KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VBA自动登陆163信箱
举报原因:
原因补充:

(最多只允许输入30个字)