VB utiliza Inet para obtener el código fuente de páginas web confusas

Función de declaración privada MultiByteToWideChar Lib "kernel 32" (la página de códigos ByVal es larga, ByVal dwFlags es larga, ByVal lpMultiByteStr es larga, ByVal cchMultiByte es larga, ByVal lpWideCharStr es larga, ByVal cchWideChar es larga) es larga

Constante privada CP_UTF8 = 65001

Función Utf8ToUnicode(ByRef Utf() As Byte) como una cadena

La misma longitud que Dim lRet

La longitud se vuelve más larga

Dim lBufferSize tiene la misma longitud

length = UBound(Utf)-LBound(Utf) 1

Si lLength lt= 0, entonces salga de la función

lBufferSize = lLength * 2

utf 8 touni code = String $(lBufferSize,Chr(0))

lRet = MultiByteToWideChar(CP_UTF8,0,VarPtr(Utf (0)) , lLength, StrPtr(Utf8ToUnicode), lBufferSize)

Si lRet lt gt entonces 0

ut F8 touni code = Left(ut F8 touni code, lRet)

Otro

Utf8ToUnicode = " "

Terminará si...

Finalizar función

Pone lo anterior código en un módulo.

Subcomando privado 1_click()

Dim b() para bytes

B = Inet1. OpenURL ("URL codificada en utf8", icByteArray).

msgbox Utf8ToUnicode(b)

Conector final