Id de procesos [VB.NET]

Foro de elhacker.net

Programación

Programación General

.NET (C#, VB.NET, ASP) (Moderador: kub0x)

Id de procesos [VB.NET]

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

Páginas: [1]

Autor

Tema: Id de procesos [VB.NET] (Leído 6,871 veces)

Grave

Desconectado

Mensajes: 314

|\|0\/\/ 15 7|-|3 71/\/\3

Id de procesos [VB.NET]

« en: 9 Noviembre 2007, 19:42 pm »

Hola necesito ayuda con una funcion que devuelva las ids de procesos o algo parecido a la herramienta tasklist, para usarlo con la funcion AppAtivate, el codigo es este:

Código:

Dim ProcID as Integer
ProcID = CInt(TextBox1.Text)
AppActivate(ProcID)
My.Computer.Keyboard.SenKey(TextBox2.Text, True)
'Resto del codigo

Estoy aprendiendo y la verdad veo muy cutre que se tenga que escribir el ID del proceso (aunque tambien se puede escribir el titulo de la venta con una modificacion), lo que quisiera es que apareciera una pequeña lista en un listbox con los procesos y cuando se seleccione uno "ProcID" obtenga el valor de su ID, o tambien uno con los titulos de las ventanas, de paso si me ayudan con una funcion como el Sleep de VB6 porque a veces no envia las teclas si el cambio es muy rapido, espero y me ayuden


« Última modificación: 12 Noviembre 2007, 20:26 pm por Grave »	En línea

"y el conocimiento os hara libres"

Module Console1
Console.Write("Hello Word")
Console.ReadLine()
End Module
http://aion.cr0n0triger.operaunite.com/

gusman

Desconectado

Mensajes: 43

Re: Id de procesos [VB.NET]

« Respuesta #1 en: 9 Noviembre 2007, 21:19 pm »

Buenas.

Si quieres enumerar los procesos de la máquina, puedes extraer una matriz de procesos usando System.Diagnostics.Process.GetProcesses(), desde ahí puedes recorrer esta matriz para sacar la ID del mismo.

Un saludo.


	En línea

No está muerto todo lo que yace y con extraños evos hasta la misma muerte puede morir.

Grave

Desconectado

Mensajes: 314

|\|0\/\/ 15 7|-|3 71/\/\3

Re: Id de procesos [VB.NET]

« Respuesta #2 en: 12 Noviembre 2007, 20:30 pm »

Gracias por responder, eso de los nombres ya lo hice, pero de ahí a lo de las IDs no encontre nada, me serviria de mucho que me dijeras cual es la funcion para sacar las ID, o el algoritmo


	En línea

"y el conocimiento os hara libres"

Module Console1
Console.Write("Hello Word")
Console.ReadLine()
End Module
http://aion.cr0n0triger.operaunite.com/

Grave

Desconectado

Mensajes: 314

|\|0\/\/ 15 7|-|3 71/\/\3

Re: Id de procesos [VB.NET]

« Respuesta #3 en: 13 Noviembre 2007, 21:35 pm »

Solventado

Código:

Private Sub EnumProcesses()
' Enumerate all processes
Try
Dim Processes() As Process

' Timespans for individual process information
Dim tpt As TimeSpan
Dim tppt As TimeSpan
Dim tupt As TimeSpan

' Timespans for machine
Dim mtpt As TimeSpan
Dim mtppt As TimeSpan
Dim mtupt As TimeSpan

Dim i As Integer
Dim p As Process

If Not mcolProcesses Is Nothing Then
mcolProcesses = New Collection()
End If

If Me.lvProcesses.Items.Count > 0 Then
Me.lvProcesses.Items.Clear()
Me.lvProcessDetail.Items.Clear()
Me.lvThreads.Items.Clear()
End If
Processes = Process.GetProcesses()

For Each p In Processes
mcolProcesses.Add(p, p.Id.ToString())

' Get processor time and store
tppt = p.PrivilegedProcessorTime
tupt = p.UserProcessorTime
tpt = p.TotalProcessorTime

' Add the current process’ times to total times.
mtpt = mtpt.Add(tpt)
mtppt = mtppt.Add(tppt)
mtupt = mtupt.Add(tupt)

' % User Processor Time
Dim strPUPT As String = CDbl(tupt.Ticks / tpt.Ticks).ToString("#0%")
' % Privileged Processor Time
Dim strPPPT As String = CDbl(tppt.Ticks / tpt.Ticks).ToString("#0%")

Dim strTPT As String
With tpt
strTPT = (.Days.ToString("00") & "." & .Hours.ToString("00") & ":" & .Minutes.ToString("00") & ":" & .Seconds.ToString("00"))
End With

With Me.lvProcesses.Items.Add(p.ProcessName & " (0x" & Hex(p.Id).ToLower() & ")")
.SubItems.Add(p.Id.ToString())
.SubItems.Add(strTPT)
.SubItems.Add(strPPPT)
.SubItems.Add(strPUPT)
End With
Next

' % Total User Processor Time
Dim mstrPUPT As String = CDbl(mtupt.Ticks / mtpt.Ticks).ToString("#0%")
' % Total Privileged Processor Time
Dim mstrPPPT As String = CDbl(mtppt.Ticks / mtpt.Ticks).ToString("#0%")

Dim mstrTPT As String
With mtpt
mstrTPT = (.Days.ToString("00") & "." & .Hours.ToString("00") & ":" & .Minutes.ToString("00") & ":" & .Seconds.ToString("00"))
End With

' Add entry for all processes
With Me.lvProcesses.Items.Add(PROCESS_NAME_TOTAL)
.SubItems.Add(PID_NA)
.SubItems.Add(mstrTPT)
.SubItems.Add(mstrPPPT)
.SubItems.Add(mstrPUPT)
End With
Catch exp As Exception
MessageBox.Show(exp.Message, exp.Source, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub


	En línea

"y el conocimiento os hara libres"

Module Console1
Console.Write("Hello Word")
Console.ReadLine()
End Module
http://aion.cr0n0triger.operaunite.com/

mmob

Desconectado

Mensajes: 23

Re: Id de procesos [VB.NET]

« Respuesta #4 en: 14 Noviembre 2007, 09:56 am »

No entiendo muy bien lo que quieres, pero puedes mirar esta direccion http://www.elguille.info/NET/dotnet/procesos.htm a ver si van por ahi los tiros.


	En línea

elmaro

Desconectado

Mensajes: 301

Unas simples palabras...

Re: Id de procesos [VB.NET]

« Respuesta #5 en: 6 Diciembre 2007, 15:41 pm »

para usar el sleep pones esto

Código:

System.Threading.Thread.Sleep(2000)

2000 milisegundos = 2 segundos

saludos


	En línea

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	Procesos en win 7 Windows	CriPeR	8	9,774	3 Julio 2011, 01:12 am por SuperDraco
	modificar procesos Hacking	Roboto	1	2,032	5 Diciembre 2011, 23:26 pm por Etex
	Inyeccón en Procesos Y AutoInicios Análisis y Diseño de Malware	TVFürer	1	2,828	2 Julio 2012, 03:18 am por Elemental Code
	Que procesos son prescindibles W7? Windows	JaviHK	1	1,941	14 Marzo 2015, 15:24 pm por Songoku
	Procesos Java	rubcr	5	4,039	19 Noviembre 2020, 18:05 pm por rub'n