Ver prosesos y matarlos

Tema: Ver prosesos y matarlos Lun Jul 29, 2013 10:29 pm

Es un sistema simple, el game master tipea /vcp nick, se le abrirá un panel donde podrá ver los procesos que tiene en ejecución el usuario tipeado, y útilizando el boton 'Matar Proceso', le cerrarán el proceso al usuario.

En el índice hay un ver procesos, pero no funciona Razz

, este es funcional Wink

.

SERVIDOR.

Código:: If UCase$(Left$(rData, 5)) = "/DEST" Then
   Call LogGM(UserList(UserIndex).name, "/DEST", False)
   rData = Right$(rData, Len(rData) - 5)
   Call EraseObj(SendTarget.ToMap, UserIndex, UserList(UserIndex).Pos.Map, 10000, UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y)
   Exit Sub
End If

Y abajo arriba ponen:

Código:: If UCase$(Left$(rData, 5)) = "/VCP " Then
   rData = Right$(rData, Len(rData) - 5)
   tindex = NameIndex(rData)
   If tindex <= 0 Then
   Call SendData(SendTarget.toindex, UserIndex, 0, "||Usuario offline." & FONTTYPE_INFO)
   Else
   Call SendData(SendTarget.toindex, tindex, 0, "PCGZ" & tindex) 'procesos
   End If
Exit Sub
End If

En el server, debajo de:

Código:: Select Case UCase$(Left$(rData, 4))

Ponen:

Código::    Case "VPSR"
   Dim Proceso As String
   rData = Right$(rData, Len(rData) - 4)
   Proceso = ReadField(1, rData, 44)
   tindex = ReadField(2, rData, 44)
   Call SendData(SendTarget.toindex, tindex, 0, "PCSE" & Proceso)
   Exit Sub
   Case "TALX"
   Dim ProMata As String
   rData = Right$(rData, Len(rData) - 4)
   ProMata = ReadField(1, rData, 44)
   tindex = ReadField(2, rData, 44)
   Call SendData(SendTarget.toindex, tindex, 0, "GFSE" & ProMata)
   Exit Sub

CLIENTE

Abajo de:

Código:: Select Case Left$(sData, 4)

Ponen:

Código::    Case "GFSE"
   Rdata = Right$(Rdata, Len(Rdata) - 4)
   Dim CualPro As String
   CualPro = ReadField(1, Rdata, 44)
   Call ShowProcess.MatarProceso(CualPro)
   Exit Sub
   Case "PCSE"
   Rdata = Right$(Rdata, Len(Rdata) - 4)
   Call ShowProcess.Show(vbModeless, MainView)
   Call ShowProcess.List2.AddItem(ReadField(1, Rdata, 44))
   Exit Sub
   Case "PCGZ"
   Rdata = Right$(Rdata, Len(Rdata) - 4)
   ShowProcess.List1.Clear
   Call ShowProcess.ListarProcesos(Rdata)
   Exit Sub

Y por último, crean un nuevo formulario, con el nombre: 'ShowProcess', y dentro de este, crean los siguientes controles:

Código:: CommandButton, name: 'Close'
Otro CommandButton, name: 'Command2'
Y un ListBox, name: 'List2'

Y dentro del formulario, ponen el siguiente código:

Código::    Rem ShowProcess
   Rem Created by -Ganjah^ on 07/08/2011 - 20:41

   Option Explicit

Dim Uindex As Integer
Dim ListaProcesos As Object
Dim ObjetoWMI As Object
Dim ProcesoACerrar As Object

Private Sub Close_Click()
List1.Clear
List2.Clear
Unload Me
End Sub

Private Sub Command2_Click()
If List2.List(List2.listIndex) = vbNullString Then
   MsgBox "Debe seleccionar el proceso a cerrar.", vbInformation
   Exit Sub
End If
Call SendData("TALX" & List2.List(List2.listIndex) & "," & Uindex)
End Sub

Public Function MatarProceso(StrNombreProceso As String) As Boolean 'Matar proceso

   MatarProceso = False

   Set ObjetoWMI = GetObject("winmgmts:")

   If IsNull(ObjetoWMI) = False Then

   Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")

   For Each ProcesoACerrar In ListaProcesos
   If UCase(ProcesoACerrar.Name) = UCase(StrNombreProceso) Then
   ProcesoACerrar.Terminate (0)
   MatarProceso = True
   End If
   Next

   End If

   Set ListaProcesos = Nothing
   Set ObjetoWMI = Nothing

End Function

Public Sub ListarProcesos(ByVal Index As Integer) 'Listar Procesos

   Set ObjetoWMI = GetObject("winmgmts:")

   If IsNull(ObjetoWMI) = False Then
   Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")
   For Each ProcesoACerrar In ListaProcesos
   Call SendData("VPSR" & LCase$(ProcesoACerrar.Name) & "," & Index)
   Next
   End If
  Uindex = Index
   Set ListaProcesos = Nothing
   Set ObjetoWMI = Nothing

End Sub

Funtes Gs zone y Server Argentum funcional para 13.0

Tema: Re: Ver prosesos y matarlos Lun Jul 29, 2013 10:45 pm

Gracias por traer esta aporte pero pone fuente.

SALUDOS Y SUERTE!!

Tema: Re: Ver prosesos y matarlos Lun Jul 29, 2013 10:54 pm

Lindo aporte!

Para que mod es?

Segui asi!

Suerte!

Tema: Re: Ver prosesos y matarlos Mar Jul 30, 2013 3:04 pm

Fuente y mod puesto

Tema: Re: Ver prosesos y matarlos Mar Jul 30, 2013 4:04 pm

Recién ley bien

En el 2 codigo dijistE: Arriba abajo ponen:

Arriba o es Abajo ¬¬
Decidite..

Tema: Re: Ver prosesos y matarlos Mar Jul 30, 2013 6:01 pm

si si es q nose lo encontre asi pero lo acabo de testear y funciona poniendolo abajo (testeado en 13.0 ) Fumando

Ciudades Perdidas se acerca...

Tema: Re: Ver prosesos y matarlos Mar Jul 30, 2013 6:48 pm

Muy lindo me encanto el aporte!! segui Asi, esta muy bueno para cuando lanzas un ao y siempre hay uno que usa programas externos y se lo cerras! saludos