Cheat Engine Forum Index Cheat Engine
The Official Site of Cheat Engine
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


VB 2013 Internet Radio

 
Post new topic   Reply to topic    Cheat Engine Forum Index -> General Gamehacking
View previous topic :: View next topic  
Author Message
Corroder
Grandmaster Cheater
Reputation: 17

Joined: 10 Apr 2015
Posts: 648

PostPosted: Sun Apr 15, 2018 8:16 pm    Post subject: VB 2013 Internet Radio Reply with quote

Hi guys,

Here a little app which I made to practice VB 2013 coding.
This app use to play radio streaming over internet connection.
You able to edit or add your own internet radio station.

App made use : VB Studio 2013 and Microsoft.Net 4.5

Code snip :

Code:
Public Class Form1
    Dim myint As Integer

    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll
        YTPlayer.settings.volume = TrackBar1.Value
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        YTPlayer.Ctlcontrols.play()
        PictureBox1.Enabled = False
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        YTPlayer.Ctlcontrols.pause()
        PictureBox1.Enabled = True
    End Sub

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
        YTPlayer.Ctlcontrols.stop()
        Label1.Text = "VCL Bro Web Radio"
        PictureBox1.Enabled = False
    End Sub
    Private Sub list_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles list.MouseDoubleClick
        myint = list.SelectedIndex
        If myint = -1 Then
            YTPlayer.Ctlcontrols.stop()
            Label1.Text = "VCL Bro Web Radio"
            PictureBox1.Enabled = False
        End If
        If myint = 0 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://37.72.100.39:8001/stream"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "Aewen Radio KPOP"
            PictureBox1.Enabled = False
        End If
        If myint = 1 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://175.103.58.72:8000/;stream.mp3"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "Bens Radio Jakarta"
            PictureBox1.Enabled = False
        End If
        If myint = 2 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://64.71.79.181:8040/;"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "Big-B KPOP"
            PictureBox1.Enabled = False
        End If
        If myint = 3 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://server1.chilltrax.com:9000/;stream/1"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "Chilltrax Radio USA"
            PictureBox1.Enabled = False
        End If
        If myint = 4 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://s4.xrad.io:8004/;"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "Dragon Hits UK"
            PictureBox1.Enabled = False
        End If
        If myint = 5 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://103.28.148.18:8500/;"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "Dreamers Radio Jakarta"
            PictureBox1.Enabled = False
        End If
        If myint = 6 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://streaming.sim-indonesia.com:8000/genfm"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "Gen FM Jakarta"
            PictureBox1.Enabled = False
        End If
        If myint = 7 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://streaming.sim-indonesia.com:8000/jak"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "Jak FM Jakarta"
            PictureBox1.Enabled = False
        End If
        If myint = 8 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://142.4.217.133:9240/;stream/1"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "Major Bass Radio USA"
            PictureBox1.Enabled = False
        End If
        If myint = 9 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://103.226.246.245/kompas-motionjakarta"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "Motion FM Jakarta"
            PictureBox1.Enabled = False
        End If
        If myint = 10 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://www.ozradiojakarta.co.id/"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "OZ Radio Jakarta"
            PictureBox1.Enabled = False
        End If
        If myint = 11 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://edge1-b.exa.live365.net/a91401"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "UK Scene Radio UK"
            PictureBox1.Enabled = False
        End If
        If myint = 12 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://uk5.internet-radio.com:8163/;stream"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "UK5 Radio"
            PictureBox1.Enabled = False
        End If
        If myint = 13 Then
            YTPlayer.Ctlcontrols.stop()
            YTPlayer.URL = "http://uk7.internet-radio.com:8226/;stream"
            YTPlayer.Ctlcontrols.play()
            Label1.Text = "UK7 Radio"
            PictureBox1.Enabled = False
        End If
        If myint > 13 Then
            YTPlayer.Ctlcontrols.stop()
            Label1.Text = "VCL Bro Web Radio"
            PictureBox1.Enabled = False
        End If
    End Sub
End Class


App code, VB Solution can download here :

https://mega.nz/#!Dg8A0AzS!Wy1sT4bIHMImw85aqSbTetP6FYPyluEaKR9VJ8RihXY

Cheers.... Razz



Capture.JPG
 Description:
VB Internet Radio By Corroder
 Filesize:  29.76 KB
 Viewed:  898 Time(s)

Capture.JPG



_________________
Singapore Sling + Johnnie Walker + Some Peanuts....
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    Cheat Engine Forum Index -> General Gamehacking All times are GMT - 6 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum


Powered by phpBB © 2001, 2005 phpBB Group

CE Wiki   IRC (#CEF)   Twitter
Third party websites