Lyrics Fetcher By BittOo

Lyrics Generator is a program that provider lyrics of any song

you need to do is enter artist name and song name and hit Generate

It is linked with Songlyrics.com so if the song lyrics does'nt exist on the website
then it will show an error .

Screen Shots :

Download Link : https://adf.ly/fTr2k

Tutorial :



Code :
Imports System.Net Imports System.Web.HttpUtility Public Class Form1 'coded by Abhishek Choudhary Public Function Parse(ByVal Html As String, ByVal Before As String, ByVal After As String, ByVal Offset As Integer) As String If String.IsNullOrEmpty(Html) Then Return String.Empty If Html.Contains(Before) Then Dim Returned As String = Html.Substring(Html.IndexOf(Before) + Offset) If Returned.Contains(After) AndAlso Not String.IsNullOrEmpty(After) Then Returned = Returned.Substring(0, Returned.IndexOf(After)) Return Returned Else Return String.Empty End If End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Not String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso Not String.IsNullOrWhiteSpace(TextBox2.Text) Then Try Dim src As String = New WebClient().DownloadString(New Uri(String.Format("http://www.songlyrics.com/{0}/{1}-lyrics/", TextBox1.Text.Replace(" ", "-"), TextBox2.Text.Replace(" ", "-")))) Dim prselyrics As String = Parse(src, "<p id=""songLyricsDiv"" ondragstart=""return false;"" onselectstart=""return false;"" oncontextmenu=""return false;"" class=""songLyricsV14"">", "</p>", "<p id=""songLyricsDiv"" ondragstart=""return false;"" onselectstart=""return false;"" oncontextmenu=""return false;"" class=""songLyricsV14"">".Length).Replace(vbCrLf, "").Replace("<br />", vbCrLf) RichTextBox1.Text = HtmlDecode(prselyrics).Replace(Environment.NewLine, "") RichTextBox1.SelectAll() RichTextBox1.SelectionAlignment = HorizontalAlignment.Center Catch ex As Exception If ex.Message.Contains("404") Then RichTextBox1.Text = "Unable to find lyrics for " & TextBox1.Text + "-" + TextBox2.Text End Try Else MessageBox.Show("Enter song name & artist name to get the lyrics", "Information Missing", MessageBoxButtons.OK, MessageBoxIcon.Asterisk) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim savedialog As New SaveFileDialog savedialog.Title = "Save As..." savedialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" If savedialog.ShowDialog = Windows.Forms.DialogResult.OK Then RichTextBox1.SaveFile(savedialog.FileName, RichTextBoxStreamType.PlainText) End If End Sub Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged End Sub End Class