中国DOS联盟

On Error Resume Next

sub Close_Process(ProcessName)

On Error Resume Next

     for each ps in getobject("winmgmts:\\.\\root\cimv2:win32_process").instances_

           if Ucase(ps.name)=Ucase(ProcessName)  then

                 ps.terminate

           end if

     next

end sub

Close_Process("notepad.exe")

On Error Resume Next

sub Close_Process(ProcessName)

On Error Resume Next

     for each ps in getobject("winmgmts:win32_process").instances_

           if Ucase(ps.name)=Ucase(ProcessName)  then

                 ps.terminate

           end if

     next

end sub

Close_Process("notepad.exe")

Originally posted by wert123 at 2008-4-15 14:15:
打开个记事本，运行后没有反映

On Error Resume Next

sub Close_Process(ProcessName)

On Error Resume Next

     for each ps in getobject("winmgmts:\\.\\root\cimv2:win32_proc ...