Foro de elhacker.net

Dim Transmitir As String
Transmitir = Hoja1 &  "|" & Hoja2 & "|" & Hoja3
Winsock1.SendData Transmitir 

Dim Transmicion As String
Dim Datos() As String

Winsock1.GetData Transmicion, vbString

Datos = Split(Transmicion, "|")

Text1.Text= Datos(0)
Text2.Text= Datos(1)
Text3.Text= Datos(2)

botonSend ()
{
    ws.senddata "EnvOn" ' //    Peticion para saber si esta listo el resector
}

DataArrival()
{
dim datos as string
dim spli()
    spli = split(datos,"|")
    select case spli(0)
        case "Envon"
            if cbool(spli(1) then
                doEvents: ws.senddata Tramision ' //    Se envian los datos de la variable "Transmison"
                doEvents: ws.sendata "Envoff" ' //    Le indico al resector el termino y la ultilizacion del proceso select case
            end if
        case "Envon"
            if cbool(spli(1) then
                ' //    Me dio weba seguir con el codigo asi ue lo lo demas es cosa tuya
            end if
        ' //    Otros select case etc...
    end select
}

DataArrival()
{
    dim datos as string
    static resect as boolean
    ws.getdata datos, vbstring
    if right(datos,len("Envon"))="Envon" then
        resect = true
        Ws.sendata "Envon|" & true
    elseif right(datos,len("Envoff"))="Envoff" then
        resect = false
        Ws.sendata "Envoff|" & true
    else
        call procesodondeestaelselectcase(datos) ' //    en este proceso hacer el split con la variable en el parametro.
    end if
}

Private Sub Timer1_Timer()
If Winsock1.State = sckConnected Then
    Dim ID As Long
    ID = FuncionMaximo("Registros", "ID")
    ID = ID + 1
    Winsock1.SendData "DESGARGAR" & Format(ID, "0000000000")
    Timer1.Enabled = False
End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Transmicion As String
Dim Mandato As String

Winsock1.GetData Transmicion, vbString
Mandato = Left(Transmicion, 9)

If Mandato = "DESCARGAR" Then
     RS.Open "", DBConex, adOpenStatic, adLockReadOnly
     If RS.RecordCount > 0 Then
           Dim Trasmitir As String
           Transmitir = Transmitir & RS(0) & "|"
           Transmitir = Transmitir & RS(1) & "|"
           Transmitir = Transmitir & RS(2) & "|"
           Etc, Etc, Etc
           Winsock1.SendData "AGREGARSI" & Transmitir
      Else
           Winsock1.SendData "AGREGARNO" 'Informamos que no hay el registro solicitado. 
      End If
      Rs.Close
      Set Rs = Nothing
End IF
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Transmicion As String
Dim Mandato As String
Winsock1.GetData Transmicion, vbString
Mandato = Left(Transmicion, 9)

If Mandato = "AGREGARSI" Then
    'hago el correspondiente Split. Es decir extraido los campos
    'luego los agrego en la base de datos
    'como existe más datos en el server. activo el Timer para que saque el
    'nuevo máximo valor y lo envié para descargar el siguiente
    Timer1.Enabled = True
End If
End Sub