会编程的进来看看

你的意思就是关闭一个程序吧？

process=InputBox("请输入进程名(如:qq)","关闭进程")
CreateObject("wscript.shell").run "tskill " & process,0

保存为tskill.vbs
--------------------------------------------------------------
你可以帮我编一个吗.？进程名字是[war3.exe]

CreateObject("wscript.shell").run "tskill war3"

代码写在模块里

Option Explicit
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As