ابسط مثال لتشغيل ملفات mp3 مستضافة على موقع

كود :
Public Class Form1

    'صيغة الروابط

    'الغامدي

    'http://audio2.islamweb.net/Quran/sghamdi/1001.mp3

    '------------------------------------------------------

    'الحذيفي

    'http://audio2.islamweb.net/Quran/hozefee/1001.mp3

    '------------------------------------------------------

    'عبدالعزيز الاحمد

    'http://audio2.islamweb.net/Quran/aalahmad/1001.mp3



    '\\\\\\\\\\\\\\

    'الطبلاوي

    'http://audio2.islamweb.net/Quran/tablawee/s1.mp3

    '------------------------------------------------------

    'علي جابر

    'http://audio2.islamweb.net/Quran/alijaber/s1.mp3

    '------------------------------------------------------

    'عبدالودود حنيف

    'http://audio2.islamweb.net/Quran/abd_wad/s1.mp3

    '-------------------------------------------------------



    '-------------------------------------------------------



    

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sora.SelectedIndexChanged

        If qare.Text.Trim = "" Then

            MsgBox("يرجى اختيار اسم القاريء", MsgBoxStyle.Critical, "")

            Exit Sub

        End If



        If qare.Text = "sghamdi" Or qare.Text = "hozefee" Or qare.Text = "aalahmad" Then

            Try

                If sora.SelectedIndex < 9 Then

                    Dim p As Integer = sora.SelectedIndex

                    p += 1

                    Dim sn As String = qare.Text

                    AxWindowsMediaPlayer1.URL = "http://audio2.islamweb.net/Quran/" & sn & "/100" & p & ".mp3"



                ElseIf sora.SelectedIndex >= 9 And sora.SelectedIndex <= 98 Then



                    Dim p As Integer = sora.SelectedIndex

                    p += 1

                    Dim sn As String = qare.Text

                    AxWindowsMediaPlayer1.URL = "http://audio2.islamweb.net/Quran/" & sn & "/10" & p & ".mp3"





                ElseIf sora.SelectedIndex >= 99 Then 'And sora.SelectedIndex <= 98 Then



                    Dim p As Double = sora.SelectedIndex

                    p += 1





                    Dim sn As String = qare.Text

                    AxWindowsMediaPlayer1.URL = "http://audio2.islamweb.net/Quran/" & sn & "/1" & p & ".mp3"













                Else

                    MsgBox("غير جاهز", MsgBoxStyle.Information, "")

                End If



            Catch ex As Exception

                MsgBox("عفوا واجه البرنامج خطا ورسالة الخطا هي: " & vbNewLine & Err.Description, MsgBoxStyle.Critical, "")

            End Try

        Else

            Try

                Dim p As Integer = sora.SelectedIndex

                p += 1

                Dim sn As String = qare.Text

                AxWindowsMediaPlayer1.URL = "http://audio2.islamweb.net/Quran/" & sn & "/s" & p & ".mp3"



            Catch ex As Exception

                MsgBox("عفوا واجه البرنامج خطا ورسالة الخطا هي: " & vbNewLine & Err.Description, MsgBoxStyle.Critical, "")

            End Try



        End If



        ' MsgBox(sora.SelectedIndex)





    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MsgBox("برمجة سعود عضو منتدى فيجوال بيسك للعرب" & vbNewLine & "www.vb4arab.com" & vbTab & "1433هـ", MsgBoxStyle.Information, "")

    End Sub



    Private Sub qare_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles qare.MouseEnter

        If qare.SelectedIndex = 0 Then

            ToolTip1.SetToolTip(qare, "الطبلاوي")



        ElseIf qare.SelectedIndex = 1 Then

            ToolTip1.SetToolTip(qare, "علي جابر")



        ElseIf qare.SelectedIndex = 2 Then

            ToolTip1.SetToolTip(qare, " عبدالودود حنيف")



        ElseIf qare.SelectedIndex = 3 Then

            ToolTip1.SetToolTip(qare, " عبدالعزيز الاحمد")



        ElseIf qare.SelectedIndex = 4 Then

            ToolTip1.SetToolTip(qare, "علي الحذيفي")



        ElseIf qare.SelectedIndex = 5 Then

            ToolTip1.SetToolTip(qare, " سعد الغامدي")



        End If



    End Sub



    Private Sub qare_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles qare.SelectedIndexChanged

        sora.Text = Nothing

        AxWindowsMediaPlayer1.URL = Nothing

    End Sub



    Private Sub qare_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles qare.Validating



    End Sub

End Class