中国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 ]