vb網路編程求助

問題出現在服務器端。首先，妳看看妳的With是sockserver妳後面有的是SockClient有的是sockserver；第二，妳的winsock控件沒有listen；第三：根據我的經驗，用winsock的時候不要用with，直接寫控件名稱.localport等。正確做法應該統壹名稱，刪掉with再將bind改成listen。

妳的客戶端沒有錯誤，可以直接復制。我將服務端代碼改成如下（在本機測試通過）：

更改後的服務端代碼：

Private Sub Form_Load()

sockclient.LocalPort = 2000 '指定端口號（壹般指定1024以上的端口就好）

sockclient.Listen

End Sub

'這裏處理接收客戶端發送來的信息

Private Sub sockclient_DataArrival(ByVal bytesTotal As Long)

Dim Tmp As String

sockclient.GetData Tmp '接收客戶端發送來的信息

MsgBox Tmp '顯示客戶端發來的信息

End Sub

'這裏是處理收到的連接請求

Private Sub sockclient_ConnectionRequest(ByVal requestID As Long)

sockclient.Close '防止曾經打開過SockClient

sockclient.Accept requestID '接受客戶端的請求

End Sub

'當然服務器端也可以向客戶端發送信息，如在窗口上創建壹個Command1控件，然後再添加壹下代碼

Private Sub Command1_Click()

If sockclient.State = 7 Then '判斷是否處於連接狀態 7表示已經連接

sockclient.SendData "這是服務器端發來的信息"

End If

End Sub

客戶端直接復制原來的，服務端復制我改的就可以了。我在我的機器測試是通過的。

分應該給我吧！！！！！

上一篇:深圳市易士達電源科技有限公司怎麽樣？

下一篇:await與wait的區別