[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[网络连接] 如何利用批处理进行宽带自动拨号及下载?

求助各位大神如何利用批处理进行宽带自动拨号,帐号密码保存在一个txt文件里,空格隔开,每行一个
需要实现每个帐号拨号上网后自动下载一个文件,然后断开拨号下一个帐号,直到所有帐号都使用完
文件地址请使用http://XXX代替,谢谢

有红包没?
想要代写加我Q:632171029

TOP

本帖最后由 bbaa 于 2017-1-31 21:49 编辑
  1. @Rem Made By:Bbaa
  2. @Echo off
  3. @Setlocal enabledelayedexpansion
  4. @Rem Demo
  5. :BegIn
  6. Rem 获取必备参数
  7. Set File=xx.txt &&Rem 输入文件名
  8. Set 下载文件列表_计数=1
  9. For %%i In (
  10. "http://www.baidu.com/"
  11. ""
  12. ""
  13. ) do (Set "___下载文件列表___!下载文件列表_计数!=%%~i"&&Set /a 下载文件列表_计数+=1)
  14. :Begin_2
  15. For /f "Tokens=1,2" %%i In (%File%) Do (
  16. rasdial 拨号连接 %%i %%j
  17. Call :Begin_Cx
  18. )
  19. :End
  20. echo 处理完成
  21. Pause>nul&Exit
  22. :Begin_Cx
  23. Call :Tools
  24. For /f "Tokens=2 delims==" %%a In ('Set ___下载文件列表___') do (
  25. Wget -q -c "%%a">nul 2>nul||Echo;%%a 下载失败
  26. )
  27. Goto :Eof
  28. :Tools
  29. wget --version>nul 2>nul&&Goto :Eof
  30. Echo;未找到第三方:Wget
  31. Pause>nul&Exit
复制代码
注意:该板块不是“帮你做事”而是“教你怎么做”,如果你不是在学习过程中遇到困难需要帮助解惑,只是临时需要(不打算学习只想要现成的代码)或急需解决问题,请移步『有偿求助区』发帖
然而我还是帮你做了...........

TOP

回复 3# bbaa


    可能是笔误,26行缺少前括号“(”,27行应为“||”。

TOP

回复 4# CommandBatCmd


    以修改谢谢提醒

TOP

回复 3# bbaa


    谢谢你

TOP

返回列表