Hallo,
Ich präsentiere mein ersten Skriptrelease: WebcamSnapshotter.
Mit WebcamSnapshotter lassen sich im Handumdrehen Webcam-Schnappschüsse erstellen, ohne
großen Aufwand.
WebcamSnapshotter listet alle Webcams in einer ComboBox auf, der Benutzer kann die gewünschte
Webcam selektieren, und ein Schnappschuss wird erstellt.
Hierbei wird auf eine C-Dll verwendet (http://sol.gfxile.net/escapi/index.html).
Es werden Directshow APIs verwendet, um professionell mit der Webcam kommunizieren zu können.
Der Schnappschuss wird in dem Verzeichnis gespeichert, in dem WebcamSnapshotter gestartet wurde.
Ein Dankeschön an trancexx von autoitscript.com für die Subrogation.au3.
Features:
- Schnelle Webcamschnappschüsse erstellen
- Professionelle Webcamverwendung durch DirectShow API's
- Keine Zusatzdateien notwending, Dll's werden im Speicher verwendet und nicht extrahiert --> Standalone executable
- Einfache Auswahl der Webcam per ComboBox
- Schnappschüsse werden im .jpg Format gespeichert --> Geringe Dateigröße im vgl zu .png Bildern.
- Keine Probleme mit Video-Source-Popups!
[Blockierte Grafik: http://s7.directupload.net/images/140102/83mycfpz.gif]
Version: 1.0
Author: Madara (aka Madara-Uchiha)
Credits: trancexx
Bitte gebt Credits falls ihr mein Programm verwendet.
Konstruktive Kritik ist erwünscht
An alle die eine kleine DeviceList wollen
[autoit]#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
$KnownCams = GUICreate("Webcam Device List", 363, 281, 110, 124)
$ListView1 = GUICtrlCreateListView("Webcam Device Name|Light|Popup", 8, 8, 346, 238)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 202)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 70)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 70)
$ListView1_0 = GUICtrlCreateListViewItem("1.3M WebCam|No|No", $ListView1)
$ListView1_1 = GUICtrlCreateListViewItem("1.3M HD WebCam|Yes|No", $ListView1)
$ListView1_2 = GUICtrlCreateListViewItem("Namuga 1.3M Webcam|No|No", $ListView1)
$ListView1_3 = GUICtrlCreateListViewItem("Rocketfish HD Webcam Lite|Yes|No", $ListView1)
$ListView1_4 = GUICtrlCreateListViewItem("USB 2.0 Camera|No|Yes", $ListView1)
$ListView1_5 = GUICtrlCreateListViewItem("USB 2.0 UVC HD Webcam|No|No", $ListView1)
$ListView1_6 = GUICtrlCreateListViewItem("USB-Videodevice|Unknown|No", $ListView1)
$ListView1_7 = GUICtrlCreateListViewItem("WebCam SC-0311139N|No|No", $ListView1)
$ListView1_10 = GUICtrlCreateListViewItem("WebCam SCB-1900N|No|No", $ListView1)
$ListView1_11 = GUICtrlCreateListViewItem("1.3M Integrated Webcam|Yes|Yes", $ListView1)
$ListView1_12 = GUICtrlCreateListViewItem("A4 TECH USB2.0 PC Camera|Yes|No", $ListView1)
$ListView1_13 = GUICtrlCreateListViewItem("Asus built-in Webcams|Yes|No", $ListView1)
$ListView1_14 = GUICtrlCreateListViewItem("BisonCam, NB Pro|Yes|No", $ListView1)
$ListView1_15 = GUICtrlCreateListViewItem("Chicony USB 2.0 Camera|Yes|No", $ListView1)
$ListView1_16 = GUICtrlCreateListViewItem("Compaq Presario CQ60|Yes|No", $ListView1)
$ListView1_17 = GUICtrlCreateListViewItem("HD WebCam|Yes|No", $ListView1)
$ListView1_18 = GUICtrlCreateListViewItem("HP Pavilion Webcam|Yes|No", $ListView1)
$ListView1_19 = GUICtrlCreateListViewItem("Lenovo EasyCamera|Yes|No", $ListView1)
$ListView1_20 = GUICtrlCreateListViewItem("Logitech C270 HD|Yes|No", $ListView1)
$ListView1_21 = GUICtrlCreateListViewItem("Logitech C310|Yes|No", $ListView1)
$ListView1_22 = GUICtrlCreateListViewItem("Logitech C910 HD|Yes|No", $ListView1)
$ListView1_23 = GUICtrlCreateListViewItem("Logitech c920 HD|Yes|No", $ListView1)
$ListView1_24 = GUICtrlCreateListViewItem("Logitech QuickCam|Yes|No", $ListView1)
$ListView1_25 = GUICtrlCreateListViewItem("Microsoft Lifecam|Yes|No", $ListView1)
$ListView1_26 = GUICtrlCreateListViewItem("Microsoft Lifecam VX-3000|Yes|No", $ListView1)
$ListView1_27 = GUICtrlCreateListViewItem("PS3 Eye Camera|Yes|No", $ListView1)
$ListView1_28 = GUICtrlCreateListViewItem("Sony Webcams|Yes|Yes", $ListView1)
$ListView1_29 = GUICtrlCreateListViewItem("Toshiba Web Camera|Yes|No", $ListView1)
$ListView1_30 = GUICtrlCreateListViewItem("TrueVision HD|Yes|No", $ListView1)
$ListView1_31 = GUICtrlCreateListViewItem("USB2.0 UVC 2M|Yes|No", $ListView1)
$ListView1_32 = GUICtrlCreateListViewItem("CyberLink YouCam|Yes|Yes", $ListView1)
$ListView1_33 = GUICtrlCreateListViewItem("WC060 Series SWEEX HD|Yes|No", $ListView1)
$ListView1_34 = GUICtrlCreateListViewItem("Webcam SC-13HDL11939N|Yes|No", $ListView1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd