中国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-10 21:59 |
共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » [已结]用命令打开USB摄像头 |
| 可打印版本 1,282 / 3 |
| 第1楼 jia332 | 发表于 2008-12-10 12:45 |
| 初级用户 发帖 81 积分 160 | |
|
[已结]用命令打开USB摄像头 打开我的电脑有一个摄像头设备，我想用批处理实现打开，请各位老大帮忙
[ Last edited by HAT on 2008-12-10 at 14:22 ] |
|
| 第2楼 jia332 | 发表于 2008-12-10 13:13 |
| 初级用户 发帖 81 积分 160 | |
|
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，还有什么好的方法吗 请高人指教 谢谢 |
|
| 第3楼 jia332 | 发表于 2008-12-10 13:28 |
| 初级用户 发帖 81 积分 160 | |
|
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}" |
|
| 第4楼 HAT | 发表于 2008-12-10 14:24 |
| 版主 发帖 5,017 积分 9,023 | |
|
禁用&启用USB设备原来如此简单(可按标准分类)
http://www.cn-dos.net/forum/viewthread.php?tid=37059 |
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |