Mensajes

M... no me sirve pòr que con eso obtenes un array y yo necesito buscarlo por nombre del proceso o algo asi

Buenas foro!...

Como andan?

les traigo una dudilla como puedo obtener el PID: Process ID de un programa???
si puede ser por el nombre del mismo, yo la unica forma que conozco para obtenerlo es asi:

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Dim PID As String
PID = Shell(Environ("windir") & "\system32\calc.exe", vbNormalFocus)
MsgBox "El Process ID de la calculadora es: " & PID, vbInformation, "Obtener PID"
End Sub


pero yo lo que necesito no es obtener el PID de un Programa que yo ejecute si no que necesito obtener el PID de uno que este abierto.

Muchas Gracias!

[USANDO EL BUSCADOR]

Enconte esto USANDO EL BUSCADOR. Fijate si te sirve

http://foro.elhacker.net/empty-t264773.0.html

Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Global v(44)
Global tx1
Public Const VK_A = &H41
Public Const VK_Control = vbKeyControl


Public Function key()
If GetAsyncKeyState(&H41) Then
If GetAsyncKeyState(vbKeyControl) Then
MsgBox "apretaste ctrl+A"
End If
End If
End Function

listo ya  funciona gracias a todos por contestar
en especial a nuestro amigo agus0 de microsoft que programo la api q hizo ewsto posible

P.D: Yo la parte del Condicional If.. lo haria asi

Código [Seleccionar] Expandir

If GetAsyncKeyState(&H41) And GetAsyncKeyState(vbKeyControl) Then
MsgBox "apretaste ctrl+A"
End If
para escribir menos.

ademas borra las constantes total no las usas

me estas jodiendo yo no programe la api te mostre cual y como usarla si no te pondria el codigo fuente de la api

Me alegro de que te alla servido

Código [Seleccionar] Expandir

Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Global v(44)
Global tx1
Public Const VK_A = &H41
Public Const VK_Control = vbKeyControl


Public Function key()
If GetAsyncKeyState(&H41) * GetAsyncKeyState(vbKeyControl) <> 0 Then
MsgBox "apretaste A"
End If
End Function


hice esta "cosa" la funcion quey se repite en un lop dentro de un timer... aparentemente la chota esta anda pero... al precionar las teclas  "ctrl + a" me tira una ventana de error "Error 6 en tiempo de ejecucion: Desbordamiento"

agradecería q alguien me digera q significa y q causa el error

saludos

Como "la chota esta..." es verdad que no he prestado mucha atencion para hacerlo nu mucha dedicacion pero me llevo mi tiempo y te aseguro 100% que anda... por que obviamente antes de postiarlo lo probe... y ni siquiera unas gracias de tu parte recivi...

Hola es facil con GetAsyncKeyState

ejemplo de Ctrl+a

En un Modulo (*.bas)

Código [Seleccionar] Expandir


Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Global v(44)
Global tx1
Public Const VK_A = &H41
Public Const VK_Control = vbKeyControl


en un Form

Código [Seleccionar] Expandir


Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_Control) * GetAsyncKeyState(VK_A) <> 0 Then
MsgBox "Apretaste CTRL+A"
End If
End Sub


Hola que tal comunidad..
Hoy vengo con muchos problemas

Alguien tiene idea de por que el WebBrowser no abre los link "_Parent"

Es decir navego en una web hago clic en un link y anda...

pero en otros link no respinde..

no se por que alguien sabe?

Hola que tal comunidad...

Bueno les comento estoy haciendo un programa que descargue musica de goear...
con una herramiente INET obtengo este codigo fuente...

Código [Seleccionar] Expandir

<?xml version="1.0" encoding="UTF-8"?>
<songs>
   <song path="http://www.goear.com/files/sst4/3b42284a326aa0c94983db513e9ed4e8.mp3" bild="img/s.jpg" artist="hasta el final" title="18 kilates"/>
</songs>

Lo que yo necesito es "limpiarlo" para solo tener el link (http://www.goear.com/files/sst4/3b42284a326aa0c94983db513e9ed4e8.mp3) el

Código [Seleccionar] Expandir





Private Sub Command1_Click()

Dim cadena As String
cadena = "<?xml version=" + Chr(34) + "1.0" + Chr(34) + " encoding=" + Chr(34) + "UTF-8" + Chr(34) + "?>" + vbNewLine + "<songs>" + vbNewLine + _
         "<song path=" + Chr(34) + "http://www.goear.com/files/sst4/3b42284a326aa0c94983db513e9ed4e8.mp3" + Chr(34) + " bild=" + Chr(34) + "img/s.jpg" + Chr(34) + " artist=" + Chr(34) + "hasta el final" + Chr(34) + " title=" + Chr(34) + "18 kilates" + Chr(34) + "/>" + vbNewLine + _
          "</songs>"

MsgBox cadena

cadena = Replace(cadena, " ", "")
cadena = Replace(cadena, vbNewLine, "")

MsgBox cadena

Dim inicio As Long: inicio = InStr(1, cadena, "path=") + Len("path=")
Dim fin As Long: fin = InStr(1, cadena, "bild=")


Dim nuevacadena As String: nuevacadena = Mid(cadena, inicio, fin - inicio)


MsgBox nuevacadena

End Sub




GRACIAS Dessa!!!!   

Disculpa no te entendi muy bien :S