[休闲] 让你的MSN发疯

<package>
 <job id="vbs">
  <script language="vbscript">
   ' Show 5 signed-in windows
   LoopCount = 5
   
   ' select shell
   Set WshShell = WScript.CreateObject("WScript.Shell")
   
   ' active msn
   WshShell.AppActivate "MSN Messenger"

   ' send "alt+f, m, f, alt+f, m, o"  
   For i = 1 to LoopCount
    WshShell.SendKeys "%f"
    WshShell.SendKeys "m"
    WshShell.SendKeys "f"
    WScript.Sleep 500
    WshShell.SendKeys "%f"
    WshShell.SendKeys "m"
    WshShell.SendKeys "o"
    WScript.Sleep 500
   Next
  </script>
 </job>
</package>


将上述代码保存为：MSN.wsf，双击运行之，把你的msn列为好友的同志们就可以看到你的MSN发疯的样子了：）