Problema con SendMessage [AYUDA]

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]

Autor

Tema: Problema con SendMessage [AYUDA] (Leído 1,872 veces)

Psyke1

Wiki

Desconectado

Mensajes: 1.089

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

Option Explicit
 
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
 
Private Sub Form_Load()
    Timer1.Interval = 1500: Text1 = "HOla amigosssss"
End Sub
 
Private Sub Timer1_Timer()
    Call SendMessage(Text1.hwnd, &H102, vbKeyLeft, 0&)
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 %...

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

http://foro.h-sec.org/

raul338

Desconectado

Mensajes: 2.633

La sonrisa es la mejor forma de afrontar las cosas

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

Option Explicit
 
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
Private Const WM_KEYDOWN As Long = &H100
 
Private Sub Form_Load()
    Timer1.Interval = 1500: Text1 = "HOla amigosssss"
End Sub
 
Private Sub Timer1_Timer()
    Call SendMessage(Text1.hwnd, WM_KEYDOWN, vbKeyRight, 0&)
End Sub

espero que te sirva!!


	En línea

Psyke1

Wiki

Desconectado

Mensajes: 1.089

Re: Problema con SendMessage [AYUDA]

« Respuesta #2 en: 10 Junio 2010, 18:09 pm »

SII!
Funciona!
Gracias tio! ;-)

Salu2!


	En línea

http://foro.h-sec.org/

Páginas: [1]

Ir a:

Mensajes similares
	Asunto	Iniciado por	Respuestas	Vistas	Último mensaje
	API Sendmessage en una Shell Programación Visual Basic	Elemental Code	7	4,369	8 Enero 2011, 02:13 am por Karcrack
	SendMessage Programación C/C++	calk9	5	3,453	14 Septiembre 2011, 19:52 pm por Eternal Idol
	SendMessage Programación Visual Basic	calk9	6	2,609	20 Septiembre 2011, 00:53 am por calk9
	Ayuda con click usando SendMessage (presionar y levantar) .NET (C#, VB.NET, ASP)	GonzaFz	1	2,336	15 Junio 2012, 00:44 am por GonzaFz
	Problema con PostMessage y SendMessage .NET (C#, VB.NET, ASP)	SrTrp	4	1,188	13 Abril 2024, 12:59 pm por Eleкtro