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

小吳 VBQA 程式設計討論

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


留言列表 (2)

發表留言
  • 苦於思考的人
  • 是要表單一載入時就要聆聽,而不有人要連線才開啟聆聽
  • 心冷熱情熄
  • 或許你在防火牆後方或虛擬網路內
找更多相關文章與討論