UC知道vb6 winsock的问题
来源：百度知道 编辑：UC知道 时间：2024/06/27 20:57:11
有一段程序：
Private Sub Text1_Change()
Winsock1.SendData Text1.Text
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim rec As String
Winsock1.GetData rec, vbString
Text2.Text = rec
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 99
Winsock1.RemoteHost = "115.46.47.11" '192.168.1.101 \\ 115.46.49.57
Winsock1.RemotePort = 100
End Sub
客户端的把port了改一下。
上面的语句只能管一个textbox，我要发送并接受5个textbox中的字符，难道要5个weinsock?
谁能帮忙想想？谢谢！
不是吧！如果我有20个呢？天哪！
具体些（源码）行吗？
回答者： 添酒不添愁 - 秀才 三级 :
如果发送的文字里有"t1""t2"呢？
Private Sub Text1_Change()
Winsock1.SendData Text1.Text
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim rec As String
Winsock1.GetData rec, vbString
Text2.Text = rec
End Sub
Private Sub Form_Load()
Winsock1.LocalPort = 99
Winsock1.RemoteHost = "115.46.47.11" '192.168.1.101 \\ 115.46.49.57
Winsock1.RemotePort = 100
End Sub
客户端的把port了改一下。
上面的语句只能管一个textbox，我要发送并接受5个textbox中的字符，难道要5个weinsock?
谁能帮忙想想？谢谢！
不是吧！如果我有20个呢？天哪！
具体些（源码）行吗？
回答者： 添酒不添愁 - 秀才 三级 :
如果发送的文字里有"t1""t2"呢？
用控件组吧，跟数组使用方法类似
用load加载
是的，需要5个Winsock控件，才能同时发送5个textbox中的字符。
用控件数组 可以动态添加
编码啊
五个编在一起发,然后再解码.多简单啊
Winsock1.SendData "t1" & Text1.Text & "t2" & Text2.Text & "t3" & Text3.Text & "t4" & Text4.Text & "t5" & Text5.Text
然后 Winsock1.GetData rec, vbString
从rec 中解码:
t1和t2之间的=text1.text
……………………
这样就解决了.