Wrox Programmer Forums
|
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
 
Old May 5th, 2004, 04:04 PM
Friend of Wrox
 
Join Date: Jun 2003
Posts: 2,189
Thanks: 5
Thanked 59 Times in 57 Posts
Send a message via MSN to gbianchi
Default 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.
================================================== =========
 
Old May 27th, 2004, 05:50 PM
Registered User
 
Join Date: May 2004
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default

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

 
Old May 28th, 2004, 09:22 AM
Friend of Wrox
 
Join Date: Jun 2003
Posts: 2,189
Thanks: 5
Thanked 59 Times in 57 Posts
Send a message via MSN to gbianchi
Default

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
 
Old August 2nd, 2004, 02:42 AM
Registered User
 
Join Date: May 2004
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default

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

 
Old October 11th, 2004, 09:50 PM
Registered User
 
Join Date: Oct 2004
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Default

Hi,

could anyone translate that solution in English please as i dont understand spanish and i need that solution too.

Thanks,
aachia
 
Old October 13th, 2004, 06:01 AM
Authorized User
 
Join Date: Jun 2004
Posts: 13
Thanks: 0
Thanked 0 Times in 0 Posts
Default

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
 
Old October 25th, 2004, 03:57 AM
Registered User
 
Join Date: Oct 2004
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via MSN to ahaneesh Send a message via Yahoo to ahaneesh
Default

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
 
Old November 10th, 2004, 07:40 PM
Registered User
 
Join Date: Nov 2004
Posts: 1
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via MSN to carlosnardi
Default

Hola Javier,

Podrias enviarme el programa vb zipeado, quiero probarlo.
Te lo agradezco.

Saludos
Carlos


 
Old November 12th, 2004, 02:42 AM
Registered User
 
Join Date: Oct 2004
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Send a message via MSN to ahaneesh Send a message via Yahoo to ahaneesh
Default

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
 
Old September 3rd, 2005, 10:31 PM
Registered User
 
Join Date: May 2004
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default

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






Similar Threads
Thread Thread Starter Forum Replies Last Post
How to send mail with vb.net Koeno VB How-To 4 July 20th, 2008 05:01 AM
a asp.net can't send a value to JavaScript ?? mlmail05 ASP.NET 2.0 Professional 2 July 4th, 2008 01:47 PM
How to send the mail in ASP.NET n.nsivakumar ASP.NET 1.0 and 1.1 Professional 2 July 26th, 2006 03:49 PM
send MASS Emails in ASP.NET 2 with VB.NET 2005 alexdcosta ASP.NET 2.0 Basics 1 July 17th, 2006 12:31 AM
Send message on Local net qazi_nomi Classic ASP Basics 3 October 26th, 2004 02:22 AM





Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.