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()
Может быть, вы должны дать более подробную информацию. Каким образом это не работает? –
Когда я запускаю сценарий в браузере, я получаю результат (print $ num), но в VB я ничего не получаю, просто пустой msgbox, я не знаю, я только что узнал, что HttpWebRequest, который я прошу –
. Вы слишком сильно сделали это на себя: system.net.webclient выполнил бы одну линию. –