BLOCK SITE DENGAN VB6

1.BUKA VB6


2.TMBH 1 TEXT CAPTION KOSONG

3.TMBH CMD 1


SCRIPT:

Dim intMsg As String
   Dim Block As String
   Open "C:\Windows\System32\drivers\etc\hosts" For Append As #1
   Block = "127.0.0.1                               " & Text1.Text & ""
   Print #1, Block
   intMsg = MsgBox("Writing: " & Block & " to Hosts")
   Close #1
   intMsg = MsgBox("File closed and saved!")