Board logo

标题: [贴士] wsh自动登陆QQ [打印本页]

作者: SzAngel    时间: 2007-8-30 18:05     标题: wsh自动登陆QQ

在从零开始学起时,在我硬盘上一些曾经帮助我很多的小纸条!--Sz

目前QQ加了键盘控件不能使用了,但是,,可以使用到别的地方--Sz

    '创建对象
    set wshshell = CreateObject("WScript.Shell")
    '启动miniQQ,根据miniQQ的路径改写引号内的内容
    wshshell.Run "qq.exe"

   '休眠1秒钟,等待启动
   WScript.Sleep 1000

   '输入QQ号码
   wshshell.SendKeys "你的QQ号"
   wshshell.SendKeys "{tab}"
   '输入密码
   wshshell.SendKeys "密码"
   wshshell.SendKeys "{ENTER}"




欢迎光临 紫菀论坛 (http://bbs.szyin.com/) Powered by Discuz! 7.1