別再用MSINET.OCX了，用這個模組簡單多了

Inndy

1. ' HTTP Downloading Module By Inndy
   
2. Option Explicit
   
3. ' For API
   
4. Private Const CP_ACP = 0        ' default to ANSI code page
   
5. Private Const CP_UTF8 = 65001   ' default to UTF-8 code page
   
6. 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
   
7. 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
   
8. ' For module
   
9. Public Enum Encode
   
10.     ANSI = 0
    
11.     BIG5 = 1
    
12.     UTF8 = 2
    
13. End Enum
    
14. 
    
15. Private Function ToUTF8(ByVal sData As String) As Byte()
    
16.     Dim aRetn() As Byte, nSize As Long
    
17.     nSize = WideCharToMultiByte(CP_UTF8, 0, StrPtr(sData), -1, 0, 0, 0, 0)
    
18.     ReDim aRetn(0 To nSize - 1) As Byte
    
19.     WideCharToMultiByte CP_UTF8, 0, StrPtr(sData), -1, VarPtr(aRetn(0)), nSize, 0, 0
    
20.     ToUTF8 = aRetn
    
21. End Function
    
22. 
    
23. Private Function FromUTF8(ByVal sData As String) As Byte()
    
24.     Dim aRetn() As Byte, nSize As Long
    
25.     nSize = MultiByteToWideChar(CP_UTF8, 0, StrPtr(sData), -1, 0, 0)
    
26.     ReDim aRetn(0 To 2 * nSize - 1) As Byte
    
27.     MultiByteToWideChar CP_UTF8, 0, StrPtr(sData), -1, VarPtr(aRetn(0)), nSize
    
28.     FromUTF8 = aRetn
    
29. End Function
    
30. 
    
31. Public Function DownloadData(ByVal url As String) As Byte()
    
32.     Dim http As Object
    
33.     Set http = CreateObject("MSXML2.ServerXMLHTTP")
    
34.     http.Open "GET", url, False
    
35.     http.setRequestHeader "Pragma", "no-cache"
    
36.     http.send
    
37.     DownloadData = http.responseBody
    
38.     Set http = Nothing
    
39. End Function
    
40. 
    
41. Public Function DownloadString(ByVal url As String, Optional ByVal EncType As Encode = Encode.BIG5) As String
    
42.     If EncType = Encode.ANSI Then
    
43.         DownloadString = DownloadData(url)
    
44.     ElseIf EncType = Encode.BIG5 Then
    
45.         DownloadString = StrConv(DownloadData(url), vbUnicode)
    
46.     Else
    
47.         DownloadString = FromUTF8(DownloadData(url))
    
48.     End If
    
49. End Function

複製代碼

小神仙

這是拿來做什麼的？

zack2213330

謝謝Inndy大大^^

a0926206677

MSINET.OCX感覺很眼熟
可是還是看不懂

marianne980

我只知道 有些人的電腦開掛 它會告訴你缺少ocx
我只會把補丁給它們去執行
不知道這個東西該丟進去哪裡?
或許又是不懂程式語言無法理解的東西@@
還是感謝i大的分享歐~~

zxc199450

MSINET.OCX 是什麼?
這模組又該怎麼用?

david19970722

剛接觸 上面寫的有點難懂 不過感恩