Visual Basic - NET SEND ????

Life is soft - evento anual de software empresarial
 
Vista:

NET SEND ????

Publicado por Rafiky (54 intervenciones) el 17/09/2003 01:15:12
Para canalizar los avisos de los usuarios de la red que voy a mantener (20 equipos) estoy creando una sencilla aplicación. Pretendo usar "Net Send", pero al ejecutarlo (en winxp), aparece momentáneamente en la barra de tareas el icono del prompt del sistema y desaparece al segundo, sin que se haya enviado ningún mensaje. Uso el comando Shell:

orden = "net send" & "213.227.39.32" & "Mensaje enviado por " & Text1.Text & ". Incidencia" & Text2.Text
Shell (orden)

Y creo que no se puede ejecutar comandos del DOS mediante Shell. ¿Alguien me orienta? Muchas gracias!

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:NET SEND ????

Publicado por Cecilia Colalongo (3117 intervenciones) el 17/09/2003 03:09:50
Puedes utilizar directamente la API NetSend:

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

Private Const NERR_Success As Long = 0&

Public Function BroadcastMessage(sToUser As String, _
sFromUser As String, sMessage As String) As Boolean

Dim yToName() As Byte
Dim yFromName() As Byte
Dim yMsg() As Byte
Dim l As Long
yToName = sToUser & vbNullChar
yFromName = sFromUser & vbNullChar
yMsg = sMessage & vbNullChar
If NetMessageBufferSend(ByVal 0&, yToName(0), ByVal 0&, _
yMsg(0), UBound(yMsg)) = NERR_Success Then

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