Vb.NET 调用模块和短信接口实例
作为 VB6.0 的后续版本，VB.NET 更加稳定，而且完全面向对象。也许你还记得，VB6.0
部支持继承、重载和接口，所以不是真正面向对象的。而 VB.NET 则支持这些面向对象特性。
VB6.0 有两个薄弱环节——多线程和异常处理。在 VB.NET 中，开发多线程应用和使用 C+
+/C#别无二致，结构化异常处理也得到支持。
象、封装、多态、继承是面向对象语言的四个基本属性。 VB6.0 不支持继承，而
VB.NET 则不然。所以，和 C++一样，VB.NET 也是完全面向对象的编程语言。
Vb.NET 用来开发一个管理信息系统是再好不过的了，对于公司或者单位业务等开发出
管理平台或者信息系统是一个很好的方式。说到开发离不开的一点就是模块，用过 vb 写过
程序的都知道，当在做一个系统的时候是需要一个模块来提供调用，否者就会有无效的定
义、参数等等。而模块加入后不仅可以很方便的供程序员开发自主功能的软件，而且也为
程序员减少了很多不必要的麻烦。
如今有许多公司为了减少麻烦，就会在网上直接找相关方面的模块供自己使用，这里
所说的模块也就是所谓的“接口”，如：短信接口等。不同的行业会提供不同功能的接口。
而不同的语言当然也会有所不同，道理是一样的。下面就为 vb.NET 短信接口为例说明一下：
Module SendEsms
Sub Main()
Dim strContent As String = "测试"
Dim uid As String = "test"
Dim pwd As String = "fa246d0262c3925617b0c72bb20eeb1d"
Dim mobile As String = "15900001111,13900001111"
'GET 方式
Dim getReturn As String = doGetRequest("http://api.sms7.cn/tx/?
uid="+uid+"&pwd="+pwd+"&mobile="+mobile+"&content=" + strContent)
Console.WriteLine("Get response is: " & getReturn)
'POST 方式
Dim sbTemp As System.Text.StringBuilder = New
System.Text.StringBuilder()
sbTemp.Append("uid="+uid+"&pwd="+pwd+"&mobile="+mobile+"&content=" +
strContent)
Dim bTemp() As Byte =
System.Text.Encoding.GetEncoding("GBK").GetBytes(sbTemp.ToString())
Dim postReturn As String =
