作者a60301 (mt)
看板Visual_Basic
标题[VB6 ] 关於WinSock IP的问题
时间Mon May 4 04:30:54 2009
我写了个程式
包含了Server端和Client端
程式码如下：
Server端程式
Private Sub cls_Click()
List1.Clear
End Sub
Private Sub sent_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
If s.Enabled And sent.Text <> "" Then
w1.SendData sent.Text
a "Server说：" & sent.Text
sent.Text = ""
End If
End If
End Sub
Private Sub startUp_Click()
On Error GoTo er
w1.Protocol = sckTCPProtocol
w1.LocalPort = 8483
w1.Listen
a "启动Server On Port 8483"
startUp.Enabled = False
stopDown.Enabled = True
Exit Sub
er:
a "Port 8483 已被其他程式使用中"
End Sub
Function a(ByVal str As String)
List1.AddItem str
List1.ListIndex = (List1.ListCount - 1)
End Function
Private Sub stopDown_Click()
w1.Close
a "关闭Server"
startUp.Enabled = True
stopDown.Enabled = False
s.Enabled = False
End Sub
Private Sub w1_Close()
a "连线已被关闭"
stopDown_Click
End Sub
Private Sub w1_ConnectionRequest(ByVal requestID As Long)
If w1.State <> sckClosed Then
w1.Close
w1.Accept requestID
Else
w1.Accept requestID
End If
a "Client连线成功"
s.Enabled = True
w1.SendData "CONNECT OK"
End Sub
Private Sub w1_DataArrival(ByVal bytesTotal As Long)
Dim tmp As String
w1.GetData tmp
a "Client说：" & tmp
End Sub
Client端程式
Function a(ByVal str As String)
List1.AddItem str
List1.ListIndex = (List1.ListCount - 1)
End Function
Private Sub cls_Click()
List1.Clear
End Sub
Private Sub Command2_Click()
w1.Close
Command1.Enabled = True
Command2.Enabled = False
s.Enabled = False
a "连线已被关闭"
End Sub
Private Sub sent_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
If s.Enabled And sent.Text <> "" Then
w1.SendData sent.Text
a "Client说：" & sent.Text
sent.Text = ""
End If
End If
End Sub
Private Sub t_Timer()
If t.Tag = "" Then
a "无法连线"
Command2_Click
End If
t.Enabled = False
End Sub
Private Sub w1_Close()
a "Server已关闭"
Command2_Click
End Sub
Private Sub w1_DataArrival(ByVal bytesTotal As Long)
Dim srtData As String
w1.GetData srtData
If srtData = "CONNECT OK" Then
t.Tag = "OK"
a "连线成功"
Else
a "Server说：" & srtData
End If
End Sub
Private Sub Command1_Click()
host = InputBox("请输入 Server 的 IP")
w1.RemoteHost = host
w1.RemotePort = 8483
w1.Connect
Command1.Enabled = False
Command2.Enabled = True
s.Enabled = True
a "连线至 " & host & ":8483 中..."
t.Tag = ""
t.Enabled = True
End Sub
一切执行都很正常
问题出在於Server端
我想要有人在自己家里就可以开Server端
然後让Client端连近来
但是我试过了
除非设定路由器
或是直接由ADSL拨接
并取得实体IP
才可以连线
有没有什麽方法可以解决?
把WinSock换成别种方式吗?
还是改程式码就好了呢?
谢谢喔～
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.116.114.85
1F：→ mron:我的 IP 是 127.0.0.1 05/04 14:49
2F：推 ilsc:楼上 ..... 05/04 15:30
我的IP是122.116.114.85
※ 编辑: a60301 来自: 118.167.11.235 (09/09 11:11)