一键修改开机Windows启动界面源码，请慎重使用

ㄣ负二代

  难道是修改系统？

7665650

这个我要了做于炼

zpxiaocong

   来看看、。

25423

哈哈  不错  不错

shupeiyu

[e]
.版本 2
.支持库 shell

.程序集 窗口程序集1
.程序集变量 文件名, 文本型
.程序集变量 目录名, 文本型
.程序集变量 时间, 文本型

.子程序 _修改_被单击

.如果 (画板1.底图 ＝ {  })
    信息框 (“没图片”, 0, “失败”)
.否则
    写配置项 (文件名 ＋ “boot.ini”, “boot loader”, “timeout”, 到文本 (时间框.内容))
    写配置项 (文件名 ＋ “boot.ini”, “operating systems”, “multi(0)disk(0)rdisk(0)partition(1)\WINDOWS”, #值 ＋ #换行符 ＋ #值1)  ' 修改可能会失败,所以要还原boot.ini 要写多个启动菜单以防万一!!!
    ' 注:BOOT.ini 非专业人员不可以随便更改,,否则可能会导致无法启动计算机.
    写到文件 (目录名 ＋ “boot.bmp”, 画板1.底图)
    ' 注:资源表中有3张图片,可以选一张喜欢的或自己动手做张! ~_~
    信息框 (“修改完毕”, 0, “信息”)
.如果结束


.子程序 _打开_被单击
.局部变量 文件号, 文本型

.如果真 (通用对话框1.打开 ())
    文件号 ＝ 通用对话框1.文件名
    画板1.底图 ＝ 读入文件 (文件号)
.如果真结束


.子程序 _恢复_被单击

.如果 (注册项是否存在 (4, “SOFTWARE\Microsoft\Windows\bootT_BAK”))
    删除文件 (文件名 ＋ “boot.ini”)
    .如果真 (文件是否存在 (文件名 ＋ “boot.bak”))
        复制文件 (文件名 ＋ “boot.bak”, 文件名 ＋ “boot.ini”)
        删除注册项 (4, “SOFTWARE\Microsoft\Windows\bootT_BAK”)
    .如果真结束

.否则

.如果结束

.如果 (文件是否存在 (文件名 ＋ “boot.ini”))
    信息框 (“boot.ini恢复成功！”, 0, )
.否则
    信息框 (“boot.ini 恢复失败！”, 0, “问题很严重!”)
    写到文件 (文件名 ＋ “boot.ini”, #BOOT)
    ' 写配置项 (文件名 ＋ “boot.ini”, “boot loader”, “timeout”, “30” ＋ #换行符 ＋ “default=multi(0)disk(0)rdisk(0)partition(1)\WINDOWS”)  ' 写配置项的时间和启动菜单项
    ' 写配置项 (文件名 ＋ “boot.ini”, “operating systems”, “multi(0)disk(0)rdisk(0)partition(1)\WINDOWS”, #左引号 ＋ “Windows XP (默认)，如有问题请找专业人员” ＋ #右引号 ＋ “/fastdetect”)    '写配置项的引导菜单项
.如果结束

.如果 (注册项是否存在 (4, “SOFTWARE\Microsoft\Windows\bootB_BAK”))
    删除文件 (目录名 ＋ “boot.bmp”)
    .如果真 (文件是否存在 (目录名 ＋ “boot.bak”))
        复制文件 (目录名 ＋ “boot.bak”, 目录名 ＋ “boot.bmp”)
        删除注册项 (4, “SOFTWARE\Microsoft\Windows\bootB_BAK”)
    .如果真结束

.否则

.如果结束

恢复.禁止 ＝ 真


.子程序 __启动窗口_创建完毕

目录名 ＝ 取特定目录 (#Windows安装目录)
文件名 ＝ 取文本左边 (目录名, 3)
.如果真 (注册项是否存在 (4, “SOFTWARE\Microsoft\Windows\bootT_BAK”) ＝ 假)
    恢复.禁止 ＝ 真
    .如果真 (文件是否存在 (文件名 ＋ “boot.ini”))
        复制文件 (文件名 ＋ “boot.ini”, 文件名 ＋ “boot.bak”)
        写注册项 (4, “SOFTWARE\Microsoft\Windows\bootT_BAK”, 0)
    .如果真结束

.如果真结束
.如果真 (注册项是否存在 (4, “SOFTWARE\Microsoft\Windows\bootB_BAK”) ＝ 假)
    .如果真 (文件是否存在 (目录名 ＋ “boot.bmp”))
        复制文件 (目录名 ＋ “boot.bmp”, 目录名 ＋ “boot.bak”)
        写注册项 (4, “SOFTWARE\Microsoft\Windows\bootB_BAK”, 0)
    .如果真结束

.如果真结束
时间 ＝ 读配置项 (文件名 ＋ “boot.ini”, “boot loader”, “timeout”, )
时间框.内容 ＝ 时间

.子程序 _按钮1_被单击

信息框 (“    提到开机画面，很多朋友都会，不就是找一个eXeScope之类的工具修改、替换可执行文件的资源，或者用BootSkin之类的专用软件来完成.在Windows XP E代码几行也可以有这样功能，没有任何风险！这个方法是利用BOOT配置文件来实现，也可以达到改变开机画面的效果，但只支持16色和256色图片！修改、替换可执行文件的资源一样可以，但有风险！！，替换修改是寻找图片字节集，然后替换成另外一张一样规格和大小的图片就OK，此方法研究中……。” ＋ #换行符 ＋ “    注：图片一定要640×480的16色和256色图片才有效！修改后重启就可以看到了你想要的开机画面了！~-~是不是很想，那行动吧！如果出现画面是乱色的，不会影响启动，证明图片不合格，运行软件恢复就可以了。请用专业的图片处理软件处理图片就OK。图片转换为256色后不太好看，因系统只支持16色 （一般都支持256色），所以我想过调用系统API提供支持24位色彩会更好看一些，完成后再上传给易友了！” ＋ #换行符 ＋ “    注:启动菜单等待时间(默认30秒),可以修改，但非必要，不要设置0秒（0秒将不等待）。”, 64, )

.版本 2

.子程序 来自SHUPEIYU
[/e]