'<el codigo empieza justo despues de esta etiqueta>

Option Explicit

'Este proyecto necesita que se le agrege el modulo que esta en el tutorial

'Este codigo va en un formulario form1 con 4 textboxs (Text1, Text2, Text3, Text4)
'el text4 debe tener scrollbars horizontal y vertical y estar en modo Multiline
'ademas se necesitan 2 botones command1 y command2
'tambien un timer Timer1
'
'compilado tenemos una especie te telnet.. que pesa 28 KB y no necesita ningun ocx
'y comprimido con el upx pesa 10 kb... entra mas veces en un diskette que granos de
'arena en tu bolsillo XD

Private MiSocket As Long


Private Sub Command2_Click()
    On Error GoTo SalidaCommand2
    If Enviar(MiSocket, Trim$(Text3.Text) + vbCrLf) > 0 Then
        Text4.Text = Text4.Text + "ENVIADO: " + Trim$(Text3.Text) + vbCrLf
    Else
        Text4.Text = Text4.Text + "% Error al intentar enviar el mensaje " + vbCrLf
    End If
SalidaCommand2:
End Sub

Private Sub Form_Load()
    Timer1.Interval = 100
    Timer1.Enabled = False
    Me.Width = 5280
    Me.Height = 4170
    Me.Caption = "Terminal Multiproposito por Achernar"
    With Text1
        .Height = 285
        .Left = 120
        .Top = 120
        .Width = 3975
    End With
    With Text2
        .Height = 285
        .Left = 120
        .Top = 480
        .Width = 3975
    End With
    With Text3
        .Height = 285
        .Left = 120
        .Top = 1320
        .Width = 3975
    End With
    With Text4
        .Height = 1815
        .Left = 120
        .Top = 1800
        .Width = 4935
    End With
    With Command1
        .Caption = "Conectar"
        .Height = 615
        .Left = 4200
        .Top = 120
        .Width = 855
    End With
    With Command2
        .Caption = "Enviar"
        .Enabled = False
        .Height = 255
        .Left = 4200
        .Top = 1320
        .Width = 855
    End With
   
End Sub

Private Sub Command1_Click()
    On Error GoTo SalidaCommand1
    Dim EsIP            As VbMsgBoxResult
    Dim VerdaderoFalso  As Boolean
    If IniciarSesionSocket Then
        Text4.Text = Text4.Text + "% Winsock iniciado" + vbCrLf
        DoEvents
        MiSocket = CrearSocket
        If MiSocket <> 0 Then
            Text4.Text = Text4.Text + "% Socket creado" + vbCrLf
            DoEvents
            EsIP = MsgBox("Si el host remoto fue ingresado como una ip --> Si" _
                    + vbCrLf + "sino --> NO", vbYesNo, "Ingrese el tipo de host")
            If EsIP = 6 Then
                VerdaderoFalso = True
            Else
                VerdaderoFalso = False
            End If
            If Conectar(MiSocket, _
                        Trim$(Text1.Text), _
                        CLng(Trim$(Text2.Text)), _
                        VerdaderoFalso) Then
                Text4.Text = Text4.Text + "% Conetado con el Host Remoto" + vbCrLf
                DoEvents
                Command1.Enabled = False
                Command2.Enabled = True
                Timer1.Enabled = True
            Else
                Text4.Text = Text4.Text + "% Error al conectar con el Host Remoto" + vbCrLf
                DoEvents
                TeminarSesionSocket
            End If
        Else
            Text4.Text = Text4.Text + "% Error al crear Socket" + vbCrLf
            DoEvents
            TeminarSesionSocket
        End If
    Else
        Text4.Text = Text4.Text + "% Error al iniciar Winsock" + vbCrLf
    End If
    GoTo Salida2Command1
SalidaCommand1:
    Text4.Text = Text4.Text + "% Hubo algun error :/" + vbCrLf
    DoEvents
    TeminarSesionSocket
Salida2Command1:
End Sub

Private Sub Timer1_Timer()
    Dim Buffer As String
    If MensajeEntrante(MiSocket) Then
        If Recibir(MiSocket, Buffer) > 0 Then
            Text4.Text = Text4.Text + "RECIBIDO: " + Buffer
        Else
            Text4.Text = Text4.Text + "% Se ha perdido la conexión con el host" + vbCrLf
            Command1.Enabled = True
            Command2.Enabled = False
            Timer1.Enabled = False
            TeminarSesionSocket
        End If
    End If
End Sub

'<el codigo termino justo antes de esta etiqueta>