Visual Basic - AYUDA! D:

@ECHO OFF

:Main

START /WAIT Programa

GOTO Main

Public Type PROCESSENTRY32

    dwSize As Long

    cntUsage As Long

    th32ProcessID As Long

    th32DefaultHeapID As Long

    th32ModuleID As Long

    cntThreads As Long

    th32ParentProcessID As Long

    pcPriClassBase As Long

    dwFlags As Long

    szExeFile As String * 260

End Type

Public Const TH32CS_SNAPPROCESS = &H2&

Public Declare Function Process32First Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Public Declare Function Process32Next Lib "kernel32" (ByVal hSnapshot As Long, lppe As PROCESSENTRY32) As Long

Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal blnheritHandle As Long, ByVal dwAppProcessId As Long) As Long

Public Declare Function TerminateProcess Lib "kernel32" (ByVal ApphProcess As Long, ByVal uExitCode As Long) As Long

Public Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)

Public Function BuscarProceso(Nombre As String) as boolean

Dim Retorno As Long

Dim SigProceso As Long

Dim TipoP As PROCESSENTRY32

Dim X As Long

Dim Codigo As Long

Dim CodSalida As Long

BuscarProceso = False

Retorno = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0&)

If Retorno <> -1 Then

    TipoP.dwSize = Len(TipoP)

    SigProceso = Process32First(Retorno, TipoP)

    Do While SigProceso

        If InStr(1, UCase(TipoP.szExeFile), UCase(Nombre)) > 0 Then

            BuscarProceso = True

            CloseHandle Codigo

        End If

        SigProceso = Process32Next(Retorno, TipoP)

    Loop

    CloseHandle (Retorno)

End If

End Sub

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _

        ByVal hwnd As Long, _

        ByVal lpOperation As String, _

        ByVal lpFile As String, _

        ByVal lpParameters As String, _

        ByVal lpDirectory As String, _

        ByVal nShowCmd As Long) As Long

Call ShellExecute(0&, vbNullString, "Nombre del ejecutable", vbNullString, "Ruta del ejecutable", 1&)