請問一下,為什麼這個程式在區網可以連線(我們家有兩台電腦),但是我和我的同學(都是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
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()