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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - radyo bilgilerini sock ile alma (https://www.ircforumlari.net/mirc-scripting-sorunlari/498052-radyo-bilgilerini-sock-ile-alma.html)

radyo bilgilerini sock ile alma

Kod:

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.

Cevap: radyo bilgilerini sock ile alma

Kod:

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.

Cevap: radyo bilgilerini sock ile alma

Alıntı:

Difuzyon Nickli Üyeden Alıntı (Mesaj 1041183256)

Kod:

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ı :)
ben stream title : xradyofm yazısını almak istiyorum sadece.

Cevap: radyo bilgilerini sock ile alma

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

Cevap: radyo bilgilerini sock ile alma

Kod:

<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 :)
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

Cevap: radyo bilgilerini sock ile alma

Kod:

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

}

Cevap: radyo bilgilerini sock ile alma

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

Kod:

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

Cevap: radyo bilgilerini sock ile alma

Şarkı ismini gösdermiyor. radyo pass'ınız pm olarak atınız size güzel bi radyo kod'u veriyim :)

Cevap: radyo bilgilerini sock ile alma

Alıntı:

GhoSt Nickli Üyeden Alıntı (Mesaj 1041183623)

Şarkı ismini gösdermiyor. radyo pass'ınız pm olarak atınız size güzel bi radyo kod'u veriyim :)

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.

Cevap: radyo bilgilerini sock ile alma

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