/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
net send i VB6
Fra : Morten Trab


Dato : 06-11-02 18:56

Nogen der kender et API kald til net send funktionen under VB6??

--
Morten Trab - http://www.blackchart.dk
Fjern REMOVE i min E-Mail adresse hvis du vil sende en mail til mig :)

http://modeltog.blackchart.dk - Følg med i opbygningen af min modelbane



 
 
CADmageren (06-11-2002)
Kommentar
Fra : CADmageren


Dato : 06-11-02 22:29

Hej Morten denne her:
http://www.freevbcode.com/ShowCode.Asp?ID=395

Mvh
www.cadmageren.dk

Michael Christoffersen



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

Private Sub Command1_Click()
Dim x As Boolean

x = BroadcastMessage(TxtTo.Text, TxtFrom.Text, TxtMsg.Text)
If x Then
MsgBox "Message Sent"
Else
MsgBox "Message Not Sent"
End If

End Sub

--
Leveret af:
http://www.kandu.dk/
"Vejen til en hurtig løsning"


Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste