- Yasaklandı
- #1
[font=arial, tahoma]Selamun Aleykum beyler forumda yeniyim ve bir paylaşımda bulunmak istedim. Konu Daha Once Not Defterı Uzerınde Kodlandıgı Ve yazıldıgı Icın Yenıyım Yazdım
[/FONT]
[font=arial, tahoma]Gerekenler :[/FONT]
[font=arial, tahoma]1 adet Label[/FONT]
[font=arial, tahoma]1 adet TextBox[/FONT]
[font=arial, tahoma]1 adet Button[/FONT]
[font=arial, tahoma]Aynen projeye yapıştırın [/FONT]
[/FONT][font=arial, tahoma]Gerekenler :[/FONT]
[font=arial, tahoma]1 adet Label[/FONT]
[font=arial, tahoma]1 adet TextBox[/FONT]
[font=arial, tahoma]1 adet Button[/FONT]
[font=arial, tahoma]Aynen projeye yapıştırın [/FONT]
Kod:
Imports System.IO
Public Class Form1
Dim path As String
Dim save As StreamWriter
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
path = ("C:\Windows\System32\Drivers\etc\hosts")
save = New StreamWriter(path, True)
Dim siteblock As String = (Environment.NewLine & "127.0.0.1" & TextBox1.Text)
save.Write(siteblock)
save.Close()
MsgBox("Ornek.Org | Site Engellenmiştir ! ", MsgBoxStyle.Information, "Ornek.Org CrawLTC| Engellendi !")
End Sub
End Class[font=arial, tahoma] [/FONT]
