ArdentMan

@echo Off&SetLocal EnableDelayedExpansion
For /F "tokens=1,2" %%a In ('Findstr "Open" result.txt') Do (
  For /F "tokens=1-4 delims=." %%i In ("%%a") Do (
    Set "stra=000%%i"&Set "strb=000"%%j&Set "strc==000%%k"&Set "strd=000%%l"
    Set "_%%b_!stra:~-3!.!strb:~-3!.!strc:~-3!.!strd:~-3!=%%i.%%j.%%k.%%L"
  )
)
For /F "tokens=1,3 delims==_" %%i In ('Set _') Do Echo %%j>>%%i.txt
复制代码

ArdentMan

@Echo Off&SetLocal EnableDelayedExpansion
Del Result.txt 2>Nul
for /f "eol= tokens=1,2 delims= " %%i in (1.txt) do s syn %%i %%j 135,1433,3389 /save
For /F "tokens=1,2" %%a In ('Findstr "Open" result.txt') Do (
  For /F "tokens=1-4 delims=." %%i In ("%%a") Do (
    Set "stra=000%%i"&Set "strb=000"%%j&Set "strc==000%%k"&Set "strd=000%%l"
    Set "_%%b_!stra:~-3!.!strb:~-3!.!strc:~-3!.!strd:~-3!=%%i.%%j.%%k.%%L"
  )
)
For /F "tokens=1,3 delims==_" %%i In ('Set _') Do Echo %%j>>%%i.txt
复制代码

ArdentMan

手机上网写不了什么代码，看了一下应该是set “strc==000%%k”这里多了个=号，至于扫描的速度与代码无关吧。

ArdentMan

还是粗心了

@Echo Off&SetLocal EnableDelayedExpansion
Del Result.txt 2>Nul
for /f "eol= tokens=1,2 delims= " %%i in (1.txt) do s syn %%i %%j 135,1433,3389 /save
For /F "tokens=1,2" %%a In ('Findstr "Open" result.txt') Do (
  For /F "tokens=1-4 delims=." %%i In ("%%a") Do (
    Set "stra=000%%i"&Set "strb=000"%%j&Set "strc=000%%k"&Set "strd=000%%l"
    Set "_%%b_!stra:~-3!.!strb:~-3!.!strc:~-3!.!strd:~-3!=%%i.%%j.%%k.%%l"
  )
)
For /F "tokens=1,3 delims==_" %%i In ('Set _') Do Echo %%j>>%%i.txt
复制代码