resulsen Posted April 23, 2011 Share Posted April 23, 2011 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? Quote Link to comment Share on other sites More sharing options...
kalelibilişim Posted April 23, 2011 Share Posted April 23, 2011 inter filtre ile istediğin siteyi engelleyebilirsin veya engelledikten sonra açabilirsin Quote Link to comment Share on other sites More sharing options...
blue_life Posted April 23, 2011 Share Posted April 23, 2011 Ö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! Quote Link to comment Share on other sites More sharing options...
TORUNAGA Posted April 23, 2011 Share Posted April 23, 2011 direk portu kapat? Quote Link to comment Share on other sites More sharing options...
rulman Posted April 23, 2011 Share Posted April 23, 2011 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 Quote Link to comment Share on other sites More sharing options...
KintaRo Posted April 23, 2011 Share Posted April 23, 2011 [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! Quote Link to comment Share on other sites More sharing options...
rulman Posted April 23, 2011 Share Posted April 23, 2011 [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? Quote Link to comment Share on other sites More sharing options...
FeeLMyLove Posted April 23, 2011 Share Posted April 23, 2011 hocam peki modemi camdan aşağı atmak nasıl çözüm? Quote Link to comment Share on other sites More sharing options...
DePPoL Posted April 23, 2011 Share Posted April 23, 2011 siteyi illegal olarak tanıtırsan bir programa mesela anti porn a hayatta giremez Quote Link to comment Share on other sites More sharing options...
resulsen Posted April 23, 2011 Author Share Posted April 23, 2011 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 Quote Link to comment Share on other sites More sharing options...
blue_life Posted April 25, 2011 Share Posted April 25, 2011 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] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.