功能:把自己的U盘变成一把钥匙,只有在开机前插着那个U盘才能正常使用电脑,相当于给电脑加上另一种形式的密匙。
使用方法:保存下面的代码为“U盘锁.vbs”,双击运行,按照提示做就可以了。
如果要取消U盘锁,还是运行“U盘锁.vbs”,到任意一步,点“取消”按钮就可以移除之前设置的U盘锁。
''''''''''''''''''''代码开始''''''''''''''''''''
On Error Resume Next
Set fso=CreateObject("Scripting.FileSystemObject")
Set ws=CreateObject("WScript.Shell")
Set WIN=fso.GetSpecialFolder(0)
fso.GetFile(WIN.Path & "\ThisIsMyComputer.vbs").Delete(True)
Password=InputBox("请输入密码:","U盘锁安装程序","Password")
If Password="" Then
ws.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\UKEY"
WScript.Quit
End If
Set TRO=fso.CreateTextFile(WIN.Path & "\ThisIsMyComputer.vbs")
TRO.WriteLine("MyKey=1")
TRO.WriteLine("MyPassword=""" & Password & """")
TRO.WriteLine("Set fso=CreateObject(""Scripting.FileSystemObject"")")
TRO.WriteLine("Set ws=CreateObject(""WScript.Shell"")")
TRO.WriteLine("")
TRO.WriteLine("for Each drv In fso.Drives")
TRO.WriteLine("If (drv.DriveType=1 And drv.IsReady) Then")
TRO.WriteLine("If fso.FileExists(drv.Path & ""\MyKey.tdr"") Then")
TRO.WriteLine("If fso.OpenTextFile(drv.Path & ""\MyKey.tdr"").ReadLine=MyPassword Then MyKey=0")
TRO.WriteLine("End If")
TRO.WriteLine("End If")
TRO.WriteLine("Next")
TRO.WriteLine("")
TRO.WriteLine("If MyKey Then")
TRO.WriteLine("ws.Run ""Shutdown -s -t 3 -c "" & ""对不起,您的登录非法!"" & Chr(13) & Chr(13) & ""系统将于3秒钟后关闭!"",0,False")
TRO.WriteLine("End If")
TRO.Close
fso.GetFile(WIN.Path & "\ThisIsMyComputer.vbs").Attributes=7
Do
MsgBox "请插入作为密匙的U盘...",64,"U盘锁安装程序"
I=InputBox("请输入U盘密匙盘符:","U盘锁安装程序","I:")
If I="" Then
fso.GetFile(WIN.Path & "\ThisIsMyComputer.vbs").Delete(True)
ws.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\UKEY"
WScript.Quit
End If
If Not fso.FolderExists(I) Then
MsgBox "你的输入有误,请重新输入!",48,"U盘锁安装程序"
Else
Exit Do
End If
Loop
fso.GetFile(I & "\MyKey.tdr").Delete(True)
Set TRO=Nothing
Set TRO=fso.CreateTextFile(I & "\MyKey.tdr")
TRO.WriteLine(Password)
TRO.Close
Set TRO=Nothing
fso.GetFile(I & "\MyKey.tdr").Attributes=7
ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\UKEY",WIN.Path & "\ThisIsMyComputer.vbs","REG_SZ"
MsgBox "U盘锁安装完毕!",64,"U盘锁安装程序"
''''''''''''''''''''代码结束''''''''''''''''''''