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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 18 Ağustos 2010, 11:57   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Socket Bot Konuşturma hakkında.




Aeg arkadasımızın yazmıs oldugu socket cycle bot gayet kullanıslı ve güzel kendisine emeğinden dolayı tşk ederim. benim bu botta yapmak istediğim kanaldaki konuslarıda alması

Alıntı:

on *:sockopen:bot:{
if ($sockerr) { echo $color(info) -st Socket botun baðlantýsý kesildi. | sockopen bot $sunucu $portsifre | return }
swbot PASS $portsifre
swbot NICK $dcyclenick
swbot USER $dident * * : $+ $drealname
swbot ns identify $dcyclenickpassword
.timer 1 3 swbot join $kanal
swbot mode $2cyclenick +D
.timerping 0 20 swbot ping $2cyclenick
sockmark $sockname $2cyclenick
}
on *:sockread:bot:{
if ($sockerr) { echo $color(info) -st Socket botun baðlantýsý kesildi. | sockopen bot irc.zurna.net 6667 | return }
var %; | sockread %; | tokenize 32 %;
if !$window(@sdebug) { window -k0 @sdebug } | aline -p @sdebug $timestamp < $1-
swalias $1-
}
alias swbot { if $sock(bot) { sockwrite -n bot $1- } }
alias swalias {
;e&eth;er bot socket&yacute; aç&yacute;ksa
if $sock(bot) {
var %: = echo $color(info) -st > Socket bot:
if :VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION Jawa User %logo $+ $chr(1) }
if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Jawa User %logo $+ $chr(1) }
if $1 == PING { swbot PiNG $2- }
if $2 == 474 { %: $4 kanal&yacute;nda banl&yacute;. }
if $2 == 366 { %: $4 kanal&yacute;na girdi. }
if $1 == error && $2 == :closing {
baslat 2
}
if $2 == NICK {
set %nickdegis $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
| set %newnick $right($3,-1)
if (%parametre == sunucu) { nickbot | halt }
}
if $2 == JOIN {
if ($kanal isin $3) {
set %joinnick $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

if (%parametre == sunucu) { joinbot | halt }
}
}
if $2 == PART {
if ($3 == $kanal) {
set %partnick $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

if (%parametre == sunucu) { partbot | halt }
}
}
if $2 == quit {
set %quitnick $remove($gettok($1,1,33),
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

if (%parametre == sunucu) { quitbot | halt }
}
}
}

alias joinbot {
if ($read(botnet.txt,w,%joinnick)) && ($read(girmis.txt,w,%joinnick)) && ($istok($masternick,%joinnick,32)) && ($gettok($sunucu,2,46) isin %joinnick) { halt }
if (%cycle == off) { halt }
if ($tnick(%joinnick)) {
if (!$hget(tnick)) { hmake tnick 100 }
hinc -u20 tnick $tnick(%joinnick)
if ($hget(tnick,$tnick(%joinnick)) >= 3) { halt }
if ($domain == $null) { swbota os raw : NICK %joinnick 1 1 $ident $+($rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$ra nd(A,Z),$rand(0,9),$rand(0,9),$rand(A,Z),.,$rand(0 ,9),$rand(0,9),$rand(0,9),$rand(0,9),$rand(A,Z),$r and(0,9),$rand(0,9),$rand(A,Z),$rand(0,9),$rand(0, 9),.,$rand(0,9),$rand(0,9),$rand(A,Z),$rand(0,9),$ rand(0,9),$rand(A,Z)) $services : $+ $web Jawa User }
else { swbota os raw : NICK %joinnick 1 1 $ident $+($rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$ra nd(A,Z),$rand(0,9),$rand(0,9),$rand(A,Z),.,$domain ) $services : $+ $web Jawa User }
}
write sgirmis.txt %joinnick
swbota os raw svsmode %joinnick +iwtr
swbota os raw $+(:,%joinnick) join $kanallar
swbota privmsg $logchan Nick %joinnick Olusturuldu , Kanallara Sokuldu, [Sunucu]
}
alias partbot {
if (%cycle == off) { halt }
sbotsil %partnick
swbota os raw $+(:,%partnick) part $kanallar (PART)
swbota os raw $+(:,%partnick) quit $c&yacute;k&yacute;smesaj
}
alias quitbot {
if (%cycle == off) { halt }
sbotsil %quitnick
swbota os raw $+(:,%quitnick) quit $c&yacute;k&yacute;smesaj
}
alias nickbot {
if (%cycle == off) { halt }
sbotsil %nickdegis
write sgirmis.txt %newnick
swbota os raw $+(:,%nickdegis) nick %newnick
}
alias sbotsil { if $1 { if !$read(sgirmis.txt,w,$1) { halt } | else { write $+(-dl,$readn) sgirmis.txt } } }

botun genel kodlaması buraya nasıl bir kod eklesem kanaldaki konusmalarıda alır.? yardımlarınızı bekliyorum

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 19 Ağustos 2010, 00:53   #2
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket Bot Konuşturma hakkında.




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $2 == quit { set %quitnick $remove($gettok($1,1,33),:) if (%parametre == sunucu) { quitbot | halt } } if ($2 == privmsg) { var %n = $gettok($gettok($1,1,33),1,58), %k = $3 if (%k == #kanal) { swbota os raw $+(:,%n) privmsg #mesajkanal $4- } } } }

Buna Gore Ekleme Yaparsin Koda

#kanal <= yerini Hangi Kanaldan Mesajlari Alacaksa Ona Eklersin

#kanalmesaj <= yerini hangi kanala mesajlari atacaksa onu yazacaksin.

 
Alıntı ile Cevapla

Alt 20 Ağustos 2010, 14:57   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket Bot Konuşturma hakkında.




Bir şey olmadı gibi.

ilk verilen

PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if $== quit {
set %quitnick $remove($gettok($1,1,33),:) 
if (%
parametre == sunucu) { quitbot halt }
}
}


kodu kaldırıp senin verdiğini koydum ama olmadı.

 
Alıntı ile Cevapla

Alt 20 Ağustos 2010, 18:03   #4
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket Bot Konuşturma hakkında.




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias swalias { ;e&eth;er bot socket&yacute; aç&yacute;ksa if $sock(bot) { var %: = echo $color(info) -st > Socket bot: if :VERSION iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION Jawa User %logo $+ $chr(1) } if :FINGER iswm $4- { swbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Jawa User %logo $+ $chr(1) } if $1 == PING { swbot PiNG $2- } if $2 == 474 { %: $4 kanal&yacute;nda banl&yacute;. } if $2 == 366 { %: $4 kanal&yacute;na girdi. } if $1 == error && $2 == :closing { baslat 2 } if $2 == NICK { set %nickdegis $remove($gettok($1,1,33), | set %newnick $right($3,-1) if (%parametre == sunucu) { nickbot | halt } } if $2 == JOIN { if ($kanal isin $3) { set %joinnick $remove($gettok($1,1,33), if (%parametre == sunucu) { joinbot | halt } } } if $2 == PART { if ($3 == $kanal) { set %partnick $remove($gettok($1,1,33), if (%parametre == sunucu) { partbot | halt } } } if $2 == quit { set %quitnick $remove($gettok($1,1,33), if (%parametre == sunucu) { quitbot | halt } } if ($2 == privmsg) { var %n = $gettok($gettok($1,1,33),1,58), %k = $3 if (%k == #kanal) { swbota os raw $+(:,%n) privmsg #mesajkanal $4- } } } }

bu halde bende calişmakta bir dene istersen gene sende.

 
Alıntı ile Cevapla

Alt 20 Ağustos 2010, 20:30   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket Bot Konuşturma hakkında.




Evet bende böyle yapmıştım. Çalışıyor.

 
Alıntı ile Cevapla

Alt 29 Eylül 2022, 02:19   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket Bot Konuşturma hakkında.




peki bu bota özeline gelen BILGI - Nickserv - Korumabotu nickleri ise { halt } ile bu nicklerden gelenleri rapor kanalına yada admin nickine raporlama yapmasın diye nasıl bir kod eklemem lazım. Yardımcı olursanız memnun olurum

 
Alıntı ile Cevapla

Cevapla

Etiketler
bot, hakkında, konuşturma, mirc, mirc download, mirc indir, socket


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
socket bot hakkında soru brockervip mIRC Scripting Sorunları 1 12 Haziran 2011 03:45
socket botu konuşturma RegSubex mIRC Scripting Sorunları 12 26 Mayıs 2011 23:14
socket bot hakkında Heavenly mIRC Scripting Sorunları 6 27 Şubat 2009 17:52
socket hakkında alfa mIRC Scripting Sorunları 1 17 Ocak 2008 00:32
Socket Hakkında... Kablosuz NET mIRC Scripting Sorunları 2 18 Ekim 2006 23:11