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

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

- - Socket bot Yardim (https://www.ircforumlari.net/mirc-scripting-sorunlari/212271-socket-bot-yardim.html)

Socket bot Yardim

PHP- Kodu:

   on *:SOCKREAD:nm: {
  var %s
  sockread %s
  tokenize 32 %s
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 || $2 == 422 {
    sw $sockname 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&#8226;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&#8226;14 Ajan 4• 14Securty14 Technology144™4•
        sw $sockname NOTICE $botfnick($1) VERSION4 4&#8226;14 Ajan 4• 14Securty14 Technology144™4•
      }
      if $4 == :FINGER {
        sw $sockname NOTICE $botfnick($1) FINGER System Secure (bot) Idle 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.

Cevap: Socket bot Yardim

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

Kod:

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.

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

Cevap: Socket bot Yardim

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

Kod:

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&#8226;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&#8226;14 Ajan 4• 14Securty14 Technology144™4•
 sw $sockname NOTICE $botfnick($1) VERSION4 4&#8226;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.

Cevap: Socket bot Yardim

usta bu gene operi girmiyor :S