日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

LOGO OA教程 ERP教程 模切知識交流 PMS教程 CRM教程 開發文檔 其他文檔  
 
網站管理員

VB使用XMLHTTP實現Post與Get
admin
2014年3月24日 12:47 本文熱度 5363

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









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






002 '| 模 塊 名 | XMLHTTP






003 '| 說 明 | 替代Inet控件，實現數據通訊






004 '| 創 建 人 | 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 '------------------------------二進制轉字符串[直接返回字串出現亂碼時嘗試]






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 '---------------------------二進制轉字符串[直接返回字串出現亂碼時嘗試]






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 編輯過
關鍵字查詢
相關文章
正在查詢...
點晴ERP是一款針對中小制造業的專業生產管理軟件系統,系統成熟度和易用性得到了國內大量中小企業的青睞。
點晴PMS碼頭管理系統主要針對港口碼頭集裝箱與散貨日常運作、調度、堆場、車隊、財務費用、相關報表等業務管理，結合碼頭的業務特點，圍繞調度、堆場作業而開發的。集技術的先進性、管理的有效性于一體，是物流碼頭及其他港口類企業的高效ERP管理信息系統。
點晴WMS倉儲管理系統提供了貨物產品管理,銷售管理,采購管理,倉儲管理,倉庫管理,保質期管理,貨位管理,庫位管理,生產管理,WMS管理系統,標簽打印,條形碼,二維碼管理,批號管理軟件。
點晴免費OA是一款軟件和通用服務都免費，不限功能、不限時間、不限用戶的免費OA協同辦公管理系統。
Copyright 2010-2025 ClickSun All Rights Reserved

主站蜘蛛池模板： 国产精品偷伦 | 亚洲国产中文字幕 | 国产欧美亚洲专区在线 | 国产精品亚洲综合天堂夜夜 | 九九视频国产免 | 日韩一级在线精品国产 | 欧美精品一区二区三区视频 | 欧美午夜 | 在线观看国产91精品 | 男人本色国产在线综合 | 丰满老熟好大bbb | 在线可以看 | 国产精品亚洲一区二区在线观看 | 国产真实强奷网站在线播放 | 精品国内一区二区三区蜜桃 | 无人区码一码二码三 | 日产乱码一区二区 | 日韩a一级毛 | 亚洲伦理一区二区 | 亚洲一区二区天海 | 日韩欧美卡一卡二卡新区 | 亚洲欧美一区二区三区不卡 | 欧美日韩国产一区二区三区在线 | 日本精品欧美一区二区三区 | 一区二区三区中文字幕 | 国产日韩综合一区在线观看 | 极品美女一区二 | 国产宅男z资 | 国产在视频线精品视频二代 | 国产乱码精品一区二区三区四 | 青青草免费观看 | 日韩在线欧美精 | 强被迫伦姧在线观 | 国产精品岛国 | 国语对白刺激精品视频 | 亚洲人成影视在线观看 | 91精品国自产在线观看 | 日本sm | 一区二区三区四区视频在线 | 亚洲一区二区精品 | 偷妇激情www色色五月丁香婷 |