VB.NET中网络编程的另一种方案----
system.net中的HttpWebRequest类的使用
在VB.net中进行网络编程，除了我之前写的随笔中的使用WinHttp组件进行编程，还有另一种方法就是使用HttpWebRequest。以下简要将怎么通过HttpWebRequest实现网络请求并获得数据
1、在文档中引入System.Net、System.Web和System.IO:
Imports System.Net
Imports System.Web
Imports System.IO
2、可以在对象浏览器中看到System.Net中所包含的类和方法:
我们要使用的主要是HttpWebRequest、HttpWebResponse这两个类，后期可能会用到更多。
点击按钮请求网页数据的代码：
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'定义一个HttpWebRequest类实体
Dim webRequest As HttpWebRequest
'url
webRequest = CType(Net.WebRequest.Create("http://1.mzwapitest.applinzi.com"), HttpWebRequest)
Dim responseReader As StreamReader
responseReader = New StreamReader(WebRequest.GetResponse().GetResponseStream())
Dim responseData As String
responseData = responseReader.ReadToEnd()
TextBox1.Text = responseData
responseReader.Close()
End Sub
请求结果为“ok”。
注：服务器php是我在新浪sae上创建的一个应用，这个应用连接我在sae上的共享数据库，连接成功会返回ok，所以本次测试结果返回ok。附上php代码:
<?php
header("Content-type:text/html;charset = utf-8");
$name = $_GET['name'];
if ($name=="aaa") {
echo 'mazhongwei';
}
// 连主库
$db = mysql_connect(SAE_MYSQL_HOST_M.':'.SAE_MYSQL_PORT,SAE_MYSQL_USER,SAE_MYSQL_PASS);
//$db = mysql_connect(w.rdc.sae.sina.com.cn.':'.3307,ilzy5im2l1w4im2hl13miwmy3ky3l10h1y3l4wkh);
// 连从库
// $db = mysql_connect(SAE_MYSQL_HOST_S.':'.SAE_MYSQL_PORT,SAE_MYSQL_USER,SAE_MYSQL_PASS);
if ($db) {
// mysql_select_db(app_mzwapitest, $db);
echo 'ok';
// ...
}else {
echo 'error';
}
?>