当前位置:编程学习 > VB >>

关于vb使用xmlhttp

就是客户端使用vb 的msxml组建访问服务器端的时间序列的实时数据库,返回给客户端,看过相关的一些技术文档,不过看得不太懂,哪位老大能给个示例我看看啊,包括客户端如何发送请求,服务器端如何接收请求并从数据库中提取数据,然后返回客户端,第一次接触xmlhttp,实在是不懂的说 --------------------编程问答--------------------

' 客户端下载
' 工程引用Microsoft XML
Private Sub Download()
    Set oXmlHttp = New MSXML2.XMLHTTP
    Dim SendStr As String
    oXmlHttp.open "POST", "http://www.cqucb.com", False
    ' POST 方式是为了发送用户名、密码参数, 你也可以用GET
    SendStr = "username=" & txtUsername.Text & _
                "&password=" & txtPassword.Text
    oXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    oXmlHttp.setRequestHeader "Content-Length", Len(SendStr)
    oXmlHttp.sEnd SendStr
    ' 这时进程处于阻塞状态,下载完成后才能继续执行下一条语句
    debug.print oXmlHttp.responseBody
End Sub


至于服务端你要用asp(.net)/php 读取数据库并返回, 这个就不属于vb的范围的 --------------------编程问答-------------------- 这是最简单的了.

如果你对xmlhttp一点不明白 最好的办法就是google

Private Sub Command1_Click()

    Dim xh As New MSXML2.XMLHTTP

    xh.open "Get", "http://www.csdn.net", False
    xh.send
    
    While xh.readyState <> 4
        DoEvents
    Wend
    
    Me.RichTextBox1.Text = xh.responseText

End Sub

补充:VB ,  网络编程
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,