劳动成果 »

MSN Messenger 爬楼代码

2006-04-17 23:11 | 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>
17fav 收藏本文
标签：,

相关日志 随机文章

Permalink | Trackback | Comments RSS | Print This Page |

Comments

Leave a Reply




请输入验证码

Use "<coolcode></coolcode>" to publish your code.

Line breaks and paragraphs are automatically converted.

Please keep comments relevant. Off-topic, offensive or inappropriate comments may be edited or removed.

京ICP备05059555号

收藏 & 分享

Powered by 17fav.com