• 歡迎訪問奇跡の海網站,本站不上傳任何資源,所有資源均來自于網絡,歡迎加入奇跡の海~!奇跡の海-WordPress QQ群
  • 本站下載資源為網絡上收集整理而來,并且以計算機技術研究交流為目的,版權歸原作者所有,僅供大家參考,學習,不存在任何商業目的與商業用途.
  • 本站系統鏡像均來自于官方原版,ed2k可視為P2P下載鏈接。所有操作系統默認均為試用版,如有正版密鑰可以有效激活,本站不提供任何激活和相關服務。

AutoIt3(au3)源碼-一鍵設置瀏覽器主頁

AutoIT3 奇跡の海 2年前 (2017-11-03) 599次瀏覽 已收錄 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.bavghg.tw/')
	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,您需要填寫昵稱和郵箱!

  • 昵稱 (必填)
  • 郵箱 (必填)
  • 網址
中国福利彩票36选7开奖结果