弱弱的问句，管理员有啥用？

内涵？笑了

贴吧好比学校，吧主是校长，管理员就是政教处那群没人性的土匪！专门为剥削我们老百姓而存在的，万恶的旧社会！

'****主机端代码****
'添加一个winsock控件，2个textbox，2个命令按钮
'将Text2的MultiLine属性设置为 True，ScrollBars 为 2
Private Sub Command1_Click()
Winsock1.LocalPort = 1050
Winsock1.Bind
Winsock1.Listen
Me.Caption = "正在等待客户端连接"
Command1.Enabled = False
End Sub
Private Sub Command2_Click()
If Winsock1.State = sckConnected Then
Winsock1.SendData (Text1.Text)
Text1.Text = ""
End If
End Sub
Private Sub Form_Load()
Command1.Caption = "等待客户端"
Command2.Caption = "发送消息"
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClose Then Winsock1.Close
Winsock1.Accept (requestID)
Me.Caption = Winsock1.RemoteHostIP & "已连接"
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim txtwinsock1.GetData txt, vbString
Text2.Text = Text2.Text & vbCrLf & txt
End Sub

看着像做病毒程序