我想用WinSocket实现局域网内的文件传输与聊天

程序源代码

服务器程序：

Private Sub Command1_Click() --退出按钮

End

End Sub

Private Sub Command2_Click() --发送选项

Dim a As String

a = "服务器："

Winsockserver.SendData "(" & Time & ")" & vbCrLf & textsend.Text

textget.Text = textget.Text & a & "(" & Time & ")" & vbCrLf & textsend.Text & vbCrLf --可自动换行，并有时间显示

textsend.Text = "" --发送完毕后，文本框自动清空

End Sub

Private Sub Command3_Click() --字体修改程序

CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects

CommonDialog1.ShowFont

If CommonDialog1.FontName > " " Then

textget.FontName = CommonDialog1.FontName

End If

textget.FontSize = CommonD