• 1

最早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>