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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 27 Mart 2016, 14:32   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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


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



Konu Feragat tarafından (29 Mart 2016 Saat 22:50 ) değiştirilmiştir. Sebep: mIRC Kod'larını CODE Tagı içinde paylaşın.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 28 Mart 2016, 02:24   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 28 Mart 2016, 10:23   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Services botlarını okumuyor




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.

 
Alıntı ile Cevapla

Alt 28 Mart 2016, 13:54   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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.

 
Alıntı ile Cevapla

Alt 28 Mart 2016, 18:05   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Services botlarını okumuyor




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

 
Alıntı ile Cevapla

Alt 29 Mart 2016, 06:52   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Services botlarını okumuyor




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.

 
Alıntı ile Cevapla

Alt 29 Mart 2016, 12:22   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Services botlarını okumuyor




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 }



Konu Feragat tarafından (29 Mart 2016 Saat 22:49 ) değiştirilmiştir. Sebep: mIRC Kod'larını PHP değil CODE Tagı içinde paylaşın.
 
Alıntı ile Cevapla

Alt 29 Mart 2016, 15:26   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

Alt 29 Mart 2016, 17:30   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Services botlarını okumuyor




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.


Konu Feragat tarafından (29 Mart 2016 Saat 22:49 ) değiştirilmiştir. Sebep: mIRC Kod'larını PHP değil CODE Tagı içinde paylaşın.
 
Alıntı ile Cevapla

Alt 29 Mart 2016, 20:31   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Services botlarını okumuyor




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ç ?


Konu Feragat tarafından (29 Mart 2016 Saat 22:50 ) değiştirilmiştir. Sebep: mIRC Kod'larını PHP değil CODE Tagı içinde paylaşın.
 
Alıntı ile Cevapla

Cevapla

Etiketler
services, services bot, services bot remote


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


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