Browse: Home / / MSN Messenger 爬楼代码

MSN Messenger 爬楼代码

2006-04-17 23:11 | Posted by Sunshow | Filed Under Life

  1. <html>
  2. <head>
  3. <script language="JavaScript" type="text/javascript">
  4. <!--
  5. var displayNames;
  6.  
  7. var WshShell = new ActiveXObject("WScript.Shell");
  8. var i=0;
  9.  
  10. function Climb()
  11. {
  12.     displayNames = new Array();
  13.     var arrTemp = document.getElementById("txtDisplayNames").value.split("\r\n");
  14.     for(var x=0; x<arrTemp.length; x++)
  15.     {
  16.         if (arrTemp[x].length > 0)
  17.             displayNames[displayNames.length] = arrTemp[x];
  18.     }
  19.     //WshShell.AppActivate( "MSN Messenger" );
  20. WshShell.AppActivate( "Messenger 8.0 BETA" );
  21.     i=0;
  22.     document.getElementById("btnStart").disable=true;
  23.     setTimeout("ChangeDisplayName()", 500);
  24. }
  25.  
  26. function ChangeDisplayName()
  27. {
  28.     WshShell.SendKeys( "%t" );
  29.     WshShell.SendKeys( "o" );
  30.     window.clipboardData.setData("Text", displayNames[i]);
  31.     WshShell.SendKeys( "^v" );
  32.     WshShell.SendKeys( "{ENTER}" );
  33.     setTimeout("Offline()", 500);
  34. }
  35.  
  36. function Offline()
  37. {
  38.     WshShell.SendKeys( "%f" );
  39.     WshShell.SendKeys( "m" );
  40.     WshShell.SendKeys( "f" );
  41.     setTimeout("Online()", 500);
  42. }
  43.  
  44. function Online()
  45. {
  46.     WshShell.SendKeys( "%f" );
  47.     WshShell.SendKeys( "m" );
  48.     WshShell.SendKeys( "o" );
  49.     i++;
  50.     if (i<displayNames.length)
  51.     {
  52.         setTimeout("ChangeDisplayName()", 500);
  53.     }
  54.     else
  55.     {
  56.         document.getElementById("btnStart").disable=false;
  57.     }
  58. }
  59.  
  60. //-->
  61. </script>
  62. </head>
  63. <body>
  64. <textarea name="" rows="10" cols="50" id="txtDisplayNames">
  65. -- 1楼
  66. -- 2楼
  67. -- 3楼
  68. -- 4楼
  69. -- 5楼
  70. </textarea>
  71.  
  72.  
  73. <input type="button" value="开始爬" onclick="Climb()" id="btnStart"/>
  74. </body>
  75. </html>
标签：,

相关日志

Permalink | Trackback

2 Comments

  1. 匿名
    匿名
    2008-10-12 at 02:34 | | Reply

    你是珊瑚虫论坛的管理员吗？我在论坛注册了帐号 ：木ぃ头，一直说我是未验证用户啊，麻烦帮忙解决下

  2. roughstick
    roughstick
    2008-10-12 at 08:40 | | Reply

    您好，我的珊瑚虫论坛帐号是先前注册的，你清理了一次 但是帐号还在 就是没有任何权限
    我的帐号是roughstick 请予以激活 谢谢

Leave a Reply


请输入验证码

:wink: :-| :-x :twisted: :) 8-O :( :roll: :-P :oops: :-o :mrgreen: :lol: :idea: :-D :evil: :cry: 8) :arrow: :-? :?: :!: