在调试时，出现错误—— 实时错误‘10093’：winsockinit应首先被调用
Private Sub Command3_Click() '关机
Dim strSend As String: Dim Str_Copure As String
StrName = TxtCmpName.Text
Str_Copure = frm_Server.UDP_Data.LocalHostName
Call Send
strSend = "GB"
frm_Server.UDP_Data.SendData strSend”出错“
End Sub
注：sock已设成udp协议