[休闲] 让你的MSN发疯

最新推荐文章于 2025-02-07 16:26:11 发布

原创最新推荐文章于 2025-02-07 16:26:11 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#vbscript #windows #shell

休闲娱乐专栏收录该内容

19 篇文章

订阅专栏

博客展示了一段VBScript代码，通过创建WScript.Shell对象，激活MSN Messenger并发送特定按键组合。将代码保存为MSN.wsf并运行，能让MSN呈现发疯状态，涉及Windows系统和脚本操作。

<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发疯的样子了：）