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

AutoIt3(au3)源碼-Win7登錄背景修改程序

AutoIT3 奇跡の海 10個月前 (01-10) 444次瀏覽 已收錄 0個評論 掃描二維碼

源碼簡介

AutoIt3(au3)源碼-Win7登錄背景修改程序

Win7登錄背景修改程序v1.00

源碼

#NoTrayIcon
#Region ;**** 參數創建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_icon=未命名-1.ico
#AutoIt3Wrapper_outfile=Win7登錄界面修改工具.exe
#AutoIt3Wrapper_Run_Obfuscator=y
#EndRegion ;**** 參數創建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#region ### START Koda GUI section ### Form=E:\AutoIt\Win7登錄背景修改程序\[自由天空]Win7登錄背景修改程序v1.00\WIN7.kxf

$Form1 = GUICreate("舒原林Win7登錄界面修改工具", 505, 416, -1, -1)
$Group1 = GUICtrlCreateGroup("登錄背景", 12, 16, 481, 353)
$Group2 = GUICtrlCreateGroup("", 20, 320, 465, 41)
$Label1 = GUICtrlCreateLabel("背景圖片:", 26, 335, 64, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 85, 333, 337, 21, $ES_READONLY)
GUICtrlSetTip(-1, "WIN7登錄頁面圖片應該小于250K的JPG文件")
$Button4 = GUICtrlCreateButton("瀏覽", 425, 331, 57, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Pic1 = GUICtrlCreatePic("", 20, 36, 465, 281)
GUICtrlSetTip(-1, "WIN7登錄頁面圖片應該小于250K的JPG文件")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("確定", 296, 376, 73, 33)
$Button2 = GUICtrlCreateButton("退出", 400, 376, 73, 33)
$Button3 = GUICtrlCreateButton("還原", 16, 376, 73, 33)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
GUICtrlSetState($Button1, $GUI_DEFBUTTON) ;設置確定按鈕為窗口默認按鈕
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button4
Dim $file
$file = FileOpenDialog("", @DesktopDir & "\", "圖片文件(*.jpg)")
GUICtrlSetData($Input1, $file)
GUICtrlSetImage($Pic1, GUICtrlRead($Input1))
Case $Button1 ;確定按鈕
If FileExists(GUICtrlRead($Input1)) = 0 Then
MsgBox(64, "錯誤", "請正確選擇圖片文件")
ContinueLoop
EndIf
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "reg_dword", "1")
FileCopy($file, @SystemDir & "\oobe\info\backgrounds\backgroundDefault.jpg", 9)
MsgBox(64, "完成", "登陸背景圖片修改成功,重啟電腦后應用")
Exit
Case $Button2 ;退出按鈕
Exit
Case $Button3 ;還原按鈕
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Authentication\LogonUI\Background", "OEMBackground", "reg_dword", "0")
RunWait(@ComSpec & " /c del /q /s %windir%\system32\oobe\info\backgrounds\backgroundDefault.jpg", "", @SW_HIDE)
MsgBox(64, "完成", "登陸背景圖片已恢復默,重啟后電腦后應用")
Exit
EndSwitch
WEnd

版權聲明:本站所有文章和資源使用CC BY-NC-SA 4.0協議授權發布 , 轉載應當以相同方式注明文章來自“SeaOMC.COM->AutoIt3(au3)源碼-Win7登錄背景修改程序!在下邊可以分享本文哦!
喜歡 (0)
[]
分享 (0)
奇跡の海
關于作者:
一個WordPress菜鳥!
發表我的評論
取消評論

表情 貼圖 加粗 刪除線 居中 斜體 簽到

Hi,您需要填寫昵稱和郵箱!

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