'连接成功 PrivateSubsock_Connect() 'MsgBox("socketconnected") Shape.BackColor=vbGreen Command1.Caption="发送" Label1.Caption=Sock.LocalIP&":"&Sock.LocalPort