使用 HttpWebRequest 和 Get 方法的 PHP 连接
我有一个脚本返回一个字符串:
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()
I have a script returns a string:
http://example.com/script.php
PHP script:
$data = $_GET['q'];
$query = "SELECT * FROM `table` WHERE ID = '$data'";
$result = mysql_query($query);
$num = mysql_num_rows($result);
print $num;
I want to connect this script with VB, using this code
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
It is not working. How can i do that?
EDIT: I found solution
here
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()
如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱,如果其他用户或者作者回复了您的评论,将不能在第一时间通知您!
发布评论
评论(1)