急求大神幫助，VB網路編程中運行至winsock.connect就出現錯誤40020-有解無憂

      最簡單的VB網路編程，第一步就撰寫失敗，自信心很受打擊.......運行至winsock.connect就出現錯誤40020，下面貼出我的代碼
服務器的：
    Private Sub Command1_Click()
     End
    End Sub

    Private Sub Form_Load()
     textsend.Visible = False
     textget.Visible = False
    Winsockserver.LocalPort = 8888
     Winsockserver.Listen
    End Sub

    Private Sub textsend_Change()
     Winsockserver.SendData textsend.Text
    End Sub

    Private Sub Winsockserver_Close()
     Winsockserver.Close
     End
    End Sub

    Private Sub Winsockserver_ConnectionRequest(ByVal requestID As Long)
     textsend.Visible = True
     textget.Visible = True
     If Winsockserver.State <> sckClosed Then Winsockserver.Close
     Winsockserver.Accept requestID
    End Sub

    Private Sub Winsockserver_DataArrival(ByVal bytesTotal As Long)
     Dim tmpstr As String
     Winsockserver.GetData tmpstr
     textget.Text = tmpstr
    End Sub

客戶端的：
   Private Sub Command1_Click()
　　 End
　End Sub

　　Private Sub Command2_Click()
　　 Winsockclient.Connect
　　End Sub

　　Private Sub Form_Load()
　　 textsend.Visible = False
　　 textget.Visible = False
　　 Winsockclient.RemotePort = 1001
　　 Winsockclient.RemoteHost = "sccdsz"
　　End Sub

　　Private Sub Text1_Change()
　　 Winsockclient.RemoteHost = Text1.Text
　　End Sub

　　Private Sub textsend_Change()
　　 Winsockclient.SendData textsend.Text
　　End Sub

　　Private Sub Winsockclient_Close()
　　 Winsockclient.Close
　　 End
　　End Sub

　　Private Sub winsockclient_Connect()
　　 textsend.Visible = True
　　 textget.Visible = True
　　 Command2.Visible = False
　　End Sub

　　Private Sub winsockclient_DataArrival(ByVal bytesTotal As Long)
　　 Dim tmpstr As String
　　 Winsockclient.GetData tmpstr
　　 textget.Text = tmpstr
　　End Sub

uj5u.com熱心網友回復：

你這是tcp還是udp

uj5u.com熱心網友回復：

1.確認你的服務端和客戶端用的都是TCP協議。
2.客戶端的遠程埠是1001，服務端的監聽埠是8888
3.你現在這套程式在運行的時候，新發起連接的客戶端會把老客戶端頂掉

uj5u.com熱心網友回復：

Winsockclient.RemotePort 應該賦值為8888， Winsockclient.RemoteHost用server端ip地址。

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/103742.html

標籤：網絡編程

上一篇：MFC中怎樣將多個Edit Control中的值存放到一個陣列中

下一篇：VB操作WORD的一段很簡單代碼，除錯不出錯，生成EXE后報實時錯誤。