功能概述：

本工具使用批處理編寫，提供自動判斷網絡狀態以決定斷開或是連上網絡，本月已用寬帶時長，到月初自動清零。提供聯網日志功能，可以記錄下所有的連接或斷開網絡記錄。如果連接失敗，自動提示輸入密碼，特別適合每天要更換動態密碼者使用。（windows系統可用）

?

flash模擬演示(swf加載慢請稍候):

新標簽頁觀看

下載flash：寬帶連接演示.swf

寬帶連接工具下載：百度網盤

bat源碼：

1 @echo off 2 :retry 3 ::窗口配置 4 title 寬帶連接工具 5 mode con cols=50 lines=15 & color 02 6 7 ::檢查配置文件是否存在，否，則創建。 8 if not exist netconfig.ini call:remd 9 10 ::檢查配置文件是否符合標準格式，否，則重新創建 11 findstr . "netconfig.ini">nul && cls||call:remd 12 Setlocal Enabledelayedexpansion 13 set bbj1=[寬帶連接名稱：] 14 set bbj3=[用戶名：] 15 set bbj5=[密碼：] 16 set bbj7=[本月已用寬帶時長] 17 set bbj9=[時間顯示開關] 18 set bbj11=[寬帶時長顯示開關] 19 set bbj13=[上網時間記錄開關] 20 set bbj15=[上次使用時間] 21 call:extxt 22 23 ::讀取配置信息 24 Setlocal Enabledelayedexpansion 25 set n=0 26 For /f "delims=" %%2 in (netconfig.ini) do ( 27 Set /a n+=1 28 If !n!==2 set name=%%2 29 If !n!==4 set user=%%2 30 If !n!==6 set password=%%2 31 If !n!==8 set netsc=%%2 32 If !n!==10 set timekey=%%2 33 If !n!==12 set netimky=%%2 34 If !n!==14 set rizhiy=%%2 35 If !n!==16 set oldtime=%%2 36 If !n!==17 set olddate=%%2 37 ) 38 39 ::判斷月份差，清空寬帶時長 40 set/a "boldm=(1%olddate:~5,2%-100)" 41 REM echo %boldm% 42 set/a "bm=(1%date:~5,2%-100)" 43 REM echo %bm% 44 set/a "cmon=%bm%-%boldm% 45 if not %cmon%==0 call:rewrite 8 000000 46 rem echo %netsc% 47 REM echo %cmon% 48 ::對寬帶時長進行變形 49 set/a "bnewsc1=%netsc%/3600 50 set/a "bnewsc2=%netsc%%%3600/60 51 set/a "bnewsc3=%netsc%%%3600%%60 52 set "bnewsc=%bnewsc1%小時%bnewsc2%分%bnewsc3%秒 53 rem echo %bnewsc% %bnewsc1% %bnewsc2% %bnewsc3% 54 rem echo %name% %user% %password% 55 56 57 call:clshow 58 ::檢測寬帶狀態自動判斷連接或是斷開 59 ::斷開，并判定結果 60 rasdial|find "已連接">nul 61 if %errorlevel%==0 ( 62 rasdial %name% /DISCONNECT 63 if %errorlevel%==0 ( 64 echo 網絡已成功斷開！ 65 rem ping /n 2 127.1 >nul 66 call:wrizi 網絡成功斷開 67 call:kdsclj 68 call:rewrite 16 "%time%" 17 %date% 69 rem ping /n 2 127.1 >nul 70 exit 71 ) 72 if not %errorlevel%==0 ( 73 echo 網絡斷開失敗！ 74 ping /n 10 127.1 >nul & exit 75 ) 76 ) 77 78 79 ::連接，并判定，更改 80 if %errorlevel%==1 ( 81 rasdial %name% %user% %password% 82 rasdial|find "已連接">nul 83 if !errorlevel!==0 ( 84 echo 網絡已成功連接！ 85 call:wrizi 網絡成功連接 86 call:rewrite 16 "%time%" 17 %date% 87 ping /n 2 127.1 >nul 88 exit 89 ) 90 if not !errorlevel!==0 ( 91 call:clshow & color 0e 92 echo 網絡連接失敗！ 93 echo ----------------------------- 94 echo 更改寬帶連接名稱，請輸入# 95 echo 更改賬號，請輸入* 96 echo 更改密碼，請直接輸入密碼 97 set /p newpass= 98 if !newpass!==* ( 99 echo 請輸入賬號： 100 set /p newuser= 101 call:rewrite 4 !newuser! & goto:retry 102 ) 103 if !newpass!==# ( 104 echo 請輸入寬帶連接名稱： 105 set /p newname= 106 call:rewrite 2 !newname! & goto:retry 107 ) 108 if not !newpass!==* if not !newpass!==# ( 109 call:rewrite 6 !newpass! & goto:retry 110 ) 111 ) 112 ) 113 114 ::測試結尾 115 rem echo 測試完成,按任意鍵退出。&pause>nul 116 117 118 ::子程序 119 120 121 ::清屏，重顯 122 :clshow 123 cls 124 echo 歡迎使用寬帶連接工具！ 125 if %timekey%==1 echo 現在時間 %date% %time% 126 echo 當前賬號：%user% 127 if %netimky%==1 echo 本月已用寬帶時長：%bnewsc% 128 goto:eof 129 130 131 ::更改配置文件 132 :rewrite 133 Setlocal Enabledelayedexpansion 134 set index=0 135 for /f "delims=" %%i in (netconfig.ini) do ( 136 set /a index+=1 137 set var!index!=%%i 138 ) 139 set var%1=%2 140 set var%3=%4 141 (for /l %%i in (1 1 !index!) do echo !var%%i!)>netconfig.ini 142 goto:eof 143 144 145 ::重新創建配置文件 146 :remd 147 rem pause 148 echo [寬帶連接名稱：]>"netconfig.ini" 149 for %%1 in ( 150 寬帶連接 151 [用戶名：] 152 12345678910 153 [密碼：] 154 123456 155 [本月已用寬帶時長] 156 000000 157 [時間顯示開關] 158 1 159 [寬帶時長顯示開關] 160 1 161 [上網時間記錄開關] 162 0 163 [上次使用時間] 164 "%time%" 165 %date% 166 )do echo %%1>>"netconfig.ini" 167 goto:retry 168 rem echo 歡迎使用寬帶連接工具！ 169 goto:eof 170 171 172 ::檢測配置是否合法，否則，重置 173 :extxt 174 set n=0 175 Setlocal Enabledelayedexpansion 176 For /f "delims=" %%i in (netconfig.ini) do ( 177 Set /a n+=1 178 set bb!n!=%%i 179 rem echo bb!n!=%%i 180 ) 181 for /l %%i in (1 2 15) do ( 182 rem if !bb%%i! neq !bbj%%i! echo "!bb%%i!""!bbj%%i!"&pause>nul 183 if !bb%%i! neq !bbj%%i! call:remd 184 ) 185 goto:eof 186 187 ::寬帶計時累加（支持跨天） 188 :kdsclj 189 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)" 190 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)" 191 set/a "ctime=%bt%-%boldt% 192 set/a "newsc=%netsc%+%ctime% 193 call:rewrite 8 %newsc% 194 goto:eof 195 196 ::寫入日志 197 :wrizi 198 if %rizhiy%==1 echo %date% %time% %1 >> 網絡連接日志.txt 199 for %%i in (網絡連接日志.txt )do if %%~zi GTR 10485760 del "%%i" 200 goto:eof

?

?將以上代碼復制保存為x.bat即可。

寬帶連接下載鏈接：百度網盤

?

?

---

?

date:2013-12-13

?

轉載于:https://www.cnblogs.com/pxyufeng/p/4159171.html

總結

以上是生活随笔為你收集整理的宽带连接工具[bat]的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。