在这儿我提供“信使服务”的模块( m- [: q, S) W* j3 o
'下面是用到的API函数
: s; D5 L. r8 mPublic Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" _
' q/ c) `1 W# m$ ? (Server As Any, yToName As Byte, _" J1 o; }4 H! y- O% ]
yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long$ ]2 c# H) L8 I/ n" \
1 O+ d2 y( c# b1 R' g! z& @'下面的那个模块就是用来发送信息的函数。
7 I6 Q* P% Z: Y w$ k T& v) P'第一个参数是对方的IP或机器名,第二个参数是自已的签名,第三个是消息主体,可以带换行符。, E9 D$ P% I# X. O
Public Function NetSend(ByVal SendTo As String, ByVal SendFrom As String, ByVal SendMessage As String) As Boolean
# Y1 F( V$ v/ s
; U0 m& d5 n4 w4 C, i Dim btTo() As Byte, H2 }) h2 G, N- Q1 M! d$ Z0 ^0 `8 O. j
Dim btFrom() As Byte
# R. ^7 E2 @3 s5 e1 I- b Dim btMsg() As Byte+ u9 j9 m V+ S
) }7 F# P4 \' k w) |7 p4 l btTo = SendTo & vbNullChar, D$ ^0 Y: X% {/ k9 B& i
btFrom = SendFrom & vbNullChar3 b' t3 {9 _; ?+ z; K
btMsg = SendMessage & vbNullChar8 @, [1 @0 c6 I& o/ J7 t* a
If SendFrom <> "" Then
* N2 `. {0 N( \, s% U' Q7 } If NetMessageBufferSend(ByVal 0&, btTo(0), btFrom(0), btMsg(0), UBound(btMsg)) = 0 Then4 ]" c+ n; W M2 X6 O3 n0 f7 O
NetSend = True2 h1 D& ^& M& W; \4 d2 E& j! ~
Else
; j9 n9 L* n+ K0 i/ a6 P" D' V: A9 n NetSend = False/ Y4 Q9 h0 N6 r4 K# S% _
End If
0 q* C' e" L; [ j# _/ [ Else
8 t+ k9 Z, b0 v* v If NetMessageBufferSend(ByVal 0&, btTo(0), ByVal 0&, btMsg(0), UBound(btMsg)) = 0 Then2 j, ~( w, g" H# G) e7 V9 P
NetSend = True
# r. e; {) o. [& c" I, v5 c Else& ~, _: H9 ~2 W" V
NetSend = False
0 b+ @; e- \- d, }1 g% f; H End If
) F3 O3 V& H, a" s End If3 U! H" R3 _' ?
End Function3 h, n+ E# a6 ?# P" Y$ d
|