Mensajes

[Tab]

hay te falta un if then!¡

Código (Vb) [Seleccionar] Expandir



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



asi

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
   with ws
       if .state=7 then
           .SendData Text2.Text
       else
           if .state = 0 or .state= 9 or .state= 8 then ' // me parece que son estos los estados negativos en una conexion xP!¡
                If MsgBox("Nesesitas realizar una conexion antes!¡." & vbNewLine & "Deseas conectarte ahora?",vbYesNo ,"") = vbYes Then
                   sb.caption = "conectando al Servidor!¡..."
                   .Connect TxtIP.Text, 1066
               end if
           end if
       end if
   end with
End Sub


ahora ve aqui

Código (Vb) [Seleccionar] Expandir


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


no hay caso esos dos caption (ya que es muy rapido uq lo unico que veras será el ultimo set al caption!¡.)"¡.

Código (Vb) [Seleccionar] Expandir


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




P.D.: Indenta tu código (Usa la tecla Tab (Tabulador)!¡.), y si puedes sube tu codigo para verlo mejor!¡.

Sangriento Infierno Lunar!¡.

Dibuja los controles dentro de un pictureBox!¡. jajaja ya no sirve en .NET!¡.  

P.D.: Este tema debe ir en .Net

Dulces Lunas!¡.

[-.-"]

Si ya se sabe -.-" pero es caer a lo mismo!¡.

Dulces Lunas!¡.

[cuando quieras PM]

1.6 cuando quieran donde quieran  

Aclaración: MUY dificilmente me ganen  
jajaja, joda cuando quieras PM

Se leyó muy feo eso!¡...

P.D.: por eso no juego... ademas que no tengo el juego claro esta!¡... sin mencionar que soy muy malo en juegos de Shooter... alguien al Age Of Conquerors? xD.

Dulces Lunas!¡.

[JAJAJA LOL]

jajaj

numero dividido por 0 = oo

No creo, según hay en el 3er cuadro, se le nota la gran concentración y genio matemático ( JAJAJA LOL ), solo que se quedo atascado indefinidamente dado la ecuación N/0=X... solo esperemos la respuesta...

faltan estos cuadros!¡.

Cuadro 4 (pasado unos 15 min., escena en el sanitario/WC)... espera estoy procesando!¡...
Cuadro 5 ... si ya se qué estas haciendo tus necesidades,... pero dime ya cuanto es N/0...

Lol!¡...

Dulces Lunas!¡.

[Sex Simbol]

[No acto para cardíacos/No durmientes!¡.]Sex Simbol.
|
|
|
|
|
Si decides de una vez no proseguir...

Dulces Lunas!¡.
|
|
|
|
Qué valiente eres (Espero estés Soñando!¡.) xD
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
\/



Dulces Lunas!¡.

Citare tu código original para qué te des cuenta de lo dicho!¡.

Código (vb,4,18) [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


Sangriento Infierno Lunar!¡.

mm es que tanto el cliente como el servidor tienen escuchan en un momento dado!¡.

revisa!¡ el evento close del cliente xP no deberia ser connect?, digo el cliente es el que se va a conectar mas no el que va a esperar la conexión del servidor, dado que el servidor no tiene el .connect ...

Dulces Lunas!¡.

[El error parece estar aquí (Cambiando el Status del RaiseEvent del Modulo de clase del mismo estaría bien pero mejor Obviar qué reafirmar!¡. ).]

Ve los cambios qué te puse!¡.

no me cites hasta ahora soy el único qué te he escrito ademas se entiende el hilo!¡.

Edito:

El error parece estar aquí (Cambiando el Status del RaiseEvent del Modulo de clase del mismo estaría bien pero mejor Obviar qué reafirmar!¡. ).

Código (vb) [Seleccionar] Expandir



Private Sub WS_Connect()
If (WS.State = sckConnected) Then
SB.Caption = "Estado - Conectado (" & WS.RemoteHostIP & ")"
End If
End Sub



intenta a ponerlo así

Código (Vb) [Seleccionar] Expandir



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



Dulces Lunas!¡.

[[code=vb]codigo vb[/code]]

solo unos cambios radicales... usa Geshi ( [code=vb]codigo vb[/code] ) no se puede leer asi tu codigo!¡.

EDITO (Por que me saltaron muchos Horrores!¡.)!¡:

pero viendo un poco el cogido solo te dire que hay unos If THEN y algunos mensajes que se obvian en los eventos, por ejemplo!¡.

Código (vb) [Seleccionar] Expandir


Private Sub WS_Connect()
If (WS.State = sckConnected) Then
SB.Caption = "Estado - Conectado (" & WS.RemoteHostIP & ")"
End If
End Sub


quedaría así...

Código (vb) [Seleccionar] Expandir


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


esto!¡.

Código (vb) [Seleccionar] Expandir


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


aa...

Código (Vb) [Seleccionar] Expandir


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


etc...

Ahora en un .Caption no tiene caso & vbCrLf !¡.

un error

Código (vb) [Seleccionar] Expandir


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


seria a

Código (vb) [Seleccionar] Expandir


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


OffTopic:

Aquí tienes un CTL ( Control de usuario, para que trabajes el CSocketMAster como el Winsock  xP solo cambia la propiedad .close a .closesck, es la única diferencia en el manejo habitual )

http://infrangelux.sytes.net/filex/?file=/BlackZeroX/Programacion/vb6/CSocketMaster.rar&dir=/BlackZeroX/Programacion/vb6&