自动动手绿化迅雷7源代码AU3

以下代码包括绿化的安装和卸载，复制后自己删除不需要的部分

1. //*安装代码*//
   
2. 
   
3. $AppData = StringLeft(@AppDataCommonDir, StringInStr(@AppDataCommonDir, "", 0, -1) - 1)
   
4. ;处理安装或卸载迅雷遗留的旧文件和注册表
   
5. RegDelete("HKCR\SOFTWARE\thunder")
   
6. RegDelete("HKLM\SOFTWARE\Thunder Network")
   
7. RegDelete("HKLM\SOFTWARE\Wow6432Node\Thunder Network")
   
8. RegDelete("HKCU\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载")
   
9. RegDelete("HKCU\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载全部链接")
   
10. DirRemove(@HomeDrive & "\Users\Public\Thunder Network", 1)
    
11. DirRemove(@HomeDrive & "\Users\Public\Documents\Thunder Network", 1)
    
12. DirRemove(@TempDir & "\LiveUD", 1)
    
13. DirRemove(@TempDir & "\Thunder Network", 1)
    
14. DirRemove(@TempDir & "\Xunlei", 1)
    
15. DirRemove(@AppDataCommonDir & "\Thunder Network", 1)
    
16. DirRemove($AppData & "\Thunder Network", 1)
    
17. DirRemove(@AppDataCommonDir & "\Xunlei", 1)
    
18. DirRemove(@AppDataDir & "\Thunder Network", 1)
    
19. DirRemove(@AppDataDir & "\Xunlei", 1)
    
20. DirRemove(@CommonFilesDir & "\Xunlei", 1)
    
21. DirRemove(@CommonFilesDir & "\Thunder Network", 1)
    
22. DirRemove(@CommonFilesDir & "\迅雷7", 1)
    
23. DirRemove(@AppDataDir & "\LocalLow\Thunder Network", 1)
    
24. DirRemove(@AppDataDir & "\LocalLow\Xunlei", 1)
    
25. ;
    
26. FileCopy(@ScriptDir & "\Program\atl71.dll", @SystemDir & "")
    
27. ;添加IE浏览器支持
    
28. RunWait(@ComSpec & " /c " & 'Regsvr32 /s "' & @ScriptDir & '\BHO\ThunderAgent.dll"', "", @SW_HIDE)
    
29. RunWait(@ComSpec & " /c " & 'Regsvr32 /s "' & @ScriptDir & '\BHO\XunLeiBHO.dll"', "", @SW_HIDE)
    
30. RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" ie -silent -setfirst', "", @SW_HIDE)
    
31. ;添加Chrome浏览器支持
    
32. RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" -r chrome -silent -setfirst', "", @SW_HIDE)
    
33. ;添加360安全浏览器支持
    
34. RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" -r 360 -silent -setfirst', "", @SW_HIDE)
    
35. ;添加世界之窗浏览器支持...")
    
36. RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" -r theworld -silent -setfirst', "", @SW_HIDE)
    
37. ;添加Opera浏览器支持
    
38. RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" -r opera -silent -setfirst', "", @SW_HIDE)
    
39. ;添加遨游浏览器支持
    
40. RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" -r maxthon -silent -setfirst', "", @SW_HIDE)
    
41. ;添加火狐狸浏览器支持
    
42. RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" -r firefox -silent -setfirst', "", @SW_HIDE)
    
43. ;添加快车，旋风专用链
    
44. RunWait(@ComSpec & " /c " & 'Regsvr32 /s "' & @ScriptDir & '\BHO\LinkSimulate.dll"', "", @SW_HIDE)
    
45. ;屏蔽迅雷偷偷上传
    
46. If @OSVersion <> "WIN_XP" And @OSVersion <> "WIN_2003" Then
    
47. DirCreate(@HomeDrive & "\Users\Public\Thunder Network")
    
48. FileInstall("cid_store.dat", @HomeDrive & "\Users\Public\Thunder Network")
    
49. EndIf
    
50. DirCreate($AppData & "\Thunder Network\DownloadLib")
    
51. FileInstall("pub_store.dat", $AppData & "\Thunder Network\DownloadLib")
    
52. ;写入必要的注册表信息
    
53. If @OSArch = "X64" Then
    
54. RegWrite("HKLM\SOFTWARE\Wow6432Node\Thunder Network\ThunderOem\thunder_backwnd", "addinsdir", "REG_SZ", @ScriptDir & "\addins")
    
55. RegWrite("HKLM\SOFTWARE\Wow6432Node\Thunder Network\ThunderOem\thunder_backwnd", "dir", "REG_SZ", @ScriptDir)
    
56. RegWrite("HKLM\SOFTWARE\Wow6432Node\Thunder Network\ThunderOem\thunder_backwnd", "instdir", "REG_SZ", @ScriptDir)
    
57. RegWrite("HKLM\SOFTWARE\Wow6432Node\Thunder Network\ThunderOem\thunder_backwnd", "Path", "REG_SZ", @ScriptDir & "\Program\Thunder.exe")
    
58. RegWrite("HKLM\SOFTWARE\Wow6432Node\Thunder Network\ThunderOem\thunder_backwnd", "Version", "REG_SZ", "7.1.3.2044")
    
59. ElseIf @OSArch = "X86" Then
    
60. RegWrite("HKLM\SOFTWARE\Thunder Network\ThunderOem\thunder_backwnd", "addinsdir", "REG_SZ", @ScriptDir & "\addins")
    
61. RegWrite("HKLM\SOFTWARE\Thunder Network\ThunderOem\thunder_backwnd", "dir", "REG_SZ", @ScriptDir)
    
62. RegWrite("HKLM\SOFTWARE\Thunder Network\ThunderOem\thunder_backwnd", "instdir", "REG_SZ", @ScriptDir)
    
63. RegWrite("HKLM\SOFTWARE\Thunder Network\ThunderOem\thunder_backwnd", "Path", "REG_SZ", @ScriptDir & "\Program\Thunder.exe")
    
64. RegWrite("HKLM\SOFTWARE\Thunder Network\ThunderOem\thunder_backwnd", "Version", "REG_SZ", "7.1.3.2044")
    
65. EndIf
    
66. RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载", "", "REG_SZ", @ScriptDir & "\BHO\geturl.htm")
    
67. RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载", "Contexts", "REG_DWORD", "34")
    
68. RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载", "Name", "REG_SZ", "xl_geturl")
    
69. RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载全部链接", "", "REG_SZ", @ScriptDir & "\BHO\GetAllUrl.htm")
    
70. RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载全部链接", "Contexts", "REG_DWORD", "243")
    
71. RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载全部链接", "Name", "REG_SZ", "xl_getallurl")
    
72. ;关联迅雷
    
73. ShellExecuteWait(@ScriptDir & "\Program\Thunder.exe", "-associate:td -associate:torrent -associate:downlist -associate:thunderskin -regprotocol:ed2k -regprotocol:thunder", @ScriptDir & "\Program")
    
74. ;写入控制面板的“添加或删除程序”，这个不要也罢
    
75. ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "DisplayIcon", "REG_SZ", @ScriptDir & "\Program\Thunder.exe")
    
76. ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "DisplayName", "REG_SZ", "迅雷7")
    
77. ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "DisplayVersion", "REG_SZ", "7.1.3.2044")
    
78. ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "UserInstdir", "REG_SZ", @ScriptDir)
    
79. ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "HelpLink", "REG_SZ", "http://www.xunlei.com")
    
80. ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "Publisher", "REG_SZ", "迅雷网络技术有限公司")
    
81. ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "UninstallString", "REG_SZ", @ScriptDir & "\uninstall.exe")
    
82. ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "URLInfoAbout", "REG_SZ", "http://www.xunlei.com")
    
83. ;
    
84. ;创建桌面快捷方式
    
85. FileCreateShortcut(@ScriptDir & "\Program\Thunder.exe", @DesktopCommonDir & "\迅雷7.lnk", @ScriptDir & "\Program")
    
86. ;创建开始程序菜单
    
87. DirCreate(@ProgramsCommonDir & "\迅雷软件\迅雷7")
    
88. FileCreateShortcut(@ScriptDir & "\Program\Thunder.exe", @ProgramsCommonDir & "\迅雷软件\迅雷7\启动迅雷7.lnk", @ScriptDir & "\Program")
    
89. FileCreateShortcut(@ScriptDir & "\uninstall.exe", @ProgramsCommonDir & "\迅雷软件\迅雷7\卸载迅雷7.lnk", @ScriptDir)
    
90. 
    
91. //*卸载代码*//
    
92. 
    
93. $AppData = StringLeft(@AppDataCommonDir, StringInStr(@AppDataCommonDir, "", 0, -1) - 1)
    
94. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u ie -silent", @ScriptDir & "\BHO")
    
95. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u 360 -silent", @ScriptDir & "\BHO")
    
96. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u opera -silent", @ScriptDir & "\BHO")
    
97. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u maxthon -silent", @ScriptDir & "\BHO")
    
98. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u chrome -silent", @ScriptDir & "\BHO")
    
99. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u theworld -silent", @ScriptDir & "\BHO")
    
100. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u firefox -silent", @ScriptDir & "\BHO")
     
101. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u chrome -silent", @ScriptDir & "\BHO")
     
102. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u theworld -silent", @ScriptDir & "\BHO")
     
103. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u firefox -silent", @ScriptDir & "\BHO")
     
104. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u ie -silent", @ScriptDir & "\BHO")
     
105. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u 360 -silent", @ScriptDir & "\BHO")
     
106. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u opera -silent", @ScriptDir & "\BHO")
     
107. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u maxthon -silent", @ScriptDir & "\BHO")
     
108. ShellExecuteWait(@SystemDir & "\Regsvr32.exe", "/s /u " & @ScriptDir & "\BHO\ThunderAgent.dll")
     
109. ShellExecuteWait(@SystemDir & "\Regsvr32.exe", "/s /u " & @ScriptDir & "\BHO\XunLeiBHO.dll")
     
110. ShellExecuteWait(@SystemDir & "\Regsvr32.exe", "/s /u " & @ScriptDir & "\BHO\LinkSimulate.dll")
     
111. ShellExecuteWait(@ScriptDir & "\Program\Thunder.exe", "-unassociate:td -unassociate:torrent -unassociate:downlist -unassociate:thunderskin -unregprotocol:ed2k -unregprotocol:thunder", @ScriptDir & "\Program")
     
112. Sleep(1000)
     
113. RegDelete("HKCR\SOFTWARE\thunder")
     
114. RegDelete("HKLM\SOFTWARE\Thunder Network")
     
115. RegDelete("HKLM\SOFTWARE\Wow6432Node\Thunder Network")
     
116. RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载")
     
117. RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载全部链接")
     
118. RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1")
     
119. RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\{889D2FEB-5411-4565-8998-1DD2C5261283}")
     
120. RegDelete("HKEY_CLASSES_ROOT\CLSID\{889D2FEB-5411-4565-8998-1DD2C5261283}")
     
121. DirRemove(@HomeDrive & "\Users\Public\Thunder Network", 1)
     
122. DirRemove(@HomeDrive & "\Users\Public\Documents\Thunder Network", 1)
     
123. DirRemove(@TempDir & "\LiveUD", 1)
     
124. DirRemove(@TempDir & "\Thunder Network", 1)
     
125. DirRemove(@TempDir & "\Xunlei", 1)
     
126. DirRemove(@AppDataCommonDir & "\Thunder Network", 1)
     
127. DirRemove($AppData & "\Thunder Network", 1)
     
128. DirRemove(@AppDataCommonDir & "\Xunlei", 1)
     
129. DirRemove(@AppDataDir & "\Thunder Network", 1)
     
130. DirRemove(@AppDataDir & "\Xunlei", 1)
     
131. DirRemove(@CommonFilesDir & "\Xunlei", 1)
     
132. DirRemove(@CommonFilesDir & "\Thunder Network", 1)
     
133. DirRemove(@CommonFilesDir & "\迅雷7", 1)
     
134. DirRemove(@AppDataDir & "\LocalLow\Thunder Network", 1)
     
135. DirRemove(@AppDataDir & "\LocalLow\Xunlei", 1)
     
136. FileDelete(@DesktopCommonDir & "\迅雷7.lnk")
     
137. DirRemove(@ProgramsCommonDir & "\迅雷软件\迅雷7", 1)
     
138. $dx = DirGetSize(@ProgramsCommonDir & "\迅雷软件")
     
139. If $dx = 0 Then
     
140. DirRemove(@ProgramsCommonDir & "\迅雷软件", 1)
     
141. EndIf
     

复制代码