help terminateEXE(RESOLVED)

[ksuwanto8ksd]

this code is working but can terminate only one EXE but not all listed EXE
in the command1_click event. If any of you
can highlight this trouble code is greatly appreciated. Thanks so much
in advance for all response
Kamus

in module1:
========

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 Type OSVERSIONINFO
  dwOSVersionInfoSize As Long
  dwMajorVersion As Long
  dwMinorVersion As Long
  dwBuildNumber As Long
  dwPlatformId As Long
  szCSDVersion As String * 128
End Type
 
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 CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
Public Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, ByVal bInheritHandle As Long, ByVal dwProcId As Long) As Long
Public Declare Function EnumProcesses Lib "psapi.dll" (ByRef lpidProcess As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Public Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, ByVal hModule As Long, ByVal ModuleName As String, ByVal nSize As Long) As Long
Public Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, ByRef lphModule As Long, ByVal cb As Long, ByRef cbNeeded As Long) As Long
Public Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Public Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long
Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
 
Public Const PROCESS_TERMINATE = &H1
Public Const VER_PLATFORM_WIN32_WINDOWS = 1
Public Const PROCESS_QUERY_INFORMATION = 1024
Public Const PROCESS_VM_READ = 16
Public Const TH32CS_SNAPPROCESS = &H2
 
Public Function CheckVersion() As Long
  Dim tOS As OSVERSIONINFO
  tOS.dwOSVersionInfoSize = Len(tOS)
  Call GetVersionEx(tOS)
  CheckVersion = tOS.dwPlatformId
End Function
 
Public Function GetEXEProcessID(ByVal sEXE As String) As Long
  Dim aPID() As Long
  Dim lProcesses As Long
  Dim lProcess As Long
  Dim lModule As Long
  Dim sName As String
  Dim iIndex As Integer
  Dim bCopied As Long
  Dim lSnapShot As Long
  Dim tPE As PROCESSENTRY32
  Dim bDone As Boolean
  
  If CheckVersion() = VER_PLATFORM_WIN32_WINDOWS Then
    'Windows 9x
    'Create a SnapShot of the Currently Running Processes
    lSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0)
    If lSnapShot < 0 Then Exit Function
    tPE.dwSize = Len(tPE)
    'Buffer the First Processes Info..
    bCopied = Process32First(lSnapShot, tPE)
    Do While bCopied
      'While there are Processes List them..
      sName = Left$(tPE.szExeFile, InStr(tPE.szExeFile, Chr(0)) - 1)
      sName = Mid(sName, InStrRev(sName, "\") + 1)
      If InStr(sName, Chr(0)) Then
        sName = Left(sName, InStr(sName, Chr(0)) - 1)
      End If
      bCopied = Process32Next(lSnapShot, tPE)
      If StrComp(sEXE, sName, vbTextCompare) = 0 Then
        GetEXEProcessID = tPE.th32ProcessID
        Exit Do
      End If
    Loop
    
  Else
    'Windows NT
    'The EnumProcesses Function doesn't indicate how many Process there are,
    'so you need to pass a large array and trim off the empty elements
    'as cbNeeded will return the no. of Processes copied.
    ReDim aPID(255)
    Call EnumProcesses(aPID(0), 1024, lProcesses)
    lProcesses = lProcesses / 4
    ReDim Preserve aPID(lProcesses)
    
    For iIndex = 0 To lProcesses - 1
      'Get the Process Handle, by Opening the Process
      lProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, aPID(iIndex))
      If lProcess Then
        'Just get the First Module, all we need is the Handle to get
        'the Filename..
        If EnumProcessModules(lProcess, lModule, 4, 0&) Then
          sName = Space(260)
          Call GetModuleFileNameExA(lProcess, lModule, sName, Len(sName))
          If InStr(sName, "\") > 0 Then
            sName = Mid(sName, InStrRev(sName, "\") + 1)
          End If
          If InStr(sName, Chr(0)) Then
            sName = Left(sName, InStr(sName, Chr(0)) - 1)
          End If
          If StrComp(sEXE, sName, vbTextCompare) = 0 Then
            GetEXEProcessID = aPID(iIndex)
            bDone = True
          End If
        End If
        'Close the Process Handle
        CloseHandle lProcess
        If bDone Then Exit For
      End If
    Next
  End If
End Function

form code :
=========

Public Function TerminateEXE(ByVal sEXE As String) As Boolean
  Dim lPID As Long
  Dim lProcess As Long
  
  Do
    lPID = GetEXEProcessID(sEXE)
    If lPID <> 0 Then
        lProcess = OpenProcess(PROCESS_TERMINATE, 0, lPID)
        Call TerminateProcess(lProcess, 0&)
        Call CloseHandle(lProcess)
    End If
  Loop Until lPID = 0
  TerminateEXE = True
End Function
 
Private Sub Command1_Click()
 
blnRet = TerminateEXE("Ragnarok.exe") And _
 blnRet = TerminateEXE("run.exe") And _
 blnRet = TerminateEXE("qRO.exe") And _
 blnRet = TerminateEXE("IEXPLORE.EXE") And _
 blnRet = TerminateEXE("amped.exe") And _
blnRet = TerminateEXE("YPager.exe") And _
 blnRet = TerminateEXE("Login.exe") And _
 blnRet = TerminateEXE("main.exe") And _
blnRet = TerminateEXE("GunBound.exe")
                    
End Sub

[ksuwanto8ksd]

and I also try with this one result is same

Private Sub Command1_Click()
blnRet = TerminateEXE("Ragnarok.exe")
blnRet = TerminateEXE("run.exe")
blnRet = TerminateEXE("qRO.exe")
 blnRet = TerminateEXE("IEXPLORE.EXE")
blnRet = TerminateEXE("amped.exe")
blnRet = TerminateEXE("YPager.exe")
blnRet = TerminateEXE("Login.exe")
blnRet = TerminateEXE("main.exe")
blnRet = TerminateEXE("GunBound.exe")
End Sub

[Hack]

Try putting a DoEvents between each call.

[ksuwanto8ksd]

Hi Hack

I'm not familiar with doevent , thats ok I will try to serch the forum first

[Hack]

Basically, DoEvents "pauses" your program.

Yields execution so that the operating system can process other events.

Syntax

DoEvents( )

Remarks

The DoEvents function returns anInteger representing the number of open forms in stand-alone versions of Visual Basic, such as Visual Basic, Professional Edition. DoEvents returns zero in all other applications.

DoEvents passes control to the operating system. Control is returned after the operating system has finished processing the events in its queue and all keys in the SendKeys queue have been sent.

DoEvents is most useful for simple things like allowing a user to cancel a process after it has started, for example a search for a file. For long-running processes, yielding the processor is better accomplished by using a Timer or delegating the task to an ActiveX EXE component.. In the latter case, the task can continue completely independent of your application, and the operating system takes case of multitasking and time slicing.

[ksuwanto8ksd]

hi Hack

I put DoEvent like this and result is same (only qRO.exe is terminated)

DoEvents
blnRet = TerminateEXE("Ragnarok.exe")
DoEvents
blnRet = TerminateEXE("run.exe")
DoEvents
blnRet = TerminateEXE("qRO.exe")
DoEvents
blnRet = TerminateEXE("IEXPLORE.EXE")
DoEvents
blnRet = TerminateEXE("amped.exe")
DoEvents
blnRet = TerminateEXE("YPager.exe")
DoEvents
blnRet = TerminateEXE("Login.exe")
DoEvents
blnRet = TerminateEXE("main.exe")
DoEvents
blnRet = TerminateEXE("GunBound.exe")

[ksuwanto8ksd]

this code also same
[vbode]

DoEvents
blnRet = TerminateEXE("Ragnarok.exe")
blnRet = TerminateEXE("run.exe")
blnRet = TerminateEXE("qRO.exe")
blnRet = TerminateEXE("IEXPLORE.EXE")
blnRet = TerminateEXE("amped.exe")
blnRet = TerminateEXE("YPager.exe")
blnRet = TerminateEXE("Login.exe")
blnRet = TerminateEXE("main.exe")
blnRet = TerminateEXE("GunBound.exe")

anyway, your response is greatly appreciated

[ksuwanto8ksd]

Thanks Hack
It working. I have put EXE name wrong

Appreciate