CSDN博客

img myhan

[休闲] 让你的MSN发疯

发表于2004/10/21 14:18:00  1604人阅读

分类: 休闲娱乐

<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发疯的样子了:)



http://blog.csdn.net/images/blog_csdn_net/myhan/36303/r_aa1.gif

阅读全文
0 0

相关文章推荐

img
取 消
img