Really Cool VB6 Project! [source available]

[...:::ONE:::...]

Sorry about the long long wait (again) for the final version of Auto Killer v 2.0 I have done so many diffrent things compared to the older version. Since the last post where i listed the final upgrades, I have been working on the reg editor for a while and have finaly finished it. Just a few more touches and you guys can get the latest version.

Also I have been working on a professional looking not too flashy UI for the forms with a little sound effects like click sounds and rolover sounds, sort of like Microsoft Money. And I have figured out how to run certian Virus and Spyware Scans depending on the program (Norton Anti-Virus, Zone Alarm, and a couple spyware programs like Adware and Spybot) thats all I coulg get for the moment. The automatic update feature will download new program capabilities for the scan manager and also what ever bugs I fixed in later versions.

Well its almost done, for about 15 mb it a powerful little program. I expect it to appear on the forms in about 2 weeks. If you want to knoe more information just e0mail me and i'll send send you a list of the features and what every you might want to know.

Thanks for your support!

...:::ONE:::...

[Elroy]

I'm almost a decade late but hey ho. I was just browsing around and saw this and thought I'd give my version of it:

Public Sub KillProcess(ByVal sProcessName As String)
    ' Kill process using Visual Basic 6 0 and WMI.
    ' The full .exe name (including the .exe) is supplied, but no path.
    ' Example: KillProcess "excel.exe"
    ' BE CAREFUL:  No prompt for saving takes place.
    ' ALSO, it kills all occurrences.
    Dim oWMI As Object
    Dim ret As Long
    Dim oServices As Object
    Dim oService As Object
    Dim sServiceName As String
    '
    On Error Resume Next
    sProcessName = LCase$(sProcessName)
    Set oWMI = GetObject("WinMgmts:")
    Set oServices = oWMI.InstancesOf("win32_process")
    '
    For Each oService In oServices
        sServiceName = LCase$(Trim$(CStr(oService.Name)))
        'Debug.Print sServiceName
        If sServiceName = sProcessName Then
            ret = oService.Terminate
        End If
    Next
End Sub

Be careful though. That piece of code is very powerful. If you know the .EXE name of a process, you can kill about anything you want. Be careful though. If you do something like KillProcess "WinWord.exe", it'll kill Word with no prompt to save work or anything. It'll just be thrown out of memory.