بلوکه کردن آدرس سايت در مرورگرها

[gorg313]

به نام خدا

سلام دوستان

من يه سوال داشتم اينکه چجور ميشه آدرس يه سايت را از طريق برنامه نويسي بلوکه کرد

يعني برنامه تو چند تا مرورگر همزمان بلوکه کنه

به عنوان مثال

http://barnamenevis.org

...............

نه اينترنت اکسپلورر بتونه بازش کنه

نه فايرفاکس

گوگل چاروم

اُپرا

..................

اگه نشد تو مرورگر فايرفاکس کافيه

يه سورس هم بود ولي کار خاصي نمي کنه اينم ادرس اين سورس

دانلود سورس بلوکه کردن سايت (http://s1.picofile.com/file/7474758381/sourse.rar.html)


:قلب:

[reza13812]

سلام.
ساااااااده ترین راه همینه!!!!
آدرسو میزنی، ریست میکنی، دیگه نمیتونی بازش کنی!!! :چشمک:

[gorg313]

سلام.
ساااااااده ترین راه همینه!!!!
آدرسو میزنی، ریست میکنی، دیگه نمیتونی بازش کنی!!! :چشمک:

رضا سلام

نکته : من ميخوام آدرس سايت تو مرورگرهاي نصب شده بلوک بشه!!

چجوري آخه ؟ :ناراحت: ميشه نمونه همراه با توضيح بدي در مورد سورس اين برنامه هم که خودم گذاشتم يه توضيح بده؟؟

ممنون ميشم ازت

[tiktak990]

بیا اینم سورسش :



Private Sub Command1_Click()
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!")
End Sub