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

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Problema con SendMessage [AYUDA]
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Problema con SendMessage [AYUDA]  (Leído 2,027 veces)
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Problema con SendMessage [AYUDA]
« en: 10 Junio 2010, 11:47 am »

Hola, a ver si me podeis ayudar, porque sinceramente no se lo que puede pasar... :-(
Tengo esto:
Código
  1. Option Explicit
  2.  
  3. Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Any, ByVal lParam As Long) As Long
  4.  
  5. Private Sub Form_Load()
  6.    Timer1.Interval = 1500: Text1 = "HOla amigosssss"
  7. End Sub
  8.  
  9. Private Sub Timer1_Timer()
  10.    Call SendMessage(Text1.hwnd, &H102, vbKeyLeft, 0&)
  11. End Sub
Entonces se supone que cada 1500 ms la posicion del texto deberia moverse un sitio a la izquierda, ¿no? Pero en el text box me va añadiendo el caracter %...  :o
Y si pongo vbKeySpace funciona bien, me va añadiendo espacios, pero porque falla con vbKeyLeft??? :huh:

Gracias! :-*


« Última modificación: 10 Junio 2010, 15:07 pm por *PsYkE1* » En línea

raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Problema con SendMessage [AYUDA]
« Respuesta #1 en: 10 Junio 2010, 17:00 pm »

Si lo que quieres hacer es cambiar el cursor de posicion (presionar flechitas) estas enviando el mensaje equivocado

El mensaje WM_CHAR (&H102) es para agregar un caracter, y el valor de la flechita en ascii es "%" (creo)

Asi que tienes que enviar un mensaje que presione teclas: WM_KEYDOWN

el code quedaria asi:

Código
  1. Option Explicit
  2.  
  3. Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Any, ByVal lParam As Long) As Long
  4. Private Const WM_KEYDOWN As Long = &H100
  5.  
  6. Private Sub Form_Load()
  7.    Timer1.Interval = 1500: Text1 = "HOla amigosssss"
  8. End Sub
  9.  
  10. Private Sub Timer1_Timer()
  11.    Call SendMessage(Text1.hwnd, WM_KEYDOWN, vbKeyRight, 0&)
  12. End Sub
  13.  

:) espero que te sirva!!


En línea

Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: Problema con SendMessage [AYUDA]
« Respuesta #2 en: 10 Junio 2010, 18:09 pm »

SII!
Funciona!
Gracias tio! ;-)

Salu2!
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
API Sendmessage en una Shell
Programación Visual Basic
Elemental Code 7 4,732 Último mensaje 8 Enero 2011, 02:13 am
por Karcrack
SendMessage
Programación C/C++
calk9 5 3,678 Último mensaje 14 Septiembre 2011, 19:52 pm
por Eternal Idol
SendMessage
Programación Visual Basic
calk9 6 2,930 Último mensaje 20 Septiembre 2011, 00:53 am
por calk9
Ayuda con click usando SendMessage (presionar y levantar)
.NET (C#, VB.NET, ASP)
GonzaFz 1 2,517 Último mensaje 15 Junio 2012, 00:44 am
por GonzaFz
Problema con PostMessage y SendMessage
.NET (C#, VB.NET, ASP)
SrTrp 8 4,948 Último mensaje 28 Septiembre 2024, 16:31 pm
por rigorvzla
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines