VB获得迅雷资讯弹出网页的源代码

迅雷资讯弹出网页采用UTF-8编码，需要编制自定义函数对XMLHTTP对象获得的源代码进行转换：

1. 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
2. Private Const CP_UTF8 = 65001
3. Function Utf8ToUnicode(ByRef Utf() As Byte) As String
4.     Dim lRet As Long
5.     Dim lLength As Long
6.     Dim lBufferSize As Long
7.     lLength = UBound(Utf) - LBound(Utf) + 1
8.     If lLength <= 0 Then Exit Function
9.     lBufferSize = lLength * 2
10.     Utf8ToUnicode = String$(lBufferSize, Chr(0))
11.     lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(Utf(0)), lLength, StrPtr(Utf8ToUnicode), lBufferSize)
12.     If lRet <> 0 Then
13.         Utf8ToUnicode = Left(Utf8ToUnicode, lRet)
14.     End If
15. End Function
18. Function SourcecodeofXunleizixun(ByVal menuindex As Long) As String
19.     Dim b() As Byte, indexurl(5) As String
20.     If Not menuindex Like "[0-5]" Then Exit Function
21.     indexurl(0) = "http://recommend.xunlei.com/desknews_v2_game.html"    '0---游戏
22.     indexurl(1) = "http://recommend.xunlei.com/desknews_v2_ent.html"    '1---娱乐
23.     indexurl(2) = "http://biz5c.sandai.net/desktopnews/iframe/hot_14.htm"    '2---婚恋
24.     indexurl(3) = "http://www.eachnet.com/landing/xunlei08_3.html"    '3---网购
25.     indexurl(4) = "http://biz5c.sandai.net/desktopnews/iframe/hot_2.htm"    '4---财经
26.     indexurl(5) = "http://biz5c.sandai.net/desktopnews/iframe/hot_3.htm"    '5---IT
27.     With CreateObject("Msxml2.XMLHTTP")
28.         .Open "GET", indexurl(menuindex), False
29.         .Send
30.         b = .ResponseBody
31.     End With
32.     SourcecodeofXunleizixun = Utf8ToUnicode(b)
33. End Function
35. Sub Getxunlei()
36.     Debug.Print SourcecodeofXunleizixun(1)    '娱乐资讯
37. End Sub