Results 1 to 1 of 1
  1. #1
    Inactive FaroukSalhab is on a distinguished road FaroukSalhab's Avatar
    Join Date
    2012 Jan
    Thanked 0 Times in 0 Posts
    Rep Power

    Lightbulb How to Make a WebCam Picture Tool

    How to Make a WebCam Picture Tool.

    Public Class Form1
    Const WM_CAP As Short = &H400S
    Const WM_CAP_DRIVER_CONNECT As Integer = WM_CAP + 10
    Const WM_CAP_DRIVER_DISCONNECT As Integer = WM_CAP + 11
    Const WM_CAP_EDIT_COPY As Integer = WM_CAP + 30
    Const WM_CAP_SET_PREVIEW As Integer = WM_CAP + 50
    Const WM_CAP_SET_PREVIEWRATE As Integer = WM_CAP + 52
    Const WM_CAP_SET_SCALE As Integer = WM_CAP + 53
    Const WS_CHILD As Integer = &H40000000
    Const WS_VISIBLE As Integer = &H10000000
    Const SWP_NOMOVE As Short = &H2S
    Const SWP_NOSIZE As Short = 1
    Const SWP_NOZORDER As Short = &H4S
    Const HWND_BOTTOM As Short = 1
    Dim iDevice As Integer = 0
    Dim hHwnd As Integer
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Object) As Integer
    Declare Function SetWindowPos Lib "user32" Alias "SetWindowPos" (ByVal hwnd As Integer, ByVal hWndInsertAfter As Integer, ByVal x As Integer, ByVal y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
    Declare Function DestroyWindow Lib "user32" (ByVal hndw As Integer) As Boolean
    Declare Function capCreateCaptureWindowA Lib "avicap32.dll" (ByVal lpszWindowName As String, ByVal dwStyle As Integer, ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal nHeight As Short, ByVal hWndParent As Integer, ByVal nID As Integer) As Integer
    Declare Function capGetDriverDescriptionA Lib "avicap32.dll" (ByVal wDriver As Short, ByVal lpszName As String, ByVal cbName As Integer, ByVal lpszVer As String, ByVal cbVer As Integer) As Boolean

    Private Sub LoadDeviceList()
    Dim strName As String = Space(100)
    Dim strVer As String = Space(100)
    Dim bReturn As Boolean
    Dim x As Integer = 0
    bReturn = capGetDriverDescriptionA(x, strName, 100, strVer, 100)
    If bReturn Then lstDevices.Items.Add(strName.Trim)
    x += 1
    Loop Until bReturn = False
    End Sub

    Private Sub OpenPreviewWindow()
    Dim iHeight As Integer = picCapture.Height
    Dim iWidth As Integer = picCapture.Width
    hHwnd = capCreateCaptureWindowA(iDevice, WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, picCapture.Handle.ToInt32, 0)
    If SendMessage(hHwnd, WM_CAP_DRIVER_CONNECT, iDevice, 0) Then
    SendMessage(hHwnd, WM_CAP_SET_SCALE, True, 0)
    SendMessage(hHwnd, WM_CAP_SET_PREVIEWRATE, 66, 0)
    SendMessage(hHwnd, WM_CAP_SET_PREVIEW, True, 0)
    SetWindowPos(hHwnd, HWND_BOTTOM, 0, 0, picCapture.Width, picCapture.Height, SWP_NOMOVE Or SWP_NOZORDER)
    btnSave.Enabled = True
    btnStop.Enabled = True
    btnStart.Enabled = False
    btnSave.Enabled = False
    End If
    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
    Dim data As IDataObject
    Dim bmap As Image
    SendMessage(hHwnd, WM_CAP_EDIT_COPY, 0, 0)
    data = Clipboard.GetDataObject()
    If data.GetDataPresent(GetType(System.Drawing.Bitmap) ) Then
    bmap = CType(data.GetData(GetType(System.Drawing.Bitmap)) , Image)
    picCapture.Image = bmap
    btnSave.Enabled = False
    btnStop.Enabled = False
    btnStart.Enabled = True
    If sfdImage.ShowDialog = DialogResult.OK Then
    bmap.Save(sfdImage.FileName, Imaging.ImageFormat.Bmp)
    End If
    End If
    End Sub

    Private Sub ClosePreviewWindow()
    SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub

    Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
    btnStart.Enabled = False
    btnStop.Enabled = True
    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
    btnStart.Enabled = True
    btnStop.Enabled = False
    End Sub
    End Class

Similar Threads

  1. Replies: 66
    Last Post: 2013-10-03, 04:23 PM
  2. [Tool] RenameIt
    By MrSmith in forum Files & Tools
    Replies: 5
    Last Post: 2013-05-30, 07:40 PM
  3. [C++] How to make a simple bot
    By Dwar in forum Programming Tutorials
    Replies: 2
    Last Post: 2011-12-29, 05:02 AM
  4. Make a Bot for Knight Online
    By ferchoman in forum General Game Research
    Replies: 2
    Last Post: 2011-07-14, 03:17 AM
  5. [TOOL]WPE???
    By nakaigit in forum Aika Online
    Replies: 2
    Last Post: 2010-10-19, 12:33 PM
Visitors found this page by searching for:

how to make a webcam picture tool in visual basic

wm_cap compressions

Const CAP As Short = &H400S

vb sfdimage

make webcam tools in


Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts