python实现md5校验
2011-09-23 12:40
148 查看
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long Private Const CP_UTF8 = 65001 'Purpose:Convert Utf8 to Unicode Public Function UTF8_Decode(ByVal sUTF8 As String) As String Dim lngUtf8Size As Long Dim strBuffer As String Dim lngBufferSize As Long Dim lngResult As Long Dim bytUtf8() As Byte Dim n As Long If LenB(sUTF8) = 0 Then Exit Function On Error GoTo EndFunction bytUtf8 = StrConv(sUTF8, vbFromUnicode) lngUtf8Size = UBound(bytUtf8) + 1 On Error GoTo 0 lngBufferSize = lngUtf8Size * 2 strBuffer = String$(lngBufferSize, vbNullChar) 'Translate using code page 65001(UTF-8) lngResult = MultiByteToWideChar(CP_UTF8, 0, bytUtf8(0), _ lngUtf8Size, StrPtr(strBuffer), lngBufferSize) 'Trim result to actual length If lngResult Then UTF8_Decode = Left$(strBuffer, lngResult) End If End Function
把你上面获取的内容转一下就行,比如Text1.Text=UTF8_Decode(strResponse)
还可以加多一句InStr(1, strResponse, "charset=utf-8") > 0判断是否是UTF8编码再执行,不是UTF8的就直接显示。 还有些网页编码那里是大写的,要这样写InStr(1, strResponse, "charset=UTF-8") > 0
相关文章推荐
- python实现ftp的基本功能
- python实现欧拉计划24题
- Python Tricks(十七)—— enumerate 的实现
- python实现测试报告的bug统计
- python实现快速排序
- 堆和索引堆的python实现
- Python实现按中文排序的方法示例
- 通过python下载FTP上的文件夹的实现代码
- python实现二维码扫码自动登录淘宝
- python实现贪吃蛇
- Python实现从log日志中提取ip的方法【正则提取】
- KNN分类算法--python实现
- 树状数组与其应用(Python实现)(1)
- [置顶] python 实现图片的旋转
- Python数据结构——二叉树的实现
- python用for循环实现冒泡排序
- Python实现简单的四则运算计算器
- python实现微信接口(itchat)
- Python实现日志自动记录功能(一个思路代码,详细可以自己扩展)
- cs231n一次课程实践,python实现softmax线性分类器和二层神经网络