Question

VB中如何使用winsock来实现text1.text内容的发送

程序部分代码:

控制端:

Private Sub Command2_Click()
If Text1 = "" Then
MsgBox "请输入你要发送的消息", vbOKOnly, "提示"
Else
If Winsock1.State <> sckConnected Then
state_lab = "请先建立连接"
Else
Winsock1.SendData Text1.Text `这里怎么写???
End If
End If
End Sub

被控端代码:
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strget As String
Dim ccom As String
Winsock1.GetData strget
Select Case strget
Case text1.Text `这里怎么写??
MsgBox text1.Text '这里怎么写??
Case Else
End Select
End Sub

Answer 1

1,Winsock1.SendData Text1.Text 这样直接就可以发送,不过是在UDP下.
2,不明白啥意思.
3,msgbox trim(strget)
可能会出错,个人理解..呵

Answer 2

1:winsock1.connect " www.qq.com",802:winsock1.senddata text13:dim a as string:winsock1.getdata a