TncTR Hosts Editor

[KintaRo]

bide bana artizlik yapıyordu hata yok diye

[djonur007]

[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...

[blackman12]

[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]

[YAGMURADAM]

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

[blackman12]

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]

[djonur007]

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

[emutlu]

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ı?

[KintaRo]

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.

[radyofon]

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"

[DivaneTR]

[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]

[nightmare3519]

veya önce çıkartın sonra ams ile açın

[radyofon]

[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.

[m3hm3t1991]

[b][color="#0000ff"]Kintaro[/color] ustat link kırık yenileme imanın varsa yenilermisin rica etsem[/b]

Edited March 8, 2012 by m3hm3t1991

[KintaRo]

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.

 

[leonx038]

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.

[ersozcan]

Linkler Krık yeniler misiniz?

[Cyph3r]

Linkler Krık yeniler misiniz?

 

linkler yenilendi...