VB.NET使用LhSocket5Net创建Socket5服务器

前端之家收集整理的这篇文章主要介绍了VB.NET使用LhSocket5Net创建Socket5服务器前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

LhSocket5Net 是一款为开发人员用于在windows系统下假设Socket5服务器的支持库。

支持 Socket4,Socket4A,Socket5 协议传输,并提供对UDP代理的操作。

开发人员可指定本地服务器IP与端口进行架设,支持用户权限的校验,可对用用户链接数量速度等进行相关控制。

LhSocket5Net提供COM对象接口,可用于任意第三方开发平台进行集成开发,服务器的

架设简单以便并提供完整代码演示。

支持库进行了高效的校验与开发具有较好的兼容性完善性适宜各类相关内部集成使用。


Public Class Form1

    Public VLhProxy As LhSocket5Net.lhSocket5Proxy = Nothing
    Public VlhSocket5 As LhSocket5Net.LhProxy = Nothing
    Private Sub Form1_Load(sender As Object,e As EventArgs) Handles MyBase.Load
        ' 官方主页: http://www.lanheng.net/ProductContent/40
        ' 产品下载:http://www.lanheng.net/ProductContent/40/87

        VLhProxy = New LhSocket5Net.lhSocket5Proxy

        '免费账号注册地址  
        'http://count.lanheng.net/user/Register.aspx?id=84383
        '产品信息地址
        '请先进行登录之后  在建立Socket5代理  请在上方地址申请账号
        If Not VLhProxy.UserLogin("********","********") Then
            MsgBox("用户登录失败!",vbOKOnly,"")
            Return
        End If

        '参数1 本地服务器代理IP地址
        '参数2 本地服务器代理端口
        '参数3 客户端用来连接的账号 如果为浏览器提供代理 请不要设置 账号与密码
        '参数4 客户端用来连接的密码 如果为浏览器提供代理 请不要设置 账号与密码
        '参数5 是否支持UDP代理支持
        '参数6 充许同时处理的连接数  默认为100  0为不限
        '参数7 限制代理端口 例如限制代理目标端口  80,25,24 等
        '参数8 限制最大下行可用带宽  单位KB    0为不限
        '参数9 限制最大上行可用带宽  单位KB    0为不限
        VlhSocket5 = VLhProxy.CreatePorxy("192.168.1.116",8080,"",True,100,"", 0,0)
        If IsNothing(VlhSocket5) Then
            Console.WriteLine("代理建立失败:请查看错误日志")
            Return
        End If

        Label2.Text = String.Format("本地代理IP:{0}  本地端口:{1}", VlhSocket5.VIp,VlhSocket5.VPort.ToString)
        Label4.Text = String.Format("用户链接账号:{0}   密码:{1}",VlhSocket5.VUserName,VlhSocket5.VUserPassword)
        Label5.Text = String.Format("是否启动Udp支持:{0}",VlhSocket5.VIsUdp.ToString)
        Label6.Text = String.Format("限制最大上行:{0}  限制最大下行:{1}",VlhSocket5.MaxSpeedUpdate.ToString,VlhSocket5.MaxSpeedDown.ToString)
        Label7.Text = String.Format("最大充许同时处理连接数:{0}",VlhSocket5.ActivityCountMax.ToString)
        Label8.Text = String.Format("是否开启日志功能:{0}",VLhProxy.IsEanbleErrorLog.ToString)

        '关闭代理
        'VlhSocket5.CloseProxy

        '返回当前操作的上行与下行时时速度
        'VlhSocket5.GetSpeed

        '返回当前链接数量
        'VlhSocket5.ActivityCount

        '获取本地所有IP列表
        'VLhProxy.GetAllLocalAllIp()

        '获取一个本地未被使用的端口
        'VLhProxy.GetRandomNoUsePort()

        '是否开启日志功能   默认开启状态
        'VLhProxy.IsEanbleErrorLog

    End Sub


    Private Sub Timer1_Tick(sender As Object,e As EventArgs) Handles Timer1.Tick
        If IsNothing(VlhSocket5) Then Return
        Label1.Text = "当前速度 上行:" + VlhSocket5.GetSpeed.UpdateSpeed.ToString + "KB 下行:" + VlhSocket5.GetSpeed.DownSpeed.ToString + "KB" + "  Conn:" + VlhSocket5.ActivityCount.ToString + "/" + VlhSocket5.ActivityCountMax.ToString
    End Sub
End Class

源码下载: 单击下载 百度网盘 原文链接:https://www.f2er.com/vb/256857.html

猜你在找的VB相关文章