vb closeing crossfire

[lucasheer715]

I just added something to my injector and it is closeing crossfire. If you want it just make a button that says "Close Crossfire" and do this:

Under Public Class Form1 Write this:

Public Shared Function killAProgram(ByVal procName As String, Optional ByVal all As Boolean = True) As Boolean
        Dim val As Boolean = False
        For Each procInstance As Process In Process.GetProcesses
            If procInstance.ProcessName.ToLower = procName.ToLower Then
                procInstance.Kill()
                val = True
                If Not all Then Exit For
            End If
        Next
        Return val
    End Function

Now double click ur button and write this:

        Dim TargetProcess As Process() = Process.GetProcessesByName("Crossfire")
        If TargetProcess.Length = 0 Then
        Else
            killAProgram("Crossfire")
            ' Dlls.add("Lucasheer715", Hackdlls)
        End If

To open crossfire use this:

        Try
            Shell("patcher_cf")
        Catch ex As Exception
            MsgBox("Unable to open crossfre, please put me in crossfire folder.")
        End Try