Visual Basic - AYUDA URGENTE!!!!!!!!!!!!

Life is soft - evento anual de software empresarial
 
Vista:

AYUDA URGENTE!!!!!!!!!!!!

Publicado por Torno (16 intervenciones) el 27/03/2003 09:32:47
por favor necesito ayuda, tengo una api q es para enviar un mensaje a un ordenador, y me sale el error q no encuentra la dll netapi32.dll, ya no se q hacer la dll la tengo copiada en la carpeta system, system32 y nada
no hay manera el error sigue saliendo, si alguien pudiera ayudarme.

es windows98 el sistema operativo.

desde ya 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:AYUDA URGENTE!!!!!!!!!!!!

Publicado por guille (248 intervenciones) el 27/03/2003 22:07:11
Prueba con copiarla a la carpeta donde esta el ejecutable.

Suerte
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

No hay manera

Publicado por Torno (16 intervenciones) el 28/03/2003 14:24:39
nada sigue sin funcionar, te voy a pasar el codigo para ver si ves algun error.

Private Const NERR_Success As Long = 0&

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
Dim NERR_Success As Variant

'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

venga gracias por tu tiempo
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