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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 21 Haziran 2010, 10:21   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Radyo Botu Lütfen




mIRCScripting Koruma Botuma Radyo Cod'u eklemek istiyorum

Elimiz !durum !link !istek veren Codumuz var ise Paylaşabilirmisiniz.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 21 Haziran 2010, 10:31   #2
Çevrimdışı
~ IRCTR.Org ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo Botu Lütfen




PHP Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias radyo {  
  if ($
== $null) { echo -a Radyo Adı Yazın (Örn radyo.turkcoders.com:2525) | halt }   
  if (: 
isin $1) {  
    
tokenize 58 $1   
    sockopen radyo 
$$2  
    set 
%site $$2  
  
}  
  else { 
sockopen radyo $1- | set %site $1- }  
}  
on *:SockOpen:radyo:{  
  if (
$sockerr 0) return     
  
sockwrite -tn $sockname GET HTTP/1.1  
  sockwrite 
-tn $sockname $crlf  
}  
on *:Sockread:radyo:{  
  if (
$sockerr 0) return     
  
sockread %radyo  
  
if (icy-name isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) }  
  if (
icy-genre isin %radyo) { set %radyo2 %radyo2 ¿ $gettok(%radyo,2,58) }   
  if (
icy-url isin %radyo) {  set %radyo2 %radyo2 ¿ $remove(%radyo,icy-url:) | sockclose radyo radyo2 }  
}  
on *:Sockclose:radyo:radyo2  
alias radyo2 
sockopen radyo2 %site | unset %site }  
on *:SockOpen:radyo2:{  
  if (
$sockerr 0) return     
  
sockwrite -tn $sockname GET /7.html HTTP/1.0  
  sockwrite 
-tn $sockname User-AgentMozilla  
  sockwrite 
-tn $sockname  
}  
on *:Sockread:radyo2:{  
  if (
$sockerr 0) return     
  var %
z  
  sockread 
%z  
}  
on *:SockClose:radyo2:{   
  
sockread -%radyo  
  
var %z $remove(%radyo,<HTML><meta http-equiv="Pragma" content="no-cache"></head><body>,</body
<!-- 
Mirrored from 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">.
mIRCFox.Com/.?sayfa=dokuman_oku&id=54 by HTTrack Website Copier/3.x [XR&CO2006], Wed25 Oct 2006 17:57:19 GMT --> 
</
html>)  
  var %
i $numtok(%z,44)  
  while %
{  
    
set %radyo2 %radyo2 ¿ $gettok(%z,%i,44)  
    
dec %i  
  
}  
  
tokenize 168 %radyo2  
  gostert  
  
unset %radyo2  
  
unset %radyo  
}  
alias -l gostert {  
  
tokenize 191 %radyo2  
  
; $Dj in Yazdığı İsim  
  
; $Genre  
  
; $URL  
  
; $ÇaLan Parça  
  
; $Şarkı Kalitesi  
  
; $Dinleyici Sayısı  
  
; $MaxDinleyici Sayısı  
  
; $& $DinLeyici Rekoru  
  
; $10 Ne oLduunu biLmiOm   
  
echo -a İsim : $1  
  
echo -a Genre : $2  
  
echo -a URL : $3  
  
echo -a ÇaLan Parça : $4  
  
echo -a Şarkı KaLiteSi : $5  
  
echo -a DinLeyici Sayısı : $6  
  
echo -a MaxDinleyici Sayısı : $7  
  
echo -a DinLeyici Rekoru : $& $9  



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

__________________

Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
google_ad_section_end -->

Konu DaDaS tarafından (21 Haziran 2010 Saat 10:38 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
botu, lütfen, mirc, mirc download, mirc indir, radyo


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
Radyo .tcl Botu KuL Eggdrop, NeoStats, BNC 2 04 Şubat 2012 22:41
radyo botu SuperX Eggdrop, NeoStats, BNC 5 30 Ekim 2011 19:52
Radyo Botu ByQuIeT Eggdrop, NeoStats, BNC 1 03 Temmuz 2010 13:51
Radyo botu lazım SpLack Eggdrop, NeoStats, BNC 6 05 Ocak 2010 02:33