简易局域网聊天软件
软件简介:
这是一个最为简单的局域网间聊天软件,在程序方面要求很小,分为两个部分来完成,一
部分是服务器,另一部分是客户端,
程序部分:
(1)客户:
Opon Explicit
Private Sub Command1_Click()
Winsock1.Connect
Command1.Enabled = False
Do
DoEvents
Loop Unl Winsock1.State = sckConnected Or Winsock1.State = sckError
If Winsock1.State = sckError Then
Command1.Enabled = True
Winsock1.Close
Text3.Text = "已与服务器连接失败" + Chr$(13) + Chr$(10) + Text3.Text
Else
Text3.Text = "已与服务器连接成功" + Chr$(13) + Chr$(10) + Text3.Text
Command2.Enabled = True
Command3.Enabled = True
End If
End Sub
Private Sub Command2_Click()
Winsock1.SendData Text1.Text
Text2.Text = "我说的话: " + Text1.Text + Chr$(13) + Chr$(10) + Text2.Text
Text1.Text = ""
End Sub
Private Sub Command3_Click()
Winsock1.Close
Command1.Enabled = True
Command2.Enabled = False
Command3.Enabled = False
Text3.Text = "已与服务器断开" + Chr$(13) + Chr$(10) + Text3.Text
End Sub
Private Sub Form_Load()
- 1
- 2
前往页