.NET Auto define word in clipboard (Text2Speech) [+SOURCE]

Code
Imports System.Text.RegularExpressions



Public Class Form1

    Dim Word As String

    Dim PrevWord As String

    Dim URL As String = "http://services.aonaware.com/DictService/Default.aspx?action=define&dict=wn&query=" & Word



    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Timer1.Enabled = True

        Timer1.Start()





    End Sub



    Private Function GetBetween(ByVal input As String, ByVal str1 As String, ByVal str2 As String, ByVal index As Integer) As String

        Dim temp As String = System.Text.RegularExpressions.Regex.Split(input, str1)(index + 1)

        Return System.Text.RegularExpressions.Regex.Split(temp, str2)(0)

    End Function



    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick





        Log("-----------------")

        Log("Timer1 Ticked")



        Word = Clipboard.GetText()

        If Word = "" Or Word.Length > 64 Then

            'long or empty

            Log("Word is too long or empty")

        Else

            'Word is not empty and is less than 10 chars

            Log("Word from clipboard is " & Word)



            'preparing to look up word, setting variable prevword to our current word

            PrevWord = Word

            Log("Set PrevWord to " & Word)

            Log("Looking up word: " & Word)



            Dim Source As String

            Dim Definition As String

            Dim URL As String = "http://services.aonaware.com/DictService/Default.aspx?action=define&dict=wn&query=" & Word



            Using WC As New Net.WebClient

                Source = WC.DownloadString(URL)

                If Source.Contains("No definitions found for") Then

                    'couldnt find def

                    Log("No definition for word: " & Word)

                Else





                    Definition = GetBetween(Source, ": ", ":", 0).Replace(" [syn", String.Empty).Replace("&quot;", String.Empty)

                    Definition = CleanString(Definition)





                    Log("Definition: " & Definition)



                    ListBox2.Items.Add("Word: " & Word & " - Definition: " & Definition)



                    Log("Reading the definition to the user")

                    Dim SAPI

                    SAPI = CreateObject("SAPI.spvoice")

                    SAPI.Speak(Definition)



                    Log("Done reading definition to user")

                End If

            End Using



            Timer1.Enabled = False

            Timer1.Stop()



            'lookup here

            Word = ""

            Log("Word Checkup Done, setting word to BLANK and waiting for new word")



            Clipboard.Clear()



            Timer1.Enabled = True

            Timer1.Start()

        End If





    End Sub

    Function Log(ByVal Message As String)

        ListBox1.Items.Add("[" & DateTime.Now.ToLongTimeString() & "] - " & Message)



        Try

            ListBox1.SelectedIndex = ListBox1.Items.Count - 1

        Catch ex As Exception



        End Try



    End Function



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

        Timer1.Enabled = False

        Timer1.Stop()



        ListBox1.Items.Clear()



        Timer1.Enabled = True

        Timer1.Start()

    End Sub



    Function CleanString(ByVal Str As String)

        'remove all excessive spaces

        Dim cleaned As String = Regex.Replace(Str, "\s{2,}", " ")



        'remove all numerals

        Dim RemovedNumerals As String = Regex.Replace(cleaned, "[\d-]", String.Empty)





        Return Regex.Replace(RemovedNumerals, "<.*?>", "")

    End Function

End Class