 |
| Pro VB 6 For advanced Visual Basic coders working in version 6 (not .NET). Beginning-level questions will be redirected to other forums, including Beginning VB 6. |
Welcome to the p2p.wrox.com Forums.
You are currently viewing the Pro VB 6 section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
|
|
|
|

May 5th, 2004, 04:04 PM
|
|
Friend of Wrox
|
|
Join Date: Jun 2003
Posts: 2,189
Thanks: 5
Thanked 59 Times in 57 Posts
|
|
getting a net send
hi all...
i'm looking for a way to catch a net send event (incoming one).. anyone saw this before??
if this posible to do???
thanks in advance...
HTH
Gonzalo
__________________
HTH
Gonzalo
================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========
|
|

May 27th, 2004, 05:50 PM
|
|
Registered User
|
|
Join Date: May 2004
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
Si deseas capturar el mensaje de respuesta del net send debes leer el texto que contiene la ventana de respuesta del net send utilizando APIs (SendMessage).
Ej:
1. Utilizando APIs (FindWindow), cada 1 seg (o menos) verifica si existe alguna ventana llamada "Servicio de MensajerÃa "("Messenger Service ") activa. Es muy importante saber el titulo exacto ("Caption") de la ventana a capturar en este caso considera los espacios que he colocado entre los parentesis.
2. Luego lee el contenido del texto incluido. El control txt es del tipo "Static". Puedes usar :
Control = FindWindowEx(lWin, 0, "Static", vbNullString)
textlen = SendMessage(Control, WM_GETTEXTLENGTH, vbNull, vbNull)
textlen = textlen + 1
text = Space$(textlen)
Call SendMessage(Control&, WM_GETTEXT, textlen, ByVal text)
3. Si deseas cierra rapidamente la ventana del mensaje :
Control = FindWindowEx(lWin, 0, "Button", vbNullString)
SendMessage Control, BM_CLICK, 0, 0
y el texto capturado lo presentas en tu propio formulario ó lo escribes en algún archivo.
Saludos del Perú
JavierSC
|
|

May 28th, 2004, 09:22 AM
|
|
Friend of Wrox
|
|
Join Date: Jun 2003
Posts: 2,189
Thanks: 5
Thanked 59 Times in 57 Posts
|
|
Muchas Gracias.. voy a probar a ver que pasa..
just one note.. i know spanish and you know spanish, but the rest of the comunity dont so please the next time write it in english...
Muchas Gracias !!!!!! de nuevo :)
HTH
Gonzalo
|
|

August 2nd, 2004, 02:42 AM
|
|
Registered User
|
|
Join Date: May 2004
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
hi
I read the code . it workds fine to capture the netsend messages but I have to capturethe other window messages or the messages that pop up from other applications.
How to go about this
Regards
Hello_2004
|
|

October 11th, 2004, 09:50 PM
|
|
Registered User
|
|
Join Date: Oct 2004
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
Hi,
could anyone translate that solution in English please as i dont understand spanish and i need that solution too.
Thanks,
aachia
|
|

October 13th, 2004, 06:01 AM
|
|
Authorized User
|
|
Join Date: Jun 2004
Posts: 13
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
Hi this is my try at translation - as I don't understand the code too well I hope I've done it justice!
************************************************** *******
If you want to capture the message of the response of the net send you have to read the text contained in the response to the net send using APIs (SendMessage).
E.G.
1 Using APIs (FindWindow), each 1 sec (or less), test to see if there exists an active window called ("Messenger Service "). It is important to know the exact caption of the window taking into account spaces which have been placed between the brackets
2 Then read the contents of the text it contains. The control txt is of the type "Static". You can use:
Control = FindWindowEx(lWin, 0, "Static", vbNullString)
textlen = SendMessage(Control, WM_GETTEXTLENGTH, vbNull, vbNull)
textlen = textlen + 1
text = Space$(textlen)
Call SendMessage(Control&, WM_GETTEXT, textlen, ByVal text)
3 If you want to close the message window quickly :
Control = FindWindowEx(lWin, 0, "Button", vbNullString)
SendMessage Control, BM_CLICK, 0, 0
and you can use the captured text in you own formula or write it to some file
Greeting from Peru
JavierSC
************************************************** *********
Thanks
Psionman
|
|

October 25th, 2004, 03:57 AM
|
|
Registered User
|
|
Join Date: Oct 2004
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
Hello
i really want to capture message from netsend window. I am not much expert in VB. But i tried to make it working. The i got an error in the line "Call SendMessage(Control&, WM_GETTEXT, textlen, ByVal Text)" that
Type-declaration charecter does not match declared data type.
can anyone help me. It will be thankful if you can give me a code with delarations too. I am waititng for your reply. Please help me as early as possible
thank you
AH Aneesh
|
|

November 10th, 2004, 07:40 PM
|
|
Registered User
|
|
Join Date: Nov 2004
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
Hola Javier,
Podrias enviarme el programa vb zipeado, quiero probarlo.
Te lo agradezco.
Saludos
Carlos
|
|

November 12th, 2004, 02:42 AM
|
|
Registered User
|
|
Join Date: Oct 2004
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
hola
puede usted escribir por favor en inglés ?
estoy escribiendo este texto con la ayuda de la herramienta de la lengua
gracias Aneeshj
Quote:
quote:Originally posted by carlosnardi
Hola Javier,
Podrias enviarme el programa vb zipeado, quiero probarlo.
Te lo agradezco.
Saludos
Carlos
|
AH Aneesh
|
|

September 3rd, 2005, 10:31 PM
|
|
Registered User
|
|
Join Date: May 2004
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
|
|
Hi
I just did find this response messages about my post. If someone wanna ask me for this topic my e-mail is [email protected]
JavierSC
|
|
 |