[网络连接] 征集常用批处理邮箱登陆工具

youxi01

有时我们需要 经常的登陆 某些门户网站的邮箱（网页登陆）,如:网易、搜狐等。
但每次都需要重复输入用户名、密码，烦不胜烦，如果邮箱数目还不少的话，那就....

代码要求：
1、支持读写配置文件：maillist.ini，里面保存用户名和密码（以免每次都重复输入）
2、支持门户网站：sohu、163、sina、263

youxi01

给一个尚未完成的版本
说明:功能未完善.现只支持163、126邮箱

::////////程序名称：常用邮箱登陆工具
::////////用途：可以登陆常用邮箱：163、263、sohu等；
::////////作者：youxi01@bbs.bathome.net,2007-11-30
::////////鸣谢：借用了namejm的版面设计，在此表示忠心的感谢!!

@echo off &setlocal enabledelayedexpansion
Rem '================设置批处理颜色，及标题====================
color 1f
title 常用邮箱登陆工具----bbs.bathome.net
Rem '==========================================================
echo                               ╭────────╮
echo           ╭─────────┤选择要登陆的邮箱├─────────╮
echo           │                  ╰────────╯                  │
echo           │                                                        │
echo           │         如果你是第一次登陆某邮箱，本程序将会为你生     │
echo           │                                                        │
echo           │    成配置文件：maillist.l,请不要随便更改、删除。       │
echo           │                                                        │
echo           │    支持邮箱：                                          │
echo           │                                                        │
echo           │             1、163邮箱                                 │
echo           │                                                        │
echo           │             2、126邮箱                                 │
echo           │                                                        │
echo           │             3、sohu邮箱                                │
echo           │                                                        │
echo           │             4、sina邮箱                                │
echo           ╰────────────────────────────╯
echo.
echo                                                           退出请按 0
echo           ────────────────────────────── 
set /p En=          请选择邮箱代号(1/2/3/4)：
if %en% lss 1 exit
if %en% gtr 4 exit

Rem '=====================生成邮箱配置文件===================
Rem 生成邮箱配置文件，并设置文件属性为：只读、隐藏、系统等；
if not exist maillist.l (
   echo 以下为邮箱配置，请不要随意修改；>>maillist.l
   echo $#$#163>>maillist.l
   echo $#$#263>>maillist.l
   echo $#$#sohu>>maillist.l
   echo $#$#sina>>maillist.l)
Rem '=========================================================
echo           正在读取配置文件，请稍等....
call :Read_File maillist.l %en%
Rem =========================邮箱帐号设置检测=================
echo.
echo 你选择了 %mail% 邮箱：
if "%user%"=="$" (
    echo.
    echo 你还没设置帐号、密码，请设置；
    call :enter
    call :Change_Pass %mail%
    )
Rem ==========================================================
:login
echo.
echo 1、直接登陆
echo 2、修改密码
set en=
set /p en=请输入：
set "126=https://entry.mail.126.com/cgi/login?&bCookie=&user=%user%&pass=%pass%"
set "163=https://reg.163.com/logins.jsp?username=%user%&password=%pass%&url=http://fm163.163.com/coremail/fcg/ntesdoor2"

if %en% equ 2 (
    call :enter
    call :Change_Pass %mail%
    goto :login) else start "%mail%" "!%mail%!" 
pause>nul
exit
Rem '==========================读取配置文件===================
:Read_File OBJ Line
for /f "delims=# tokens=1,2,3" %%i in ('more +%2 %1') do (
    set "user=%%i"
    set "pass=%%j"
    set "mail=%%k"
    goto :eof)
Rem ////======================================================
Rem '===========================修改帐号、密码================
:Change_Pass email
set flag=0
for /f "delims=" %%i in ('more ^<maillist.l') do (
   if !flag! equ 0 (echo %%i>maillist.l & set /a flag+=1) else (
       set var=%%i
       call set var=%%var:*%1=!user!#!pass!#%1%%
       echo !var!>>maillist.l))
goto :eof
Rem ////=======================================================

:enter
echo.
set /p user=请输入帐号：
set /p pass=请输入密码：
复制代码

novaa

哈哈
出来了
测试了，以完成的功能满不错的哦！

fayck1314

126功能不能用了，请完善

0123456789

这个不会盗邮箱密码吧？