kaspersky
2007-05-01, 18:33
ziyang：支持原创 声望+1 再接再厉创造出更好的作品
blog链接：http://www.inewton.cn/article.asp?id=61
加了恢复默认,点取消就会提示是否恢复默认,确定即可
利用vbs写注册表的功能实现修改XP登陆界面,其实大家用的其他软件也就是通过修改
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost
的键值为用户指定的界面路径来实现
在任意目录新建一个文本文档,然后将如下代码复制到文档中,将扩展名TXT改为VBS,双击执行,如附件图所示
代码本身我已做详细注释,不用多解释了吧
Dim WSH,input,now,inputtext
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
'击活WScript.Shell对象
now=WSH.Regread("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost")
inputtext="使用说明:"&vbcrlf&"1.输入exe登陆界面路径,如 D:\logonui.exe"&vbcrlf&"2.恢复XP默认界面请点'取消'按钮"&vbcrlf&"3.下面对话框显示当前界面路径"
'定义好需要显示的内容
do
input=inputbox(inputtext,"输入登陆界面路径:",now)
'用户输入登陆界面路径,存放在input变量中
if input="" then
'判断用户是否已输入字符
msg=msgbox ("是否恢复XP默认界面?",1+48+0,"提示")
'提示时候恢复默认登陆界面
if msg=1 then
'如果返回值为1,也就是点了确定
WSH.Regwrite"HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost","logonui.exe","REG_SZ"
'改注册表为默认登陆界面
exit do
'退出程式
else exit do
'退出程式
end if
else WSH.Regwrite"HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost",input,"REG_SZ"
'根据用户输入路径修改注册表
WSH.POPUP("修改完成,按下Win+L预览")
'显示修改信息
exit do
'退出程式
end if
loop
'code by newton
写这个东西的目的只是抛砖引玉,希望大家多出一些原创的东西,不单单只是简单的换换别人做的主题,皮肤... 在做原创的过程中通过不断摸索学习可以学到很多作图的知识,如果是考虑界面的美观和系统的性能则又可以学到关于系统优化的知识,如果对作图不感冒而在编程方面胜人一筹,就可以写点方便大家美化的小程序,哪怕已经有了类似的东西,不也是对自己的提高么?如果什么都不会怎么办?学啊,孩子~潜下心来研究一些东西,而不是把别人的东西拿来稍作修改就贴上自己的logo标做"原创".
以上这些,写给喜欢美化并且喜欢电脑的朋友,希望大家都能通过玩美化学到更多美化之外的东西，我也是个Vegetable Bird(强人译“菜鸟”)^_^，和大家共勉
blog链接：http://www.inewton.cn/article.asp?id=61
加了恢复默认,点取消就会提示是否恢复默认,确定即可
利用vbs写注册表的功能实现修改XP登陆界面,其实大家用的其他软件也就是通过修改
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost
的键值为用户指定的界面路径来实现
在任意目录新建一个文本文档,然后将如下代码复制到文档中,将扩展名TXT改为VBS,双击执行,如附件图所示
代码本身我已做详细注释,不用多解释了吧
Dim WSH,input,now,inputtext
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")
'击活WScript.Shell对象
now=WSH.Regread("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost")
inputtext="使用说明:"&vbcrlf&"1.输入exe登陆界面路径,如 D:\logonui.exe"&vbcrlf&"2.恢复XP默认界面请点'取消'按钮"&vbcrlf&"3.下面对话框显示当前界面路径"
'定义好需要显示的内容
do
input=inputbox(inputtext,"输入登陆界面路径:",now)
'用户输入登陆界面路径,存放在input变量中
if input="" then
'判断用户是否已输入字符
msg=msgbox ("是否恢复XP默认界面?",1+48+0,"提示")
'提示时候恢复默认登陆界面
if msg=1 then
'如果返回值为1,也就是点了确定
WSH.Regwrite"HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost","logonui.exe","REG_SZ"
'改注册表为默认登陆界面
exit do
'退出程式
else exit do
'退出程式
end if
else WSH.Regwrite"HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost",input,"REG_SZ"
'根据用户输入路径修改注册表
WSH.POPUP("修改完成,按下Win+L预览")
'显示修改信息
exit do
'退出程式
end if
loop
'code by newton
写这个东西的目的只是抛砖引玉,希望大家多出一些原创的东西,不单单只是简单的换换别人做的主题,皮肤... 在做原创的过程中通过不断摸索学习可以学到很多作图的知识,如果是考虑界面的美观和系统的性能则又可以学到关于系统优化的知识,如果对作图不感冒而在编程方面胜人一筹,就可以写点方便大家美化的小程序,哪怕已经有了类似的东西,不也是对自己的提高么?如果什么都不会怎么办?学啊,孩子~潜下心来研究一些东西,而不是把别人的东西拿来稍作修改就贴上自己的logo标做"原创".
以上这些,写给喜欢美化并且喜欢电脑的朋友,希望大家都能通过玩美化学到更多美化之外的东西，我也是个Vegetable Bird(强人译“菜鸟”)^_^，和大家共勉