elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Codigo] Mata Bichos =P
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Codigo] Mata Bichos =P  (Leído 1,673 veces)
CesarTkgo69

Desconectado Desconectado

Mensajes: 19


Ver Perfil
[Codigo] Mata Bichos =P
« en: 2 Diciembre 2007, 03:55 am »

Mas mula el programa jajkakajaka
pero se hace lo que se puede  :rolleyes:
para el que le sirva parte del codigo,
nuevas ideas, etc... haganlo ***** :o :xD

Controles:

- 2 cajas de texto (txtRuta y txtBicho)
- 3 botones (cmdBuscar, malo y Command2)
- 1 CommonDialog (AbrirArchivo)
- 1 Listbox (List1) (carga procesos)

Código
  1. Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
  2. Private Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
  3. Private Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
  4. Private Declare Sub CloseHandle Lib "kernel32" (ByVal hPass As Long)
  5. Private Type PROCESSENTRY32
  6.           dwSize As Long
  7.           cntUsage As Long
  8.           th32ProcessID As Long
  9.           th32DefaultHeapID As Long
  10.           th32ModuleID As Long
  11.           cntThreads As Long
  12.           th32ParentProcessID As Long
  13.           pcPriClassBase As Long
  14.           dwFlags As Long
  15.           szExeFile As String * 260
  16.       End Type
  17.  
  18. Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
  19. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  20. Const PROCESS_TERMINATE = &H1
  21. Const PROCESS_CREATE_THREAD = &H2
  22. Const PROCESS_VM_OPERATION = &H8
  23. Const PROCESS_VM_READ = &H10
  24. Const PROCESS_VM_WRITE = &H20
  25. Const PROCESS_DUP_HANDLE = &H40
  26. Const PROCESS_CREATE_PROCESS = &H80
  27. Const PROCESS_SET_QUOTA = &H100
  28. Const PROCESS_SET_INFORMATION = &H200
  29. Const PROCESS_QUERY_INFORMATION = &H400
  30. Const STANDARD_RIGHTS_REQUIRED = &HF0000
  31. Const SYNCHRONIZE = &H100000
  32. Const PROCESS_ALL_ACCESS = STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &HFFF
  33.  
  34. ////// Pausar
  35. Sub Pause(interval)
  36. Current = Timer
  37. Do While Timer - Current < Val(interval)
  38. DoEvents
  39. Loop
  40. End Sub
  41.  
  42. ///// Rellenar List1 con procesos activos
  43. Sub RellenaLista()
  44. Dim hSnapShot As Long
  45. Dim uProceso As PROCESSENTRY32
  46. Dim res As Long
  47.  
  48. List1.Clear
  49. hSnapShot = CreateToolhelpSnapshot(2&, 0&)
  50. If hSnapShot <> 0 Then
  51.   uProceso.dwSize = Len(uProceso)
  52.   res = ProcessFirst(hSnapShot, uProceso)
  53.   Do While res
  54.      List1.AddItem Left$(uProceso.szExeFile, InStr(uProceso.szExeFile, Chr$(0)) - 1)
  55.      List1.ItemData(List1.NewIndex) = uProceso.th32ProcessID
  56.      res = ProcessNext(hSnapShot, uProceso)
  57.   Loop
  58.   Call CloseHandle(hSnapShot)
  59. End If
  60.  
  61. End Sub
  62.  
  63. ////// Buscar el ejecutable en cuestion
  64. Private Sub cmdBuscar_Click()
  65. With AbrirArchivo
  66.    .Filter = "Bichos Ejecutables! (*.exe)|*.exe"
  67.    .DialogTitle = "Buscando Bicho a Exterminar !!"
  68.    .ShowOpen
  69.  
  70. If .FileTitle = "" Then
  71. malo.Visible = False
  72. Exit Sub
  73. End If
  74.  
  75. End With
  76. txtBicho = AbrirArchivo.FileTitle
  77. cuadro1.Caption = "Archivo " & "|" & AbrirArchivo.FileTitle & "|"
  78. txtRuta = AbrirArchivo.FileName
  79. RellenaLista
  80. malo.Visible = False
  81. End Sub
  82.  
  83. ////// Manda a la cresta el proceso y elimina el archivo
  84. Private Sub Command2_Click()
  85. malo.Visible = True
  86. On Error GoTo err
  87. RellenaLista
  88. Dim hProcess As Long, iResult As Long, Resp As Integer
  89.    List1.Text = txtBicho
  90. If List1.Text = txtBicho Then
  91.    hProcess = OpenProcess(PROCESS_TERMINATE, True, List1.ItemData(List1.ListIndex))
  92.    iResult = TerminateProcess(hProcess, 99)
  93.    CloseHandle hProcess
  94.    DoEvents
  95.    Kill txtRuta
  96.    Pause 2
  97.    MsgBox "  Matanga dijo la changa !!  ", vbInformation, "Bicho Elimindo!"
  98.    malo.Visible = True
  99. Else
  100.    Resp = MsgBox("No existe proceso activo..." & vbCrLf & "Desea eliminar el archivo?", vbQuestion + vbYesNo, "Eliminar Bicho?")
  101.    If Resp = 7 Then malo.Visible = False
  102.    If Resp = 6 Then Kill txtRuta: Pause 2: MsgBox "  Matanga dijo la changa !!  ", vbInformation, "Bicho Elimindo!": malo.Visible = True
  103.    Exit Sub
  104. End If
  105. End Sub
  106.  
  107. ////// Rellena el List1 al cargar el formulario po
  108. Private Sub Form_Load()
  109. RellenaLista
  110. End Sub
  111.  

jakjkaja
y eso era po
al que le sirva  ;)

Chauuuuuz
Saludos desde Chile


« Última modificación: 2 Diciembre 2007, 03:59 am por CesarTkgo69 » En línea

[Zero]
Wiki

Desconectado Desconectado

Mensajes: 1.082


CALL DWORD PTR DS:[0]


Ver Perfil WWW
Re: [Codigo] Mata Bichos =P
« Respuesta #1 en: 2 Diciembre 2007, 20:24 pm »

Gran aporte, estudiando el codigo......
Salu2


En línea


“El Hombre, en su orgullo, creó a Dios a su imagen y semejanza.”
Nietzsche
Sh4k4


Desconectado Desconectado

Mensajes: 965


xMHT


Ver Perfil
Re: [Codigo] Mata Bichos =P
« Respuesta #2 en: 3 Diciembre 2007, 00:53 am »

interesting code chekando too... edu200*??
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
RichTextBox que me mata la cabeza..
Programación Visual Basic
rembolso 0 1,356 Último mensaje 24 Noviembre 2010, 01:50 am
por rembolso
a nadie le han dañando el pc las hormigas u otros bichos?
Hardware
flacc 8 10,385 Último mensaje 10 Febrero 2011, 20:00 pm
por flacc
Google mata a Bambi
Foro Libre
BlackZeroX 1 2,823 Último mensaje 27 Septiembre 2011, 15:02 pm
por #!drvy
Nokia 'explosivo' mata a una adolescente en la India
Noticias
wolfbcn 2 1,524 Último mensaje 21 Marzo 2018, 20:31 pm
por Orubatosu
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines