[Istek] Site Engelleme

[resulsen]

facebook.com adresini tek tıkla engelleyip,kaldırabileceğim bir program oluşturmak istiyorum.Host dosyası ile oynayarak nasıl yapabiliriz yardımcı olur musunuz?

[kalelibilişim]

inter filtre ile istediğin siteyi engelleyebilirsin veya engelledikten sonra açabilirsin

[blue_life]

Önce host dosyasını okuyacaksın ve okudğun bilgide ilgili sitenin olup olmadığına bakacaksın!
Sonra engelleme ve kaldırma işlemlerine göre bilgiyi düzenleyip dosyayı tekrar yazdıracaksın!

Forumda benzer bir çalışma vardı. Du bakim..
http://www.tnctr.com/topic/158361-tnctr-hosts-editor/

Sonraki mesajlarda autit ile bir şeyler yapmışlardı galiba!

[TORUNAGA]

direk portu kapat?

[rulman]

SürücüYolu:\Windows\System32\Driver\Etc\host veya hosts(win 7 )
içeriğine notepad ile aç ve kaydet.
::1 yazak ipv6 seçeneğini kaldırabilirsin kullanmıyorsanda

[KintaRo]

[quote name='TORUNAGA' date='23 April 2011 - 16:03 ' timestamp='1303563836' post='997914']
direk portu kapat?
[/quote]

evet direk 80 portunu kapat ve hiç bir siteye gireme, kökten çözüm. Tebrikler süpersin gerçekten!

[rulman]

[quote name='KintaRo' date='23 April 2011 - 16:24 ' timestamp='1303565082' post='997922']
evet direk 80 portunu kapat ve hiç bir siteye gireme, kökten çözüm. Tebrikler süpersin gerçekten!
[/quote]
Hocam fişi çekten nasıl olur?

[FeeLMyLove]

hocam peki modemi camdan aşağı atmak nasıl çözüm?

[DePPoL]

siteyi illegal olarak tanıtırsan bir programa mesela anti porn a hayatta giremez

[resulsen]

Yapmak ,istediğimi anlatamadım heralde arkadaşlar uygulamayı çift tıklayınca engellenecek çift tıklayınca engel kalkacak.Uyarı yada falanca programı aç tıkla kapat falan yok

[blue_life]

Konuyu es geçmişim
Sana basit bir örnek vereyim, sen incele!

[codebox]#NoTrayIcon
#RequireAdmin

;Writed BlueLife
Global $HostFile = @WindowsDir & "\system32\drivers\etc\hosts"
Global $HOST_LINE = _Host_Read_To_Array()
Global $SKIP_LINE = ".:: BlueLife ::. "

Global $BL_FORM = GUICreate("BlueLife Basit Site Engelleme!", 330, 55)
Global $Engelle = GUICtrlCreateButton("Engelle", 10, 10, 150, 35)
Global $EKaldir = GUICtrlCreateButton("Engeli Kaldır", 170, 10, 150, 35)
GUISetState(@SW_SHOW)

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $Engelle
;Alt alta engellemek istediğin siteleri yazabilirsin
_Host_Block_Site("facebook.com","127.0.0.1")
_Host_Block_Site("www.facebook.com","127.0.0.1")
_Host_Write()
DllCall("user32.dll", "int", "MessageBeep", "int", 0xFFFFFFFF)

Case $EKaldir
;Alt alta engellenmiş sitelerin engelini kaldırmak için siteleri yazabilirsin.
_Host_UnBlock_Site("facebook.com")
_Host_UnBlock_Site("www.facebook.com")
_Host_Write()
DllCall("user32.dll", "int", "MessageBeep", "int", 0xFFFFFFFF)
EndSwitch
WEnd

Func _Host_Block_Site($ALAN_ADI,$IP = "127.0.0.1")
_Host_UnBlock_Site($ALAN_ADI)

$HOST_LINE[0] +=1
Redim $HOST_LINE[$HOST_LINE[0] +1]
$HOST_LINE[$HOST_LINE[0]] = $IP & " " & $ALAN_ADI
EndFunc

Func _Host_UnBlock_Site($ALAN_ADI)
Local $BL_VALUE
For $I = 1 to $HOST_LINE[0]
$HOST_LINE[$I] = StringStripWS($HOST_LINE[$I] ,3)
If StringRight($HOST_LINE[$I],StringLen($ALAN_ADI)) = $ALAN_ADI Then
$BL_VALUE = StringTrimRight($HOST_LINE[$I],StringLen($ALAN_ADI))
If StringStripWS(StringRight($BL_VALUE,1),3) = "" Then
$HOST_LINE[$I] = $SKIP_LINE
EndIf
EndIf
Next
EndFunc

Func _Host_Write()
Local $Write_Data,$Error = 0
For $I = 1 to $HOST_LINE[0]
If $HOST_LINE[$I] = $SKIP_LINE Then ContinueLoop
$Write_Data &= $HOST_LINE[$I] & @CRLF
Next
FileSetAttrib($HostFile,"-RSH")

Local $BL_FOPEN = FileOpen($HostFile,2)
If $BL_FOPEN = -1 Or FileWrite($BL_FOPEN,$Write_Data) = 0 Then $Error = 1
FileClose($BL_FOPEN)

FileSetAttrib($HostFile,"+RSH")
If $Error <> 0 Then Return SetError(1,0,0)
Return 1
EndFunc

Func _Host_Read_To_Array()
Local $FileRead = StringStripWS(FileRead($HostFile),3)
$FileRead = StringReplace($FileRead, @CR, @LF)
$FileRead = StringReplace($FileRead, @LF & @LF, @LF)
Local $HOST_LINE = StringSplit($FileRead, @LF)
Return $HOST_LINE
EndFunc[/codebox]