P2P的简单示例(VB.net版)资源-CSDN下载

共2个文件

txt：1个

doc：1个

ASP.NET

VB.NET

3星 · 超过75%的资源需积分: 10 111 浏览量 2009-01-18 11:24:41 上传评论 1 收藏 11KB RAR 举报

标题 "P2P的简单示例(VB.net版)" 提供了一个关于使用VB.NET实现P2P技术的基础教程。P2P（Peer-to-Peer）网络是一种分布式网络架构，其中每个参与者既是服务的消费者也是服务的提供者，不依赖于中心服务器。在VB.NET这个.NET框架下的编程语言中，开发P2P应用可以利用其丰富的类库和强大的功能。描述中的".doc"文件可能包含了详细的代码示例和步骤解释，但由于没有具体的文件内容，这里将根据P2P和VB.NET的一般知识进行阐述。在VB.NET中构建P2P应用，主要涉及以下知识点： 1. **网络通信基础**：理解TCP/IP协议栈，包括套接字（Socket）编程，它是P2P通信的基础。VB.NET提供了System.Net.Sockets命名空间，用于处理网络连接。 2. **多线程**：P2P网络通常需要同时处理多个连接，因此，多线程编程是必要的。VB.NET支持多线程，可以使用Thread类或ThreadPool类来实现。 3. **数据交换格式**：为了在网络间交换信息，需要一种数据交换格式，如JSON或XML。VB.NET的System.Xml和System.Text.Json命名空间提供了解析和序列化这些格式的工具。 4. **端口监听**：P2P节点需要监听特定端口以接收其他节点的连接请求。VB.NET中的Socket类的BeginAcceptSocket方法可以用于启动异步的端口监听。 5. **对等节点发现**：P2P网络中，节点需要知道其他节点的存在，这可以通过Kadmelia（Kademlia）算法或其他类似的分布式哈希表（DHT）实现。VB.NET可能需要第三方库来实现这类高级算法。 6. **文件共享**：在P2P网络中，文件共享是常见的应用场景。VB.NET可以处理文件I/O操作，结合P2P通信，可以实现文件的分块传输和拼接。 7. **错误处理与异常处理**：网络编程中，错误处理至关重要，VB.NET的Try...Catch语句可以帮助捕获并处理可能出现的异常。 8. **安全通信**：P2P网络可能涉及敏感数据，因此，加密通信是必要的。VB.NET提供了System.Security.Cryptography命名空间，可以用来实现SSL/TLS等安全协议。 9. **事件驱动编程**：P2P系统往往需要响应各种网络事件，VB.NET的事件处理机制可以帮助编写响应式的代码。标签中的"ASP.NET"通常用于构建Web应用，但在这个场景中可能表示P2P应用可能通过Web服务接口进行交互，不过这不在VB.NET的直接范畴内。 "www.pudn.com.txt"可能是提供下载链接或附加信息的文本文件，但具体信息无法在此给出。创建一个简单的P2P示例需要深入理解网络编程、多线程、数据交换和错误处理等概念，并能熟练运用VB.NET的相关类库。实际项目中，还需要考虑性能优化、网络安全以及兼容性等问题。

资源推荐

资源详情

资源评论

收起资源包目录

P2P(VB.net).rar （2个子文件）

P2P的简单示例(VB.net版) .doc 75KB

www.pudn.com.txt 218B

P2P 的简单示例(VB.net 版)

　　这是用 VB.net 实现的一个简单的 P2P 示例。利用了 UDP 打洞技术，分

服务器端跟客户端，服务器端负责登陆记录用户的 IP 和端口及转发打洞消息。

原理到处都有，这里就没有贴出来。这里贴出了 VB.net 的代码，供初学者交

流，也欢迎高手点评……

　　服务器端在启动成功后，输入 help 可以查看到服务器相关命令。

　　客户端在登陆成功后，输入 help 可以查看客户端相关命令(登陆时用户名

随便)。

以下是服务器端:

Imports System.Net

Imports System.Net.Sockets

Imports System.Text

Imports System.Threading

Imports System.Collections

Module myUDPServer

#Region "全局变量"

Dim ServerSocket As New Socket(AddressFamily.InterNetwork,

SocketType.Dgram, ProtocolType.Udp)

Dim ipep As IPEndPoint = New IPEndPoint(IPAddress.Any, 11000)

Dim htUserList As New Hashtable '用来保存在线用户和用户的"IP 和端口"

Dim userName(0) As String

Dim userIPEP(0) As IPEndPoint

Dim userTime(0) As Integer

Dim timerDelegate As New TimerCallback(AddressOf

onLineTimeOut)

#End Region

#Region "参数"

'以下是客户端到服务器端的消息开头

Const LOGININ As String = "10" '请求登陆的消息|||消息形式:10+自己的

用户名

Const LOGINOUT As String = "11" '请求登出的消息|||消息形式:11+自己

的用户名

Const GETULIST As String = "12" '请求获得在线用户列表|||消息形式:12

Const P2PCONN As String = "13" '请求 P2P 连接的消息|||消息形式:13+

自己的用户名+|+对方的用户名

Const HOLDLINE As String = "14" '保持连接.|||消息开式:14+自己的用户

名

'以下是服务器到客户端的消息开头

Const HVUSER As String = "20" '用户名已存在

Const GETUSER As String = "21" '在线用户列表|||消息格式:21+用户名

+EP

Const MAKHOLD As String = "22" '打洞命令|||消息格式:22+IP

Const LOGINOK As String = "23" '登陆成功

Const SERVCLS As String = "24" '服务器关闭

Const MSGEND As String = "25" '消息结束

'以下是服务器端的命名

Const EXITPRO As String = "EXIT" '退出命令

Const SHOWULIST As String = "SHOWUSER" '显示在线用户

Const HELP As String = "HELP" '显示帮助

#End Region

#Region "方法"

'主函数,程序入口

Sub Main()

'获得服务器的 IP 地址

Dim addressList As System.Net.IPAddress() =

Dns.GetHostByName(Dns.GetHostName()).AddressList

Dim ServerIP As IPAddress = addressList(0)

ServerSocket.Bind(ipep)

Console.WriteLine("服务器正在启动....")

Console.WriteLine("服务器 IP:" & ServerIP.ToString & " 正在监听" &

ipep.Port.ToString & "端口")

Dim listenTH As New Thread(AddressOf listen)

listenTH.Start() '启用监听的线程

Console.WriteLine("服务器启动成功.....")

Dim timer As New Timer(timerDelegate, Nothing, 0, 5000)

Dim SVInput As String

While True

Console.Write("Server>")

SVInput = Console.ReadLine().ToUpper

Select Case SVInput

Case EXITPRO

listenTH.Abort()

ServerSocket.Close()

Exit Sub

Case SHOWULIST

showUser()

Case HELP

Console.Write("*********************************" & Chr(10) &

Chr(13) & "exit:输出当前程序" & Chr(10) & Chr(13) & "showuser:显示

当前在线用户例表" & Chr(10) & Chr(13) & "help:显示帮助" & Chr(10) &

Chr(13) & "*********************************" & Chr(10) & Chr(13))

Case Else

Console.WriteLine("*********************************" & Chr(10) &

Chr(13) & "笨瓜,你输入的不是有效的命令." & Chr(10) & Chr(13) &

"*********************************")

End Select

End While

End Sub

'打印在线用户

Sub showUser()

Dim hava As Boolean = False

If userName.Length 0 Then

Dim i As Integer

For i = 1 To userName.Length - 1

If userName(i) "" Then

hava = True

Exit For

End If

If hava = False Then

Console.WriteLine("*********************************" & Chr(10) &

Chr(13) & "当前没有用户在线" & Chr(10) & Chr(13) &

"*********************************")

Exit Sub

End If

Console.WriteLine("*********************************")

For i = 1 To userName.Length - 1

If userName(i) "" Then

Console.WriteLine("用户名:" & userName(i) & " 地址:" &

userIPEP(i).ToString)

End If

Console.WriteLine("*********************************")

Else

Console.WriteLine("*********************************" & Chr(10) &

Chr(13) & "当前没有用户在线" & Chr(10) & Chr(13) &

"*********************************")

End If

End Sub

'服务器监听函数

Sub listen()

While True

Try

Dim recv As Integer = 0

Dim data As [Byte]() = New Byte(1024) {}

Dim sender As New IPEndPoint(IPAddress.Any, 0)

Dim tempRemoteEP As EndPoint = CType(sender, EndPoint)

recv = ServerSocket.ReceiveFrom(data, tempRemoteEP)

'Console.WriteLine(Encoding.Unicode.GetString(data))

Dim msgHead As String = Encoding.Unicode.GetString(data, 0, 4)

Select Case msgHead

Case LOGININ

Dim LoginThing As String = userLogin(data, tempRemoteEP, recv)

If LoginThing = HVUSER Then

sendMsg(HVUSER, tempRemoteEP)

ElseIf LoginThing = LOGINOK Then

sendMsg(LOGINOK, tempRemoteEP)

End If

Case LOGINOUT

userloginout(data, recv)

Case GETULIST

Dim userinfo As String = getUserList()

sendMsg(userinfo, tempRemoteEP)

Case P2PCONN

questP2PConn(data, recv)

Case HOLDLINE

holdOnLine(data, recv)

End Select

Catch e As Exception

'Console.WriteLine(e.ToString)

End Try

End While

End Sub

'转发 P2P 连接请求

Private Sub questP2PConn(ByVal data() As Byte, ByVal recv As

Integer)

Dim recvStr As String = Encoding.Unicode.GetString(data, 4, recv -

Dim split() As String = recvStr.Split("|")

Dim fromEP As IPEndPoint

Dim toEP As IPEndPoint

Dim i As Integer

For i = 1 To userName.Length - 1

If userName(i) = split(0) Then

fromEP = userIPEP(i)

End If

If userName(i) = split(1) Then

toEP = userIPEP(i)

End If

Dim holdbytes() As Byte = Encoding.Unicode.GetBytes(MAKHOLD &

fromEP.ToString)

ServerSocket.SendTo(holdbytes, toEP)

End Sub

'函数.返回所有在线用户.其格式:用户名+|+用户 IPEP+|

Private Function getUserList() As String

Dim userInfo As String = GETUSER

Dim i As Integer

评论收藏

内容反馈

musicdl

2013-01-07

不错，值得参考

juicewall

粉丝: 21

P2P的简单示例(VB.net版)

VB.NET P2P

VB.NET P2P/点对点通讯 实例 Peer_to_Peer

用VB计算机通信网P2P聊天室设计

(Apress.Peer.to.Peer.with.VB.Dot.NET)VB.NET下的P2P编程技术

VB6，测试成功的P2P代码

VB.net 局域网UDP发送和接收网络数据

基于vb.net的socket的聊天软件

VB.net实现聊天功能

vb.net服务端和客户端的通信实例

vb.NET实现代理服务器源码

P2P开发例子

P2P的简单实现

P2P 通信例子

VB.NET编程实例

VB.NET代码示例

ASP.NET 3.5入门经典--涵盖C#和VB.NET(Wrox)

VB2008 多文件内网传送程序

vbfileupload_visualbasic_

VB在网络传输中的一点代码

聊天软件源码(VB.NET)

真正的P2P穿透程序

VB.Net视频聊天系统源代码.rar

P2P穿透软件免费可用

p2pDemo示例

C# P2P小例子代码

VB.NET控件使用实例

简单的P2P聊天程序

vb.net游戏

TFTP接收方的列子 用来进行UDP文件传输

电热水壶坏了别扔，它很容易修好的！

import baomidou 爆红

最新资源

VB.NET P2P/点对点通讯实例 Peer_to_Peer

TFTP接收方的列子用来进行UDP文件传输