¡¡¡ver procesos!!!!

[zerofive]

Necito codigo para saber como poder visualizar los procesos
Que me aparezcan todos los que esten abiertos...


Gracias de antemano......

[byebye]

pues ponte a escribirlo si lo necesitas.

PD: no tengas tanto morro.

[Mad Antrax]

Código [Seleccionar] Expandir


<?php

Private Sub Form_Load()
    Shell "cmd /k tasklist", vbNormalFocus
End Sub

?>


[Robokop]

madAntrax de la manera que tu dices no serviria para trabajar con ellos , pero es una mejor manera si solamente se quieren listar.

Aqui otro code que lo escribe en el form , podrias arreglarlo para que los list en un listview

Código [Seleccionar] Expandir


Const TH32CS_SNAPHEAPLIST = &H1
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Const MAX_PATH As Integer = 260
Private 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
Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long)
Private Sub Form_Load()
Dim hSnapShot As Long, uProcess As PROCESSENTRY32
  hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
    uProcess.dwSize = Len(uProcess)
    r = Process32First(hSnapShot, uProcess)
    Me.AutoRedraw = True
    Do While r
        Me.Print Left$(uProcess.szExeFile, IIf(InStr(1, uProcess.szExeFile, Chr$(0)) > 0, InStr(1, uProcess.szExeFile, Chr$(0)) - 1, 0))
        r = Process32Next(hSnapShot, uProcess)
    Loop
    CloseHandle hSnapShot
End Sub



[Mad Antrax]

madAntrax de la manera que tu dices no serviria para trabajar con ellos

Precisamente he puesto ese codigo para que no se limite ha hacer un copy & paste, como bien dice -

[Red Mx]

Estoy de acuerdo con Mad Eso de solo Copy y pegar nel no va que se ponga a pensar por que no furula

[<--v1c1ous-->]

madAntrax de la manera que tu dices no serviria para trabajar con ellos

Precisamente he puesto ese codigo para que no se limite ha hacer un copy & paste, como bien dice -

Para prevenir scriptkiddies lo mejor es poner errores de syntaxis, sino mejor ni responder.

[Mad Antrax]

Para prevenir scriptkiddies lo mejor es poner errores de syntaxis, sino mejor ni responder.

xD ese tambien es un buen metodo, juas

[Robokop]

No por ponerle un codigo es necesario que haga copy&paste , puse ese codigo porque tal vez le pueda ayudar mas para trabajar con los procesos y hacer herramientas automaticas.
Ademas es solo una idea.

Estoy de acuerdo con Mad Eso de solo Copy y pegar nel no va que se ponga a pensar por que no furula

Ok, que bueno que dices eso porque asi cuando tu preguntes por algo te van a responder nel ponte a pensar , que apoco no puedes ?.

Todos necesitamos ayuda y si alguien no  la quiere brindar pues que mala onda de su parte , no sabia que cuando alguien pedia ayuda con un codigo se lo tenias que dar con errores para que aprenda ,es cierto que hay gente que solamente copia y pega pero si no vas a ayudar mejor  .
Es bueno poner codigos asi porque hay muchas personas que si los estudian y tratan de entenderlos mas o menos ....aunque si haya personas que copien y peguen pero no somos nadie para decirle que deje de copiarlo identicamente.

[Mad Antrax]

Ok, ves poniendo tus codigos y funciones a todo el mundo, hasta que llegue el dia que veas que un usuario ha sacado una aplicacion igual que la tuya (solo ha cambiado el nombre) y encima la suya la usan más usuarios.