关于socket,请进来看一下！

'有如下六个控件  
  Private   Sub   Form_Load()  
  Winsock1.LocalPort   =   1001  
  Winsock1.RemoteHost   =   "127.0.0.1"  
  Winsock1.RemotePort   =   1002  
   
  Winsock2.RemoteHost   =   "127.0.0.1"  
  Winsock2.LocalPort   =   1002  
  Winsock2.RemotePort   =   1001  
  Text1.Text   =   ""  
  Text2.Text   =   ""  
  Text3.Text   =   ""  
  Text4.Text   =   ""  
  End   Sub  
  '我想在同一个程序中让左边两个文本框(text1,text3,socket1)  
  '和右边两个文本框(text2,text4,socket2)聊天  
  '如是我就  
  Private   Sub   Text1_Change()  
  Winsock1.SendData   Text2.Text  
  End   Sub  
   
  Private   Sub   Text2_Change()  
  Winsock2.SendData   Text2.Text  
   
  End   Sub  
  '但问题是上面两个过程有错，为什么？  
  '我要如何改进才行？ 问题点数：40、回复次数：3Top

1 楼zwj_zhangwenjin（小福）回复于 2002-06-21 09:21:32 得分 10

我倒  
  你要在SOCK的时间里侦听才行。  
  先发请求，接受，发行息，接受。  
  看看帮助吧Top

2 楼lzhzxl（云中人）回复于 2002-06-21 09:27:46 得分 10

你两个SOCK都是客户端程序,请将服务器端设置本地端口,然后用  
  ServerSock.Listen  
  再在客户端将IP地址和RemotePort属性设置为服务器的地址和端口即可!Top

3 楼xiaoxinghappy（清晨好凉，被窝好暖:）回复于 2002-06-21 09:34:41 得分 20

在进行连接  
  winsock1.listen  
  winsock2.connect  
   
  private   sub   winsock1_Accept(RexxxID   as   integer)  
            winsock1.Accept   RexxxID  
  end   subTop

相关问题

• winsock
• socket
• remoteport
• sub
• text

• 帖主：cycker
• zwj_zhangwenjin
• lzhzxl
• xiaoxinghappy

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