Foro de elhacker.net

Private Sub Command1_Click()

Open "C:\config.txt" For Binary As #1
Dim tamaño As String
tamaño = Space(LOF(1))
Get #1, , tamaño
Close #1

Text1.Text = tamaño

End Sub

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_GETLINE = &HC4
Private Sub Command2_Click()

Dim Respuesta As Long
Dim Texto As String
Dim texto2 As String

Texto = Space$(900)
Respuesta = SendMessage(Text1.hwnd, EM_GETLINE, 0, ByVal Texto) ' Este nº indica la linea q keremos
texto2 = Trim(Texto)
MsgBox texto2

End Sub

Private Sub Command1_Click()
Open "C:\config.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub