|
luckboy45
中级用户
积分 487
发帖 212
注册 2007-4-1
状态 离线
|
『楼 主』:
这段VBS为什么提示语法错误?
使用 LLM 解释/回答一下
由于需要检测CMD是否存在于进程中,一旦检测到就提示,未检测到就运xcopy.txt
请各位帮忙修正,由于本人水平有限,所以麻烦各位了!~在线等...
Set WshShell = WScript.CreateObject("WScript.Shell")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'cmd.exe'")
IF IsArray(colProcessList) Then MsgBox "亲爱的朋友,请先关闭该软件后,再运行本程序执行备份", 64, "友情提示"
Else WshShell.Run "xcopy.txt"
end if
|
逍遥@浪子@反病毒 |
|
 2008-2-14 19:42 |
|
|
fastslz
铂金会员
DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
|
『第 2 楼』:
使用 LLM 解释/回答一下
Set WshShell = WScript.CreateObject("WScript.Shell")
Set objWMIService = Getobject("Winmgmts:")
Set colProcessList = objWMIService.ExecQuery _
("select * from Win32_Process where name='cmd.exe'")
IF IsArray(colProcessList) Then
MsgBox "亲爱的朋友,请先关闭该软件后,再运行本程序执行备份", 64, "友情提示"
Else
WshShell.Run "xcopy.txt"
end if
|
第一高手 第二高手
我的小站
 |
|
|
2008-2-14 20:36 |
|
|
luckboy45
中级用户
积分 487
发帖 212
注册 2007-4-1
状态 离线
|
『第 3 楼』:
使用 LLM 解释/回答一下
谢谢了!~代码貌似无法实现判断啊...麻烦帮我修改成能判断那CMD进程是否确实存在,如果存在则提示,不存在则运行XCOPY.TXT
Last edited by luckboy45 on 2008-2-14 at 09:12 PM ]
|
逍遥@浪子@反病毒 |
|
|
2008-2-14 21:04 |
|
|
fastslz
铂金会员
DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
|
『第 4 楼』:
使用 LLM 解释/回答一下
Set Ws = CreateObject("WScript.Shell")
Dim Wmi, Proc, Info, Flag, Target
Target = "cmd.exe"
Flag = False
Set Wmi = Getobject("Winmgmts:")
Set Proc = Wmi.Execquery("Select * From Win32_Process")
For Each Info In Proc
If Info.Name = Target Then Flag = True
Next
If Flag = False Then
Ws.Run "xcopy.txt"
Else
MsgBox "亲爱的朋友,请先关闭该软件后,再运行本程序执行备份", 64, "友情提示"
End If
|
第一高手 第二高手
我的小站
|
|
|
2008-2-14 21:12 |
|
|
luckboy45
中级用户
积分 487
发帖 212
注册 2007-4-1
状态 离线
|
|
|
2008-2-14 21:18 |
|
|
fastslz
铂金会员
DOS一根葱
积分 5493
发帖 2315
注册 2006-5-1
来自 上海
状态 离线
|
『第 6 楼』:
使用 LLM 解释/回答一下
Set WsShell = CreateObject("WScript.Shell")
Set objWMIService = Getobject("Winmgmts:")
Set ColProcessList = objWMIService.ExecQuery _
("select * from Win32_Process where name='cmd.exe'")
For Each objProcess In ColProcessList
intReturn = objProcess.Terminate(1)
Next
WsShell.Run "xcopy.txt"
直接杀死CMD进程后运行xcopy.txt
|
第一高手 第二高手
我的小站
|
|
|
2008-2-14 21:42 |
|
