用戶名 Email		保持登入	找回密碼
密碼		登入	立即註冊

快捷導航

• 客服
• 小說
• 論壇BBS
• 感謝祭
• 功能
• 插件
• 正咩
• 合作
• GP商城
• 自助升級
• 儲值楓幣
• 短網址
• 免空

• 領取紅包
• 發帖際遇
• 社區銀行
• 愛刮獎
• Chill2022
• 文章推廣中心
• winter2023

• 站內諮詢
• 聯絡我們
• 關於我們、疑難排解
• 小黑屋
• 違規記錄查詢

• 群組

• 群組
• 導讀
• 家園
• 排行榜
• 日誌
• 相冊
• 記錄
• 商品交易記錄
• 宣傳中心

• 聊天室
• 發帖際遇
• 領取紅包
• 社區銀行
• 拉霸
• 抽彩券
• 積分商城
• 每日答題
• 簽到排行
• 推廣賺錢

• 外掛廣告互惠
• 外掛破解互惠
• 私服廣告互惠
• 廣告刊登
• 外掛/商品販售

搜索

搜索

• 本版
• 帖子
• 日誌
• 相冊
• 群組
• 用戶

冰楓論壇»論壇 › 程式設計/技術交流 › VisualBasic › 別再用MSINET.OCX了，用這個模組簡單多了

返回列表

• 發表文章
• 發起投票
• 發起辯論

查看: 2647|回覆: 6

[原創] 別再用MSINET.OCX了，用這個模組簡單多了     [複製鏈接]

Inndy Inndy 當前離線 11 主題 1 好友 97 積分 技術師 UID 3145 帖子 28 主題 11 精華 1 積分 97 楓幣 2051 威望 76 存款 0 贊助金額 0 推廣 0 ＧＰ 27 閱讀權限 100 性別 保密 在線時間 24 小時 註冊時間 2012-1-24 最後登入 2023-1-19 發消息	電梯直達 1樓 發表於 2013-4-15 11:29:32 |只看該作者 |倒序瀏覽 ' HTTP Downloading Module By Inndy Option Explicit ' For API Private Const CP_ACP = 0        ' default to ANSI code page Private Const CP_UTF8 = 65001   ' default to UTF-8 code page Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long ' For module Public Enum Encode     ANSI = 0     BIG5 = 1     UTF8 = 2 End Enum Private Function ToUTF8(ByVal sData As String) As Byte()     Dim aRetn() As Byte, nSize As Long     nSize = WideCharToMultiByte(CP_UTF8, 0, StrPtr(sData), -1, 0, 0, 0, 0)     ReDim aRetn(0 To nSize - 1) As Byte     WideCharToMultiByte CP_UTF8, 0, StrPtr(sData), -1, VarPtr(aRetn(0)), nSize, 0, 0     ToUTF8 = aRetn End Function Private Function FromUTF8(ByVal sData As String) As Byte()     Dim aRetn() As Byte, nSize As Long     nSize = MultiByteToWideChar(CP_UTF8, 0, StrPtr(sData), -1, 0, 0)     ReDim aRetn(0 To 2 * nSize - 1) As Byte     MultiByteToWideChar CP_UTF8, 0, StrPtr(sData), -1, VarPtr(aRetn(0)), nSize     FromUTF8 = aRetn End Function Public Function DownloadData(ByVal url As String) As Byte()     Dim http As Object     Set http = CreateObject("MSXML2.ServerXMLHTTP")     http.Open "GET", url, False     http.setRequestHeader "Pragma", "no-cache"     http.send     DownloadData = http.responseBody     Set http = Nothing End Function Public Function DownloadString(ByVal url As String, Optional ByVal EncType As Encode = Encode.BIG5) As String     If EncType = Encode.ANSI Then         DownloadString = DownloadData(url)     ElseIf EncType = Encode.BIG5 Then         DownloadString = StrConv(DownloadData(url), vbUnicode)     Else         DownloadString = FromUTF8(DownloadData(url))     End If End Function 複製代碼 已有 1 人評分 楓幣 威望 收起 理由 冰楓 + 20 + 2 讚一個! 總評分: 楓幣 + 20  威望 + 2   查看全部評分
	收藏1 推2 噓0 您可能感興趣的文章 躺著也中槍 [圖/影片]Minus, [圖]Imgur, [檔案]Box, [檔案]MF, [檔案]GoogleDrive play或在遊戲中時...??? 【VB.NET】關於PictureBox下載到指定路徑問題 楓之谷R-免費腳本分享! 請各位幫個忙 6、７、８年級生一定知道的三款手遊 伴你我長大的Nokia 3310！ 波形刷屏程式(原創) 把本文推薦給朋友或其他網站上,每次被點擊增加您在本站積分: 1骰子
	回覆 使用道具 舉報 提升卡 置頂卡 變色卡 搶沙發 千斤頂

複製連結並發給好友，以賺取推廣點數 複製連結 簡單兩步驟，註冊、分享網址，即可獲得獎勵！ 一起推廣文章換商品、賺$$

小神仙 小神仙 當前離線 215 主題 1 好友 792 積分 高級會員 帥哥~ 高級會員, 積分 792, 距離下一級還需 208 積分 UID 19110 帖子 3506 主題 215 精華 1 積分 792 楓幣 563 威望 716 存款 0 贊助金額 45 推廣 58 ＧＰ 67 閱讀權限 50 性別 保密 在線時間 902 小時 註冊時間 2012-12-23 最後登入 2024-4-26 發消息	2樓 發表於 2013-4-15 12:27:12 |只看該作者 這是拿來做什麼的？
	點評回覆 使用道具 舉報

zack2213330 zack2213330 當前離線 29 主題 1 好友 47 積分 新手上路 新手上路, 積分 47, 距離下一級還需 53 積分 UID 15165 帖子 488 主題 29 精華 0 積分 47 楓幣 11591 威望 31 存款 0 贊助金額 0 推廣 0 ＧＰ 11 閱讀權限 10 性別 保密 在線時間 316 小時 註冊時間 2012-10-10 最後登入 2021-8-7 發消息	3樓 發表於 2013-4-15 17:56:07 |只看該作者 謝謝Inndy大大^^ 已有 1 人評分 楓幣 威望 收起 理由 小神仙 -20 -1 萬用回文 總評分: 楓幣 -20  威望 -1   查看全部評分
	http://www.youtube.com/watch?v=hTJuoJBdI3U  有玩AVA的可以看一下  我寫的透視
	點評回覆 使用道具 舉報

a0926206677 a0926206677 當前離線 69 主題 0 好友 84 積分 新手上路 新手上路, 積分 84, 距離下一級還需 16 積分 UID 3082 帖子 941 主題 69 精華 0 積分 84 楓幣 3237 威望 70 存款 0 贊助金額 0 推廣 0 ＧＰ 4 閱讀權限 10 性別 保密 在線時間 273 小時 註冊時間 2012-1-23 最後登入 2024-4-26 發消息	4樓 發表於 2013-4-15 22:16:11 |只看該作者 MSINET.OCX感覺很眼熟 可是還是看不懂
	點評回覆 使用道具 舉報

marianne980 marianne980 當前離線 0 主題 0 好友 1 積分 新手上路 新手上路, 積分 1, 距離下一級還需 99 積分 UID 18231 帖子 17 主題 0 精華 0 積分 1 楓幣 24 威望 0 存款 0 贊助金額 0 推廣 0 ＧＰ 0 閱讀權限 10 性別 保密 在線時間 21 小時 註冊時間 2012-12-7 最後登入 2018-11-26 發消息	5樓 發表於 2013-4-16 21:15:23 |只看該作者 我只知道 有些人的電腦開掛 它會告訴你缺少ocx 我只會把補丁給它們去執行 不知道這個東西該丟進去哪裡? 或許又是不懂程式語言無法理解的東西@@ 還是感謝i大的分享歐~~
	點評回覆 使用道具 舉報

zxc199450 zxc199450 當前離線 26 主題 0 好友 75 積分 迷你贊助會員 UID 29114 帖子 226 主題 26 精華 0 積分 75 楓幣 651 威望 40 存款 2 贊助金額 100 推廣 1 ＧＰ 2 閱讀權限 30 性別 保密 在線時間 195 小時 註冊時間 2013-4-17 最後登入 2021-12-31 發消息	6樓 發表於 2013-4-17 00:18:40 |只看該作者 MSINET.OCX 是什麼? 這模組又該怎麼用?
	點評回覆 使用道具 舉報

david19970722 david19970722 當前離線 1 主題 0 好友 5 積分 新手上路 新手上路, 積分 5, 距離下一級還需 95 積分 UID 9612 帖子 144 主題 1 精華 0 積分 5 楓幣 44 威望 3 存款 0 贊助金額 0 推廣 0 ＧＰ 1 閱讀權限 10 性別 保密 在線時間 34 小時 註冊時間 2012-7-2 最後登入 2016-9-3 發消息	7樓 發表於 2014-4-24 18:09:09 |只看該作者 剛接觸 上面寫的有點難懂 不過感恩
	點評回覆 使用道具 舉報

返回列表

高級模式 B Color Image Link Quote Code Smilies |上傳 點擊附件文件名添加到文章內容中 描述 閱讀權限 發表回覆 回文後跳轉到最後一頁

音樂勳章

音樂勳章

私服達人

私服達人

發帖達人

發帖數達到100

解說達人

發帖≧50且在線時間≧100

論壇粉絲

在線時間≧100

2015中秋節紀念勳章

2015中秋節紀念勳章

VIP會員

贊助論壇

Copyright © 2011-2024 冰楓論壇, All rights reserved

免責聲明：本網站是以即時上載留言的方式運作，本站對所有留言的真實性、完整性及立場等，不負任何法律責任。

而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。