DSR! escribió: 31 Ago 2021, 21:36
Busca ejemplo de killers en ese lenguaje. Igual la heuristica te lo va a terminar detectando seguramente.
Por lo menos en las soluciones de seguridad decentes.
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_QUIT = &H12
Private Sub Form_Load()
Kill_Program ("BidAssistant.exe")
Kill_Program ("EvalBidAssistant.exe")
End Sub
Private Sub Kill_Program(ProgramName As String)
Private Sub Kill_Program(ProgramName As String)
Dim WinWnd As Long
WinWnd = FindWindow(vbNullString, ProgramName)
If WinWnd <> 0 Then
PostMessage WinWnd, WM_QUIT, 0&, 0&
Else
' do nothing or
MsgBox "No window of name " & ProgramName & " exists."
End If
Probé este hermano pero no obtuve el resultado que quería, porque el proceso no se borró, se quedó, quería matar el proceso y borrar el ejecutable que hace el proceso, ya que es un proceso en uso.