[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
不会是要恶意注册吧,呵呵~

  1. set ws=createobject("wscript.shell")
  2. ws.run "www.xxxxx.com"  
  3. Set WshShell=createobject("wscript.shell")
  4. wscript.sleep 1000
  5. WshShell.SendKeys"{tab}{tab}{tab}{tab}{tab}{tab}{tab}{tab}"
  6. WshShell.SendKeys GetRandomStr()
  7. WshShell.SendKeys"{TAB}"
  8. WshShell.sendkeys "12345678"
  9. Function GetRandomStr()
  10.         Dim sList, iHigh, i, sResult
  11.         sList = "0123456789abcdefghijklmnopqrstuvwxyz"
  12.         Randomize
  13.         iHigh = 10
  14.         For i = 1 To iHigh
  15.                 sResult = sResult & Mid(sList, Int(36 * Rnd() + 1) , 1)
  16.         Next
  17.         GetRandomStr = sResult
  18. End Function
复制代码

[ 本帖最后由 rat 于 2008-10-20 16:46 编辑 ]

TOP

返回列表