vb调用winInet API接口post数据到指定的url[3]

           const http_addreq_flag_replace = &h80000000
  sheader = "content-type: application/x-www-form-urlencoded" _
             & vbcrlf
           bret = httpaddrequestheaders(hhttpopenrequest, _
             sheader, len(sheader), http_addreq_flag_replace _
             or http_addreq_flag_add)
  
           dim lpszpostdata as string
           dim lpostdatalen as long
  
           lpszpostdata = postdat$
           lpostdatalen = len(lpszpostdata)
           bret = httpsendrequest(hhttpopenrequest, _
                  vbnullstring, _
                  0, _
                  lpszpostdata, _
                  lpostdatalen)
  
           dim bdoloop             as boolean
           dim sreadbuffer         as string * 2048
           dim lnumberofbytesread  as long
           dim sbuffer             as string
           bdoloop = true
           while bdoloop
            sreadbuffer = vbnullstring
            bdoloop = internetreadfile(hhttpopenrequest, _
               sreadbuffer, len(sreadbuffer), lnumberofbytesread)
            sbuffer = sbuffer & _
                 left(sreadbuffer, lnumberofbytesread)
            if not cbool(lnumberofbytesread) then bdoloop = false
           wend
           postinfo = sbuffer
           bret = internetclosehandle(hhttpopenrequest)
        end if
        bret = internetclosehandle(hinternetconnect)
     end if
     bret = internetclosehandle(hinternetopen)
  end if
end function

public sub splitaddr(byval addr$, srv$, script$)
'inputs: the full url including http://
' two variables that will be changed
'
'returns: splits the addr$ var into the server name
' and the script path

  dim i%

  i = instr(addr$, "/")
  srv$ = mid(addr$, i + 2, len(addr$) - (i + 1))
  i = instr(srv$, "/")
  script$ = mid(srv$, i, len(srv$) + 1 - i)
  srv$ = left$(srv$, i - 1)

end sub