Addrew
Narys
Pulkininkas
Pranešimai: 418
Įstojęs: 2010 Spa. 26 13:10:47
Sveiki, gal galite padėti, na tiksliau padaryti, sutvarkyti radijos kodą, kad veiktų.
Na pasakyčiau visus duomenis tik tam žmogui kuris padėtų, ir aišku, ne kokiam vagiui.
openside("Eteryje");
$server2 = "222.222.222.222"; //Radijos serverio IP
$server2port = "8888"; //Radijos portas
$server2pass = "slaptazodis"; //Radijos slaptazodis
$dateix = fsockopen("$server2", $server2port, &$errno, &$errstr);
if( !$dateix )
{
echo "<font face='Verdana' size='2' color='black'><b>Serveris ISJUNGTAS!<b/></font><br>";
fclose($dateix);
}
else
{
fputs($dateix,"GET /admin.cgi?pass=$server2pass&mode=viewxml HTTP/1.0\r\nUser-Agent: Mozilla/4.0 (compatible; MSIE 4.01; Windows NT;)\r\n\r\n");
while (!(feof($dateix)))
{
$zeilex .= fgets($dateix, 4096);
}
fclose($dateix);
}
$tmpx = explode("<CURRENTLISTENERS>", $zeilex);
$tmpx = explode("</CURRENTLISTENERS>", $tmpx[1]);
$server2lauscher = $tmpx[0];
$pl2 = " ";
$tmpx = explode("<SERVERGENRE>", $tmpx[1]);
$tmpx = explode("</SERVERGENRE>", $tmpx[1]);
$tmp2x = explode("+", $tmpx[0]);
$nick2 = $tmp2x[0];
if(count($tmp2x) == 2)
$pl2 = $tmp2x[1];
$tmpx = explode("<SERVERTITLE>", $tmpx[1]);
$tmpx = explode("</SERVERTITLE>", $tmpx[1]);
$server2title = $tmpx[0];
$tmpx = explode("<SONGTITLE>", $tmpx[1]);
$tmpx = explode("</SONGTITLE>", $tmpx[1]);
$song2title = $tmpx[0];
$tmpx = explode("<STREAMSTATUS>", $tmpx[1]);
$tmpx = explode("</STREAMSTATUS>", $tmpx[1]);
$stream2status = $tmpx[0];
//Foto nustatymai. Kas eteryje rodo foto
if($server2title == 'serveris') //ce rasyti kaip yra pasidares dj GENRE geriausia kad butu vienas zodis pvz serveris
echo "<center><img src='komanda/serveris.gif' border='2' width='128' height='95'></center><br>";
if ($stream2status == "1")
{
//Kas eteryje
echo "<font face='Verdana' size='2' color='black'><center><b> $server2title</font></b></center><br><br>";
//Ka serveris groja
if ($pl2 =="")
{
echo "";
}
else
{
echo "<a href=\"";
echo "$pl2";
echo "\" target=\"_blank\"></a>";
}
//Was wird gespielt?
echo "<font face='Verdana' size='2'
<MARQUEE scrolldelay='1' SCROLLAMOUNT='1' onmouseover='this.stop()' onmouseout='this.start()' direction='left' height='20' width='170'>
$song2title</font></MARQUEE>";
echo "<font face='Verdana' size='3' color='red'>
<center><b>Klausytis:</b><br><a href='http://$server2:$server2port/listen.pls'><img src='images/Winamp2.png' border='0' width='50' height='50'> <a href='http://$server2:$server2port/listen.pls'><img src='images/w_m_p.png' border='0' width='50' height='50'></center>";
}
//Jeigu niekas nera prisijunges i etery
else
{
echo "<font face='Verdana' size='3' color='red'><center>Netransliuojama</font></center>
";
}
closeside();
www.Gyvunija.net - Pasinerk į gyvūnijos pasaulį!
pauliuzas96
Narys
Nuolatinis
Pranešimai: 163
Įstojęs: 2009 Lap. 14 20:11:32
openside( "Eteryje" ) ;
$server2 = "222.222.222.222" ; //<b>Radijos serverio IP</b>
$server2port = "8888" ; //<b>Radijos portas</b>
$server2pass = "slaptazodis" ; //<b>Radijos slaptazodis</b>
$dateix = fsockopen ( "$server2 " , $server2port , & $errno , & $errstr ) ;
if ( ! $dateix )
{
echo "<font face='Verdana' size='2' color='black'><b>Serveris ISJUNGTAS!<b/></font><br>" ;
fclose ( $dateix ) ;
}
else
{
fputs ( $dateix , "GET /admin.cgi?pass=$server2pass &mode=viewxml HTTP/1.0\r \n User-Agent: Mozilla/4.0 (compatible; MSIE 4.01; Windows NT;)\r \n \r \n " ) ;
while ( ! ( feof ( $dateix ) ) )
{
$zeilex .= fgets ( $dateix , 4096 ) ;
}
fclose ( $dateix ) ;
}
$tmpx = explode ( "<CURRENTLISTENERS>" , $zeilex ) ;
$tmpx = explode ( "</CURRENTLISTENERS>" , $tmpx [ 1 ] ) ;
$server2lauscher = $tmpx [ 0 ] ;
$pl2 = " " ;
$tmpx = explode ( "<SERVERGENRE>" , $tmpx [ 1 ] ) ;
$tmpx = explode ( "</SERVERGENRE>" , $tmpx [ 1 ] ) ;
$tmp2x = explode ( "+" , $tmpx [ 0 ] ) ;
$nick2 = $tmp2x [ 0 ] ;
if ( count ( $tmp2x ) == 2 )
$pl2 = $tmp2x [ 1 ] ;
$tmpx = explode ( "<SERVERTITLE>" , $tmpx [ 1 ] ) ;
$tmpx = explode ( "</SERVERTITLE>" , $tmpx [ 1 ] ) ;
$server2title = $tmpx [ 0 ] ;
$tmpx = explode ( "<SONGTITLE>" , $tmpx [ 1 ] ) ;
$tmpx = explode ( "</SONGTITLE>" , $tmpx [ 1 ] ) ;
$song2title = $tmpx [ 0 ] ;
$tmpx = explode ( "<STREAMSTATUS>" , $tmpx [ 1 ] ) ;
$tmpx = explode ( "</STREAMSTATUS>" , $tmpx [ 1 ] ) ;
$stream2status = $tmpx [ 0 ] ;
//Foto nustatymai. Kas eteryje rodo foto
if ( $server2title == 'serveris' ) //ce rasyti kaip yra pasidares dj GENRE geriausia kad butu vienas zodis pvz serveris
echo "<center><img src='komanda/serveris.gif' border='2' width='128' height='95'></center><br>" ;
if ( $stream2status == "1" )
{
//Kas eteryje
echo "<font face='Verdana' size='2' color='black'><center><b> $server2title </font></b></center><br><br>" ;
//Ka serveris groja
if ( $pl2 == "" )
{
echo "" ;
}
else
{
echo "<a href=\" " ;
echo "$pl2 " ;
echo "\" target=\" _blank\" ></a>" ;
}
//Was wird gespielt?
echo "<font face='Verdana' size='2'
<MARQUEE scrolldelay='1' SCROLLAMOUNT='1' onmouseover='this.stop()' onmouseout='this.start()' direction='left' height='20' width='170'>
$song2title </font></MARQUEE>" ;
echo "<font face='Verdana' size='3' color='red'>
<center><b>Klausytis:</b><br><a href='http://$server2 :$server2port /listen.pls'><img src='images/Winamp2.png' border='0' width='50' height='50'> <a href='http://$server2 :$server2port /listen.pls'><img src='images/w_m_p.png' border='0' width='50' height='50'></center>" ;
}
//Jeigu niekas nera prisijunges i etery
else
{
echo "<font face='Verdana' size='3' color='red'><center>Netransliuojama</font></center>
" ;
}
closeside( ) ;
Štai tau jugi yra viskas išaiškinta. Taip.
Addrew
Narys
Pulkininkas
Pranešimai: 418
Įstojęs: 2010 Spa. 26 13:10:47
Kam tu man tą kodą numeti, aš tik laukiu žmonių kruie padarytų tą kodą pagal mane, nes man neišeina.www.Gyvunija.net - Pasinerk į gyvūnijos pasaulį!
pauliuzas96
Narys
Nuolatinis
Pranešimai: 163
Įstojęs: 2009 Lap. 14 20:11:32
Onlaineris parašė:
Kam tu man tą kodą numeti, aš tik laukiu žmonių kruie padarytų tą kodą pagal mane, nes man neišeina.
Priimk i skype... Paaiskinsiu... Taip.
Peršokti į forumą:
Nebeegzistuojančios svetainės
Žaliems
Bendri PHP-F klausimai
WordPress
Kiti PHP, HTML, MySQL klausimai
Expert PHP, MySQL klausimai
Kitos TVS
C#, Python, Java, JS, C++ klausimai
Naujų modų pristatymai
Mods, Panels & Infusions
Themes
Jūsų saitai
Dalinuosi, dovanoju!
Klausimai apie domenus ir hostingus
VPS/DS serverių konfigūravimas ir valdymas
Viskas apie skaitliukus, top'us ir lankomumą
Dizaino konkursai
Parduodu - perku dizainą, banerį
Parduodu - perku - keičiuosi reklama
Parduodu - perku domeną, tinklapį
Siūlau - ieškau hostingo/VPS serverio
Parduodu - perku skriptą, modifikaciją, tvs
Socialiniai tinklai - Facebook ir kiti
Legalus verslas, teisiniai klausimai
Visa kita kas susiję su darbu ir pinigais
LTStartups.com - Lietuvos startuolių bendruomenė
Off-Topic diskusijos
IT naujienos
Portalo informacija
Narių pasiūlymai
Geležis ir programinė įranga
Grafika
Out Of Place
Su e-verslu nesusijęs darbas ir prekyba
Dalinuosi, dovanoju!