EXECUTAR PROGRAMA

Private Function barra(cString As String) 
Dim Y As Integer 
Dim result As String 
Dim PATHS As String 
For Y = 1 To Len(cString) 
    result = Mid(Right$(cString, Y), 1, 1) 
    If result = "\" Then: Exit For 
Next 
PATHS = Right$(cString, Y - 1) 
barra = PATHS 
End Function 

Private Sub Load_LstProc() 
On Error Resume Next 
lst_processos.Clear 
lst_completo.Clear 
hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) 
If hSnapShot <> 0 Then 
    uProcess.dwSize = Len(uProcess) 
    rProcess = ProcessFirst(hSnapShot, uProcess) 
    Do While rProcess 
       tPID = uProcess.th32ProcessID 
       tMID = uProcess.th32ModuleID 
       lst_processos.AddItem barra(uProcess.szExeFile) 
       lst_completo.AddItem Hex$(uProcess.th32ProcessID) & " : " & uProcess.szExeFile 
       rProcess = ProcessNext(hSnapShot, uProcess) 
    Loop 
    Call CloseHandle(hSnapShot) 
End If 
End Sub 

Private Sub Form_Load() 
    Load_LstProc 
     
    Dim I As Integer 
    For I = 0 To lst_processos.ListCount - 1 
        If UCase(lst_processos.List(I)) = "VB6.EXE" Then 
            MsgBox "Você está usando o VB" 
            Exit For 
        End If 
    Next 
End Sub 

Private Sub Timer1_Timer() 
Form_Load 
End Sub 

Public Const MAX_PATH As Integer = 260 
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 * MAX_PATH 
End Type 

Public Const TH32CS_SNAPPROCESS = &H2 
Public Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long 
Global hSnapShot As Long 
Global uProcess As PROCESSENTRY32 
Public Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long 
Public Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long 
Global rProcess As Long 
Global tPID As Long 
Global tMID As Long 
Public Declare Function CloseHandle Lib "kernel32" (ByVal hFile As Long) As Long 
Public Const PROCESS_TERMINATE = &H1 
Global cescolhido As String 
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long 
Global hProcess As Long 
Global lExitCode As Long 
Public Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long 
Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long