如何实现VB.NET服务器端

小编给大家分享一下如何实现VB.NET服务器端,相信大部分人都还不怎么了解,因此分享这篇文章给大家参考一下,希望大家阅读完这篇文章后大有收获,下面让我们一起去了解一下吧!

目前创新互联已为数千家的企业提供了网站建设、域名、雅安服务器托管网站托管、企业网站设计、铜官网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。

这是用VB.NET实现的一个简单的P2P示例,利用了UDP打洞技术.分服务器端跟客户端,VB.NET服务器端负责登陆记录用户的IP和端口及转发打洞消息(相关技术在CSDN搜一下,有很多的),原理到处都有,这里贴出了VB.NET的代码,供初学者交流,也欢迎高手点评。

VB.NET服务器端在启动成功后,输入help可以查看到服务器相关命令。客户端在登陆成功后,输入help可以查看客户端相关命令。(登陆时用户名随便)

以下是VB.NET服务器端:

  1. Imports System.Net  

  2. Imports System.Net.Sockets  

  3. Imports System.Text  

  4. Imports System.Threading  

  5. Imports System.Collections  

  6.  

  7. Module myUDPServer  

  8.  

  9. #Region "全局变量"  

  10.  

  11. Dim ServerSocket As New Socket(AddressFamily.InterNetwork, SocketType.Dgram, ProtocolType.Udp)  

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

  13.  

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

  15.  

  16. Dim userName(0) As String  

  17. Dim userIPEP(0) As IPEndPoint  

  18. Dim userTime(0) As Integer  

  19.  

  20. Dim timerDelegate As New TimerCallback(AddressOf onLineTimeOut)  

  21.  

  22. #End Region  

  23.  

  24. #Region "参数"  

  25.  

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

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

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

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

  30. Const P2PCONN As String = "13" '请求P2P连接的消息|||消息形式:13+自己的用户名+|+对方的用户名  

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

  32.  

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

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

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

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

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

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

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

  40.  

  41. '以下是服务器端的命名  

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

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

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

  45.  

  46. #End Region  

  47.  

  48. #Region "方法"  

  49.  

  50. '主函数,程序入口  

  51. Sub Main()  

  52.  

  53. '获得服务器的IP地址  

  54. Dim addressList As System.Net.IPAddress() = DNS.GetHostByName(Dns.GetHostName()).AddressList  

  55. Dim ServerIP As IPAddress = addressList(0)  

  56.  

  57. ServerSocket.Bind(ipep)  

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

  59. Console.WriteLine("服务器IP:" & ServerIP.ToString & " 正在监听" & ipep.Port.ToString & "端口")  

  60. Dim listenTH As New Thread(AddressOf listen)  

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

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

  63.  

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

  65.  

  66. Dim SVInput As String  

  67. While True  

  68. Console.Write("Server>")  

  69. SVInput = Console.ReadLine().ToUpper  

  70. Select Case SVInput  

  71. Case EXITPRO  

  72. listenTH.Abort()  

  73. ServerSocket.Close()  

  74. Exit Sub  

  75. Case SHOWULIST  

  76. showUser()  

  77. Case HELP  

  78. 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))  

  79. Case Else  

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

  81. End Select  

  82. End While  

  83.  

  84. End Sub  

以上是“如何实现VB.NET服务器端”这篇文章的所有内容,感谢各位的阅读!相信大家都有了一定的了解,希望分享的内容对大家有所帮助,如果还想学习更多知识,欢迎关注创新互联行业资讯频道!


当前名称:如何实现VB.NET服务器端
路径分享:http://myzitong.com/article/pposhg.html