[RELEASE]Socket Server Class
[RELEASE]Socket Server Class
Heya guys,
I just finished a class library of sockets, and I'm releasing it here. This actually has all the more useful functions of a server side, and client side. You can send messages, check if you got any messages, etc...
There is a lil' example:
The current functions, properties of the client side are:
SendString(String)
SendInteger(Integer, Integer)
SendBytes(Byte())
GotString(String)
GotInteger(Integer, Integer)
GotBytes(Byte())
Property: HostName
Property: Port
The current functions, properties of the server side are:
SendString(String)
SendInteger(Integer, Integer)
SendBytes(Byte())
GotString(String)
GotInteger(Integer, Integer)
GotBytes(Byte())
Property: Port
**Note: All the functions got comments, so I think it's easy to know what are you going to do.**
Virus scan: VirusTotal - Free Online Virus, Malware and URL Scanner
Full source:
Thanks, and enjoy =)
P.S.
Report here any kind of bugs that you found, also I will add a log function later, cause now it's kinda late....
I just finished a class library of sockets, and I'm releasing it here. This actually has all the more useful functions of a server side, and client side. You can send messages, check if you got any messages, etc...
There is a lil' example:
Code:
Imports Sockets_Server.SocketsServer
Module SSTest
Public Client As New ClientSide("localhost", 4475)
Public Server As New ServerSide(4475)
Sub Main()
End Sub
End Module
SendString(String)
SendInteger(Integer, Integer)
SendBytes(Byte())
GotString(String)
GotInteger(Integer, Integer)
GotBytes(Byte())
Property: HostName
Property: Port
The current functions, properties of the server side are:
SendString(String)
SendInteger(Integer, Integer)
SendBytes(Byte())
GotString(String)
GotInteger(Integer, Integer)
GotBytes(Byte())
Property: Port
**Note: All the functions got comments, so I think it's easy to know what are you going to do.**
Virus scan: VirusTotal - Free Online Virus, Malware and URL Scanner
Full source:
Code:
Imports System.Net
Imports System.Net.Sockets
Imports System.IO
Namespace SocketsServer
Public Class ClientSide
Private PortNum As Integer
Private Host As String
''' <summary>
''' Gets the current port number of the server which is begin used by this client
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Port As Integer
Get
Return PortNum
End Get
End Property
''' <summary>
''' Gets the current ip of the server which is begin used by this client
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property HostName As String
Get
Return Host
End Get
End Property
Public Sub New(ByVal hostname As String, ByVal port As Integer)
PortNum = port
hostname = Host
End Sub
Private TCPC As New TcpClient(Host, PortNum)
''' <summary>
''' Sends a string value via a socket to the remote host. ACE ROCKS!!!
''' </summary>
''' <param name="str"></param>
''' <remarks></remarks>
Public Sub SendString(ByVal str As String)
Dim s As Stream = TCPC.GetStream
If Not TCPC.Connected Then
Try
TCPC.Connect(Host, PortNum)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Else
s.Write(System.Text.ASCIIEncoding.ASCII.GetBytes(str), 0, str.Length)
End If
End Sub
''' <summary>
''' Sends a integer value via a socket to the remote host. ACE ROCKS!!!
''' </summary>
''' <param name="int"></param>
''' <remarks></remarks>
Public Sub SendInteger(ByVal int As Integer, ByVal count As Integer)
Dim s As Stream = TCPC.GetStream
If Not TCPC.Connected Then
Try
TCPC.Connect(Host, PortNum)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Else
s.Write(BitConverter.GetBytes(int), 0, count)
End If
End Sub
''' <summary>
''' Sends a array of bytes via a socket to the remote host. ACE ROCKS!!!
''' </summary>
''' <param name="b"></param>
''' <remarks></remarks>
Public Sub SendBytes(ByVal b() As Byte)
Dim s As Stream = TCPC.GetStream
If Not TCPC.Connected Then
Try
TCPC.Connect(Host, PortNum)
Catch ex As Exception
MsgBox(ex.Message)
End Try
Else
s.Write(b, 0, b.Length)
End If
End Sub
''' <summary>
''' Gets if the client got the message (string) from the server or not. ACE ROCKS?
''' </summary>
''' <param name="str"></param>
''' <remarks></remarks>
Public Function GotString(ByVal str As String) As Boolean
Dim s As Stream = TCPC.GetStream
If s.Read(System.Text.ASCIIEncoding.ASCII.GetBytes(str), 0, str.Length) Then
Return True
Else
Return False
End If
End Function
''' <summary>
''' Gets if the client got a message (integer) from the server. ACE ROCKS?
''' </summary>
''' <param name="int"></param>
''' <param name="len"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GotInteger(ByVal int As Integer, ByVal len As Integer) As Boolean
Dim s As Stream = TCPC.GetStream
If s.Read(BitConverter.GetBytes(int), 0, len) Then
Return True
Else
Return False
End If
End Function
''' <summary>
''' Gets if the client got a array of bytes from the server. ACE ROCKS?
''' </summary>
''' <param name="b"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GotBytes(ByVal b() As Byte) As Boolean
Dim s As Stream = TCPC.GetStream
If s.Read(b, 0, b.Length) Then
Return True
Else
Return False
End If
End Function
End Class
Public Class ServerSide
Private pn As Integer
Private TCPS As New TcpListener(pn)
''' <summary>
''' Gets the current port number of the server
''' </summary>
''' <value></value>
''' <returns></returns>
''' <remarks></remarks>
Public ReadOnly Property Port As Integer
Get
Return pn
End Get
End Property
Public Sub New(ByVal port As Integer)
pn = port
TCPS.Start()
End Sub
''' <summary>
''' Sends a string message to all the clients
''' </summary>
''' <param name="str"></param>
''' <remarks></remarks>
Public Sub SendString(ByVal str As String)
Dim s As Socket = TCPS.AcceptSocket
Try
s.Send(System.Text.ASCIIEncoding.ASCII.GetBytes(str))
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
''' <summary>
''' Sends a integer value to all the clients
''' </summary>
''' <param name="int"></param>
''' <remarks></remarks>
Public Sub SendInteger(ByVal int As Integer)
Dim s As Socket = TCPS.AcceptSocket
Try
s.Send(BitConverter.GetBytes(int))
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
''' <summary>
''' Sends a array of bytes to all the clients
''' </summary>
''' <param name="b"></param>
''' <remarks></remarks>
Public Sub SendBytes(ByVal b() As Byte)
Dim s As Socket = TCPS.AcceptSocket
Try
s.Send(b)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
''' <summary>
''' Gets if the server got or not a string message from the client(s)
''' </summary>
''' <param name="msg"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GotString(ByVal msg As String) As Boolean
Dim s As Socket = TCPS.AcceptSocket
If (s.Receive(System.Text.ASCIIEncoding.ASCII.GetBytes(msg))) Then
Return True
Else
Return False
End If
End Function
''' <summary>
''' Gets if the server got or not a integer value from the client(s)
''' </summary>
''' <param name="int"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GotInt(ByVal int As Integer) As Boolean
Dim s As Socket = TCPS.AcceptSocket
If (s.Receive(BitConverter.GetBytes(int))) Then
Return True
Else
Return False
End If
End Function
''' <summary>
''' Gets if the server got or not a array of bytes from the client(s)
''' </summary>
''' <param name="b"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GotBytes(ByVal b() As Byte) As Boolean
Dim s As Socket = TCPS.AcceptSocket
If (s.Receive(b)) Then
Return True
Else
Return False
End If
End Function
End Class
End Namespace
P.S.
Report here any kind of bugs that you found, also I will add a log function later, cause now it's kinda late....
thank you, Would you beable to release the source so i can convert it to c#?
but thanks!
but thanks!
well you send me the link for this topic on msn but what does it do? 
Clean And Approved.
It's a class, so easy to use.
Really this should be in Open source, I want to build a repository. So collecting anything Open Source would be great.
It's a class, so easy to use.
Really this should be in Open source, I want to build a repository. So collecting anything Open Source would be great.
Originally Posted by cosconub
thank you, Would you beable to release the source so i can convert it to c#?
but thanks!
but thanks!
oh didnt know they Can be used together, this jus made my life 1 millon time easyier
Good release, helpful!
http://www.mpgh.net/forum/33-visual-...ient-only.html <--- open source Client Only TCP Socket :P Just Thought it might help also if you kno more about sockets :P
Also this is to help the OP Owner... AcE.bu50t Check that thread to learn how to use events instead of functions to recieve Data and shit
Also this is to help the OP Owner... AcE.bu50t Check that thread to learn how to use events instead of functions to recieve Data and shit
thx guys, btw: added source
Originally Posted by Deto
nice but, I luv using functions 
Originally Posted by Deto
http://www.mpgh.net/forum/33-visual-...ient-only.html <--- open source Client Only TCP Socket :P Just Thought it might help also if you kno more about sockets :P
Also this is to help the OP Owner... AcE.bu50t Check that thread to learn how to use events instead of functions to recieve Data and shit
Also this is to help the OP Owner... AcE.bu50t Check that thread to learn how to use events instead of functions to recieve Data and shit
events are better though for events because then as soon as the client recieves data from the server you event will raise with the data from the server instead of coding a loop to keep checkin the server for data :P
Originally Posted by Deto
events are better though for events because then as soon as the client recieves data from the server you event will raise with the data from the server instead of coding a loop to keep checkin the server for data :P