2010-04-26 7 views
0

을 HttpWebRequest를를 사용하여 가져 오기 문자열을 반환PHP 연결 I는 스크립트가 방법

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

을 발견했다. 어떤 방법으로 작동하지 않습니까? –

+0

브라우저에서 스크립트를 실행할 때 결과 (print $ num)를 얻지 만 VB에서는 아무것도 얻지 못했습니다. 단지 빈 msgbox입니다. 실제로는 몰랐습니다. HttpWebRequest thats 내가 묻는 방식을 배웠습니다. –

+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 
관련 문제