中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [求助]批处理部分不能执行

maint
新手上路

积分 12
发帖 11
注册 2010-7-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 "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

2010-8-20 19:39

(1171787676)

slore
铂金会员

积分 5212
发帖 2478
注册 2007-2-8
状态离线

『第 2 楼』:

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

2010-8-20 21:48

maint
新手上路

积分 12
发帖 11
注册 2010-7-19
来自河南
状态离线

『第 3 楼』: 批处理部分不能执行

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

2010-8-21 20:11

(1171787676)

523066680
银牌会员

SuperCleaner

积分 2362
发帖 1133
注册 2008-2-2
状态离线

『第 4 楼』:

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

综合型编程论坛

我的作品索引

2010-8-21 21:24

(523066680)

doshsyy
新手上路

积分 19
发帖 15
注册 2010-8-20
状态离线

『第 5 楼』:

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

2010-8-22 09:12

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: