請問一下,為什麼這個程式在區網可以連線(我們家有兩台電腦),但是我和我的同學(都是adsl的)為什麼他會連不進來?
請大家幫忙一下謝謝。
=================以下是程式碼(clint)========================
Private Sub Command2_Click()
If Trim(Text2.Text) = "" Then
MsgBox "登錄名稱不得為空白", vbCritical
Exit Sub
End If
On Error GoTo Erkk
LogId = Text2.Text
Form1.Winsock1.RemoteHost = Combo1.Text
Form1.Winsock1.RemotePort = 5024
Form1.Winsock1.Connect
Do Until Form1.Winsock1.State = 7 Or Form1.Winsock1.State = 8 Or Form1.Winsock1.State = 9
DoEvents
Loop
Form1.Winsock1.SendData "Login" & SpStr & LogId & SpStr & IPAdress
If Form1.Winsock1.State = 7 Then
Unload Me
End If
Exit Sub
Erkk:
MsgBox Err.Description, vbCritical
Form1.Winsock1.Close
End Sub
==============server===============
Private Sub WsockGate_ConnectionRequest(ByVal RequestID As Long)
WsockGate.Close
DoEvents
WsockGate.Listen
For a = 1 To SuportMax
If WsockCt(a).State <> 7 Then
WsockCt(a).Close
WsockCt(a).Accept RequestID
DoEvents
SuportNow = SuportNow + 1
Exit Sub
End If
Next
End Sub
請大家幫忙一下謝謝。
=================以下是程式碼(clint)========================
Private Sub Command2_Click()
If Trim(Text2.Text) = "" Then
MsgBox "登錄名稱不得為空白", vbCritical
Exit Sub
End If
On Error GoTo Erkk
LogId = Text2.Text
Form1.Winsock1.RemoteHost = Combo1.Text
Form1.Winsock1.RemotePort = 5024
Form1.Winsock1.Connect
Do Until Form1.Winsock1.State = 7 Or Form1.Winsock1.State = 8 Or Form1.Winsock1.State = 9
DoEvents
Loop
Form1.Winsock1.SendData "Login" & SpStr & LogId & SpStr & IPAdress
If Form1.Winsock1.State = 7 Then
Unload Me
End If
Exit Sub
Erkk:
MsgBox Err.Description, vbCritical
Form1.Winsock1.Close
End Sub
==============server===============
Private Sub WsockGate_ConnectionRequest(ByVal RequestID As Long)
WsockGate.Close
DoEvents
WsockGate.Listen
For a = 1 To SuportMax
If WsockCt(a).State <> 7 Then
WsockCt(a).Close
WsockCt(a).Accept RequestID
DoEvents
SuportNow = SuportNow + 1
Exit Sub
End If
Next
End Sub
全站熱搜
留言列表