我不怕QQ多!多QQ启动脚本

原创 2005年05月25日 23:42:00

   Dim WshShell, QQPath, QQselect,askem,MyTime
    Set WshShell=WScript.CreateObject("WScript.Shell")

'------------------要修改的地方共4处,下面三行各有一处-------------------------
    Dim NumArray(4),PassArray(4) '括号内的数字比QQ个数少1
    QQPath="E:/XP/Tencent/QQ/QQ.exe" 'QQ安装目录
    MyTime = 14000  '关闭前一QQ的延时,如果QQ上线较慢,改大点
   
    NumArray(0)= "41729237"        '以下填上你QQ号和密码
    PassArray(0)= "88888"

    NumArray(1)= "164069728"
    PassArray(1)= "88888"

    NumArray(2)= "164069501"
    PassArray(2)= "88888"

    NumArray(3)= "396795254"
    PassArray(3)= "88888"

    NumArray(4)= "249883454"
    PassArray(4)= "88888"
    '还有QQ的话尽量加!
  
 

askem = msgbox ("在本程序运行完毕前,请勿进行其他操作" & vbnewline & vbnewline &  "作者:独生" _
& vbnewline & "http://hyycts.com/wltm/main.asp" & vbnewline & vbnewline & "确定运行请按是,反之否" , _
vbyesno + vbExclamation)

if askem = vbyes then
'------------------要修改的地方共4处,下面一行有一处-------------------------
    For i=0 to 4    'to 后跟的数字比QQ个数少1
    Logon
    Kill(MyTime)  
    Next
    WScript.Echo "全部QQ启动完毕,可以进行其他操作了"
else
wscript.quit
end if  
Set WshShell=Nothing
 
    Sub Logon()
    WScript.Sleep 500
    WshShell.Run QQPath
    WScript.Sleep 2000
    WshShell.AppActivate "Q登录"
    WshShell.SendKeys "+{TAB}"
    WshShell.SendKeys NumArray(i)
    WScript.Sleep 200
    WshShell.SendKeys "{TAB}"
    WshShell.SendKeys PassArray(i)
    WScript.Sleep 200
    WshShell.SendKeys "{ENTER}"
    WScript.Sleep 200
    WshShell.SendKeys "{ENTER}"
    End Sub

    Function Kill(Time)
    WScript.Sleep Time
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
    Set ProcessList = objWMIService.ExecQuery _
      ("Select * from Win32_Process Where Name = 'QQ.exe'")
    For Each objProcess in ProcessList
    objProcess.Terminate()
    Next

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
    Set ProcessList = objWMIService.ExecQuery _
      ("Select * from Win32_Process Where Name = 'TIMPlatform.exe'")
    For Each objProcess in ProcessList
    objProcess.Terminate()
    Next
    End Function

相关文章推荐

ubuntu下多终端同时启动脚本的写法

想写一个同时启动三个终端的脚本,因为每个终端都要持续运行,而且roslaunch出现了一些问题 首先说明一个坑,因为在TX1上没有安装什么太好的编写软件,所以我先在windows环境下,使用Notep...

linux 多jetty启动脚本

这个脚本是通过命令的方式来启动不同的jetty 假设这个文件名为jetty-root.sh 放在/home/chris 下 我们可以通过ln命令设置快捷方式jj ln -s /home/c...

MySQL启动脚本改装,支持多配置文件

相信很多童鞋都不止维护一个MySQL实例,MySQL自带的启动脚本不太好使,所以改装了一下,把指定的配置文件名传入即可 使用示例: ? Usage: mysq...

linux 脚本练习题 有需要更多或答案的或和我分享的可加我QQ290631320 答案123,

练习1:       1、添加5个用户,user1-5       2、每个用户的密码同用户名,而且,添加密码完成后不显示passwd命令执行结果的信息       3、每个用户完成后都要显示用户已经...

oracle启动脚本

  • 2017年11月07日 22:48
  • 774B
  • 下载

hadoop 高可用集群一键启动脚本

  • 2017年11月03日 13:46
  • 442B
  • 下载

linux添加开机自启动脚本示例详解

linux下(以RedHat为范本)添加开机自启动脚本有两种方法,先来简单的; 一、在/etc/rc.local中添加 如果不想将脚本粘来粘去,或创建链接什么的, 则: step1. 先修...

nginx服务启动脚本

  • 2016年05月18日 11:30
  • 2KB
  • 下载

HadoopHA高可用集群启动脚本

  • 2017年07月07日 15:38
  • 251B
  • 下载

Hadoop启动脚本全解析,不能再全了![bed]

在工作过程中,经常需要调整一些hadoop的参数配置,所以经常会遇到各种各样的问题。比如改了个配置怎么突然namenode起不来啦,加了个jar包怎么让hadoop的jvm加载啊,如何设定log目录啦...
  • MrTitan
  • MrTitan
  • 2013年06月17日 23:34
  • 10033
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:我不怕QQ多!多QQ启动脚本
举报原因:
原因补充:

(最多只允许输入30个字)