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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Bu Kodu SockBot dan Çıkartabilirmisiniz ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/457612-bu-kodu-sockbot-dan-cikartabilirmisiniz.html)

GeceAktif 29 Şubat 2012 15:27

Bu Kodu SockBot dan Çıkartabilirmisiniz ?
 
alias opers return opernick şifre
alias botnick return GLOBAL
alias botpass return 142536
alias sunucu return 84.16.253.235 6667

alias bagla {
sockclose botnet
sockopen botnet $sunucu
}
alias kopar {
sockclose botnet
}
alias sw {
if $sock($1).status == active {
sockwrite -nt $1-
}
}
on *:SOCKOPEN:botnet: {
sw $sockname nick $+(Guard,$r(0,999))
sw $sockname USER X " " : $+ $+([,,$botnick,,]) Channel Information System GeceAktif
}
on *:sockread:botnet: {
if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
var %q
sockread %q
tokenize 32 %q
if $1 == PING {
sw $sockname PONG $2
}
if $2 == 376 {
sw $sockname oper $opers
sw $sockname join 0,
sw $sockname nick $botnick
sw $sockname nick $botpass
sw $sockname umode +c
timer 0 1 sw $sockname list
}
if ($2 == 322) {
if ($5 >= 2) { sw $sockname sajoin $4 }
if ($5 == 1) { sw $sockname part $4 }
}
if ($2 == join) {
var %nick $right($token($1,1,33),-1), %chan $right($3,-1)
set %nick [ $+ [ %chan ] ] %nick | sw $sockname privmsg chanserv info %chan
}
if ($2 == notice) {
var %nick $right($token($1,1,33),-1)
if ($regex(%nick,/ChanServ/i)) {
if (*** isin $4) { set %chans $remove($5,) }
if (Kanal Sahibi isin $4-) {
sw $sockname notice %nick [ $+ [ %chans ] ] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sw $sockname notice %nick [ $+ [ %chans ] ] %chans Kanal Sahibi: $6
}
if (kayıt Tarihi isin $4-) {
sw $sockname notice %nick [ $+ [ %chans ] ] %chans Kayit Tarihi: $6
sw $sockname notice %nick [ $+ [ %chans ] ] %chans
sw $sockname notice %nick [ $+ [ %chans ] ] %chans Kanal Güvenlik Botu : Guard Server Security & Control Socket System v1.0
sw $sockname notice %nick [ $+ [ %chans ] ] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
if (The channel isin $4-) {
var %chans $remove($6,)
sw $sockname notice %nick [ $+ [ %chans ] ] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sw $sockname notice %nick [ $+ [ %chans ] ] %chans Girdiginiz %chans Kanali Sunucuya Kayıtlı Degildir.
sw $sockname notice %nick [ $+ [ %chans ] ] %chans
sw $sockname notice %nick [ $+ [ %chans ] ] %chans Kanal Güvenlik Botu : Guard Server Security & Control Socket System v1.0
sw $sockname notice %nick [ $+ [ %chans ] ] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
}
}
}


Bu Kodun SockBot dan Çıkmasını İstiyorum Yapan Arkadaşa Teşekkür Ederim..

fav 29 Şubat 2012 17:44

Cevap: Bu Kodu SockBot dan Çıkartabilirmisiniz ?
 
cıkmasını istediğin kısım hangisi burada bağlantıdana tut sajoin part oto oper girmeye dek bısuru işlem var socket botun kensını almıssın koymussun buraya cıkacak olan kısım hangisi yada şöyle soralım sana lazım olan nedir

GeceAktif 29 Şubat 2012 17:50

Cevap: Bu Kodu SockBot dan Çıkartabilirmisiniz ?
 
if ($2 == 322) {
if ($5 >= 2) { sw $sockname sajoin $4 }
if ($5 == 1) { sw $sockname part $4 }
}
if ($2 == join) {
var %nick $right($token($1,1,33),-1), %chan $right($3,-1)
set %nick [ $+ [ %chan ] ] %nick | sw $sockname privmsg chanserv info %chan
}
if ($2 == notice) {
var %nick $right($token($1,1,33),-1)
if ($regex(%nick,/ChanServ/i)) {
if (*** isin $4) { set %chans $remove($5,) }
if (Kanal Sahibi isin $4-) {
sw $sockname notice %nick [ $+ [ %chans ] ] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sw $sockname notice %nick [ $+ [ %chans ] ] %chans Kanal Sahibi: $6
}
if (kayıt Tarihi isin $4-) {
sw $sockname notice %nick [ $+ [ %chans ] ] %chans Kayit Tarihi: $6
sw $sockname notice %nick [ $+ [ %chans ] ] %chans
sw $sockname notice %nick [ $+ [ %chans ] ] %chans Kanal Güvenlik Botu : Guard Server Security & Control Socket System v1.0
sw $sockname notice %nick [ $+ [ %chans ] ] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
if (The channel isin $4-) {
var %chans $remove($6,)
sw $sockname notice %nick [ $+ [ %chans ] ] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
sw $sockname notice %nick [ $+ [ %chans ] ] %chans Girdiginiz %chans Kanali Sunucuya Kayıtlı Degildir.
sw $sockname notice %nick [ $+ [ %chans ] ] %chans
sw $sockname notice %nick [ $+ [ %chans ] ] %chans Kanal Güvenlik Botu : Guard Server Security & Control Socket System v1.0
sw $sockname notice %nick [ $+ [ %chans ] ] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
}
}
}
}



Kanal Bilgi Sistemi Lazım Bana

fav 01 Mart 2012 12:50

Cevap: Bu Kodu SockBot dan Çıkartabilirmisiniz ?
 
/info #kanal yazdığında gelen noticeleri görebilirmiyiz bir örnek oradaki $1 $2 sıralamasını bulmamız lazım socket verileri farklı kod çalışmaz

Narsinha 01 Mart 2012 13:27

Cevap: Bu Kodu SockBot dan Çıkartabilirmisiniz ?
 
Kod:

alias opers return opernick şifre
alias botnick return GLOBAL
alias botpass return 142536
alias sunucu return 84.16.253.235 6667

alias bagla {
  sockclose botnet
  sockopen botnet $sunucu
}
alias kopar {
  sockclose botnet
}
alias sw {
  if $sock($1).status == active {
    sockwrite -nt $1-
  }
}
on *:SOCKOPEN:botnet: {
  sw $sockname nick $+(Guard,$r(0,999))
  sw $sockname USER X " " : $+ $+([,,$botnick,,]) Channel Information System GeceAktif
}
on *:sockread:botnet: {
  if !$sock($sockname) { echo -a Baglanti Koptu! | halt }
  var %q
  sockread %q
  tokenize 32 %q
  if $1 == PING {
    sw $sockname PONG $2
  }
  if $2 == 376 {
    sw $sockname oper $opers
    sw $sockname join 0
    sw $sockname nick $botnick
    sw $sockname nick $botpass
    sw $sockname umode +c
    .timer 0 1 sw $sockname list
  }
  if ($2 == 322) {
    if ($5 >= 2) { sw $sockname sajoin $4 }
    if ($5 == 1) { sw $sockname part $4 }
  }
  if ($2 == join) {
    var %nick $right($token($1,1,33),-1),%chan $right($3,-1)
    if (%nick != GLOBAL) {
      set -e %nick [ $+ [ %chan ] ] %nick | sw $sockname privmsg chanserv info %chan
    }
  }
  if ($2 == NOTICE) {
    if $regex($4-,The channel) { sw $sockname notice %nick [ $+ [ $strip($6) ] ] $6 Kanalı kayıtsız }
    if ($right($4,-1) == ***) && $regex($strip($5),^#) { sw $sockname notice %nick [ $+ [ $strip($5) ] ] $5 Kanalı kayıtlı | set -e %kytchn $strip($5) }
    if $right($4,-1) == Founder { sw $sockname notice %nick [ $+ [ %kytchn ] ]  %kytchn  Kanalı sahibi: $6 }
    if $right($4,-1) == Registered { sw $sockname notice %nick [ $+ [ %kytchn ] ] Kayıt tarihi: $6-7 }
    if $right($4-5,-1) == Last Opping { sw $sockname notice %nick [ $+ [ %kytchn ] ] Son Duzenleme: $7-8 }
    if $right($4-5,-1) == Last Topic { sw $sockname notice %nick [ $+ [ %kytchn ] ] Kanal Topici: $7- }
    if $right($4,-1) == ModeLock { sw $sockname notice %nick [ $+ [ %kytchn ] ] Kanal modları: $6 }
    if $right($4,-1) == Options { sw $sockname notice %nick [ $+ [ %kytchn ] ] Kanal ayarlari: $6- }
    if $right($4,-1) == MemoLevel { sw $sockname notice %nick [ $+ [ %kytchn ] ] Memo seviyesi: $6 }
    if $right($4,-1) == *** && $5-7 == End of info { sw $sockname notice %nick [ $+ [ %kytchn ] ] Kanal Bilgisi sonu }
  }
}


GeceAktif 01 Mart 2012 14:20

Cevap: Bu Kodu SockBot dan Çıkartabilirmisiniz ?
 
Arkadasım SockBot İstemiyorum. Bune Allah Aşkına :)

Narsinha 01 Mart 2012 14:29

Cevap: Bu Kodu SockBot dan Çıkartabilirmisiniz ?
 
Bu Kodun SockBot dan Çıkmasını İstiyorum Yapan Arkadaşa Teşekkür Ederim..

Diyince bende yukardaki kod unreal Cr ye göre düzenlenecek sandım.Cr socket kanal bilgi sistemi yazdığım.

GeceAktif 01 Mart 2012 15:24

Cevap: Bu Kodu SockBot dan Çıkartabilirmisiniz ?
 
Ben O Kodu CR De Çalıştırıyorum KOnuyu Nerden Nereye Çektiniz Yapamıyorsanız Hiç Msj Yazmayın


Konu Kapanabilir IF den Hiç Bişe OLmaz Yönetim Denilen Brşey Bile Yok

SiLuet 01 Mart 2012 15:32

Cevap: Bu Kodu SockBot dan Çıkartabilirmisiniz ?
 
Alıntı:

GeceAktif Nickli Üyeden Alıntı (Mesaj 1041047189)
Ben O Kodu CR De Çalıştırıyorum KOnuyu Nerden Nereye Çektiniz Yapamıyorsanız Hiç Msj Yazmayın


Konu Kapanabilir IF den Hiç Bişe OLmaz Yönetim Denilen Brşey Bile Yok

Derdinizi Açıkça İfade edemiyorsanız Yönetimi veya size Yardım etmeye Çalışan Herhangi birini Suçlamaya Hakkınız Yok.

Daha Önce Açılan Sorunlara Bakarsanız,yönetim varmı yokmu Yardım ediliyormu Edilmiyormu Görürsünüz.Bundan Sonraki Sorununuzda Açık Bir ifade kullanmanızı Tavsiye ederim.
Konu kapatılmıştır.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 00:45.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net