99在线视频免费,中文字幕在线精品不卡,bt天堂国产亚洲欧美在线

狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

VB使用XMLHTTP實現(xiàn)Post與Get

當前位置：點晴教程→知識管理交流 →『技術文檔交流』

admin

2014年3月24日 12:47 本文熱度 4942

visualbasic6.0的一個模塊方法，使用XMLHTTP實現(xiàn)Post與Get功能，一個老代碼了，替代Inet控件，實現(xiàn)數據通訊，5月的時候修改過，作者不是我本人。模塊代碼：

001 '==========================================================

002 '| 模塊名 | XMLHTTP

003 '| 說明 | 替代Inet控件，實現(xiàn)數據通訊

004 '| 創(chuàng) 建人 | QQ：447201162 E-Mail：447201162@163.com

005 '| 修改 | 2013-05-09

006 '==========================================================Public Enum DataEnum

007 ResponseText = 1

008 ResponseBody = 2

009 End Enum

010

011 Public Function GetData(ByVal Url As String, ByVal DataStic As DataEnum) As Variant

012

013 On Error GoTo ERR:

014 Dim XMLHTTP As Object

015 Dim DataS As String

016 Dim DataB() As Byte

017

018 Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")

019

020 XMLHTTP.Open "get", Url, True

021 XMLHTTP.send

022

023 While XMLHTTP.ReadyState <> 4

024 DoEvents

025 Wend

026 '--------------------------------------函數返回

027 Select Case DataStic

028 Case ResponseText

029 '--------------------------------直接返回字符串

030 DataS = XMLHTTP.ResponseText

031 GetData = DataS

032 Case ResponseBody

033 '--------------------------------直接返回二進制

034 DataB = XMLHTTP.ResponseBody

035 GetData = DataB

036 Case ResponseBody + ResponseText

037 '------------------------------二進制轉字符串[直接返回字串出現(xiàn)亂碼時嘗試]

038 DataS = BytesToStr(XMLHTTP.ResponseBody)

039 GetData = DataS

040 Case Else

041 '--------------------------------無效的返回

042 GetData = ""

043 End Select

044 '--------------------------------------釋放空間

045 Set XMLHTTP = Nothing

046 Exit Function

047 ERR:

048 GetData = ""

049 End Function

050

051 Public Function PostData(ByVal StrUrl As String, ByVal StrData As String, ByVal DataStic As DataEnum) As Variant

052 On Error GoTo ERR:

053

054 Dim XMLHTTP As Object

055 Dim DataS As String

056 Dim DataB() As Byte

057

058 Set XMLHTTP = CreateObject("Microsoft.XMLHTTP")

059

060 XMLHTTP.Open "POST", StrUrl, True

061 XMLHTTP.setRequestHeader "Content-Length", Len(PostData)

062 XMLHTTP.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"

063 XMLHTTP.send (StrData)

064

065 Do Until XMLHTTP.ReadyState = 4

066 DoEvents

067 Loop

068 '-----------------------------函數返回

069 Select Case DataStic

070 Case ResponseText

071 '--------------------------------直接返回字符串

072 DataS = XMLHTTP.ResponseText

073 PostData = DataS

074 Case ResponseBody

075 '--------------------------------直接返回二進制

076 DataB = XMLHTTP.ResponseBody

077 PostData = DataB

078 Case ResponseBody + ResponseText

079 '---------------------------二進制轉字符串[直接返回字串出現(xiàn)亂碼時嘗試]

080 DataS = BytesToStr(XMLHTTP.ResponseBody)

081 PostData = DataS

082 Case Else

083 '--------------------------------無效的返回

084 PostData = ""

085 End Select

086 '------------------------------------釋放空間

087 Set XMLHTTP = Nothing

088 Exit Function

089 ERR:

090 PostData = ""

091 End Function

092

093 Function BytesToStr(ByVal vIn) As String

094 strReturn = ""

095 For i = 1 To LenB(vIn)

096 ThisCharCode = AscB(MidB(vIn, i, 1))

097 If ThisCharCode < &H80 Then

098 strReturn = strReturn & Chr(ThisCharCode)

099 Else

100 NextCharCode = AscB(MidB(vIn, i + 1, 1))

101 strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))

102 i = i + 1

103 End If

104 Next

105 BytesToStr = strReturn

106 End Function

該文章在 2014/3/24 12:47:17 編輯過

關鍵字查詢

實現(xiàn)

正在查詢...

點晴ERP是一款針對中小制造業(yè)的專業(yè)生產管理軟件系統(tǒng),系統(tǒng)成熟度和易用性得到了國內大量中小企業(yè)的青睞。

點晴PMS碼頭管理系統(tǒng)主要針對港口碼頭集裝箱與散貨日常運作、調度、堆場、車隊、財務費用、相關報表等業(yè)務管理，結合碼頭的業(yè)務特點，圍繞調度、堆場作業(yè)而開發(fā)的。集技術的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業(yè)的高效ERP管理信息系統(tǒng)。

點晴WMS倉儲管理系統(tǒng)提供了貨物產品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質期管理,貨位管理,庫位管理,生產管理,WMS管理系統(tǒng),標簽打印,條形碼,二維碼管理,批號管理軟件。

點晴免費OA是一款軟件和通用服務都免費，不限功能、不限時間、不限用戶的免費OA協(xié)同辦公管理系統(tǒng)。