无聊的游戏——MSN爬格子
日期：2006-04-14 | 作者： Allen| 网上发现的这段代码，觉得蛮好玩，转载过来了，然后将登录提醒关掉，嘿嘿。 保证所有msn对话窗口关闭，并且msn窗口是激活的，不要将重复次数设置了太大，这样会打扰别人的！！！下面是VB6.0的源代码 Private Declare Sub Sleep Lib “kernel32″ (ByVal dwMilliseconds As Long) Private Sub Command1_Click() LoopCount = 5 ‘Show 5 signed-in windows Set WshShell = CreateObject(“WScript.Shell”) WshShell.AppActivate “MSN Messenger” ‘send “alt+f, m, f, alt+f, m, o” For i = 0 To Int(Val(Me.Text1.Text)) WshShell.SendKeys “%f” WshShell.SendKeys “m” WshShell.SendKeys “f” Sleep 500 WshShell.SendKeys “%f” WshShell.SendKeys “m” WshShell.SendKeys “o” Sleep 500 Next End Sub 在我的教唆下，已经有好几个朋友用了一次。 LOL 还是和oximi一样把登录提醒关了吧。呵呵 |