匿名发送局域网信息~~

[lovingkiss]

1、匿名发送局域网信息~~ Win2K
2、如何发送广播——就是给全部的机器发送信息~~

[telli]

net send 命令

[hxy2003]

我也想知道

[forwhat]

给某主机发消息：
net send "主机名" "信息"

给某个工作组的所有计算机发消息
net send /domain:"组名" "信息"

不过好象不能匿名发送的说...

[lihonggen0]

好想不能匿名

[forwhat]

补充一下：实际命令中不包括引号.

[lovingkiss]

不会吧，很多软件都可以匿名发呀

例如：NetSuper

[zither]

用NET SEND 是不可能匿名的
你要实现就用其他的工具吧

[lovingkiss]

我要用Api阿

例如：

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 CurList 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
If Trim(TxtMsg.Text) = "" Then Exit Function
yToName = sToUser & vbNullChar
yFromName = sFromUser & vbNullChar
yMsg = sMessage & vbNullChar

If NetMessageBufferSend(ByVal 0&, yToName(0), ByVal 0&, yMsg(0), UBound(yMsg)) = NERR_Success Then
SendMsg = True
If Timer1.Enabled = False Then '如果不是骚扰状态下，记录信息/清空发送的内容
List1.AddItem TxtMsg.Text, 0
TxtMsg.Text = ""
CurList = -1 '当前指针指向第一条之后
SendOver = True
End If
End If
End Function