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

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 23 Mayıs 2009, 04:26   #1
Çevrimdışı
Set
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Socket bot Yardim




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:SOCKREAD:nm: {
  var %
s
  sockread 
%s
  tokenize 32 
%s
  
if $== PING {
    
sw $sockname PONG $2
  
}
  if $
== 376 || $== 422 {
    
sw $sockname Oper opernick şifre
  
}
  if $
== 381 {
    
sw $sockname MODE %nmnick -s
    sw $sockname MODE 
%nmnick +s
    sw $sockname MODE 
%nmnick -s
    sw $sockname MODE 
%nmnick +s
    sw $sockname join 0
,
    ; 
sw $sockname KILL Ajan The Ajan Bot Coded by Set (auto reconnect)
    .
timer 1 2 sw $sockname NICK Ajan-Bilgi
    
.timer 1 5 sw $sockname sajoin Ajan-Bilgi #opers
  
}
  if $
== NICK {
    if 
$right($3,-1) == Ajan-Bilgi {
      
sw $sockname MODE Ajan-Bilgi BH-h
      sw $sockname MODE Ajan
-Bilgi +s
      sw $sockname MODE Ajan
-Bilgi -s
      sw $sockname MODE Ajan
-Bilgi +s
      sw $sockname ns identify nickşifresi
      sw $sockname os su su
-şifresi
      sw $sockname os raw swhois Ajan
-Bilgi :12 4•14 Ajan 4• 14Securty14 Technology144™ 
      
sw $sockname sethost Channel.Securty.Technology
      
.timer 1 5 sw $sockname SAJOIN Ajan-Bilgi #opers
      
.timer 1 5 sw $sockname sethost Ajan.Securty.Technology
      
.timer 1 5 sw $sockname JOIN #opers
      
; .timernm2list 0 180 sw $sockname LIST
    }
    if 
$botfnick($1) == Ajan-Bilgi {
      
sw $sockname os raw KILL Ajan-Bilgi Auto Reconnect
      
.timer 1 3 sw $sockname NICK Ajan-Bilgi
      
.timer 1 5 sw $sockname SAJOIN Ajan-Bilgi #opers
      
.timer 1 5 sw $sockname JOIN #opers
    
}
  }
  if $
== NOTICE && $== Ajan-Bilgi && *.*.* iswm $botfnick($1) {
    if *
client connectingiswm $strip($1-) {
      
sw $sockname privmsg $12 :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
      
sw $sockname privmsg $12 :2Merhaba 4 $2Sunucumuza Hosgeldiniz  4... 
      
sw $sockname privmsg $12 :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
      
sw $sockname privmsg $12 :4Kurallar 12IRC Network'u üzerinde küfür etmek, reklam yapmak, proxy kullanmak, saldırı teşebbüsünde bulunmak, diğer kullanıcıları rahatsız etmek 4YASAKTIR! 2Ayrıntılı bilgi için; 12/MOTD 2 yazıp kurallar kısmını gözden geçiriniz. 4Not: 2Sunucuya bağlanan herkez bu kuralları okumuş ve kabul etmiş sayılır.
      sw $sockname privmsg $12 :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
      sw $sockname privmsg $12 :4Uyari : Server İçinde Msn , Link , Site , Özel'
inize Gelen Kişi'lerden Msn'e Almaktan Kaçinin KanaL'a Gelen Msn'e Ve SiteLerden'de Kaçininiz , O Gibi Trojen'Ler Bilgisayar'iniza Zarar Verebilir , NOT : Her Hangi Bir Olayda 4 $server Sorumlu Degildir .
      sw $sockname privmsg $12 : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
      sw $sockname privmsg $12 : 4Bilgi : 2Rumuzunuz sunucumuza kayitli degildir. Kayit(REGISTER) edebilmek ve sadece size ait olmasini saglamak icin 4/NickServ REGISTER SIFRENIZ E-MAILINIZ 2komutunu kullanabilirsiniz 4...
      sw $sockname privmsg $12 : 4Bilgi :  4Örnek2, /Nickserv register 123456 $9 $+ @ $+  $server  , Burada sifreniz 4123456 2E-Mailiniz ise  4 $9 $+ @ $+ $server  2olacaktir 4...
      sw $sockname privmsg $12 : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
      sw $sockname privmsg $12 : 4 $server 2Sohbet Odalarinin Resmi Sitesi : 4 %web
      sw $sockname privmsg $12 : 4 %web 2Sohbet Odalarinin Resmi Script'
ini İndirmek İçin %scriptlink
      sw $sockname privmsg 
$12 %web 2Sohbet Odalarinin Resmi Radyo'sunu DinLemek İçin : 4 %radyolink
      sw $sockname privmsg $12 : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~
      sw $sockname privmsg $12 :  4 4•14 Ajan 4• 14Securty14 Technology144™4• Hoş Sohbet'
ler Diler..    
    }
  }
  if $
== 301 {
    
mesajkontrol $4 $right($strip($5-),-1)
  }
  if $
== 317 {
    
set -u20 %idle. [ $+ [ $] ] $5
  
}
  if $
== PRIVMSG || $== NOTICE || $== ACTION {
    if $
== Sohbettin-Bilgi && *.*.* !iswm $botfnick($1) {
      if $
== :TIME {
        
sw $sockname NOTICE $botfnick($1TIME $time
      
}
      if $
== :VERSION {
        ; 
sw $sockname NOTICE $botfnick($1VERSION 4 4•14 Ajan 4• 14Securty14 Technology144™4•
        
sw $sockname NOTICE $botfnick($1VERSION4 4•14 Ajan 4• 14Securty14 Technology144™4•
      
}
      if $
== :FINGER {
        
sw $sockname NOTICE $botfnick($1FINGER System Secure (botIdle 0 seconds
      
}
    }
  }


Bu Kod Neden Calişmiyor Acaba /sockopen nm Serverip port'u Yazdigim HaLde bot tekrar girmiyor hata nerede acaba yardim ederseniz cok sevinirim.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları eglen sohbet reklamver
Alt 23 Mayıs 2009, 11:46   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket bot Yardim




sockopen kısmını göremedim kodlarda yada sen eksik verdin yoksa bu şekilde ekle;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockopen:nm:{ sockwrite -tn $sockname NICK botnicki sockwrite -tn $sockname USER botunidenti * * : $+ botunfullnamei }

Bu kısım varsa ve açık olan botu çıkarıp tekrar sokmaksa niyetin önce /sockclose nm yazarak botun bağlantısını kes sonra tekrar sok.

 
Alıntı ile Cevapla

Alt 23 Mayıs 2009, 14:36   #3
Ç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 Yardim




bu benim verdigim koda sorunmu var operi girmiyor kanala giriyor ama

SW Unknown command

bunu gösteriyr yardimci olurmusunuz biraz :S

 
Alıntı ile Cevapla

Alt 23 Mayıs 2009, 15:07   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Socket bot Yardim




gördügüm kadariyla hata yok. Ama ;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:SOCKREAD:nm: { var %s sockread %s tokenize 32 %s if $1 == PING { sw $sockname PONG $2 } if $2 == 376 || $2 == 422 { Oper opernick şifre } if $2 == 381 { sw $sockname MODE %nmnick -s sw $sockname MODE %nmnick +s sw $sockname MODE %nmnick -s sw $sockname MODE %nmnick +s sw $sockname join 0, ; sw $sockname KILL Ajan The Ajan Bot - Coded by Set (auto reconnect) .timer 1 2 sw $sockname NICK Ajan-Bilgi .timer 1 5 sw $sockname sajoin Ajan-Bilgi #opers } if $2 == NICK { if $right($3,-1) == Ajan-Bilgi { sw $sockname MODE Ajan-Bilgi BH-h sw $sockname MODE Ajan-Bilgi +s sw $sockname MODE Ajan-Bilgi -s sw $sockname MODE Ajan-Bilgi +s sw $sockname ns identify nickşifresi sw $sockname os su su-şifresi sw $sockname os raw swhois Ajan-Bilgi :12 4•14 Ajan 4• 14Securty14 Technology144™ sw $sockname sethost Channel.Securty.Technology .timer 1 5 sw $sockname SAJOIN Ajan-Bilgi #opers .timer 1 5 sw $sockname sethost Ajan.Securty.Technology .timer 1 5 sw $sockname JOIN #opers ; .timernm2list 0 180 sw $sockname LIST } if $botfnick($1) == Ajan-Bilgi { sw $sockname os raw KILL Ajan-Bilgi Auto Reconnect .timer 1 3 sw $sockname NICK Ajan-Bilgi .timer 1 5 sw $sockname SAJOIN Ajan-Bilgi #opers .timer 1 5 sw $sockname JOIN #opers } } if $2 == NOTICE && $3 == Ajan-Bilgi && *.*.* iswm $botfnick($1) { if *client connecting* iswm $strip($1-) { sw $sockname privmsg $12 :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ sw $sockname privmsg $12 :2Merhaba 4 $9 , 2Sunucumuza Hosgeldiniz 4... sw $sockname privmsg $12 :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ sw $sockname privmsg $12 :4Kurallar : 12IRC Network'u üzerinde küfür etmek, reklam yapmak, proxy kullanmak, saldırı teşebbüsünde bulunmak, diğer kullanıcıları rahatsız etmek 4YASAKTIR! 2Ayrıntılı bilgi için; 12/MOTD 2 yazıp kurallar kısmını gözden geçiriniz. 4Not: 2Sunucuya bağlanan herkez bu kuralları okumuş ve kabul etmiş sayılır. sw $sockname privmsg $12 :2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ sw $sockname privmsg $12 :4Uyari : Server İçinde Msn , Link , Site , Özel'inize Gelen Kişi'lerden Msn'e Almaktan Kaçinin , KanaL'a Gelen Msn'e Ve SiteLerden'de Kaçininiz , O Gibi Trojen'Ler Bilgisayar'iniza Zarar Verebilir , NOT : Her Hangi Bir Olayda 4 $server Sorumlu Degildir . sw $sockname privmsg $12 : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ sw $sockname privmsg $12 : 4Bilgi : 2Rumuzunuz sunucumuza kayitli degildir. Kayit(REGISTER) edebilmek ve sadece size ait olmasini saglamak icin 4/NickServ REGISTER SIFRENIZ E-MAILINIZ 2komutunu kullanabilirsiniz 4... sw $sockname privmsg $12 : 4Bilgi : 4Örnek2, /Nickserv register 123456 $9 $+ @ $+ $server , Burada sifreniz 4123456 2E-Mailiniz ise 4 $9 $+ @ $+ $server  2olacaktir 4... sw $sockname privmsg $12 : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ sw $sockname privmsg $12 : 4 $server 2Sohbet Odalarinin Resmi Sitesi : 4 %web sw $sockname privmsg $12 : 4 %web 2Sohbet Odalarinin Resmi Script'ini İndirmek İçin : 4 %scriptlink sw $sockname privmsg $12 : 4 %web 2Sohbet Odalarinin Resmi Radyo'sunu DinLemek İçin : 4 %radyolink sw $sockname privmsg $12 : 2~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ sw $sockname privmsg $12 : 4 4•14 Ajan 4• 14Securty14 Technology144™4• Hoş Sohbet'ler Diler.. } } if $2 == 301 { mesajkontrol $4 $right($strip($5-),-1) } if $2 == 317 { set -u20 %idle. [ $+ [ $4 ] ] $5 } if $2 == PRIVMSG || $2 == NOTICE || $2 == ACTION { if $3 == Sohbettin-Bilgi && *.*.* !iswm $botfnick($1) { if $4 == :TIME { sw $sockname NOTICE $botfnick($1) TIME $time } if $4 == :VERSION { ; sw $sockname NOTICE $botfnick($1) VERSION 4 4•14 Ajan 4• 14Securty14 Technology144™4• sw $sockname NOTICE $botfnick($1) VERSION4 4•14 Ajan 4• 14Securty14 Technology144™4• } if $4 == :FINGER { sw $sockname NOTICE $botfnick($1) FINGER System Secure (bot) Idle 0 seconds } } } }

bu şekilde yapabilirsin. denedim çalişiyor.


Konu Freedom tarafından (23 Mayıs 2009 Saat 15:20 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Alt 23 Mayıs 2009, 21:59   #5
Ç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 Yardim




usta bu gene operi girmiyor :S

 
Alıntı ile Cevapla

Cevapla

Etiketler
bot, mirc, mirc download, mirc indir, socket, yardim


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

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
özele !yardim yazildiginda yardim kanalına sajoinlemek BunaLim mIRC Scripting Sorunları 2 15 Eylül 2009 15:36
CipmerCy v3 Socket Bot EkLenti Yapamiyorum Yardim AyazGeceLer mIRC Scripting Sorunları 5 23 Aralık 2008 17:33
Socket Bot'da (NoMercy) dinleyiciyi yüksek gösterme [YARDIM] Cry mIRC Scripting Sorunları 1 29 Temmuz 2008 12:47