VBA自动登陆163信箱
来源:互联网 发布:落一叶而知秋 散文 编辑:程序博客网 时间:2024/03/28 23:28
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
- VBA自动登陆163信箱
- VBS 自动登陆新浪信箱
- 自动登陆
- VBA自动画图
- VBA 自动 生成Sql
- VBA自动发送邮件
- vba 编写自动报表
- VBA Macro 自动画图
- VBA,VB 自动登录网站
- cad 自动加载vba程序
- Outlook VBA自动处理邮件
- 网易163信箱免费升级到2G,吐血了!
- 在outlook6中如何设置163的信箱
- 杨小白信箱
- 杨小白信箱
- 杨小白信箱
- 杨小白信箱
- 杨小白信箱
- java 初试
- 与领导喝酒的18个应紧记的诀窍
- 设计人的33个好习惯(转贴)
- 【转】高性能网站性能优化
- 【转】设计高性能可扩展互动网站
- VBA自动登陆163信箱
- 很多人不清楚的20个windows XP秘密
- 理智
- 第一篇文章
- ASP.NET连接Oracle
- 第三次作业
- 盖茨十条成功箴言 值得一生铭记(组图)
- Java类型转换Integer int String
- 程序人生:25岁以上程序员单身手册