Visual Basic - Enviar mensaje a otro pc

Life is soft - evento anual de software empresarial
 
Vista:

Enviar mensaje a otro pc

Publicado por Torno (16 intervenciones) el 24/03/2003 09:43:55
alguien sabria decirme como puedo enviare un mensaje tipo send de windows nt, pero desde windows 98 y desde visual basic claro.

si alguien me puede ayudar estare muy agradecido.
muchas gracias desde ya.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Enviar mensaje a otro pc

Publicado por isma (96 intervenciones) el 24/03/2003 15:03:04
Prueba con esto:

' Se envía un mensaje al usuario o máquina que le indiques

Private Declare Function NetMessageBufferSend Lib "netapi32.dll" _
(yServer As Any, yToName As Byte, yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long

Public Function fnc_BroadcastMessage(strUserOrMachine As String, _
strFromName As String, strMessage As String) As Boolean
Dim bytToName() As Byte
Dim bytFromName1() As Byte
Dim bytMessageToSend() As Byte

'Coloca los datos en los arrays
bytToName = strUserOrMachine & vbNullChar
bytFromName1 = strFromName & vbNullChar
bytMessageToSend = strMessage & vbNullChar

' Envía el mensaje via API
If NetMessageBufferSend(ByVal 0&, bytToName(0), ByVal 0&, _
bytMessageToSend(0), UBound(bytMessageToSend)) = NERR_Success Then
'Devuelve verdadero si no da error
fnc_BroadcastMessage = True
End If
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enviar mensaje a otro pc

Publicado por torno (16 intervenciones) el 24/03/2003 16:11:52
me da un error
no se puede encontrar el punto de entrada de la dll.

es q soy novato en esto de las api.

perdon por las molestias y muchas gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar