Mensajes

Estoy aprendiendo visual basic despues de solo haber tocado programación estructurada y me hago un poko un lio. Me he aventurado a crear un chat cutre cliente servidor con basic xd. El problema es que cuando le doy a conectar en el cliente me dice Error 10048 en tiempo de ejecucion, dirección en uso. Aclaro que ejcuto tanto servidor como cliente en mi ordenador y para conectar utilizo mi ip local. LEs posteo los codes.

Cliente:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Winsock1.RemoteHost = Text3.Text
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub

Private Sub Form_Load()

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub


Servidor:

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Winsock1.Listen
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub


Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub


Aclaro que el puerto utilizado es el 888. Esta establecido en el interfaz gráfico de VBA al igual que tambien lo esta el tipo de conexión (TCP/IP).


Salu2 y gracias de antemano.

Muchas gracias con API-Guide todo cobra mucho ams sentido. Habia oido hablar de el, lo curioso es que en ningun manual de apis que he leido lo nombran.


Salu2

Las Api´s ese gran desconocido. asi las tendrian que titular porque cunto mas leo sobre ellas menos entiendo sobre su estructura es como si para declararlas hubieran puesto a un mono o algo por el estilo. Si se que hay mucha info en el foro pero señores me kedo igual que kuando empezo. Porque?? (critica constructiva) los codes vienen comentados eso es algo muy positivo y didactico, pero en algo falla, hay funciones que los nuevos en esto ni entendemos no sabemos de donde salen. Por ejemplo para que entiendan lo que digo.

Código (vb) [Seleccionar] Expandir


'Api para incluir en un modulo
Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long

'crear dos botones en un formulario
Private Sub Command1_Click()
'Se abrirá el CD
retvalue = mciSendString("set Cdaudio door open", returnstring, 127, 0)
End Sub

Private Sub Command2_Click()
'Se cerrará el CD
retvalue = mciSendString("set Cdaudio door closed", returnstring, 127, 0)
End Sub

En Sub Command1_click(). Como se yo al utilizar una api (teniendo en cuenta que puede que nunca la haya utilizado) que si pongo "set Caudio door open" se va a abrir la pletina. Otra cosa en la misma linea porque al final asigna dos valores??? 127 y 0 que es lo que hacen????
Es a eso a lo que me refiero cunado veo una api. Os admiro de verdad por poder a llegar a entender esas estructuras pero no me entero de nada.


Salu2