|
anqing
高级用户
积分 859
发帖 413
注册 2006-8-14
状态 离线
|
『楼 主』:
用vbs搜索指定程序后，并自动打开，比如qq？
用vbs搜索指定程序后，并自动打开，比如qq？
qq：1234566
密码：123333
两小时后关闭qq，12分后，再自动打开qq？
如何写这个vbs？
|
|
 2007-2-21 23:48 |
|
|
anqing
高级用户
积分 859
发帖 413
注册 2006-8-14
状态 离线
|
『第
2 楼』:
找到qq可以了，如何运行找到qq，并输入号和密码，自动完成登录
并指定的时间下线和上线？
|
|
|
2007-2-22 04:41 |
|
|
Kinglion
铂金会员
痴迷ＤＯＳ者
积分 5792
发帖 1921
注册 2003-6-20
来自 金獅電腦軟體工作室
状态 离线
|
『第
3 楼』:
自动结束指定程序的脚本
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
|
熟能生巧，巧能生精，一艺不精，终生无成，精亦求精，始有所成，臻于完美，永无止境！
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
|
|
|
2007-2-22 05:31 |
|
|
Kinglion
铂金会员
痴迷ＤＯＳ者
积分 5792
发帖 1921
注册 2003-6-20
来自 金獅電腦軟體工作室
状态 离线
|
『第
4 楼』:
运行批处理不显示DOS窗口的VBS
DIM objShell
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
|
|
|
2007-2-22 05:36 |
|
|
Kinglion
铂金会员
痴迷ＤＯＳ者
积分 5792
发帖 1921
注册 2003-6-20
来自 金獅電腦軟體工作室
状态 离线
|
『第
5 楼』:
请将已实现VBS代码发布上传，让大家来共同完成 。
关于用命令行方式以指定QQ号和密码启动QQ的问题，具体需要 我整理一下详细说明再回复。
|
熟能生巧，巧能生精，一艺不精，终生无成，精亦求精，始有所成，臻于完美，永无止境！
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
|
|
|
2007-2-22 05:39 |
|
|
anqing
高级用户
积分 859
发帖 413
注册 2006-8-14
状态 离线
|
『第
6 楼』:
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
|
|
|
2007-2-22 06:30 |
|
|
anqing
高级用户
积分 859
发帖 413
注册 2006-8-14
状态 离线
|
『第
7 楼』:
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "200001"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys ""
WScript.Sleep 200
WshShell.SendKeys "{ENTER
上面是qq为200001。密码为passqq2的登录脚本
|
|
|
2007-2-22 06:33 |
|
|
Kinglion
铂金会员
痴迷ＤＯＳ者
积分 5792
发帖 1921
注册 2003-6-20
来自 金獅電腦軟體工作室
状态 离线
|
『第
8 楼』:
登录QQ可不必这么麻烦。我在正月初七上传写好的脚本。
|
熟能生巧，巧能生精，一艺不精，终生无成，精亦求精，始有所成，臻于完美，永无止境！
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
|
|
|
2007-2-22 06:41 |
|
|
anqing
高级用户
积分 859
发帖 413
注册 2006-8-14
状态 离线
|
『第
9 楼』:
比如，在单位，qq的安装路径可能是被隐藏了，所以用它查找一下
主要是为了，学习vbs？
此帖还没有解决呢？
|
|
|
2007-2-22 06:44 |
|
|
Kinglion
铂金会员
痴迷ＤＯＳ者
积分 5792
发帖 1921
注册 2003-6-20
来自 金獅電腦軟體工作室
状态 离线
|
『第
10 楼』:
6楼的脚本存在一个值得注意的地方。如果机器中存在着多个QQ.EXE文件则都将被执行。
|
熟能生巧，巧能生精，一艺不精，终生无成，精亦求精，始有所成，臻于完美，永无止境！
金狮電腦軟體工作室愿竭诚为您服务！
ＱＱ群：８３９３１７０(定期清理不发言者)
个人网站：http://www.520269.cn
电子邮件：doujiehui@vip.qq.com
微信公众号： doujiehui
|
|
|
2007-2-25 00:10 |
|
|
slore
铂金会员
积分 5212
发帖 2478
注册 2007-2-8
状态 离线
|
『第
11 楼』:
他是专门的，给他说可以用exit for
|
|
|
2007-2-25 00:21 |
|
|
zw4123
初级用户
积分 34
发帖 16
注册 2006-10-14
状态 离线
|
|
|
2007-2-25 05:15 |
|
