⑴ 在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"關閉就可以.