Reply to thread

Message

<blockquote data-quote="visula kavinda" data-source="post: 31471836" data-attributes="member: 577973">Imports System.IOImports System.Net.HttpImports System.WindowsPublic Class Form1&nbsp; &nbsp; Structure tag_&nbsp; &nbsp; &nbsp; &nbsp; Dim url As String&nbsp; &nbsp; &nbsp; &nbsp; Dim site As String&nbsp; &nbsp; End Structure&nbsp; &nbsp; Sub Add_station(name As String, url As String, site As String)&nbsp; &nbsp; &nbsp; &nbsp; Dim item As New ListViewItem&nbsp; &nbsp; &nbsp; &nbsp; item.Text = name&nbsp; &nbsp; &nbsp; &nbsp; Dim a As tag_&nbsp; &nbsp; &nbsp; &nbsp; a.url = url&nbsp; &nbsp; &nbsp; &nbsp; a.site = site&nbsp; &nbsp; &nbsp; &nbsp; item.Tag = a&nbsp; &nbsp; &nbsp; &nbsp; ListView1.Items.Add(item)&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Neth FM&quot;, &quot;<a href="https://cp11.serverse.com/proxy/nethfm/stream" target="_blank">https://cp11.serverse.com/proxy/nethfm/stream</a>&quot;, &quot;<a href="https://www.nethfm.lk" target="_blank">https://www.nethfm.lk</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Shree FM&quot;, &quot;<a href="https://a3.asurahosting.com/listen/shreefm/radio.mp3" target="_blank">https://a3.asurahosting.com/listen/shreefm/radio.mp3</a>&quot;, &quot;<a href="http://www.shreefm.lk" target="_blank">http://www.shreefm.lk</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Swadeshiya Sevaya&quot;, &quot;<a href="http://220.247.227.6:8000/Snsstream" target="_blank">http://220.247.227.6:8000/Snsstream</a>&quot;, &quot;<a href="https://www.slbc.lk" target="_blank">https://www.slbc.lk</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Sirasa FM&quot;, &quot;<a href="https://mbc.thestreamtech.com:8087/index.html" target="_blank">https://mbc.thestreamtech.com:8087/index.html</a>&quot;, &quot;<a href="https://sirasafm.lk" target="_blank">https://sirasafm.lk</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Hiru FM&quot;, &quot;<a href="https://radio.lotustechnologieslk.net:2020/stream/hirufmgarden" target="_blank">https://radio.lotustechnologieslk.net:2020/stream/hirufmgarden</a>&quot;, &quot;<a href="https://www.hirufm.lk" target="_blank">https://www.hirufm.lk</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Shaa FM&quot;, &quot;<a href="https://radio.lotustechnologieslk.net:2020/stream/shaafmgarden" target="_blank">https://radio.lotustechnologieslk.net:2020/stream/shaafmgarden</a>&quot;, &quot;<a href="https://www.shaafm.lk" target="_blank">https://www.shaafm.lk</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Siyatha FM&quot;, &quot;<a href="https://dc02.onlineradio.voaplus.com/siyathafm" target="_blank">https://dc02.onlineradio.voaplus.com/siyathafm</a>&quot;, &quot;<a href="https://www.siyathafm.lk" target="_blank">https://www.siyathafm.lk</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;FM Derana&quot;, &quot;<a href="https://cp12.serverse.com/proxy/fmderana/stream" target="_blank">https://cp12.serverse.com/proxy/fmderana/stream</a>&quot;, &quot;<a href="https://www.fmderana.lk" target="_blank">https://www.fmderana.lk</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Lak FM&quot;, &quot;<a href="https://r1.comcities.com/proxy/oxmycwll/stream" target="_blank">https://r1.comcities.com/proxy/oxmycwll/stream</a>&quot;, &quot;<a href="https://www.lakfm.lk" target="_blank">https://www.lakfm.lk</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Sitha FM&quot;, &quot;<a href="https://mytuner-radio.com/radio/sitha-fm-sit-886-432491/" target="_blank">https://mytuner-radio.com/radio/sitha-fm-sit-886-432491/</a>&quot;, &quot;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Ran FM&quot;, &quot;<a href="https://a3.asurahosting.com/listen/ranfm/radio.mp3" target="_blank">https://a3.asurahosting.com/listen/ranfm/radio.mp3</a>&quot;, &quot;<a href="https://ranfm.lk/" target="_blank">https://ranfm.lk/</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Y FM&quot;, &quot;<a href="https://mbc.thestreamtech.com:7032/index.html" target="_blank">https://mbc.thestreamtech.com:7032/index.html</a>&quot;, &quot;<a href="https://myy.lk/" target="_blank">https://myy.lk/</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Yes FM&quot;, &quot;<a href="https://mbc.thestreamtech.com:7056/index.html/stream" target="_blank">https://mbc.thestreamtech.com:7056/index.html/stream</a>&quot;, &quot;<a href="https://yesfmonline.com/" target="_blank">https://yesfmonline.com/</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Gold FM&quot;, &quot;<a href="https://radio.lotustechnologieslk.net:8000/;" target="_blank">https://radio.lotustechnologieslk.net:8000/;</a>&quot;, &quot;<a href="https://www.goldfm.lk/" target="_blank">https://www.goldfm.lk/</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Rangiri FM&quot;, &quot;<a href="https://rangiri.radioca.st/stream?type=http&amp;nocache=112730" target="_blank">https://rangiri.radioca.st/stream?type=http&amp;nocache=112730</a>&quot;, &quot;<a href="https://rangirisrilanka.lk/radio/" target="_blank">https://rangirisrilanka.lk/radio/</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;SLBC Sinhala National Service&quot;, &quot;&quot;, &quot;<a href="https://www.slbc.lk" target="_blank">https://www.slbc.lk</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;SLBC Welenda Sevaya&quot;, &quot;&quot;, &quot;<a href="https://www.slbc.lk/world-heritage-sites/welenda-sevaya" target="_blank">https://www.slbc.lk/world-heritage-sites/welenda-sevaya</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;City FM&quot;, &quot;<a href="http://220.247.227.20:8000/citystream" target="_blank">http://220.247.227.20:8000/citystream</a>&quot;, &quot;<a href="https://www.slbc.lk/world-heritage-sites/city-fm" target="_blank">https://www.slbc.lk/world-heritage-sites/city-fm</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Free FM&quot;, &quot;<a href="https://stream.zeno.fm/qcpcogj5uvstv" target="_blank">https://stream.zeno.fm/qcpcogj5uvstv</a>&quot;, &quot;<a href="https://freefm.lk/player/index.html" target="_blank">https://freefm.lk/player/index.html</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Lakhanda radio&quot;, &quot;<a href="https://cp12.serverse.com/proxy/itnfm?mp=/stream" target="_blank">https://cp12.serverse.com/proxy/itnfm?mp=/stream</a>&quot;, &quot;<a href="https://lakhandaradio.lk/" target="_blank">https://lakhandaradio.lk/</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;WOW Radio&quot;, &quot;<a href="https://cp11.serverse.com/proxy/wowradio/stream" target="_blank">https://cp11.serverse.com/proxy/wowradio/stream</a>&quot;, &quot;<a href="https://onlineradiobox.com/lk/wowco/?cs=lk.wowco&amp;played=1" target="_blank">https://onlineradiobox.com/lk/wowco/?cs=lk.wowco&amp;played=1</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;QFM සිතුල රේඩියෝ&quot;, &quot;<a href="https://stream.qfmradio.qa/qfm953" target="_blank">https://stream.qfmradio.qa/qfm953</a>&quot;, &quot;<a href="https://qfmradio.qa/station/sithula" target="_blank">https://qfmradio.qa/station/sithula</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Rhythm FM&quot;, &quot;<a href="https://dc02.onlineradio.voaplus.com/rhythmfm" target="_blank">https://dc02.onlineradio.voaplus.com/rhythmfm</a>&quot;, &quot;<a href="https://rhythmfm.lk/" target="_blank">https://rhythmfm.lk/</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Seth FM&quot;, &quot;<a href="https://listen.radioking.com/radio/384487/stream/435781" target="_blank">https://listen.radioking.com/radio/384487/stream/435781</a>&quot;, &quot;<a href="https://sethfm.lk/" target="_blank">https://sethfm.lk/</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;පැරණි ගී රේඩියෝ&quot;, &quot;<a href="http://151.80.42.191:8288/stream" target="_blank">http://151.80.42.191:8288/stream</a>&quot;, &quot;<a href="https://radiosindia.com/paranigeeradio.html" target="_blank">https://radiosindia.com/paranigeeradio.html</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Fox FM&quot;, &quot;<a href="https://cp11.serverse.com/proxy/foxfm/stream/;stream.mp3" target="_blank">https://cp11.serverse.com/proxy/foxfm/stream/;stream.mp3</a>&quot;, &quot;<a href="https://onlineradiobox.com/lk/foxfm/" target="_blank">https://onlineradiobox.com/lk/foxfm/</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Kiss FM&quot;, &quot;<a href="https://srv01.onlineradio.voaplus.com/kissfm" target="_blank">https://srv01.onlineradio.voaplus.com/kissfm</a>&quot;, &quot;<a href="https://kissfm.lk/" target="_blank">https://kissfm.lk/</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Sitha FM&quot;, &quot;<a href="https://shaincast.caster.fm:48148/listen.mp3" target="_blank">https://shaincast.caster.fm:48148/listen.mp3</a>&quot;, &quot;<a href="https://x.com/SithaFM" target="_blank">https://x.com/SithaFM</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Rasa FM&quot;, &quot;<a href="https://sonic01.instainternet.com/8084/stream&amp;_=1782040347703" target="_blank">https://sonic01.instainternet.com/8084/stream&amp;_=1782040347703</a>&quot;, &quot;<a href="https://rasafm.godaddysites.com/" target="_blank">https://rasafm.godaddysites.com/</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp;&nbsp; Add_station(&quot;ITN&quot;, &quot;<a href="https://hls-abiri0ry-livepush.akamaized.net/live_abr_cdn/nsiPyyYPqaaCfd/em0l9G8dNuBQsYh35/tracks-v3a1/rewind-3600.m3u8" target="_blank">https://hls-abiri0ry-livepush.akamaized.net/live_abr_cdn/nsiPyyYPqaaCfd/em0l9G8dNuBQsYh35/tracks-v3a1/rewind-3600.m3u8</a>&quot;, &quot;<a href="https://itn.lk/" target="_blank">https://itn.lk/</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; Add_station(&quot;000&quot;, &quot;<a href="https://edge3-moblive.yuppcdn.net/drm1/smil:verbumtvdrm.smil/index.m3u8" target="_blank">https://edge3-moblive.yuppcdn.net/drm1/smil:verbumtvdrm.smil/index.m3u8</a>&quot;, &quot;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; Add_station(&quot;0000&quot;, &quot;<a href="https://jk3lz8xklw79-hls-live.5centscdn.com/live/6226f7cbe59e99a90b5cef6f94f966fd.sdp/playlist.m3u8" target="_blank">https://jk3lz8xklw79-hls-live.5centscdn.com/live/6226f7cbe59e99a90b5cef6f94f966fd.sdp/playlist.m3u8</a>&quot;, &quot;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; ' Add_station(&quot;0000&quot;, &quot;<a href="https://stream.asiatvnet.com/1/live/master.m3u8" target="_blank">https://stream.asiatvnet.com/1/live/master.m3u8</a>&quot;, &quot;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; 'Add_station(&quot;000&quot;, &quot;<a href="https://live.peotv.com/bpk-tv/012/output/index.m3u8" target="_blank">https://live.peotv.com/bpk-tv/012/output/index.m3u8</a>&quot;, &quot;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; Add_station(&quot;Hiru TV&quot;, &quot;<a href="https://tv.hiruhost.com:1936/8012/8012/chunklist_w1355807983.m3u8" target="_blank">https://tv.hiruhost.com:1936/8012/8012/chunklist_w1355807983.m3u8</a>&quot;, &quot;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; ' Add_station(&quot;TNL&quot;, &quot;<a href="https://stream.castr.com/669ca98e53915ee518fb7a47/live_3b18e370d0f011efa5904f4336ecbf7e/tracks-v1/seg-0-35954.hls.fmp4" target="_blank">https://stream.castr.com/669ca98e53915ee518fb7a47/live_3b18e370d0f011efa5904f4336ecbf7e/tracks-v1/seg-0-35954.hls.fmp4</a>&quot;, &quot;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; Add_station(&quot;&quot;, &quot;<a href="http://66.55.144.67:8104/;stream.mp3" target="_blank">http://66.55.144.67:8104/;stream.mp3</a>&quot;, &quot;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; Add_station(&quot;&quot;, &quot;&quot;, &quot;&quot;)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; Add_station(&quot;&quot;, &quot;&quot;, &quot;&quot;)&nbsp; &nbsp; End Sub&nbsp; &nbsp; Public Sub PlayRadio(url As String)&nbsp; &nbsp; &nbsp; &nbsp; AxWindowsMediaPlayer1.URL = url&nbsp; &nbsp; &nbsp; &nbsp; AxWindowsMediaPlayer1.settings.autoStart = True&nbsp; &nbsp; End Sub&nbsp; &nbsp; Public Sub StopRadio()&nbsp; &nbsp; &nbsp; &nbsp; AxWindowsMediaPlayer1.Ctlcontrols.stop()&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; PlayRadio(&quot;<a href="https://cp11.serverse.com/proxy/nethfm/stream" target="_blank">https://cp11.serverse.com/proxy/nethfm/stream</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp;&nbsp; PlayRadio(&quot;[MEDIA=youtube]isxYZE_aLHI[/MEDIA]&quot;) ';stream.mp3&quot;)&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; PlayRadio(&quot;<a href="https://nethfm.lk/stream" target="_blank">https://nethfm.lk/stream</a>&quot;)&nbsp; &nbsp; &nbsp; &nbsp; '<a href="https://cp11.serverse.com/proxy/nethfm/stream" target="_blank">https://cp11.serverse.com/proxy/nethfm/stream</a>&nbsp; &nbsp; &nbsp; &nbsp; Dim a As tag_&nbsp; &nbsp; &nbsp; &nbsp; a = ListView1.SelectedItems(0).Tag&nbsp; &nbsp; &nbsp; &nbsp; PlayRadio(a.url)&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub ListView1_ItemActivate(sender As Object, e As EventArgs) Handles ListView1.ItemActivate&nbsp; &nbsp; &nbsp; &nbsp; Dim a As tag_&nbsp; &nbsp; &nbsp; &nbsp; a = ListView1.SelectedItems(0).Tag&nbsp; &nbsp; &nbsp; &nbsp; PlayRadio(a.url)&nbsp; &nbsp; &nbsp; &nbsp; Text = ListView1.SelectedItems(0).Text&nbsp; &nbsp; &nbsp; &nbsp; TextBox1.Text = a.site&nbsp; &nbsp; &nbsp; &nbsp; Button4.Enabled = True&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click&nbsp; &nbsp; &nbsp; &nbsp; StopRadio()&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click&nbsp; &nbsp; &nbsp; &nbsp; Process.Start(New ProcessStartInfo With {.FileName = TextBox1.Text, .UseShellExecute = True})&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub AxWindowsMediaPlayer1_Enter(sender As Object, e As EventArgs) Handles AxWindowsMediaPlayer1.Enter&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click&nbsp; &nbsp; &nbsp; &nbsp; Button5.Enabled = False&nbsp; &nbsp; &nbsp; &nbsp; Dim a As tag_&nbsp; &nbsp; &nbsp; &nbsp; a = ListView1.SelectedItems(0).Tag&nbsp; &nbsp; &nbsp; &nbsp; Task.Run(Async Function()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; Await StartRecording(a.url, &quot;D:\Radio\Record.mp3&quot;)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; End Function)&nbsp; &nbsp; &nbsp; &nbsp; Button6.Enabled = True&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click&nbsp; &nbsp; &nbsp; &nbsp; Button6.Enabled = False&nbsp; &nbsp; &nbsp; &nbsp; If recorderCTS IsNot Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; recorderCTS.Cancel()&nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; Button5.Enabled = True&nbsp; &nbsp; End Sub&nbsp; &nbsp; Private recorderCTS As Threading.CancellationTokenSource&nbsp; &nbsp; Private Async Function StartRecording(streamUrl As String, filePath As String) As Task&nbsp; &nbsp; &nbsp; &nbsp; recorderCTS = New Threading.CancellationTokenSource()&nbsp; &nbsp; &nbsp; &nbsp; Using client As New HttpClient()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Using netStream = Await client.GetStreamAsync(streamUrl)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Using fileStream As New FileStream(filePath, FileMode.Create)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim buffer(16383) As Byte&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; While Not recorderCTS.IsCancellationRequested&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim bytesRead = Await netStream.ReadAsync(buffer, 0, buffer.Length)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If bytesRead &lt;= 0 Then Exit While&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Await fileStream.WriteAsync(buffer, 0, bytesRead)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End While&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Using&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Using&nbsp; &nbsp; &nbsp; &nbsp; End Using&nbsp; &nbsp; End FunctionEnd Class</blockquote>

[QUOTE="visula kavinda, post: 31471836, member: 577973"] Imports System.IO Imports System.Net.Http Imports System.Windows Public Class Form1 Structure tag_ Dim url As String Dim site As String End Structure Sub Add_station(name As String, url As String, site As String) Dim item As New ListViewItem item.Text = name Dim a As tag_ a.url = url a.site = site item.Tag = a ListView1.Items.Add(item) End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load Add_station("Neth FM", "[URL]https://cp11.serverse.com/proxy/nethfm/stream[/URL]", "[URL]https://www.nethfm.lk[/URL]") Add_station("Shree FM", "[URL]https://a3.asurahosting.com/listen/shreefm/radio.mp3[/URL]", "[URL]http://www.shreefm.lk[/URL]") Add_station("Swadeshiya Sevaya", "[URL]http://220.247.227.6:8000/Snsstream[/URL]", "[URL]https://www.slbc.lk[/URL]") Add_station("Sirasa FM", "[URL]https://mbc.thestreamtech.com:8087/index.html[/URL]", "[URL]https://sirasafm.lk[/URL]") Add_station("Hiru FM", "[URL]https://radio.lotustechnologieslk.net:2020/stream/hirufmgarden[/URL]", "[URL]https://www.hirufm.lk[/URL]") Add_station("Shaa FM", "[URL]https://radio.lotustechnologieslk.net:2020/stream/shaafmgarden[/URL]", "[URL]https://www.shaafm.lk[/URL]") Add_station("Siyatha FM", "[URL]https://dc02.onlineradio.voaplus.com/siyathafm[/URL]", "[URL]https://www.siyathafm.lk[/URL]") Add_station("FM Derana", "[URL]https://cp12.serverse.com/proxy/fmderana/stream[/URL]", "[URL]https://www.fmderana.lk[/URL]") Add_station("Lak FM", "[URL]https://r1.comcities.com/proxy/oxmycwll/stream[/URL]", "[URL]https://www.lakfm.lk[/URL]") Add_station("Sitha FM", "[URL]https://mytuner-radio.com/radio/sitha-fm-sit-886-432491/[/URL]", "") Add_station("Ran FM", "[URL]https://a3.asurahosting.com/listen/ranfm/radio.mp3[/URL]", "[URL]https://ranfm.lk/[/URL]") Add_station("Y FM", "[URL]https://mbc.thestreamtech.com:7032/index.html[/URL]", "[URL]https://myy.lk/[/URL]") Add_station("Yes FM", "[URL]https://mbc.thestreamtech.com:7056/index.html/stream[/URL]", "[URL]https://yesfmonline.com/[/URL]") Add_station("Gold FM", "[URL]https://radio.lotustechnologieslk.net:8000/;[/URL]", "[URL]https://www.goldfm.lk/[/URL]") Add_station("Rangiri FM", "[URL]https://rangiri.radioca.st/stream?type=http&nocache=112730[/URL]", "[URL]https://rangirisrilanka.lk/radio/[/URL]") Add_station("SLBC Sinhala National Service", "", "[URL]https://www.slbc.lk[/URL]") Add_station("SLBC Welenda Sevaya", "", "[URL]https://www.slbc.lk/world-heritage-sites/welenda-sevaya[/URL]") Add_station("City FM", "[URL]http://220.247.227.20:8000/citystream[/URL]", "[URL]https://www.slbc.lk/world-heritage-sites/city-fm[/URL]") Add_station("Free FM", "[URL]https://stream.zeno.fm/qcpcogj5uvstv[/URL]", "[URL]https://freefm.lk/player/index.html[/URL]") Add_station("Lakhanda radio", "[URL]https://cp12.serverse.com/proxy/itnfm?mp=/stream[/URL]", "[URL]https://lakhandaradio.lk/[/URL]") Add_station("WOW Radio", "[URL]https://cp11.serverse.com/proxy/wowradio/stream[/URL]", "[URL]https://onlineradiobox.com/lk/wowco/?cs=lk.wowco&played=1[/URL]") Add_station("QFM සිතුල රේඩියෝ", "[URL]https://stream.qfmradio.qa/qfm953[/URL]", "[URL]https://qfmradio.qa/station/sithula[/URL]") Add_station("Rhythm FM", "[URL]https://dc02.onlineradio.voaplus.com/rhythmfm[/URL]", "[URL]https://rhythmfm.lk/[/URL]") Add_station("Seth FM", "[URL]https://listen.radioking.com/radio/384487/stream/435781[/URL]", "[URL]https://sethfm.lk/[/URL]") Add_station("පැරණි ගී රේඩියෝ", "[URL]http://151.80.42.191:8288/stream[/URL]", "[URL]https://radiosindia.com/paranigeeradio.html[/URL]") Add_station("Fox FM", "[URL]https://cp11.serverse.com/proxy/foxfm/stream/;stream.mp3[/URL]", "[URL]https://onlineradiobox.com/lk/foxfm/[/URL]") Add_station("Kiss FM", "[URL]https://srv01.onlineradio.voaplus.com/kissfm[/URL]", "[URL]https://kissfm.lk/[/URL]") Add_station("Sitha FM", "[URL]https://shaincast.caster.fm:48148/listen.mp3[/URL]", "[URL]https://x.com/SithaFM[/URL]") Add_station("Rasa FM", "[URL]https://sonic01.instainternet.com/8084/stream&_=1782040347703[/URL]", "[URL]https://rasafm.godaddysites.com/[/URL]") ' Add_station("ITN", "[URL]https://hls-abiri0ry-livepush.akamaized.net/live_abr_cdn/nsiPyyYPqaaCfd/em0l9G8dNuBQsYh35/tracks-v3a1/rewind-3600.m3u8[/URL]", "[URL]https://itn.lk/[/URL]") ' Add_station("000", "[URL]https://edge3-moblive.yuppcdn.net/drm1/smil:verbumtvdrm.smil/index.m3u8[/URL]", "") ' Add_station("0000", "[URL]https://jk3lz8xklw79-hls-live.5centscdn.com/live/6226f7cbe59e99a90b5cef6f94f966fd.sdp/playlist.m3u8[/URL]", "") ' Add_station("0000", "[URL]https://stream.asiatvnet.com/1/live/master.m3u8[/URL]", "") 'Add_station("000", "[URL]https://live.peotv.com/bpk-tv/012/output/index.m3u8[/URL]", "") Add_station("Hiru TV", "[URL]https://tv.hiruhost.com:1936/8012/8012/chunklist_w1355807983.m3u8[/URL]", "") ' Add_station("TNL", "[URL]https://stream.castr.com/669ca98e53915ee518fb7a47/live_3b18e370d0f011efa5904f4336ecbf7e/tracks-v1/seg-0-35954.hls.fmp4[/URL]", "") ' Add_station("", "[URL]http://66.55.144.67:8104/;stream.mp3[/URL]", "") ' Add_station("", "", "") ' Add_station("", "", "") End Sub Public Sub PlayRadio(url As String) AxWindowsMediaPlayer1.URL = url AxWindowsMediaPlayer1.settings.autoStart = True End Sub Public Sub StopRadio() AxWindowsMediaPlayer1.Ctlcontrols.stop() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ' PlayRadio("[URL]https://cp11.serverse.com/proxy/nethfm/stream[/URL]") ' PlayRadio("[MEDIA=youtube]isxYZE_aLHI[/MEDIA]") ';stream.mp3") ' PlayRadio("[URL]https://nethfm.lk/stream[/URL]") '[URL]https://cp11.serverse.com/proxy/nethfm/stream[/URL] Dim a As tag_ a = ListView1.SelectedItems(0).Tag PlayRadio(a.url) End Sub Private Sub ListView1_ItemActivate(sender As Object, e As EventArgs) Handles ListView1.ItemActivate Dim a As tag_ a = ListView1.SelectedItems(0).Tag PlayRadio(a.url) Text = ListView1.SelectedItems(0).Text TextBox1.Text = a.site Button4.Enabled = True End Sub Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click StopRadio() End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click Process.Start(New ProcessStartInfo With {.FileName = TextBox1.Text, .UseShellExecute = True}) End Sub Private Sub AxWindowsMediaPlayer1_Enter(sender As Object, e As EventArgs) Handles AxWindowsMediaPlayer1.Enter End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Button5.Enabled = False Dim a As tag_ a = ListView1.SelectedItems(0).Tag Task.Run(Async Function() Await StartRecording(a.url, "D:\Radio\Record.mp3") End Function) Button6.Enabled = True End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Button6.Enabled = False If recorderCTS IsNot Nothing Then recorderCTS.Cancel() End If Button5.Enabled = True End Sub Private recorderCTS As Threading.CancellationTokenSource Private Async Function StartRecording(streamUrl As String, filePath As String) As Task recorderCTS = New Threading.CancellationTokenSource() Using client As New HttpClient() Using netStream = Await client.GetStreamAsync(streamUrl) Using fileStream As New FileStream(filePath, FileMode.Create) Dim buffer(16383) As Byte While Not recorderCTS.IsCancellationRequested Dim bytesRead = Await netStream.ReadAsync(buffer, 0, buffer.Length) If bytesRead <= 0 Then Exit While Await fileStream.WriteAsync(buffer, 0, bytesRead) End While End Using End Using End Using End Function End Class [/QUOTE]

Verification

Dawasata paya keeyak thibeda?

Search

Latest ads

Reply to thread