Mayo 27, 2018, 11:30:56 am

Autor Tema: SUPRIMIR PROCESOS  (Leído 2966 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado angelsk

  • Me das tu IP?
  • *
  • Mensajes: 3
  • Member, pOrtal HAcker
    • Ver Perfil
SUPRIMIR PROCESOS
« en: Agosto 14, 2005, 08:20:03 pm »
SUPRIMIR PROCESOS

Hola, Estoy necesitando un ejemplo vb que suprima un proceso indicado (Por ejemplo el word), Yo tengo un ejemplo pero lo unico que suprime so las aplicaciones.. Si me pueden ayudar con esto estoy muy agradecido. chau gracias

Desconectado electro-ooz

  • Me das tu IP?
  • *
  • Mensajes: 81
  • Sexo: Masculino
  • ociohacks
    • Ver Perfil
    • WwW.OcioHacks.NeT
Re: SUPRIMIR PROCESOS
« Respuesta #1 en: ſeptiembre 27, 2005, 06:01:37 am »
aca t dejo el codigo:

1 form y 1 modulo

Controles:
-2 Command Buttons> cmdProcesos
                                                                                                     cmdKill
-1 List View> Lvw
-1 ChekBox> chkPreguntar

Codigo en el form:

Código: You are not allowed to view links. Register or Login
Private Sub cmdKill_Click()
If chkPreguntar.Value = 1 Then
           If MsgBox("Esta seguro que desea terminar el proceso '" + Lvw.SelectedItem + "' ?", vbQuestion + vbYesNo) = vbYes Then
                  KillProcess (Lvw.SelectedItem)
                  cmdProcesos_Click
           End If
Else
           KillProcess (Lvw.SelectedItem)
           cmdProcesos_Click
End If
End Sub

Código: You are not allowed to view links. Register or Login
Private Sub cmdProcesos_Click()
Dim i As Long
Dim proc As PROCESSENTRY32
Dim snap As Long
Dim exename As String
Lvw.ListItems.Clear
snap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0)
proc.dwSize = Len(proc)
theloop = ProcessFirst(snap, proc)
i = 0
While theloop <> 0
exename = proc.szExeFile
ret = Lvw.ListItems.Add(, "first" & CStr(i), exename)
Lvw.ListItems("first" & CStr(i)).SubItems(1) = proc.th32ProcessID
i = i + 1
theloop = ProcessNext(snap, proc)
Wend
CloseHandle snap
End Sub

Código: You are not allowed to view links. Register or Login
Public Sub KillProcess(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


ErrHandler:
Err.Clear
End Sub

Código: You are not allowed to view links. Register or Login
Private Sub Form_Load()
Dim header As ColumnHeader
Lvw.View = lvwReport
Lvw.ColumnHeaders.Clear
Set header = Lvw.ColumnHeaders.Add(, "first", "Process", 2000)
Set header = Lvw.ColumnHeaders.Add(, "second", "ID", 950)
Lvw.Refresh
End Sub

Código: You are not allowed to view links. Register or Login
Private Sub Form_Resize()
Lvw.Height = Me.Height - 500
Lvw.Width = Me.Width - 1575
cmdKill.Left = Lvw.Width + 100
cmdProcesos.Left = Lvw.Width + 100
End Sub


Codigo en el Modulo:

Código: You are not allowed to view links. Register or Login
Public Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Public Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Public Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public Const TH32CS_SNAPPROCESS = &H2
Public Const TH32CS_SNAPheaplist = &H1
Public Const TH32CS_SNAPthread = &H4
Public Const TH32CS_SNAPmodule = &H8
Public Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodule
Public Const MAX_PATH As Integer = 260


Public Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type

espero q te sirva

ak te dejo el codigo mas resumido, x si keres que termine un proceso concreto:
'--------------------------------------------------------------------
Código: You are not allowed to view links. Register or Login
Private Sub Command1_Click()
KillProcess ("winword.exe") 'termina el proceso del Word
End Sub

Public Sub KillProcess(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


ErrHandler:
Err.Clear
End Sub
'----------------------------------------------------------------------

PD: todavia no consigo que tire un msgbox cuando no lo puede cerrar
You are not allowed to view links. Register or Login[/img][/url]


xx
Yahoo permitirá a los usuarios suprimir la publi adaptada

Iniciado por Bl@ster25

1 Respuestas
645 Vistas
Último mensaje Agosto 11, 2008, 09:06:12 am
por proton6
question
Como suprimir todas las sites Google de un grupo

Iniciado por mionline

1 Respuestas
786 Vistas
Último mensaje Enero 23, 2012, 04:50:19 pm
por soez
thumbup
Microsoft, Google y Paypal se unen para suprimir las contraseñas

Iniciado por Bl@ster25

0 Respuestas
721 Vistas
Último mensaje Junio 24, 2008, 09:23:47 am
por Bl@ster25
exclamation
BATCH para suprimir los accesos directos de las carpetas en un Pendriver

Iniciado por GuaroX

4 Respuestas
2979 Vistas
Último mensaje Agosto 04, 2010, 04:28:35 pm
por GuaroX
resuelto
¿Como crear Procesos padres y procesos hijos en C?

Iniciado por gonzac studios

10 Respuestas
14261 Vistas
Último mensaje Diciembre 11, 2009, 03:45:10 pm
por jep
xx
Procesos

Iniciado por jazer

0 Respuestas
1044 Vistas
Último mensaje ſeptiembre 28, 2007, 11:18:10 pm
por jazer
xx
ALT+TAB y Procesos

Iniciado por gospel alpha

6 Respuestas
1884 Vistas
Último mensaje Febrero 12, 2011, 05:06:08 pm
por gospel alpha
xx
5 procesos con mas % de uso de cpu

Iniciado por navivan

0 Respuestas
603 Vistas
Último mensaje Marzo 06, 2014, 05:05:39 pm
por navivan
question
Procesos del Pc?

Iniciado por khaosjimena

2 Respuestas
1160 Vistas
Último mensaje Abril 05, 2007, 07:34:38 am
por khaosjimena
xx
Procesos en c

Iniciado por Sansar

1 Respuestas
777 Vistas
Último mensaje Enero 16, 2015, 11:55:57 am
por .xAk.