Open WebCam

Download with exe and VB6 Source Code.

lol your code does the same thing as mine but mine is alot cleaner you have too much none needed code you have decarles in the public and private you have stuff like get text send text and other none needed stuff people cant learn from code that has blah in it its gotta be clean to learn. I Call this PostMessage window, WM_COMMAND, 32905, 0 part in it “32905” the handle that your calling to open of close others will disagree i understand take in mind this is what i label it if its wrong its wrong i call it a handle. so tuff all you need for a Module is this.

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_KEYDOWN = &H100

Public Const WM_KEYUP = &H101

Public Const WM_COMMAND = &H111

Public Const WM_CLOSE = &H10

if you dont understand im sorry i was in a hurry to get to sleep and theres more topics to worry about maybe when i get sometime i’ll fix Admins code up and show you. by the way someone paltalk seen i was back and deleted my nick lol…

Many thanks for sharing this cool program. Dim ZaraByte As String could u add a feture to this that it opens all web cams and play them in a room instead of just opening only one window ?That feture will be very nice one.Thanks