推荐下载:U盘启动盘制作工具
1.首先,咱们将准备好的U盘插入到win7电脑的USB接口中,等待电脑将自己的U盘识别之后,咱们就返回到电脑的桌面位置。
2.咱们在桌面找一个空白处,点击鼠标右键,选择新建-文本文档,建立好之后咱们先不要命名,直接双击打开文本文档,将如下的代码复制进去:
'获取登录哪个邮箱
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
设置好之后,咱们将该文本文档设置为pass.vbs格式的文件,这里需要的是,username.Value = "cfan"中引号内的替换为用户名,Password.Value = "cfan"中引号内的替换为密码即可使用。
以上利用u盘保存上网登录账号密码实现快速登录的方法分享到这里了,大家不要觉得以上的步骤都是代码很难实现,大家只需要根据教程设置好文本之后,就能快速实现功能,希望对大家有帮助哦。
U盘出现“错误0x80071AC3”提示怎么解决?当你u盘不能复制文件进去的时候,心情肯定相当糟糕吧,其实U盘出现“错误0x80071AC3”提示的情况是因为u盘的卷出现问题了,小伙伴记得了解原因
立即阅读>>很多朋友越来越多地使用到u盘来携带资料,数据和制作u盘启动盘,最大的原因就是因为在确保了容量大之余,携带比移动硬盘更加的方便,所以u盘在生活中已经用得非常多了。在很多U盘中,常常会有一个类似
立即阅读>>U盘体积小巧,方便携带,是我们如今最常用的存储设备。应该有不少用户有这样的经历:在给U盘进行格式化操作时,会出现FAT32,NTFS和exFAT三种格式供大家选择。这三种格式有什么区别?U盘用什么
立即阅读>>U盘除了可以用来存储文件还能干什么?相信很多人还会想到装系统。其实U盘还有一个很实用的功能,就是做一个随身系统。跟U盘装系统不一样,它是真的把win10系统装在U盘里,不是PE,可以直接启动和使用
立即阅读>>u盘使用久了自然会碰到各种各样奇怪的问题,特别是一些小白没有经验却修改了注册表之后发现u盘右键没有删除选项,让人很诧异。那么,u盘右键没有删除选项如何找回?不懂找回的小伙伴千万不要放弃,今天快启动
立即阅读>>