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

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Mensajes
Páginas: 1 ... 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 [29] 30 31 32 33 34 35 36
281  Programación / Programación Visual Basic / Re: [Ayuda] Como puedo obtener el Process ID de un Programa (PID) en: 15 Noviembre 2009, 00:42 am
M... no me sirve pňr que con eso obtenes un array y yo necesito buscarlo por nombre del proceso o algo asi
282  Programación / Programación Visual Basic / [Solucionado] Como puedo obtener el Process ID de un Programa (PID) en: 15 Noviembre 2009, 00:00 am
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:
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!
283  Programación / Programación Visual Basic / Re: saltarse UAC Windows Vista en: 12 Noviembre 2009, 23:24 pm
Enconte esto USANDO EL BUSCADOR. Fijate si te sirve :)

http://foro.elhacker.net/empty-t264773.0.html
284  Programación / Programación Visual Basic / Re: requiero de buestra asistenciosa asistencia en: 12 Noviembre 2009, 01:05 am
Cita de: The_Bug en 12 Noviembre 2009, 00:50 am
Citar
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:
If GetAsyncKeyState(&H41) And GetAsyncKeyState(vbKeyControl) Then
MsgBox "apretaste ctrl+A"
End If
para escribir menos.

ademas borra las constantes total no las usas
285  Programación / Programación Visual Basic / Re: requiero de buestra asistenciosa asistencia en: 12 Noviembre 2009, 00:58 am
me estas jodiendo yo no programe la api te mostre cual y como usarla si no te pondria el codigo fuente de la api :laugh: :laugh: :laugh:

Me alegro de que te alla servido
286  Programación / Programación Visual Basic / Re: requiero de buestra asistenciosa asistencia en: 12 Noviembre 2009, 00:04 am
Cita de: The_Bug en 11 Noviembre 2009, 22:58 pm
Código:
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...
287  Programación / Programación Visual Basic / Re: requiero de buestra asistenciosa asistencia en: 11 Noviembre 2009, 01:28 am
Hola es facil con GetAsyncKeyState

ejemplo de Ctrl+a

En un Modulo (*.bas)

Código:
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:
Private Sub Timer1_Timer()
If GetAsyncKeyState(VK_Control) * GetAsyncKeyState(VK_A) <> 0 Then
MsgBox "Apretaste CTRL+A"
End If
End Sub
288  Programación / Programación Visual Basic / [Problema] WebBrowser no anda bien... en: 9 Noviembre 2009, 00:38 am
Hola que tal comunidad..
Hoy vengo con muchos problemas ;D ;D

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?
289  Programación / Programación Visual Basic / Re: [Ayuda] Filtrar texto en: 8 Noviembre 2009, 22:49 pm
Cita de: Dessa en  8 Noviembre 2009, 22:43 pm
Cita de: agus0 en  8 Noviembre 2009, 19:59 pm
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:
<?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:



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!!!!   ;-) ;-) ;-)
290  Programación / Programación Visual Basic / Re: [Ayuda] Filtrar texto en: 8 Noviembre 2009, 20:59 pm
Disculpa no te entendi muy bien :S
Páginas: 1 ... 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 [29] 30 31 32 33 34 35 36
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines