msn爬楼梯新版本-宝玉的blog

msn爬楼梯新版本

最早mvm写的vbs版本：《MSN爬楼梯和Monkey Testing 》，今天有同事玩的乐此不疲，就写了一个升级版本，可以每次换名字。把下面的代码存成HTML，保证所有msn对话窗口关闭，并且msn窗口是激活的，然后执行HTML，有安全对话框提示，确认就好了。在输入框输入要动态改变的内容，然后点爬楼梯按钮即可。

表BS我无聊……

新版本：

<textarea name="" rows="10" cols="50" id="txtDisplayNames">
宝玉(f)刘俊民 -- 什么是爬楼梯？
宝玉(f)刘俊民 -- 这就是爬楼梯？
宝玉(f)刘俊民 -- 做个试验而已！
宝玉(f)刘俊民 -- 不要Block我，下次不玩了！
宝玉(f)刘俊民 -- 兼(北京)：Asp.Net猎头，男女婚介
</textarea>
<br />
<input type="button" value="开始爬" onclick="Climb()" id="btnStart"/>

<script language="JavaScript" type="text/javascript">...
<!--
var displayNames;

var WshShell = new ActiveXObject("WScript.Shell");
var i=0;

function Climb()
...{
    displayNames = new Array();
    var arrTemp = document.getElementById("txtDisplayNames").value.split("\r\n");
    for(var x=0; x<arrTemp.length; x++)
    ...{
        if (arrTemp[x].length > 0)
            displayNames[displayNames.length] = arrTemp[x];
    }
    WshShell.AppActivate( "MSN Messenger" );
    i=0;
    document.getElementById("btnStart").disable=true;
    setTimeout("ChangeDisplayName()", 500);
}

function ChangeDisplayName()
...{
    WshShell.SendKeys( "%t" );
    WshShell.SendKeys( "o" );
    window.clipboardData.setData("Text", displayNames[i]);
    WshShell.SendKeys( "^v" );
    WshShell.SendKeys( "{ENTER}" );
    setTimeout("Offline()", 500);
}

function Offline()
...{
    WshShell.SendKeys( "%f" );
    WshShell.SendKeys( "m" );
    WshShell.SendKeys( "f" );
    setTimeout("Online()", 500);
}

function Online()
...{
    WshShell.SendKeys( "%f" );
    WshShell.SendKeys( "m" );
    WshShell.SendKeys( "o" );
    i++;
    if (i<displayNames.length)
    ...{
        setTimeout("ChangeDisplayName()", 500);
    }
    else
    ...{
        document.getElementById("btnStart").disable=false;
    }
}

//-->
</script>

打印 | 张贴于 2006-03-30 00:36:00 | Tag:生活

留言反馈

#re: msn爬楼梯新版本编辑

Windows Live Messenger
菜单变过了如下

<textarea name="" rows="10" cols="50" id="txtDisplayNames">
宝玉(f)刘俊民 -- 什么是爬楼梯？
宝玉(f)刘俊民 -- 这就是爬楼梯？
宝玉(f)刘俊民 -- 做个试验而已！
宝玉(f)刘俊民 -- 不要Block我，下次不玩了！
宝玉(f)刘俊民 -- 兼(北京)：Asp.Net猎头，男女婚介
</textarea>
<br />
<input type="button" value="开始爬" onclick="Climb()" id="btnStart"/>

<script language="JavaScript" type="text/javascript">

</script>

2006-11-09 17:53:00 | [匿名:coos]

#re: msn爬楼梯新版本编辑

8.0 改成这样

WshShell.AppActivate( "Windows Live Messenger" );

2006-10-17 12:29:00 | [匿名:daydayup]

#关于ol的严重问题编辑

OL我的ID不能登陆，所以过来。

注册的ID登陆老是说密码不对
密码重置后，根本没有往邮箱发送！！

我的ID： iamadog3333
邮箱： iamadog3333@163.com

请务必帮忙！！！

2006-07-22 18:27:00 | [匿名:iamadog3333]

#re: msn爬楼梯新版本编辑

没法玩呀，大哥

2006-04-11 14:27:00 | [匿名:一刀]

#re: msn爬楼梯新版本编辑

好玩

2006-04-10 23:48:00 | [匿名:Felix.NET]

#re: msn爬楼梯新版本编辑

没什么事，过来鄙视一下宝玉

2006-04-06 08:26:00 | [匿名:大坏蛋]

#re: msn爬楼梯新版本编辑

恩狐狸姐姐说的没错 MSN8行爬不上去~~宝玉害我傻傻的爬的累死了

2006-04-01 04:27:00 | [匿名:plmm]

#re: msn爬楼梯新版本编辑

MSN8上爬不动

2006-03-31 15:33:00 | [匿名:天才狐狸]

#re: msn爬楼梯新版本编辑

几个注意事项：
这个是通过windows脚本调用快捷键来的，需要有Activex执行权限，所以最好下载到本地执行
要保证msn messenger是打开的，要是最小化到任务栏可能不行
要根据自己的msn messenger版本选择html执行

2006-03-30 17:48:00 | [匿名:宝玉]

#re: msn爬楼梯新版本编辑

运行后，ie7的InternetOption设置对话框就一会儿出来一次，并且它的homepage的编辑框中就填写着：
什么是爬楼梯？
这就是爬楼梯？
做个试验而已！
不要Block我，下次不玩了！
嗬嗬，每次换一句话。
msn messenger不幸没有改变昵称。

2006-03-30 15:53:00 | [匿名:zhengyun]

#re: msn爬楼梯新版本编辑

具体怎么弄啊？把所有步骤都列出来好么？

2006-03-30 14:34:00 | [匿名:tandy]

#re: msn爬楼梯新版本编辑

>>> 兼(北京)：Asp.Net猎头，男女婚介
有美女否...

2006-03-30 10:38:00 | [匿名:sunmast]

#re: msn爬楼梯新版本编辑

我的xp 也提示缺少对象

2006-03-30 09:10:00 | [匿名:pan]

#re: msn爬楼梯新版本编辑

win2000上可以玩，简直就像一个黑客程式。hh, 不错

2006-03-30 09:03:00 | [匿名:豆豆]

#re: msn爬楼梯新版本编辑

没有效果啊？！

2006-03-30 08:35:00 | [匿名:OGCN]

#re: msn爬楼梯新版本编辑

老大害得我搞了有半个小时哈,win2003不能用.我没有XP的机器

2006-03-30 01:29:00 | [匿名:超越梦想]

#re: msn爬楼梯新版本编辑

Win 2003 说WScript不存在了

2006-03-30 01:14:00 | [匿名:超越梦想]

对不起，目前本随笔不允许发表新评论.

宝玉的blog

导航

关于

标签

每月存档

最新留言

广告

留言反馈