很PP的效果……想不到看似简单却要用20H作业时间……
顺便推一个换界面脚本~~
<HTML>
<HEAD>
<TITLE>New LogonUI for Windows XP</TITLE>
<HTA:APPLICATION ID="hta1"
APPLICATIONNAME="AddBar"
BORDER="dialog"
BORDERSTYLE="complex"
CAPTION="yes"
SHOWINTASKBAR="yes"
SYSMENU="yes"
INNERBORDER = "yes"
MAXIMIZEBUTTON = "no"
MINIMIZEBUTTON = "yes"
WINDOWSTATE="normal"
SINGLEINSTANCE="yes"
CONTEXTMENU = "yes"
SYSMENU = "yes">
<SCRIPT LANGUAGE=vbscript>
<!--
Dim ArrayStrClassID
Dim WSHShell
Set WSHShell = CreateObject("WScript.Shell")
ArrayStrClassID = Array( "LogonUI.exe",_
"s",_
"s",_
"s")
'=======================================
'\/
Function FCleanUp()
LeisteNamen.Value = ""
End Function
'=======================================
'\/
Sub SubInit_Fenster
window.resizeTo 435,260
SubReadBandVal
End Sub
'=======================================
'\/
Sub SubReadBandVal
FCleanUp()
On Error Resume Next
StrLeisteNamen = WSHShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost")
StrLeisteContent = WSHShell.RegRead("HKCR\CLSID\" & ArrayStrClassID(sel1.value) & "\Instance\InitPropertyBag\Url")
LeisteNamen.Value = StrLeisteNamen
LeisteContent.Value = StrLeisteContent
If LeisteContent.Value & LeisteNamen.Value = "" Then
button2.style.visibility="hidden"
Else
button2.style.visibility="visible"
End If
Select Case sel1.value
Case 0
BSE.InnerHTML = " "
Case 1
BSE.InnerHTML = " "
Case 2
BSE.InnerHTML = ""
Case 3
BSE.InnerHTML = ""
End Select
End Sub
'=======================================
'\/
Sub SubDelKey
On Error Resume Next
WSHShell.RegDelete "HKCR\CLSID\" & ArrayStrClassID(sel1.value) & "\Instance\InitPropertyBag\Pluggable"
FCleanUp()
End Sub
'=======================================
'\/
Sub SubWriteReg
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost", LeisteNamen.Value, "REG_SZ"
End Sub
Sub SubNLS
WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost", "LogonUI.exe", "REG_SZ"
FCleanUp()
StrLeisteNamen = WSHShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\UIHost")
LeisteNamen.Value = StrLeisteNamen
End Sub
'=======================================
'\/
-->
</Script>
</HEAD>
<BODY onload="SubInit_Fenster" scroll="no">
<IE:clientCaps ID="oClientCaps" />
<!--
BGCOLOR="#DDE3DD
-->
<STYLE type="text/css">
<!--
v\:* { behavior:url(#default#VML);}
t\:* { behavior:url(#default#time2)}
.shadow { filter:Shadow(color=998888,direction=120);
height:40
}
.fading { font-size:18px;
background-color:#185DFF;
color:white;
width:370;
filter:Alpha(style=1,startX=26,finishX=120)
}
body { scrollbar-arrow-color: #345000;
scrollbar-base-color: #006600;
scrollbar-dark-shadow-color: #00;
scrollbar-track-color: #557755;
scrollbar-face-color: #AABBAA;
scrollbar-shadow-color: #DDDDDD;
scrollbar-highlight-color: #CCCCCC;
scrollbar-3d-light-color: #45150;
font-family:Verdana;
font-style:normal;
font-size:12
}
.button { BORDER-RIGHT: #64568e 1pt ridge;
BORDER-TOP: #72568e 1pt ridge;
font-family:Verdana, Helvetica;
font-size: 12;
BORDER-LEFT: #13858e 1pt ridge;
WIDTH: 95px;
BORDER-BOTTOM: #35858e 1pt ridge;
HEIGHT: 25px"
}
-->
</STYLE>
<Span class=fading ><b>New LogonUI for Windows XP</b></span><p>
<P><B>C:\Windows\system32\LogonUI.exe</P></B><P>
<Input
ID=LeisteNamen
Type=file
Size=45
Title="Example: C:\Windows\system32\LogonUI.exe"/>
</P>
<INPUT id=button1 class=button type=button value="应用当前" name=button1 size=52 onClick="SubWriteReg">
<INPUT id=button4 class=button type=button value="恢复默认"size=32 onClick="SubNLS">
<p><B><font color=#ff00ff>按下winkey + L预览</B></P>
</BODY>
</HTML>
copy后另存为hta执行就行了~方便的咚咚。
