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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Listeden Proxy Silme Sorunu... (https://www.ircforumlari.net/mirc-scripting-sorunlari/381660-listeden-proxy-silme-sorunu.html)

Listeden Proxy Silme Sorunu...

[20:07:20] <Microsoft> .proxy ekle 78.169.169.234
[20:07:20] <Nod32> "78.169.169.234" Basariyla Proxy Listesine Eklendi
[20:07:24] <Microsoft> .proxy sil 78.169.169.234
[20:07:25] <Nod32> "Microsoft" Belirtiginiz kritere uyan "78.169.169.234" listede mevcut degil

arkadaslar bu sorunu alıyorum bot da yardımcı olabilirmisiniz acaba kodu da gönderiyim hemen..

Kod:

on *:text:.proxy*:#kontrol: {

  if $2 == list {

    .msg $chan $nick Özelinize Bilgiler Verilmistir , Özelinizi Kontrol Ediniz.

    var %i = 1, %end = $ulist(*,proxy,0)

    .msg $nick - Toplam Proxy Sayisi:4 %end

    while %i <= %end  {

      .msg $nick $+(%i,$chr(41)) $iif($ulist(*,proxy,%i) == $nick,$+(,$v1,),$v1)

      inc %i 1

    }

  }

  if $2 == ekle { 

    if $3 == $null { .msg $chan $+(",$nick,") Lütfen eklenecek Hostu yaziniz | return }

    if $ulist($3,proxy,1) { .msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }

    .auser proxy $3 

    .msg $chan $+(",,$3,,") Basariyla Proxy Listesine Eklendi

  }

  if $2 == sil { 

    if $3 == $null { .msg $chan $+(",$nick,") Lütfen silinecek ip yaziniz | return }

    if !$ulist($3,proxy,1) { .msg $chan $+(",$nick,") Belirtiginiz kritere uyan  $+(",,$3,,") listede mevcut degil | return }

    .ruser proxy $3 | msg $chan $+(",,$3,,")  Proxy listten silindi 

  }

}

Ve

proxy listesine baktığımda eklediğim ip görüküyor ama bota .proxy sil dediğim de belirtilen kritere uyan ip bulunamadı diyor
yani proxy listesine ekliyor ama silmiyor listede bulamıyor ama listeye baktıgımda eklediğim ip görüküyor...
bide söylemeyi unuttum proxy listesi [ Users ] Bölümünde yani [ kullanıcı ]

Cevap: Listeden Proxy Silme Sorunu...

Kod:

 

on *:text:.proxy*:#kontrol: {

  if $2 == list {

    .msg $chan $nick Özelinize Bilgiler Verilmistir , Özelinizi Kontrol Ediniz.

    var %i = 1, %end = $ulist(*,proxy,0)

    .msg $nick - Toplam Proxy Sayisi:4 %end

    while %i <= %end  {

      .msg $nick $+(%i,$chr(41)) $iif($ulist(*,proxy,%i) == $nick,$+(,$v1,),$v1)

      inc %i 1

    }

  }

  if $2 == ekle { 

    if $3 == $null { .msg $chan $+(",$nick,") Lütfen eklenecek Hostu yaziniz | return }

    if $ulist($3,proxy,1) { .msg $chan $+(",$nick,") Belirtiginiz kritere uyan $+(",,$3,,") zaten mevcut | return }

    .auser proxy $3 

    .msg $chan $+(",,$3,,") Basariyla Proxy Listesine Eklendi

  }

  if $2 == sil { 

    if $3 == $null { .msg $chan $+(",$nick,") Lütfen silinecek ip yaziniz | return }

    if ($level($3) == proxy) { .ruser proxy $3 | msg $chan $+(",,$3,,")  Proxy listten silindi }

    elseif ($level($3) != proxy) {  .msg $chan $+(",$nick,") Belirtiginiz kritere uyan  $+(",,$3,,") listede mevcut degil | return }

  }

}

Bu şekilde denediğiniz taktirde kod çalışacaktır.

Sizin kodunuzun çalışmama nedenini echo mesajı ile çok rahat bir şekilde görebilirsiniz.

//echo -a $ulist(ipadresi,proxy,1) yaptığınızda hata mesajını görüyorsunuz. O yüzden listede olup olmadığını
$level identifier'i ile kontrol ettirdik.

listede olan bir ip adresini,

//echo -a $level(ipadresi) şeklinde bakarsak proxy cevabını verecektir.
bildiğiniz üzere users(kullanıcılar) kısmına,

proxy:ipadresi

şeklinde eklenmiştir.

Eğerki $level(ipadresi) şeklinde proxy cevabını alıyorsak listede var, eğerki hata mesajını alıyorsak listede yoktur.

Bizde zaten ona göre sil kısmını $level ile listede varsa silmesini, listede yoksa ilgili kullanıcıya listede olmadığını msg ile beyan etmesini sağladık.

Hoşça paylaşımlar dilerim.