Mensajes

Ya conseguí hacer lo que quería pero ahora no se como puedo hacer para saber si existe una cámara instalada y utilizable ¿?.


Gracias a todos.

Muchas gracias ya tengo sulucionado el tema .

Salu2, WarGhost

no no ese código no es mio solo e modificado unas cosas ,pero quiero saber si hay alguna forma de simplemente capturar una imagen de la cam.

Código [Seleccionar] Expandir

Public Declare Function SendMessage Lib "USER32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function capCreateCaptureWindow Lib "avicap32.dll" Alias "capCreateCaptureWindowA" (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long

Public mCapHwnd As Long

Public Const CONNECT As Long = 1034
Public Const DISCONNECT As Long = 1035
Public Const GET_FRAME As Long = 1084
Public Const COPY As Long = 1054

Código [Seleccionar] Expandir

Private Sub Form_Load()
On Error Resume Next
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0)
DoEvents: SendMessage mCapHwnd, CONNECT, 0, 0

End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
Picture1.Picture = Clipboard.GetData
End Sub

Este Codigo es el que tengo pero ami me gustaria saber si hay laguna otra forma de capturar la webCam pero esa no me gusta. hay alguna forma de por ejemplo solo capturar una imagen de la cam.

Salu2, WarGhost

Estoy haciendo un proyecto no se si se puede hacer inyeccion de procesos en vb6 solo me gustaria saber si es posible.

Salu2, WarGhost

hotmail utiliza un flitro anti spam lo mas seguro a esque no llegen por eso lo mejor es crearse un propio servidor smtp.

como puedo conseguir la altura que mide la barra de incio.

Salu2, WarGhost

Muchas gracias Lympex era justo lo que necesitaba.

Código [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Form_Load()
Call ShowWindow(FindWindow(vbNullString, "Ventana"), 0&)
End Sub

Salu2, WarGhost

y alguien no save como hacer invisible una ventana ya abierta¿?

ai tambien me a llegado