IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:

on OpenProxy:join:#:{ if $nick ison #mynet { halt } } | { .mode $chan +b $wildsite 4K12anaLa 4P12roxy 1/ 4S12ocks 4G12irisi 4Y12apmak 4Y12asaktIr 4! %logo } }

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

  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

  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 

  } 

}

.mode $chan +b $wildsite 4K12anaLa 4P12roxy 1/ 4S12ocks 4G12irisi 4Y12apmak 4Y12asaktIr 4! %logo

Koruma ßu SekiL Ip ßan oLarak Atiyor . Bunu KLine oLarak NasiL Cevirir . Cr Sunucusu Yardim Ederseniz Sevinirim Simdiden Tsk Ler