过期罐头电脑论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3874|回复: 0
收起左侧

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

[复制链接]
cicimonkey 2013-7-2 07:57:53 | 显示全部楼层
以下代码包括绿化的安装和卸载,复制后自己删除不需要的部分
  1. //*安装代码*//

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

  89. //*卸载代码*//

  90. $AppData = StringLeft(@AppDataCommonDir, StringInStr(@AppDataCommonDir, "", 0, -1) - 1)
  91. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u ie -silent", @ScriptDir & "\BHO")
  92. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u 360 -silent", @ScriptDir & "\BHO")
  93. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u opera -silent", @ScriptDir & "\BHO")
  94. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u maxthon -silent", @ScriptDir & "\BHO")
  95. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u chrome -silent", @ScriptDir & "\BHO")
  96. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u theworld -silent", @ScriptDir & "\BHO")
  97. ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u firefox -silent", @ScriptDir & "\BHO")
  98. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u chrome -silent", @ScriptDir & "\BHO")
  99. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u theworld -silent", @ScriptDir & "\BHO")
  100. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u firefox -silent", @ScriptDir & "\BHO")
  101. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u ie -silent", @ScriptDir & "\BHO")
  102. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u 360 -silent", @ScriptDir & "\BHO")
  103. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u opera -silent", @ScriptDir & "\BHO")
  104. ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u maxthon -silent", @ScriptDir & "\BHO")
  105. ShellExecuteWait(@SystemDir & "\Regsvr32.exe", "/s /u " & @ScriptDir & "\BHO\ThunderAgent.dll")
  106. ShellExecuteWait(@SystemDir & "\Regsvr32.exe", "/s /u " & @ScriptDir & "\BHO\XunLeiBHO.dll")
  107. ShellExecuteWait(@SystemDir & "\Regsvr32.exe", "/s /u " & @ScriptDir & "\BHO\LinkSimulate.dll")
  108. ShellExecuteWait(@ScriptDir & "\Program\Thunder.exe", "-unassociate:td -unassociate:torrent -unassociate:downlist -unassociate:thunderskin -unregprotocol:ed2k -unregprotocol:thunder", @ScriptDir & "\Program")
  109. Sleep(1000)
  110. RegDelete("HKCR\SOFTWARE\thunder")
  111. RegDelete("HKLM\SOFTWARE\Thunder Network")
  112. RegDelete("HKLM\SOFTWARE\Wow6432Node\Thunder Network")
  113. RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载")
  114. RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载全部链接")
  115. RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1")
  116. RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\{889D2FEB-5411-4565-8998-1DD2C5261283}")
  117. RegDelete("HKEY_CLASSES_ROOT\CLSID\{889D2FEB-5411-4565-8998-1DD2C5261283}")
  118. DirRemove(@HomeDrive & "\Users\Public\Thunder Network", 1)
  119. DirRemove(@HomeDrive & "\Users\Public\Documents\Thunder Network", 1)
  120. DirRemove(@TempDir & "\LiveUD", 1)
  121. DirRemove(@TempDir & "\Thunder Network", 1)
  122. DirRemove(@TempDir & "\Xunlei", 1)
  123. DirRemove(@AppDataCommonDir & "\Thunder Network", 1)
  124. DirRemove($AppData & "\Thunder Network", 1)
  125. DirRemove(@AppDataCommonDir & "\Xunlei", 1)
  126. DirRemove(@AppDataDir & "\Thunder Network", 1)
  127. DirRemove(@AppDataDir & "\Xunlei", 1)
  128. DirRemove(@CommonFilesDir & "\Xunlei", 1)
  129. DirRemove(@CommonFilesDir & "\Thunder Network", 1)
  130. DirRemove(@CommonFilesDir & "\迅雷7", 1)
  131. DirRemove(@AppDataDir & "\LocalLow\Thunder Network", 1)
  132. DirRemove(@AppDataDir & "\LocalLow\Xunlei", 1)
  133. FileDelete(@DesktopCommonDir & "\迅雷7.lnk")
  134. DirRemove(@ProgramsCommonDir & "\迅雷软件\迅雷7", 1)
  135. $dx = DirGetSize(@ProgramsCommonDir & "\迅雷软件")
  136. If $dx = 0 Then
  137. DirRemove(@ProgramsCommonDir & "\迅雷软件", 1)
  138. EndIf
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则

一键重装系统|雨人系统下载|联系我们|网站地图|过期罐头电脑论坛

GMT+8, 2024-3-28 20:13 , Processed in 0.041199 second(s), 25 queries .

官方免责声明:本站内容来自网友和互联网.若侵犯到您的版权.请致信联系,我们将第一时间删除相关内容!

Powered by Discuz!

专注于win7_win10_win11系统下载装机

© 2010-2023 GQGTPC.Com

快速回复 返回顶部 返回列表