Dim IsBlocked As Boolean
IsBlocked = CheckIsBlocked(txtSite.Text)
If IsBlocked = False Then
Dim path As [String] = "C:\Windows\System32\drivers\etc\hosts"
Dim sw As New StreamWriter(path, True)
Dim sitetoblock As [String] = vbCrLf & "127.0.0.1 " & txtSite.Text
sw.Write(sitetoblock)
sw.Close()
AddNewSiteToDb(txtSite.Text)
ServiceController1.Stop()
MessageBox.Show("Site " & txtSite.Text & " Blocked")
ServiceController1.Start()
txtSite.Clear()
Else
MsgBox("The site " & txtSite.Text & " has already blocked.")
txtSite.Clear()
End If
End Sub
C:\Windows\System32\drivers\etc\hosts ไฟล์นี้จัดเก็บตาราง route table
มีสองฟิลด์ แยกกันด้วย white space ค่ะ
field แรกคือ ip address
field ที่สองคือ dns name
หนึ่งบรรทัดคือหนึ่งระเบียนและถ้าบรรทัดนั้นมีอักษรตัวแรกเป็น # ถือว่าเป็น Comment ค่ะ
อ่านแล้วก็งง อะไรยล้อกอะไร route table ไม่ใช่ ตาราง black list
น่าจะเป็น windows service ไม่เคยเขียนแต่เคยอ่านผ่านๆตามาค่ะ
Load balance : Server 03
