用U盘给电脑加锁，VBS脚本 - 中国DOS联盟论坛

这不是我的作品，我对VBS一窍不通，是偶然的机会在网上找到的，觉得不错，或许对需要的朋友很有用，就发上来了

说明：
打开gpedit.msc
把脚本放到“登陆脚本”里，这样
登陆系统时就需要插上U盘，并且U盘中有一个SecretKey的文件，并且文件中有Breakan这个字符串。
不然就自动注销。
呵呵

Dim objws,objfs
Set objws=WScript.CreateObject("wscript.shell")
Set objfs=CreateObject("scripting.filesystemobject")

Dim dl
For Each d In objfs.Drives
        If d.DriveType=1 Then
                dl=d.DriveLetter
        End If
Next

If dl<>"" Then
        If objfs.FileExists(dl & ":\SecretKey") Then
                Set objf=objfs.OpenTextFile(dl & ":\SecretKey",1,False)
                If objf.ReadAll="Breakan" Then
                        objws.Popup "^-^ 合法用户,欢迎使用!",3,"你好",64
                Else
                        objws.Popup "-_- 非法用户,密钥错误!",3,"提示",16
                        objws.Run "shutdown -l"
                End If
        Else
                objws.Popup "#_# 非法用户,密钥文件错误!",3,"错误",16
                objws.Run "shutdown -l"
        End If
Else
        objws.Popup "@_@ 非法用户,物理密钥错误!",3,"错误",16
        objws.Run "shutdown -l"
End If

有点垃圾了，问题多多。
一、开机运行后，机只还没全开动，P处理注销不了系统的。
二、就算是注销系统后重进一次，只要不重起也是可以进去的。
三、安全模式进去把他删除后还是给破解的。
四、可以做成“请插入用户密码匙进入系统”等提示就好多了。
五、出来了一个小黑CMD，隐藏运行才好啊。看上去就象中毒是的......

2楼看好，人家是放在登陆脚本中的

对二楼的回答：
一、首先这不是P处理，是VBS脚本，然后是“登陆系统”时，不是开机时会出现。
二、这是加入到系统登陆脚本里的，注销后如果没插入U盘，还是会提示你然后注销
三、安全模式确实可以很容易的删除，因为安全模式不会加载启动脚本。
四、你喜欢的话，自己把错误提示改一下就好了。
五、VBS，不会有小黑CMD，只会弹出一个消息提示框。

你是自己试过才说的。你有没放过，放过你一次就知了。

objws.Run "shutdown -l

这句出来的就是CMD小黑窗了。

[ Last edited by sea1112 on 2008-10-31 at 11:46 ]

第1楼　clian76	发表于 2008-10-28 13:33
中级用户　发帖 162　积分 363
[分享]用U盘给电脑加锁，VBS脚本这不是我的作品，我对VBS一窍不通，是偶然的机会在网上找到的，觉得不错，或许对需要的朋友很有用，就发上来了说明：打开gpedit.msc 把脚本放到“登陆脚本”里，这样登陆系统时就需要插上U盘，并且U盘中有一个SecretKey的文件，并且文件中有Breakan这个字符串。不然就自动注销。呵呵 Dim objws,objfs Set objws=WScript.CreateObject("wscript.shell") Set objfs=CreateObject("scripting.filesystemobject") Dim dl For Each d In objfs.Drives If d.DriveType=1 Then dl=d.DriveLetter End If Next If dl<>"" Then If objfs.FileExists(dl & ":\SecretKey") Then Set objf=objfs.OpenTextFile(dl & ":\SecretKey",1,False) If objf.ReadAll="Breakan" Then objws.Popup "^-^ 合法用户,欢迎使用!",3,"你好",64 Else objws.Popup "-_- 非法用户,密钥错误!",3,"提示",16 objws.Run "shutdown -l" End If Else objws.Popup "#_# 非法用户,密钥文件错误!",3,"错误",16 objws.Run "shutdown -l" End If Else objws.Popup "@_@ 非法用户,物理密钥错误!",3,"错误",16 objws.Run "shutdown -l" End If

第2楼　sea1112	发表于 2008-10-28 15:32
初级用户　发帖 119　积分 131　来自 gz
有点垃圾了，问题多多。一、开机运行后，机只还没全开动，P处理注销不了系统的。二、就算是注销系统后重进一次，只要不重起也是可以进去的。三、安全模式进去把他删除后还是给破解的。四、可以做成“请插入用户密码匙进入系统”等提示就好多了。五、出来了一个小黑CMD，隐藏运行才好啊。看上去就象中毒是的......

第3楼　everest79	发表于 2008-10-28 15:43
金牌会员　发帖 1,127　积分 2,564
2楼看好，人家是放在登陆脚本中的

第4楼　clian76	发表于 2008-10-28 16:30
中级用户　发帖 162　积分 363
对二楼的回答：一、首先这不是P处理，是VBS脚本，然后是“登陆系统”时，不是开机时会出现。二、这是加入到系统登陆脚本里的，注销后如果没插入U盘，还是会提示你然后注销三、安全模式确实可以很容易的删除，因为安全模式不会加载启动脚本。四、你喜欢的话，自己把错误提示改一下就好了。五、VBS，不会有小黑CMD，只会弹出一个消息提示框。

第5楼　sea1112	发表于 2008-10-31 11:44
初级用户　发帖 119　积分 131　来自 gz
你是自己试过才说的。你有没放过，放过你一次就知了。 objws.Run "shutdown -l 这句出来的就是CMD小黑窗了。 [ Last edited by sea1112 on 2008-10-31 at 11:46 ]