VB6怎么运行一个短信发布功能，采用HTTP方式

VB6怎样运行一个短信发布功能，采用HTTP方式？
某短信公司的短信接口文档如下：

短信发送
GET/POST操作格式：
http://223.4.xxx.xxx/ba/?user=用户账号&pass=密码&mobile=手机号码&content=内容
(提示：上面http网址粘贴到地址栏上，相当于发布短信，同时页面会有返回值)
短信发布成功，返回值 100；发布失败，返回值101

请问，如何用VB6实现上面的短信发布功能。
提示，在Form1窗体上，已有帐号、密码、手机号码、内容的Textbox控件，但不知道用什么方式实现短信发布，要求能判断返回值，求可行的代码方案。实现者得分。
------解决方案--------------------
引用MSXML 6.0库
xmlhttp.Post 你的url
------解决方案--------------------

Function GetByWinHttp$(ByVal GetUrl$)

    On Error Resume Next

    Dim XmlHttp As Object

    'Dim PicBytes() As Byte                                      '验证码字节数组

    Set XmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")

    With XmlHttp

        '.SetProxy 2, "IP:Port"     '设置代理

        If InStr(GetUrl, "&__K") <> 0 Then .Option(6) = False                   '禁止重定向

        .Open "GET", GetUrl, True

        .SetRequestHeader "Accept", "image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/msword, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, application/QVOD, application/QVOD, */*"

        .SetRequestHeader "Accept-Language", "zh-cn"

        .SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)"

        '.SetRequestHeader "Accept-Encoding","gzip, deflate"    'gzip为压缩格式,一般可注释此行,如获取不到页面内容,或许就需要解压了.

        '.SetRequestHeader "Host","bbs.9dufz.com"             '一般可以省略。

        .SetRequestHeader "Connection", "Keep-Alive"

        .Send

        .WaitForResponse

        '            PicBytes = .ResponseBody                    '下载后加载验证码

        '            Open App.Path & "\VerCode.jpg" For Binary As #1

        '                Put #1, , PicBytes

        '            Close #1

        '            frmMain.Picture1.Picture = LoadPicture(App.Path & "\VerCode.jpg")

        '            Kill App.Path & "\VerCode.jpg"

        '========================================================'直接加载验证码[需加载ModLoadPngPic.Bas模块]

        '            Dim m_token As Long

        '            Dim StartupInput As GdiplusStartupInput

        '            StartupInput.GdiplusVersion = 1

        '            If GdiplusStartup(m_token, StartupInput, ByVal 0&) Then

        '                MsgBox "Error initializing GDI+"

        '                Exit Function