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>
posted on 2006-03-30 00:36:00 by 宝玉 评论(20) 阅读(10528)
目前致力于





}