VB.NET Textbox Yazılan Siteyi Engelleme (1 kişi)

Çirkin KraL

Admin
Destek Ekibi
Kurumsal Üye
Site Kurucu
Repo Ekibi
Apple Expert
Katılım
9 Eki 2019
Mesajlar
769
Tepkime puanı
1,612
Puanları
353
Yaş
32
Konum
samsun
Web sitesi
www.trappledestek.com
1 Adet button
1 Adet Textbox ekliyoruz

Kod:
Imports System.IO

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Dizin As String = "C:\Windows\System32\drivers\etc\hosts"

        Dim Yazici As New StreamWriter(Dizin, True)

        Dim Adres As String = TextBox1.Text

        Dim SiteEngelle As String = vbLf & " 127.0.0.1 " & Adres

        Yazici.Write(SiteEngelle)

        Yazici.Close()

        MessageBox.Show("Siteye giriş engellenmiştir.")
    End Sub
End Class

7321
 

Bu konuyu okuyanlar konu

Üst