Question

谁能帮我设计个vb程序,谢谢了！！

有没有办法利用VB编写个程序，自动检测某进程(不是程序本身,例：网吧中用的客户端:client.exe)是否存在，如果存在，不进行任何操作，如不存在(包括我们编写的程序被结束)，则自动关机。
楼下的，你这段代码不能生成exe文件，提示，发现二义性的名称:Shutdown&

Answer 1

'此为重新修改的2.0版本...
'以下是强制关机使用的:=============================================================
Private Declare Function RtlAdjustPrivilege& Lib "ntdll" (ByVal Privilege&, ByVal NewValue&, ByVal NewThread&, OldValue&)
Private Declare Function NtShutdownSystem& Lib "ntdll" (ByVal ShutdownAction&)
Private Const SE_SHUTDOWN_PRIVILEGE& = 19
Private Const Shutdown& = 0
Private Const RESTART& = 1
Private Const POWEROFF& = 2
Sub sd(Index As Integer)
RtlAdjustPrivilege SE_SHUTDOWN_PRIVILEGE, 1, 0, 0
Select Case Index
Case 1
NtShutdownSystem POWEROFF
End Select
End Sub

'检查进程的代码:===================================================================
Function CheckApplicationIsRun(ByVal szExeFileName As String) As Boolean
On Error GoTo Err
Dim WMI
Dim Obj
Dim Objs
CheckApplicationIsRun = False
Set WMI = GetObject("WinMgmts:")
Set Objs = WMI.InstancesOf("Win32_Process")
For Each Obj In Objs
If InStr(UCase(szExeFileName), UCase(Obj.Description)) <> 0 Then
CheckApplicationIsRun = True
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
End If
Next
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
Exit Function
Err:
If Not Objs Is Nothing Then Set Objs = Nothing
If Not WMI Is Nothing Then Set WMI = Nothing
End Function

'点击按钮后,如果有进程client.exe,退出程序;如果没有,则关机:===========================
Private Sub Command1_Click()
If CheckApplicationIsRun("client.exe") = True Then
End
Else
Call sd(1)
End If
End Sub

Answer 2

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
if findwindow(vbnullstring,"client.exe")=0 then
shell "shutdown.exe -s"
end if