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

AutoIt3(au3)源码-开机画面修改工具

AutoIT3 奇跡の海 3个月前 (02-18) 155次浏览 已收录 0个评论 扫描二维码

源码简介

AutoIt3(au3)源码-开机画面修改工具
在Photoshop中新建一个大小640*480全黑的图层做背景” & @CRLF & “然后将自己喜欢的图片放到黑色的图层上图片模式改为索引”& @CRLF &”保存时选择16色(即4位)bmp图片

源码

#NoTrayIcon
#Region ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=D:\Program Files\AU3\Aut2Exe\Icons\apps.ico
#AutoIt3Wrapper_outfile=开机画面修改工具.EXE
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseAnsi=y
#AutoIt3Wrapper_Allow_Decompile=n
#AutoIt3Wrapper_Res_Comment=博客地址:http://hi.baidu.com/辰cheng_ 欢迎访问
#AutoIt3Wrapper_Res_Description=开机画面修改
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=辰cheng制作
#EndRegion ;**** 参数创建于 AutoIt3Wrapper_GUI ****
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate(“开机画面修改工具”, 295, 140)
$Label1 = GUICtrlCreateLabel(“注意:请选择一张大小为640*480*16色的图片!”, 24, 16, 262, 20)
GUICtrlSetTip(-1, “在Photoshop中新建一个大小640*480全黑的图层做背景” & @CRLF & “然后将自己喜欢的图片放到黑色的图层上图片模式改为索引”& @CRLF &”保存时选择16色(即4位)bmp图片”)
GUICtrlSetCursor(-1, 0)
GUICtrlSetFont(-1, 10, 400, 0, “MS Sans Serif”)
GUICtrlSetColor(-1, 0x800000)
$Input1 = GUICtrlCreateInput(“”, 24, 48, 201, 21)
$Button1 = GUICtrlCreateButton(“选 择”, 228, 47, 38, 21, $WS_GROUP)
$Label2 = GUICtrlCreateLabel(“启动菜单等待时间(秒):”, 24, 80, 129, 17)
$Input2 = GUICtrlCreateInput(“3”, 152, 78, 33, 17)
$Button2 = GUICtrlCreateButton(“应 用”, 24, 110, 75, 22, $WS_GROUP)
$Button3 = GUICtrlCreateButton(“还 原”, 152, 110, 75, 22, $WS_GROUP)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label3 = GUICtrlCreateLabel(“辰cheng”, 232, 116, 46, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$Win = Stringtrimleft(@windowsdir, 3)
if regread(“HKLM\SYSTEM\CurrentControlSet\Control”, “SystemBootDevice”) = ” then
$default = “multi(0)disk(0)rdisk(0)partition(1)\” & $Win
else
$default = regread(“HKLM\SYSTEM\CurrentControlSet\Control”, “SystemBootDevice”) & “\” & $Win
endif
$Result = iniread(@homedrive & “\boot.ini”, “operating systems”, $default, “”)
$addresult = $Result & ” /bootlogo /noguiboot”
If FileExists(@WindowsDir & “\boot.bmp”) And Stringinstr($Result, “/bootlogo /noguiboot”) then
GUICtrlSetState($Button3, $GUI_ENABLE)
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$ButtonInput1 = FileOpenDialog(“”, “”, “(*.bmp)”, “9”)
GUICtrlSetData($Input1, $ButtonInput1)
Case $Button2
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
FileCopy(GUICtrlRead($Input1), @WindowsDir & “\boot.bmp”, 1)
FileSetAttrib(@HomeDrive & “\boot.ini”, “-HSR”)
if Stringinstr($Result, $addresult) = 0 then
iniwrite(@homedrive & “\boot.ini”, “operating systems”, $default, $addresult)
EndIf
iniwrite(@homedrive & “\boot.ini”, “boot loader”, “timeout”, GUICtrlRead($Input2))
FileSetAttrib(@WindowsDir & “\boot.bmp”, “+HSR”)
FileSetAttrib(@HomeDrive & “\boot.ini”, “+HSR”)
WinWaitActive(“开机画面修改工具”)
WinSetTitle(“开机画面修改工具”, “”, “设置完毕请重启计算机查看效果”)
Case $Button3
GUICtrlSetState($Button2, $GUI_DISABLE)
GUICtrlSetState($Button3, $GUI_DISABLE)
FileSetAttrib(@WindowsDir & “\boot.bmp”, “-HSR”)
FileDelete (@WindowsDir & “\boot.bmp”)
FileSetAttrib(@HomeDrive & “\boot.ini”, “-HSR”)
$var=IniReadSection (@homedrive & “\boot.ini”, “operating systems”)
;MsgBox(4096, “”, “关键字: ” & $var[1][0] & @CRLF & “值: ” & $var[1][1])
$qqq=StringTrimRight ($var[1][1], 20)
IniWrite(@homedrive & “\boot.ini”, “operating systems”, $var[1][0],$qqq)
FileSetAttrib(@HomeDrive & “\boot.ini”, “+HSR”)
WinWaitActive(“开机画面修改工具”)
WinSetTitle(“开机画面修改工具”, “”, “设置完毕请重启计算机查看效果”)
EndSwitch
WEnd


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

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

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

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