proxy koruma remotesi - Gencleriz Forum | Gencler , Genc , Genclik , Genciz , Genc Forum, Genclik Forum, Genclerin Forumu

Sphynx · 10-26-2009, 10:13 PM

/dialog -m Proxylist Proxylist Yazarak Acılır. Alıntı:
on OpenProxy:join:#:{ if ($nick != $me) { .kline $nick Ban Sebebin } }
alias Proxyconf if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
dialog Proxylist {
title "Proxy ip Korumasi"
size -1 -1 200 280

button "Tamam", 1, 110 200 70 20,ok, flat
list 2, 10 20 180 135, sort
box "ProxyListesi", 3, 5 5 190 145
edit "*!*@", 4, 10 165 180 20, autohs
box "Eklenecek İp"yi Girin", 5, 5 150 190 45
button "İp Ekle", 6, 20 200 70 20, flat
box "Not:", 7, 5 225 190 45
text "İp"yi Kaldirmak icin İp"nin Uzerine Cift Tiklayin", 8, 25 240 140 45
}
alias Proxysetup if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist
on *:dialog:Proxylist:dclick:2:{ .ruser OpenProxy $did(2).seltext | did -d Proxylist 2 $did(2).sel }
on *:dialog:Proxylist:sclick:6:{ if ($did(4) != $null) { did -a Proxylist 2 $did(4) | .auser OpenProxy $did(4) | did -fr Proxylist 4 } }
on *:dialog:Proxylist:init:*:{
if ($ulist(*,OpenProxy,0) != $null) {
set %prx.Proxy 0
while (%prx.Proxy < $ulist(*,OpenProxy,0)) {
inc %prx.Proxy 1
did -a Proxylist 2 $ulist(*,OpenProxy,%prx.Proxy)
}
unset %prx.Proxy
}
}
on *:snotice:*client connect*:var %ip $remove($gettok($10,2,64),$chr(41)),%id = $remove($gettok($10,1,64),$chr(40)),%full = $+($9,!,%id,@,%ip) | if ($level(%full) == OpenProxy) { .kline $9 Ban Sebebin }

$uan Coğu Yeni Sistemli ircD'lerde ßu Koda ihtiyac OlmasaDa eSki Sistemli Shell'lerde ßuLunanlara Cok YarıyaCaktır.

10-26-2009, 10:13 PM	#1
Sphynx Moderatör Üyelik tarihi: Oct 2009 Bulunduğu yer: www.mircindi.tr.gg Mesajlar: 41 Teşekkürleri: 0 4 mesajına 4 kere teşekkür edildi.	proxy koruma remotesi /dialog -m Proxylist Proxylist Yazarak Acılır. Alıntı: on OpenProxy:join:#:{ if ($nick != $me) { .kline $nick Ban Sebebin } } alias Proxyconf if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist dialog Proxylist { title "Proxy ip Korumasi" size -1 -1 200 280 button "Tamam", 1, 110 200 70 20,ok, flat list 2, 10 20 180 135, sort box "ProxyListesi", 3, 5 5 190 145 edit "!@", 4, 10 165 180 20, autohs box "Eklenecek İp"yi Girin", 5, 5 150 190 45 button "İp Ekle", 6, 20 200 70 20, flat box "Not:", 7, 5 225 190 45 text "İp"yi Kaldirmak icin İp"nin Uzerine Cift Tiklayin", 8, 25 240 140 45 } alias Proxysetup if $dialog(Proxylist) == $null dialog -m Proxylist Proxylist on :dialog:Proxylist:dclick:2:{ .ruser OpenProxy $did(2).seltext \| did -d Proxylist 2 $did(2).sel } on :dialog:Proxylist:sclick:6:{ if ($did(4) != $null) { did -a Proxylist 2 $did(4) \| .auser OpenProxy $did(4) \| did -fr Proxylist 4 } } on :dialog:Proxylist:init::{ if ($ulist(,OpenProxy,0) != $null) { set %prx.Proxy 0 while (%prx.Proxy < $ulist(,OpenProxy,0)) { inc %prx.Proxy 1 did -a Proxylist 2 $ulist(,OpenProxy,%prx.Proxy) } unset %prx.Proxy } } on :snotice:client connect:var %ip $remove($gettok($10,2,64),$chr(41)),%id = $remove($gettok($10,1,64),$chr(40)),%full = $+($9,!,%id,@,%ip) \| if ($level(%full) == OpenProxy) { .kline $9 Ban Sebebin } $uan Coğu Yeni Sistemli ircD'lerde ßu Koda ihtiyac OlmasaDa eSki Sistemli Shell'lerde ßuLunanlara Cok YarıyaCaktır.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç