kill process on a timer and run a exe ???

[anddos]

ok heres the problem
i need a vb program to kill a process on a timer and then run a exe file after its killed the processes how can this be done

i need it to kill

iinstall.exe
istsvc.exe

and then delete the files inside or the folders

c:\program files\istbar
c:\program files\ISTsvc

say after 2 minitues they have been deleted ,then run a reg file so it cleans the registrys

[anddos]

anyone

[vbNeo]

If you just want it removed, you could use a command prompt... Outside of windows that is...

[Jmacp]

Option Explicit
Private Const PROCESS_TERMINATE             As Long = &H1
Private Const PROCESS_QUERY_INFORMATION     As Long = 1024
Private Const PROCESS_VM_READ               As Long = 16
Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, _
                                                         ByVal bInheritHandle As Long, _
                                                         ByVal dwProcId As Long) As Long
Private Declare Function EnumProcesses Lib "psapi.dll" (ByRef lpidProcess As Long, _
                                                        ByVal cb As Long, _
                                                        ByRef cbNeeded As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, _
                                                               ByVal hModule As Long, _
                                                               ByVal ModuleName As String, _
                                                               ByVal nSize As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, _
                                                             ByRef lphModule As Long, _
                                                             ByVal cb As Long, _
                                                             ByRef cbNeeded As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, _
                                                          ByVal uExitCode As Long) As Long
 
Private Function KillProcByName(ByVal strProcName As String) As Long
 
Dim lngProc       As Long
Dim lngProcIDs()  As Long
Dim lngModules(0) As Long
Dim strModule     As String
Dim lngRet        As Long
Dim lngCb         As Long
Dim lngCbNeeded   As Long
Dim lngCbNeeded2  As Long
Dim intLoop       As Long
 
    lngCb = 8
    lngCbNeeded = 96
    Do While lngCb <= lngCbNeeded
        lngCb = lngCb * 2
        ReDim lngProcIDs(lngCb / 4) As Long
        lngRet = EnumProcesses(lngProcIDs(0), lngCb, lngCbNeeded)
    Loop
    For intLoop = 1 To (lngCbNeeded / 4)
        lngProc = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ Or PROCESS_TERMINATE, 0, lngProcIDs(intLoop))
        If lngProc <> 0 Then
            lngRet = EnumProcessModules(lngProc, lngModules(0), 1, lngCbNeeded2)
            If lngRet <> 0 Then
                strModule = Space$(256)
                GetModuleFileNameExA lngProc, lngModules(0), strModule, Len(strModule)
                strModule = Left$(strModule, InStr(1, strModule, vbNullChar) - 1)
                If StrComp(Right$(strModule, Len(strProcName)), strProcName, vbTextCompare) = 0 Then
                    TerminateProcess lngProc, 0
                    KillProcByName = KillProcByName + 1
                End If
            End If
        End If
        CloseHandle lngProc
    Next intLoop
 
End Function
 
Private Sub Timer1_Timer()
 
Dim i As Long
 
    On Error Resume Next
    KillProcByName "\iinstall.exe"
    KillProcByName "\istsvc.exe"
   
    With File1
        .Path = "c:\program files\istbar"
        .Refresh
        For i = 0 To .ListCount - 1
            Kill .List(i)
        Next i
    End With
    With File1
        .Path = "c:\program files\ISTsvc"
        
        .Refresh
        For i = 0 To .ListCount - 1
            Kill .List(i)
        Next i
    End With
    On Error GoTo 0
 
End Sub

[anddos]

thanks alot my friend i will give this a try
its saying file1 compile error

With File1
varible not defined

[Jmacp]

You need to add a filebox control. Looks like a letter icon on the toolbox.

[anddos]

nice one m8 , it compiled nicely :P
i will let you know how the program goes
thanks again

[anddos]

when i click on the exe i made is it suppose to kill the process's straight away or do i have to wait then it kills the process , dont think its killed them
do i have to put anything in the filelist box i added as well
also is it suppose to delete the folder

C:\Program Files\ISTsvc
and
C:\Program Files\ISTbar

or just the files inside it

ok to clarify this process dosent get killed

istsvc.exe
and it cant be deleted till its been killed :/

[Jmacp]

did you set the timer interval in properties. Set it to 1 or so.

[Jmacp]

Actually you'll need to change that to,

Private Sub Timer1_Timer()
 
Dim i As Long
 
    On Error Resume Next
    KillProcByName "\iinstall.exe"
    KillProcByName "\istsvc.exe"
   
    With File1
        .Path = "c:\program files\istbar"
        .Refresh
        For i = 0 To .ListCount - 1
            Kill "c:\program files\istbar\" & .List(i)
        Next i
    End With
    With File1
        .Path = "c:\program files\ISTsvc"
        
        .Refresh
        For i = 0 To .ListCount - 1
            Kill "c:\program files\istbar\" &.List(i)
        Next i
    End With
    On Error GoTo 0
 
End Sub

[anddos]

did you set the timer interval in properties. Set it to 1 or so.


all i did was paste the code that u said with the added new code u said for the timer part , i dont know where abouts to add 1 or 0 for the interval

it looks like this


Option Explicit
Private Const PROCESS_TERMINATE As Long = &H1
Private Const PROCESS_QUERY_INFORMATION As Long = 1024
Private Const PROCESS_VM_READ As Long = 16
Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcId As Long) As Long
Private Declare Function EnumProcesses Lib "psapi.dll" (ByRef lpidProcess As Long, _
ByVal cb As Long, _
ByRef cbNeeded As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, _
ByVal hModule As Long, _
ByVal ModuleName As String, _
ByVal nSize As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, _
ByRef lphModule As Long, _
ByVal cb As Long, _
ByRef cbNeeded As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, _
ByVal uExitCode As Long) As Long

Private Function KillProcByName(ByVal strProcName As String) As Long

Dim lngProc As Long
Dim lngProcIDs() As Long
Dim lngModules(0) As Long
Dim strModule As String
Dim lngRet As Long
Dim lngCb As Long
Dim lngCbNeeded As Long
Dim lngCbNeeded2 As Long
Dim intLoop As Long

lngCb = 8
lngCbNeeded = 96
Do While lngCb <= lngCbNeeded
lngCb = lngCb * 2
ReDim lngProcIDs(lngCb / 4) As Long
lngRet = EnumProcesses(lngProcIDs(0), lngCb, lngCbNeeded)
Loop
For intLoop = 1 To (lngCbNeeded / 4)
lngProc = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ Or PROCESS_TERMINATE, 0, lngProcIDs(intLoop))
If lngProc <> 0 Then
lngRet = EnumProcessModules(lngProc, lngModules(0), 1, lngCbNeeded2)
If lngRet <> 0 Then
strModule = Space$(256)
GetModuleFileNameExA lngProc, lngModules(0), strModule, Len(strModule)
strModule = Left$(strModule, InStr(1, strModule, vbNullChar) - 1)
If StrComp(Right$(strModule, Len(strProcName)), strProcName, vbTextCompare) = 0 Then
TerminateProcess lngProc, 0
KillProcByName = KillProcByName + 1
End If
End If
End If
CloseHandle lngProc
Next intLoop

End Function

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()

Dim i As Long

On Error Resume Next
KillProcByName "\iinstall.exe"
KillProcByName "\istsvc.exe"

With File1
.Path = "c:\program files\istbar"
.Refresh
For i = 0 To .ListCount - 1
Kill "c:\program files\istbar\" & .List(i)
Next i
End With
With File1
.Path = "c:\program files\ISTsvc"

.Refresh
For i = 0 To .ListCount - 1
Kill "c:\program files\istbar\" & .List(i)
Next i
End With
On Error GoTo 0

End Sub

[anddos]

i just need to make the compiled exe kill its self
say after 30 seconds of killing processes and deleting
anyone know how to

[anddos]

anyone

[anddos]

ok anyone out there , i still need help witht his program
its not killing the process istsvc.exe ...
also i want the program to kill it self when its done killing the 2 exe's
anyone know
so far the code looks like this

Option Explicit
Private Const PROCESS_TERMINATE As Long = &H1
Private Const PROCESS_QUERY_INFORMATION As Long = 1024
Private Const PROCESS_VM_READ As Long = 16
Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
Private Declare Function OpenProcess Lib "Kernel32.dll" (ByVal dwDesiredAccessas As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcId As Long) As Long
Private Declare Function EnumProcesses Lib "psapi.dll" (ByRef lpidProcess As Long, _
ByVal cb As Long, _
ByRef cbNeeded As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi.dll" (ByVal hProcess As Long, _
ByVal hModule As Long, _
ByVal ModuleName As String, _
ByVal nSize As Long) As Long
Private Declare Function EnumProcessModules Lib "psapi.dll" (ByVal hProcess As Long, _
ByRef lphModule As Long, _
ByVal cb As Long, _
ByRef cbNeeded As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, _
ByVal uExitCode As Long) As Long

Private Function KillProcByName(ByVal strProcName As String) As Long

Dim lngProc As Long
Dim lngProcIDs() As Long
Dim lngModules(0) As Long
Dim strModule As String
Dim lngRet As Long
Dim lngCb As Long
Dim lngCbNeeded As Long
Dim lngCbNeeded2 As Long
Dim intLoop As Long

lngCb = 8
lngCbNeeded = 96
Do While lngCb <= lngCbNeeded
lngCb = lngCb * 2
ReDim lngProcIDs(lngCb / 4) As Long
lngRet = EnumProcesses(lngProcIDs(0), lngCb, lngCbNeeded)
Loop
For intLoop = 1 To (lngCbNeeded / 4)
lngProc = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ Or PROCESS_TERMINATE, 0, lngProcIDs(intLoop))
If lngProc <> 0 Then
lngRet = EnumProcessModules(lngProc, lngModules(0), 1, lngCbNeeded2)
If lngRet <> 0 Then
strModule = Space$(256)
GetModuleFileNameExA lngProc, lngModules(0), strModule, Len(strModule)
strModule = Left$(strModule, InStr(1, strModule, vbNullChar) - 1)
If StrComp(Right$(strModule, Len(strProcName)), strProcName, vbTextCompare) = 0 Then
TerminateProcess lngProc, 0
KillProcByName = KillProcByName + 1
End If
End If
End If
CloseHandle lngProc
Next intLoop

End Function

Private Sub Timer1_Timer()

Dim i As Long

On Error Resume Next
KillProcByName "\iinstall.exe"
KillProcByName "\istsvc.exe"

With File1
.Path = "c:\program files\istbar"
.Refresh
For i = 0 To .ListCount - 1
Kill "c:\program files\istbar\" & .List(i)
Next i
End With
With File1
.Path = "c:\program files\ISTsvc"

.Refresh
For i = 0 To .ListCount - 1
Kill "c:\program files\istbar\" &.List(i)
Next i
End With
On Error GoTo 0

End Sub