⑴ 在VB中如何让两台电脑联机并可以相互收发信息（类似QQ聊天）
用Winsock 实现聊天的程序 一个简单的聊天程序 程序所需控件：Winsock控件，CommandButton控件（默认name），TextBox控件（一个名称为txtMess，另一个名称为txtSend） 程序代码如下： Private Sub Form_Load() Dim my As String Winsock1.Protocol = sckUDPProtocol '设置为UDP协义 Winsock1.LocalPort = 10 '设置计算机的端口，随便设置，不过两个要一样 Winsock1.RemotePort = 10 my = Winsock1.LocalIP '取得自己的IP地址，是不要的 Winsock1.RemoteHost = my '这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息 End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生 Dim Tmp As String Winsock1.GetData Tmp, vbString '取得数据 Tmp = "对方位址:" + Winsock1.RemoteHostIP + "发言内容为-->" + Tmp txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text End Sub Private Sub Command1_Click() '发送信息 Winsock1.SendData txtSend.Text End Sub 补充：若是想要同时多人聊天的话，则你的RemoteHost 需要将最后面的地址设置为255(广播节点)才行
⑵ 怎么用一台电脑向另外一台电脑发送信息，不借助一切软件
首先两台电脑必须联网，如果都是单机，发送消息就无从谈起了。 局域网比较方便，互联网就要复杂一些了。主要是你要知道两台电脑的IP地址。 然后在点击“开始”→“运行”，输入services.msc之后回车，打开服务，找到Messenger这个服务（就是信使服务），查看属性，选择“启动类型”为自动，然后点击“启动”，两台电脑都这样设置。 NET SEND命令（信使服务） 局域网内发送消息的工具，NT/2000/XP需要信使服务(Messenger)的支持；98需要打开Winpopup。 1. 启用信使服务 net start messenger，如果没有启动成功可以通过服务管理程序启用。开始->运行->services.msc. 同样地，如果你怕不速之客的骚扰，net stop messenger关闭服务即可。 2. 当然net send也支持昵称。net name NICKNAME添加昵称，net name NICKNAME /del删除昵称。不过，昵称不会被windows保存，电脑重起后，昵称需重设，如果你很喜欢昵称的话写一段BAT加入到启动中。 3. net send ip/computer_name/nick_name 消息内容 可以用IP、计算机名、昵称来表示消息目标计算机 4. 9x系统需要winpopup支持。 _________________________________ Net send 将消息发送到网络上的其他用户、计算机或者消息名称。 net send{Name | * | /domain[:Name] | /users} message _________________________________ 问：用net send 命令给局域网上的电脑发消息.net send 后面跟对方机子IP可以吗? 格式是不是这样的? net send 10.40.5.26 how are you ?? 这样,别人收到的是信使服务消息. 如果本机想屏蔽信使服务,不用上网助手,怎么屏蔽? 答：错 应该是 NET SEND *(发给网内所有机器)/指定IP 内容 譬如 NET SEND * 我爱我老婆 那么整个网内就会收到此信息 当然开启了信使服务 关闭服务为在DOS中 NET STOPMESSENGER 运行"services.msc",把"Messenger"关闭就可以.