Private Sub Winsock1_Close()End SubPrivate Sub Winsock1_Connect()End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)End SubPrivate Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)End SubPrivate Sub Winsock1_SendComplete()End SubPrivate Sub Winsock1_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货