106 lines
4.9 KiB
VB.net
106 lines
4.9 KiB
VB.net
Imports System.ComponentModel
|
||
Imports System.IO
|
||
Imports AxWMPLib
|
||
|
||
Public Class Form85
|
||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||
Dim t1 = radio
|
||
Dim t2 = Form3.ComboBox6.SelectedItem
|
||
Dim t3 As String = t1 & t2 & "\flux.txt"
|
||
Dim sw1 As New StreamWriter(t3)
|
||
sw1.WriteLine(TextBox1.Text)
|
||
sw1.Close()
|
||
Dim lines1() As String = File.ReadAllLines(t3)
|
||
Form3.Label11.Text = "URL / Flux: " & lines1(0)
|
||
MsgBox("L’URL / FLUX a bien été modifier", MsgBoxStyle.Information)
|
||
Close()
|
||
End Sub
|
||
|
||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||
Try
|
||
If My.Computer.Network.Ping("www.Google.com") Then
|
||
internet()
|
||
End If
|
||
Catch ex As Exception
|
||
MsgBox("Vous n’êtes actuellement pas connecté à Internet", MsgBoxStyle.Information, "Hors connexion")
|
||
End Try
|
||
End Sub
|
||
Sub internet()
|
||
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsUndefined Or AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsReady Then
|
||
If TextBox1.Text = "" Then
|
||
MsgBox("Merci enter une URL ou un flux", MsgBoxStyle.Exclamation)
|
||
Else
|
||
Try
|
||
AxWindowsMediaPlayer1.URL = TextBox1.Text
|
||
Button2.Text = "Arrêter le teste de la radio"
|
||
Timer1.Start()
|
||
Label2.Show()
|
||
Label3.Show()
|
||
Catch ex As Exception
|
||
MsgBox("Merci entrer une URL ou un flux valide", MsgBoxStyle.Exclamation)
|
||
End Try
|
||
End If
|
||
Else
|
||
Button2.Text = "Tester la radio"
|
||
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
||
Timer1.Stop()
|
||
Label2.Hide()
|
||
Label3.Hide()
|
||
End If
|
||
End Sub
|
||
|
||
Private Sub Form85_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||
Dim lines1a() As String = File.ReadAllLines(théme)
|
||
|
||
If lines1a(0) = 2 Then
|
||
Me.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button1.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button2.BackColor = Color.FromArgb(64, 64, 64)
|
||
Button2.ForeColor = Color.White
|
||
TextBox1.BackColor = Color.FromArgb(64, 64, 64)
|
||
TextBox1.ForeColor = Color.White
|
||
Button1.ForeColor = Color.White
|
||
Label1.ForeColor = Color.White
|
||
Label2.ForeColor = Color.White
|
||
Label3.ForeColor = Color.White
|
||
ElseIf lines1a(0) = 3 Then
|
||
Me.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button2.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
Button2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
TextBox1.BackColor = Color.FromArgb(Form1.colorbackA, Form1.colorbackR, Form1.colorbackG, Form1.colorbackB)
|
||
TextBox1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Button1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label1.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label2.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Label3.ForeColor = Color.FromArgb(Form1.themeforecoloA, Form1.themeforecoloR, Form1.themeforecoloG, Form1.themeforecoloB)
|
||
Else
|
||
|
||
End If
|
||
|
||
AxWindowsMediaPlayer1.Hide()
|
||
Label2.Hide()
|
||
Label3.Hide()
|
||
End Sub
|
||
|
||
Private Sub AxWindowsMediaPlayer1_MediaError(sender As Object, e As _WMPOCXEvents_MediaErrorEvent) Handles AxWindowsMediaPlayer1.MediaError
|
||
MsgBox("L’URL / le flux n'est pas valide ou expirés", MsgBoxStyle.Information)
|
||
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
||
Label2.Hide()
|
||
Label3.Hide()
|
||
Button2.Text = "Tester la radio"
|
||
End Sub
|
||
|
||
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
|
||
Label2.Text = AxWindowsMediaPlayer1.status
|
||
Label3.Text = AxWindowsMediaPlayer1.Ctlcontrols.currentPositionString
|
||
End Sub
|
||
|
||
Private Sub Form85_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
|
||
TextBox1.Clear()
|
||
Label2.Hide()
|
||
Label3.Hide()
|
||
AxWindowsMediaPlayer1.Ctlcontrols.stop()
|
||
Button2.Text = "Tester la radio"
|
||
End Sub
|
||
End Class |