KintaRo Posted December 6, 2010 Author Share Posted December 6, 2010 bide bana artizlik yapıyordu hata yok diye Quote Link to comment Share on other sites More sharing options...
djonur007 Posted December 6, 2010 Share Posted December 6, 2010 [quote name='KintaRo' date='06 Aralık 2010 - 12:23 ' timestamp='1291631624' post='922304'] bide bana artizlik yapıyordu hata yok diye [/quote] valla iki tane eklemediğim için hatayı göremedim ama [b]bence[/b] blackman abinin dediğini yaparsak kaydet butonu ölecek, seçim sizin... Quote Link to comment Share on other sites More sharing options...
blackman12 Posted December 6, 2010 Share Posted December 6, 2010 [b] La ekliceğin iki satır kod seçim sizin falan sıratta mıyız [code]#NoTrayIcon #Region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=HostsEditor.ico #AutoIt3Wrapper_Compression=4 #AutoIt3Wrapper_UseUpx=n #AutoIt3Wrapper_Res_Comment=Onur YORULMAZ #AutoIt3Wrapper_Res_Description=Onur YORULMAZ #AutoIt3Wrapper_Res_Fileversion=1.0.0.0 #AutoIt3Wrapper_Res_LegalCopyright=Onur YORULMAZ #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Global $Form1 = GUICreate("TnCTR Host Editor (for Autoit)", 545, 436, -1, -1) $Edit1 = GUICtrlCreateEdit("", 0, 48, 545, 387, BitOR($ES_READONLY,$ES_WANTRETURN,$WS_VSCROLL)) $hostdosyasi = FileRead(@SystemDir & "\drivers\etc\hosts") GUICtrlSetData(-1, $hostdosyasi) $Button1 = GUICtrlCreateButton("Kaydet", 8, 8, 73, 33, $WS_GROUP) $Button2 = GUICtrlCreateButton("Engeli Aç", 100, 8, 73, 33, $WS_GROUP) $Button3 = GUICtrlCreateButton("Engelle", 192, 8, 73, 33, $WS_GROUP) $Button4 = GUICtrlCreateButton("Hakkında", 464, 8, 73, 33, $WS_GROUP) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 _kaydet() Case $Button2 _ac() Case $Button3 _engelle() Case $Button4 MsgBox(64,"Hakkında","Bu program Onur YORULMAZ tarafından www.TnCTR.com için hazırlanmıştır.") EndSwitch WEnd Func _kaydet() $kaydet = GUICtrlRead($Edit1, 1) FileWrite(@SystemDir & "\drivers\etc\hosts", $kaydet) EndFunc Func _ac() $IP = InputBox("IP Girin", "Lütfen sitenin IP'sini girin.", "") $Site = InputBox("Siteyi Girin.", "Lütfen sitenin adresini girin.", "") $tekraroku = guictrlread($edit1) GUICtrlSetData($Edit1, $tekraroku & @CRLF & $IP & " " & $Site) EndFunc Func _engelle() $Site = InputBox("Siteyi Girin.", "Lütfen sitenin adresini girin.", "") [b]$tekraroku2 = guictrlread($edit1) GUICtrlSetData($Edit1, $tekraroku2 & @CRLF & "127.0.0.1 " & $Site) [/b]EndFunc[/code][/b] Quote Link to comment Share on other sites More sharing options...
YAGMURADAM Posted December 7, 2010 Share Posted December 7, 2010 (edited) blackman12 nin verdiği autoit kodunu hemencecik exe dosyasına çevirdim.Güzel debir simge koydum.Dosya boyutu 349 kb.Gülegüle kullanın. Not:Kodda en ufak bir değişiklik yapmadım.Kopyalayıp autıit programına yapıştırıp au3 e çevirdim sonra da exe olarak...Saygılarımla blackmanim kodunda bi,r hata mı var acaba?Niye dersen.Varsayki engeli aç butonuna bastım.Cancel butonuna basınca bir kez daha onaylama istiyor.Yani iki kez Cancel butonuna basmam gerekiyor.Bilgilerinize İndirme adresi(Rar boyutu:293 kb) : http://hotfile.com/dl/87656640/6cb43e2/HostMonitor.rar.html Edited December 7, 2010 by YAGMURADAM Quote Link to comment Share on other sites More sharing options...
blackman12 Posted December 7, 2010 Share Posted December 7, 2010 Hehe kodlar benim değil Onurun ben sadece yanlış yaptığı ufak bi noktayı düzelttim neyse o hatayı da düzelttim. [code] #NoTrayIcon $Form1 = GUICreate("TnCTR Host Editor", 545, 436, -1, -1) $Edit1 = GUICtrlCreateEdit("", 0, 48, 545, 387, BitOR(0x0800,0x1000,0x00200000)) $hostdosyasi = FileRead(@SystemDir & "\drivers\etc\hosts") GUICtrlSetData(-1, $hostdosyasi) $Button1 = GUICtrlCreateButton("Kaydet", 8, 8, 73, 33) $Button2 = GUICtrlCreateButton("Engeli Aç", 100, 8, 73, 33) $Button3 = GUICtrlCreateButton("Engelle", 192, 8, 73, 33) $Button4 = GUICtrlCreateButton("Hakkında", 464, 8, 73, 33) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 Exit Case $Button1 _kaydet() Case $Button2 _ac() Case $Button3 _engelle() Case $Button4 MsgBox(64,"Hakkında","Bu program Onur YORULMAZ tarafından www.TnCTR.com için hazırlanmıştır.") EndSwitch WEnd Func _kaydet() $kaydet = GUICtrlRead($Edit1, 1) FileWrite(@SystemDir & "\drivers\etc\hosts", $kaydet) EndFunc Func _ac() $IP = InputBox("IP Girin", "Lütfen sitenin IP'sini girin.", "") if not @error Then $Site = InputBox("Siteyi Girin.", "Lütfen sitenin adresini girin.", "") if not @error Then $tekraroku = guictrlread($edit1) GUICtrlSetData($Edit1, $tekraroku & @CRLF & $IP & " " & $Site) EndIf EndIf EndFunc Func _engelle() $Site = InputBox("Siteyi Girin.", "Lütfen sitenin adresini girin.", "") if not @error Then $tekraroku2 = guictrlread($edit1) GUICtrlSetData($Edit1, $tekraroku2 & @CRLF & "127.0.0.1 " & $Site) EndIf EndFunc[/code] Quote Link to comment Share on other sites More sharing options...
djonur007 Posted December 7, 2010 Share Posted December 7, 2010 (edited) Yaw ben bu komutu hiç kullanmamıştım da ondan oldu varlığından bile haberim yok [b][b][codebox]guictrlread[/codebox][/b][/b] Edited December 7, 2010 by djonur007 Quote Link to comment Share on other sites More sharing options...
emutlu Posted December 12, 2010 Share Posted December 12, 2010 Otomatik ip çözümlemesi ne zaman hazır olacak? Bazı sitelere hiçbir şekilde giremiyorum. Proxy üzerinden de girilmiyor. Bunu aşmanın bir yöntemi var mı? Quote Link to comment Share on other sites More sharing options...
KintaRo Posted December 20, 2010 Author Share Posted December 20, 2010 otomatik ip çözümleme için pek zamanım yok bu aralar. Sadece hosts dosyasını eğer salt okunur ve gizli ise, bunları otomatik devre dışı bırakacak kod ekledim. v1.1 sürümüne yükseldi. Quote Link to comment Share on other sites More sharing options...
radyofon Posted March 6, 2012 Share Posted March 6, 2012 Programı birkaç defa indirdim ve her denememde: "Autoplay encountered an error (28) unzipping the file following file: C:\Users\pc4\Desktop\hosts editor 1.1\hosts editor 1.1.apz" Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted March 8, 2012 Share Posted March 8, 2012 [quote name='radyofon' date='06 March 2012 - 09:48 ' timestamp='1331020123' post='1165630'] Programı birkaç defa indirdim ve her denememde: "Autoplay encountered an error (28) unzipping the file following file: C:\Users\pc4\Desktop\hosts editor 1.1\hosts editor 1.1.apz" [/quote] [b]Winrar ile açıp çıkarın önce proje dosyasını. Sonra açmaya çalışın.[/b] Quote Link to comment Share on other sites More sharing options...
nightmare3519 Posted March 8, 2012 Share Posted March 8, 2012 veya önce çıkartın sonra ams ile açın Quote Link to comment Share on other sites More sharing options...
radyofon Posted March 8, 2012 Share Posted March 8, 2012 [quote name='Baba_' date='08 March 2012 - 14:42 ' timestamp='1331210564' post='1166516'] [b]Winrar ile açıp çıkarın önce proje dosyasını. Sonra açmaya çalışın.[/b] [/quote] apz dosyası bozuk. İndirmeyi siz de deneyin isterseniz. apz dosyası AMS' de açılamıyor ama exe dosyası sağlam. Quote Link to comment Share on other sites More sharing options...
m3hm3t1991 Posted March 8, 2012 Share Posted March 8, 2012 (edited) [b][color="#0000ff"]Kintaro[/color] ustat link kırık yenileme imanın varsa yenilermisin rica etsem[/b] Edited March 8, 2012 by m3hm3t1991 Quote Link to comment Share on other sites More sharing options...
KintaRo Posted January 28, 2013 Author Share Posted January 28, 2013 Linkler çalışıyor. Ayrıca şu windows 8'de de denedim. Eğer aşağıdaki ayarı yaparsanız direk çalıştırarak işlem yapabilirsiniz. Quote Link to comment Share on other sites More sharing options...
leonx038 Posted January 28, 2013 Share Posted January 28, 2013 Linkler çalışıyor. Ayrıca şu windows 8'de de denedim. Eğer aşağıdaki ayarı yaparsanız direk çalıştırarak işlem yapabilirsiniz. Programında veya Linkler de Promlem yok Siteleri Regedit veya gpedit.msc 'den Engelleyebilir miyiz. Quote Link to comment Share on other sites More sharing options...
ersozcan Posted March 18, 2013 Share Posted March 18, 2013 Linkler Krık yeniler misiniz? Quote Link to comment Share on other sites More sharing options...
Cyph3r Posted July 24, 2013 Share Posted July 24, 2013 Linkler Krık yeniler misiniz? linkler yenilendi... 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.