Winsock 可以实现 远程聊天吗？ 通过 internet

具体   怎么做啊 问题点数：10、回复次数：2Top

1 楼daisy8675（莫依 沉迷）回复于 2004-04-02 18:43:53 得分 2

可以tcp/ip就可以了Top

2 楼daisy8675（莫依 沉迷）回复于 2004-04-02 18:45:45 得分 8

udp方式  
  Private   Sub   Form_Load()  
          With   Winsock1  
                  '   使用   UDP   Protocol  
                  .Protocol   =   sckUDPProtocol  
                   
                  '   設定欲連結端的   Remote   Host   Name   或   IP  
                  .RemoteHost   =   "leohuang"  
                   
                  '   設定欲連結端的   Remote   Port  
                  .RemotePort   =   4002  
                   
                  '   設定本端的   Local   Port  
                  .LocalPort   =   4001  
                   
                  .Bind  
          End   With  
           
          form2.Show  
  End   Sub  
   
  Private   Sub   cmdClose_Click()  
          Unload   form2  
           
          '   檢查   Winsock1   是否已經關閉連結  
          If   Winsock1.State   <>   sckClosed   Then  
                  Winsock1.Close  
          End   If  
           
          End  
  End   Sub  
   
  Private   Sub   Winsock1_DataArrival(ByVal   bytesTotal   As   Long)  
          Dim   strData   As   String  
           
          '   接收來自   Remote   Port   =   4002   的訊息  
          Winsock1.GetData   strData  
          txtGet.Text   =   strData  
  End   Sub  
   
  Private   Sub   txtSend_Change()  
          '   傳送訊息至   Remote   Port   =   4002  
          Winsock1.SendData   txtSend.Text  
  End   Sub  
  Private   Sub   Form_Load()  
          With   Winsock2  
                  '   使用   UDP   Protocol  
                  .Protocol   =   sckUDPProtocol  
                   
                  '   設定欲連結端的   Remote   Host   Name   或   IP  
                  .RemoteHost   =   "leohuang"  
                   
                  '   設定欲連結端的   Remote   Port  
                  .RemotePort   =   4001  
                   
                  '   設定本端的   Local   Port  
                  .LocalPort   =   4002  
   
                  .Bind  
          End   With  
  End   Sub  
   
  Private   Sub   Form_Unload(Cancel   As   Integer)  
          '   檢查   Winsock2   是否已經關閉連結  
          If   Winsock2.State   <>   sckClosed   Then  
                  Winsock2.Close  
          End   If  
  End   Sub  
   
  Private   Sub   Winsock2_DataArrival(ByVal   bytesTotal   As   Long)  
          Dim   strData   As   String  
           
          '   接收來自   Remote   Port   =   4001   的訊息  
          Winsock2.GetData   strData  
          txtGet.Text   =   strData  
  End   Sub  
   
  Private   Sub   txtSend_Change()  
          '   傳送訊息至   Remote   Port   =   4001  
          Winsock2.SendData   txtSend.Text  
  End   Sub  
  Top

相关问题

• winsock
• txtsend
• 訊息
• 設定欲連結端
• subprivate sub
• strdata
• remote
• port
• protocol
• udp

• 帖主：zhaopp
• daisy8675
• daisy8675

• Visual Basic类图书
• Visual Basic类源码下载