快来救命啊！关于winsock的问题！快来救命啊！！！！！！！！！

[qq4157657]

我写了一个聊天软件 出现了个很牛X的问题！先看代码
Private Sub Command1_Click()
Winsock1.SendData txtSend.Text
txtSend.Text = ""
End Sub

Private Sub Command2_Click()
txtMess.Text = ""
End Sub

Private Sub Form_Load()
Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = 10
Winsock1.RemotePort = 10
Winsock1.RemoteHost = "192.168.1.5" 这里！！！注意看这行
Text1.Text = Winsock1.LocalIP
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Tmp As String
Winsock1.GetData Tmp, vbsting
Tmp = "¶Ô·½Î»Ö·->" + Winsock1.RemoteHostIP + "·¢ÑÔÄÚÈÝΪ->" + Tmp
txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text
End Sub

我想把winsock1.remotehost=???改成text1.text 但是居然不行！好象10049错误 但是如果我写"192.168.1.5"那就行了？？？怪不怪？救命啊！老师教的怎么不对啊！！！！！！大侠救命啊整了一晚了

[qq4157657]

顶啊！救命啊！

[of123]

原因是 Text1 初始内容是非法的地址。

Text1 = "192.168.1.5" '这里！！！注意看这行
Winsock1.RemoteHost = Text1

[迈克揉索芙特]

应该是Text1内容的问题

[samwzhang]

难道是传说中的倒粪？

[vbnetaspnet]

text1初始值是空值，这样写：

text1.text="192.168.1.5"

Winsock1.RemoteHost = text1.text

[海贼王大妈]

对，把顺序颠倒下嘛