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

AutoIt3(au3)源码-Win7登录背景修改程序

AutoIT3 奇跡の海 2个月前 (01-10) 113次浏览 已收录 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,您需要填写昵称和邮箱!

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