Dim DeaLyDeviL As String = "C:\Windows\System32\Drivers\etc\hosts"
Hosts dosyamızın bulunduğu yer DeaLyDeviL değişkeni olsun.
Dim stream_writer As New System.IO.StreamWriter(DeaLyDeviL)
Stream_writer değişkenide, DeaLyDeviL değişkenin StreamWriter'ı olsun.
stream_writer.WriteLine("_DeaLyDeviL_")
StreamWriter değişkenine "_DeaLyDeviL_" text'ini göndeririz.
stream_writer.Close()
StreamWriter'i kapatıyoruz.
MsgBox("Veriler başarıyla aktarıldı.", MsgBoxStyle.Information)
Bittiğinde çıkacak olan mesaj kutumuz.