pusofalse

如果路径中有空格时会出错，因为%0会自动在路径首尾加上引号。

everest79

原帖由 qingfengzhixia 于 2008-11-14 20:52 发表




有没有人能解释一下。
两处不懂
1。“'tasklist /fi "windowtitle eq 标题" /nh'
2。wmic

tasklist中的/fi参数是一个筛选器，随后的 "windowtitle eq 标题"是这个筛选器的条件，指窗口标题为‘标题’的即符合要求，/nh参数去掉了表头，方便在for中提取数据

wmic 是windows wmi标准的一个简化工具，在这里使用wmic查询了当前PID为%handle%的进程的启动命令行

everest79

原帖由 slore 于 2008-11-14 12:01 发表
不管是路径，标题的都是有空钻的……多开的话，检测就有问题。

如何能得到当前cmd的pid是关键。

Microsoft Windows XP [版本 5.1.2600]
(C) 版权所有 1985-2001 Microsoft Corp.

C:\Documents and Setting ...

根据你要求改了下

@ECHO OFF&Set /A _wt=%random%/2
title 标题%_wt%
For /f "tokens=2" %%i in ('tasklist /fi "windowtitle eq 标题%_wt%" /nh') Do set handle=%%i
wmic process where handle='%handle%' get commandline|findstr /i /c:"cmd \/c"&&set HH=PAUSE


%HH%
 
 
 
复制代码

everest79

原帖由 shqf 于 2008-11-14 22:39 发表
各位试试行吗？我在本机上试符合要求了
@echo off
if "%0"=="%~0" (echo CMD中手动输入运行) else (echo 双击运行)
pause
exit

"%0"有一半的可能会出现两重引号，这在IF里会被识别为非法并且中断命令行

例如你的批处理文件名为：bath title.cmd
那么你的判断就不能成立

slore

原帖由 everest79 于 2008-11-15 05:00 发表


根据你要求改了下

@ECHO OFF&Set /A _wt=%random%/2
title 标题%_wt%
For /f "tokens=2" %%i in ('tasklist /fi "windowtitle eq 标题%_wt%" /nh') Do set handle=%%i
wmic process where handle='%handle ...

……

加随机标题只是……
我可以取一个文件夹名为标题XXX
不一定是那个BAT……

所以要搞一个不重复的标题……

当然加了随机或者起很奇怪的名字，99%也许都可以通过……

但是从原理上分析就只要这样是不行的，总能找出不匹配的。

everest79

要得到切实可靠的PID理论上是可行的，但为了让批处理执行是更人性化一点添加过多代码有顾此失彼的歉疑

以cscript.exe执行这个脚本即可得到cmd的PID

Dim Wsh,Wmi
Set Wsh=CreateObject("WScript.Shell")
Set Wmi=GetObject("winmgmts:\\.\root\cimv2")
Set Hta=Wsh.Exec("mshta 1")
For Each i In Wmq(Hta.ProcessID)
    WScript.Echo "脚本PID       :" & i.ParentProcessID
    For Each j In Wmq(i.ParentProcessID)
        WScript.Echo "脚本命令行    :" & j.CommandLine & vbCrLf &_
                     "脚本父进程PID :" & j.ParentProcessID
        For Each k In Wmq(j.ParentProcessID)
            WScript.Echo "脚本父进程名称:" & k.Name & vbCrLf &_
                         "脚本父进程命令:" & k.CommandLine
        Next
    Next
Next
Hta.Terminate

Function Wmq(Pid)
Set Wmq=Wmi.ExecQuery("Select * From Win32_Process Where ProcessID='" & Pid & "'")
End Function
复制代码

slore

。。。

VBS方便……

但是貌似题目是P处理哦

everest79

勉为其难调用下吧，嘿嘿

523066680

嘿嘿 这个不是太难的东西，反倒是我觉得其做他题目 有些吃力不讨好了
学了点vbs后觉得很多东西用vbs解只需要一个函数就可以了。
所以啊还是学习它的优点好了。

不过。楼主这样的题目可以做什么呢？很 有用的
可以利用这个原理防止用户双击批处理运行，只有经过调用才能运行批处理
这不是很有用么

还有其他用处的吧  我们只是缺少发现美的眼睛

yzlsc

新手迷糊，测试后怎么感觉没一个正确答案？

find

回复 25# yzlsc


感觉你的测试方法不对头

lincc0519

我也发一个，这个代码能解决start命令调用的情况，但在start /b这种情况下会出现2个进程共用一个窗口，本来想结束一个进程，但这样就失去了start /b命令的原意，同时新窗口下要求pause的情况，所以也就没用处理，要真处理还真是个麻烦事！代码只在windows xp下测试过！

@echo off&setlocal enabledelayedexpansion
doskey /history|findstr .>nul
if !errorlevel! equ 0 echo cmd命令调用执行&exit/b
set str=
for /l %%a in (1,1,10) do set str=!str!!random!
if [%1]==[] (
    start /b "" "%~nx0" !str!>nul
    set com=echo.
) else (
    set com=pause
)
!com!>nul
for /f "skip=1 tokens=1,2" %%a in ('wmic process where "commandline='c:\\windows\\system32\\cmd.exe  /k "%～nx0"  !str!'" get processid^,parentprocessid') do (
    set /a pid=%%b,ppid=%%a
)
taskkill /pid !pid! /t /f 1>nul 2>nul
set pid=!ppid!
for /f "skip=1" %%a in ('wmic process where "processid=!pid!" get parentprocessid') do set ppid=%%a
for /f "skip=1" %%a in ('wmic process where "processid=!ppid!" get caption') do set name=%%a
if /i !name!==explorer.exe echo windows操作界面执行&pause>nul&exit/b
if /i !name!==cmd.exe echo cmd命令调用执行&exit/b
echo !name!程序执行&exit/b
复制代码