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()
을 발견했다. 어떤 방법으로 작동하지 않습니까? –
브라우저에서 스크립트를 실행할 때 결과 (print $ num)를 얻지 만 VB에서는 아무것도 얻지 못했습니다. 단지 빈 msgbox입니다. 실제로는 몰랐습니다. HttpWebRequest thats 내가 묻는 방식을 배웠습니다. –
당신은이 방법을 너무 어렵게 만들었습니다. system.net.webclient가 한 줄을 그렸을 것입니다. –