![]() |
#2
风吹过b2014-01-15 08:25
|
主机
Private Sub Command1_Click()
Me.Winsock1.SendData Text1.Text
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str As String
Me.Winsock1.GetData str, vbString
Text2 = str + Chr(10) + Chr(13)
End Sub
只有本站会员才能查看附件,请 登录
次机
Private Sub Command1_Click()
Me.Winsock1.SendData Text1.Text
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim temp As String
Me.Winsock1.GetData temp, vbString
Text2 = temp + Chr(10) + Chr(13)
End Sub
只有本站会员才能查看附件,请 登录
只有本站会员才能查看附件,请 登录
本机IP
只有本站会员才能查看附件,请 登录