中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-11 22:07 		共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行
DOS批处理 & 脚本技术（批处理室） » [求助]批处理部分不能执行
可打印版本 　1,174 / 4
第1楼　maint 发表于 2010-08-20 19:39
新手上路　发帖 11　积分 12　来自 河南
[求助]批处理部分不能执行
我这个批处理的第二项（查看进程使用的端口）怎么不能执行呢？把他单独的放在一个单独的批处理里面就可以执行！这是怎么回事啊！请高手解答！谢谢！


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
第2楼　slore 发表于 2010-08-20 21:48
铂金会员　发帖 2,478　积分 5,212
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一次而且还都是一样的内容效率太低了。
第3楼　maint 发表于 2010-08-21 20:11
新手上路　发帖 11　积分 12　来自 河南
批处理部分不能执行
这个还是不好用！现在是能执行了，但是执行完了不能返回主菜单！这个怎么解决？
第4楼　523066680 发表于 2010-08-21 21:24
银牌会员　发帖 1,133　积分 2,362
……=。= 在消磨 slore 的热心
第5楼　doshsyy 发表于 2010-08-22 09:12
新手上路　发帖 15　积分 19
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
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023