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

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

- - Services botlarını okumuyor (https://www.ircforumlari.net/mirc-scripting-sorunlari/744587-services-botlarini-okumuyor.html)

Services botlarını okumuyor

Aşağıdaki kodlar oaoper script den dir o script ile girdiğimde services botlarını kontrol ede biliyorum ve server daki tüm botları list halinde göre biliyorum ancak bu kodu kendi scriptim de uyguladığımda botların listesini göremiyorum nerde eksik var cözemedim

oLması gereken hali

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

oLmayan haLi

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

Kod:



menu menubar { 

  - 

  » Bot Kontrol:/dialog -m botkontrol botkontrol

  - 

} 

dialog botkontrol {

  title "Services Bot Kontrol Merkezi"

  size -1 -1 186 108

  option dbu

  list 1, 69 2 50 105, size

  button "Tek Bot Yap", 2, 2 3 59 10

  button "Tek Bot Sil", 3, 2 19 59 10

  button "Tek Bot Kanala Sok", 4, 2 35 59 10

  button "Tek Bot Kanaldan Cıkar", 5, 2 52 59 10

  button "Otomatik Bot Yap", 6, 125 3 59 10

  button "Tüm Botları K. Sok", 7, 125 19 59 10

  button "Tüm Botları K. Çıkart", 8, 125 35 59 10

  button "Tüm Botları Sil", 9, 125 52 59 10

  text "Listelerden Veri Silmek İçin Sileceğiniz Veriye Çift Tıklayınız.", 10, 4 76 55 30

  text "OperServ NickServ ChanServ MemoServ StatsServ HelpServ ve *_Bot Nickleri Bu İşlemlerden Muaftırlar. ", 11, 127 72 55 36

}
 

on *:dialog:botkontrol:*:*: { 

  if $devent == init { 

    mdx MarkDialog $dname   

    mdx SetDialog $dname bgcolor $rgb(47,163,204) 

    mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11 +b Turkish 12 500 Tahoma

    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11 textbg $rgb(47,163,204)

    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11 background $rgb(47,163,204)

    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11 text $rgb(0,0,0) 

    mdx SetDialog $dname style title tool sysmenu

    set %bkontrol1 on | write -c botlar.txt | who

    .timer 1 2 unset %kkontrol1 

  }

  if $devent == sclick {

    if $did == 2 { /os raw : NICK $$?"Nick Yaz" 1 1 $$?"Identd Adresi Yaz. @ Koyma" $$?"Ip Adresi Yaz,Harfde Olur" $$?"Services Adını Yaz Örnek: services. $+ $network Büyük-Kücük Harfe Duyarlıdır!" $$?"Açıklama Yaz" }

    if $did == 3 { /os raw : NICK $$?"Botun Nickini Yaz" 0 0 }

    if $did == 4 { /os raw : $+ $$?"Botun Nickini Yaz" join $$?"Gireceği Kanalı Yaz" }

    if $did == 5 { os raw : $+ $$?"Botun Nickini Yaz" Part $$?"Çıkacağı Kanalı Yaz" }

    if $did == 6 { 

      set %xbotsayisi $$?"Kaç Tane Bot Oluşturacaksınız. Botlar Real Nickler Alacaklardır. Rakamla Yazın"

      set %xbotservicesadi $$?"Services Adını Yazın. Büyük Kücük Harf Duyarlıdır. Örnek services. $+ $network $+ "

      var %i 1 

      while %i <= %xbotsayisi { 

        WhileFix WhileFix .

        os raw : NICK $read(nickler.txt) 1 1 $network $upper($rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ . $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) $+ . $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $+ . $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)) %xbotservicesadi Web User

        inc %i

      }

      set %bkontrol1 on | who

      .timer 1 2 unset %kkontrol1

    }

    if $did == 7 { 

      var %girkanal $$?"Gireceği Kanalı Yazın"

      var %i 1 

      while %i <= $lines(botlar.txt) { 

        WhileFix WhileFix .

        os raw : $+ $read(botlar.txt,%i) join %girkanal

        inc %i 

      }

    }

    if $did == 8 { 

      var %cikkanal $$?"Çıkacağı Kanalı Yazın"

      var %i 1 

      while %i <= $lines(botlar.txt) { 

        WhileFix WhileFix .

        os raw : $+ $read(botlar.txt,%i) part %cikkanal

        inc %i 

      }

    }

    if $did == 9 {

      var %i 1 

      while %i <= $lines(botlar.txt) { 

        WhileFix WhileFix .

        os raw : NICK $read(botlar.txt,%i) 0 0 

        inc %i 

      }

    }

  }

  if $devent == dclick {

    if ($did == 1) { write -ds $+ $did(1).seltext botlar.txt | did -d botkontrol 1 $did(1).sel }

  }

  if $devent == close { 

    write -c botlar.txt

  }

}

Cevap: Services botlarını okumuyor

Botları dialog ile oluşturduysan görebilirsin yada oa scriptte oluşturduysan kodlarla birlikte botlar.txt diye metin belgesi olmalı onuda almalısın.

Cevap: Services botlarını okumuyor

Alıntı:

MatheuS Nickli Üyeden Alıntı (Mesaj 1041760556)

Botları dialog ile oluşturduysan görebilirsin yada oa scriptte oluşturduysan kodlarla birlikte botlar.txt diye metin belgesi olmalı onuda almalısın.

botları o scriptle oluşturmadım ama yinede botları okuyor ve botlar.txt dosyası sadece botları okumak icin olduğunu düsünüyorum icersinde bir nick listesi yok.

Cevap: Services botlarını okumuyor

Evet kısa bakışta öyle görünüyor ama kodda çok fazla hata var.
en basitinden. var %cikkanal $$?"Çıkacağı Kanalı Yazın" burdaki var aslında set olmalı ve botlar.txt den aldıgı dogru oluşturulan nickleri ama yazan kısmını göremedim. ya biyerde yanlışın var ya kod yazılırken hatalıymış, oluşturuyor fakat kanala bile almıyor böyleyken. Uğraşmaktansa bunun gibi birçoğu var forumda aratabilirsin.

Cevap: Services botlarını okumuyor

Alıntı:

MatheuS Nickli Üyeden Alıntı (Mesaj 1041760685)

kod hatalı olsa oa script inde de calısmazdı diye düsünüyorum (: ve ayrıca böyle bir services bot dialog u da bulamadım forumda

Cevap: Services botlarını okumuyor

Alıntı:

ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1041760761)

kod hatalı olsa oa script inde de calısmazdı diye düsünüyorum (: ve ayrıca böyle bir services bot dialog u da bulamadım forumda

kod hatalı değilse eksik almışsın çünkü senin buraya yazmış oldugun hatalı yada sen alırken biyerde hata yaptın ve çokta eksiği var :)

Cevap: Services botlarını okumuyor

Kod:

raw 352:*: {

  if (%bkontrol1 == on) && ($dialog(botkontrol)) && (services.* iswm $5) && (!$istok(operserv global nickserv memoserv statserv chanserv helpserv botserv,$6,32)) && (*_bot !iswm $6)  { 

    did -a botkontrol 1 $6 | write botlar.txt $6 

    .timer 1 3 unset %bkontrol1

  }

}

bunu almayı unutmuşsun sanırım inceleme fırsatım oldu oascripti bu olmazsa botları yazmıyor who sorgusundan sonra alıyor services ile değilse servislerin linki mesela web2.sunucu.com gibiyse yine almıyor. sabit bi değişken verirsen daha makul olur gibi geldi bana mesela sabit identi yada fullname i taşıyabilirsin.

Kod:

raw 352:*: {

  if (%bkontrol1 == on) && ($dialog(botkontrol)) && (%botfullname == $9) && (*_bot !iswm $6)  { 

    did -a botkontrol 1 $6 | write botlar.txt $6 

    .timer 1 3 unset %bkontrol1

  }

}

bu şekilde yaparsanda şöyle bi değişiklik yapabilirsin

Kod:

if $did == 6 { 

set %xbotsayisi $$?"Kaç Tane Bot Oluşturacaksınız. Botlar Real Nickler Alacaklardır. Rakamla Yazın"

set %xbotservicesadi $$?"Services Adını Yazın. Büyük Kücük Harf Duyarlıdır. Örnek services. $+ $network $+ "

var %i 1 

while %i <= %xbotsayisi { 

WhileFix WhileFix .

os raw : NICK $read(nickler.txt) 1 1 $network $upper($rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ . $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) $+ . $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $+ . $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)) %xbotservicesadi Web User

inc %i

}

set %bkontrol1 on | who

.timer 1 2 unset %kkontrol1

}

kodun bu kısmını bu şekilde değişebilirsin. Ayrıca WhileFix.dll diye bişeyde kullanıyor ne oldugunu ben tam olarak bilmiyorum :)

Kod:

if $did == 6 { 

set %xbotsayisi $$?"Kaç Tane Bot Oluşturacaksınız. Botlar Real Nickler Alacaklardır. Rakamla Yazın"

set %botfullname $$?"Oluşturulacak Botlar İçin Fullname Girin"

set %botident $$?"Oluşturulacak Botların Identini Girin"

set %xbotservicesadi $$?"Services Adını Yazın. Büyük Kücük Harf Duyarlıdır. Örnek services. $+ $network $+ "

var %i 1 

while %i <= %xbotsayisi { 

WhileFix WhileFix .

os raw : NICK $read(nickler.txt) 1 1 %botident $upper($rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ . $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(1,9) $+ . $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(1,9) $+ $rand(a,z) $+ $rand(a,z) $+ . $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) $+ $rand(a,z)) %xbotservicesadi : %botfullname

inc %i

}

set %bkontrol1 on | who

.timer 1 2 unset %kkontrol1

}

Cevap: Services botlarını okumuyor

oa script inde raw 352 yok hadi var dı ben görmedim diyelim bunu eklediğimde yine değişen bir sey olmadı menuyu açtığımda statüste tüm botların listesini veriyor ancak dediğim kısımda yine list yok

Cevap: Services botlarını okumuyor

Kod:

   raw 352:*: {

  if (%bkontrol1 == on) && ($dialog(botkontrol)) && (services.* iswm $5) && (!$istok(operserv global nickserv memoserv statserv chanserv helpserv botserv,$6,32)) && (*_bot !iswm $6)  { 

    did -a botkontrol 1 $6 | write botlar.txt $6 

    .timer 1 3 unset %bkontrol1

  }

}

bunu ekledikten sonra yaptıgım testte çıkan sonuç

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

Cevap: Services botlarını okumuyor

Alıntı:

MatheuS Nickli Üyeden Alıntı (Mesaj 1041761240)

Kod:

   raw 352:*: {

  if (%bkontrol1 == on) && ($dialog(botkontrol)) && (services.* iswm $5) && (!$istok(operserv global nickserv memoserv statserv chanserv helpserv botserv,$6,32)) && (*_bot !iswm $6)  { 

    did -a botkontrol 1 $6 | write botlar.txt $6 

    .timer 1 3 unset %bkontrol1

  }

}

bunu ekledikten sonra yaptıgım testte çıkan sonuç

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

Çıkan Sonuç ?