mensaje a travez de red lan

Puedes hacerlo de varias formas . winsock, api

Este es un ejemplo de un mensajero completo en una Lan hecho en VFP ..

http://chile.ath.cx/davphantom/codigo.asp?link%6

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.cjb.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523


"Esteban Páez" escribió en el mensaje
news:

Hola a todos en este foro, me gustaría saber si alguien ha hecho alguna
aplicacion o rutina que permita enviar mensajes a travez de una red LAN.
La finalidad de esto es para que los usuarios de la red puedan enviar un
mensage al administrador o a un tecnico y este se entere de que nesesita
ayuda, lo que necesito es saber como enviar un mensage en línea y la otra
persona lo lea en ese presiso momento.
Espero que alguien haya hecho algo parecido, no necesito un chat ni
tampoco enviar correos solo un mensaje.


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Para que SO Lo Necesitas ?

Si es para SO como WinNT, Windows 2000 o XP
este codigo te servira.

(si lo envias a una maquina con win9x deberan estar ejecutando
el programa winpopup.exe para poder recibir el msg)


Clear
=EnviarMsg('ParaQuien','DeQuien','Prueba de Msg'+chr(13)+'Siguiente Linea')

Function EnviarMsg
Lparameters Destino, Quien, Mensaje
Local cDest, cQuien, cMsg, nCiclo
Declare Long NetMessageBufferSend In "NetAPI32.Dll" String Svr, String
ToN, String yFrom, String yMsg, Long lSize
Declare Long NetApiBufferFree In "NetAPI32.Dll" Long Buffer
NetApiBufferFree(0)
cDest = ""
cMsg = ""
cQuien = ""
For nCiclo = 1 To Len(Alltrim(Destino))
cDest= cDest +toByte(Substr(Destino,nCiclo,1))
Endfor
For nCiclo = 1 To Len(Mensaje)
cMsg= cMsg+toByte(Substr(Mensaje,nCiclo,1))
Endfor
For nCiclo = 1 To Len(Quien)
cQuien= cQuien+toByte(Substr(Quien,nCiclo,1))
Endfor
If Len(Alltrim(Quien))=0
cQuien = 0
Endif
cResult= NetMessageBufferSend(0, cDest+Chr(0),cQuien,cMsg+Chr(0),
(Len(cMsg)*2)+1)
Return cResult = 0
Endfunc

Function toByte
Lparameters cCar
nNum= Asc(cCar)
c1 = Chr(Int(nNum/256))
c0 = Chr(Mod(nNum,256))
Return c0+c1
Endfunc


Jorge Mota

Do It Best, Do it With VFP.

Solo debes llamar la funcion con el nombre de la estacion y el mensaje que
deseas enviar, cordial saludo,

PROCEDURE NetSend
LPARAMETERS lcSendTo, lcMessage
LOCAL lnLen, lcFrom, lcMsgName, lcUser, lcMsg

#define NERR_SUCCESS 0
#define NERR_BASE 2100
#define NERR_NetworkError (NERR_BASE + 36)
#define NERR_NameNotFound (NERR_BASE + 173)
#define NERR_UseNotFound (NERR_BASE + 150)
#define ERROR_ACCESS_DENIED 5
#define ERROR_BAD_NETPATH 53
#define ERROR_NOT_SUPPORTED 50
#define ERROR_INVALID_PARAMETER 87
#define ERROR_INVALID_NAME 123

DECLARE Long NetMessageBufferSend IN netapi32.dll ;
String servername, String msgname, String fromname, String Buffer, Long
BufSize


* Convert all strings to UNICODE
lcUser = strconv( StrConv(lcSendTo,1), 5)
lcMsg = strconv( StrConv(lcMessage,1), 5)
lcFrom = strconv( Strconv(Sys(0),1), 5)
lnLen = len(lcMessage)*2+2

NetSendMessage = NetMessageBufferSend( 0, lcUser, lcFrom, lcMsg, lnLen )

DO Case
Case NetSendMessage=NERR_SUCCESS
NetSendErrorMessage = "The message was successfully sent"
Case NetSendMessage=NERR_NameNotFound
NetSendErrorMessage = "Send To not found"
Case NetSendMessage=NERR_NetworkError
NetSendErrorMessage = "General network error occurred"
Case NetSendMessage=NERR_UseNotFound
NetSendErrorMessage = "Network connection not found"
Case NetSendMessage=ERROR_ACCESS_DENIED
NetSendErrorMessage = "Access to computer denied"
Case NetSendMessage=ERROR_BAD_NETPATH
NetSendErrorMessage = "Sent From server name not found."
Case NetSendMessage=ERROR_INVALID_PARAMETER
NetSendErrorMessage = "Invalid parameter(s) specified."
Case NetSendMessage=ERROR_NOT_SUPPORTED
NetSendErrorMessage = "Network request not supported."
Case NetSendMessage=ERROR_INVALID_NAME
NetSendErrorMessage = "Illegal character or malformed name."
Case Else
NetSendErrorMessage = "Unknown error executing command."
ENDCASE
CLEAR DLLS

RETURN NetSendErrorMessage






Mauricio Atanache G.

muchas gracias por responder y aclarar mi duda, han sido de gran ayuda,
ahora solo lo voy a probar.

saludos a todos


PortalFox :: Nada corre como un zorro
http://www.portalfox.com

PortalFox - NNTP Forum Gateway

Te encuenta que esta función solo funciona solo bajo NT o superior en
win98 No

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.cjb.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523


"Mauricio Atanache G" escribió en el mensaje
news:

Solo debes llamar la funcion con el nombre de la estacion y el mensaje que
deseas enviar, cordial saludo,

PROCEDURE NetSend
LPARAMETERS lcSendTo, lcMessage
LOCAL lnLen, lcFrom, lcMsgName, lcUser, lcMsg

#define NERR_SUCCESS 0
#define NERR_BASE 2100
#define NERR_NetworkError (NERR_BASE + 36)
#define NERR_NameNotFound (NERR_BASE + 173)
#define NERR_UseNotFound (NERR_BASE + 150)
#define ERROR_ACCESS_DENIED 5
#define ERROR_BAD_NETPATH 53
#define ERROR_NOT_SUPPORTED 50
#define ERROR_INVALID_PARAMETER 87
#define ERROR_INVALID_NAME 123

DECLARE Long NetMessageBufferSend IN netapi32.dll ;
String servername, String msgname, String fromname, String Buffer, Long
BufSize


* Convert all strings to UNICODE
lcUser = strconv( StrConv(lcSendTo,1), 5)
lcMsg = strconv( StrConv(lcMessage,1), 5)
lcFrom = strconv( Strconv(Sys(0),1), 5)
lnLen = len(lcMessage)*2+2

NetSendMessage = NetMessageBufferSend( 0, lcUser, lcFrom, lcMsg, lnLen )

DO Case
Case NetSendMessage=NERR_SUCCESS
NetSendErrorMessage = "The message was successfully sent"
Case NetSendMessage=NERR_NameNotFound
NetSendErrorMessage = "Send To not found"
Case NetSendMessage=NERR_NetworkError
NetSendErrorMessage = "General network error occurred"
Case NetSendMessage=NERR_UseNotFound
NetSendErrorMessage = "Network connection not found"
Case NetSendMessage=ERROR_ACCESS_DENIED
NetSendErrorMessage = "Access to computer denied"
Case NetSendMessage=ERROR_BAD_NETPATH
NetSendErrorMessage = "Sent From server name not found."
Case NetSendMessage=ERROR_INVALID_PARAMETER
NetSendErrorMessage = "Invalid parameter(s) specified."
Case NetSendMessage=ERROR_NOT_SUPPORTED
NetSendErrorMessage = "Network request not supported."
Case NetSendMessage=ERROR_INVALID_NAME
NetSendErrorMessage = "Illegal character or malformed name."
Case Else
NetSendErrorMessage = "Unknown error executing command."
ENDCASE
CLEAR DLLS

RETURN NetSendErrorMessage






Mauricio Atanache G.