宽带连接工具[bat]

Posted 2020-11-22 guyk

宽带连接工具[bat]

功能概述：
本工具使用批处理编写，提供自动判断网络状态以决定断开或是连上网络，本月已用宽带时长，到月初自动清零。提供联网日志功能，可以记录下所有的连接或断开网络记录。如果连接失败，自动提示输入密码，特别适合每天要更换动态密码者使用。（windows系统可用）

从功能上说，我不需要这个脚本，不过留下作为bat使用的参考。

@echo off
:retry
::窗口配置
title 宽带连接工具
mode con cols=50 lines=15 & color 02

::检查配置文件是否存在，否，则创建。
if not exist netconfig.ini call:remd

::检查配置文件是否符合标准格式，否，则重新创建
findstr . "netconfig.ini">nul && cls||call:remd
Setlocal Enabledelayedexpansion
set bbj1=[宽带连接名称：]
set bbj3=[用户名：]
set bbj5=[密码：]
set bbj7=[本月已用宽带时长]
set bbj9=[时间显示开关]
set bbj11=[宽带时长显示开关]
set bbj13=[上网时间记录开关]
set bbj15=[上次使用时间]
call:extxt

::读取配置信息
Setlocal Enabledelayedexpansion
set n=0
For /f "delims=" %%2 in (netconfig.ini) do (
Set /a n+=1 
If !n!==2 set name=%%2
If !n!==4 set user=%%2
If !n!==6 set password=%%2
If !n!==8 set netsc=%%2
If !n!==10 set timekey=%%2
If !n!==12 set netimky=%%2
If !n!==14 set rizhiy=%%2
If !n!==16 set oldtime=%%2
If !n!==17 set olddate=%%2
)

::判断月份差，清空宽带时长
set/a "boldm=(1%olddate:~5,2%-100)"
REM echo %boldm%
set/a "bm=(1%date:~5,2%-100)"
REM echo %bm%
set/a "cmon=%bm%-%boldm%
if not %cmon%==0 call:rewrite 8 000000
rem echo %netsc%
REM echo %cmon%
::对宽带时长进行变形
set/a "bnewsc1=%netsc%/3600
set/a "bnewsc2=%netsc%%%3600/60
set/a "bnewsc3=%netsc%%%3600%%60
set   "bnewsc=%bnewsc1%小时%bnewsc2%分%bnewsc3%秒
rem echo %bnewsc% %bnewsc1% %bnewsc2% %bnewsc3%
rem echo %name% %user% %password%


call:clshow
::检测宽带状态自动判断连接或是断开
::断开，并判定结果
rasdial|find "已连接">nul
if %errorlevel%==0 (
rasdial %name% /DISCONNECT
if %errorlevel%==0 (
echo 网络已成功断开！
rem ping /n 2 127.1 >nul  
call:wrizi 网络成功断开
call:kdsclj
call:rewrite 16 "%time%" 17 %date%
rem ping /n 2 127.1 >nul 
exit
)
if not %errorlevel%==0 (
echo 网络断开失败！
ping /n 10 127.1 >nul & exit
)
)


::连接，并判定，更改
if %errorlevel%==1 (
  rasdial %name% %user% %password%
  rasdial|find "已连接">nul
  if !errorlevel!==0 (
  echo 网络已成功连接！
  call:wrizi 网络成功连接
  call:rewrite 16 "%time%" 17 %date%
  ping /n 2 127.1 >nul 
  exit
  )
  if not !errorlevel!==0 (
  call:clshow & color 0e
  echo 网络连接失败！
  echo -----------------------------
  echo 更改宽带连接名称，请输入#
  echo 更改账号，请输入*
  echo 更改密码，请直接输入密码
  set /p newpass=
  if !newpass!==* (
  echo 请输入账号：
  set /p newuser=
  call:rewrite 4 !newuser! & goto:retry 
  )
  if !newpass!==# (
  echo 请输入宽带连接名称：
  set /p newname=
  call:rewrite 2 !newname! & goto:retry 
  )
  if not !newpass!==* if not !newpass!==# (
  call:rewrite 6 !newpass! & goto:retry 
   )
  )
)
 
::测试结尾
rem echo 测试完成,按任意键退出。&pause>nul


::子程序


::清屏，重显
:clshow
cls
echo 欢迎使用宽带连接工具！
if %timekey%==1 echo 现在时间 %date% %time%
echo 当前账号：%user%
if %netimky%==1 echo 本月已用宽带时长：%bnewsc%
goto:eof


::更改配置文件
:rewrite
Setlocal Enabledelayedexpansion
set index=0
for /f "delims=" %%i in (netconfig.ini) do (
 set /a index+=1
 set var!index!=%%i
)
set var%1=%2
set var%3=%4
(for /l %%i in (1 1 !index!) do echo !var%%i!)>netconfig.ini
goto:eof


::重新创建配置文件
:remd
rem pause
echo [宽带连接名称：]>"netconfig.ini"
for %%1 in (
宽带连接
[用户名：]
12345678910
[密码：]
123456
[本月已用宽带时长]
000000
[时间显示开关]
1
[宽带时长显示开关]
1
[上网时间记录开关]
0
[上次使用时间]
"%time%"
%date%
)do echo %%1>>"netconfig.ini"
goto:retry
rem echo 欢迎使用宽带连接工具！
goto:eof


::检测配置是否合法，否则，重置
:extxt
set n=0
Setlocal Enabledelayedexpansion
For /f "delims=" %%i in (netconfig.ini) do (
Set /a n+=1 
set bb!n!=%%i
rem echo bb!n!=%%i
)
for /l %%i in (1 2 15) do (
rem if  !bb%%i! neq !bbj%%i! echo "!bb%%i!""!bbj%%i!"&pause>nul
if  !bb%%i! neq !bbj%%i! call:remd 
)
goto:eof

::宽带计时累加（支持跨天）
:kdsclj
set/a "boldt=(1%olddate:~8,2%-100)*3600*24+(%oldtime:~1,2%)*3600+(1%oldtime:~4,2%-100)*60+(1%oldtime:~7,2%-100)"
set/a "bt=(1%date:~8,2%-100)*3600*24+(%time:~0,2%)*3600+(1%time:~3,2%-100)*60+(1%time:~6,2%-100)"
set/a "ctime=%bt%-%boldt%
set/a "newsc=%netsc%+%ctime%
call:rewrite 8 %newsc%
goto:eof

::写入日志
:wrizi
if %rizhiy%==1 echo %date% %time%   %1 >> 网络连接日志.txt 
for %%i in (网络连接日志.txt )do if %%~zi GTR 10485760 del "%%i"
goto:eof

---

转载自:https://www.cnblogs.com/pxyufeng/p/4159171.html