中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-03 11:58 |
共 48,038 主题排行 / 350,123 发帖 / 今日 0 篇 / 48,251 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » 用vbs搜索指定程序后，并自动打开，比如qq？ |
| 可打印版本 1,119 / 11 |
| 第1楼 anqing | 发表于 2007-02-21 23:48 |
| 高级用户 发帖 413 积分 859 | |
|
用vbs搜索指定程序后，并自动打开，比如qq？ 用vbs搜索指定程序后，并自动打开，比如qq？
qq：1234566 密码：123333 两小时后关闭qq，12分后，再自动打开qq？ 如何写这个vbs？ |
|
| 第2楼 anqing | 发表于 2007-02-22 04:41 |
| 高级用户 发帖 413 积分 859 | |
|
找到qq可以了，如何运行找到qq，并输入号和密码，自动完成登录
并指定的时间下线和上线？ |
|
| 第3楼 Kinglion | 发表于 2007-02-22 05:31 |
| 铂金会员 发帖 1,924 积分 5,798 来自 金獅電腦軟體工作室 | |
|
自动结束指定程序的脚本 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 |
|
| 第4楼 Kinglion | 发表于 2007-02-22 05:36 |
| 铂金会员 发帖 1,924 积分 5,798 来自 金獅電腦軟體工作室 | |
|
运行批处理不显示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密码的命令 |
|
| 第5楼 Kinglion | 发表于 2007-02-22 05:39 |
| 铂金会员 发帖 1,924 积分 5,798 来自 金獅電腦軟體工作室 | |
|
请将已实现VBS代码发布上传，让大家来共同完成 。
关于用命令行方式以指定QQ号和密码启动QQ的问题，具体需要 我整理一下详细说明再回复。 |
|
| 第6楼 anqing | 发表于 2007-02-22 06:30 |
| 高级用户 发帖 413 积分 859 | |
|
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 |
|
| 第7楼 anqing | 发表于 2007-02-22 06:33 |
| 高级用户 发帖 413 积分 859 | |
|
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "200001" WScript.Sleep 200 WshShell.SendKeys "{TAB}" WshShell.SendKeys "" WScript.Sleep 200 WshShell.SendKeys "{ENTER 上面是qq为200001。密码为passqq2的登录脚本 |
|
| 第8楼 Kinglion | 发表于 2007-02-22 06:41 |
| 铂金会员 发帖 1,924 积分 5,798 来自 金獅電腦軟體工作室 | |
|
登录QQ可不必这么麻烦。我在正月初七上传写好的脚本。
|
|
| 第9楼 anqing | 发表于 2007-02-22 06:44 |
| 高级用户 发帖 413 积分 859 | |
|
比如，在单位，qq的安装路径可能是被隐藏了，所以用它查找一下
主要是为了，学习vbs？ 此帖还没有解决呢？ |
|
| 第10楼 Kinglion | 发表于 2007-02-25 00:10 |
| 铂金会员 发帖 1,924 积分 5,798 来自 金獅電腦軟體工作室 | |
|
6楼的脚本存在一个值得注意的地方。如果机器中存在着多个QQ.EXE文件则都将被执行。
|
|
| 第11楼 slore | 发表于 2007-02-25 00:21 |
| 铂金会员 发帖 2,478 积分 5,212 | |
|
他是专门的，给他说可以用exit for
|
|
| 第12楼 zw4123 | 发表于 2007-02-25 05:15 |
| 初级用户 发帖 16 积分 34 | |
|
有没有vbs详细的教程啊~
|
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |