# 再回你一次问题

Posted by CK on March 30, 1999 at 09:56:27:

In Reply to: VB 聊天室的问题...急.. posted by High Hand on March 29, 1999 at 20:02:16:

: 我用 VB 撰写一个聊天室 , Server 与 Client 连线 ,
: 动作都正常 , 不过有个问题 , 就是 Client 离线后 ,
: 在重新连线一次时 , 就无法连线成功 , 除非关闭程式
: 再重新开启一次才能连线成功 , 问题好像是「该 IP
: 位址还在使用当中」, 所以我想请问一下 , 要如何才能
: 完全释放该 IP 位址 , 分别加上 tcpServer.Close 及
: tcpClient.Close 还是不行...?

: 还有另一个问题就是 , 要如何判断栏位输入的资料含有
: 3 个 "." ( 例如 : 127.0.0.1 ) , 因为我要用来判断
: 栏位输入是不是「正确的 IP 位址格式」, 谢谢 !

假如 Text1 是输入 IP 的 textbox 的话...

Dim InputLength As Integer, IPDot As Integer
InputLength = Len(Text1.Text)
For i = 1 To InputLength
If Asc(Mid(Text1.Text, i, 1)) < 46 Or Asc(Mid(Text1.Text, i, 1)) > 57 Or Asc(Mid(Text1.Text, i, 1)) = 47 Then
MsgBox "不正确的 IP 位址", , "Error"
Exit Sub
End If
If Asc(Mid(Text1.Text, i, 1)) = 46 Then IPDot = IPDot + 1
Next i

If IPDot <> 3 Then
MsgBox "错误的 IP 格式", , "Error"
Exit Sub
End If

CKegg@dreamer.com.tw

Follow Ups: