我不怕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

仿微信和QQ多图合并框架实现

现在多数app里面加入聊天已经是一个非常普遍的现象了,而微信和qq则是通讯领域的鼻祖了。如果产品经理在考虑做聊天设计的时候,多数会参考。常常你会听到,你看微信和qq都是这么做的,你就这么来吧,虽然心理...
  • jyb_96
  • jyb_96
  • 2017年10月25日 11:28
  • 345

android 用sharepreferences实现仿QQ登录多账号的保存的效果

大家都知道可以用sharepreferences来存储登录的账号和密码,sharepreferences中是以(key,value)来进行存储,如果key值一样的话,保存的账号永远是最后一个登录的账号...
  • u013261651
  • u013261651
  • 2014年04月10日 09:36
  • 1694

高仿QQ讨论组头像拼图

讨论组如果没有头像,体验较差,我们会选择讨论组成员来拼成一个新图,最多五张。先贴上自定义View  CircularImageView核心代码:public class CircularImageVi...
  • dhl_1986
  • dhl_1986
  • 2016年03月28日 10:17
  • 1181

2015春季实习生招聘 多益网络科技有限公司笔试+面试 游戏开发工程师

多益网络游戏开发工程师 笔试题+面试内容呈现与分析
  • xiaoshuoladashou
  • xiaoshuoladashou
  • 2015年04月29日 17:27
  • 2443

使用RecyclerView打造QQ条目侧滑效果

说起这个功能,先吐槽一下,刚来不久的一个产品经理,自己虽然使用的是IOS手机,但也不能什么效果都是说人家IOS的效果交互设计的号,我们就按照它的效果做!IOS自带的这个破侧滑功能,看着丑的要死,干嘛非...
  • huangxiaoguo1
  • huangxiaoguo1
  • 2017年01月07日 18:44
  • 1210

QQ自动登陆脚本生成器 v1.0

@echo offtitle QQ自动登陆脚本生成器 v1.0echo.echo.echo                QQ自动登陆脚本生成器 v1.0echo                   ...
  • t0nsha
  • t0nsha
  • 2007年10月24日 17:58
  • 1512

高仿QQ下拉刷新之LoadView

开始之前,先把效果图贴上,一睹为快,相似度还是蛮高的,嘿嘿! 此加载状态提示,我分为了四个部分来写,分别是: (1)加载当中,LoadIngView (2)加载之前,即用户下拉的状态,LoadPr...
  • tabolt
  • tabolt
  • 2016年06月29日 17:24
  • 1892

C#中仿QQ截图

欢迎大家提出意见,一起讨论! 转载请标明是引用于 http://blog.csdn.net/chenyujing1234 代码(VS2008): http://www.rayfile.com/z...
  • chenyujing1234
  • chenyujing1234
  • 2012年05月06日 22:44
  • 2253

我是这样来做破解qq,做QQ外挂的 【二】

/* * v1.0 2005/09/11 04:34:21 * @author sunwangsunwangme@hotmail.com> * */怎么取到聊天对话框上的uin?CAllInOneDl...
  • sunwang123456
  • sunwang123456
  • 2005年10月18日 20:17
  • 6376

Android 多包名打包应用

Android 多包名打包应用简介: 公司的新需求:同一份代码打出另一个包名的apk,即包名不同、名称不同的两个apk。我经过多方渠道发现大致有一下三种方法: 通过ant打多包名应用 建立多个与“m...
  • qq_33673284
  • qq_33673284
  • 2016年10月20日 18:28
  • 1149
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:我不怕QQ多!多QQ启动脚本
举报原因:
原因补充:

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