注册 登录
编程论坛 VB.NET论坛

VB.NET创建Socket5服务器

qiutian1 发布于 2016-10-23 11:34, 2225 次点击
[b]LhSocket5Net  是一款为开发人员用于在windows系统下假设Socket5服务器的支持库。
支持 Socket4,Socket4A,Socket5 协议传输,并提供对UDP代理的操作。
开发人员可指定本地服务器IP与端口进行架设,支持用户权限的校验,可对用用户链接数量速度等进行相关控制。
LhSocket5Net提供COM对象接口,可用于任意第三方开发平台进行集成开发,服务器的
架设简单以便并提供完整代码演示。
支持库进行了高效的校验与开发具有较好的兼容性完善性适宜各类相关内部集成使用。
程序代码:

        '参数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 Class  


0 回复
1