中财网上海理工大学朱莉:邮箱登录器 VB源代码
来源：百度文库 编辑：中财网 时间：2024/04/28 03:51:02
很多人都想在自己电脑上创建一个程序，实现有限的快速一键登录。本人经过一下午的精心钻研得出了两种邮箱一键登录的方法，先来还是分享给大家吧！
方法一：使用VB编程
这种方法对于学过VB的人来说非常简单，但是对于从来没接触过VB的人来说还是稍微有点儿难度的。
（1）VB所需对象：两个命令按钮
所需代码如下：（只需要将星号改成账号密码就成了！）
Private Sub Command1_Click()
Shell "cmd.exe /c start ""163邮箱登录中"" ""https://reg.163.com/logins.jsp?username=" & "******" & "&password=" & "******" & "&url=http://fm163.163.com/coremail/fcg/ntesdoor2""", vbHide
'@163.com可要可不要，最后末尾的“，vbhide”也可以不要
End Sub
Private Sub Command2_Click()
Shell "cmd.exe /c start ""126邮箱登录中"" ""https://reg.163.com/logins.jsp?username=" & "******@126.com" & "&password=" & "******" & "&url=http://entry.mail.126.com/cgi/ntesdoor?verifycookie=1""", vbHide
'@126.com必须要，最后末尾的“，vbhide”也可以不要
End Sub
粘贴完后，关闭代码窗口，单击文件→生成.exe→保存即可。
（2）如果觉得系统默认的图标太难看，可以自己定义图标：
VB要求的图标文件格式为.ico，只要找到自己喜欢的照片在在线转换网站：http://www.bitbug.net/转换一下就成了。
自定义图标方法：form属性中找到icon属性进行设置即可。
方法二：使用.BAT文件法
网页来源：http://www.bathome.net/archiver/tid-4360.html
这种方法比较简单，只要知道.txt文件的都会做，并且不需要安装软件。非常方便的，但是也有两个缺点，一是安全问题，代码很容易看到；二是一个文件只能一键登录一个邮箱。
首先创建一个txt文件，打开，将下面的代码复制进去，用户名和密码改为自己邮箱的用户名和密码。
126邮箱：
set "var=用户名"
set "num=密码"
start "126邮箱登陆中" iexplore.exe "https://reg.163.com/logins.jsp?&username=%var%@126.com&password=%num%&url=http://entry.mail.126.com/cgi/ntesdoor?verifycookie=1"
163邮箱：
set "user=用户名"
set "pass=密码"
start "126邮箱登陆中" iexplore.exe "https://reg.163.com/logins.jsp?username=%user%&password=%pass%&url=http://fm163.163.com/coremail/fcg/ntesdoor2"
用户名和密码改好后，关闭保存，扩展名改为.bat，关闭双击即可打开邮箱。