Çözüldü Toplu Proxy ekleme - Sayfa 2 - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Fredyyy · 25 Aralık 2020, 19:43

Merhabalar;
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] abi ellerine bilgine sağlık..
188.59.186.124:44550
185.169.181.12:4145
185.169.181.24:4145
212.154.83.60:45272

burada TXT de olan iplerin port kısımlarını ekletmeden nasıl kayıt yaparız?
ÖRN: 188.59.186.124 gibi. *@188.59.* olarakta kısaltmasın mümkünse
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Alper Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias iekle {  if ($dialog(Proxy_ekle)) { dialog -c Proxy_ekle } |  dialog -ma Proxy_ekle Proxy_ekle }
dialog Proxy_ekle {
  title "Hash Proxy Ekleme"
  size -1 -1 264 163
  option pixels
  box "Ekleme yapmak için dosya seçin", 1, 11 6 240 130
  button "Proxy IP Ekle", 2, 33 34 197 80, normal
  text "Yüklenen Proxy Adet:", 3, 62 140 108 16
  text "0", 4, 171 140 50 16, center
}

on 1:dialog:Proxy_ekle:*:*:{
  if ($devent == init) {
  }
  if ($devent == sclick) {
    if ($Did == 2) {
      Var %F = $SFile($mIRCDir,Txt Dosyasını Seçiniz,Ekle), %eklenen = 0
      If (%F) { 
        Var %I = 1 
        While ($Read(%F,%I)) { 
          Var %F1 = $Read(%F,%I), %j = $regsubex(%F1,/(^\d+\.\d+\.).+/gi,*@\1*)
          if !$hget(p,%j) {
            hadd -m p %j Proxy
            hsave -o p pr.x
            inc %eklenen
          }
          inc %I
        } 
      } 
      did -o Proxy_ekle 4 1 %eklenen
    }
  }
}

Daha önce kendim için yapmıştım senin isteğine göre uyarladım.

Kullanım:
/iekle yazıp açılan pencerede proxy.txt dosyasını seçiyorsun gerisini kendi hallediyor.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:43 -->-> Daha önceki mesaj 18:43 --

Sorun çözüldü, flood olmaması açısından bilgi için yazıyorum. Herkese teşekkürler.

High · 30 Aralık 2020, 18:03

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], başkan online olduğun da bi bakabilir misin? verdiğin KOD da sorun yok gayet güzel ekliyor yalnız ekli ip uzantıları girdiğin de KOD işlem yapmıyor. KOD'un tamamını paylaşıyorum müsait olduğun da bi bakabilir misin?

Dipnot Mesajı: on *:join:#:{
if ($count($nick($chan,$me).pnick,@,&,~,%) != 0) && %Proxy.koruma == On {
var %ip $gettok($address,2,$asc(@))
if $hfind(p,%ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae 11****5 Muaf nick girişi:4 $nick 5Atılmadı. | return }
kick $chan $nick 0,1BLACKLiST! | mode $chan +b $+(*!*@,$hfind(p,%ip,1,W).item) }
}
}
on *:Start:{
if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x
if !$file(m.x) { write -c m.x } | hmake m | hload m m.x
}
alias pr {
if !$hget(p) { if !$file(pr.x) { write -c pr.x } | hmake p | hload p pr.x }
if !$hget(m) { if !$file(m.x) { write -c m.x } | hmake m | hload m m.x }
if $1 == Aç { set %proxy.koruma ON | echo 3 -ae *** 12Proxy Koruması açılmıştır. } | if $1 == Kapat { set %proxy.koruma Off | echo 3 -ae *** 4Proxy Koruması kapatılmıştır.. }
if $1 == ekle {
if !$2 { echo 3 -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
if $hfind(p,$2,1,W).item { echo 3 -ae 11***7 Bu ip listede mecvuttur. | return }
hadd -m p $2 Proxy | hsave p pr.x
echo 3 -ae 11*** $2 12Listeye eklenmiştir.
}
if $1 == sil {
if !$2 { echo 3 -ae 11***7 Lütfen ip adresi yaz, $me $+ . | return }
if $hfind(p,$2,1,W).item {
hdel p $ifmatch | hsave p pr.x
echo 3 -ae 11*** $ifmatch 4Listeden silinmiştir.
}
else { echo 3 -ae 11***10 Listeden bulunamamıştır. }
}
if $1 == liste {
var %s 1, %f $hget(p,0).item
if $hget(p,0).item == 0 { echo 3 -ae 11***7 Liste boş durumda. | return }
while %s <= %f {
echo 3 -ae 11***4 Proxy IP listesi: $hget(p,%s).item
inc %s
}
}
if $1 == muaf {
if $2 == ekle {
if $hfind(m,$3,1,W).item { echo 3 -ae 11***7 Bu nick listede mecvuttur. | return }
hadd -m m $3 Proxy | hsave m m.x
echo 3 -ae 11*** $3 12Muaf nick listeye eklenmiştir.
}
if $2 == sil {
if $hfind(m,$3,1,W).item {
hdel m $ifmatch | hsave m m.x
}
else { echo 3 -ae 11***5 Listeden bulunamamıştır. }
}
if $3 == liste {
var %s 1, %f $hget(m,0).item
if $hget(m,0).item == 0 { echo 3 -ae 11***4 Liste boş durumda. | return }
while %s <= %f {
echo 3 -ae 11***12 Proxy muaf Nick Listesi: $hget(m,%s).item
inc %s
}
}
}
}
on *:join:#:{
if ($count($nick($chan,$me).pnick,@,&,~,%) != 0) && %Proxy.koruma == On {
var %ip $gettok($address,2,$asc(@))
if $hfind(p,%ip,1,W).item { if $hfind(m,$nick,1,W).item { echo 3 -ae 11****5 Muaf nick girişi:4 $nick 5Atılmadı. | return }
kick $chan $nick 0,1BLACKLiST! | mode $chan +b $+(*!*@,$hfind(p,%ip,1,W).item) }
}
}

alias iekle { if ($dialog(Proxy_ekle)) { dialog -c Proxy_ekle } | dialog -ma Proxy_ekle Proxy_ekle }
dialog Proxy_ekle {
title "Hash Proxy Ekleme"
size -1 -1 264 163
option pixels
box "Ekleme yapmak için dosya seçin", 1, 11 6 240 130
button "Proxy IP Ekle", 2, 33 34 197 80, normal
text "Yüklenen Proxy Adet:", 3, 62 140 108 16
text "0", 4, 171 140 50 16, center
}

on 1:dialog:Proxy_ekle:*:*:{
if ($devent == init) {
}
if ($devent == sclick) {
if ($Did == 2) {
Var %F = $SFile($mIRCDir,Txt Dosyasını Seçiniz,Ekle), %eklenen = 0
If (%F) {
Var %I = 1
While ($Read(%F,%I)) {
Var %F1 = $Read(%F,%I), %j = $regsubex(%F1,/(^\d+\.\d+\.).+/gi,*@\1*)
if !$hget(p,%j) {
hadd -m p %j Proxy
hsave -o p pr.x
inc %eklenen
}
inc %I
}
}
did -o Proxy_ekle 4 1 %eklenen
}
}
}
--------------
/Pr Aç
/Pr Kapat
/Pr ekle *@198.16.*
/Pr sil *@198.16.*

High · 02 Ocak 2021, 18:12

Yardımcı olabilecek biri var mı?

cinaryigit · 02 Ocak 2021, 20:25

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] selam. İstersen bu diyaloglu kodu da Kullananbilirsin.
Kimde görmüştüm hatırlamıyorum ama tblock için hazırlanmıştı ben proxy ipleri banlama olarak editlemiştim.
Kodu yazan BF olabilir. Emeğe saygı.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

dialog proxy_locksystem {
  title "Block Dialog"
  size -1 -1 257 319
  option dbu
  text "Sabit Blocklar", 1, 90 3 70 8, center
  button "Ekle", 2, 85 60 37 11
  button "Sil", 19, 135 123 33 10
  edit "", 4, 10 13 233 10
  text "İşlem Süresi", 6, 160 198 70 8, center
  edit "", 7, 171 208 50 10
  radio "Saniye", 8, 149 220 29 10
  radio "Dakika", 9, 182 220 30 10
  radio "Saat", 10, 214 220 29 10
  button "Süreyi Kaydet", 11, 179 231 37 12
  button "Kapat", 12, 105 305 37 12, ok
  button "Sistem Aç", 13, 62 292 37 12
  button "Sistem Kapat", 14, 108 291 37 12
  text " Gücelleniyor..", 15, 90 231 76 8
  text " Güncelleniyor..", 16, 90 241 61 8
  text " Güncelleniyor..", 17, 90 250 63 8
  text " Güncelleniyor..", 18, 90 259 79 8
  button "Sil", 3, 135 60 37 11
  text "Muaf Kanallar", 20, 91 73 70 8, center
  button "Ekle", 22, 85 123 33 10
  edit "", 23, 10 83 233 10
  button "1 Kere Blockla", 24, 153 290 37 12
  text "Kanallar", 26, 91 136 70 8, center
  list 27, 9 156 232 29, size
  text " Kanal Ayarlari", 25, 14 199 58 8
  edit "", 28, 24 210 50 10
  text "Min.", 29, 5 211 18 8
  edit "", 30, 24 221 50 10
  text "Max.", 31, 5 222 17 8
  button "Kanalları Gün.", 32, 27 234 37 12
  text " Güncelleniyor..", 33, 90 268 79 8
  text " Güncelleniyor..", 34, 90 277 79 8
  list 5, 10 24 233 36, size
  list 21, 10 94 233 29, size
  edit "", 35, 9 145 233 10
  button "Ekle", 36, 85 186 33 10
  button "Sil", 37, 135 185 33 10
}

alias -l gnclfk { did -r proxy_locksystem 5 | loadbuf -o proxy_locksystem 5 proxyip.type | did -r proxy_locksystem 21 | loadbuf -o proxy_locksystem 21 muafproxykanal.type | did -r proxy_locksystem 27 | loadbuf -o proxy_locksystem 27 proxykanal.type }
alias -l gnclgk { did -ra proxy_locksystem 15 Sistem Durumu: %islemdurumu | did -ra proxy_locksystem 16 Sistem Süresi: %islemzamani | did -ra proxy_locksystem 17 Süre: %islemturu | did -ra proxy_locksystem 18 Ekli Block: $iif(!$lines(proxyip.type),0,$lines(proxyip.type)) | did -ra proxy_locksystem 33 Ekli Kanal: $iif(!$lines(proxykanal.type),0,$lines(proxykanal.type)) | did -ra proxy_locksystem 34 Ekli M. Kanal: $iif(!$lines(muafproxykanal.type),0,$lines(muafproxykanal.type)) }

alias chanlst { list -min $1 -max $2 }
raw *:* {
  if $numeric == 322 {
    if !$read(proxykanal.type,w,$2) { write proxykanal.type $2 }
  }
}
alias -l proxy_locksystem { if $dialog(proxy_locksystem) { dialog -x proxy_locksystem | dialog -m proxy_locksystem proxy_locksystem } | else { dialog -m proxy_locksystem proxy_locksystem } }
alias saldiriban {
  if !%islemzamani || !%islemturu || !%islemdurumu { set %islemdurumu deaktif | echo -a Geçersiz veritabanı! | gnclgk | timerkdfk off | halt } 
  if !$server { set %islemdurumu deaktif | echo -a Geçersiz bağlantı! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt } 
  if !$lines(proxyip.type) || !$lines(proxykanal.type) { set %islemdurumu deaktif | echo -a Geçersiz kaynak dosyası! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt } 
  var %mssban 1
  var %mssban2 1
  while %mssban <= $lines(proxykanal.type) {
    if ($read(proxykanal.type,%mssban)) { 
      var %mssban2 1
      while %mssban2 <= $lines(proxyip.type) {
        if ($read(proxyip.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) { 
          mode $read(proxykanal.type,%mssban) +b $read(proxyip.type,%mssban2) 
        }
        inc %mssban2
      }
    }
    inc %mssban
  }

}
on *:connect: { set %islemdurumu deaktif }
on *:dialog:proxy_locksystem:*:*:{
  if ($devent == init) {
    if !%islemdurumu { set %islemdurumu deaktif }
    if !%islemzamani { set %islemzamani 10 }
    if !%islemturu { set %islemturu dk }
    if ($isfile(proxyip.type) == $false) { write -c proxyip.type } | else { loadbuf -o $dname 5 proxyip.type }
    if ($isfile(muafproxykanal.type) == $false) { write -c muafproxykanal.type } | else { loadbuf -o $dname 21 muafproxykanal.type }
    if ($isfile(proxykanal.type) == $false) { write -c proxykanal.type } | else { loadbuf -o $dname 27 proxykanal.type }
    $iif(%islemturu == sn,did -c proxy_locksystem 8,$iif(%islemturu == dk,did -c proxy_locksystem 9,$iif(%islemturu == ss,did -c proxy_locksystem 10)))
    did -a proxy_locksystem 28 20 | did -a proxy_locksystem 30 100 | did -a proxy_locksystem 7 %islemzamani 
    gnclgk
  }
  if ($devent == sclick) {
    if ($did == 21) {
      if $did(21).seltext { did -r proxy_locksystem 23 | did -a proxy_locksystem 23 $did(21).seltext | halt }
    }
    if ($did == 5) {
      if $did(5).seltext { did -r proxy_locksystem 4 | did -a proxy_locksystem 4 $did(5).seltext | halt }
    }
    if ($did == 27) {
      if $did(27).seltext { did -r proxy_locksystem 35 | did -a proxy_locksystem 35 $did(27).seltext | halt }
    }
    if ($did == 2) {
      if !$did(4) { noop $input(Lütfen eklemek istediğiniz Mode'yi yazınız!,houdbk60,Hata!) | halt }
      if $read(proxyip.type,w,$did(4)) { noop $input(Bu Mode zaten ekli.,houdbk60,Hata!) | halt }
      write proxyip.type $did(4) | gnclfk | gnclgk
    }
    if ($did == 22) {
      if !$did(23) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
      if $read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak ekli.,houdbk60,Hata!) | halt }
      write muafproxykanal.type $did(23) | gnclfk | gnclgk
    }
    if ($did == 36) {
      if !$did(35) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
      if $read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli.,houdbk60,Hata!) | halt }
      write proxykanal.type $did(35) | gnclfk | gnclgk | did -r proxy_locksystem 35
    }
    if ($did == 32) {
      if !$did(28) { noop $input(Kanalları güncellemek için lütfen Min. user sayısını giriniz!,houdbk60,Hata!) | halt }
      if !$did(30) { noop $input(Kanalları güncellemek için lütfen Max. user sayısını giriniz!,houdbk60,Hata!) | halt }
      remove proxykanal.type
      chanlst $did(28) $did(30)
      did -r proxy_locksystem 27 | timergnc 1 2 loadbuf -o proxy_locksystem 27 proxykanal.type
    }
    if ($did == 25) { chanlst 50 150 }
    if ($did == 24) {
      if !$read(proxyip.type) { noop $input(Balamak için mode girmelisiniz!,houdbk60,Hata!) | halt }
      if !$read(proxykanal.type) { noop $input(Banlamak için kanal kayıt etmeniz gerekli!,houdbk60,Hata!) | halt }
      if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -aCd @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 1 900 500 }
      var %mssban 1
      var %mssban2 1
      while %mssban <= $lines(proxykanal.type) {
        if ($read(proxykanal.type,%mssban)) { 
          var %mssban2 1
          while %mssban2 <= $lines(proxyip.type) {
            if ($read(proxyip.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) { 
              aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $read(proxykanal.type,%mssban) >> +b ~q: $+ $read(proxyip.type,%mssban2)
              mode $read(proxykanal.type,%mssban) +b $read(proxyip.type,%mssban2) 
            }
            inc %mssban2
          }
        }
        inc %mssban
      }
    }
    if ($did == 8) {
      set %islemturu sn
      gnclgk
    }
    if ($did == 9) {
      set %islemturu dk
      gnclgk
    }
    if ($did == 10) {
      set %islemturu ss
      gnclgk
    }
    if ($did == 3) {
      if !$did(4) { noop $input(Lütfen silmek istediğiniz Mode'i seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(proxyip.type,w,$did(4)) { noop $input(Bu Mode zaten değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(4)) proxyip.type | gnclfk | gnclgk | did -r proxy_locksystem 4
    }
    if ($did == 37) {
      if !$did(35) { noop $input(Lütfen silmek istediğiniz kanal'ı seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(35)) proxykanal.type | gnclfk | gnclgk | did -r proxy_locksystem 35
    }
    if ($did == 19) {
      if !$did(23) { noop $input(Lütfen silmek istediğiniz kanal'ı yazınız seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(23)) muafproxykanal.type | gnclfk | gnclgk | did -r proxy_locksystem 23
    }
    if ($did == 13) {
      if !$lines(proxyip.type) { noop $input(Lütfen önce Mode ekleyiniz!,houdbk60,Hata!) | halt }
      if !$lines(proxykanal.type) { noop $input(Lütfen önce kanal ekleyiniz!,houdbk60,Hata!) | halt }
      if $timer(kdfk) { noop $input(Zaten aktif!,houdbk60,Hata!) | halt }
      if !%islemzamani { set %islemzamani 10 }
      if !%islemturu { set %islemturu dk }
      if !%islemdurumu { set %islemdurumu aktif }
      echo -a block'lar %islemzamani $iif(%islemturu == sn,saniye'de bir,$iif(%islemturu == dk,dakika'da bir,$iif(%islemturu == ss,saat'te bir))) atılacaktır.
      set %islemdurumu aktif
      timerkdfk 0 $iif(%islemturu == sn,%islemzamani,$iif(%islemturu == dk,$calc(60 * %islemzamani),$iif(%islemturu == ss,$calc(60 * 60 * %islemzamani)))) .saldiriban
      gnclgk
    }
    if ($did == 14) {
      if !%islemzamani { set %islemzamani 10 }
      if !%islemturu { set %islemturu dk }
      if !%islemdurumu { set %islemdurumu deaktif }
      echo -a blocks'lar iptal edildi.
      set %islemdurumu deaktif
      gnclgk
      timerkdfk off
    }
    if ($did == 11) {
      if !$did(7) { noop $input(Lütfen bir süre giriniz!,houdbk60,Hata!) | halt }
      if $regex($did(7),\D) { noop $input(Lütfen geçerli bir süre giriniz!,houdbk60,Hata!) | halt }
      if $did(7) { set %islemzamani $did(7) }
      gnclgk
    }
  }
}

Sabit Block kısmına 104.129.* bu şekilde eklemen yeterli.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

dialog akick_proxy {
  title "Block Dialog"
  size -1 -1 257 319
  option dbu
  text "Sabit Blocklar", 1, 90 3 70 8, center
  button "Ekle", 2, 85 60 37 11
  button "Sil", 19, 135 123 33 10
  edit "", 4, 10 13 233 10
  text "İşlem Süresi", 6, 160 198 70 8, center
  edit "", 7, 171 208 50 10
  radio "Saniye", 8, 149 220 29 10
  radio "Dakika", 9, 182 220 30 10
  radio "Saat", 10, 214 220 29 10
  button "Süreyi Kaydet", 11, 179 231 37 12
  button "Kapat", 12, 105 305 37 12, ok
  button "Sistem Aç", 13, 62 292 37 12
  button "Sistem Kapat", 14, 108 291 37 12
  text " Gücelleniyor..", 15, 90 231 76 8
  text " Güncelleniyor..", 16, 90 241 61 8
  text " Güncelleniyor..", 17, 90 250 63 8
  text " Güncelleniyor..", 18, 90 259 79 8
  button "Sil", 3, 135 60 37 11
  text "Muaf Kanallar", 20, 91 73 70 8, center
  button "Ekle", 22, 85 123 33 10
  edit "", 23, 10 83 233 10
  button "1 Kere Blockla", 24, 153 290 37 12
  text "Kanallar", 26, 91 136 70 8, center
  list 27, 9 156 232 29, size
  text " Kanal Ayarlari", 25, 14 199 58 8
  edit "", 28, 24 210 50 10
  text "Min.", 29, 5 211 18 8
  edit "", 30, 24 221 50 10
  text "Max.", 31, 5 222 17 8
  button "Kanalları Gün.", 32, 27 234 37 12
  text " Güncelleniyor..", 33, 90 268 79 8
  text " Güncelleniyor..", 34, 90 277 79 8
  list 5, 10 24 233 36, size
  list 21, 10 94 233 29, size
  edit "", 35, 9 145 233 10
  button "Ekle", 36, 85 186 33 10
  button "Sil", 37, 135 185 33 10
}

alias -l gnclfk { did -r akick_proxy 5 | loadbuf -o akick_proxy 5 akick.type | did -r akick_proxy 21 | loadbuf -o akick_proxy 21 muafproxykanal.type | did -r akick_proxy 27 | loadbuf -o akick_proxy 27 proxykanal.type }
alias -l gnclgk { did -ra akick_proxy 15 Sistem Durumu: %islemdurumu | did -ra akick_proxy 16 Sistem Süresi: %islemzamani | did -ra akick_proxy 17 Süre: %islemturu | did -ra akick_proxy 18 Ekli Block: $iif(!$lines(akick.type),0,$lines(akick.type)) | did -ra akick_proxy 33 Ekli Kanal: $iif(!$lines(proxykanal.type),0,$lines(proxykanal.type)) | did -ra akick_proxy 34 Ekli M. Kanal: $iif(!$lines(muafproxykanal.type),0,$lines(muafproxykanal.type)) }

alias chanlst { list -min $1 -max $2 }
raw *:* {
  if $numeric == 322 {
    if !$read(proxykanal.type,w,$2) { write proxykanal.type $2 }
  }
}
alias -l akick_proxy { if $dialog(akick_proxy) { dialog -x akick_proxy | dialog -m akick_proxy akick_proxy } | else { dialog -m akick_proxy akick_proxy } }
alias saldiriban {
  if !%islemzamani || !%islemturu || !%islemdurumu { set %islemdurumu deaktif | echo -a Geçersiz veritabanı! | gnclgk | timerkdfk off | halt } 
  if !$server { set %islemdurumu deaktif | echo -a Geçersiz bağlantı! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt } 
  if !$lines(akick.type) || !$lines(proxykanal.type) { set %islemdurumu deaktif | echo -a Geçersiz kaynak dosyası! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt } 
  var %mssban 1
  var %mssban2 1
  while %mssban <= $lines(proxykanal.type) {
    if ($read(proxykanal.type,%mssban)) { 
      var %mssban2 1
      while %mssban2 <= $lines(akick.type) {
        if ($read(akick.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) { 
          cs akick del $read(proxykanal.type,%mssban)  $read(akick.type,%mssban2) 
        }
        inc %mssban2
      }
    }
    inc %mssban
  }

}
on *:connect: { set %islemdurumu deaktif }
on *:dialog:akick_proxy:*:*:{
  if ($devent == init) {
    if !%islemdurumu { set %islemdurumu deaktif }
    if !%islemzamani { set %islemzamani 10 }
    if !%islemturu { set %islemturu dk }
    if ($isfile(akick.type) == $false) { write -c akick.type } | else { loadbuf -o $dname 5 akick.type }
    if ($isfile(muafproxykanal.type) == $false) { write -c muafproxykanal.type } | else { loadbuf -o $dname 21 muafproxykanal.type }
    if ($isfile(proxykanal.type) == $false) { write -c proxykanal.type } | else { loadbuf -o $dname 27 proxykanal.type }
    $iif(%islemturu == sn,did -c akick_proxy 8,$iif(%islemturu == dk,did -c akick_proxy 9,$iif(%islemturu == ss,did -c akick_proxy 10)))
    did -a akick_proxy 28 20 | did -a akick_proxy 30 100 | did -a akick_proxy 7 %islemzamani 
    gnclgk
  }
  if ($devent == sclick) {
    if ($did == 21) {
      if $did(21).seltext { did -r akick_proxy 23 | did -a akick_proxy 23 $did(21).seltext | halt }
    }
    if ($did == 5) {
      if $did(5).seltext { did -r akick_proxy 4 | did -a akick_proxy 4 $did(5).seltext | halt }
    }
    if ($did == 27) {
      if $did(27).seltext { did -r akick_proxy 35 | did -a akick_proxy 35 $did(27).seltext | halt }
    }
    if ($did == 2) {
      if !$did(4) { noop $input(Lütfen eklemek istediğiniz Mode'yi yazınız!,houdbk60,Hata!) | halt }
      if $read(akick.type,w,$did(4)) { noop $input(Bu Mode zaten ekli.,houdbk60,Hata!) | halt }
      write akick.type $did(4) | gnclfk | gnclgk
    }
    if ($did == 22) {
      if !$did(23) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
      if $read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak ekli.,houdbk60,Hata!) | halt }
      write muafproxykanal.type $did(23) | gnclfk | gnclgk
    }
    if ($did == 36) {
      if !$did(35) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
      if $read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli.,houdbk60,Hata!) | halt }
      write proxykanal.type $did(35) | gnclfk | gnclgk | did -r akick_proxy 35
    }
    if ($did == 32) {
      if !$did(28) { noop $input(Kanalları güncellemek için lütfen Min. user sayısını giriniz!,houdbk60,Hata!) | halt }
      if !$did(30) { noop $input(Kanalları güncellemek için lütfen Max. user sayısını giriniz!,houdbk60,Hata!) | halt }
      remove proxykanal.type
      chanlst $did(28) $did(30)
      did -r akick_proxy 27 | timergnc 1 2 loadbuf -o akick_proxy 27 proxykanal.type
    }
    if ($did == 25) { chanlst 50 150 }
    if ($did == 24) {
      if !$read(akick.type) { noop $input(Akick göndermek için mode girmelisiniz!,houdbk60,Hata!) | halt }
      if !$read(proxykanal.type) { noop $input(Akick göndermek için kanal kayıt etmeniz gerekli!,houdbk60,Hata!) | halt }
      if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -aCd @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 1 900 500 }
      var %mssban 1
      var %mssban2 1
      while %mssban <= $lines(proxykanal.type) {
        if ($read(proxykanal.type,%mssban)) { 
          var %mssban2 1
          while %mssban2 <= $lines(akick.type) {
            if ($read(akick.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) { 
              aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $read(proxykanal.type,%mssban) >> +b ~q: $+ $read(akick.type,%mssban2)
              cs akick $read(proxykanal.type,%mssban) del $read(akick.type,%mssban2) Proxy IP, Saldırı, Lamer!

            }
            inc %mssban2
          }
        }
        inc %mssban
      }
    }
    if ($did == 8) {
      set %islemturu sn
      gnclgk
    }
    if ($did == 9) {
      set %islemturu dk
      gnclgk
    }
    if ($did == 10) {
      set %islemturu ss
      gnclgk
    }
    if ($did == 3) {
      if !$did(4) { noop $input(Lütfen silmek istediğiniz Mode'i seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(akick.type,w,$did(4)) { noop $input(Bu Mode zaten değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(4)) akick.type | gnclfk | gnclgk | did -r akick_proxy 4
    }
    if ($did == 37) {
      if !$did(35) { noop $input(Lütfen silmek istediğiniz kanal'ı seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(35)) proxykanal.type | gnclfk | gnclgk | did -r akick_proxy 35
    }
    if ($did == 19) {
      if !$did(23) { noop $input(Lütfen silmek istediğiniz kanal'ı yazınız seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(23)) muafproxykanal.type | gnclfk | gnclgk | did -r akick_proxy 23
    }
    if ($did == 13) {
      if !$lines(akick.type) { noop $input(Lütfen önce Mode ekleyiniz!,houdbk60,Hata!) | halt }
      if !$lines(proxykanal.type) { noop $input(Lütfen önce kanal ekleyiniz!,houdbk60,Hata!) | halt }
      if $timer(kdfk) { noop $input(Zaten aktif!,houdbk60,Hata!) | halt }
      if !%islemzamani { set %islemzamani 10 }
      if !%islemturu { set %islemturu dk }
      if !%islemdurumu { set %islemdurumu aktif }
      echo -a block'lar %islemzamani $iif(%islemturu == sn,saniye'de bir,$iif(%islemturu == dk,dakika'da bir,$iif(%islemturu == ss,saat'te bir))) atılacaktır.
      set %islemdurumu aktif
      timerkdfk 0 $iif(%islemturu == sn,%islemzamani,$iif(%islemturu == dk,$calc(60 * %islemzamani),$iif(%islemturu == ss,$calc(60 * 60 * %islemzamani)))) .saldiriban
      gnclgk
    }
    if ($did == 14) {
      if !%islemzamani { set %islemzamani 10 }
      if !%islemturu { set %islemturu dk }
      if !%islemdurumu { set %islemdurumu deaktif }
      echo -a blocks'lar iptal edildi.
      set %islemdurumu deaktif
      gnclgk
      timerkdfk off
    }
    if ($did == 11) {
      if !$did(7) { noop $input(Lütfen bir süre giriniz!,houdbk60,Hata!) | halt }
      if $regex($did(7),\D) { noop $input(Lütfen geçerli bir süre giriniz!,houdbk60,Hata!) | halt }
      if $did(7) { set %islemzamani $did(7) }
      gnclgk
    }
  }
}

Toplu akick ekleme içinde eklenecek yere IP'yi *!*@104.129.* bu şekilde eklersiniz.
Keyifli İF'ler

cinaryigit · 02 Ocak 2021, 23:29

cinaryigit Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] selam. İstersen bu diyaloglu kodu da Kullananbilirsin.
Kimde görmüştüm hatırlamıyorum ama tblock için hazırlanmıştı ben proxy ipleri banlama olarak editlemiştim.
Kodu yazan BF olabilir. Emeğe saygı.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

dialog proxy_locksystem {
  title "Block Dialog"
  size -1 -1 257 319
  option dbu
  text "Sabit Blocklar", 1, 90 3 70 8, center
  button "Ekle", 2, 85 60 37 11
  button "Sil", 19, 135 123 33 10
  edit "", 4, 10 13 233 10
  text "İşlem Süresi", 6, 160 198 70 8, center
  edit "", 7, 171 208 50 10
  radio "Saniye", 8, 149 220 29 10
  radio "Dakika", 9, 182 220 30 10
  radio "Saat", 10, 214 220 29 10
  button "Süreyi Kaydet", 11, 179 231 37 12
  button "Kapat", 12, 105 305 37 12, ok
  button "Sistem Aç", 13, 62 292 37 12
  button "Sistem Kapat", 14, 108 291 37 12
  text " Gücelleniyor..", 15, 90 231 76 8
  text " Güncelleniyor..", 16, 90 241 61 8
  text " Güncelleniyor..", 17, 90 250 63 8
  text " Güncelleniyor..", 18, 90 259 79 8
  button "Sil", 3, 135 60 37 11
  text "Muaf Kanallar", 20, 91 73 70 8, center
  button "Ekle", 22, 85 123 33 10
  edit "", 23, 10 83 233 10
  button "1 Kere Blockla", 24, 153 290 37 12
  text "Kanallar", 26, 91 136 70 8, center
  list 27, 9 156 232 29, size
  text " Kanal Ayarlari", 25, 14 199 58 8
  edit "", 28, 24 210 50 10
  text "Min.", 29, 5 211 18 8
  edit "", 30, 24 221 50 10
  text "Max.", 31, 5 222 17 8
  button "Kanalları Gün.", 32, 27 234 37 12
  text " Güncelleniyor..", 33, 90 268 79 8
  text " Güncelleniyor..", 34, 90 277 79 8
  list 5, 10 24 233 36, size
  list 21, 10 94 233 29, size
  edit "", 35, 9 145 233 10
  button "Ekle", 36, 85 186 33 10
  button "Sil", 37, 135 185 33 10
}

alias -l gnclfk { did -r proxy_locksystem 5 | loadbuf -o proxy_locksystem 5 proxyip.type | did -r proxy_locksystem 21 | loadbuf -o proxy_locksystem 21 muafproxykanal.type | did -r proxy_locksystem 27 | loadbuf -o proxy_locksystem 27 proxykanal.type }
alias -l gnclgk { did -ra proxy_locksystem 15 Sistem Durumu: %islemdurumu | did -ra proxy_locksystem 16 Sistem Süresi: %islemzamani | did -ra proxy_locksystem 17 Süre: %islemturu | did -ra proxy_locksystem 18 Ekli Block: $iif(!$lines(proxyip.type),0,$lines(proxyip.type)) | did -ra proxy_locksystem 33 Ekli Kanal: $iif(!$lines(proxykanal.type),0,$lines(proxykanal.type)) | did -ra proxy_locksystem 34 Ekli M. Kanal: $iif(!$lines(muafproxykanal.type),0,$lines(muafproxykanal.type)) }

alias chanlst { list -min $1 -max $2 }
raw *:* {
  if $numeric == 322 {
    if !$read(proxykanal.type,w,$2) { write proxykanal.type $2 }
  }
}
alias -l proxy_locksystem { if $dialog(proxy_locksystem) { dialog -x proxy_locksystem | dialog -m proxy_locksystem proxy_locksystem } | else { dialog -m proxy_locksystem proxy_locksystem } }
alias saldiriban {
  if !%islemzamani || !%islemturu || !%islemdurumu { set %islemdurumu deaktif | echo -a Geçersiz veritabanı! | gnclgk | timerkdfk off | halt } 
  if !$server { set %islemdurumu deaktif | echo -a Geçersiz bağlantı! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt } 
  if !$lines(proxyip.type) || !$lines(proxykanal.type) { set %islemdurumu deaktif | echo -a Geçersiz kaynak dosyası! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt } 
  var %mssban 1
  var %mssban2 1
  while %mssban <= $lines(proxykanal.type) {
    if ($read(proxykanal.type,%mssban)) { 
      var %mssban2 1
      while %mssban2 <= $lines(proxyip.type) {
        if ($read(proxyip.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) { 
          mode $read(proxykanal.type,%mssban) +b $read(proxyip.type,%mssban2) 
        }
        inc %mssban2
      }
    }
    inc %mssban
  }

}
on *:connect: { set %islemdurumu deaktif }
on *:dialog:proxy_locksystem:*:*:{
  if ($devent == init) {
    if !%islemdurumu { set %islemdurumu deaktif }
    if !%islemzamani { set %islemzamani 10 }
    if !%islemturu { set %islemturu dk }
    if ($isfile(proxyip.type) == $false) { write -c proxyip.type } | else { loadbuf -o $dname 5 proxyip.type }
    if ($isfile(muafproxykanal.type) == $false) { write -c muafproxykanal.type } | else { loadbuf -o $dname 21 muafproxykanal.type }
    if ($isfile(proxykanal.type) == $false) { write -c proxykanal.type } | else { loadbuf -o $dname 27 proxykanal.type }
    $iif(%islemturu == sn,did -c proxy_locksystem 8,$iif(%islemturu == dk,did -c proxy_locksystem 9,$iif(%islemturu == ss,did -c proxy_locksystem 10)))
    did -a proxy_locksystem 28 20 | did -a proxy_locksystem 30 100 | did -a proxy_locksystem 7 %islemzamani 
    gnclgk
  }
  if ($devent == sclick) {
    if ($did == 21) {
      if $did(21).seltext { did -r proxy_locksystem 23 | did -a proxy_locksystem 23 $did(21).seltext | halt }
    }
    if ($did == 5) {
      if $did(5).seltext { did -r proxy_locksystem 4 | did -a proxy_locksystem 4 $did(5).seltext | halt }
    }
    if ($did == 27) {
      if $did(27).seltext { did -r proxy_locksystem 35 | did -a proxy_locksystem 35 $did(27).seltext | halt }
    }
    if ($did == 2) {
      if !$did(4) { noop $input(Lütfen eklemek istediğiniz Mode'yi yazınız!,houdbk60,Hata!) | halt }
      if $read(proxyip.type,w,$did(4)) { noop $input(Bu Mode zaten ekli.,houdbk60,Hata!) | halt }
      write proxyip.type $did(4) | gnclfk | gnclgk
    }
    if ($did == 22) {
      if !$did(23) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
      if $read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak ekli.,houdbk60,Hata!) | halt }
      write muafproxykanal.type $did(23) | gnclfk | gnclgk
    }
    if ($did == 36) {
      if !$did(35) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
      if $read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli.,houdbk60,Hata!) | halt }
      write proxykanal.type $did(35) | gnclfk | gnclgk | did -r proxy_locksystem 35
    }
    if ($did == 32) {
      if !$did(28) { noop $input(Kanalları güncellemek için lütfen Min. user sayısını giriniz!,houdbk60,Hata!) | halt }
      if !$did(30) { noop $input(Kanalları güncellemek için lütfen Max. user sayısını giriniz!,houdbk60,Hata!) | halt }
      remove proxykanal.type
      chanlst $did(28) $did(30)
      did -r proxy_locksystem 27 | timergnc 1 2 loadbuf -o proxy_locksystem 27 proxykanal.type
    }
    if ($did == 25) { chanlst 50 150 }
    if ($did == 24) {
      if !$read(proxyip.type) { noop $input(Balamak için mode girmelisiniz!,houdbk60,Hata!) | halt }
      if !$read(proxykanal.type) { noop $input(Banlamak için kanal kayıt etmeniz gerekli!,houdbk60,Hata!) | halt }
      if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -aCd @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 1 900 500 }
      var %mssban 1
      var %mssban2 1
      while %mssban <= $lines(proxykanal.type) {
        if ($read(proxykanal.type,%mssban)) { 
          var %mssban2 1
          while %mssban2 <= $lines(proxyip.type) {
            if ($read(proxyip.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) { 
              aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $read(proxykanal.type,%mssban) >> +b ~q: $+ $read(proxyip.type,%mssban2)
              mode $read(proxykanal.type,%mssban) +b $read(proxyip.type,%mssban2) 
            }
            inc %mssban2
          }
        }
        inc %mssban
      }
    }
    if ($did == 8) {
      set %islemturu sn
      gnclgk
    }
    if ($did == 9) {
      set %islemturu dk
      gnclgk
    }
    if ($did == 10) {
      set %islemturu ss
      gnclgk
    }
    if ($did == 3) {
      if !$did(4) { noop $input(Lütfen silmek istediğiniz Mode'i seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(proxyip.type,w,$did(4)) { noop $input(Bu Mode zaten değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(4)) proxyip.type | gnclfk | gnclgk | did -r proxy_locksystem 4
    }
    if ($did == 37) {
      if !$did(35) { noop $input(Lütfen silmek istediğiniz kanal'ı seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(35)) proxykanal.type | gnclfk | gnclgk | did -r proxy_locksystem 35
    }
    if ($did == 19) {
      if !$did(23) { noop $input(Lütfen silmek istediğiniz kanal'ı yazınız seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(23)) muafproxykanal.type | gnclfk | gnclgk | did -r proxy_locksystem 23
    }
    if ($did == 13) {
      if !$lines(proxyip.type) { noop $input(Lütfen önce Mode ekleyiniz!,houdbk60,Hata!) | halt }
      if !$lines(proxykanal.type) { noop $input(Lütfen önce kanal ekleyiniz!,houdbk60,Hata!) | halt }
      if $timer(kdfk) { noop $input(Zaten aktif!,houdbk60,Hata!) | halt }
      if !%islemzamani { set %islemzamani 10 }
      if !%islemturu { set %islemturu dk }
      if !%islemdurumu { set %islemdurumu aktif }
      echo -a block'lar %islemzamani $iif(%islemturu == sn,saniye'de bir,$iif(%islemturu == dk,dakika'da bir,$iif(%islemturu == ss,saat'te bir))) atılacaktır.
      set %islemdurumu aktif
      timerkdfk 0 $iif(%islemturu == sn,%islemzamani,$iif(%islemturu == dk,$calc(60 * %islemzamani),$iif(%islemturu == ss,$calc(60 * 60 * %islemzamani)))) .saldiriban
      gnclgk
    }
    if ($did == 14) {
      if !%islemzamani { set %islemzamani 10 }
      if !%islemturu { set %islemturu dk }
      if !%islemdurumu { set %islemdurumu deaktif }
      echo -a blocks'lar iptal edildi.
      set %islemdurumu deaktif
      gnclgk
      timerkdfk off
    }
    if ($did == 11) {
      if !$did(7) { noop $input(Lütfen bir süre giriniz!,houdbk60,Hata!) | halt }
      if $regex($did(7),\D) { noop $input(Lütfen geçerli bir süre giriniz!,houdbk60,Hata!) | halt }
      if $did(7) { set %islemzamani $did(7) }
      gnclgk
    }
  }
}

Sabit Block kısmına 104.129.* bu şekilde eklemen yeterli.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

dialog akick_proxy {
  title "Block Dialog"
  size -1 -1 257 319
  option dbu
  text "Sabit Blocklar", 1, 90 3 70 8, center
  button "Ekle", 2, 85 60 37 11
  button "Sil", 19, 135 123 33 10
  edit "", 4, 10 13 233 10
  text "İşlem Süresi", 6, 160 198 70 8, center
  edit "", 7, 171 208 50 10
  radio "Saniye", 8, 149 220 29 10
  radio "Dakika", 9, 182 220 30 10
  radio "Saat", 10, 214 220 29 10
  button "Süreyi Kaydet", 11, 179 231 37 12
  button "Kapat", 12, 105 305 37 12, ok
  button "Sistem Aç", 13, 62 292 37 12
  button "Sistem Kapat", 14, 108 291 37 12
  text " Gücelleniyor..", 15, 90 231 76 8
  text " Güncelleniyor..", 16, 90 241 61 8
  text " Güncelleniyor..", 17, 90 250 63 8
  text " Güncelleniyor..", 18, 90 259 79 8
  button "Sil", 3, 135 60 37 11
  text "Muaf Kanallar", 20, 91 73 70 8, center
  button "Ekle", 22, 85 123 33 10
  edit "", 23, 10 83 233 10
  button "1 Kere Blockla", 24, 153 290 37 12
  text "Kanallar", 26, 91 136 70 8, center
  list 27, 9 156 232 29, size
  text " Kanal Ayarlari", 25, 14 199 58 8
  edit "", 28, 24 210 50 10
  text "Min.", 29, 5 211 18 8
  edit "", 30, 24 221 50 10
  text "Max.", 31, 5 222 17 8
  button "Kanalları Gün.", 32, 27 234 37 12
  text " Güncelleniyor..", 33, 90 268 79 8
  text " Güncelleniyor..", 34, 90 277 79 8
  list 5, 10 24 233 36, size
  list 21, 10 94 233 29, size
  edit "", 35, 9 145 233 10
  button "Ekle", 36, 85 186 33 10
  button "Sil", 37, 135 185 33 10
}

alias -l gnclfk { did -r akick_proxy 5 | loadbuf -o akick_proxy 5 akick.type | did -r akick_proxy 21 | loadbuf -o akick_proxy 21 muafproxykanal.type | did -r akick_proxy 27 | loadbuf -o akick_proxy 27 proxykanal.type }
alias -l gnclgk { did -ra akick_proxy 15 Sistem Durumu: %islemdurumu | did -ra akick_proxy 16 Sistem Süresi: %islemzamani | did -ra akick_proxy 17 Süre: %islemturu | did -ra akick_proxy 18 Ekli Block: $iif(!$lines(akick.type),0,$lines(akick.type)) | did -ra akick_proxy 33 Ekli Kanal: $iif(!$lines(proxykanal.type),0,$lines(proxykanal.type)) | did -ra akick_proxy 34 Ekli M. Kanal: $iif(!$lines(muafproxykanal.type),0,$lines(muafproxykanal.type)) }

alias chanlst { list -min $1 -max $2 }
raw *:* {
  if $numeric == 322 {
    if !$read(proxykanal.type,w,$2) { write proxykanal.type $2 }
  }
}
alias -l akick_proxy { if $dialog(akick_proxy) { dialog -x akick_proxy | dialog -m akick_proxy akick_proxy } | else { dialog -m akick_proxy akick_proxy } }
alias saldiriban {
  if !%islemzamani || !%islemturu || !%islemdurumu { set %islemdurumu deaktif | echo -a Geçersiz veritabanı! | gnclgk | timerkdfk off | halt } 
  if !$server { set %islemdurumu deaktif | echo -a Geçersiz bağlantı! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt } 
  if !$lines(akick.type) || !$lines(proxykanal.type) { set %islemdurumu deaktif | echo -a Geçersiz kaynak dosyası! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt } 
  var %mssban 1
  var %mssban2 1
  while %mssban <= $lines(proxykanal.type) {
    if ($read(proxykanal.type,%mssban)) { 
      var %mssban2 1
      while %mssban2 <= $lines(akick.type) {
        if ($read(akick.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) { 
          cs akick add $read(proxykanal.type,%mssban)  $read(akick.type,%mssban2) 
        }
        inc %mssban2
      }
    }
    inc %mssban
  }

}
on *:connect: { set %islemdurumu deaktif }
on *:dialog:akick_proxy:*:*:{
  if ($devent == init) {
    if !%islemdurumu { set %islemdurumu deaktif }
    if !%islemzamani { set %islemzamani 10 }
    if !%islemturu { set %islemturu dk }
    if ($isfile(akick.type) == $false) { write -c akick.type } | else { loadbuf -o $dname 5 akick.type }
    if ($isfile(muafproxykanal.type) == $false) { write -c muafproxykanal.type } | else { loadbuf -o $dname 21 muafproxykanal.type }
    if ($isfile(proxykanal.type) == $false) { write -c proxykanal.type } | else { loadbuf -o $dname 27 proxykanal.type }
    $iif(%islemturu == sn,did -c akick_proxy 8,$iif(%islemturu == dk,did -c akick_proxy 9,$iif(%islemturu == ss,did -c akick_proxy 10)))
    did -a akick_proxy 28 20 | did -a akick_proxy 30 100 | did -a akick_proxy 7 %islemzamani 
    gnclgk
  }
  if ($devent == sclick) {
    if ($did == 21) {
      if $did(21).seltext { did -r akick_proxy 23 | did -a akick_proxy 23 $did(21).seltext | halt }
    }
    if ($did == 5) {
      if $did(5).seltext { did -r akick_proxy 4 | did -a akick_proxy 4 $did(5).seltext | halt }
    }
    if ($did == 27) {
      if $did(27).seltext { did -r akick_proxy 35 | did -a akick_proxy 35 $did(27).seltext | halt }
    }
    if ($did == 2) {
      if !$did(4) { noop $input(Lütfen eklemek istediğiniz Mode'yi yazınız!,houdbk60,Hata!) | halt }
      if $read(akick.type,w,$did(4)) { noop $input(Bu Mode zaten ekli.,houdbk60,Hata!) | halt }
      write akick.type $did(4) | gnclfk | gnclgk
    }
    if ($did == 22) {
      if !$did(23) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
      if $read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak ekli.,houdbk60,Hata!) | halt }
      write muafproxykanal.type $did(23) | gnclfk | gnclgk
    }
    if ($did == 36) {
      if !$did(35) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
      if $read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli.,houdbk60,Hata!) | halt }
      write proxykanal.type $did(35) | gnclfk | gnclgk | did -r akick_proxy 35
    }
    if ($did == 32) {
      if !$did(28) { noop $input(Kanalları güncellemek için lütfen Min. user sayısını giriniz!,houdbk60,Hata!) | halt }
      if !$did(30) { noop $input(Kanalları güncellemek için lütfen Max. user sayısını giriniz!,houdbk60,Hata!) | halt }
      remove proxykanal.type
      chanlst $did(28) $did(30)
      did -r akick_proxy 27 | timergnc 1 2 loadbuf -o akick_proxy 27 proxykanal.type
    }
    if ($did == 25) { chanlst 50 150 }
    if ($did == 24) {
      if !$read(akick.type) { noop $input(Akick göndermek için mode girmelisiniz!,houdbk60,Hata!) | halt }
      if !$read(proxykanal.type) { noop $input(Akick göndermek için kanal kayıt etmeniz gerekli!,houdbk60,Hata!) | halt }
      if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -aCd @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 1 900 500 }
      var %mssban 1
      var %mssban2 1
      while %mssban <= $lines(proxykanal.type) {
        if ($read(proxykanal.type,%mssban)) { 
          var %mssban2 1
          while %mssban2 <= $lines(akick.type) {
            if ($read(akick.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) { 
              aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $read(proxykanal.type,%mssban) >> +b ~q: $+ $read(akick.type,%mssban2)
              cs akick $read(proxykanal.type,%mssban) add $read(akick.type,%mssban2) Proxy IP, Saldırı, Lamer!

            }
            inc %mssban2
          }
        }
        inc %mssban
      }
    }
    if ($did == 8) {
      set %islemturu sn
      gnclgk
    }
    if ($did == 9) {
      set %islemturu dk
      gnclgk
    }
    if ($did == 10) {
      set %islemturu ss
      gnclgk
    }
    if ($did == 3) {
      if !$did(4) { noop $input(Lütfen silmek istediğiniz Mode'i seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(akick.type,w,$did(4)) { noop $input(Bu Mode zaten değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(4)) akick.type | gnclfk | gnclgk | did -r akick_proxy 4
    }
    if ($did == 37) {
      if !$did(35) { noop $input(Lütfen silmek istediğiniz kanal'ı seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(35)) proxykanal.type | gnclfk | gnclgk | did -r akick_proxy 35
    }
    if ($did == 19) {
      if !$did(23) { noop $input(Lütfen silmek istediğiniz kanal'ı yazınız seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(23)) muafproxykanal.type | gnclfk | gnclgk | did -r akick_proxy 23
    }
    if ($did == 13) {
      if !$lines(akick.type) { noop $input(Lütfen önce Mode ekleyiniz!,houdbk60,Hata!) | halt }
      if !$lines(proxykanal.type) { noop $input(Lütfen önce kanal ekleyiniz!,houdbk60,Hata!) | halt }
      if $timer(kdfk) { noop $input(Zaten aktif!,houdbk60,Hata!) | halt }
      if !%islemzamani { set %islemzamani 10 }
      if !%islemturu { set %islemturu dk }
      if !%islemdurumu { set %islemdurumu aktif }
      echo -a block'lar %islemzamani $iif(%islemturu == sn,saniye'de bir,$iif(%islemturu == dk,dakika'da bir,$iif(%islemturu == ss,saat'te bir))) atılacaktır.
      set %islemdurumu aktif
      timerkdfk 0 $iif(%islemturu == sn,%islemzamani,$iif(%islemturu == dk,$calc(60 * %islemzamani),$iif(%islemturu == ss,$calc(60 * 60 * %islemzamani)))) .saldiriban
      gnclgk
    }
    if ($did == 14) {
      if !%islemzamani { set %islemzamani 10 }
      if !%islemturu { set %islemturu dk }
      if !%islemdurumu { set %islemdurumu deaktif }
      echo -a blocks'lar iptal edildi.
      set %islemdurumu deaktif
      gnclgk
      timerkdfk off
    }
    if ($did == 11) {
      if !$did(7) { noop $input(Lütfen bir süre giriniz!,houdbk60,Hata!) | halt }
      if $regex($did(7),\D) { noop $input(Lütfen geçerli bir süre giriniz!,houdbk60,Hata!) | halt }
      if $did(7) { set %islemzamani $did(7) }
      gnclgk
    }
  }
}

Toplu akick ekleme içinde eklenecek yere IP'yi *!*@104.129.* bu şekilde eklersiniz.
Keyifli İF'ler

Not: Edit.
Bunu Kullanın lütfen

High · 03 Ocak 2021, 12:00

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], bi inceleyim bakalım umarım beklentimi karşılar teşekkürler.

High · 29 Ocak 2021, 19:07

Sorun çözüldü. Teşekkürler. KONU Kilit.

cinaryigit · 29 Ocak 2021, 22:52

[QUOTE=Subzero;1042431361]

cinaryigit Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Not: Edit.
Bunun diyalog panelini açamadım yardımcı olurmusun.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

dialog akick_proxy {
  title "Block Dialog"
  size -1 -1 257 319
  option dbu
  text "Sabit Blocklar", 1, 90 3 70 8, center
  button "Ekle", 2, 85 60 37 11
  button "Sil", 19, 135 123 33 10
  edit "", 4, 10 13 233 10
  text "İşlem Süresi", 6, 160 198 70 8, center
  edit "", 7, 171 208 50 10
  radio "Saniye", 8, 149 220 29 10
  radio "Dakika", 9, 182 220 30 10
  radio "Saat", 10, 214 220 29 10
  button "Süreyi Kaydet", 11, 179 231 37 12
  button "Kapat", 12, 105 305 37 12, ok
  button "Sistem Aç", 13, 62 292 37 12
  button "Sistem Kapat", 14, 108 291 37 12
  text " Gücelleniyor..", 15, 90 231 76 8
  text " Güncelleniyor..", 16, 90 241 61 8
  text " Güncelleniyor..", 17, 90 250 63 8
  text " Güncelleniyor..", 18, 90 259 79 8
  button "Sil", 3, 135 60 37 11
  text "Muaf Kanallar", 20, 91 73 70 8, center
  button "Ekle", 22, 85 123 33 10
  edit "", 23, 10 83 233 10
  button "1 Kere Blockla", 24, 153 290 37 12
  text "Kanallar", 26, 91 136 70 8, center
  list 27, 9 156 232 29, size
  text " Kanal Ayarlari", 25, 14 199 58 8
  edit "", 28, 24 210 50 10
  text "Min.", 29, 5 211 18 8
  edit "", 30, 24 221 50 10
  text "Max.", 31, 5 222 17 8
  button "Kanalları Gün.", 32, 27 234 37 12
  text " Güncelleniyor..", 33, 90 268 79 8
  text " Güncelleniyor..", 34, 90 277 79 8
  list 5, 10 24 233 36, size
  list 21, 10 94 233 29, size
  edit "", 35, 9 145 233 10
  button "Ekle", 36, 85 186 33 10
  button "Sil", 37, 135 185 33 10
}

alias -l gnclfk { did -r akick_proxy 5 | loadbuf -o akick_proxy 5 akick.type | did -r akick_proxy 21 | loadbuf -o akick_proxy 21 muafproxykanal.type | did -r akick_proxy 27 | loadbuf -o akick_proxy 27 proxykanal.type }
alias -l gnclgk { did -ra akick_proxy 15 Sistem Durumu: %islemdurumu | did -ra akick_proxy 16 Sistem Süresi: %islemzamani | did -ra akick_proxy 17 Süre: %islemturu | did -ra akick_proxy 18 Ekli Block: $iif(!$lines(akick.type),0,$lines(akick.type)) | did -ra akick_proxy 33 Ekli Kanal: $iif(!$lines(proxykanal.type),0,$lines(proxykanal.type)) | did -ra akick_proxy 34 Ekli M. Kanal: $iif(!$lines(muafproxykanal.type),0,$lines(muafproxykanal.type)) }

alias chanlst { list -min $1 -max $2 }
raw *:* {
  if $numeric == 322 {
    if !$read(proxykanal.type,w,$2) { write proxykanal.type $2 }
  }
}
alias -l akick_proxy { if $dialog(akick_proxy) { dialog -x akick_proxy | dialog -m akick_proxy akick_proxy } | else { dialog -m akick_proxy akick_proxy } }
alias saldiriban {
  if !%islemzamani || !%islemturu || !%islemdurumu { set %islemdurumu deaktif | echo -a Geçersiz veritabanı! | gnclgk | timerkdfk off | halt } 
  if !$server { set %islemdurumu deaktif | echo -a Geçersiz bağlantı! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt } 
  if !$lines(akick.type) || !$lines(proxykanal.type) { set %islemdurumu deaktif | echo -a Geçersiz kaynak dosyası! Block sistemi durduruldu. | gnclgk | timerkdfk off | halt } 
  var %mssban 1
  var %mssban2 1
  while %mssban <= $lines(proxykanal.type) {
    if ($read(proxykanal.type,%mssban)) { 
      var %mssban2 1
      while %mssban2 <= $lines(akick.type) {
        if ($read(akick.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) { 
          cs akick add $read(proxykanal.type,%mssban)  $read(akick.type,%mssban2) 
        }
        inc %mssban2
      }
    }
    inc %mssban
  }

}
on *:connect: { set %islemdurumu deaktif }
on *:dialog:akick_proxy:*:*:{
  if ($devent == init) {
    if !%islemdurumu { set %islemdurumu deaktif }
    if !%islemzamani { set %islemzamani 10 }
    if !%islemturu { set %islemturu dk }
    if ($isfile(akick.type) == $false) { write -c akick.type } | else { loadbuf -o $dname 5 akick.type }
    if ($isfile(muafproxykanal.type) == $false) { write -c muafproxykanal.type } | else { loadbuf -o $dname 21 muafproxykanal.type }
    if ($isfile(proxykanal.type) == $false) { write -c proxykanal.type } | else { loadbuf -o $dname 27 proxykanal.type }
    $iif(%islemturu == sn,did -c akick_proxy 8,$iif(%islemturu == dk,did -c akick_proxy 9,$iif(%islemturu == ss,did -c akick_proxy 10)))
    did -a akick_proxy 28 20 | did -a akick_proxy 30 100 | did -a akick_proxy 7 %islemzamani 
    gnclgk
  }
  if ($devent == sclick) {
    if ($did == 21) {
      if $did(21).seltext { did -r akick_proxy 23 | did -a akick_proxy 23 $did(21).seltext | halt }
    }
    if ($did == 5) {
      if $did(5).seltext { did -r akick_proxy 4 | did -a akick_proxy 4 $did(5).seltext | halt }
    }
    if ($did == 27) {
      if $did(27).seltext { did -r akick_proxy 35 | did -a akick_proxy 35 $did(27).seltext | halt }
    }
    if ($did == 2) {
      if !$did(4) { noop $input(Lütfen eklemek istediğiniz Mode'yi yazınız!,houdbk60,Hata!) | halt }
      if $read(akick.type,w,$did(4)) { noop $input(Bu Mode zaten ekli.,houdbk60,Hata!) | halt }
      write akick.type $did(4) | gnclfk | gnclgk
    }
    if ($did == 22) {
      if !$did(23) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
      if $read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak ekli.,houdbk60,Hata!) | halt }
      write muafproxykanal.type $did(23) | gnclfk | gnclgk
    }
    if ($did == 36) {
      if !$did(35) { noop $input(Lütfen eklemek istediğiniz kanal'ı yazınız!,houdbk60,Hata!) | halt }
      if $read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli.,houdbk60,Hata!) | halt }
      write proxykanal.type $did(35) | gnclfk | gnclgk | did -r akick_proxy 35
    }
    if ($did == 32) {
      if !$did(28) { noop $input(Kanalları güncellemek için lütfen Min. user sayısını giriniz!,houdbk60,Hata!) | halt }
      if !$did(30) { noop $input(Kanalları güncellemek için lütfen Max. user sayısını giriniz!,houdbk60,Hata!) | halt }
      remove proxykanal.type
      chanlst $did(28) $did(30)
      did -r akick_proxy 27 | timergnc 1 2 loadbuf -o akick_proxy 27 proxykanal.type
    }
    if ($did == 25) { chanlst 50 150 }
    if ($did == 24) {
      if !$read(akick.type) { noop $input(Akick göndermek için mode girmelisiniz!,houdbk60,Hata!) | halt }
      if !$read(proxykanal.type) { noop $input(Akick göndermek için kanal kayıt etmeniz gerekli!,houdbk60,Hata!) | halt }
      if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -aCd @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 1 1 900 500 }
      var %mssban 1
      var %mssban2 1
      while %mssban <= $lines(proxykanal.type) {
        if ($read(proxykanal.type,%mssban)) { 
          var %mssban2 1
          while %mssban2 <= $lines(akick.type) {
            if ($read(akick.type,%mssban2) && !$read(muafproxykanal.type,w,$read(proxykanal.type,%mssban))) { 
              aline @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $read(proxykanal.type,%mssban) >> +b ~q: $+ $read(akick.type,%mssban2)
              cs akick $read(proxykanal.type,%mssban) add $read(akick.type,%mssban2) Proxy IP, Saldırı, Lamer!

            }
            inc %mssban2
          }
        }
        inc %mssban
      }
    }
    if ($did == 8) {
      set %islemturu sn
      gnclgk
    }
    if ($did == 9) {
      set %islemturu dk
      gnclgk
    }
    if ($did == 10) {
      set %islemturu ss
      gnclgk
    }
    if ($did == 3) {
      if !$did(4) { noop $input(Lütfen silmek istediğiniz Mode'i seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(akick.type,w,$did(4)) { noop $input(Bu Mode zaten değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(4)) akick.type | gnclfk | gnclgk | did -r akick_proxy 4
    }
    if ($did == 37) {
      if !$did(35) { noop $input(Lütfen silmek istediğiniz kanal'ı seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(proxykanal.type,w,$did(35)) { noop $input(Bu kanal zaten ekli değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(35)) proxykanal.type | gnclfk | gnclgk | did -r akick_proxy 35
    }
    if ($did == 19) {
      if !$did(23) { noop $input(Lütfen silmek istediğiniz kanal'ı yazınız seçiniz ya da yazınız!,houdbk60,Hata!) | halt }
      if !$read(muafproxykanal.type,w,$did(23)) { noop $input(Bu kanal zaten muaf olarak değil.,houdbk60,Hata!) | halt }
      write $+(-ds,$did(23)) muafproxykanal.type | gnclfk | gnclgk | did -r akick_proxy 23
    }
    if ($did == 13) {
      if !$lines(akick.type) { noop $input(Lütfen önce Mode ekleyiniz!,houdbk60,Hata!) | halt }
      if !$lines(proxykanal.type) { noop $input(Lütfen önce kanal ekleyiniz!,houdbk60,Hata!) | halt }
      if $timer(kdfk) { noop $input(Zaten aktif!,houdbk60,Hata!) | halt }
      if !%islemzamani { set %islemzamani 10 }
      if !%islemturu { set %islemturu dk }
      if !%islemdurumu { set %islemdurumu aktif }
      echo -a block'lar %islemzamani $iif(%islemturu == sn,saniye'de bir,$iif(%islemturu == dk,dakika'da bir,$iif(%islemturu == ss,saat'te bir))) atılacaktır.
      set %islemdurumu aktif
      timerkdfk 0 $iif(%islemturu == sn,%islemzamani,$iif(%islemturu == dk,$calc(60 * %islemzamani),$iif(%islemturu == ss,$calc(60 * 60 * %islemzamani)))) .saldiriban
      gnclgk
    }
    if ($did == 14) {
      if !%islemzamani { set %islemzamani 10 }
      if !%islemturu { set %islemturu dk }
      if !%islemdurumu { set %islemdurumu deaktif }
      echo -a blocks'lar iptal edildi.
      set %islemdurumu deaktif
      gnclgk
      timerkdfk off
    }
    if ($did == 11) {
      if !$did(7) { noop $input(Lütfen bir süre giriniz!,houdbk60,Hata!) | halt }
      if $regex($did(7),\D) { noop $input(Lütfen geçerli bir süre giriniz!,houdbk60,Hata!) | halt }
      if $did(7) { set %islemzamani $did(7) }
      gnclgk
    }
  }
}

Kod: Kodu kopyalamak için üzerine çift tıklayın!

/dialog -m akick_proxy akick_proxy

Böyle bir deneyin, bakalım açılacak mı?
Bende açılıyor bir problem görünmüyor.

High · 30 Haziran 2022, 16:26

Selamun aleykum arkadaşlar daha önce Alper hocanın yapmış olduğu Aliases vardı konu içerisin de toplu proxy eklemeye bilmek için.
Ben bu Aliasesi Toprak, hocanın kodun da kendime göre düzenleyip kullanmak istedim ama tam olarak istediğimi yapamadım.
KOD'un son hali :

Kod: Kodu kopyalamak için üzerine çift tıklayın!

menu channel,status,menubar,query {
  -
  $iif(o !isincs $usermode,$style(2)) ADMiN MOD
  .$iif(%Proxy,$style(1)) Proxy Koruma ( $+ $iif(%Proxy,On,Off) $+ ) {
    if (%Proxy) { unset %Proxy | .disable #Proxy | echo -ta 4Proxy7 Koruması4 KAPALI }
    else { set %Proxy on | .enable #Proxy | echo -ta 4Proxy2 Koruması4 AÇILDI  }
  }
}
on *:start:if $isfile(txt/Proxy.hash) { .hmake Proxy | .hload Proxy txt/Proxy.hash }

#Proxy on
on *:snotice:*Client connecting*
raw 352:*:{
  var %:r $+($left($md5($ticks),$r(5,20)),$6)
  if $hget(Proxy,$4) { gline $+(*@,$4) +5h 4Proxy\Tor2 Kullanımı Yasak. $+([,Hash,]) | echo -tsa [4 PROXY ]2 Nick:0 $6 -4 IP:0 $4  }
  else { sockopen $+(proxy,%:r) proxysorgula.net 80 | sockmark $+(proxy,%:r) $+($4,¿,$6) }
}
on *:sockopen:proxy*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $+(/?ip=,$token($sock($sockname).mark,1,191)) HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:proxy*:{  
  if ($sockerr) { .sockclose $sockname | return }
  var %:proxy | sockread -f %:proxy | tokenize 32 %:proxy
  if $regex($1-,/numaral[ıiİ] [Iİi]P proxy\'dir/i) {
    gzline $+(*@,$token($sock($sockname).mark,1,191)) +5h 4Proxy\Tor2 Kullanımı Yasak. $+([,$token($1-,2,45),])
    *msg #Xline [4 PROXY ]2 Nick:0 $token($sock($sockname).mark,2,191) -4 IP:0 $token($sock($sockname).mark,1,191) $iif($token($token($1-,2,41),2,40),-2 Hostname:4 $token($token($1-,2,41),2,40)) $iif($token($token($1-,1,41),2,40),-2 Ülke:0 $token($token($1-,1,41),2,40)) -2 Tipi:4 $token($1-,2,45)
    echo -ast [4 PROXY ]2 Nick:0 $token($sock($sockname).mark,2,191) -4 IP:0 $token($sock($sockname).mark,1,191) $iif($token($token($1-,2,41),2,40),-2 Hostname:4 $token($token($1-,2,41),2,40)) $iif($token($token($1-,1,41),2,40),-2 Ülke:0 $token($token($1-,1,41),2,40)) -2 Tipi:4 $token($1-,2,45)

    sockclose $sockname
  }
}
#Proxy end
on *:sockopen:_proxy-1*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $iif($sock($sockname).mark,$sock($sockname).mark,/)   HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:_proxy-1*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  var %:_proxy1 | sockread -f %:_proxy1 | tokenize 32 %:_proxy1
  if (*timestamp-link*.html* iswm $1-) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,4,39),3-,47)) }
  elseif $regex($1-,/href=\"\/proxylist\/country/Si) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,2-,47),1,34)) }
  elseif (*<a href="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm $1-) { _proxyal1 $sock($sockname).addr $+(/,$token($token($1-,2,34),3-,47)) }
  elseif $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { _ekle $regml(1) }
}
alias _proxyal1 { var %:rand $+($r(100,9999999),$md5($ticks),$r(1000,999999999)) | sockopen $+(_proxyal1,%:rand) $1 80 | sockmark $+(_proxyal1,%:rand) $2 }
on *:sockopen:_proxyal1*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  sockwrite -nt $sockname GET $iif($sock($sockname).mark,$sock($sockname).mark,/)   HTTP/1.1 
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */*
  sockwrite -nt $sockname Accept-Language: tr-TR
  sockwrite -nt $sockname User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729)
  sockwrite -nt $sockname Connection: Keep-Alive
  sockwrite -nt $sockname $crlf
}
on *:sockread:_proxyal1*:{ 
  if ($sockerr) { .sockclose $sockname | return }
  var %:_proxyal1 | sockread -f %:_proxyal1 | tokenize 32 %:_proxyal1
  if $regex($1-,/(\d+\.\d+\.\d+\.\d+)/Si) { _ekle $regml(1) }
}

Sitelerden oto proxy çekmeyi iptal ettim sebebi zaten kendim yeterince fazla proxy elde edebiliyor olmam ama ben bu koda eklediğim Proxyleri eklemek istiyorum. Bunun için de Alper hocanın daha önce yapmış olduğu Toplu Proxy ekleme Aliasesi elimden geldiğince düzenledim Toprak hocanın koduna göre ama şu şekilde eklemeler yaptı.
69.163.160.10

199.60.103.125

203.24.108.111

79.112.*
144.202.81.*
193.135.*
2.127.*
79.136.*
82.223.17.*
45.173.*
Benim yapmak istediğim portsuz çektiğim proxyleri toplu olarak ekleye bilmek.
Alper hocanın toplu proxy ekleme Aliasesin son hali;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias iadd {  if ($dialog(Proxy_add)) { dialog -c Proxy_add } |  dialog -ma Proxy_add Proxy_add }
dialog Proxy_add {
  title "Hash Proxy ADD"
  size -1 -1 264 163
  option pixels
  box "Ekleme yapmak için dosya seçin", 1, 11 6 240 130
  button "Proxy IP Ekle", 2, 33 34 197 80, normal
  text "Yüklenen Proxy Adet:", 3, 62 140 108 16
  text "0", 4, 171 140 50 16, center
}
on 1:dialog:Proxy_add:*:*:{
  if ($devent == init) { }
  if ($devent == sclick) {
    if ($Did == 2) {
      Var %F = $SFile($mIRCDir,Txt Dosyasını Seçiniz,Ekle), %eklenen = 0
      If (%F) { 
        Var %I = 1 
        While ($Read(%F,%I)) { 
          Var %F1 = $Read(%F,%I), %j = $regsubex(%F1,/(^\d+\.\d+\.\d+\.\d+\.).+/gi,\1)
          if !$hget(p,%j) {
            hadd -m p %j 
            hsave -o p Proxy.hash
            inc %eklenen
          }
          inc %I
        } 
      } 
      did -o Proxy_add 4 1 %eklenen
    }
  }
}

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 16:26 -->-> Daha önceki mesaj 15:50 --

Arkadaşlar sorunu çözdüm yalnız eklerken boş satır ekliyor onu çözemedim .
199.60.103.125

203.24.108.111
şeklinde ekliyor son hali:

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias iadd {  if ($dialog(Proxy_add)) { dialog -c Proxy_add } |  dialog -ma Proxy_add Proxy_add }
dialog Proxy_add {
  title "Hash Proxy ADD"
  size -1 -1 264 163
  option pixels
  box "Ekleme yapmak için dosya seçin", 1, 11 6 240 130
  button "Proxy IP Ekle", 2, 33 34 197 80, normal
  text "Yüklenen Proxy Adet:", 3, 62 140 108 16
  text "0", 4, 171 140 50 16, center
}
on 1:dialog:Proxy_add:*:*:{
  if ($devent == init) { }
  if ($devent == sclick) {
    if ($Did == 2) {
      Var %F = $SFile($mIRCDir,Txt Dosyasını Seçiniz,Ekle), %eklenen = 0
      If (%F) { 
        Var %I = 1 
        While ($Read(%F,%I)) { 
          Var %F1 = $Read(%F,%I), %j = $regsubex(%F1,/(^\d+\.\d+\.\d+\.\d+\.).+/gi,\1)
          if !$hget(p,%j) {
            hadd -m Proxy %j 
            hsave -o Proxy Proxy.hash
            inc %eklenen
          }
          inc %I
        } 
      } 
      did -o Proxy_add 4 1 %eklenen
    }
  }
}

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Toplu Akill Ekleme	alfarolex	mIRC Scripting Sorunları	8	05 Şubat 2015 23:42
Proxy Koruması Remoteye ekleme	XDie	mIRC Scripting Sorunları	1	30 Temmuz 2012 05:02
Toplu aop ekleme /silme	diyorumki	mIRC Scripting Sorunları	8	12 Nisan 2011 19:01
Proxy Listesine Ekleme yapma ?	netustad68	mIRC Scripting Hazır Kodlar	2	14 Ağustos 2010 12:05
nomercy e proxy koruması ekleme.	paLe	mIRC Scripting Sorunları	6	09 Aralık 2008 23:30

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.