标题: 用vbs搜索指定程序后，并自动打开，比如qq？ [打印本页]

---

作者: anqing     时间: 2007-2-21 23:48    标题: 用vbs搜索指定程序后，并自动打开，比如qq？

用vbs搜索指定程序后，并自动打开，比如qq？
qq：1234566
密码：123333
两小时后关闭qq，12分后，再自动打开qq？
如何写这个vbs？

---

作者: anqing     时间: 2007-2-22 04:41
找到qq可以了，如何运行找到qq，并输入号和密码，自动完成登录
并指定的时间下线和上线？

---

作者: Kinglion     时间: 2007-2-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

---

作者: Kinglion     时间: 2007-2-22 05:36    标题: 运行批处理不显示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密码的命令

---

作者: Kinglion     时间: 2007-2-22 05:39
请将已实现VBS代码发布上传，让大家来共同完成 。

关于用命令行方式以指定QQ号和密码启动QQ的问题，具体需要 我整理一下详细说明再回复。

---

作者: anqing     时间: 2007-2-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

---

作者: anqing     时间: 2007-2-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的登录脚本

---

作者: Kinglion     时间: 2007-2-22 06:41
登录QQ可不必这么麻烦。我在正月初七上传写好的脚本。

---

作者: anqing     时间: 2007-2-22 06:44
比如，在单位，qq的安装路径可能是被隐藏了，所以用它查找一下
主要是为了，学习vbs？
此帖还没有解决呢？

---

作者: Kinglion     时间: 2007-2-25 00:10
6楼的脚本存在一个值得注意的地方。如果机器中存在着多个QQ.EXE文件则都将被执行。

---

作者: slore     时间: 2007-2-25 00:21
他是专门的，给他说可以用exit for

---

作者: zw4123     时间: 2007-2-25 05:15
有没有vbs详细的教程啊~