2000的信使服务

[uha]

有哪位仁兄知道在windows2000里怎么样用 net send 完成匿名发消息？

[yangzixp]

有个专门发的软件叫：信息宝宝。
不过不要去发垃圾或者广告。
我很讨厌！

[Primer2002cn]

关注

[BadBoyCyh]

开始，运行，输入net send ip地址 信息

[zykj_2000]

楼上的 这样好像不能匿名

[Climber12]

这个命令可以发往局域网外的Intenet吗？

[uha]

我自己都找到了好多专门的第三方软件！！！
)@_(@

[lovingkiss]

Option Explicit
Private Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" (Server As Any, yToName As Byte, yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Dim SendOver As Boolean

Private Function SendMsg(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
On Error Resume Next


yToName = sToUser & vbNullChar
yFromName = sFromUser & vbNullChar
yMsg = sMessage & vbNullChar

NetMessageBufferSend ByVal 0&, yToName(0), yFromName(0), yMsg(0), UBound(yMsg)

End Function

Private Sub Command1_Click()
SendMsg "Bread", "我呀", "你好"
End Sub