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

8Beğeni(ler)
  • 2 Post By Narsinha
  • 6 Post By SiLuet

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

 

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 29 Şubat 2012, 17:44   #2
Çevrimdışı
fav
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 

Alt 29 Şubat 2012, 17:50   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 

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

 

Alt 01 Mart 2012, 13:27   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu Kodu SockBot dan Çıkartabilirmisiniz ?




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 } } }


 

Alt 01 Mart 2012, 14:20   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu Kodu SockBot dan Çıkartabilirmisiniz ?




Arkadasım SockBot İstemiyorum. Bune Allah Aşkına
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

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

 

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

 

Alt 01 Mart 2012, 15:32   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bu Kodu SockBot dan Çıkartabilirmisiniz ?




GeceAktif Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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.

 

Konu Kapatılmıştır

Etiketler
çıkartabilirmisiniz, dan, kodu, sockbot


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
Sockbot Yardım.. kup{a}pazl mIRC Scripting Sorunları 4 14 Mayıs 2010 12:31
sockbot yardım ! chatsev mIRC Scripting Sorunları 2 23 Mayıs 2009 20:40
Radyo SockBot icin Cybersoft mIRC Scripting Sorunları 6 08 Mart 2009 20:29
SockBot RedLine mIRC Scripting Sorunları 2 12 Ocak 2008 03:16
SockBot koruma local mIRC Scripting Sorunları 5 30 Kasım 2007 21:57