好心情Blog

下载了的朋友请重新下载，因为我的一时疏忽，造成了任意文件都可以设置为登录界面的问题，现在改正并重新上传。

已经两三年没用过XP了，没想到却被T61逼得用上了XP——T61在Windows Server 2003下大多数设备的驱动都装不上，无奈之下只好换了XP。

换了XP之后自然很多时候都很不方便，像是装SQL Server 2005时，告诉我只有部分组件可以安装，查看详情才发现原来这“部分组件”只是用户手册$^&^*@!#!%&*$%^…… 不过，正好趁此机会用一下以前朋友们发给我的一些只有XP下才好用的软件：D

拿出来的第一个是改换XP登录界面的小工具，可以把XP默认的登录界面（快速用户切换界面）换得非常华丽。一时好奇，分析了一下其原理，原来只是改了注册表中的一个键值而已。于是想到，能不能写个小工具让系统每次自动更换登录界面呢？

第一想法当然是用C#写，但想起上次因为用.net写小东西被批评，所以干脆还是用WSH吧。不过这样一来因为没有界面，所以就不能让使用者自行设置一些参数了，但从另一方面来说，这样用起来也就更简单了 ：）

'**************************************************************************<br />'** 脚本功能:&nbsp;&nbsp;&nbsp; 更换Windows开机界面<br />'** 脚本版本:&nbsp;&nbsp;&nbsp; 1.1<br />'** 插件制作:&nbsp;&nbsp;&nbsp; 软件兔 (http://www.SoftBuny.net/ SoftBunny+Soft@Gmail.com)<br />'** 备　　注:&nbsp;&nbsp;&nbsp; 将此脚本的快捷方式放到&ldquo;开始-&gt;所有程序-&gt;启动&rdquo;文件夹中可实现<br />'**&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 每次登陆自动更换开机界面<br />'**<br />'** 变更记录:&nbsp;&nbsp;&nbsp; <br />'** 2008-03-04&nbsp;&nbsp;&nbsp; 基线版本<br />'** 2008-03-05&nbsp;&nbsp;&nbsp; 更正可能会设置任意文件为开机界面的严重问题<br />'**************************************************************************<br />Sub ChangUIhost()<br />&nbsp;&nbsp;&nbsp; Dim fso, f, f1, fc, s, p<br />&nbsp;&nbsp;&nbsp; Set fso = CreateObject(&quot;Scripting.FileSystemObject&quot;)<br />&nbsp;&nbsp;&nbsp; Set f = fso.GetFolder(&quot;.&quot;)<br />&nbsp;&nbsp;&nbsp; Set fc = f.Files<br />&nbsp;&nbsp;&nbsp; For Each f1 in fc<br />&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; If LCase(Right(f1.Name,3))=&quot;exe&quot; Then<br />&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; s = s &amp; f1.name &amp; &quot;|&quot; <br />&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; End If<br />&nbsp;&nbsp;&nbsp; Next<br /><br />&nbsp;&nbsp;&nbsp; p = f.path<br />&nbsp;&nbsp;&nbsp; If Right(p,1)&lt;&gt;&quot;\&quot; Then p = p &amp; &quot;\&quot;<br />&nbsp;&nbsp;&nbsp; fs = Split(s,&quot;|&quot;)<br />&nbsp;&nbsp;&nbsp; Randomize Timer<br />&nbsp;&nbsp;&nbsp; Set Sh = CreateObject(&quot;WScript.Shell&quot;)<br />&nbsp;&nbsp;&nbsp; Sh.RegWrite &quot;HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost&quot;, p &amp; fs(Fix(Rnd()*UBound(fs)))<br />End Sub<br />Call ChangUIhost()

用起来也简单，把这个脚本跟从网上下的Windows 登录界面放到同一个文件夹中运行一下就随机换了一个界面。如果把这个脚本的快捷方式放到开机自动运行中，那就可以实现每次开机都用一个随机的界面了。

把我下载的19个登录界面跟这个脚本打包到一起了，所以下载后解压到一个单独的文件夹中就可以直接试用了。不想玩了时把“还原Windows登录界面.reg“导入到注册表中就可以了。

点此下载19个登录界面+自动更换脚本

想要更多更漂亮的登录界面的话可以自己去themexp下载

你也可以自己制作自己的个性登录界面

如果你的登录界面是Windows经典登录界面，想还原成快速用户切换页面，只需要到控制面板的“帐户－>更改用户登录或注销的方式”在“使用欢迎屏幕”跟“使用快速用户切换”前打上勾就可以搞定了。