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邮箱 本人初学VB,欲求代码程序,请加QQ:364924648,或邮箱:zhangqiang13131@163.com
vba 自动删除代码实例vba 自动删除代码实例vba 自动删除代码实例vba 自动删除代码实例
用EXCEL VBA制作自动编码,可以根据预先定义字段和设置的自动字段的位数生产编码
office 工作表操作编程 语言vba自动缩进工具
用VBA写的自动生成代码工具 里面用到了框架知识 指定路径输出文件的方法 和变量重新分配空间的方法 redim
outlook VBA 自动保存邮件及附件代码
EXCEL VBA未公开的内部函数,实现自动延时关闭对话框,可自定义延时时间。
查找文件夹下文件,自动生成目录,即时打开链接
这是一个利用VBA自动筛选的实例 附有数据库及全套代码
vba 自动化
自动出题。VBA。VBA自动出题目
VB_VBA代码自动缩进插件-Smart Indenter 亲测可用。
VBA自动定时执行代码执行,可以定期执行
VBA自动化直播报价表.xlsm 支持系列产品 支持动态显示图片 支持自动带出关联产品信息等等
VBA事件-自动另存重命名.xls
excel VBA学习,结合excel公式和VBA自动生成所需要的条码信息,并自动打印,代码写的不好,仅供学习!
Smart Indenter VBA代码自动对齐工具
VBA自动建立装箱单,发票
excel,vba登录界面,挺好的
EXCEL VBA 自动添加控件,可以参照,来源于网络。