[网络连接] 写了一个重复投票的批处理，请高手帮忙完善，感激不尽

cyy998

因朋友在进行一个网络投票，需要一个重复投票的功能，就帮他写了个批处理，之后发现也可以用来刷访问量，就花了一点时间把它稍做修改，只是简单的机械动作，没什么技巧可言。
因为增加了统计功能和储存账号密码功能，所以会产生一个txt和ini文件，因为用到choice命令，所以自带了choice.exe并添加了if语句，如果System32目录没有choice.exe，则会自动把自带的choice.exe复制到System目录并删除源文件。
因为是初学，代码比较臃肿，求高手予以简化，感激不尽。

代码如下：

@echo off 
color 2f

echo.
echo ------欢迎请用自动访问系统------
echo.
echo ★本系统只适用于ADSL拨号上网的用户，不适用使用路由器的内网用户。
echo.
echo ★本系统将按照您所设置的时间，不断的自动连接宽带并用IE访问您所设置的网址。
echo.
echo ★本系统首次运行时，需要输入您的宽带连接的名称、账号、密码。
echo.
echo ★请准备好您的宽带账号和密码，按任意键开始。
pause >nul

if exist %windir%\System32\choice.exe (
    if exist choice.exe del /a /f /q choice.exe
    goto G
    ) else (
    copy choice.exe %windir%\System32\
    del /a /f /q choice.exe
) >nul

:G
if exist config.ini goto D
:A
echo.
set /p name=请正确输入宽带连接的名称：
if not defined name goto A
:B
echo.
set /p account=请正确输入宽带连接的账号：
if not defined account goto B
:C
echo.
set /p password=请正确输入宽带连接的密码：
if not defined password goto C

cls
echo.
echo 请再次确认您所输入的内容是否正确？
echo.
echo 您输入的宽带连接名称是：%name%
echo.
echo 您输入的宽带连接账号是：%account%
echo.
echo 您输入的宽带连接密码是：%password%
echo.
set /p mb=如果输入有误，请按“0”重新输入，确认无误后按其他任意键继续：
if "%mb%"=="0" (
    set mb=
    set name=
    set account=
    set password=
    cls
    goto A
    ) else (
    echo %name%,%account%,%password%, >config.ini
    goto E
)

:D
for /f "tokens=1-3 delims=," %%i in (config.ini) do (
    set name=%%i
    set account=%%j
    set password=%%k
)

:E
echo.
set /p time1=请设置连接时间（默认值：8，如输入默认值请按回车）：
if not defined time1 set time1=8
echo.
set /p time2=请设置访问时间（默认为：5，如输入默认值请按回车）：
if not defined time2 set time2=5
echo.
set /p time3=请设置断开时间（默认为：3，如输入默认值请按回车）：
if not defined time3 set time3=3
echo.
set /p url=请输入访问地址（默认为：http://www.baidu.com/）：
if not defined url set url=http://www.baidu.com/

cls
echo.
echo 请再次确认您所输入的内容是否正确？
echo.
echo 您输入的连接时间为：%time1%秒
echo.
echo 您输入的访问时间为：%time2%秒
echo.
echo 您输入的断开时间为：%time3%秒
echo.
echo 您输入的访问地址为：%url%
echo.
set /p mc=如果输入有误，请按“0”重新输入，确认无误后按其他任意键继续：
if "%mc%"=="0" (
    set mc=
    cls
    goto E
)

cls
echo.
echo 所有准备工作已完成，本系统将关闭正在使用的IE和正在使用的宽带连接。
echo.
echo 在此期间，请不要使用IE和其他访问网络的功能。
echo.
echo 请按任意键开始，结束请直接关闭本窗口。
pause >nul

cls
set a=0
taskkill /f /im iexplore.exe >nul 2>nul
echo 正在断开宽带连接，%time3%秒钟后自动连接。
Rasdial %name% /disconnect >nul 2>nul
choice /t %time3% /d y /n >nul

:F
set/a a+=1
echo 正在启动宽带连接，%time1%秒钟后访问%url%。
Rasdial %name% %account% %password% >nul
choice /t %time1% /d y /n >nul
echo 正在访问%url%，%time2%秒钟后断开连接。
start /min c:\progra~1\Intern~1\iexplore.exe "%url%" 
echo 本次运行共访问%url% %a%次 >统计.txt
choice /t %time2% /d y /n >nul
echo 正在关闭IE并断开宽带连接，%time3%秒钟后自动连接。
taskkill /f /im iexplore.exe >nul
Rasdial %name% /disconnect >nul
choice /t %time3% /d y /n >nul
goto F
复制代码

BAT-VBS

可以考虑用BAT来取代choice.exe