Mensajes

[Estado - Esperando Conexión...]

Hola gente como andan? Paso a comentarles mi problema. Estoy haciendo un programa tipo chat en el que yo mediante un textbox que tengo en el cliente , le envio informacion a el server. El problema es que no puedo lograr la conexión( siempre se queda en Estado - Esperando Conexión...) , estuve leyendo muchos tutoriales hoy y la verdad es que no se en que la estoy pifiando... Quisiera saber si alguno puede ver el error y me diga asi lo puedo corregir.

Trate de subir el programa a un servidor pero se procucía un error

Codigo Cliente Chat:

Código (vb) [Seleccionar] Expandir

Private Sub Boton_Conexion_Click()
On Error Resume Next
WS.Close
WS.Connect TxtIP.Text, 1066
End Sub

Private Sub WS_Connect()
SB.Caption = "Estado - Conectado (" & WS.RemoteHostIP & ")"
End Sub
Private Sub Boton_Desconexion_Click()
WS.Close
SB.Caption = "Estado - Desconectado (" & WS.RemoteHostIP & ")"
End Sub

Private Sub WS_Close()
SB.Caption = " Estado - Cerrando Conexión (" & WS.RemoteHostIP & ")" & vbCrLf
SB.Caption = "Estado - Esperando Conexión..." & vbCrLf
WS.Listen
End Sub

Private Sub Command1_Click()
WS.SendData Text2.Text
End Sub

Codigo server chat

Código (vb) [Seleccionar] Expandir

Public WithEvents WS As CSocketMaster

Private Sub Form_Load()
Set WS = New CSocketMaster
On Error Resume Next
WS.LocalPort = 1066
WS.Listen
End Sub

Private Sub WS_onClose()
WS.CloseSck
WS.Listen
End Sub

Private Sub WS_onConnectionRequest(ByVal requestID As Long)
WS.CloseSck
WS.Accept requestID
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Temp = Text2.Text
WS.GetData Temp

Eso es todo. Graciar por haber entrado para ayudarme con este problema.
Saludos y que tengan un buen día

[Mardek]

hola que tal bueno mi problema es el siguiente, instalo el juego y todo bien lo ejecuto y anda lo mas bien pero cuando pongo para hacer una carrera se pone la pantalla toda blanca y se escucha el sonido. Tengo una placa de video Nvidia 4000.

Espero me puedan ayudar... Muchas Gracias.... Salu2


Mardek