• 欢迎访问奇跡の海网站,本站不上传任何资源,所有资源均来自于网络,欢迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下载资源为网络上收集整理而来,并且以计算机技术研究交流为目的,版权归原作者所有,仅供大家参考,学习,不存在任何商业目的与商业用途.
  • 本站系统镜像均来自于官方原版,ed2k可视为P2P下载链接。所有操作系统默认均为试用版,如有正版密钥可以有效激活,本站不提供任何激活和相关服务。

AutoIt3(au3)源码-一键设置浏览器主页

AutoIT3 奇跡の海 2年前 (2017-11-03) 689次浏览 已收录 0个评论 扫描二维码

源码简介

AutoIt3(au3)源码-一键设置浏览器主页
一键设置浏览器主页,方便做主页推广的朋友。

AU3源代码

#NoTrayIcon
#RequireAdmin
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_UseX64=n
#PRE_Res_Comment=Autoit
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)
Global $gTitle = 'MyScript'
If WinExists($gTitle) Then Exit
AutoItWinSetTitle($gTitle)
Global $MainForm, $Lbl_HomePage, $Ipt_HomePage, $Btn_SetHomePage
Global $link = 'http://www.home1223.com/'


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

GUISetOnEvent(-3, 'GuiEnvent')
GUICtrlSetOnEvent($Btn_SetHomePage, 'GuiEnvent')
While 1
	Sleep(100)
WEnd

Func GuiEnvent()
	Switch @GUI_CtrlId
		Case -3
			Exit
		Case $Btn_SetHomePage
			$link = GUICtrlRead($Ipt_HomePage)
			If StringStripWS($link, 8) <> '' Then
				GUICtrlSetState($Btn_SetHomePage, 128)
				SetHomePage($link)
				GUICtrlSetState($Btn_SetHomePage, 64)
				MsgBox(64 + 8192 + 262144, '提示', '设置主页完成!', 1, $MainForm)
			Else
				MsgBox(16 + 8192 + 262144, '提示', '请输入主页网址!', 3, $MainForm)
			EndIf
	EndSwitch
	
EndFunc   ;==>GuiEnvent

Func SetHomePage($link = 'http://www.seaomc.com/')
	Local $HomeDrive = @HomeDrive
	If StringInStr(RegRead('HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control', 'SystemStartOptions'), 'MININT') Then $HomeDrive = 'C:'
	Local $browsers, $lnkpaths
	Local $browsersArr, $lnkpathsArr
	Local $oDic, $oFolders, $fso, $WshShell, $oShellLink
	Local $path, $name
	$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'
	$lnkpaths = $HomeDrive & '\Users\Public\Desktop,' & _
			$HomeDrive & '\ProgramData\Microsoft\Windows\Start Menu\Programs,' & _
			$HomeDrive & '\Users\Administrator\Desktop,' & _
			$HomeDrive & '\Users\Administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch,' & _
			$HomeDrive & '\Users\Administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\StartMenu,' & _
			$HomeDrive & '\Users\Administrator\AppData\Roaming\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar,' & _
			$HomeDrive & '\Users\Administrator\AppData\Roaming\Microsoft\Windows\Start Menu\Programs,' & _
			@StartMenuCommonDir & ',' & @ProgramsCommonDir & ',' & @DesktopDir & ',' & @DesktopCommonDir & ',' & _
			@AppDataDir & '\Microsoft\Internet Explorer\Quick Launch,' & _
			@AppDataCommonDir & '\Microsoft\Internet Explorer\Quick Launch,' & _
			@AppDataDir & '\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar,' & _
			@AppDataCommonDir & '\Microsoft\Internet Explorer\Quick Launch\User Pinned\TaskBar'
	$browsersArr = StringSplit($browsers, ',')
	$oDic = ObjCreate('scripting.dictionary')
	For $browser In $browsersArr
		$oDic.Add(StringLower($browser), $browser)
	Next
	$lnkpathsArr = StringSplit($lnkpaths, ',')
	$oFolders = ObjCreate('scripting.dictionary')
	For $lnkpath In $lnkpathsArr
		$oFolders.Add($lnkpath, $lnkpath)
	Next
	$fso = ObjCreate('Scripting.Filesystemobject')
	$WshShell = ObjCreate('Wscript.Shell')
	For $oFolder In $oFolders
		If $fso.FolderExists($oFolder) Then
			For $file In $fso.GetFolder($oFolder).Files
				If StringLower($fso.GetExtensionName($file.Path)) = 'lnk' Then
					$oShellLink = $WshShell.CreateShortcut($file.Path) ;返回快捷方式对象,方便后面对快捷方式进行操作
					$path = $oShellLink.TargetPath ;获取快捷方式的真实地址
					$name = $fso.GetBaseName($path) & '.' & $fso.GetExtensionName($path)
					If $oDic.Exists(StringLower($name)) Then
						$oShellLink.Arguments = $link
						If StringInStr(FileGetAttrib($file.Path), 'R') Then $file.Attributes = $file.Attributes - 1
						$oShellLink.Save
					EndIf
				EndIf
			Next
		EndIf
	Next
EndFunc   ;==>SetHomePage

版权声明:本站所有文章和资源使用CC BY-NC-SA 4.0协议授权发布 , 转载应当以相同方式注明文章来自“SeaOMC.COM->AutoIt3(au3)源码-一键设置浏览器主页!在下边可以分享本文哦!
喜欢 (0)
[]
分享 (0)
奇跡の海
关于作者:
一个WordPress菜鸟!
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址