UC知道如何在VB中替换URL的值，高分求代码！！
来源：百度知道 编辑：UC知道 时间：2024/06/15 20:08:51
意思是这样的：
http://www.baidu.com/s?tn=123456_pg&wd=123
中的tn=123456_pg换成我想自己的值，比如换成tn=56789_pg，而其它都不变，只要tn后的值不是56789_pg，就会自动跳转成这个值。
我要的是代码，请不要乱答！
有做过联盟BHO插件可能就清楚，目的是替换所有联盟的代码，换成我们自己的代码，是BHO插件来的，一般是qJian的模式来的。。呵。。希望能顶出个高人来！！~~
并不是一定要上面那个网址，我只是做个比方，我想要替换tn=后面至_pg中间的这几个代码，其他我不管！！~~~~~~
这段代码完成后生成DLL文件。。注册进IE。。就可以用了。。注意是DLL文件。。
有朋友叫我去VC那边发。。但我在网上看到大部分的BHO插件都是用VB做出来的。。所以才会来这里求教呀！~
回7楼的：引用、接口都做好了，就差这段改URL的代码了。。大家提供的还是没办法做出来呀。。
http://www.baidu.com/s?tn=123456_pg&wd=123
中的tn=123456_pg换成我想自己的值，比如换成tn=56789_pg，而其它都不变，只要tn后的值不是56789_pg，就会自动跳转成这个值。
我要的是代码，请不要乱答！
有做过联盟BHO插件可能就清楚，目的是替换所有联盟的代码，换成我们自己的代码，是BHO插件来的，一般是qJian的模式来的。。呵。。希望能顶出个高人来！！~~
并不是一定要上面那个网址，我只是做个比方，我想要替换tn=后面至_pg中间的这几个代码，其他我不管！！~~~~~~
这段代码完成后生成DLL文件。。注册进IE。。就可以用了。。注意是DLL文件。。
有朋友叫我去VC那边发。。但我在网上看到大部分的BHO插件都是用VB做出来的。。所以才会来这里求教呀！~
回7楼的：引用、接口都做好了，就差这段改URL的代码了。。大家提供的还是没办法做出来呀。。
'farfamed 的代码太麻烦，其实楼主的问题，只是替换tn与_pg之间的数字而已，找到要替换的字符串开始和结尾的位置，用mid提取出来，再replace一下就可以了，没必要用数组，再加个循环。
'我的代码，其中text1用来输入初始url，text2用来输出
Private Sub Command1_Click()
Dim sURL$, Lnum%, Rnum%
sURL = Text1
Lnum = InStr(sURL, "tn")'计算tn出现的位置
Rnum = InStrRev(sURL, "_pg") + 3'计算_pg出现的位置
'开始替换、输出
Text2 = Replace(sURL, Mid(sURL, Lnum, (Rnum - Lnum)), "tn=56789_pg")
End Sub
----------------------------补充----------------------------------
为什么不能用你得把原因告诉我吧？要不加我百度HI，详谈。
url = "http://www.baidu.com/s?tn=123456_pg&wd=123"
param = Mid(url, InStr(url, "?") + 1) '提取参数
url = Replace(url, param, "") '清除url中的参数
param = Split(param, "&")
For i = 0 To UBound(param)
a = InStr(param(i), "=")
Key = Left(param(i),