| P2P的简单示例(VB.net版) 二__教程 |
|
| 日期：2007-5-20 0:37:32 人气：100 [大 中 小] |
|
|
|
|
|
Dim msg As String = splitStr(1)
Console.WriteLine(Chr(10) & Chr(13) & "收到来自" & fromUname & "的消息:" & msg)
Console.Write("Client>")
Dim i As Integer
For i = 0 To OLUserName.Length - 1
If OLUserName(i) = fromUname Then
Exit For
End If
Next
Dim tempbytes() As Byte = Encoding.Unicode.GetBytes(CHTMSGEND)
ClientSocket.SendTo(tempbytes, OLUserEP(i))
End Sub
'处理打洞函数
Private Sub makeHold(ByVal indata() As Byte, ByVal recvcount As Integer)
Dim makholdstr As String = Encoding.Unicode.GetString(indata, 4, recvcount)
Dim ipepstr() As String = makholdstr.Split(":")
Dim holdEP As IPEndPoint = New IPEndPoint(IPAddress.Parse(ipepstr(0)), ipepstr(1))
Dim holdbytes() As Byte = Encoding.Unicode.GetBytes(HOLDOK & username)
ClientSocket.SendTo(holdbytes, holdEP)
Console.WriteLine("回送打洞消息.")
End Sub
'处理用户上线的函数
Private Sub addOnLine(ByVal inData() As Byte, ByVal recvCount As Integer)
Dim inStr As String = Encoding.Unicode.GetString(inData, 4, recvCount - 4)
Dim userinfo() As String = inStr.Split("|")
Dim strUserEP() As String = userinfo(1).Split(":")
Dim i As Integer
For i = 0 To OLUserName.Length - 1
If OLUserName(i) = "" Then
OLUserName(i) = userinfo(0)
OLUserEP(i) = New IPEndPoint(IPAddress.Parse(strUserEP(0)), strUserEP(1))
Console.WriteLine(Chr(10) & Chr(13) & "用户" & OLUserName(i) & "上线了. 用户地址:" & OLUserEP(i).ToString)
Console.Write("Client>")
Exit Sub
End If
Next
ReDim Preserve OLUserName(i + 1)
ReDim Preserve OLUserEP(i + 1)
OLUserName(i + 1) = userinfo(0)
OLUserEP(i + 1) = New IPEndPoint(IPAddress.Parse(strUserEP(0)), strUserEP(1))
Console.WriteLine(Chr(10) & Chr(13) & "用户" & OLUserName(i + 1) & "上线了. 用户地址:" & OLUserEP(i + 1).ToString)
Console.Write("Client>")
End Sub
'处理用户下线的函数
Private Sub removeOnLine(ByVal inData() As Byte, ByVal recvCount As Integer)
Dim offUname As String = Encoding.Unicode.GetString(inData, 4, recvCount - 4)
Dim i As Integer
For i = 0 To OLUserName.Length - 1
If OLUserName(i) = offUname Then
OLUserName(i) = ""
OLUserEP(i) = Nothing
Console.WriteLine(Chr(10) & Chr(13) & "用户" & offUname & "下线了.")
Console.Write("Client>")
Exit Sub
End If
Next
End Sub
'发送消息的函数
Public Function sendmsg(ByVal msg As String, ByVal sendToIPEP As IPEndPoint) As String
Dim sendBytes As [Byte]() = Encoding.Unicode.GetBytes(msg)
'判断发送的字节数是否超过了服务器缓冲区大小
If sendBytes.Length > 1024 Then
Return "W输入的字数太多"
End If
'判断消息是否发送成功
While msgSendEnd = False
sendDone = New ManualResetEvent(False)
Try
ClientSocket.SendTo(sendBytes, sendToIPEP)
sendDone.WaitOne(10000, True) '阻塞线程10秒
If msgSendEnd = False Then
Console.WriteLine("消息发送超时")
Else
Exit While
End If
Catch e As Exception |
|
|
| 出处：本站原创 作者：佚名 |
|
|
