මගේ රේඩියෝ වීවරය

[visula kavinda]

මෙයට එක්කලයුතු අංග සඳහන් කරනු!

 

[lilman]

up

 

[imback2008]

system tray ekata minimize karanna hadanna

 

[Candid-B]

නියමයි. අපිට මේක download කරගන්න පුළුවන් විදිහට installation exe එකක් upload කරන්න.

 

[visula kavinda]

නියමයි. අපිට මේක download කරගන්න පුළුවන් විදිහට installation exe එකක් upload කරන්න.

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", "https://cp11.serverse.com/proxy/nethfm/stream", "https://www.nethfm.lk")
Add_station("Shree FM", "https://a3.asurahosting.com/listen/shreefm/radio.mp3", "http://www.shreefm.lk")
Add_station("Swadeshiya Sevaya", "http://220.247.227.6:8000/Snsstream", "https://www.slbc.lk")
Add_station("Sirasa FM", "https://mbc.thestreamtech.com:8087/index.html", "https://sirasafm.lk")
Add_station("Hiru FM", "https://radio.lotustechnologieslk.net:2020/stream/hirufmgarden", "https://www.hirufm.lk")
Add_station("Shaa FM", "https://radio.lotustechnologieslk.net:2020/stream/shaafmgarden", "https://www.shaafm.lk")
Add_station("Siyatha FM", "https://dc02.onlineradio.voaplus.com/siyathafm", "https://www.siyathafm.lk")
Add_station("FM Derana", "https://cp12.serverse.com/proxy/fmderana/stream", "https://www.fmderana.lk")
Add_station("Lak FM", "https://r1.comcities.com/proxy/oxmycwll/stream", "https://www.lakfm.lk")
Add_station("Sitha FM", "https://mytuner-radio.com/radio/sitha-fm-sit-886-432491/", "")
Add_station("Ran FM", "https://a3.asurahosting.com/listen/ranfm/radio.mp3", "https://ranfm.lk/")
Add_station("Y FM", "https://mbc.thestreamtech.com:7032/index.html", "https://myy.lk/")
Add_station("Yes FM", "https://mbc.thestreamtech.com:7056/index.html/stream", "https://yesfmonline.com/")
Add_station("Gold FM", "https://radio.lotustechnologieslk.net:8000/;", "https://www.goldfm.lk/")
Add_station("Rangiri FM", "https://rangiri.radioca.st/stream?type=http&nocache=112730", "https://rangirisrilanka.lk/radio/")
Add_station("SLBC Sinhala National Service", "", "https://www.slbc.lk")
Add_station("SLBC Welenda Sevaya", "", "https://www.slbc.lk/world-heritage-sites/welenda-sevaya")
Add_station("City FM", "http://220.247.227.20:8000/citystream", "https://www.slbc.lk/world-heritage-sites/city-fm")
Add_station("Free FM", "https://stream.zeno.fm/qcpcogj5uvstv", "https://freefm.lk/player/index.html")
Add_station("Lakhanda radio", "https://cp12.serverse.com/proxy/itnfm?mp=/stream", "https://lakhandaradio.lk/")
Add_station("WOW Radio", "https://cp11.serverse.com/proxy/wowradio/stream", "https://onlineradiobox.com/lk/wowco/?cs=lk.wowco&played=1")
Add_station("QFM සිතුල රේඩියෝ", "https://stream.qfmradio.qa/qfm953", "https://qfmradio.qa/station/sithula")
Add_station("Rhythm FM", "https://dc02.onlineradio.voaplus.com/rhythmfm", "https://rhythmfm.lk/")
Add_station("Seth FM", "https://listen.radioking.com/radio/384487/stream/435781", "https://sethfm.lk/")
Add_station("පැරණි ගී රේඩියෝ", "http://151.80.42.191:8288/stream", "https://radiosindia.com/paranigeeradio.html")
Add_station("Fox FM", "https://cp11.serverse.com/proxy/foxfm/stream/;stream.mp3", "https://onlineradiobox.com/lk/foxfm/")
Add_station("Kiss FM", "https://srv01.onlineradio.voaplus.com/kissfm", "https://kissfm.lk/")
Add_station("Sitha FM", "https://shaincast.caster.fm:48148/listen.mp3", "https://x.com/SithaFM")
Add_station("Rasa FM", "https://sonic01.instainternet.com/8084/stream&_=1782040347703", "https://rasafm.godaddysites.com/")

' Add_station("ITN", "https://hls-abiri0ry-livepush.akama...m0l9G8dNuBQsYh35/tracks-v3a1/rewind-3600.m3u8", "https://itn.lk/")
' Add_station("000", "https://edge3-moblive.yuppcdn.net/drm1/smil:verbumtvdrm.smil/index.m3u8", "")
' Add_station("0000", "https://jk3lz8xklw79-hls-live.5centscdn.com/live/6226f7cbe59e99a90b5cef6f94f966fd.sdp/playlist.m3u8", "")
' Add_station("0000", "https://stream.asiatvnet.com/1/live/master.m3u8", "")
'Add_station("000", "https://live.peotv.com/bpk-tv/012/output/index.m3u8", "")
Add_station("Hiru TV", "https://tv.hiruhost.com:1936/8012/8012/chunklist_w1355807983.m3u8", "")
' Add_station("TNL", "https://stream.castr.com/669ca98e53...904f4336ecbf7e/tracks-v1/seg-0-35954.hls.fmp4", "")
' Add_station("", "http://66.55.144.67:8104/;stream.mp3", "")
' 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("https://cp11.serverse.com/proxy/nethfm/stream")
' PlayRadio("") ';stream.mp3")
' PlayRadio("https://nethfm.lk/stream")
'https://cp11.serverse.com/proxy/nethfm/stream
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

 

[Heshan Daminda]

ko yako sun fm?

 

[TrashPanda]

ela. c# wpf version ekakuth karamuda?

ah thawa deyak. puluwan nam Buddhist Radio add karanna

 

[Candid-B]

ko yako sun fm?

ආ පිට්බුල් අයියෙ. උබේ සින්දු යන්නෙ sunfm එකේ නේද.

 

[Naughtykolla48]

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", "https://cp11.serverse.com/proxy/nethfm/stream", "https://www.nethfm.lk")
Add_station("Shree FM", "https://a3.asurahosting.com/listen/shreefm/radio.mp3", "http://www.shreefm.lk")
Add_station("Swadeshiya Sevaya", "http://220.247.227.6:8000/Snsstream", "https://www.slbc.lk")
Add_station("Sirasa FM", "https://mbc.thestreamtech.com:8087/index.html", "https://sirasafm.lk")
Add_station("Hiru FM", "https://radio.lotustechnologieslk.net:2020/stream/hirufmgarden", "https://www.hirufm.lk")
Add_station("Shaa FM", "https://radio.lotustechnologieslk.net:2020/stream/shaafmgarden", "https://www.shaafm.lk")
Add_station("Siyatha FM", "https://dc02.onlineradio.voaplus.com/siyathafm", "https://www.siyathafm.lk")
Add_station("FM Derana", "https://cp12.serverse.com/proxy/fmderana/stream", "https://www.fmderana.lk")
Add_station("Lak FM", "https://r1.comcities.com/proxy/oxmycwll/stream", "https://www.lakfm.lk")
Add_station("Sitha FM", "https://mytuner-radio.com/radio/sitha-fm-sit-886-432491/", "")
Add_station("Ran FM", "https://a3.asurahosting.com/listen/ranfm/radio.mp3", "https://ranfm.lk/")
Add_station("Y FM", "https://mbc.thestreamtech.com:7032/index.html", "https://myy.lk/")
Add_station("Yes FM", "https://mbc.thestreamtech.com:7056/index.html/stream", "https://yesfmonline.com/")
Add_station("Gold FM", "https://radio.lotustechnologieslk.net:8000/;", "https://www.goldfm.lk/")
Add_station("Rangiri FM", "https://rangiri.radioca.st/stream?type=http&nocache=112730", "https://rangirisrilanka.lk/radio/")
Add_station("SLBC Sinhala National Service", "", "https://www.slbc.lk")
Add_station("SLBC Welenda Sevaya", "", "https://www.slbc.lk/world-heritage-sites/welenda-sevaya")
Add_station("City FM", "http://220.247.227.20:8000/citystream", "https://www.slbc.lk/world-heritage-sites/city-fm")
Add_station("Free FM", "https://stream.zeno.fm/qcpcogj5uvstv", "https://freefm.lk/player/index.html")
Add_station("Lakhanda radio", "https://cp12.serverse.com/proxy/itnfm?mp=/stream", "https://lakhandaradio.lk/")
Add_station("WOW Radio", "https://cp11.serverse.com/proxy/wowradio/stream", "https://onlineradiobox.com/lk/wowco/?cs=lk.wowco&played=1")
Add_station("QFM සිතුල රේඩියෝ", "https://stream.qfmradio.qa/qfm953", "https://qfmradio.qa/station/sithula")
Add_station("Rhythm FM", "https://dc02.onlineradio.voaplus.com/rhythmfm", "https://rhythmfm.lk/")
Add_station("Seth FM", "https://listen.radioking.com/radio/384487/stream/435781", "https://sethfm.lk/")
Add_station("පැරණි ගී රේඩියෝ", "http://151.80.42.191:8288/stream", "https://radiosindia.com/paranigeeradio.html")
Add_station("Fox FM", "https://cp11.serverse.com/proxy/foxfm/stream/;stream.mp3", "https://onlineradiobox.com/lk/foxfm/")
Add_station("Kiss FM", "https://srv01.onlineradio.voaplus.com/kissfm", "https://kissfm.lk/")
Add_station("Sitha FM", "https://shaincast.caster.fm:48148/listen.mp3", "https://x.com/SithaFM")
Add_station("Rasa FM", "https://sonic01.instainternet.com/8084/stream&_=1782040347703", "https://rasafm.godaddysites.com/")

' Add_station("ITN", "https://hls-abiri0ry-livepush.akama...m0l9G8dNuBQsYh35/tracks-v3a1/rewind-3600.m3u8", "https://itn.lk/")
' Add_station("000", "https://edge3-moblive.yuppcdn.net/drm1/smil:verbumtvdrm.smil/index.m3u8", "")
' Add_station("0000", "https://jk3lz8xklw79-hls-live.5centscdn.com/live/6226f7cbe59e99a90b5cef6f94f966fd.sdp/playlist.m3u8", "")
' Add_station("0000", "https://stream.asiatvnet.com/1/live/master.m3u8", "")
'Add_station("000", "https://live.peotv.com/bpk-tv/012/output/index.m3u8", "")
Add_station("Hiru TV", "https://tv.hiruhost.com:1936/8012/8012/chunklist_w1355807983.m3u8", "")
' Add_station("TNL", "https://stream.castr.com/669ca98e53...904f4336ecbf7e/tracks-v1/seg-0-35954.hls.fmp4", "")
' Add_station("", "http://66.55.144.67:8104/;stream.mp3", "")
' 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("https://cp11.serverse.com/proxy/nethfm/stream")
' PlayRadio("") ';stream.mp3")
' PlayRadio("https://nethfm.lk/stream")
'https://cp11.serverse.com/proxy/nethfm/stream
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

mokadda ban me, pai than da?

 

[lilman]

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", "https://cp11.serverse.com/proxy/nethfm/stream", "https://www.nethfm.lk")
Add_station("Shree FM", "https://a3.asurahosting.com/listen/shreefm/radio.mp3", "http://www.shreefm.lk")
Add_station("Swadeshiya Sevaya", "http://220.247.227.6:8000/Snsstream", "https://www.slbc.lk")
Add_station("Sirasa FM", "https://mbc.thestreamtech.com:8087/index.html", "https://sirasafm.lk")
Add_station("Hiru FM", "https://radio.lotustechnologieslk.net:2020/stream/hirufmgarden", "https://www.hirufm.lk")
Add_station("Shaa FM", "https://radio.lotustechnologieslk.net:2020/stream/shaafmgarden", "https://www.shaafm.lk")
Add_station("Siyatha FM", "https://dc02.onlineradio.voaplus.com/siyathafm", "https://www.siyathafm.lk")
Add_station("FM Derana", "https://cp12.serverse.com/proxy/fmderana/stream", "https://www.fmderana.lk")
Add_station("Lak FM", "https://r1.comcities.com/proxy/oxmycwll/stream", "https://www.lakfm.lk")
Add_station("Sitha FM", "https://mytuner-radio.com/radio/sitha-fm-sit-886-432491/", "")
Add_station("Ran FM", "https://a3.asurahosting.com/listen/ranfm/radio.mp3", "https://ranfm.lk/")
Add_station("Y FM", "https://mbc.thestreamtech.com:7032/index.html", "https://myy.lk/")
Add_station("Yes FM", "https://mbc.thestreamtech.com:7056/index.html/stream", "https://yesfmonline.com/")
Add_station("Gold FM", "https://radio.lotustechnologieslk.net:8000/;", "https://www.goldfm.lk/")
Add_station("Rangiri FM", "https://rangiri.radioca.st/stream?type=http&nocache=112730", "https://rangirisrilanka.lk/radio/")
Add_station("SLBC Sinhala National Service", "", "https://www.slbc.lk")
Add_station("SLBC Welenda Sevaya", "", "https://www.slbc.lk/world-heritage-sites/welenda-sevaya")
Add_station("City FM", "http://220.247.227.20:8000/citystream", "https://www.slbc.lk/world-heritage-sites/city-fm")
Add_station("Free FM", "https://stream.zeno.fm/qcpcogj5uvstv", "https://freefm.lk/player/index.html")
Add_station("Lakhanda radio", "https://cp12.serverse.com/proxy/itnfm?mp=/stream", "https://lakhandaradio.lk/")
Add_station("WOW Radio", "https://cp11.serverse.com/proxy/wowradio/stream", "https://onlineradiobox.com/lk/wowco/?cs=lk.wowco&played=1")
Add_station("QFM සිතුල රේඩියෝ", "https://stream.qfmradio.qa/qfm953", "https://qfmradio.qa/station/sithula")
Add_station("Rhythm FM", "https://dc02.onlineradio.voaplus.com/rhythmfm", "https://rhythmfm.lk/")
Add_station("Seth FM", "https://listen.radioking.com/radio/384487/stream/435781", "https://sethfm.lk/")
Add_station("පැරණි ගී රේඩියෝ", "http://151.80.42.191:8288/stream", "https://radiosindia.com/paranigeeradio.html")
Add_station("Fox FM", "https://cp11.serverse.com/proxy/foxfm/stream/;stream.mp3", "https://onlineradiobox.com/lk/foxfm/")
Add_station("Kiss FM", "https://srv01.onlineradio.voaplus.com/kissfm", "https://kissfm.lk/")
Add_station("Sitha FM", "https://shaincast.caster.fm:48148/listen.mp3", "https://x.com/SithaFM")
Add_station("Rasa FM", "https://sonic01.instainternet.com/8084/stream&_=1782040347703", "https://rasafm.godaddysites.com/")

' Add_station("ITN", "https://hls-abiri0ry-livepush.akama...m0l9G8dNuBQsYh35/tracks-v3a1/rewind-3600.m3u8", "https://itn.lk/")
' Add_station("000", "https://edge3-moblive.yuppcdn.net/drm1/smil:verbumtvdrm.smil/index.m3u8", "")
' Add_station("0000", "https://jk3lz8xklw79-hls-live.5centscdn.com/live/6226f7cbe59e99a90b5cef6f94f966fd.sdp/playlist.m3u8", "")
' Add_station("0000", "https://stream.asiatvnet.com/1/live/master.m3u8", "")
'Add_station("000", "https://live.peotv.com/bpk-tv/012/output/index.m3u8", "")
Add_station("Hiru TV", "https://tv.hiruhost.com:1936/8012/8012/chunklist_w1355807983.m3u8", "")
' Add_station("TNL", "https://stream.castr.com/669ca98e53...904f4336ecbf7e/tracks-v1/seg-0-35954.hls.fmp4", "")
' Add_station("", "http://66.55.144.67:8104/;stream.mp3", "")
' 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("https://cp11.serverse.com/proxy/nethfm/stream")
' PlayRadio("") ';stream.mp3")
' PlayRadio("https://nethfm.lk/stream")
'https://cp11.serverse.com/proxy/nethfm/stream
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

meka compile karala exe eka upload karapanko

 

[infernocus]

Nice work.
If we build this using C/C++ with cross platform GUI lib (like IMGUI), we should be able to run this on any platform (Win, Mac, Linux etc). we can make it open soruces and publically available for anoyne.
This is a cool idea.

For fun, I asked Codex to build a similar app, using IMGUI UI library, It build this app in a SINGLE PROMPT. this is fucking crazy.

UI is not perfect, but we should be able to fix with couple more prompts.

 

[Yudewwa]

අපිටත් දීපන් download කරන්න. ලස්සන වැඩක්. simple interface එක.

 

[saw1993]

notepad ekata paste krla .m3u vidiyata save kra , VLC eken open kara . @visula kavinda Thanks links tikata

#EXTM3U

#EXTINF:-1,Neth FM
https://cp11.serverse.com/proxy/nethfm/stream

#EXTINF:-1,Shree FM
https://a3.asurahosting.com/listen/shreefm/radio.mp3

#EXTINF:-1,Swadeshiya Sevaya
http://220.247.227.6:8000/Snsstream

#EXTINF:-1,Sirasa FM
https://mbc.thestreamtech.com:8087/index.html

#EXTINF:-1,Hiru FM
https://radio.lotustechnologieslk.net:2020/stream/hirufmgarden

#EXTINF:-1,Shaa FM
https://radio.lotustechnologieslk.net:2020/stream/shaafmgarden

#EXTINF:-1,Siyatha FM
https://dc02.onlineradio.voaplus.com/siyathafm

#EXTINF:-1,FM Derana
https://cp12.serverse.com/proxy/fmderana/stream

#EXTINF:-1,Lak FM
https://r1.comcities.com/proxy/oxmycwll/stream

#EXTINF:-1,Sitha FM
https://mytuner-radio.com/radio/sitha-fm-sit-886-432491/

#EXTINF:-1,Ran FM
https://a3.asurahosting.com/listen/ranfm/radio.mp3

#EXTINF:-1,Y FM
https://mbc.thestreamtech.com:7032/index.html

#EXTINF:-1,Yes FM
https://mbc.thestreamtech.com:7056/index.html/stream

#EXTINF:-1,Gold FM
https://radio.lotustechnologieslk.net:8000/;

#EXTINF:-1,Rangiri FM
https://rangiri.radioca.st/stream?type=http&nocache=112730

#EXTINF:-1,City FM
http://220.247.227.20:8000/citystream

#EXTINF:-1,Free FM
https://stream.zeno.fm/qcpcogj5uvstv

#EXTINF:-1,Lakhanda Radio
https://cp12.serverse.com/proxy/itnfm?mp=/stream

#EXTINF:-1,WOW Radio
https://cp11.serverse.com/proxy/wowradio/stream

#EXTINF:-1,QFM සිතුල රේඩියෝ
https://stream.qfmradio.qa/qfm953

#EXTINF:-1,Rhythm FM
https://dc02.onlineradio.voaplus.com/rhythmfm

#EXTINF:-1,Seth FM
https://listen.radioking.com/radio/384487/stream/435781

#EXTINF:-1,පැරණි ගී රේඩියෝ
http://151.80.42.191:8288/stream

#EXTINF:-1,Fox FM
https://cp11.serverse.com/proxy/foxfm/stream/;stream.mp3

#EXTINF:-1,Kiss FM
https://srv01.onlineradio.voaplus.com/kissfm

#EXTINF:-1,Sitha FM (Caster)
https://shaincast.caster.fm:48148/listen.mp3

#EXTINF:-1,Rasa FM
https://sonic01.instainternet.com/8084/stream&_=1782040347703

#EXTINF:-1,Hiru TV
https://tv.hiruhost.com:1936/8012/8012/chunklist_w1355807983.m3u8

 

[visula kavinda]

Add_station("The Buddhist Radio", "https://uk14freenew.listen2myradio.com/live.mp3?typeportmount=s1_20718_stream_610580820", "")
Add_station("Radio Sri Lanka", "http://220.247.227.20:8000/RSLstream", "https://www.slbc.lk/world-heritage-sites/rdio-sri-lanka")
Add_station("Tharu FM", "https://stream.starfm.lk:12265/stream", "https://www.tharufm.com/")
Add_station("MDN Radio Sri Lanka", "https://eu2.fastcast4u.com/proxy/mapere00", "http://www.mdnradio.com/")