迅雷7 绿化工具 AU3源代码

//*安装代码*//

$AppData = StringLeft(@AppDataCommonDir, StringInStr(@AppDataCommonDir, "\", 0, -1) - 1);处理安装或卸载迅雷遗留的旧文件和注册表RegDelete("HKCR\SOFTWARE\thunder")RegDelete("HKLM\SOFTWARE\Thunder Network")RegDelete("HKLM\SOFTWARE\Wow6432Node\Thunder Network")RegDelete("HKCU\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载")RegDelete("HKCU\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载全部链接")DirRemove(@HomeDrive & "\Users\Public\Thunder Network", 1)DirRemove(@HomeDrive & "\Users\Public\Documents\Thunder Network", 1)DirRemove(@TempDir & "\LiveUD", 1)DirRemove(@TempDir & "\Thunder Network", 1)DirRemove(@TempDir & "\Xunlei", 1)DirRemove(@AppDataCommonDir & "\Thunder Network", 1)DirRemove($AppData & "\Thunder Network", 1)DirRemove(@AppDataCommonDir & "\Xunlei", 1)DirRemove(@AppDataDir & "\Thunder Network", 1)DirRemove(@AppDataDir & "\Xunlei", 1)DirRemove(@CommonFilesDir & "\Xunlei", 1)DirRemove(@CommonFilesDir & "\Thunder Network", 1)DirRemove(@CommonFilesDir & "\迅雷7", 1)DirRemove(@AppDataDir & "\LocalLow\Thunder Network", 1)DirRemove(@AppDataDir & "\LocalLow\Xunlei", 1);FileCopy(@ScriptDir & "\Program\atl71.dll", @SystemDir & "\");添加IE浏览器支持RunWait(@ComSpec & " /c " & 'Regsvr32 /s "' & @ScriptDir & '\BHO\ThunderAgent.dll"', "", @SW_HIDE)RunWait(@ComSpec & " /c " & 'Regsvr32 /s "' & @ScriptDir & '\BHO\XunLeiBHO.dll"', "", @SW_HIDE)RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" ie -silent -setfirst', "", @SW_HIDE);添加Chrome浏览器支持RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" -r chrome -silent -setfirst', "", @SW_HIDE);添加360安全浏览器支持RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" -r 360 -silent -setfirst', "", @SW_HIDE);添加世界之窗浏览器支持...")RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" -r theworld -silent -setfirst', "", @SW_HIDE);添加Opera浏览器支持RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" -r opera -silent -setfirst', "", @SW_HIDE);添加遨游浏览器支持RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" -r maxthon -silent -setfirst', "", @SW_HIDE);添加火狐狸浏览器支持RunWait(@ComSpec & " /c " & '"' & @ScriptDir & '\BHO\XLNonIESvr.exe" -r firefox -silent -setfirst', "", @SW_HIDE);添加快车，旋风专用链RunWait(@ComSpec & " /c " & 'Regsvr32 /s "' & @ScriptDir & '\BHO\LinkSimulate.dll"', "", @SW_HIDE);屏蔽迅雷偷偷上传If @OSVersion <> "WIN_XP" And @OSVersion <> "WIN_2003" ThenDirCreate(@HomeDrive & "\Users\Public\Thunder Network")FileInstall("cid_store.dat", @HomeDrive & "\Users\Public\Thunder Network\")EndIfDirCreate($AppData & "\Thunder Network\DownloadLib")FileInstall("pub_store.dat", $AppData & "\Thunder Network\DownloadLib\");写入必要的注册表信息If @OSArch = "X64" ThenRegWrite("HKLM\SOFTWARE\Wow6432Node\Thunder Network\ThunderOem\thunder_backwnd", "addinsdir", "REG_SZ", @ScriptDir & "\addins")RegWrite("HKLM\SOFTWARE\Wow6432Node\Thunder Network\ThunderOem\thunder_backwnd", "dir", "REG_SZ", @ScriptDir)RegWrite("HKLM\SOFTWARE\Wow6432Node\Thunder Network\ThunderOem\thunder_backwnd", "instdir", "REG_SZ", @ScriptDir)RegWrite("HKLM\SOFTWARE\Wow6432Node\Thunder Network\ThunderOem\thunder_backwnd", "Path", "REG_SZ", @ScriptDir & "\Program\Thunder.exe")RegWrite("HKLM\SOFTWARE\Wow6432Node\Thunder Network\ThunderOem\thunder_backwnd", "Version", "REG_SZ", "7.1.3.2044")ElseIf @OSArch = "X86" ThenRegWrite("HKLM\SOFTWARE\Thunder Network\ThunderOem\thunder_backwnd", "addinsdir", "REG_SZ", @ScriptDir & "\addins")RegWrite("HKLM\SOFTWARE\Thunder Network\ThunderOem\thunder_backwnd", "dir", "REG_SZ", @ScriptDir)RegWrite("HKLM\SOFTWARE\Thunder Network\ThunderOem\thunder_backwnd", "instdir", "REG_SZ", @ScriptDir)RegWrite("HKLM\SOFTWARE\Thunder Network\ThunderOem\thunder_backwnd", "Path", "REG_SZ", @ScriptDir & "\Program\Thunder.exe")RegWrite("HKLM\SOFTWARE\Thunder Network\ThunderOem\thunder_backwnd", "Version", "REG_SZ", "7.1.3.2044")EndIfRegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载", "", "REG_SZ", @ScriptDir & "\BHO\geturl.htm")RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载", "Contexts", "REG_DWORD", "34")RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载", "Name", "REG_SZ", "xl_geturl")RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载全部链接", "", "REG_SZ", @ScriptDir & "\BHO\GetAllUrl.htm")RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载全部链接", "Contexts", "REG_DWORD", "243")RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载全部链接", "Name", "REG_SZ", "xl_getallurl");关联迅雷ShellExecuteWait(@ScriptDir & "\Program\Thunder.exe", "-associate:td -associate:torrent -associate:downlist -associate:thunderskin -regprotocol:ed2k -regprotocol:thunder", @ScriptDir & "\Program");写入控制面板的“添加或删除程序”，这个不要也罢;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "DisplayIcon", "REG_SZ", @ScriptDir & "\Program\Thunder.exe");RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "DisplayName", "REG_SZ", "迅雷7");RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "DisplayVersion", "REG_SZ", "7.1.3.2044");RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "UserInstdir", "REG_SZ", @ScriptDir);RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "HelpLink", "REG_SZ", "http://www.xunlei.com");RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "Publisher", "REG_SZ", "迅雷网络技术有限公司");RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "UninstallString", "REG_SZ", @ScriptDir & "\uninstall.exe");RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1", "URLInfoAbout", "REG_SZ", "http://www.xunlei.com");;创建桌面快捷方式FileCreateShortcut(@ScriptDir & "\Program\Thunder.exe", @DesktopCommonDir & "\迅雷7.lnk", @ScriptDir & "\Program");创建开始程序菜单DirCreate(@ProgramsCommonDir & "\迅雷软件\迅雷7")FileCreateShortcut(@ScriptDir & "\Program\Thunder.exe", @ProgramsCommonDir & "\迅雷软件\迅雷7\启动迅雷7.lnk", @ScriptDir & "\Program")FileCreateShortcut(@ScriptDir & "\uninstall.exe", @ProgramsCommonDir & "\迅雷软件\迅雷7\卸载迅雷7.lnk", @ScriptDir)

//*卸载代码*//

$AppData = StringLeft(@AppDataCommonDir, StringInStr(@AppDataCommonDir, "\", 0, -1) - 1)ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u ie -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u 360 -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u opera -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u maxthon -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u chrome -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u theworld -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\XLNonIESvr.exe", "-u firefox -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u chrome -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u theworld -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u firefox -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u ie -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u 360 -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u opera -silent", @ScriptDir & "\BHO")ShellExecuteWait(@ScriptDir & "\BHO\BHOInstall.exe", "-u maxthon -silent", @ScriptDir & "\BHO")ShellExecuteWait(@SystemDir & "\Regsvr32.exe", "/s /u " & @ScriptDir & "\BHO\ThunderAgent.dll")ShellExecuteWait(@SystemDir & "\Regsvr32.exe", "/s /u " & @ScriptDir & "\BHO\XunLeiBHO.dll")ShellExecuteWait(@SystemDir & "\Regsvr32.exe", "/s /u " & @ScriptDir & "\BHO\LinkSimulate.dll")ShellExecuteWait(@ScriptDir & "\Program\Thunder.exe", "-unassociate:td -unassociate:torrent -unassociate:downlist -unassociate:thunderskin -unregprotocol:ed2k -unregprotocol:thunder", @ScriptDir & "\Program")Sleep(1000)RegDelete("HKCR\SOFTWARE\thunder")RegDelete("HKLM\SOFTWARE\Thunder Network")RegDelete("HKLM\SOFTWARE\Wow6432Node\Thunder Network")RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载")RegDelete("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\使用迅雷下载全部链接")RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\thunder_is1")RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\{889D2FEB-5411-4565-8998-1DD2C5261283}")RegDelete("HKEY_CLASSES_ROOT\CLSID\{889D2FEB-5411-4565-8998-1DD2C5261283}")DirRemove(@HomeDrive & "\Users\Public\Thunder Network", 1)DirRemove(@HomeDrive & "\Users\Public\Documents\Thunder Network", 1)DirRemove(@TempDir & "\LiveUD", 1)DirRemove(@TempDir & "\Thunder Network", 1)DirRemove(@TempDir & "\Xunlei", 1)DirRemove(@AppDataCommonDir & "\Thunder Network", 1)DirRemove($AppData & "\Thunder Network", 1)DirRemove(@AppDataCommonDir & "\Xunlei", 1)DirRemove(@AppDataDir & "\Thunder Network", 1)DirRemove(@AppDataDir & "\Xunlei", 1)DirRemove(@CommonFilesDir & "\Xunlei", 1)DirRemove(@CommonFilesDir & "\Thunder Network", 1)DirRemove(@CommonFilesDir & "\迅雷7", 1)DirRemove(@AppDataDir & "\LocalLow\Thunder Network", 1)DirRemove(@AppDataDir & "\LocalLow\Xunlei", 1)FileDelete(@DesktopCommonDir & "\迅雷7.lnk")DirRemove(@ProgramsCommonDir & "\迅雷软件\迅雷7", 1)$dx = DirGetSize(@ProgramsCommonDir & "\迅雷软件")If $dx = 0 ThenDirRemove(@ProgramsCommonDir & "\迅雷软件", 1)EndIf