radyo bilgilerini sock ile alma - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

cashmare · 29 Temmuz 2012, 22:18

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias .host {
  return ip
}
alias .port {
  return port
}
alias .sock {
  return shoutcast
}
on *:sockopen:$($.sock): {
  sockwrite -n $sockname GET $+(/ 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 radyoal {
  if $sock(shoutcast) {
    sockclose $ifmatch
  }
  sockopen $.sock $.host $.port
}
on *:sockread:$($.sock): {
  var %radyobilgi
  sockread %radyobilgi
  echo -a %radyobilgi
  if (%radyobilgi != $null) { 
    if (*stream title* iswm %radyobilgi) { msg #xx $remove(%radyobilgi,<font class=default>Stream Title: </font></td><td><font class=default><b>,</b></td></tr><tr><td, ) }
  }
}

s.a arkadaşlar yukardaki code ile radyo bilgilerini alıp #xx kanalına yansıtmak istiyorum fakat #xx kanalına stream title : XradyoFm
mesela yukardaki code ile #xx kanalına Sadece xradyofm i yazdırmak istiyorum ama tüm hepsini yazıyor.. yani html kodlarını silmiyor.
bi türlü beceremedim yardımcı olurmusunuz.

Difuzyon · 30 Temmuz 2012, 00:20

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;)   
  return %x
}

$htmlfree(%radyobilgi) ile satırda geçen tag aralıkları temizlenmiş olur.

cashmare · 30 Temmuz 2012, 00:27

Difuzyon Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;)   
  return %x
}

$htmlfree(%radyobilgi) ile satırda geçen tag aralıkları temizlenmiş olur.

tşk ederim difuzyon peki sayfanın kaynak kodunda
birden fazla stream keliemsi geçiyor mesela stream title stream url v.s
diye
ben

if (*stream*title* iswm %radyobilgi)

böyle ekledigim zaman ne kadar stream geçen varsa hepsini yolluyo sdece stream title yi alması için ne yapmam gerekiyor

SHOUTcast Administrator U SHOUTcast D.N.A.S. Status SHOUTcast Server Version 1.9.8/Linux Status | Song History | Listen | Stream URL | Admin Login Current Stream Information Server Status: Server is currently up and public. Stream Status: Stream is up at 64 kbps with 39 of 400 listeners (37 unique) Listener Peak: 56 Average Listen Time: 1h35m33s Stream Title: RadyoEce Content Type: audio/mpeg Stream Genre: Her Telden Stream URL: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Stream AIM: N/A Stream IRC: N/A Stream Title:

bu sekilde verdi cıktıyı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

ben stream title : xradyofm yazısını almak istiyorum sadece.

Difuzyon · 30 Temmuz 2012, 00:32

Ayıklanmamış haliyle tüm "stream title" satırlarını kopyalın,inceleyelim.

cashmare · 30 Temmuz 2012, 00:33

Kod: Kodu kopyalamak için üzerine çift tıklayın!

<HTML><HEAD><meta http-equiv="Content-Language" content="en-us"><meta http-equiv="Content-Type" content="text/html; charset=windows-1252"><meta http-equiv="Pragma" content="no-cache"><meta http-equiv="Expires" content="Mon, 01 Jan 1990 12:00:00 GMT"><title>SHOUTcast Administrator</title><style type="text/css"><!--a:link {color: blue; font-family:Arial, Helvetica; font-size:9pt;}a:visited {color: blue; font-family:Arial, Helvetica; font-size:9pt;}a:hover {color: red; font-family:Arial, Helvetica; font-size:9pt; }.default {color: White; font-family:Arial, Helvetica; font-size:9pt; font-weight: normal}.ST {color: White; font-family:Arial, Helvetica; font-size:8pt; font-weight: normal}.logoText {color: red; font-family: Arial Black, Helvetica, sans-serif; font-size: 25pt; font-weight: normal; letter-spacing : -2.5px;}.flagText {color: blue; font-family: webdings; font-size: 36pt; font-weight: normal; }.ltv {color: blue; font-family: Arial, Helvetica, sans-serif; font-size: 9pt; font-weight: normal;}.tnl {color: black; font-family: Arial, Helvetica, sans-serif; font-size: 10pt; font-weight: bold; text-decoration: none;}--></style></HEAD><BODY topmargin=0 leftmargin=0 marginheight=0 marginwidth=0 bgcolor=#000000 text=#EEEEEE link=#001155 vlink=#001155 alink=#FF0000><font class=default><table width=100% border=0 cellpadding=0 cellspacing=0><tr><td height=50><font class=flagText>U</font><font class=logoText>&nbsp;SHOUTcast D.N.A.S. Status</font></td></tr><tr><td height=14 align=right><font class=ltv><a id=ltv href="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Server Version 1.9.8/Linux</a></font></td></tr><tr><td bgcolor=#DDDDDD height=20 align=center><table width=100% border=0 cellpadding=0 cellspacing=0><tr><td align=center><font class=tnl><a id=tnl href="index.html">Status</a></font></td><td align=center><font class=tnl>&nbsp;|&nbsp;</font></td><td align=center><font class=tnl><a id=tnl href="played.html">Song History</a></font></td><td align=center><font class=tnl>&nbsp;|&nbsp;</font></td><td align=center><font class=tnl><a id=tnl href="listen.pls">Listen</a></font></td><td align=center><font class=tnl>&nbsp;|&nbsp;</font></td><td align=center><font class=tnl><a id=tnl href="home.html">Stream URL</a></font></td><td align=center><font class=tnl>&nbsp;|&nbsp;</font></td><td align=center><font class=tnl><a id=tnl href="admin.cgi">Admin Login</a></font></td></tr></table></td></tr></table><br><table cellpadding=5 cellspacing=0 border=0 width=100%><tr><td bgcolor=#000025 colspan=2 align=center><font class=ST>Current Stream Information</font></td></tr></table><table cellpadding=2 cellspacing=0 border=0 align=center><tr><td width=100 nowrap><font class=default>Server Status: </font></td><td><font class=default><b>Server is currently up and public.</b></td></tr><tr><td width=100 nowrap><font class=default>Stream Status: </font></td><td><font class=default><b>Stream is up at 64 kbps with <B>40 of 400 listeners (39 unique)</b></b></td></tr><tr><td width=100 nowrap><font class=default>Listener Peak: </font></td><td><font class=default><b>56</b></td></tr><tr><td width=100 nowrap><font class=default>Average Listen Time: </font></td><td><font class=default><b>1h&nbsp;32m&nbsp;58s</b></td></tr><tr><td width=100 nowrap><font class=default>Stream Title: </font></td><td><font class=default><b>RadyoEce</b></td></tr><tr><td width=100 nowrap><font class=default>Content Type: </font></td><td><font class=default><b>audio/mpeg</b></td></tr><tr><td width=100 nowrap><font class=default>Stream Genre: </font></td><td><font class=default><b>Her Telden</b></td></tr><tr><td width=100 nowrap><font class=default>Stream URL: </font></td><td><font class=default><b><a href="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
width=100 nowrap><font class=default>Stream AIM: </font></td><td><font class=default><b><a href="aim:goim?screenname=N/A">N/A</a></b></td></tr><tr><td width=100 nowrap><font class=default>Stream IRC: </font></td><td><font class=default><b><a href="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
width=100 nowrap><font class=default>Current Song: </font></td><td><font class=default><b>29.Tuba zerk - Aklmda Sen Varsn</b></td></tr></table><br><table cellpadding=0 cellspacing=0 border=0 width=100%>    <tr><td bgcolor=#DDDDDD  nowrap colspan=5 align=center><table cellspacing=0 cellpadding=0 border=0><tr><td><font class=ltv>Written by Stephen 'Tag Loomis, Tom Pepper and Justin Frankel</font></td></tr></table></td></tr><tr><td nowrap colspan=5 align=center><font class=ST><b><a href="
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Nullsoft Inc</a><a href="/llamacookie">.</a> 1998-2004</b></font></td></tr></table></font></body></html>

stream title: isin %radyobilgi
böyle kullansam olmaz degil mi ki olmuyoda
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

yapmak istedigim şey şuı
mesela

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
burdaki
stream title
stream url
v.s bunların karsısındakileri alıp
#radyo kanalına aktarmak

Difuzyon · 30 Temmuz 2012, 01:11

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias .host {
  return 37.123.98.27
}
alias .port {
  return 2121
}
alias .sock {
  return shoutcast
}
on *:sockopen:$($.sock): {
  sockwrite -n $sockname GET $+(/ 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 radyoal {
  if $sock(shoutcast) {
    sockclose $ifmatch
  }
  sockopen $.sock $.host $.port
}
on *:sockread:$($.sock): {
  var %radyobilgi
  sockread %radyobilgi
  if *Server*Version* iswm %radyobilgi {
    if $regex($htmlfree(%radyobilgi),/(Stream Status.+)\sListener Peak/) { msg #radyo $regml(1) }
    if $regex($htmlfree(%radyobilgi),/(Listener Peak.+)\sAverage Listen Time/) { msg #radyo $regml(1) }
    if $regex($htmlfree(%radyobilgi),/(Average Listen Time.+)\sStream Title/) { msg #radyo $regml(1) }
    if $regex($htmlfree(%radyobilgi),/(Stream Title.+)\sContent Type/) { msg #radyo $regml(1) }
    if $regex($htmlfree(%radyobilgi),/(Content Type.+)\sStream Genre/) { msg #radyo $regml(1) }
    if $regex($htmlfree(%radyobilgi),/(Stream Genre.+)\sStream URL/) { msg #radyo $regml(1) }
    if $regex($htmlfree(%radyobilgi),/[^\|]\s(Stream URL.+)\sStream ICQ/) { msg #radyo $regml(1) }
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$chr(32),%x), %x = $remove(%x,&nbsp;)   
  return %x
}

cashmare · 30 Temmuz 2012, 04:02

Tşk ederim difuzyon tamam yalnız Şarkıda calan parçayı almıyor

Kod: Kodu kopyalamak için üzerine çift tıklayın!

    if $regex($htmlfree(%radyobilgi),/(Current Song.+)\sWritten by Stephen/) { msg #radyo $regml(1) }

Şöyle ekledim ama olmadı nedense . Şarkının ismini aldıramıyoruz mu acaba

30 Temmuz 2012, 16:28

Şarkı ismini gösdermiyor. radyo pass'ınız pm olarak atınız size güzel bi radyo kod'u veriyim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

cashmare · 30 Temmuz 2012, 17:11

GhoSt Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Şarkı ismini gösdermiyor. radyo pass'ınız pm olarak atınız size güzel bi radyo kod'u veriyim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ghost tşk ederim ama zaten amacım radyo şifresi olmadan almak yani direk shoutcast panelinden.
+ curretn song kısmında o anda radyoda çalan şarkının ismi yazıyor

en altta current song: un karşısını alabiliyormuyuz.

30 Temmuz 2012, 17:26

Malesef denedim ama sarkıcı ısmını alamıyoruz.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Thorgram.com Youtube Abone Satın Alma, Instagram Takipçi Satın Alma Platformu	ZeuS	Web Site Tanıtımı	0	27 Şubat 2024 13:37
Bilgisayarın IP Bilgilerini Alma	Kaf_Dağı	Java	0	18 Mart 2015 14:57
Radyo mirc yada Sock bot	SucLu	mIRC Scripting Sorunları	4	05 Mart 2013 22:20
Php ile Online Radyo bilgilerini almak	alpsi	PHP	4	27 Temmuz 2007 16:43
Radyo bilgilerini Gösterme	reco07	ASP/ASP.NET	10	25 Ekim 2006 02:04

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.