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)
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
