Question

请高手看看我做的一个VB局域网聊天，为什么客户端一直显示已与服务器断开连接

代码如下这个是服务器的
Private Gac() As Boolean
Dim Socknumber As Integer
Private Sub Form1_Load()
Winsock1(0).LocalPort = 1600
Winsock1(0).Listen
Socknumber = 0
End Sub
Private Sub Timer1_Timer()
Dim R As Byte, G As Byte, B As Byte
Randomize
R = Int(Rnd * 255) + 1
G = Int(Rnd * 255) + 1
B = Int(Rnd * 255) + 1
Label1.ForeColor = RGB(R, G, B)
Label2.ForeColor = RGB(R, G, B)
End Sub

Answer 1

关键代码没给出呀？如果只有这些代码当然是连不上的

追问

你把邮箱给我我发给你看看你帮我看看这个程序有什么问题好吗？

追答

121392568@qq.com