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

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Mensajes
Páginas: 1 ... 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 [20] 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 ... 46
191  Programación / Programación Visual Basic / Re: Como indetificar la secuencia de objetos de un .exe en vb 6.0 en: 10 Octubre 2009, 19:56 pm
No te entendí la pregunta o el errror
192  Programación / Programación Visual Basic / Re: Como indetificar la secuencia de objetos de un .exe en vb 6.0 en: 10 Octubre 2009, 06:23 am
SetWindowPos no tiene nada que ver en el código, la usé en los dos exes solamente para que queden los dos Form en primer plano y los puedas ver mas facil .

PD: los mensajes al segundo ejecutable van a llegar igual, aun si esta minimizado u oculto ya que estan llegando por Handdle. (no por posicion)
193  Programación / Programación Visual Basic / Re: Como indetificar la secuencia de objetos de un .exe en vb 6.0 en: 10 Octubre 2009, 04:33 am
compila y ejecuta el Proyecto1

http://rs355.rapidshare.com/files/290951605/Enviar.zip
194  Programación / Programación Visual Basic / Re: Como indetificar la secuencia de objetos de un .exe en vb 6.0 en: 10 Octubre 2009, 04:16 am
Perdon, es el contenido String de los text del exe2 el que debes usar
El bufer es no hace falta


Dim Hwndl As Long
Dim LsTexto1 As Long
Dim LsTexto2 As Long
Dim LsTexto3 As Long
Hwndl = FindWindow(vbNullString, "Alberto Olvera")
 
LsTexto1 = FindWindowEx(Hwndl, 0, vbNullString, "Text1") ' contenido strng de Text1 en el exe2
LsTexto2 = FindWindowEx(Hwndl, 0, vbNullString, "Text2") '  contenido strng de Text2 en el exe2
LsTexto3 = FindWindowEx(Hwndl, 0, vbNullString, "Text3") '  contenido strng de Text3 en el exe2

Call SendMessage(LsTexto1, WM_SETTEXT, 0, ByVal Text1.Text) ' no hace falta bufer para enviar
Call SendMessage(LsTexto2, WM_SETTEXT, 0, ByVal Text2.Text) ' no hace falta bufer para enviar
Call SendMessage(LsTexto3, WM_SETTEXT, 0, ByVal Text3.Text) ' no hace falta bufer para enviar


PD: así me estan llegando los tres mensajes perfectamente
195  Programación / Programación Visual Basic / Re: Como indetificar la secuencia de objetos de un .exe en vb 6.0 en: 10 Octubre 2009, 03:42 am
  Hwndl = FindWindow(vbNullString, "Alberto Olvera")
 
  LsTexto1 = FindWindowEx(Hwndl, 0, vbNullString, "Text1") ' Text1 es el nombre del control en el exe2
  LsTexto2 = FindWindowEx(Hwndl, 0, vbNullString, "Text2") ' Text2 es el nombre del control en el exe2
  LsTexto3 = FindWindowEx(Hwndl, 0, vbNullString, "Text3") ' Text3 es el nombre del control en el exe2

  Call SendMessage(LsTexto1, WM_SETTEXT, 0, ByVal Text1.Text) ' no hace falta bufer para enviar
  Call SendMessage(LsTexto2, WM_SETTEXT, 0, ByVal Text2.Text) ' no hace falta bufer para enviar
  Call SendMessage(LsTexto3, WM_SETTEXT, 0, ByVal Text3.Text) ' no hace falta bufer para enviar
196  Programación / Programación Visual Basic / Re: Como indetificar la secuencia de objetos de un .exe en vb 6.0 en: 9 Octubre 2009, 17:34 pm
Mira si esto te ayuda

http://foro.elhacker.net/programacion_vb/pasar_variables_por_memoria_src-t244803.0.html
197  Programación / Programación Visual Basic / Re: como hacer webbrowser sin bordes? en: 9 Octubre 2009, 05:33 am
si no encontrás alguna funcion que lo haga podes  usar un Shape1.BorderWidth = 5 de borde
198  Programación / Programación Visual Basic / Re: como hacer webbrowser sin bordes? en: 9 Octubre 2009, 05:14 am
Si metes el WebBrowser dentro de un picture y le recortas los extremos ?

Código:
Private Sub Form_Load()
  Picture1.BorderStyle = 0
  WebBrowser1.Left = -50
  WebBrowser1.Top = -50
  WebBrowser1.Width = Picture1.Width + 50
  WebBrowser1.Height = Picture1.Height + 50
End Sub

El left y el top del WebBrowser1 son regidos por el Picture1 por estar contenido por el mismo

S2
199  Programación / Programación Visual Basic / Re: Saber datos del hard de la pc en win 98 y xp en: 8 Octubre 2009, 21:07 pm
Hola, tambien revisa esto

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/informacion-pc.htm

S2
200  Programación / Programación Visual Basic / Re: Script para registro en: 4 Octubre 2009, 18:09 pm
Cita de: YST en  4 Octubre 2009, 01:51 am
Para encontrar un valor en el registro sigue estos pasos :

  • Lista todas las claves del registro
  • Lee todas las subclaves ( o no me acuerdo como se llaman las que tienen datos )
  • Usa Instr para comprobar si existe la string dentro de la SubClave

canario77 : Ya te han indicado los pasos a seguir
Páginas: 1 ... 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 [20] 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 ... 46
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines