急！！！利用VB发送消息 高分

[chenmuwang]

在局域网里利用vb 发送消息到别的电脑 上（像 net send 一样发）
有什么函数，域API可以实现的吗？请高手指点

[BlueBeer]

http://www.csdn.net/cnshare/soft/16/16015.shtm

局域网消息发送器(1.0)

　　VB版lihonggen0(李洪根)写的一个局域网消息发送器，全力推荐下载,OICQ界面，垂直菜单控件技术，局域网消息发送技术，网络资源访问技术，系统托盘技术，资源管理器界面的分隔条技术，API函数使用等，为初学者提供一个代码例子。

[kingnew]

shell "net send 192.168.0.3 你好吗"

[acunchen]

Private Sub Command1_Click()
Dim str As String
str = "net send IP" & Text1.Text
Shell str
End Sub

[doudoushen]

有一个API的 以前有人提过

[lxxldd]

学习

[hiyo]

试试

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

Private Sub Command1_Click()
Dim X As Boolean
X = SendMsg(TxtTo.Text, TxtFrom.Text, TxtMsg.Text)
If X Then
MsgBox "消息已被成功发送", vbInformation, "发送消息"
Else
MsgBox "发送消息失败", vbCritical, "发送消息"
End If
End Sub

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

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
End If
End Function

[wwqna]

我觉得还是用shell 方便一点

[creazyfish]

其实用vb动态写个bat文件,然后用shell调用不是很简单吗?