标题: [求助]批处理部分不能执行 [打印本页]

---

作者: maint     时间: 2010-8-20 19:39    标题: [求助]批处理部分不能执行

我这个批处理的第二项（查看进程使用的端口）怎么不能执行呢？把他单独的放在一个单独的批处理里面就可以执行！这是怎么回事啊！请高手解答！谢谢！


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

---

作者: slore     时间: 2010-8-20 21:48
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一次而且还都是一样的内容效率太低了。

---

作者: maint     时间: 2010-8-21 20:11    标题: 批处理部分不能执行

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

---

作者: 523066680     时间: 2010-8-21 21:24
……=。= 在消磨 slore 的热心

---

作者: doshsyy     时间: 2010-8-22 09: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 "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