用vbs搜索指定程序后，并自动打开，比如qq？
qq：1234566
密码：123333
两小时后关闭qq，12分后，再自动打开qq？
如何写这个vbs？
qq：1234566
密码：123333
两小时后关闭qq，12分后，再自动打开qq？
如何写这个vbs？
中国DOS联盟
联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 用vbs搜索指定程序后，并自动打开，比如qq？
查看 1,118 回复 11
楼 主
用vbs搜索指定程序后，并自动打开，比如qq？
发表于 2007-02-21 23:48 · 中国 吉林 四平 联通
第 2 楼
发表于 2007-02-22 04:41 · 中国 吉林 四平 联通
找到qq可以了，如何运行找到qq，并输入号和密码，自动完成登录
并指定的时间下线和上线？
并指定的时间下线和上线？
第 3 楼
自动结束指定程序的脚本
发表于 2007-02-22 05:31 · 中国 辽宁 朝阳 联通
On Error Resume Next
do
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'qq.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
loop
do
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'qq.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
loop
熟能生巧，巧能生精，一艺不精，终生无成，精亦求精，始有所成，臻于完美，永无止境！
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
第 4 楼
运行批处理不显示DOS窗口的VBS
发表于 2007-02-22 05:36 · 中国 辽宁 朝阳 联通
DIM objShell
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C d:\1.bat", 0, TRUE)
1.BAT的内容可定义为按指定QQ号和QQ密码的命令
set objShell=wscript.createObject("wscript.shell")
iReturn=objShell.Run("cmd.exe /C d:\1.bat", 0, TRUE)
1.BAT的内容可定义为按指定QQ号和QQ密码的命令
熟能生巧，巧能生精，一艺不精，终生无成，精亦求精，始有所成，臻于完美，永无止境！
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
第 5 楼
发表于 2007-02-22 05:39 · 中国 辽宁 朝阳 联通
请将已实现VBS代码发布上传，让大家来共同完成 。
关于用命令行方式以指定QQ号和密码启动QQ的问题，具体需要 我整理一下详细说明再回复。
关于用命令行方式以指定QQ号和密码启动QQ的问题，具体需要 我整理一下详细说明再回复。
熟能生巧，巧能生精，一艺不精，终生无成，精亦求精，始有所成，臻于完美，永无止境！
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
第 6 楼
发表于 2007-02-22 06:30 · 中国 吉林 四平 联通
dim ws
Set ws=CreateObject("wscript.shell")
for each x in getobject("winmgmts:").execquery("select * from CIM_DataFile where FileName = 'qq' and Extension = 'exe'")
str = x.name
'ws.run """"& str & """"
ws.run chr(34) & str & chr(34)
next
WScript.Sleep 3000
Ws.SendKeys "123456"
Ws.SendKeys "{ENTER}"
找到qq并自动登录的vbs
Set ws=CreateObject("wscript.shell")
for each x in getobject("winmgmts:").execquery("select * from CIM_DataFile where FileName = 'qq' and Extension = 'exe'")
str = x.name
'ws.run """"& str & """"
ws.run chr(34) & str & chr(34)
next
WScript.Sleep 3000
Ws.SendKeys "123456"
Ws.SendKeys "{ENTER}"
找到qq并自动登录的vbs
第 7 楼
发表于 2007-02-22 06:33 · 中国 吉林 四平 联通
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "200001"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys ""
WScript.Sleep 200
WshShell.SendKeys "{ENTER
上面是qq为200001。密码为passqq2的登录脚本
WshShell.SendKeys "200001"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys ""
WScript.Sleep 200
WshShell.SendKeys "{ENTER
上面是qq为200001。密码为passqq2的登录脚本
第 8 楼
发表于 2007-02-22 06:41 · 中国 辽宁 朝阳 联通
登录QQ可不必这么麻烦。我在正月初七上传写好的脚本。
熟能生巧，巧能生精，一艺不精，终生无成，精亦求精，始有所成，臻于完美，永无止境！
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
第 9 楼
发表于 2007-02-22 06:44 · 中国 吉林 四平 联通
比如，在单位，qq的安装路径可能是被隐藏了，所以用它查找一下
主要是为了，学习vbs？
此帖还没有解决呢？
主要是为了，学习vbs？
此帖还没有解决呢？
第 10 楼
发表于 2007-02-25 00:10 · 中国 辽宁 朝阳 联通
6楼的脚本存在一个值得注意的地方。如果机器中存在着多个QQ.EXE文件则都将被执行。
熟能生巧，巧能生精，一艺不精，终生无成，精亦求精，始有所成，臻于完美，永无止境！
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
第 11 楼
发表于 2007-02-25 00:21 · 中国 陕西 西安 电信
他是专门的，给他说可以用exit for
第 12 楼
发表于 2007-02-25 05:15 · 中国 江西 南昌 电信
有没有vbs详细的教程啊~
论坛跳转: