everest79

异同之处在于cmd的启动参数
双击时是/c参数启动的，而手动输入时是默认工作状态，也就是没参数或参数为/k

everest79

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


%HH%
复制代码

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
那么你的判断就不能成立

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
复制代码

everest79

勉为其难调用下吧，嘿嘿