Imports System.Net Imports System.IO Imports System.Net.NetworkInformation Imports System.Net.Mail Public Class Form1 Private WithEvents httpclient As WebClient Private WithEvents httpclient2 As WebClient Private WithEvents httpclient3 As WebClient Private WithEvents httpclient4 As WebClient Private WithEvents httpclient5 As WebClient Private Function getHTML(ByVal Address As String) As String Dim rt As String = "" Dim wRequest As WebRequest Dim wResponse As WebResponse Dim SR As StreamReader wRequest = WebRequest.Create(Address) wResponse = wRequest.GetResponse SR = New StreamReader(wResponse.GetResponseStream) rt = SR.ReadToEnd SR.Close() Return rt End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox7.Text = "" Dim searchSong As String = TextBox1.Text Dim newSearchSong As String = Replace(searchSong, " ", "_") Dim WebSearch As String = "http://mp3skull.com/mp3/" & newSearchSong & ".html" RichTextBox1.Text = getHTML(WebSearch) Try Dim strSource As String = RichTextBox1.Text Dim strSmaller As String = Mid(strSource, InStr(strSource, "http://dc"), 122) TextBox7.Text = strSmaller Dim sOne As String = TextBox7.Text Dim sOne2 As String = Mid(sOne, 110) Dim checkOne As String = TextBox14.Text If sOne2 = checkOne Then Dim sOne3 As String = Replace(sOne, checkOne, "/preview.mp3") TextBox7.Text = sOne3 End If Dim sOne4444 As String = Mid(sOne, 117) If sOne4444 = "/previ" Then Dim sOne5555 As String = Replace(sOne, sOne4444, "/preview.mp3") TextBox7.Text = sOne5555 End If Dim sOne444 As String = Mid(sOne, 116) If sOne444 = "/previe" Then Dim sOne555 As String = Replace(sOne, sOne444, "/preview.mp3") TextBox7.Text = sOne555 End If Dim sOne44 As String = Mid(sOne, 115) If sOne44 = "/preview" Then Dim sOne55 As String = Replace(sOne, sOne44, "/preview.mp3") TextBox7.Text = sOne55 End If Dim sOne4 As String = Mid(sOne, 114) If sOne4 = "/preview." Then Dim sOne5 As String = Replace(sOne, sOne4, "/preview.mp3") TextBox7.Text = sOne5 End If Dim sOne6 As String = Mid(sOne, 113) If sOne6 = "/preview.m" Then Dim sOne7 As String = Replace(sOne, sOne6, "/preview.mp3") TextBox7.Text = sOne7 End If Dim sOne8 As String = Mid(sOne, 112) If sOne8 = "/preview.mp" Then Dim sOne9 As String = Replace(sOne, sOne8, "/preview.mp3") TextBox7.Text = sOne9 End If Dim sOne10 As String = Mid(sOne, 109) Dim checkOne2 As String = TextBox15.Text If sOne10 = checkOne2 Then Dim sOne11 As String = Replace(sOne, checkOne2, "/preview.mp3") TextBox7.Text = sOne11 End If Dim sOne12 As String = Mid(sOne, 108) Dim checkOne3 As String = TextBox16.Text If sOne12 = checkOne3 Then Dim sOne13 As String = Replace(sOne, checkOne3, "/preview.mp3") TextBox7.Text = sOne13 End If Dim sOne14 As String = Mid(sOne, 107) Dim checkOne4 As String = TextBox17.Text If sOne14 = checkOne4 Then Dim sOne15 As String = Replace(sOne, checkOne4, "/preview.mp3") TextBox7.Text = sOne15 End If Dim sOne16 As String = Mid(sOne, 106) Dim checkOne5 As String = TextBox18.Text If sOne16 = checkOne5 Then Dim sOne17 As String = Replace(sOne, checkOne5, "/preview.mp3") TextBox7.Text = sOne17 End If If TextBox7.Text = "" Then Label4.Visible = False Else Label4.Visible = True Timer1.Enabled = True Timer2.Enabled = True End If Catch ex As Exception MessageBox.Show("Critical error finding song. Please try again.") End Try ' strSmaller is rough download link ' Dim strSongName As String = TextBox2.Text ' this is equal to song name in text box 2 ' Dim strNewSongName As String = Replace(strSmaller, "preview", strSongName) End Sub Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged If TextBox2.Text = "" Then Button7.Enabled = False Else Button7.Enabled = True End If End Sub Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged If TextBox3.Text = "" Then Button8.Enabled = False Else Button8.Enabled = True End If End Sub Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged If TextBox4.Text = "" Then Button9.Enabled = False Else Button9.Enabled = True End If End Sub Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged If TextBox5.Text = "" Then Button10.Enabled = False Else Button10.Enabled = True End If End Sub Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged If TextBox6.Text = "" Then Button11.Enabled = False Else Button11.Enabled = True End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox8.Text = TextBox7.Text TextBox2.Text = TextBox1.Text If TextBox8.Text = "" Then MsgBox("No song file was accepted.") Else PictureBox1.Visible = True End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox9.Text = TextBox7.Text TextBox3.Text = TextBox1.Text If TextBox9.Text = "" Then MsgBox("No song file was accepted.") Else PictureBox2.Visible = True End If End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click TextBox10.Text = TextBox7.Text TextBox4.Text = TextBox1.Text If TextBox10.Text = "" Then MsgBox("No song file was accepted.") Else PictureBox3.Visible = True End If End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click TextBox11.Text = TextBox7.Text TextBox5.Text = TextBox1.Text If TextBox11.Text = "" Then MsgBox("No song file was accepted.") Else PictureBox4.Visible = True End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click TextBox12.Text = TextBox7.Text TextBox6.Text = TextBox1.Text If TextBox12.Text = "" Then MsgBox("No song file was accepted.") Else PictureBox5.Visible = True End If End Sub Private Sub Button12_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click Dim folderBrowser1 As New FolderBrowserDialog folderBrowser1.Description = "Choose default save location for MP3 files." folderBrowser1.ShowDialog() Dim defaultSelect As String = folderBrowser1.SelectedPath.ToString TextBox13.Text = defaultSelect End Sub Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click Try If TextBox13.Text = "" Then MsgBox("Please choose a save location in the top right corner.") Else httpclient = New WebClient Dim sourceURL = TextBox8.Text Dim filedir = TextBox13.Text & "\" & TextBox2.Text & ".mp3" ProgressBar1.Value = 0 ProgressBar1.Maximum = 100 Label5.Text = TextBox2.Text Try httpclient.DownloadFileAsync(New Uri(sourceURL), (filedir)) Catch ex As Exception MsgBox("failed" + ErrorToString(), MsgBoxStyle.Critical) End Try End If Catch ex As Exception MsgBox("No song file was accepted.") End Try End Sub Private Sub httpclient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient.DownloadProgressChanged Label8.Text = ProgressBar1.Value & ("%") Dim firstNum As Double = e.TotalBytesToReceive / 1048576 Label7.Text = "/" & Math.Round(firstNum, 2) Dim secNum As Double = e.BytesReceived / 1048576 Label6.Text = Math.Round(secNum, 2) ProgressBar1.Value = e.ProgressPercentage If e.ProgressPercentage = ProgressBar1.Maximum Then Label8.Text = "Complete!" PictureBox11.Visible = True End If End Sub Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Try If TextBox13.Text = "" Then MsgBox("Please choose a save location in the top right corner.") Else httpclient2 = New WebClient Dim sourceURL = TextBox9.Text Dim filedir = TextBox13.Text & "\" & TextBox3.Text & ".mp3" ProgressBar4.Value = 0 ProgressBar4.Maximum = 100 Label24.Text = TextBox3.Text Try httpclient2.DownloadFileAsync(New Uri(sourceURL), (filedir)) Catch ex As Exception MsgBox("failed" + ErrorToString(), MsgBoxStyle.Critical) End Try End If Catch ex As Exception MsgBox("No song file was accepted.") End Try End Sub Private Sub httpclient2_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient2.DownloadProgressChanged Label17.Text = ProgressBar4.Value & ("%") Dim firstNum As Double = e.TotalBytesToReceive / 1048576 Label10.Text = "/" & Math.Round(firstNum, 2) Dim secNum As Double = e.BytesReceived / 1048576 Label9.Text = Math.Round(secNum, 2) ProgressBar4.Value = e.ProgressPercentage If e.ProgressPercentage = ProgressBar4.Maximum Then Label17.Text = "Complete!" PictureBox12.Visible = True End If End Sub Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click Try If TextBox13.Text = "" Then MsgBox("Please choose a save location in the top right corner.") Else httpclient3 = New WebClient Dim sourceURL = TextBox10.Text Dim filedir = TextBox13.Text & "\" & TextBox4.Text & ".mp3" ProgressBar2.Value = 0 ProgressBar2.Maximum = 100 Label23.Text = TextBox4.Text Try httpclient3.DownloadFileAsync(New Uri(sourceURL), (filedir)) Catch ex As Exception MsgBox("failed" + ErrorToString(), MsgBoxStyle.Critical) End Try End If Catch ex As Exception MsgBox("No song file was accepted.") End Try End Sub Private Sub httpclient3_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient3.DownloadProgressChanged Label18.Text = ProgressBar2.Value & ("%") Dim firstNum As Double = e.TotalBytesToReceive / 1048576 Label12.Text = "/" & Math.Round(firstNum, 2) Dim secNum As Double = e.BytesReceived / 1048576 Label11.Text = Math.Round(secNum, 2) ProgressBar2.Value = e.ProgressPercentage If e.ProgressPercentage = ProgressBar2.Maximum Then Label18.Text = "Complete!" PictureBox13.Visible = True End If End Sub Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click Try If TextBox13.Text = "" Then MsgBox("Please choose a save location in the top right corner.") Else httpclient4 = New WebClient Dim sourceURL = TextBox11.Text Dim filedir = TextBox13.Text & "\" & TextBox5.Text & ".mp3" ProgressBar5.Value = 0 ProgressBar5.Maximum = 100 Label22.Text = TextBox5.Text Try httpclient4.DownloadFileAsync(New Uri(sourceURL), (filedir)) Catch ex As Exception MsgBox("failed" + ErrorToString(), MsgBoxStyle.Critical) End Try End If Catch ex As Exception MsgBox("No song file was accepted.") End Try End Sub Private Sub httpclient4_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient4.DownloadProgressChanged Label19.Text = ProgressBar5.Value & ("%") Dim firstNum As Double = e.TotalBytesToReceive / 1048576 Label14.Text = "/" & Math.Round(firstNum, 2) Dim secNum As Double = e.BytesReceived / 1048576 Label13.Text = Math.Round(secNum, 2) ProgressBar5.Value = e.ProgressPercentage If e.ProgressPercentage = ProgressBar5.Maximum Then Label19.Text = "Complete!" PictureBox14.Visible = True End If End Sub Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click Try If TextBox13.Text = "" Then MsgBox("Please choose a save location in the top right corner.") Else httpclient5 = New WebClient Dim sourceURL = TextBox12.Text Dim filedir = TextBox13.Text & "\" & TextBox6.Text & ".mp3" ProgressBar3.Value = 0 ProgressBar3.Maximum = 100 Label21.Text = TextBox6.Text Try httpclient5.DownloadFileAsync(New Uri(sourceURL), (filedir)) Catch ex As Exception MsgBox("failed" + ErrorToString(), MsgBoxStyle.Critical) End Try End If Catch ex As Exception MsgBox("No song file was accepted.") End Try End Sub Private Sub httpclient5_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient5.DownloadProgressChanged Label20.Text = ProgressBar3.Value & ("%") Dim firstNum As Double = e.TotalBytesToReceive / 1048576 Label16.Text = "/" & Math.Round(firstNum, 2) Dim secNum As Double = e.BytesReceived / 1048576 Label15.Text = Math.Round(secNum, 2) ProgressBar3.Value = e.ProgressPercentage If e.ProgressPercentage = ProgressBar3.Maximum Then Label20.Text = "Complete!" PictureBox15.Visible = True End If End Sub Private Sub PictureBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox6.Click PictureBox1.Visible = False PictureBox11.Visible = False TextBox2.Text = "" TextBox8.Text = "" ProgressBar1.Value = 0 Label5.Text = "" Label8.Text = "0%" Label6.Text = "0.00" Label7.Text = "/0.00" End Sub Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click PictureBox2.Visible = False PictureBox12.Visible = False TextBox3.Text = "" TextBox9.Text = "" ProgressBar4.Value = 0 Label24.Text = "" Label17.Text = "0%" Label9.Text = "0.00" Label10.Text = "/0.00" End Sub Private Sub PictureBox8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox8.Click PictureBox3.Visible = False PictureBox13.Visible = False TextBox4.Text = "" TextBox10.Text = "" ProgressBar2.Value = 0 Label23.Text = "" Label18.Text = "0%" Label11.Text = "0.00" Label12.Text = "/0.00" End Sub Private Sub PictureBox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox9.Click PictureBox4.Visible = False PictureBox14.Visible = False TextBox5.Text = "" TextBox11.Text = "" ProgressBar5.Value = 0 Label22.Text = "" Label19.Text = "0%" Label13.Text = "0.00" Label14.Text = "/0.00" End Sub Private Sub PictureBox10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox10.Click PictureBox5.Visible = False PictureBox15.Visible = False TextBox6.Text = "" TextBox12.Text = "" ProgressBar3.Value = 0 Label21.Text = "" Label20.Text = "0%" Label15.Text = "0.00" Label16.Text = "/0.00" End Sub Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click Dim openFileDialog1 As New OpenFileDialog openFileDialog1.Filter = "Mp3 files (*.mp3)|*.mp3|All files (*.*)|*.*" openFileDialog1.Title = "Choose Mp3 file to play." openFileDialog1.FileName = "" openFileDialog1.ShowDialog() AxWindowsMediaPlayer1.URL = openFileDialog1.FileName ListBox1.Items.Add(AxWindowsMediaPlayer1.URL) End Sub Private Sub PictureBox16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox16.Click ListBox1.Items.Remove(ListBox1.SelectedItem) End Sub Private Sub ListBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick Try AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem Catch ex As Exception MsgBox("No file selected.") End Try End Sub Private Sub PictureBox11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox11.Click Try AxWindowsMediaPlayer1.URL = TextBox13.Text & "\" & TextBox2.Text & ".mp3" ListBox1.Items.Add(AxWindowsMediaPlayer1.URL) Catch ex As Exception MsgBox("Could not find file.") End Try End Sub Private Sub PictureBox12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox12.Click Try AxWindowsMediaPlayer1.URL = TextBox13.Text & "\" & TextBox3.Text & ".mp3" ListBox1.Items.Add(AxWindowsMediaPlayer1.URL) Catch ex As Exception MsgBox("Could not find file.") End Try End Sub Private Sub PictureBox13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox13.Click Try AxWindowsMediaPlayer1.URL = TextBox13.Text & "\" & TextBox4.Text & ".mp3" ListBox1.Items.Add(AxWindowsMediaPlayer1.URL) Catch ex As Exception MsgBox("Could not find file.") End Try End Sub Private Sub PictureBox14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox14.Click Try AxWindowsMediaPlayer1.URL = TextBox13.Text & "\" & TextBox5.Text & ".mp3" ListBox1.Items.Add(AxWindowsMediaPlayer1.URL) Catch ex As Exception MsgBox("Could not find file.") End Try End Sub Private Sub PictureBox15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox15.Click Try AxWindowsMediaPlayer1.URL = TextBox13.Text & "\" & TextBox6.Text & ".mp3" ListBox1.Items.Add(AxWindowsMediaPlayer1.URL) Catch ex As Exception MsgBox("Could not find file.") End Try End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If Label4.Visible = True Then Label4.Visible = False ElseIf Label4.Visible = False Then Label4.Visible = True End If End Sub Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick Timer1.Enabled = False Timer2.Enabled = False End Sub Private Sub PictureBox17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox17.Click RichTextBox2.Visible = True PictureBox17.Visible = False PictureBox18.Visible = True PictureBox19.Visible = True End Sub Private Sub PictureBox18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox18.Click If RichTextBox2.Text = "" Then MsgBox("Please write a message.") Else Dim Mail As New MailMessage Mail.Subject = "Tune Wire Response" Mail.To.Add("tune.wire2012@gmail.com") Mail.From = New MailAddress("tune.wire2012@gmail.com") Mail.Body = RichTextBox2.Text & vbNewLine & TimeOfDay & " " & DateString Dim SMTP As New SmtpClient("smtp.gmail.com") SMTP.EnableSsl = True 'credentials go here SMTP.Port = "587" SMTP.Send(Mail) MsgBox("Message sent! Thanks for caring!") RichTextBox2.Visible = False PictureBox17.Visible = True PictureBox18.Visible = False End If End Sub Private Sub PictureBox19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox19.Click RichTextBox2.Visible = False PictureBox17.Visible = True PictureBox18.Visible = False PictureBox19.Visible = False End Sub End Class