vb 释放Webbrowser控件

Posted 2023-05-05

Webbrowser长时间的刷新网页，内存和CPU占用的非常高。 所以我想请教一下，如何释放Webbrowser所占的内存和CPU。 我有个思路，就是做两个窗体，第一个窗体用来做开启/关闭网页刷新的按钮。 开启后，第二个窗体弹出并刷新网页，关闭后，卸载第二个窗体。 不知道我的思路行不行的通！ 我还是想要一个在同一个窗体上释放内存的功能！

参考技术A unload me 这个是卸载当前的窗体，第二个窗体用一个按钮点击一下就卸载当前的窗体，这样就不占用CPU资源了。 参考技术B Navigate("about:blank");传一个空白的地址给浏览控件

VB如何把WebBrowser控件中连接地址中的%3d%5e啥的转换为文字？

连接地址格式：fdafsa.asp?dfsdafsda=*******
其中 ***** 可能是 英文，也可能是 %5d%9a%2c 之类的，而且发现这种都是中文的编码。
我要如何区分它们，并把后者转换为文字？
而且我发现这个网站把“测试”给转换成了 %e6%b5%8b%e8%af%95 了，好象还和 UTF-8 有关，唉，头痛
*************************************
谢谢二位的热心，不过，一00度，我的那个网站他两个汉字编码后出现了六组%号，而且你的代码中一汉字是两组，不一样。那网站 “测试”给转换成了 %e6%b5%8b%e8%af%95 ，“测试”注册的用户名，然后在网页上有一连接中包含用户名的编码，比如 xxxxx.asp?UserName=%e6%b5%8b%e8%af%95 。而你的代码把“测试”转为了 %B2%E2%CA%D4
不过这代码我收藏了，谢谢
*****************************************************
大侠牛A和牛C间徘徊，谢谢你的代码，这代码确实能转换。但是有一个问题，就是中文和英文数字混合时就转换不正确了。正在努力修改中，不过尚未成功！

是UTF8编码,到网上找了段代码,稍微修改了下

Option Explicit

Private Sub Form_Load()
MsgBox UTF8Decode("%e6%b5%8b%e8%af%95")
End Sub

Function UTF8Decode(utfstr As String)
'1、先分解成8个字符一串str8，然后转成中文(8字一个）,前面无%,如"E4%B8%AD "16进制加%加16**8
'2、str8再加上8个chr(13),共16字,转成中文字后替换原字符串
'3、再把
Dim str As String
str = utfstr
Do
If InStr(1, str, "%E", vbTextCompare) > 0 Then
Dim a, b, c As Integer
a = InStr(1, str, "%E", vbTextCompare)
b = InStr(a + 1, str, "%")
c = InStr(b + 1, str, "%")
If c > 0 And b = a + 3 And c = a + 6 Then
Mid(str, a, 9) = U8toU(Mid(str, a + 1, 8)) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13)
str = Replace(str, Chr(13), "", , , vbTextCompare)
'UTF8Decode = str'原在此
Else
Exit Do
End If
Else
Exit Do
End If
Loop
str = Replace(str, "%20", " ")
str = Replace(str, "%9", Chr(9))
UTF8Decode = str

End Function
Function c16to2(x) '16进制串转二进制串（4位一个字符）
'这个函数是用来转换16进制到2进制的，可以是任何长度的，一般转换UTF-8的时候是两个长度，比如A9
'比如：输入“C2”，转化成“11000010”,其中1100是"c"是10进制的12（1100），那么2（10）不足4位要补齐成（0010）。
Dim tempstr
Dim i: i = 0 '临时的指针
For i = 1 To Len(Trim(x))
tempstr = c10to2(CInt(Int("&h" & Mid(x, i, 1))))
Do While Len(tempstr) < 4
tempstr = "0" & tempstr '如果不足4位那么补齐4位数
Loop
c16to2 = c16to2 & tempstr
Next
End Function
Function c2to16(x)
'2进制到16进制的转换，每4个0或1转换成一个16进制字母，输入长度当然不可能不是4的倍数了

Dim i: i = 1 '临时的指针
For i = 1 To Len(x) Step 4
c2to16 = c2to16 & Hex(c2to10(Mid(x, i, 4)))
Next
End Function
Function c2to10(x)
'单纯的2进制到10进制的转换，不考虑转16进制所需要的4位前零补齐。
'因为这个函数很有用！以后也会用到，做过通讯和硬件的人应该知道。
'这里用字符串代表二进制
Dim mysign: mysign = Sgn(CInt(x)) '定义mysign这个东西，首先判断正负符号
x = Abs(CInt(Int(x)))
c2to10 = 0
If x = "0" Then Exit Function '如果是0的话直接得0就完事
Dim i: i = 0 '临时的指针
For i = 0 To Len(x) - 1 '否则利用8421码计算，这个从我最开始学计算机的时候就会，好怀念当初教我们的谢道建老先生啊！
If Mid(x, Len(x) - i, 1) = "1" Then c2to10 = c2to10 + 2 ^ (i)
Next
If mysign = -1 Then c2to10 = -1 * c2to10 '加上正负符号

End Function
Function c10to2(x) '10进制到2进制的转换
'这个函数在计算16位到2位转换时候用到了，
'没有做在16位里面是因为这个函数只是单纯10-2转换，不涉及16进制由4个2进制补齐空位，将来可以用到任何地方
'比如输入2，输出“10”而不是“0010”
'首先判断正负符号
Dim mysign: mysign = Sgn(x) '定义一个符号标记
x = Abs(x)
'然后判断有几位,至少一位
Dim WeiS: WeiS = 1
Do
If x < 2 ^ WeiS Then
Exit Do
Else
WeiS = WeiS + 1
End If
Loop
Dim tempnum: tempnum = x '定义一个临时的数字
Dim i: i = 0 '临时的指针
For i = WeiS To 1 Step -1
If tempnum >= 2 ^ (i - 1) Then
tempnum = tempnum - 2 ^ (i - 1)
c10to2 = c10to2 & "1"
Else
c10to2 = c10to2 & "0"
End If
Next
If mysign = -1 Then c10to2 = "-" & c10to2 '加上正负符号
End Function

Function U8toU(x)
'x像E4%B8%AD,前面无%
Dim a
'输入一堆有%分隔的字符串，先分成数组，根据utf8规则来判断补齐规则
'输入:关 E5 85 B3 键 E9 94 AE 字 E5 AD 97
'输出:关 B9D8 键 BCFC 字 D7D6
Dim WeiS '要判断第一个编码的位数
Dim Unicode '二进制的Unicode码
Dim alpha '定义单个字符
a = Split(x, "%") '定义一个临时数组
Dim i: i = 0 '临时的指针
Dim j: j = 0 '临时的指针

For i = 0 To UBound(a)
'MsgBox Len(a(i))
a(i) = c16to2(a(i)) '第一次循环，先转换成2进制再说
Next

For i = 0 To UBound(a) - 1
WeiS = InStr(a(i), "0") '判断第一次出现0的位置，
'可能是1(单字节)，3(3-1字节)，4，5，6，7不可能是2和大于7

'理论上到7，实际不会超过3。

Unicode = ""
For j = 1 To WeiS - 1
If j = 1 Then
a(i) = Right(a(i), Len(a(i)) - WeiS) '第一个去掉最左边的WeiS个
Unicode = Unicode & a(i)

Else
i = i + 1
a(i) = Right(a(i), Len(a(i)) - 2) '其余去掉最左边的两个
Unicode = Unicode & a(i)
End If

Next
U8toU = U8toU & ChrW(Int("&H" & c2to16(Unicode))) '总算完了,妈的！！
Next
End Function 参考技术A ...因为地址栏不支持支持中文，所以，如果想知道那就用百度吧，很简单，在地址栏输入：http://www.baidu.com/baidu?word=编码文字（如：%5d%9a%2c）&tn=you2000_pg本回答被提问者采纳 参考技术B 网址中类似“%D2%BB”的编码与汉字的相互转换：
http://user.qzone.qq.com/32063270/blog/1242461384