2010-04-26 3 views
0

У меня есть скрипт возвращает строку:PHP подключение с помощью HttpWebRequest и получить метод

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 

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

EDIT: Я нашел решение

здесь

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() 
+0

Может быть, вы должны дать более подробную информацию. Каким образом это не работает? –

+0

Когда я запускаю сценарий в браузере, я получаю результат (print $ num), но в VB я ничего не получаю, просто пустой msgbox, я не знаю, я только что узнал, что HttpWebRequest, который я прошу –

+0

. Вы слишком сильно сделали это на себя: system.net.webclient выполнил бы одну линию. –

ответ

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

 Смежные вопросы

  • Нет связанных вопросов^_^