PHP-соединение с использованием HttpWebRequest и метода Get

Question

У меня есть скрипт, возвращает строку:

http://example.com/script.php

PHP скрипт:

$data = $_GET['q'];

$query = "SELECT * FROM `table` WHERE ID = '$data'";
$result = mysql_query($query);
$num = mysql_num_rows($result);

print $num;

Я хочу соединить этот скрипт с VB, используя этот код

Dim con As String
con = "http://example.com/script.php?q=" & My.Settings.setq

Dim request = HttpWebRequest.Create(con)
request.Method = "GET"
Dim response = request.GetResponse()
Using reader = New StreamReader(response.GetResponseStream())
   msgbox(reader.ReadToEnd())
End Using

Это не работает. Как я могу это сделать?

РЕДАКТИРОВАТЬ: я нашел решение

здесь

Dim uri As New Uri("http://example.com")
        Dim data As String = "data"
        If (uri.Scheme = uri.UriSchemeHttp) Then
  Dim request As HttpWebRequest = HttpWebRequest.Create(uri)
            request.Method = WebRequestMethods.Http.Post
            request.ContentLength = data.Length
            request.ContentType = "application/x-www-form-urlencoded"

            Dim writer As New StreamWriter(request.GetRequestStream())
            writer.Write(data)
            writer.Close()

            Dim response As HttpWebResponse = request.GetResponse()
            Dim reader As New StreamReader(response.GetResponseStream())
            Dim tmp As String = reader.ReadToEnd()
            response.Close()

Answer 1

Using wc As New System.Net.WebClient()
    MsgBox(wc.DownloadString(String.Format("http://example.com/script.php?q={0}", My.Settings.setq)))
End Using