Ningun programador puede jaja xD

[LeandroA]

Exelente BlackZeroX, le voy a dar uso, y voy a poner tu pagina en los enlaces de mi blog

Saludos.

[Edu]

Jajaja el post se desvio mucho y siguen sin poder ayudarme xD, Clouth he creado server de WoW tamb, de Mu, y otros mas de esos, eso q dices ya lo se, y no tengo esos problemas xD ademas no es necesario para lo q quiero hacer, ademas poniendo mi ip publica tampoco funciona..

Nadie se anima a cambiarme todo el code igual? :/

[LeandroA]

bueno aver agamos las cosas sensillas


Cliente dos textbox y un command1

Código [Seleccionar] Expandir


Option Explicit

Dim WithEvents Client As CSocketMaster

Private Sub Client_CloseSck()
    Me.Caption = "Desconectado"
End Sub

Private Sub Client_Connect()
    Me.Caption = "Conectado"
End Sub

Private Sub Client_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox Err.Description
End Sub

Private Sub Command1_Click()
    Client.SendData Text2
End Sub

Private Sub Form_Load()
    Dim IP As String
   
    IP = "10.0.0.3" 'aqui deve ir la ip publica
   
    Set Client = New CSocketMaster
    Client.Connect IP, "100"

End Sub

Private Sub Client_ConnectionRequest(ByVal requestID As Long)
    Client.CloseSck
    Client.Accept requestID
End Sub

Private Sub Client_DataArrival(ByVal bytesTotal As Long)
    Dim data As String
    Client.GetData data
    Text1.Text = Text1.Text + data + vbCrLf
End Sub



Servidor dos textbox y un command1

Código [Seleccionar] Expandir


Option Explicit

Dim WithEvents Server As CSocketMaster

Private Sub Command1_Click()
    Server.SendData Text2
End Sub

Private Sub Form_Load()
    Set Server = New CSocketMaster
    Server.LocalPort = 100
    Server.Listen
End Sub


Private Sub Server_CloseSck()
    Me.Caption = "Desconectado"
End Sub

Private Sub Server_ConnectionRequest(ByVal requestID As Long)
    Server.CloseSck
    Server.Accept requestID
    Me.Caption = "Conectado"
End Sub

Private Sub Server_DataArrival(ByVal bytesTotal As Long)
    Dim data As String
    Server.GetData data
   
    Text1.Text = Text1.Text + data + vbCrLf
End Sub

Private Sub Server_Error(ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox Err.Description
End Sub


Eso es un código bien basico, solo tenes que cambiar la  IP y probarlo te tiene que funcionar, una ves que verificaste que esto funciona le agreas las demas boludeces.

[Edu]

Vs viste mi codigo? no tiene ningun error esta casi igual a ese y el problema soy yo si porq ese no me anda tampoco :S
Me han echo ping y no consiguen respuesta aveces, nadie se puede fijar si funciona o no? xD aunquesea quiero saber q hice las cosas bien

[cobein]

Ningun programador puede jaja xD <----- Ironico no? xD

[Edu]

Ningun programador puede jaja xD <----- Ironico no? xD

Es para q se pongan las pilas y me ayuden xD, aunque de verdad no han podido pero ya me ayudaron y dentro de unos post mas me dare cuenta 100% q el problema es mi pc xD

[ranslsad]

Vale que no he leido mucho el tema, pero dejo mi opinion.
1 Has probado primero con ip local? (127.0.0.1)
2 Has probado si el socket esta en TCP y no en UDP? (es una tonteria pero te podria dar este problema no?)

Ahi las dejo...

Salu2

Ranslsad

[Edu]

En local funciona si y hasta en red asique no se, pero si anda en red ya descarto tu segunda posibilidad no?

Si no hubiera andado en red lan tiene algo de logica lo q dices ya q se conecta pero se desconecta, como q solo envia informacion je y no se donde fijarme eso q dices pero ahora empiezo a sospechar si esta bien mi socket :S
Talvez alguien me deja para bajarme uno ya configurado para TCP

[Sanlegas]

claro ningun programador puede resolverle la vida a alguien que no busca, el problema no esta en el codigo si no en tus puertos, yo tambien uso modem y pordefault vienen los puertos cerrados, buscate un manual de como abrirlos.

[Edu]

Pero porq mejor no leen los post anteriores antes de ayudarme? esq sino se convierte en spam esto xD ja