我不怕QQ多!多QQ启动脚本
2005-05-25 23:42
393 查看
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
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
相关文章推荐
- 使用monkeyrunner脚本启动并登录QQ
- 启动和停止storm和zookeeper集群的shell脚本
- nginx启动脚本和配置文件
- Ubuntu9.04下Oracle手动启动与自启动脚本
- Shell 脚本启动java程序
- tomcat 启动脚本分析
- 为 Android 8.0 添加开机启动脚本
- lua学习笔记 1 android 调用Lua, Lua脚本中启动Intent
- Ubuntu下添加开机启动脚本(转载)
- docker:mysql启动时自动执行初始建表脚本
- glassfish4系统启动脚本
- linux---Shell-4----bash启动脚本
- logstash服务启动脚本
- VMware Workstation8 自动启动服务、网卡和启动程序批处理脚本
- 验证linux shell在启动时会自动执行用户主目录下的.bashrc脚本
- 防止同一个Java应用重复启动的shell脚本
- dubbo服务启动脚本
- 添加开机启动脚本
- 不错的linux下通用的java程序启动脚本(转载)
- MySQL启动脚本 mysql.server 详解