搜索路径查杀进程 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

怎么查看某一进程如果有就倒入一个文本,然后自动搜索出原文件然后删除

导入文本多此一举，如确实需要导入，自行修改。。。。

结束进程删除文件实例

看效果请放在桌面执行。


Dim WshSHell,FSO
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Source=FSO.BuildPath(FSO.GetSpecialFolder(0) ,"NOTEPAD.EXE")
Target=FSO.BuildPath(WshSHell.SpecialFolders(4),"NOTEPAD.EXE")
FSO.GetFile(Source).Copy(Target)
WScript.Sleep 1000
WshSHell.popup "复制‘记事本’到桌面-(复制文件)。",5,"这是个结束进程删除文件的实例-QQ25926183",0+64
WshSHell.Run (chr(34)&Target&chr(34))
WScript.Sleep 1000
WshSHell.popup "运行‘记事本’在桌面-(创建进程)。",5,"这是个结束进程删除文件的实例-QQ25926183",0+64
for each ps in getobject _
("winmgmts:\\.\root\cimv2:win32_process").instances_
if LCase(ps.name)="notepad.exe" then
WshSHell.Run ("ntsd -c q -p "&ps.handle), vbHide
WshSHell.popup "关闭‘记事本’在任务-(结束进程)。",5,"这是个结束进程删除文件的实例-QQ25926183",0+64
WScript.Sleep 1000
FSO.DeleteFile ps.executablepath
WshSHell.popup "删除‘记事本’从桌面-(删除文件)。",5,"这是个结束进程删除文件的实例-QQ25926183",0+64
end if
next
Set WshSHell = Nothing
Set FSO = Nothing
WScript.Quit(0)

[ Last edited by baomaboy on 2007-4-4 at 03:23 AM ]

还是不懂啊.你写的那段代码是什么啊? 我复制下来也不能运行什么. 我的意思是说比如:进程中有一个MY.EXE正在运行,检测进程查看确实属实.然后杀了它.然后搜索MY.EXE的文件路径.搜索到把MY.EXE删除.:P

Originally posted by qq77584570 at 2007-4-4 11:59:
还是不懂啊.你写的那段代码是什么啊? 我复制下来也不能运行什么. 我的意思是说比如:进程中有一个MY.EXE正在运行,检测进程查看确实属实.然后杀了它.然后搜索MY.EXE的文件路径.搜索到把MY.EXE删除.:P

I服了you!


Dim WshSHell,FSO
Set WshSHell = WScript.CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
for each ps in getobject _
("winmgmts:\\.\root\cimv2:win32_process").instances_
if LCase(ps.name)="my.exe" then'''-----查找进程my.exe
WshSHell.Run ("ntsd -c q -p "&ps.handle), vbHide'''-----终止进程my.exe
WScript.Sleep 1000
FSO.DeleteFile ps.executablepath'''-----删除文件my.exe
end if
next
Set WshSHell = Nothing
Set FSO = Nothing
WScript.Quit(0)

[ Last edited by baomaboy on 2007-4-4 at 01:06 PM ]

对VBS不懂，但我要结束多个进程怎么改？
是把

if LCase(ps.name)="my.exe" then'''-----查找进程my.exe
WshSHell.Run ("ntsd -c q -p "&ps.handle), vbHide'''-----终止进程my.exe
WScript.Sleep 1000
FSO.DeleteFile ps.executablepath'''-----删除文件my.exe
end if

重复吗？
我想应有更简洁的代码吧！！

[ Last edited by lotus516 on 2007-6-23 at 01:07 AM ]

第1楼　qq77584570	发表于 2007-04-03 11:19
初级用户　发帖 14　积分 40
搜索路径查杀进程怎么查看某一进程如果有就倒入一个文本,然后自动搜索出原文件然后删除

第2楼　baomaboy	发表于 2007-04-04 01:08
银牌会员　发帖 554　积分 1,513
导入文本多此一举，如确实需要导入，自行修改。。。。结束进程删除文件实例看效果请放在桌面执行。 Dim WshSHell,FSO Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Source=FSO.BuildPath(FSO.GetSpecialFolder(0) ,"NOTEPAD.EXE") Target=FSO.BuildPath(WshSHell.SpecialFolders(4),"NOTEPAD.EXE") FSO.GetFile(Source).Copy(Target) WScript.Sleep 1000 WshSHell.popup "复制‘记事本’到桌面-(复制文件)。",5,"这是个结束进程删除文件的实例-QQ25926183",0+64 WshSHell.Run (chr(34)&Target&chr(34)) WScript.Sleep 1000 WshSHell.popup "运行‘记事本’在桌面-(创建进程)。",5,"这是个结束进程删除文件的实例-QQ25926183",0+64 for each ps in getobject _ ("winmgmts:\\.\root\cimv2:win32_process").instances_ if LCase(ps.name)="notepad.exe" then WshSHell.Run ("ntsd -c q -p "&ps.handle), vbHide WshSHell.popup "关闭‘记事本’在任务-(结束进程)。",5,"这是个结束进程删除文件的实例-QQ25926183",0+64 WScript.Sleep 1000 FSO.DeleteFile ps.executablepath WshSHell.popup "删除‘记事本’从桌面-(删除文件)。",5,"这是个结束进程删除文件的实例-QQ25926183",0+64 end if next Set WshSHell = Nothing Set FSO = Nothing WScript.Quit(0) [ Last edited by baomaboy on 2007-4-4 at 03:23 AM ]

第3楼　qq77584570	发表于 2007-04-04 11:59
初级用户　发帖 14　积分 40
还是不懂啊.你写的那段代码是什么啊? 我复制下来也不能运行什么. 我的意思是说比如:进程中有一个MY.EXE正在运行,检测进程查看确实属实.然后杀了它.然后搜索MY.EXE的文件路径.搜索到把MY.EXE删除.:P

第4楼　baomaboy	发表于 2007-04-04 12:54
银牌会员　发帖 554　积分 1,513
Originally posted by qq77584570 at 2007-4-4 11:59: 还是不懂啊.你写的那段代码是什么啊? 我复制下来也不能运行什么. 我的意思是说比如:进程中有一个MY.EXE正在运行,检测进程查看确实属实.然后杀了它.然后搜索MY.EXE的文件路径.搜索到把MY.EXE删除.:P I服了you! Dim WshSHell,FSO Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") for each ps in getobject _ ("winmgmts:\\.\root\cimv2:win32_process").instances_ if LCase(ps.name)="my.exe" then'''-----查找进程my.exe WshSHell.Run ("ntsd -c q -p "&ps.handle), vbHide'''-----终止进程my.exe WScript.Sleep 1000 FSO.DeleteFile ps.executablepath'''-----删除文件my.exe end if next Set WshSHell = Nothing Set FSO = Nothing WScript.Quit(0) [ Last edited by baomaboy on 2007-4-4 at 01:06 PM ]

第5楼　lotus516	发表于 2007-06-23 01:06
高级用户　发帖 246　积分 551
对VBS不懂，但我要结束多个进程怎么改？是把 if LCase(ps.name)="my.exe" then'''-----查找进程my.exe WshSHell.Run ("ntsd -c q -p "&ps.handle), vbHide'''-----终止进程my.exe WScript.Sleep 1000 FSO.DeleteFile ps.executablepath'''-----删除文件my.exe end if 重复吗？我想应有更简洁的代码吧！！ [ Last edited by lotus516 on 2007-6-23 at 01:07 AM ]