您的位置：程序门 -> vb -> 基础类

局域网内发消息的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

局域网内发消息的问题

发表于：2007-06-14 20:50:38 楼主

下一个在局域网内发消息的程序源代码，结果在办公室里运行，有的机子可以，有的不可以。办公室的机子全部xp操作系统的，机子也全部都可以连接。请问是否和机子的设置有关？如何修改？

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

发表于：2007-06-15 20:31:081楼得分:0

没人回答吗？各位大吓帮一下，谢谢。

发表于：2007-06-15 23:36:562楼得分:0

要开信使服务（messager）。。。试试直接用shell调用netsend吧。。。。简单。。。

发表于：2007-06-16 09:20:383楼得分:0

如上！

发表于：2007-06-16 10:07:344楼得分:0

支持!

发表于：2007-06-16 17:48:055楼得分:0

lsftest

如何使用呢？能帮我学一段吗？我刚学不懂啊。谢谢

发表于：2007-06-20 12:37:386楼得分:0

怎么，没人回应吗？各位帮帮忙。急。现还发现在能发送的几台机子中，发送给个别台时，会发到自己机子上，而别人没收到的情况。请各位高手赶快帮一下。急要啊！

发表于：2007-06-21 23:48:287楼得分:0

建议先看看net send命令的帮助。。

其他资讯