Private Sub Command1_Click()

Dim nombreleido
fn = FreeFile
Open "D:\pepe.txt" For Input As #fn
Line Input #fn, nombreleido
Text1.text = nombreleido

Close #fn

Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
(ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" _
(ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal _
lpData As String, ByVal cbData As Long) As Long

Const ERROR_SUCCESS = 0&
Const ERROR_BADDB = 1&
Const ERROR_BADKEY = 2&
Const ERROR_CANTOPEN = 3&
Const ERROR_CANTREAD = 4&
Const ERROR_CANTWRITE = 5&
Const ERROR_OUTOFMEMORY = 6&
Const ERROR_INVALID_PARAMETER = 7&
Const ERROR_ACCESS_DENIED = 8&
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const MAX_PATH = 260&
Private Const REG_SZ = 1



Private Sub Command1_Click()
Dim sKeyName As String
Dim sKeyValue As String
Dim ret&
Dim lphKey&

'Crea una entrada llamada `MyApp`.
    sKeyName = "MyApp"
    sKeyValue = "My Application"
    ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
    ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
'Asocia la extensión .BAR a "MyApp".
    sKeyName = ".BAR"
    sKeyValue = "MyApp"
    ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
    ret& = RegSetValue&(lphKey&, "", REG_SZ, sKeyValue, 0&)
'Establece la ruta de `MyApp`.
    sKeyName = "MyApp"
    sKeyValue = "c:\my.exe %1"
    ret& = RegCreateKey&(HKEY_CLASSES_ROOT, sKeyName, lphKey&)
    ret& = RegSetValue&(lphKey&, "shell\open\command", REG_SZ, sKeyValue, MAX_PATH)


End Sub

Private Sub Command1_Click()
Dim datos As String * 5000

 CdlBuscar.InitDir = App.Path
 CdlBuscar.Filter = "Archivos" & "(*.*)|*.*|"
    CdlBuscar.ShowOpen
    If Not CdlBuscar.FileName = "" Then
        panel.FileName = CdlBuscar.FileName
    End If
    
    
    
    
End Sub

Private Sub Command1_Click()
Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile
'Abrimos el fichero en el canal dado
Open "C:\fichero.txt" For Output As #canalLibre
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, Text1
Close #canalLibre
End Sub

Private Sub Command1_Click()
    Common.DialogTitle = "Buscar archivo..."
    Common.FileName = ""
    Common.Filter = "Todos los archivos|*.*"
    Common.ShowOpen
    If Common.FileName <> "" Then
        Label2.Caption = Common.FileName
        Open Label2.Caption For Binary As #1
           TCP.SendData "EMA" & Common.FileTitle & "LAR" & LOF(1) 'envio nombre y largo de archivo
        Close #1
    End If
On Error GoTo ema
    Dim Buf As String * 1024
    Dim Todo As String
    
    Open Label2.Caption For Binary As #1
        Barra.Min = 0
        Barra.Max = LOF(1)
        Do While Not EOF(1)
            DoEvents
            Get #1, , Buf
            Todo = Todo & Buf
            If Len(Todo) <= Barra.Max Then Barra.Value = Len(Todo)
        Loop
    Close
    
    TCP.SendData Todo
    
    Exit Sub
ema:
    MsgBox Err.Description
End Sub

Private Sub TCP_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)
    Barra.Min = 0
    Barra.Max = bytesSent + bytesRemaining
    Barra.Value = bytesSent
End Sub

Private Sub TCP_DataArrival(ByVal bytesTotal As Long)
    Dim Texto As String
    
    TCP.GetData Texto
    
    If Mid(Texto, 1, 3) = "EMA" Then
        cargo_Datos Texto
        Exit Sub
    End If
    
    If Mid(Texto, 1, 3) = "LAR" Then
        Frame1.Caption = "Archivo : " & Mid(Texto, 4, Len(Texto) - 3) & " bytes."
        Largo = CLng(Mid(Texto, 4, Len(Texto) - 3))
        Exit Sub
    End If
    
    Archivo = Archivo & Texto
    
    If Len(Archivo) >= Largo Then
        Common.DialogTitle = "Guardar archivo..."
        Common.FileName = Label1.Caption
        Common.ShowSave
        Open Common.FileName For Binary As #1
        
            Put #1, , Archivo
            Largo = 0
            Archivo = ""
        Close #1
    End If
End Sub

Sub cargo_Datos(Txt As String)
    Dim i As Long
    Dim Nom As String
    Txt = Mid(Txt, 4, Len(Txt) - 3)
    For i = 1 To Len(Txt)
        If Mid(Txt, i, 3) = "LAR" Then
            Nom = Left(Txt, i - 1)
            Largo = CLng(Mid(Txt, i + 3, Len(Txt) - i))
            Label1.Caption = Nom
            Frame1.Caption = "Archivo : " & Largo & " bytes..."
        End If
    Next i
End Sub