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/)

- TCL Scriptler (https://www.ircforumlari.net/tcl-scriptler/)

- - Radyo Kick Botu (https://www.ircforumlari.net/tcl-scriptler/250207-radyo-kick-botu.html)

xBaRaN

02 Eylül 2009 02:57

Radyo Kick Botu

ArkadaşLar Merhaba Ben Servereme 7/24 Yayınlı Radyo Kurdum Ama KıckLemeleri Panelden Deılde Serverden Yapmak Istıyorum .. BUNUN ıle ilgiili .kick Yaptıgımız zaman auto yayını kıckleyıp dj ye yayın veren bı bot var onun tcl sı hakkında bılgısı olan varsa paylaşırsa cok ama cok sevınıcem Şimdiden Çok teşekkur ederım

GhostLy

02 Eylül 2009 09:10

Cevap: Radyo Kick Botu

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] adresinden indirebilirsiniz..

BaharGulu

02 Eylül 2009 10:29

Cevap: Radyo Kick Botu

nasıl çalışıyor bu çalışmadı bi türlü ?

xBaRaN

04 Eylül 2009 01:31

Cevap: Radyo Kick Botu

Alıntı:

BaharGulu Nickli Üyeden Alıntı (Mesaj 793472)

nasıl çalışıyor bu çalışmadı bi türlü ?

Malesef bende yapamadım GhostLy yıne de cok tsk ederım ama nasıl çalışıyor çalıştıramadım

GhostLy

04 Eylül 2009 04:13

Cevap: Radyo Kick Botu

@ olmayı denediniz mi?

xBaRaN

05 Eylül 2009 04:22

Cevap: Radyo Kick Botu

Evet Denedım ama olmadı gereklı butun bılgılerıde yazdım ama bot yayını kıcklemedı

BuCaLI

05 Eylül 2009 11:09

Cevap: Radyo Kick Botu

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] burada mesajımda bi kod yazmıştım bi deneyin hala çalışıyorsa.

xBaRaN

07 Eylül 2009 13:32

Cevap: Radyo Kick Botu

Evet Bucalı Senın Verdıgın Tcl Botu Ile Calıştı saolasın bu arada yardımcı olan Erdala da cok tesekkur ederım.. Bilgileırn ıcınde saol BucaLı

erd200

11 Ekim 2009 15:54

Cevap: Radyo Kick Botu

Bucali kodlar için Teşekkürler. Fakat bende çalıştıramadım. Bot servere giriyor. !kickradyo yazıyorum @ iken, Yayını düşürmüyor. Bu kodu ip adresimizi portumuzu admin adını ve şifresini kendimiz yazacak şekilde düzenleyebilir miyiz. Şimdiden teşekkürler.

eLsukr

15 Kasım 2014 10:36

Cevap: Radyo Kick Botu

oto radyodan değilde yayındaki dj yi kickleyebilme tcl si varmı ?

SeckiN

15 Kasım 2014 10:43

Cevap: Radyo Kick Botu

Kod:

##Buraya Radyonun İp Adresini Yazın..

set ip "31.210.155.94"

##Buraya Radyonun Portunu Yazın..

set port "4237"

##Buraya Radyonun Şifresini Yazın..

set pass "ruzgarfmm"

##Buraya Radyonun Admin Şifresini Yazın..

set adminpass "ruzgarfmm"

## Buraya Komutun Geçerli Olacağı Kanalı Yazın..

set kickkanal "#Dj"

## Başkada Birşeye Dokunmuyoruz. Gerisini Ben Hallederim ;)
 

bind pub - !kickradyo kickradyo

proc kickradyo {nick host handle chan arg} {

global ip port pass adminpass kickkanal

if {$chan != $kickkanal} {return 0}

set sock [socket [duzelt $ip] [duzelt $port]]

puts $sock "GET /admin.cgi?pass=[duzelt $pass]&mode=kicksrc&pass=[duzelt $adminpass] HTTP/1.0"

puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"

puts $sock "Host: $ip"

puts $sock "Connection: close"

puts $sock ""

flush $sock

close $sock

putserv "PRIVMSG #Dj :12Radyo Yayını Düşürülmüştür.. Lütfen Yayını Alınız.."

}
 

proc duzelt { a } {

regsub -all {\}} $a "" a

regsub -all {\{} $a "" a

regsub -all {\;} $a "" a

regsub -all {\*} $a "" a

regsub -all " " $a "" a

return $a

}
 

######kickradyo.tcl#########

eLsukr

15 Kasım 2014 12:00

Cevap: Radyo Kick Botu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardeşim bilmiyorum ama sanırım bu oto yayından düşürme, çünkü yayın düşürüldü diyor ama düşmüyor
[11:59:30:][15:11:2015] <Deneme> !kickradyo
[11:59:31:][15:11:2015] <Radyo> Radyo Yayını Düşürülmüştür.. Lütfen Yayını Alınız..

ama yayındaki dj yi düşüremiyor.

SeckiN

15 Kasım 2014 12:11

Cevap: Radyo Kick Botu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] üstad oto dj whm sonic mi? Aynı sorunu bende yaşamıştım zamanında. Whm Sonic'te cpanel oto dj kontrol paneli var. Ordan kick atabilirsiniz. Eğer istersen Socks tabanlı bot ile bunu yapabilirsin. Ben sorunu öyle çözmüştüm. Koruma botuma eklediğim kod ile sorunu çözmüştüm.

Kod:

alias .host {

  return 31.210.155.75

}

alias .port {

  return 4237

}

alias .adminpass {

  return askbirfmm

}

alias .sock {

  return shoutcast

}

on 1:SOCKOPEN:$($.sock): {

  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$.adminpass,&mode=kicksrc HTTP/1.1)

  sockwrite -n $sockname Host: $+($.host, :, $.port)

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8

  sockwrite -n $sockname Keep-Alive: 300

  sockwrite -n $sockname Connection: keep-alive

  sockwrite -n $sockname $crlf

}

alias sessiz {

  if $sock(shoutcast) {

    sockclose $ifmatch

  }

  sockopen $.sock $.host $.port

}

on 1:text:*:#dj:{

  if *!djkick* iswm $1- {

    sessiz

    msg #dj 0,1 8 Çatlama Gardaş Düşürdük işte ? 

  }

}

Bu kod ile düşürebilirsin yayını.

eLsukr

15 Kasım 2014 12:19

Cevap: Radyo Kick Botu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kardeşim oto radyom yokki :) yayındaki dj ofline oldugunda, diğer dj kanala geldiğinde yayındaki dj yi düşürebilmesi için istemiştim

SeckiN

15 Kasım 2014 12:22

Cevap: Radyo Kick Botu

Alıntı:

eLsukr Nickli Üyeden Alıntı (Mesaj 1041542457)

Ben Radyo'nu oto dj olarak anladım kardeş. Yayını bu tcl ile kickliyordum ben. Bizzat bakmak isterdim fakat iş yerinde'ki pc'ye birşey yükleyemiyorum. Yardımcı olacak elbet bi arkadaş çıkar diye düşünüyorum.

eLsukr

16 Kasım 2014 11:46

Cevap: Radyo Kick Botu

İnşeAllah yardımcı olan olur .

SeckiN

18 Kasım 2014 16:12

Cevap: Radyo Kick Botu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] birde bu tcl denermisin üstad. Admin pass'ının doğru olduğuna emin ol. Bakalım sonuç vericek mi.

Kod:

set kickkanal "#DJ"
 

bind pub - !djat kick
 

proc kick {nick host handle chan arg} {

global ip port adminpass kickkanal

if {$chan != $kickkanal} {return 0}
 

# asagisi radyo IP 'si olcak.

set ip "33.33.22.22"

# simdi de portunu yaz.

set port "8080"

# admin pass veya kullanmiyosan yayin sifren

set adminpass "sifrem33"
 

set sock [socket [duzelt $ip] [duzelt $port]]

puts $sock "GET /admin.cgi?pass=[duzelt $adminpass]&mode=kicksrc 

HTTP/1.0"

puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; 

rv:0.9.9)"

puts $sock "Host: $ip"

puts $sock "Connection: close"

puts $sock ""

flush $sock

close $sock

putserv "PRIVMSG #DJ :Yayindaki DJ dusuruldu, lutfen yayini aliniz. Komutu gereksiz kullanmanizin tespit edilmesi halinde yetkilerinizin alinabilecegini unutmayiniz..."

}
 

proc duzelt { a } {

regsub -all {\}} $a "" a

regsub -all {\{} $a "" a

regsub -all {\;} $a "" a

regsub -all {\*} $a "" a

regsub -all " " $a "" a

return $a

}

eLsukr

18 Kasım 2014 20:29

Cevap: Radyo Kick Botu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kardeşim hiç bir yanıt vermiyor de düşürüyor ne de mesaj geliyor, diğeri düşürmesede en azından mesaj gönderiyordu #Dj ye :-)

SeckiN

18 Kasım 2014 20:31

Cevap: Radyo Kick Botu

Vay arkadaş nasıl iştir bu :D @¿ üstad bu tcl lerde ne hatası var acaba?

eLsukr

19 Kasım 2014 20:26

Cevap: Radyo Kick Botu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardeşim sen denedin mi bu tcl yi :)

SeckiN

19 Kasım 2014 20:31

Cevap: Radyo Kick Botu

Evet kullanmıştım ben bunları @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] anlayamadım neden çalışmadığını. Aşağıda verdiğim kodu sunucu koruma botunun remote kısmına ekle işlev görecektir.

Kod:

alias .host {

  return 31.210.155.75

}

alias .port {

  return 4237

}

alias .adminpass {

  return askbirfmm

}

alias .sock {

  return shoutcast

}

on 1:SOCKOPEN:$($.sock): {

  sockwrite -n $sockname GET $+(/admin.cgi?pass=,$.adminpass,&mode=kicksrc HTTP/1.1)

  sockwrite -n $sockname Host: $+($.host, :, $.port)

  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040614 Firefox/0.8

  sockwrite -n $sockname Keep-Alive: 300

  sockwrite -n $sockname Connection: keep-alive

  sockwrite -n $sockname $crlf

}

alias sessiz {

  if $sock(shoutcast) {

    sockclose $ifmatch

  }

  sockopen $.sock $.host $.port

}

on 1:text:*:#dj:{

  if *!djkick* iswm $1- {

    sessiz

    msg #dj 0,1 8 Çatlama Gardaş Düşürdük işte ? 

  }

}

eLsukr

20 Kasım 2014 17:35

Cevap: Radyo Kick Botu

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardeşim saol tşk ederim gösterdiğin çaba için ama sunucu o kadar geniş deği koruma botu dj odasında yok, gerek yok yani, sadece sohbet odasında :) radyoyuda kcklemeyelim. Yinede tesekkür ederim kardeşim , başka zaman tüm kanallara alırsak korumayı eklerim inşeAllah.

HostBuldum

09 Mart 2015 13:16

Cevap: Radyo Kick Botu

Sorunu devam edenler kullanabilir. Kick kısmını editledim umarım faydası dokunur.

Kod:

##Buraya Radyonun İp Adresini Yazın..

set ip "ipadresi"

##Buraya Radyonun Portunu Yazın..

set port "port"

##Buraya Radyonun Şifresini Yazın..

set pass "şifre"

##Buraya Radyonun Admin Şifresini Yazın..

set adminpass "adminşifresi"

## Buraya Komutun Geçerli Olacağı Kanalı Yazın..

set kickkanal "#Dj"
 

bind pub - !kickradyo kickradyo

proc kickradyo {nick host handle chan arg} {

global ip port pass adminpass kickkanal

if {$chan != $kickkanal} {return 0}

set sock [socket [duzelt $ip] [duzelt $port]]

puts $sock "GET /admin.cgi?mode=kicksrc HTTP/1.0"

puts $sock "User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:0.9.9)"

puts $sock "Host: $ip"

puts $sock "Connection: close"

puts $sock ""

flush $sock

close $sock

putserv "PRIVMSG #Dj :4,1Radyo Yayını Düşürülmüştür. Lütfen Yayını Alınız."

}
 

proc duzelt { a } {

regsub -all {\}} $a "" a

regsub -all {\{} $a "" a

regsub -all {\;} $a "" a

regsub -all {\*} $a "" a

regsub -all " " $a "" a

return $a

}

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