过期罐头电脑论坛-win7、win10雨人系统下载

过期罐头电脑论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
雨人系统 过期罐头 视频编辑软件 电脑维修 win7系统下载 win10系统下载
查看: 869|回复: 0
收起左侧

[编程开发] 自动动手绿化迅雷7源代码AU3

[复制链接]
发表于 2013-7-2 07:57:53 | 显示全部楼层 |阅读模式
发贴请勿包含网站外链(直接下载地址和网盘除外),屡犯者将封禁ID、网址永久屏蔽,www.gqgtpc.com感谢支持!
以下代码包括绿化的安装和卸载,复制后自己删除不需要的部分
  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
复制代码

评分

参与人数 1资历 +1 收起 理由
351565386 + 1 好贴,支持!

查看全部评分


楼主热帖
[Windows10] 解决win8.1系统 C盘日突变 小的问题
[Windows xp] windows XP系统中插入U盘不显示盘符解决方
[Server_Vista_Linux] 一个硬盘装两个Linux方法
[Windows10] 以前的桌面软件在Win8/8.1中如何可以兼容运
[Windows xp] XP系统开机提示DLL文件出错 教你完成
[Windows7] Windows7 3D桌面怎么开启?
[Windows7] Windows 7操作秘籍:Shift妙用知多少
[Windows7] 浅谈国内浏览器市场
[Windows7] 关于使用虚拟机我们需要. 注意的一些另外的问
[Windows7] win7系统音频服务未启动的解决方法

您需要登录后才可以回帖 登录 | 注册

本版积分规则

win7 64位旗舰版下载|win10系统下载|win7旗舰版|联系我们|网站地图|

GMT+8, 2016-12-4 20:16 , Processed in 0.207870 second(s), 33 queries .

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

Powered by Discuz!

过期罐头电脑论坛

win7旗舰版_windows10

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