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

>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Arama Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 21 Haziran 2010, 10:31   #2
Çevrimdışı
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

 

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


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler Arama
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 Botu Eropa Eggdrop, NeoStats, BNC 6 22 Kasım 2018 21:52
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
SMS Botu Yardım Lütfen OzAn Eggdrop, NeoStats, BNC 7 28 Mart 2006 05:48