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

回复 11# xczxczxcz
这样改是否快些,另外利用多开合并方法,纯批也可以实现几秒钟几万个甚至更多吧
  1. @echo off & setlocal EnableDelayedExpansion
  2. cd/d "%~dp0"
  3. set /a n=-1,m=1,count=10000
  4. for %%a in (q w e r t y u i o p a s d f g h j k l z x c v b n m 0 1 2 3 4 5 6 7 8 9) do (set /a n+=1 & set "#!n!=%%a")
  5. (for /l %%a in () do (
  6.     set /a n0=!random!%%26,n1=!random!%%36,n2=!random!%%36,n3=!random!%%36,n4=!random!%%36,n5=!random!%%36,n6=!random!%%36
  7.     set "s="
  8.     for /l %%b in (0 1 6) do (for %%c in (!n%%b!) do set s=!s!!#%%c!)
  9.     if !m! leq %count% (
  10.         for /f "delims=0123456789" %%b in ("!s!") do (if "%%~b" neq "!s!" (set /a m+=1&echo;!s!@126.com))
  11.     ) else exit
  12. ))>"email.txt"
复制代码
1

评分人数

    • xczxczxcz: 很历害,感觉被MS骗了,也可以为空。且更快 ...技术 + 1
提供bat代写,为你省时省力省事,支付宝扫码头像支付
微信: unique2random

TOP

返回列表