Option Explicit
 
Dim Video_Handle As Long
 
Private Sub Form_Unload(Cancel As Integer)
    Disconnect Video_Handle
End Sub
 
Private Sub Form_Load()
    Picture1.Visible = False
    Video_Handle = CreateCaptureWindow(Me.hwnd)
 
    'Abhör-Vorgang starten
    Winsock1.Listen
 
    'Port xxxxx soll abgehört werden
    'Winsock1.LocalPort = xxxxx
 
End Sub
 
    'Das Bild wird eingefangen und in Picture1 angezeigt
    'Speichert das Bild in "Z:\"
Private Sub Save_Click()
    CapturePicture Video_Handle, Picture1
    lblTmp.Caption = cap.Value
    SavePicture Picture1.Picture, "Z:\Praktikanten\Phasue\Webcam_Bilder\Test" + _
      lblTmp.Caption + ".bmp"
    cap.Value = cap.Value + 1
End Sub
 
Private Sub Beenden_Click()
    Unload Me
End Sub
 
Private Sub Timer1_Timer()
    'Label1 gibt den Status wieder
    Label1.Caption = Winsock1.State
  End Sub
 
    'Wenn ein Computer versucht eine Verbindung mit dem
    'Server aufzubauen
Private Sub Winsock1_ConnectionRequest( _
  ByVal requestID As Long)
 
    'Die Verbindung wird akzeptiert
    Winsock1.Accept requestID
 
    'Das Abhören wird beendet
    Winsock1.Close
 
End Sub
 
    'Wenn Daten ankommen
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim sData As String
 
    'Die ankommenden Daten werden in einer Variable
    '(strDaten) gespeichert
    Winsock1.GetData sData
 
 
 
End Sub

    'Wenn Daten ankommen
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim sData As String
 
    'Die ankommenden Daten werden in einer Variable
    '(strDaten) gespeichert
    Winsock1.GetData sData
 
 
 
End Sub