标题: [已结]用命令打开USB摄像头 [打印本页]

---

作者: jia332     时间: 2008-12-10 12:45    标题: [已结]用命令打开USB摄像头

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

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

---

作者: jia332     时间: 2008-12-10 13:13
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，还有什么好的方法吗
请高人指教
谢谢

---

作者: jia332     时间: 2008-12-10 13:28
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}"

---

作者: HAT     时间: 2008-12-10 14:24
禁用&启用USB设备原来如此简单(可按标准分类)
http://www.cn-dos.net/forum/viewthread.php?tid=37059