具体代码如下:
ps：工作原理：使用vbs脚本的InternetExplorer.Application组件打开目标网页，然后用document属性来对打开的网页进行各种控制。
1、首先在桌面上鼠标右击新建一个文本文档，然后将下面代码复制粘贴进去，具体代码如下：
'获取登录哪个邮箱
index=inputbox(0--yahoo vbcrlfvbcrlf1--163，选择邮箱，0)
'创建InternetExplorer.Application对象
Set ie = CreateObject(internetexplorer.application)
ie.Visible = 1 '设置网页的可见性
Select Case Index
Case 0 '当选择0--yahoo时
ie.navigate / '打开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
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
然后将上面的脚本保存为pass.vbs，然后给其中的网址就是你需要登录的网站或是论坛，将后面的username.Value = cfan中引号内的替换为用户名，Password.Value = cfan中引号内的替换为密码即可使用。上文中的例子是登录雅虎和163信箱。
至于账号的安全性，大家可能担心自己的账户和密码明文写在vbs脚本中不安全，你可以将它用rar压缩加密，当然，rar压缩包的密码要强，这样即使有人从U盘中偷走了文件，自己的账号也会很安全哦。
【教你巧妙利用u盘保存上网登录账号密码实现快速登录】相关文章：
★ 未在本地计算机上注册“microsoft.ACE.oledb.12.0”提供程序解决办法
★ MBR怎么转换为GPT？硬盘MBR格式转换成GPT格式教程