'=========================================================='| 模 塊 名 | XMLHTTP'| 說(shuō)  明 | 替代Inet控件，實(shí)現(xiàn)數(shù)據(jù)通訊'==========================================================Public Enum DataEnum  ResponseText = 1  ResponseBody = 2End Enum Public Function GetData(ByVal Url As String, ByVal DataStic As DataEnum) As Variant    On Error GoTo ERR:  Dim XMLHTTP As Object  Dim DataS As String  Dim DataB() As Byte    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")    XMLHTTP.Open "get", Url, True  XMLHTTP.send    While XMLHTTP.ReadyState <> 4    DoEvents  Wend  '--------------------------------------函數(shù)返回  Select Case DataStic  Case ResponseText    '--------------------------------直接返回字符串    DataS = XMLHTTP.ResponseText    GetData = DataS  Case ResponseBody    '--------------------------------直接返回二進(jìn)制    DataB = XMLHTTP.ResponseBody    GetData = DataB  Case ResponseBody + ResponseText    '------------------------------二進(jìn)制轉(zhuǎn)字符串[直接返回字串出現(xiàn)亂碼時(shí)嘗試]    DataS = BytesToStr(XMLHTTP.ResponseBody)    GetData = DataS  Case Else    '--------------------------------無(wú)效的返回    GetData = ""  End Select  '--------------------------------------釋放空間  Set XMLHTTP = Nothing  Exit FunctionERR:  GetData = ""End Function Public Function PostData(ByVal StrUrl As String, ByVal StrData As String, ByVal DataStic As DataEnum) As Variant  On Error GoTo ERR:    Dim XMLHTTP As Object  Dim DataS As String  Dim DataB() As Byte    Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")    XMLHTTP.Open "POST", StrUrl, True  XMLHTTP.setRequestHeader "Content-Length", Len(PostData)  XMLHTTP.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"  XMLHTTP.send (StrData)    Do Until XMLHTTP.ReadyState = 4    DoEvents  Loop  '-----------------------------函數(shù)返回  Select Case DataStic  Case ResponseText    '--------------------------------直接返回字符串    DataS = XMLHTTP.ResponseText    PostData = DataS  Case ResponseBody    '--------------------------------直接返回二進(jìn)制    DataB = XMLHTTP.ResponseBody    PostData = DataB  Case ResponseBody + ResponseText    '---------------------------二進(jìn)制轉(zhuǎn)字符串[直接返回字串出現(xiàn)亂碼時(shí)嘗試]    DataS = BytesToStr(XMLHTTP.ResponseBody)    PostData = DataS  Case Else    '--------------------------------無(wú)效的返回    PostData = ""  End Select  '------------------------------------釋放空間  Set XMLHTTP = Nothing  Exit FunctionERR:  PostData = ""End Function Function BytesToStr(ByVal vIn) As String  strReturn = ""  For i = 1 To LenB(vIn)    ThisCharCode = AscB(MidB(vIn, i, 1))    If ThisCharCode < &H80 Then      strReturn = strReturn & Chr(ThisCharCode)    Else      NextCharCode = AscB(MidB(vIn, i + 1, 1))      strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))      i = i + 1    End If  Next  BytesToStr = strReturnEnd Function