zoukankan      html  css  js  c++  java
  • QQ申请器, vbs的

    Dim nickname,password,year,month,day
    nickname="badapple" '昵称'
    password="your password here" '密码'
    year=1992
    month=1
    day=1
    'Dim a,toyear
    toyear=2011
    Set a=WScript.CreateObject("WScript.shell")
    a.run ("http://cht.reg.qq.com") '打开qq号码申请页面'
    WScript.Sleep 5000 '延时5秒,等待页面载入,若5秒后页面仍未出现,可设置更长时间'
    a.SendKeys nickname
    a.SendKeys "{TAB}"
    WScript.Sleep 200
    Do While year <= toyear '今年'
    a.SendKeys "{DOWN}"
    year=year+1
    Loop
    a.SendKeys "{TAB}"
    WScript.Sleep 200
    Do While month > 0
    a.SendKeys "{DOWN}"
    month=month-1
    Loop
    a.SendKeys "{TAB}"
    WScript.Sleep 200
    Do while day > 0
    a.SendKeys "{DOWN}"
    day=day-1
    Loop
    WScript.Sleep 200
    a.SendKeys "{TAB}"
    WScript.Sleep 200
    a.SendKeys "{TAB}"
    WScript.Sleep 200
    a.SendKeys password
    a.SendKeys "{TAB}"
    WScript.Sleep 200
    a.SendKeys password
    WScript.Sleep 200
    a.SendKeys "{TAB}"
    WScript.Sleep 200
    a.SendKeys "{TAB}"
    WScript.Sleep 200
    a.SendKeys "{TAB}"
    WScript.Sleep 200
    a.SendKeys "{TAB}"
    
  • 相关阅读:
    Halcon 笔记3 形态学
    Halcon 笔记2 Blob分析
    Halcon 笔记1
    线程
    Fn+F1-F12,避免使用FN+
    改变与接受
    PictureBox使用异常
    (一)Knockout
    (二)HTML5
    (一)chrome扩展
  • 原文地址:https://www.cnblogs.com/zhanhb/p/2057215.html
Copyright © 2011-2022 走看看