Tutorial - haciendoChat en Visual basic

---

Vamos a tener que hacer dos .EXE ya que haremos Cliente y Servidor...


Para empezar, creamos la aplicación del servidor.


1- Abrimos Visual Basic 6.0


2- Elegimos "Standard Exe"


3- Vamos a 'Proyecto/Project" - "Componentes/Components" y ahí adentro, buscamos "Microsoft Winsock Control 6.0"


4- Ahora, empezamos con el diseño y los códigos...


5- Agregamos 2 botones, 1 winsock, y 3 Textboxs, y las ordenamos así.


Empezamos con la parte de codigo.

Hacemos doble click en el botón que dice 'Conectar' y pegamos este texto:

Código:

Winsock1.LocalPort = Text3.text

Winsock1.Listen 



el text 3 será donde pongan su puerto =) ahora ya podremos hacer conexion lo unico que faltaria teoricamente seria poner como para chatear


Con el siguente Code lo que haremos será que nos muestre al recibir mensaje =)

Código:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim Mensaje As String

Winsock1.GetData Mensaje winsock lee mensaje by dédalo

text1.Text = text1.Text & vbNewLine + Mensaje

End Sub 



Ahora abriremos conexion para que puedan conectarse a nosotros =) con el siguente codigo:

Código PHP:

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)

Winsock1. 'Cortamos el Sock

Winsock1.Accept requestID 'la Id es para que sea conexion unica

Text1.Text = "**Conectado a: " & Winsock1.RemoteHostIP mostramos la Remote IP en la conversacion

End Sub 



Ahora pon tu command para que sea el que envie =) ponganle en caption "Enviar" creo que es lo mas lógico =) ahora pongan el siguente code:

Código:

Dim Mensaje As String

Mensaje = "Server: " & Text2.Text

Text1.Text = Text1.Text & vbNewLine & Mensaje 'mensaje en la conversación

Winsock1.SendData Mensaje 'Envia el mensaje al cliente 



Lo ultimo ahora pongan en el form osea doble click al form y pongan:

Código:

Private Sub Form_Load()

Text1.MultiLine = True

End Sub 



#################################################


Cliente


en el server se me paso pero en este lo hacemos primero que todo...

Código:

Private Sub Form_Load()

Text1.MultiLine = True

End Sub 



Doble click al boton de Enviar y pongan esto:

Código:

Dim Mensaje As String

Mensaje = "Envio: " & enviar

text1.Text = text1.Text & vbNewLine & Mensaje

Winsock1.SendData Mensaje 



nombren un textbox con el nombre recep y pongan el siguente code como winsock

Código:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim datos As String

Winsock1.GetData datos

recep.Text = conver.Text & vbNewLine + datos

End Sub 



ahora muy simple solo vayan a un boton de conexion y pongan esto:

Código:

Winsock1.RemoteHost = Text3.Text 'ip del server en txt3

Winsock1.RemotePort = text4.Text 'puerto en txt4

Winsock1.Connect 'haciendo Conexion

MsgBox ("Has sido Conectado!") 'confirmacion de conexion 



He tardado aproximadamente 2 horas en hacer este tutorial pero no importa alfin y al cabo creo que hice un buen trabajo (es pa darm animos jaja) espero les sirva de mucho =) esto fue hecho por Dédalo de la comunidad dragonjar... y Administrador de Seguridad Blanca

camilo.galdos@dragonjar.org
camilo.galdos@security-expert.se


acepto criticas, protestas, preguntas, levantamientos indigenas, declaraciones de amor, etc


alguna duda? te la resuelvo?

Saludos

Dr.White