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

>
+
Etiketlenen Kullanıcılar

1Beğeni(ler)
  • 1 Post By LaStsamuRai

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 29 Ağustos 2010, 14:22   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Radyo.tcl dinleyici yükseltme yardim




Selam arkadaşalar ..aşağıdaki koda göre dinleci sayısını nasıl sabıt göstere bilirim...

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
<? $host = "111.111.111.11"; $port = "0000"; $fp = @fsockopen($host, $port, $errno, $errstr, 01); if(!$fp) { $status = "17"; }else{ fputs($fp,"GET /7.html HTTP/1.0\r\nUser-Agent: XML Getter (Mozilla Compatible)\r\n\r\n"); while(!feof($fp)) { $page .= fgets($fp, 1000); } fclose($fp); $page = ereg_replace(".*<body>", "", $page); $page = ereg_replace("</body>.*", ",", $page); $numbers = explode(",",$page); $currentlisteners=$numbers[0]; $connected=$numbers[1]; $peaklisteners=$numbers[2]; $maxlisteners=$numbers[3]; $reportedlisteners=$numbers[4]; $bit=$numbers[5]; $song=$numbers[6]; if($connected==0) { $status = "Not Connected"; }else{ $status = "Online"; } } if($image == "true") { header("Content-type: image/png"); if($status == "Online") { $im = imagecreatefrompng("thugie.png"); $background_color = imagecolorallocate($im, 10, 10, 10); $text_color = imagecolorallocate($im, 20, 200, 20); imagestring($im, 3, 2, 1, "Server Status: Server is currently up and streaming.", $text_color); imagestring($im, 3, 2, 15, "Stream Status: Stream is up at $bit kbps with $currentlisteners of $maxlisteners listeners ($reportedlisteners unique)", $text_color); imagestring($im, 3, 2, 30, "Listener Peak: " . $peaklisteners, $text_color); imagestring($im, 3, 2, 45, "Current Song: " . $song, $text_color); imagepng($im); }else{ if($status == "17"){ $im = imagecreatefrompng("thugie.png"); $background_color = imagecolorallocate($im, 10, 10, 10); $text_color = imagecolorallocate($im, 20, 200, 20); imagestring($im, 3, 2, 1, "Server Status: Server is currently 17.", $text_color); imagestring($im, 3, 2, 15, "Stream Status: Stream is up at 0 kbps with 0 of 0 listeners (0 unique)", $text_color); imagestring($im, 3, 2, 30, "Listener Peak: 0", $text_color); imagestring($im, 3, 2, 45, "Current Song: None", $text_color); imagepng($im); }else{ if($status == "Not Connected") { $im = imagecreatefrompng("thugie.png"); $background_color = imagecolorallocate($im, 10, 10, 10); $text_color = imagecolorallocate($im, 20, 200, 20); imagestring($im, 3, 2, 1, "Server Status: Server is currently up and not streaming.", $text_color); imagestring($im, 3, 2, 15, "Stream Status: Stream is up at $bit kbps with $currentlisteners of $maxlisteners listeners ($reportedlisteners unique)", $text_color); imagestring($im, 3, 2, 30, "Listener Peak: " . $peaklisteners, $text_color); imagestring($im, 3, 2, 45, "Current Song: " . $song, $text_color); imagepng($im); }}}}else{ ?>


 
Alıntı ile Cevapla

 

Etiketler
dinleyici, radyotcl, yardim, yükseltme


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

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 dinleyici kayit sistemi Set mIRC Scripting Hazır Kodlar 18 15 Mart 2020 17:27
radyo tcl dinleyici nick S-LiveBiz TCL Scriptler 25 01 Temmuz 2019 16:22
radyo.tcl de dinleyici Sayısı nasıl arttırılır ? o1KnoppiX TCL Scriptler 12 02 Mart 2013 03:42
Radyo Dinleyici Küsqün Eggdrop, NeoStats, BNC 7 23 Şubat 2010 09:47
Radyo Dinleyici Sayısı Artırma CanDostu Eggdrop, NeoStats, BNC 9 22 Şubat 2010 04:47