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

ZenqerDenq · 27 Mart 2016, 14:32

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

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

oLmayan haLi

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

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


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
  }
}

MatheuS · 28 Mart 2016, 02:24

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

ZenqerDenq · 28 Mart 2016, 10:23

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

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.

MatheuS · 28 Mart 2016, 13:54

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.

ZenqerDenq · 28 Mart 2016, 18:05

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

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.

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

MatheuS · 29 Mart 2016, 06:52

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

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

MatheuS · 29 Mart 2016, 12:22

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

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: Kodu kopyalamak için üzerine çift tıklayın!

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: Kodu kopyalamak için üzerine çift tıklayın!

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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

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
}

ZenqerDenq · 29 Mart 2016, 15:26

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

MatheuS · 29 Mart 2016, 17:30

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

   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ç

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

ZenqerDenq · 29 Mart 2016, 20:31

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

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

   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ç

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

Çıkan Sonuç ?

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
vbulletin Arama Botlarını Anasayfada gösterin	^SpeeD	vB 3.7.X Eklentileri	0	18 Nisan 2009 18:56
IRCServices botlarını normal user olarak göstermek ?	OnE_D4y	Unreal IRCd	11	07 Aralık 2008 00:25
Radyo ve Oyun Botlarını Giriş Cıkış Nasıl Yaptırıyoruz.	suat123	Eggdrop, NeoStats, BNC	1	20 Haziran 2006 18:20
oyun botlarını silme	seboizm	Eggdrop, NeoStats, BNC	2	26 Şubat 2006 15:26

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.