DBNT云维护技术支持 - 深圳市聚源科技有限公司

 找回密码
 立即注册

QQ登录

只需一步,快速开始

服务器被入侵检测

[Au3] 一件设置主页

[复制链接]
haijie1223 发表于 2017-7-12 16:42:04 | 显示全部楼层 |阅读模式
发个贴子赚点积分吧,注册这么久了,还是个新手上路。原创代码,
  1. #NoTrayIcon
  2. #RequireAdmin
  3. #Region ;**** 参数创建于 ACNWrapper_GUI ****
  4. #PRE_UseX64=n
  5. #PRE_Res_Comment=Autoit交流群:477266297
  6. #PRE_Res_Description=Autoit交流群:477266297
  7. #PRE_Res_Fileversion=Autoit交流群:477266297
  8. #PRE_Res_LegalCopyright=Autoit交流群:477266297
  9. #PRE_Res_requestedExecutionLevel=None
  10. #EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
  11. #include <array.au3>
  12. Opt('MustDeclareVars', 1)
  13. Opt("GUIOnEventMode", 1)
  14. Global $gTitle = 'MyScript'
  15. If WinExists($gTitle) Then Exit
  16. AutoItWinSetTitle($gTitle)
  17. Global $MainForm, $Lbl_HomePage, $Ipt_HomePage, $Btn_SetHomePage
  18. Global $link = '不让发带连接的内容,自己改成你们的主页'


  19. $MainForm = GUICreate("设置主页", 345, 88)
  20. $Lbl_HomePage = GUICtrlCreateLabel("请输入要设置的主页", 24, 8, 204, 17)
  21. $Ipt_HomePage = GUICtrlCreateInput($link, 24, 32, 217, 21)
  22. $Btn_SetHomePage = GUICtrlCreateButton("设置主页", 256, 30, 75, 25)
  23. GUISetState(@SW_SHOW)

  24. GUISetOnEvent(-3, 'GuiEnvent')
  25. GUICtrlSetOnEvent($Btn_SetHomePage, 'GuiEnvent')
  26. While 1
  27.         Sleep(100)
  28. WEnd

  29. Func GuiEnvent()
  30.         Switch @GUI_CtrlId
  31.                 Case -3
  32.                         Exit
  33.                 Case $Btn_SetHomePage
  34.                         $link = GUICtrlRead($Ipt_HomePage)
  35.                         If StringStripWS($link, 8) <> '' Then
  36.                                 GUICtrlSetState($Btn_SetHomePage, 128)
  37.                                 SetHomePage($link)
  38.                                 GUICtrlSetState($Btn_SetHomePage, 64)
  39.                                 MsgBox(64 + 8192 + 262144, '提示', '设置主页完成!', 1, $MainForm)
  40.                         Else
  41.                                 MsgBox(16 + 8192 + 262144, '提示', '请输入主页网址!', 3, $MainForm)
  42.                         EndIf
  43.         EndSwitch
  44.         
  45. EndFunc   ;==>GuiEnvent

  46. Func SetHomePage($link = '不让发带连接的内容,自己改成你们的主页')
  47.         Local $HomeDrive = @HomeDrive
  48.         If StringInStr(RegRead('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control', 'SystemStartOptions'), 'MININT') Then $HomeDrive = 'C:'
  49.         Local $browsers, $lnkpaths
  50.         Local $browsersArr, $lnkpathsArr
  51.         Local $oDic, $oFolders, $fso, $WshShell, $oShellLink
  52.         Local $path, $name
  53.         $browsers = '114ie.exe,115chrome.exe,1616browser.exe,2345chrome.exe,2345explorer.exe,360se.exe,360chrome.exe,avant.exe,baidubrowser.exe,chgreenbrowser.exe,chrome.exe,firefox.exe,greenbrowser.exe,iexplore.exe,juzi.exe,kbrowser.exe,launcher.exe,liebao.exe,maxthon.exe,niuniubrowser.exe,qqbrowser.exe,sogouexplorer.exe,srie.exe,tango3.exe,theworld.exe,tiantian.exe,twchrome.exe,ucbrowser.exe,webgamegt.exe,xbrowser.exe,xttbrowser.exe,yidian.exe,yyexplorer.exe'
  54.         $lnkpaths = $HomeDrive & '\Users\Public\Desktop,' & _
  55.                         $HomeDrive & '\ProgramData\Microsoft\Windows\Start Menu\Programs,' & _
  56.                         $HomeDrive & '\Users\Administrator\Desktop,' & _
  57.                         $HomeDrive & '\Users\Administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch,' & _
  58.                         $HomeDrive & '\Users\Administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu,' & _
  59.                         $HomeDrive & '\Users\Administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar,' & _
  60.                         $HomeDrive & '\Users\Administrator\AppData\Roaming\Microsoft\Windows\Start Menu\Programs,' & _
  61.                         @StartMenuCommonDir & ',' & @ProgramsCommonDir & ',' & @DesktopDir & ',' & @DesktopCommonDir & ',' & _
  62.                         @AppDataDir & '\Microsoft\Internet Explorer\Quick Launch,' & _
  63.                         @AppDataCommonDir & '\Microsoft\Internet Explorer\Quick Launch,' & _
  64.                         @AppDataDir & '\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar,' & _
  65.                         @AppDataCommonDir & '\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar'
  66.         $browsersArr = StringSplit($browsers, ',')
  67.         $oDic = ObjCreate('scripting.dictionary')
  68.         For $browser In $browsersArr
  69.                 $oDic.Add(StringLower($browser), $browser)
  70.         Next
  71.         $lnkpathsArr = StringSplit($lnkpaths, ',')
  72.         $lnkpathsArr = _ArrayUnique($lnkpathsArr)
  73.         $oFolders = ObjCreate('scripting.dictionary')
  74.         For $lnkpath In $lnkpathsArr
  75.                 $oFolders.Add($lnkpath, $lnkpath)
  76.         Next
  77.         $fso = ObjCreate('Scripting.Filesystemobject')
  78.         $WshShell = ObjCreate('Wscript.Shell')
  79.         For $oFolder In $oFolders
  80.                 If $fso.FolderExists($oFolder) Then
  81.                         For $file In $fso.GetFolder($oFolder).Files
  82.                                 If StringLower($fso.GetExtensionName($file.Path)) = 'lnk' Then
  83.                                         $oShellLink = $WshShell.CreateShortcut($file.Path) ;返回快捷方式对象,方便后面对快捷方式进行操作
  84.                                         $path = $oShellLink.TargetPath ;获取快捷方式的真实地址
  85.                                         $name = $fso.GetBaseName($path) & '.' & $fso.GetExtensionName($path)
  86.                                         If $oDic.Exists(StringLower($name)) Then
  87.                                                 $oShellLink.Arguments = $link
  88.                                                 If StringInStr(FileGetAttrib($file.Path), 'R') Then $file.Attributes = $file.Attributes - 1
  89.                                                 $oShellLink.Save
  90.                                         EndIf
  91.                                 EndIf
  92.                         Next
  93.                 EndIf
  94.         Next
  95. EndFunc   ;==>SetHomePage
复制代码




头次报道 多多关照
回复

使用道具 举报

the886 发表于 2017-9-6 17:57:41 | 显示全部楼层
消灭0回复
不要问是内裤,还是外裤,内外都是酷!
回复 支持 反对

使用道具 举报

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

本版积分规则

DBNT云维护技术支持 - 深圳市聚源科技有限公司 ( 粤ICP备17103197号-2 )

GMT+8, 2019-9-17 08:13 , Processed in 0.125727 second(s), 25 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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