Foro de elhacker.net

Dim bytes As String ' Los Bytes del principio, los tienes que kontar hasta llegar al = del scr ;)
Dim escribir As String ' Lo que vas a escribir
Dim total As String ' Para reestablecer el archivo

Open "C:\Hendrix.txt" For Binary As #1 ' Abrimos el archivo
bytes = Space(12) ' Le asignamos los bytes que no nos interesan
total = Space(LOF(1) - 12) ' Le asignamos todo el volumen del archivo y le restamos los que no nos interesan
Get #1, , bytes ' Extraemos los bytes malos
Get #1, , total ' Extreamos para reestablecer el archivo
Close #1

Open "C:\Hendrix.txt" For Binary As #1
bytes = Space(12) ' Lo mismo del principio
Get #1, , bytes ' Nos vamos a donde nos interesa
Put #1, , "Http://www.google.es" ' Le añadimos lo que keremos
Put #1, , total ' Reestructuramos el archivo
Close #1 ' Cerramos y listo