VB 以 PSOT 方式提交数据 并得到返回的网页源码

'作者:CSDN 许仙
'Homepage : jjweb.126.com
'MSN :Coderxu#hotmail.com
'QQ:19030300
'转载请保持文章完整,保存以上作者信息 请珍惜他人劳动成果

    Dim tarr() As Byte
       tarr = StrConv("kind=1&UserID=11", vbFromUnicode)  
    WebBrowser1.Navigate2 http://www.www.com, , , tarr, "Content-Type: application/x-www-form-urlencoded"
'提交数据 以POST方式提交
    Do Until WebBrowser1.Busy = False
        DoEvents
    Loop
'等等加载完成
   debug.print WebBrowser1.Document.body.createtextrange.htmltext
'返回打开网页的内容

'web控件 在98下出错 :( 郁闷整个工程全部重新改的

用 Inet 控件

POST 方式提交数据

Dim postdata As String
    postdata = "kind=" & enmAsp & "&UserID=" & txtUserID & "&PSW=" & txtPSW 
    Inet1.Execute "http://www.www.www", "POST", postdata, "Content-Type: application/x-www-form-urlencoded"
    Do While Inet1.StillExecuting
        DoEvents
    Loop
得到页面返回的数据 Trim(Inet1.GetChunk(1024, icString))
   

GET方式

strResponse = inet.OpenURL("http://www.www.www", & "?UPDATE= OK "  icString)

strResponse 得到页面返回的数据

 

用 xmlhttp 提交数据 http://blog.csdn.net/online/archive/2004/07/07/35994.aspx