比如关闭 正在运行的1.exe

Private   Declare   Function   FindWindow   Lib   "user32"   Alias   "FindWindowA"   (ByVal   lpClassName   As   String,   ByVal   lpWindowName   As   String)   As   Long   
  Private   Declare   Function   SendMessage   Lib   "user32"   Alias   "SendMessageA"   (ByVal   hwnd   As   Long,   ByVal   wMsg   As   Long,   ByVal   wParam   As   Long,   lParam   As   Any)   As   Long   
  Private   Sub   Command1_Click()   
  On   Error   Resume   Next   
  aa   =   Shell("C:\WINDOWS\CALC.EXE",   1)   
  End   Sub   
  Private   Sub   Command2_Click()   
  Const   NILL   =   0&   
  Const   WM_SYSCOMMAND   =   &H112   
  Const   SC_CLOSE   =   &HF060   
  lpClassName$   =   "SciCalc"   
  lpCaption$   =   "cc"   
  Handle   =   FindWindow(lpClassName$,   lpCaption$)   
  X&   =   SendMessage(Handle,   WM_SYSCOMMAND,   SC_CLOSE,   NILL)   
  End   Sub   
這個我記得只能關閉應用程序
我沒調試

不用API能实现吗?

怎么不先搜索一下帖子呢?

这样的已经发很多次了

'关闭前面的窗体用声明
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal Hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Const PROCESS_TERMINATE = 1
'代码如下:
Private Sub Command1_Click()
Dim Ltem As Long
Dim LpID As Long
Dim hLong     As Long
Dim strWinName     As String
strWinName = "工程名称" ‘被关闭的exe工程文件名称,如"第1届"；
hLong = FindWindow(vbNullString, strWinName)
If hLong Then
GetWindowThreadProcessId hLong, LpID
Ltem = OpenProcess(PROCESS_TERMINATE, False, LpID)
TerminateProcess Ltem, 0
hLong = 0
End If
End Sub

[[it] 本帖最后由 jrs123 于 2008-6-5 12:00 编辑 [/it]]