zoukankan      html  css  js  c++  java
  • VB获得迅雷资讯弹出网页的源代码

    迅雷资讯弹出网页采用UTF-8编码,需要编制自定义函数对XMLHTTP对象获得的源代码进行转换:
    1. Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As LongByVal dwFlags As LongByVal lpMultiByteStr As LongByVal cchMultiByte As LongByVal lpWideCharStr As LongByVal cchWideChar As LongAs Long
    2. Private Const CP_UTF8 = 65001
    3. Function Utf8ToUnicode(ByRef Utf() As ByteAs 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
    16. Function SourcecodeofXunleizixun(ByVal menuindex As LongAs String
    17.     Dim b() As Byte, indexurl(5) As String
    18.     If Not menuindex Like "[0-5]" Then Exit Function
    19.     indexurl(0) = "http://recommend.xunlei.com/desknews_v2_game.html"    '0---游戏
    20.     indexurl(1) = "http://recommend.xunlei.com/desknews_v2_ent.html"    '1---娱乐
    21.     indexurl(2) = "http://biz5c.sandai.net/desktopnews/iframe/hot_14.htm"    '2---婚恋
    22.     indexurl(3) = "http://www.eachnet.com/landing/xunlei08_3.html"    '3---网购
    23.     indexurl(4) = "http://biz5c.sandai.net/desktopnews/iframe/hot_2.htm"    '4---财经
    24.     indexurl(5) = "http://biz5c.sandai.net/desktopnews/iframe/hot_3.htm"    '5---IT
    25.     With CreateObject("Msxml2.XMLHTTP")
    26.         .Open "GET", indexurl(menuindex), False
    27.         .Send
    28.         b = .ResponseBody
    29.     End With
    30.     SourcecodeofXunleizixun = Utf8ToUnicode(b)
    31. End Function
    32. Sub Getxunlei()
    33.     Debug.Print SourcecodeofXunleizixun(1)    '娱乐资讯
    34. End Sub
  • 相关阅读:
    Ftp、Ftps与Sftp之间的区别
    Previous Workflow Versions in Nintex Workflow
    Span<T>
    .NET Core 2.0及.NET Standard 2.0 Description
    Announcing Windows Template Studio in UWP
    安装.Net Standard 2.0, Impressive
    SQL 给视图赋权限
    Visual Studio for Mac中的ASP.NET Core
    How the Microsoft Bot Framework Changed Where My Friends and I Eat: Part 1
    用于Azure功能的Visual Studio 2017工具
  • 原文地址:https://www.cnblogs.com/fengju/p/6336229.html
Copyright © 2011-2022 走看看