自己编写让账号邮箱自动登陆的小程序

　　" 获取登录哪个邮箱
　　index=inputbox("0--yahoo "&vbcrlf&vbcrlf&"1--163"，"选择邮箱"，0)

　　" 创建InternetExplorer.Application对象

　　Set ie = CreateObject("internetexplorer.application")

　　ie.Visible = 1  " 设置网页的可见性

　　Select Case Index

　　Case "0"  " 当选择0－－yahoo时

　　ie.navigate "http://cn.mail.yahoo.com/" 
　　 " 打开yahoo邮箱登录页

　　Wscript.Sleep 5000　" 等待5秒，确保网页已打开完毕

　　ie.document.getElementById("login").Value = "username" 
　　" 将id为login的表单填为username

　　ie.document.getElementById("passwd").Value = "密码"

　　Set ie = Nothing     " 释放对象占用的内存

　　Case "1"   " 第二个登录过程

　　ie.navigate "http://mail.163.com"

　　Wscript.Sleep 5000

　　ie.document.getElementById("login163").username.Value = "cfan"

　　ie.document.getElementById("login163").Password.Value = "cfan"

　　End Select

　　Set ie = Nothing   " 没选任何或超出范围时仍要释放对象

　　" 当把vbs放在加密的rar中，一定要用下面FSO对vbs进行删除操作，
　　"以免账号泄漏在临时文件夹中

　　Set fso = CreateObject("Scripting.FileSystemObject")

　　Set MyFile = fso.GetFile("login.vbs")

　　myFile.DeletE:set myfile=nothing:set fso=nothing