Класс сокета версии v2 – VB.NET – Интернет, браузеры и HTML – База кода

Скачать

Название (оригинал): Socket Class v2

Описание:
Англ (оригинал)This code was origonaly by another person here on pscode, name of witch i can’t remember and
im on 56k, soo i can’t bebothered to get his name lol. His code was great but i had ideas to
make it better, so i did. This code has beeb completly revamped, everything a bit dodgy
changed, Messy code update and stuff :). I also added .RemoteHost,.RemotePort and
.ConnectedHost and .ConnectedPort, and a time var on each event.
Heres a log of some of the things i done 🙂
Cleaned Up The Code:
– Renamed Variables
– Removed UnNeeded Variables
– Removed StateObject Class
– Made all StateObject class Variables into local variables
– Made all things that used the StateObject Class use the local variables
– Removed UnNeeded Imports
– Re-Worked the Connect Sub:
From:

client = New Socket(AddressFamily.InterNetwork, SocketType.Stream,
ProtocolType.Tcp)
port = RemotePort
ipHostInfo = Dns.Resolve(RemoteHostName)
ipAddress = ipHostInfo.AddressList(0)
Dim remoteEP As New IPEndPoint(ipAddress, port)
client.BeginConnect(remoteEP, AddressOf sockConnected, client)
To:
tcpClient = New Socket(AddressFamily.InterNetwork, SocketType.Stream,
ProtocolType.Tcp)
tcpClient.BeginConnect(New IPEndPoint(Dns.Resolve(sHost).AddressList(0), iPort),
AddressOf sockConnected, tcpClient)
– Added .RemoteHost ‘Sets or Gets the host to connect to (Optional)
– Added .RemotePort ‘Sets or Gets the port to connect to (Optional)
– Added .ConnectedHost ‘Returns the Ip connected to
– Added .ConnectedPort ‘Returns the Port connected to
– Changed SendData to Do ASCII.GetBytes(sData) Instead of the user doing that and
passing the byte array
– Changed DataArrival Event to Do ASCII.GetBytes(sData) Instead of the user doing
that when the data is passed to the event
– Added a date Var to every event
-Added Event: onSendBegin

Рус (машинный)Этот код был origonaly другой человек здесь на pscode, название которой я не помню и
я на 56к, СУ я не могу bebothered, чтобы получить его имя, лол. Его код был большой, но у меня были идеи для
сделать его лучше, что я и сделал. Этот код имеет Биба полностью переделан, все немного изворотливые
поменял, грязный код обновления и прочее :). Я также добавил .Удаленныйузел,.Удаленный порт и
.И ConnectedHost .ConnectedPort, и раз вар на каждое событие.
Херес журнал некоторые из вещей, которые я сделал 🙂
Вычистили Код:
– Переименованы Переменные
– Удалены Ненужные Переменные
– Удалены StateObject Класс
– Сделал все StateObject класс переменных в локальные переменные
– Сделаны все вещи, которые использовал StateObject класс использовать локальные переменные
– Удалены Ненужные Импорт
– Переделал подключить саб:
От:

клиент = Новый сокет(AddressFamily.Интерсетевой, SocketType.Поток,
ProtocolType.Протокол TCP)
порт = удаленный порт
ipHostInfo = СНД.Решения(RemoteHostName)
свойство ipaddress = ipHostInfo.AddressList(0)
Дим remoteEP как New IPEndPoint(IP-адрес, порт)
клиента.BeginConnect(remoteEP, AddressOf sockConnected, клиент)
К:
tcpClient = Новый сокет(AddressFamily.Интерсетевой, SocketType.Поток,
ProtocolType.Протокол TCP)
tcpClient.BeginConnect(Новый IPEndPoint(Службы DNS.Решения(шость).AddressList(0), iPort),
AddressOf sockConnected, tcpClient)
– Добавлена .Удаленныйузел ‘возвращает или устанавливает хост для подключения (опционально)
– Добавлена .Удаленный порт ‘устанавливает или возвращает значение порта для подключения (Опция)
– Добавлена .ConnectedHost ‘возвращает IP подключен к
– Добавлена .ConnectedPort ‘возвращает порт, подключенный к
– Изменен SendData делать в формате ASCII.Методы getbytes(sData) вместо пользователя, что делать и
передача массива байт
– Изменено событие DataArrival делать в формате ASCII.Методы getbytes(sData), а пользователь делает
это когда данные передаются на мероприятие
– Добавлена Дата Варе, чтобы каждое мероприятие
-Добавлено событие: onSendBegin

база кода