Онлайн конвертер

  Private Sub doCalculate()
 
        ' Need the scraping
        Try
            Dim strAmount As String = currencyAmount.Text
            'Get values from the textboxes
            Dim strFrom() As String = Split(currencyFrom.Text, " - ")
            Dim strTo() As String = Split(currencyTo.Text, " - ")
            Dim req As System.Net.WebRequest = System.Net.WebRequest.Create("http://www.xe.com/currencyconverter/convert/?Amount=" + strAmount + "&From=" + strFrom(1) + "&To=" + strTo(1) + "&image.x=47&image.y=19&image=Submit")
            Dim resp As System.Net.WebResponse = req.GetResponse
            Dim pos As Integer
            Dim posEnd As Integer
            Using Str As System.IO.Stream = resp.GetResponseStream
                Using srRead As System.IO.StreamReader = New System.IO.StreamReader(Str)
                    Dim strFind As String = " " & strFrom(1) & " = "
                    Dim strAgainFind As String = " "
                    Dim strParse As String = srRead.ReadToEnd()
                    Dim strValue As String
 
                    pos = strParse.IndexOf(strFind)
                    posEnd = strParse.IndexOf(strAgainFind, pos + strFind.Length)
                    strValue = strParse.Substring(pos + strFind.Length, posEnd - (pos + strFind.Length))
 
                    mainText.Text = (Convert.ToDouble(currencyAmount.Text) * Convert.ToDouble(strValue)).ToString() & "  " & strTo(1)
                    convertToLabel.Text = strAmount & " " & strFrom(0) & " Converts To: "
 
                End Using
            End Using
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub