中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » [已结]用命令打开USB摄像头

jia332
初级用户

积分 160
发帖 81
注册 2006-7-27
状态离线

『楼主』: [已结]用命令打开USB摄像头

打开我的电脑有一个摄像头设备，我想用批处理实现打开，请各位老大帮忙

[ Last edited by HAT on 2008-12-10 at 14:22 ]

2008-12-10 12:45

jia332
初级用户

积分 160
发帖 81
注册 2006-7-27
状态离线

『第 2 楼』:

Set myc=WScript.CreateObject("WScript.shell")
myc.Run ("EXPLORER.EXE ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
alp =myc.AppActivate("My Computer")
myc.SendKeys "{Tab 6}"
WScript.Sleep 1000
myc.SendKeys "{down 3}"
myc.SendKeys "{enter}"

已经OK，还有什么好的方法吗
请高人指教
谢谢

2008-12-10 13:13

jia332
初级用户

积分 160
发帖 81
注册 2006-7-27
状态离线

『第 3 楼』:

Set myc=WScript.CreateObject("WScript.shell")
myc.Run ("EXPLORER.EXE ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")
alp =myc.AppActivate("My Computer")
While alp <> ture
WScript.Sleep 500
Wend
If alp <> ture Then
myc.SendKeys ("{ESC}")
WScript.Sleep 2000
myc.Run("usbcam.vbs")
WScript.Quit
End If
myc.SendKeys "{Tab 6}"
WScript.Sleep 1000
myc.SendKeys "{down 3}"
WScript.Sleep 500
myc.SendKeys "{enter}"

2008-12-10 13:28

HAT
版主

积分 9023
发帖 5017
注册 2007-5-31
状态离线

『第 4 楼』:

禁用&启用USB设备原来如此简单(可按标准分类)
http://www.cn-dos.net/forum/viewthread.php?tid=37059

2008-12-10 14:24

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: