国产高清在线免费观看-国产高清在线免费无码-国产高清在线男人的天堂-国产高清在线视频-国产高清在线视频精品视频-国产高清在线视频伊甸园

<code id="cskuu"></code>

<rt id="cskuu"></rt>

<table id="cskuu"><xmp id="cskuu"></xmp></table>

<center id="cskuu"><acronym id="cskuu"></acronym></center>

<rt id="cskuu"><tr id="cskuu"></tr></rt>

400 186 1886

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

當(dāng)前位置：點(diǎn)晴教程→知識管理交流 →『技術(shù)文檔交流』

admin

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

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

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

002 '| 模塊名 | XMLHTTP

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

004 '| 創(chuàng) 建人 | QQ：447201162 E-Mail：[email protected]

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 '--------------------------------------函數(shù)返回

027 Select Case DataStic

028 Case ResponseText

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

030 DataS = XMLHTTP.ResponseText

031 GetData = DataS

032 Case ResponseBody

033 '--------------------------------直接返回二進(jìn)制

034 DataB = XMLHTTP.ResponseBody

035 GetData = DataB

036 Case ResponseBody + ResponseText

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

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 '-----------------------------函數(shù)返回

069 Select Case DataStic

070 Case ResponseText

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

072 DataS = XMLHTTP.ResponseText

073 PostData = DataS

074 Case ResponseBody

075 '--------------------------------直接返回二進(jìn)制

076 DataB = XMLHTTP.ResponseBody

077 PostData = DataB

078 Case ResponseBody + ResponseText

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

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 編輯過

關(guān)鍵字查詢

實(shí)現(xiàn)

相關(guān)文章

正在查詢...

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

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

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

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

Copyright 2010-2025 ClickSun All Rights Reserved

主站蜘蛛池模板：日本aⅴ大伊香蕉精品视频人与性动交α欧美精品 | 中国一级毛片视频 | 2025国产福利在线观看 | 四虎影视在线观看2413 | 激情综合色综合啪啪开心 | 色综合av综合无码综合网站 | 熟妇人妻无乱码中文字幕 | 岛国在线无码免费观 | 亚洲一区二区三区无码中文A片 | 无码人妻精品一区二区三区性色 | 精品蜜臀av在线天堂 | 亚洲一级毛片在线 | 亚洲欧美18岁网站 | 国产成人一区二区三区高清 | 亚洲视频91 | 亚洲av无码一区二区三区电影av | 国产人妻无码鲁丝片久久麻豆 | 97丨九色丨国产人妻熟女 | 国产精品欧美亚洲韩国日本久久 | 精品久久久久久中文字幕202 | 一本之道中文字幕久久美香 | 欧洲在线观看福利午夜电影 | 国产精品卡1卡2卡三卡四 | 国产精品欧美韩国日本久久 | 国产成人aa午夜视频 | 不卡一卡二卡三中日字视频 | 欧洲性大片xxxxx久久 | 久久精品国产亚洲av麻豆软 | 亚洲高清毛片一区 | 无码精品人妻一区二区三区e网站黑人入口中国狠狠你懂得 | 中文字幕无码日韩系列 | 成人精品综合免费视频 | 国产成人久久综合电影 | 国产精品自在自线视频 | 国产成人精品一区二区免费 | 亚洲精品另类 | 国产成人综合亚洲欧洲色就色 | 最新日韩在线观看 | 激情内射亚洲一区二区三区爱妻 | 爱啪网亚洲第一福利网站 | 国产麻豆成人传媒免费观看 |

<center id="qwgoo"></center>

<dl id="qwgoo"><tr id="qwgoo"></tr></dl>

<button id="qwgoo"><input id="qwgoo"></input></button>