knorrigt.com

Home > Ordenadores > Cómo hacer una sala de chat en Visual Basic Express

Cómo hacer una sala de chat en Visual Basic Express

Advertisement

Tener el conocimiento de cómo crear una sala de chat utilizando Microsoft Visual Basic Express le puede ahorrar tiempo cuando se necesita para crear una aplicación de chat. Visual Basic Express está disponible de forma gratuita a cualquier persona interesada en la creación de aplicaciones utilizando VB.NET. Una sala de chat consiste en dos aplicaciones, el servidor y el cliente. El servidor se encarga de todas las conexiones de cliente, así como la aplicación cliente se conecta a los usuarios de la sala de servidores para enviar mensajes.

Instrucciones

Iniciar Microsoft Visual Basic Express y haga clic en "Nuevo proyecto". En el panel izquierdo de la pantalla, selecciona "Aplicación de consola." Haga clic en Aceptar."

Pulse la tecla "Ctrl" + "A", y luego presione "Eliminar". Copia y pega el siguiente código en su "Module1.vb" para crear el programa de servidor:

importaciones System.Net.Sockets

Las importaciones System.Text

Module Module1

Dim clientsList As New Hashtable

Sub Main()

Dim serverSocket As New TcpListener(8888)

Dim clientSocket As TcpClient

Dim infiniteCounter As Integer

Dim counter As Integer

serverSocket.Start()

msg("Chat Server Started ....")

counter = 0

infiniteCounter = 0

For infiniteCounter = 1 To 2

infiniteCounter = 1

counter += 1

clientSocket = serverSocket.AcceptTcpClient()

Dim bytesFrom(10024) As Byte

Dim dataFromClient As String

Dim networkStream As NetworkStream = _

clientSocket.GetStream()

networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))

dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)

dataFromClient = _

dataFromClient.Substring(0, dataFromClient.IndexOf("$"))

clientsList(dataFromClient) = clientSocket

broadcast(dataFromClient + " Joined ", dataFromClient, False)

msg(dataFromClient + " Joined chat room ")

Dim client As New handleClinet

client.startClient(clientSocket, dataFromClient, clientsList)

Next

clientSocket.Close()

serverSocket.Stop()

msg("exit")

Console.ReadLine()

End Sub

Sub msg(ByVal mesg As String)

mesg.Trim()

Console.WriteLine(" >> " + mesg)

End Sub

Private Sub broadcast(ByVal msg As String, _

ByVal uName As String, ByVal flag As Boolean)

Dim Item As DictionaryEntry

For Each Item In clientsList

Dim broadcastSocket As TcpClient

broadcastSocket = CType(Item.Value, TcpClient)

Dim broadcastStream As NetworkStream = _

broadcastSocket.GetStream()

Dim broadcastBytes As [Byte]()

If flag = True Then

broadcastBytes = Encoding.ASCII.GetBytes(uName + " says : " + msg)

Else

broadcastBytes = Encoding.ASCII.GetBytes(msg)

End If

broadcastStream.Write(broadcastBytes, 0, broadcastBytes.Length)

broadcastStream.Flush()

Next

End Sub

Public Class handleClinet

Dim clientSocket As TcpClient

Dim clNo As String

Dim clientsList As Hashtable

Public Sub startClient(ByVal inClientSocket As TcpClient, _

ByVal clineNo As String, ByVal cList As Hashtable)

Me.clientSocket = inClientSocket

Me.clNo = clineNo

Me.clientsList = cList

Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf doChat)

ctThread.Start()

End Sub

Private Sub doChat()

Dim infiniteCounter As Integer

Dim requestCount As Integer

Dim bytesFrom(10024) As Byte

Dim dataFromClient As String

Dim sendBytes As [Byte]()

Dim serverResponse As String

Dim rCount As String

requestCount = 0

For infiniteCounter = 1 To 2

infiniteCounter = 1

Try

requestCount = requestCount + 1

Dim networkStream As NetworkStream = _

clientSocket.GetStream()

networkStream.Read(bytesFrom, 0, CInt(clientSocket.ReceiveBufferSize))

dataFromClient = System.Text.Encoding.ASCII.GetString(bytesFrom)

dataFromClient = _

dataFromClient.Substring(0, dataFromClient.IndexOf("$"))

msg("From client - " + clNo + " : " + dataFromClient)

rCount = Convert.ToString(requestCount)

broadcast(dataFromClient, clNo, True)

Catch ex As Exception

MsgBox(ex.ToString)

End Try

Next

End Sub

End Class

Módulo fin

Iniciar Microsoft Visual Basic Express y haga clic en "Nuevo proyecto". En el panel izquierdo de la pantalla, seleccione "Aplicación de Windows Forms". Haga clic en Aceptar." Haga clic en el panel de "caja de herramientas", y luego "Cuadro de texto", haga doble clic para añadir un nuevo cuadro de texto. Añadir dos más cuadros de texto. Agregue dos botones en el menú "Herramientas".

Haga doble clic en el formulario, y luego la tecla "Ctrl" + "A" Pulse el botón "Borrar". Copia y pega el código siguiente en el módulo "Form1.vb" para crear el programa de cliente:

importaciones System.Net.Sockets

Las importaciones System.Text

Public Class Form1

Dim clientSocket As New System.Net.Sockets.TcpClient()

Dim serverStream As NetworkStream

Dim readData As String

Dim infiniteCounter As Integer

Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button1.Click

Dim outStream As Byte() = _

System.Text.Encoding.ASCII.GetBytes(TextBox2.Text + "$")

serverStream.Write(outStream, 0, outStream.Length)

serverStream.Flush()

End Sub

Private Sub msg()

If Me.InvokeRequired Then

Me.Invoke(New MethodInvoker(AddressOf msg))

Else

TextBox1.Text = TextBox1.Text + Environment.NewLine + " >> " + readData

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Button2.Click

readData = "Conected to Chat Server ..."

msg()

clientSocket.Connect("127.0.0.1", 8888)

'Label1.Text = "Client Socket Program - Server Connected ..."

serverStream = clientSocket.GetStream()

Dim outStream As Byte() = _

System.Text.Encoding.ASCII.GetBytes(TextBox3.Text + "$")

serverStream.Write(outStream, 0, outStream.Length)

serverStream.Flush()

Dim ctThread As Threading.Thread = New Threading.Thread(AddressOf getMessage)

ctThread.Start()

End Sub

Private Sub getMessage()

For infiniteCounter = 1 To 2

infiniteCounter = 1

serverStream = clientSocket.GetStream()

Dim buffSize As Integer

Dim inStream(10024) As Byte

buffSize = clientSocket.ReceiveBufferSize

serverStream.Read(inStream, 0, buffSize)

Dim returndata As String = _

System.Text.Encoding.ASCII.GetString(inStream)

readData = "" + returndata

msg()

Next

End Sub

End Class

Ejecutar el programa de servidor en primer lugar con la tecla "F5", y luego ejecutar el programa cliente. Escriba su nombre en "TextBox3" y haga clic en "Button2" para conectarse al servidor. Escriba un mensaje en "TextBox2," y luego haga clic en "Button1" para enviar un mensaje.

Las salas de chat son una forma divertida, fácil de conseguir que los visitantes de su sitio web interactuar unos con otros. Puede configurar una sala de chat en su sitio de forma gratuita con una herramienta web Bravenet. Sólo tienes que seguir esto
Si usted tiene una obsesión secreta o interés y que ha estado muriendo para hablar con otras personas con ideas afines, no hay manera más fácil de hacer eso hoy en día que al iniciar una sala de chat sobre su obsesión preferida. Un montón de sitios e
Cómo agregar una sala de chat de Yahoo! a tus Favoritos
Al usar Yahoo! Messenger, haga clic en el elemento de menú, seleccione Yahoo! chat y unirse a una sala de chat antes de desplazarse hacia abajo para "favoritos Rooms" con el fin de añadir que la habitación como favorito. Añadir una sala de chat
Cómo crear una sala de chat con vídeo
Una sala de chat en línea es una forma popular de mensajería instantánea en tiempo real con varias personas a la vez porque no cuesta nada, y los usuarios pueden entrar o salir en cualquier momento. La adición de vídeo permite a los participantes ver
Cómo crear una sala de chat con Dreamweaver
Dreamweaver es una aplicación de desarrollo web propiedad de Adobe Systems que permite a los usuarios crear sitios web utilizando el código HTML. Poner una sala de chat en su sitio puede traer a visitantes de la repetición y el aumento del tráfico, l
Cómo hacer un cuadro de entrada en Visual Basic
Un básico InputBox Visual proporciona una manera para que el desarrollador para solicitar la opinión de un usuario y asignar el resultado a una variable para su uso en otras partes de una aplicación. En lugar de una imagen gráfica, una palabra de cód
Cómo convertir una imagen a transparente en Visual Basic
Hacer la totalidad o parte de una imagen transparente es una tarea relativamente simple y puede producir efectos visuales interesantes. Por ejemplo, se puede colocar una imagen en una página Web y ajustar su opacidad. Los desarrolladores pueden utili
A menudo es útil para visualizar alguna información adicional en la parte inferior de la ventana en el software de aplicación de ordenador. Una manera fácil de hacer esto en Visual Basic es llamada con un control de la barra de estado. Este control s
¿Quieres añadir chat en vivo para su sitio web ver si las personas están en su página y hablar sobre sus productos, de forma gratuita. Cosas que necesitará Internet Servicio de hosting / sitio web Computadora Instrucciones Oigan todos, 1: Lo primero
Cómo hacer una Lista de chats de Facebook
Chat de Facebook es el programa de mensajería instantánea de la red social. Normalmente, cuando usted va en línea en el chat a todos tus amigos a ver que usted está disponible para la conversación. Si quieres ser visibles sólo a un grupo selecto de s
Cómo crear una aplicación vocal Contar en Visual Basic
Visual Basic proporciona las herramientas suficientes para llevar a cabo operaciones simples tales como palabras de contar, cartas o incluso caracteres específicos como las vocales y las consonantes, sin necesidad de una gran cantidad de trabajo. Cos
Visual Basic proporciona a los programadores la capacidad de crear, manipular y eliminar registros de base de datos y objetos. Varios objetos de base de datos se incluyen en el compilador suministrado por Microsoft. El uso de unas pocas líneas de cód
Visual Basic es un lenguaje de desarrollo de aplicaciones creado por Microsoft que se utiliza para desarrollar aplicaciones de software de escritorio. Como la mayoría de los lenguajes de programación, VB se puede utilizar para ejecutar las ecuaciones
Cómo agregar una barra de desplazamiento a Visual Basic
Es bueno saber cómo activar las barras de desplazamiento en la aplicación de Microsoft Visual Basic.NET (VB.NET), sobre todo cuando tiene usuarios con menor resolución de la pantalla. VB.NET es un lenguaje de programación desarrollado por Microsoft,
Se puede crear un teclado en pantalla con el programa de Microsoft Visual Basic, que se puede descargar desde el sitio web de Microsoft de forma gratuita. Visual Basic es un programa bastante comprensible para la mayoría de la gente. El programa fue
Creación de habitaciones que son más grandes que una sola pantalla es un proceso sencillo en el yoyo de Game Maker. Usted puede descubrir después de su primer intento, sin embargo, que el simple aumento del tamaño de la habitación no funciona: Simple
Si usted ha sido prohibido por ninguna razón de una sala de chat y no puede ponerse en contacto con un administrador, hay una forma sencilla de conseguir más allá de la prohibición y volver a la sala de chat. A pesar de que la propia prohibición orig
Unirse a una sala de chat en Yahoo es simple y divertido. Yahoo llama a sus salas de chat Yahoo 'Grupos'. Con los grupos de Yahoo, usted puede aprender más sobre un tema, hacer preguntas y hablar con otras personas con un interés común en línea. Si u
Cómo aprender Inglés en una sala de chat
Con salas de chat de mensajería instantánea e Internet, debería ser bastante fácil de aprender otro idioma con tan sólo escribir en salas de chat. Inglés es el idioma más utilizado, y, por tanto, la mayoría de las personas que quieren hacer negocios