Printable View
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
anyone :(
If you just want it removed, you could use a command prompt... Outside of windows that is...
VB Code:
thanks alot my friend i will give this a try :D
its saying file1 compile error
With File1
varible not defined
You need to add a filebox control. Looks like a letter icon on the toolbox.
nice one m8 , it compiled nicely :P
i will let you know how the program goes
thanks again
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 :/
did you set the timer interval in properties. Set it to 1 or so.
Actually you'll need to change that to,
VB Code:
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
i just need to make the compiled exe kill its self
say after 30 seconds of killing processes and deleting
anyone know how to
anyone :(
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