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

Sayfa 2 Toplam 3 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster

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)

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

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

Sayfa 2 Toplam 3 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster