1,502
社区成员
发帖
与我相关
我的任务
分享
Private Sub Form_Load()
Winsock1.Connect
End Sub
Private Sub Form_Unload(Cancel As Integer)
Winsock1.Close
End Sub
Private Sub Timer1_Timer()
List1.AddItem Winsock1.State
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim str1 As String
List2.AddItem Winsock1.GetData(str1, 255)
End Sub