中国DOS联盟

我这个批处理的第二项（查看进程使用的端口）怎么不能执行呢？把他单独的放在一个单独的批处理里面就可以执行！这是怎么回事啊！请高手解答！谢谢！ echo off color 1f :a cls echo. echo 1. 查 看 进 程 echo. echo 2. 查看进程使用的端口 echo. echo 3. 结 束 进 程 echo. echo. :0 set /p one= 请输入对应序号，按回车确认： if '%one%'=='1' goto 3 if '%one%'=='2' goto 2 if '%one%'=='3' goto 1 @ ECHO. echo 选择无效，请重新输入 :1 @echo off :1 cls echo. set /p run=请输入要结束的程序名: ::ntsd -c q -pn %run% taskkill /f /t /im %run% pause goto a :2 cls @echo off color 1f Title XP端口-进程查询 setlocal enabledelayedexpansion echo ╔- -╗ echo 本机开放的端口及使用该端口的进程 echo ╚- -╝ echo ------------------------------------ echo 端口号 进程名称 ECHO TCP协议: ::利用netstat命令找出使用TCP协议通信的端口，并将结果分割； ::将第二个参数(IP加端口)传给%%i，第五个参数(PID号)传给%%j; for /F "usebackq skip=4 tokens=2,5" %%i in (`"netstat -ano -p TCP"`) do ( call :Assoc %%i TCP %%j echo !TCP_Port! !TCP_Proc_Name! ) ECHO UDP协议: for /F "usebackq skip=4 tokens=2,4" %%i in (`"netstat -ano -p UDP"`) do ( call :Assoc %%i UDP %%j echo !UDP_Port! !UDP_Proc_Name! ) echo 按任意键退出 pause>nul :Assoc ::对%1(第一个参数）进行分割，将第二个参数传给%%e。在本程序中，%1即为上面的%%i(形式为：IP:端 口号) for /F "tokens=2 delims=:" %%e in ("%1") do ( set %2_Port=%%e ) :: 查询PID等于%3(第三个参数)的进程，并将结果传给变量?_Proc_Name,?代表UDP或者TCP； for /F "skip=2 usebackq delims=, tokens=1" %%a in (`"Tasklist /FI "PID eq %3" /FO CSV"`) do ( ::%%~a表示去掉%%a外面的引号，因为上述命令的结果是用括号括起来的。 set %2_Proc_Name=%%~a ) goto a :3 cls @echo for each ps in getobject _ >ps.vbs @echo ("winmgmts:\\.\root\cimv2:win32_process").instances_ >>ps.vbs @echo wscript.echo ps.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:next >>ps.vbs cscript //nologo ps.vbs & del ps.vbs pause goto a

echo off color 1f :a cls echo. echo 1. 查 看 进 程 echo. echo 2. 查看进程使用的端口 echo. echo 3. 结 束 进 程 echo. echo. :0 set /p one= 请输入对应序号，按回车确认： if '%one%'=='1' goto 3 if '%one%'=='2' goto 2 if '%one%'=='3' goto 1 @ ECHO. echo 选择无效，请重新输入 :1 @echo off :1 cls echo. set /p run=请输入要结束的程序名: ::ntsd -c q -pn %run% taskkill /f /t /im %run% pause goto a :2 cls @echo off color 1f Title XP端口-进程查询 setlocal enabledelayedexpansion echo ╔- -╗ echo 本机开放的端口及使用该端口的进程 echo ╚- -╝ echo ------------------------------------ echo 端口号 进程名称 ECHO TCP协议: ::利用netstat命令找出使用TCP协议通信的端口，并将结果分割； ::将第二个参数(IP加端口)传给%%i，第五个参数(PID号)传给%%j; for /F "skip=4 tokens=2,5" %%i in ('netstat -ano -p TCP') do ( call :Assoc %%i TCP %%j echo !TCP_Port! !TCP_Proc_Name! ) ECHO UDP协议: for /F "skip=4 tokens=2,4" %%i in ('netstat -ano -p UDP') do ( call :Assoc %%i UDP %%j echo !UDP_Port! !UDP_Proc_Name! ) echo 按任意键退出 pause>nul :Assoc ::对%1(第一个参数）进行分割，将第二个参数传给%%e。在本程序中，%1即为上面的%%i(形式为：IP:端口号) for /F "tokens=2 delims=:" %%e in ("%1") do ( set %2_Port=%%e ) :: 查询PID等于%3(第三个参数)的进程，并将结果传给变量?_Proc_Name,?代表UDP或者TCP； for /F "skip=2 tokens=1 delims=," %%a in ('Tasklist /FI "PID eq %3" /FO CSV') do ( ::%%~a表示去掉%%a外面的引号，因为上述命令的结果是用括号括起来的。 set %2_Proc_Name=%%~a ) goto :EOF goto a :3 cls @echo for each ps in getobject _ >ps.vbs @echo ("winmgmts:\\.\root\cimv2:win32_process").instances_ >>ps.vbs @echo wscript.echo ps.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:next >>ps.vbs cscript //nologo ps.vbs & del ps.vbs pause goto a 注意call的代码段要执行到文件末。。。 还有写小细节自己对比2个代码看吧。 还有assoc的效率太低。。。每次都tasklist一次。。。建议只执行一次 用 set PIDXXXX存起来。。。 这样字节拿就好了，每次都tasklist一次而且还都是一样的内容效率太低了。

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

这个还是不好用！现在是能执行了，但是执行完了不能返回主菜单！这个怎么解决？

……=。= 在消磨 slore 的热心

综合型编程论坛 我的作品索引

echo off color 1f :a cls echo. echo 1. 查 看 进 程 echo. echo 2. 查看进程使用的端口 echo. echo 3. 结 束 进 程 echo. echo. :0 set /p one= 请输入对应序号，按回车确认： if '%one%'=='1' goto 3 if '%one%'=='2' goto 2 if '%one%'=='3' goto 1 @ ECHO. echo 选择无效，请重新输入 :1 @echo off :1 cls echo. set /p run=请输入要结束的程序名: ::ntsd -c q -pn %run% taskkill /f /t /im %run% pause goto a :2 cls @echo off color 1f Title XP端口-进程查询 setlocal enabledelayedexpansion echo ╔- -╗ echo 本机开放的端口及使用该端口的进程 echo ╚- -╝ echo ------------------------------------ echo 端口号 进程名称 ECHO TCP协议: ::利用netstat命令找出使用TCP协议通信的端口，并将结果分割； ::将第二个参数(IP加端口)传给%%i，第五个参数(PID号)传给%%j; for /F "skip=4 tokens=2,5" %%i in ('netstat -ano -p TCP') do ( call :Assoc %%i TCP %%j echo !TCP_Port! !TCP_Proc_Name! ) ECHO UDP协议: for /F "skip=4 tokens=2,4" %%i in ('netstat -ano -p UDP') do ( call :Assoc %%i UDP %%j echo !UDP_Port! !UDP_Proc_Name! ) echo 按任意键退出 pause>nul goto a :Assoc ::对%1(第一个参数）进行分割，将第二个参数传给%%e。在本程序中，%1即为上面的%%i(形式为：IP:端口号) for /F "tokens=2 delims=:" %%e in ("%1") do ( set %2_Port=%%e ) :: 查询PID等于%3(第三个参数)的进程，并将结果传给变量?_Proc_Name,?代表UDP或者TCP； for /F "skip=2 tokens=1 delims=," %%a in ('Tasklist /FI "PID eq %3" /FO CSV') do ( ::%%~a表示去掉%%a外面的引号，因为上述命令的结果是用括号括起来的。 set %2_Proc_Name=%%~a ) goto :EOF :3 cls @echo for each ps in getobject _ >ps.vbs @echo ("winmgmts:\\.\root\cimv2:win32_process").instances_ >>ps.vbs @echo wscript.echo ps.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:next >>ps.vbs cscript //nologo ps.vbs & del ps.vbs pause goto a