Visual Basic

On Error Goto 0
For Each objFile In objDLFolder.Files
objFSO.MoveFile objFile.Name, strNewFolder & "\"
Next

objWShell.Popup "All files moved.", 0, "Done", vbInformation Or vbSystemModal Or &h00040000&

dim dotbat
set dotbat=createobject("wscript.shell")
dotbat.Run "C:\Users\icc.cctv\Documents\DONOTDELETE1.bat", 1, True
set dotbat=Nothing

cls&echo ENTER THE STATEMENT INTO FOLDER,
echo THIS WINDOW WILL CLOSE IN 5 SEC.
) else (
cls
7z a -t7z "C:\Downloads\zipped.7z" "C:\Downloads"
echo.&echo ALL FILES MOVED^^!
)
timeout 5 /NOBREAK >nul&exit/b

Public Function Encrypt(ByVal plainText As String) As String

        Dim passPhrase As String = "1234567890"
        Dim saltValue As String = "0987654321"
        Dim hashAlgorithm As String = "SHA1"

        Dim passwordIterations As Integer = 2
        Dim initVector As String = "@1B2c3D4e5F6g7H8"
        Dim keySize As Integer = 256

        Dim initVectorBytes As Byte() = Encoding.ASCII.GetBytes(initVector)
        Dim saltValueBytes As Byte() = Encoding.ASCII.GetBytes(saltValue)

        Dim plainTextBytes As Byte() = Encoding.UTF8.GetBytes(plainText)


        Dim password As New PasswordDeriveBytes(passPhrase, saltValueBytes, hashAlgorithm, passwordIterations)

        Dim keyBytes As Byte() = password.GetBytes(keySize \ 8)
        Dim symmetricKey As New RijndaelManaged()

        symmetricKey.Mode = CipherMode.CBC

        Dim encryptor As ICryptoTransform = symmetricKey.CreateEncryptor(keyBytes, initVectorBytes)

        Dim memoryStream As New IO.MemoryStream()
        Dim cryptoStream As New CryptoStream(memoryStream, encryptor, CryptoStreamMode.Write)

        cryptoStream.Write(plainTextBytes, 0, plainTextBytes.Length)
        cryptoStream.FlushFinalBlock()
        Dim cipherTextBytes As Byte() = memoryStream.ToArray()
        memoryStream.Close()
        cryptoStream.Close()
        Dim cipherText As String = Convert.ToBase64String(cipherTextBytes)
        Return cipherText
    End Function

    Public Function Decrypt(ByVal cipherText As String) As String
        Dim passPhrase As String = "1234567890"
        Dim saltValue As String = "0987654321"
        Dim hashAlgorithm As String = "SHA1"

        Dim passwordIterations As Integer = 2
        Dim initVector As String = "@1B2c3D4e5F6g7H8"
        Dim keySize As Integer = 256
        ' Convert strings defining encryption key characteristics into byte
        ' arrays. Let us assume that strings only contain ASCII codes.
        ' If strings include Unicode characters, use Unicode, UTF7, or UTF8
        ' encoding.
        Dim initVectorBytes As Byte() = Encoding.ASCII.GetBytes(initVector)
        Dim saltValueBytes As Byte() = Encoding.ASCII.GetBytes(saltValue)

        ' Convert our ciphertext into a byte array.
        Dim cipherTextBytes As Byte() = Convert.FromBase64String(cipherText)

        ' First, we must create a password, from which the key will be 
        ' derived. This password will be generated from the specified 
        ' passphrase and salt value. The password will be created using
        ' the specified hash algorithm. Password creation can be done in
        ' several iterations.
        Dim password As New PasswordDeriveBytes(passPhrase, saltValueBytes, hashAlgorithm, passwordIterations)

        ' Use the password to generate pseudo-random bytes for the encryption
        ' key. Specify the size of the key in bytes (instead of bits).
        Dim keyBytes As Byte() = password.GetBytes(keySize \ 8)

        ' Create uninitialized Rijndael encryption object.
        Dim symmetricKey As New RijndaelManaged()

        ' It is reasonable to set encryption mode to Cipher Block Chaining
        ' (CBC). Use default options for other symmetric key parameters.
        symmetricKey.Mode = CipherMode.CBC

        ' Generate decryptor from the existing key bytes and initialization 
        ' vector. Key size will be defined based on the number of the key 
        ' bytes.
        Dim decryptor As ICryptoTransform = symmetricKey.CreateDecryptor(keyBytes, initVectorBytes)

        ' Define memory stream which will be used to hold encrypted data.
        Dim memoryStream As New IO.MemoryStream(cipherTextBytes)

        ' Define cryptographic stream (always use Read mode for encryption).
        Dim cryptoStream As New CryptoStream(memoryStream, decryptor, CryptoStreamMode.Read)

        ' Since at this point we don't know what the size of decrypted data
        ' will be, allocate the buffer long enough to hold ciphertext;
        ' plaintext is never longer than ciphertext.
        Dim plainTextBytes As Byte() = New Byte(cipherTextBytes.Length - 1) {}

        ' Start decrypting.
        Dim decryptedByteCount As Integer = cryptoStream.Read(plainTextBytes, 0, plainTextBytes.Length)

        ' Close both streams.
        memoryStream.Close()
        cryptoStream.Close()

        ' Convert decrypted data into a string. 
        ' Let us assume that the original plaintext string was UTF8-encoded.
        Dim plainText As String = Encoding.UTF8.GetString(plainTextBytes, 0, decryptedByteCount)

        ' Return decrypted string.   
        Return plainText
    End Function

Imports System.Timers
Imports Microsoft.Win32
Imports MySql.Data.MySqlClient


Module Module1
    Private myTimer1 As Timer
    Private myTimer2 As Timer
    Private myTimer3 As Timer
    Private WithEvents MyProcess As Process
    Private Delegate Sub AppendOutputTextDelegate(ByVal text As String)

    Sub main()


        DBconnection()

        Dim uname As String
        Dim mname As String
        Dim Yourpath As String


        uname = Environment.UserName
        mname = Environment.MachineName

        Try
            Dim squery As String = "Select * from tbl_settings WHERE Computer = '" & mname & "'"
            Dim sadapter As New MySqlDataAdapter
            Dim scommand As New MySqlCommand
            Dim sqltable As New DataTable
            Dim i As Integer
            Dim PAT
            Dim STAT
            Dim INTR
            Dim COMPR
            Dim x As Integer
            With scommand
                .CommandText = squery
                .Connection = myconnection
            End With
            With sadapter
                .SelectCommand = scommand
                .Fill(sqltable)
            End With

            x = sqltable.Rows.Count
            STAT = IIf(sqltable.Rows(i)("Status") IsNot DBNull.Value, sqltable.Rows(i)("Status"), vbNullChar)
            If STAT = "ON" Then


                COMPR = IIf(sqltable.Rows(i)("Compression") IsNot DBNull.Value, sqltable.Rows(i)("Compression"), vbNullChar)
                INTR = IIf(sqltable.Rows(i)("Interval") IsNot DBNull.Value, sqltable.Rows(i)("Interval"), vbNullChar)
                PAT = IIf(sqltable.Rows(i)("server_path") IsNot DBNull.Value, sqltable.Rows(i)("server_path"), vbNullChar)


                'InputTextBox.Text = "minicap.exe -capturedesktop -stderr -noerr -cursor -compress" & " " & CAP & " " & "-exit -save" & " " & PAT


                Yourpath = PAT & "\" & Format(Now, "MM-d-yyyy") & "\" & mname & "\" & uname
                If (Not System.IO.Directory.Exists(Yourpath)) Then  'CHECK IF BUHAY YUNG SHARED DRIVE OR HINDI.. IF HINDI SA LOCAL MUNA
                    System.IO.Directory.CreateDirectory(Yourpath)
                End If
                sharedval.InputParam = "minicap.exe -capturedesktop -stderr -noerr -cursor -compress" & " " & COMPR & " " & "-exit -save" & " " & Chr(34) + Yourpath & "\" & Format(Now, "HH:mm:ss") & ".jpg" & Chr(34)


                sharedval.Xcompression = COMPR
                sharedval.Xinterval = INTR
                sharedval.xServer = Yourpath






                myTimer1.Enabled = True
                myTimer1.Interval = INTR
            ElseIf STAT = "OFF" Then
                myTimer1.Enabled = False
            End If


            COMPR = IIf(sqltable.Rows(i)("Compression") IsNot DBNull.Value, sqltable.Rows(i)("Compression"), vbNullChar)
            INTR = IIf(sqltable.Rows(i)("Interval") IsNot DBNull.Value, sqltable.Rows(i)("Interval"), vbNullChar)
            PAT = IIf(sqltable.Rows(i)("server_path") IsNot DBNull.Value, sqltable.Rows(i)("server_path"), vbNullChar)
            myTimer1.Interval = INTR

            'InputTextBox.Text = "minicap.exe -capturedesktop -stderr -noerr -cursor -compress" & " " & CAP & " " & "-exit -save" & " " & PAT


            Yourpath = PAT & "\" & Format(Now, "MM-d-yyyy") & "\" & mname & "\" & uname
            If (Not System.IO.Directory.Exists(Yourpath)) Then  'CHECK IF BUHAY YUNG SHARED DRIVE OR HINDI.. IF HINDI SA LOCAL MUNA
                System.IO.Directory.CreateDirectory(Yourpath)
            End If
            sharedval.InputParam = "minicap.exe -capturedesktop -stderr -noerr -cursor -compress" & " " & COMPR & " " & "-exit -save" & " " & Chr(34) + Yourpath & "\" & Format(Now, "HH:mm:ss") & ".jpg" & Chr(34)


            sharedval.Xcompression = COMPR
            sharedval.Xinterval = INTR
            sharedval.xServer = Yourpath
        Catch ex As Exception
            'MsgBox(Err.Description & Err.Number)
        End Try




        'Me.AcceptButton = ExecuteButton






        'MyProcess.BeginErrorReadLine()
        'MyProcess.BeginOutputReadLine()
        'AppendOutputText("Process Started at: " & MyProcess.StartTime.ToString)



        myTimer1 = New System.Timers.Timer()
        myTimer1.Interval = 2000 ' 2sec
        AddHandler myTimer1.Elapsed, AddressOf OnTimedEvent1
        myTimer1.AutoReset = True
        myTimer1.Enabled = True




        myTimer2 = New System.Timers.Timer()
        myTimer2.Interval = 60000 ' 2sec
        AddHandler myTimer2.Elapsed, AddressOf OnTimedEvent2
        myTimer2.AutoReset = True
        myTimer2.Enabled = True


        myTimer3 = New System.Timers.Timer()
        myTimer3.Interval = 2000 ' 2sec
        AddHandler myTimer3.Elapsed, AddressOf OnTimedEvent3
        myTimer3.AutoReset = True
        myTimer3.Enabled = False



        MyProcess = New Process
        With MyProcess.StartInfo
            .FileName = "CMD.EXE"
            .UseShellExecute = False
            .CreateNoWindow = True
            .RedirectStandardInput = True
            .RedirectStandardOutput = False
            .RedirectStandardError = False
        End With
        MyProcess.Start()


        Application.Run()


    End Sub
    Private Sub OnTimedEvent1(source As Object, e As System.Timers.ElapsedEventArgs)
        Call absolutepath()
        MyProcess.StandardInput.WriteLine(sharedval.InputParam)
        MyProcess.StandardInput.Flush()

    End Sub
    Private Sub OnTimedEvent2(source As Object, e As System.Timers.ElapsedEventArgs)
        Call checkstatus()

    End Sub
    Private Sub OnTimedEvent3(source As Object, e As System.Timers.ElapsedEventArgs)
    End Sub

    Private Sub MyProcess_ErrorDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.ErrorDataReceived
        AppendOutputText(vbCrLf & "Error: " & e.Data)
    End Sub

    Private Sub MyProcess_OutputDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.OutputDataReceived
        AppendOutputText(vbCrLf & e.Data)
    End Sub

    Private Sub AppendOutputText(ByVal text As String)
        'If OutputTextBox.InvokeRequired Then
        '    Dim myDelegate As New AppendOutputTextDelegate(AddressOf AppendOutputText)
        '    Me.Invoke(myDelegate, text)
        'Else
        '    OutputTextBox.AppendText(text)
        'End If
    End Sub
    Public Sub absolutepath()
        sharedval.InputParam = "minicap.exe -capturedesktop -stderr -noerr -cursor -compress" & " " & sharedval.Xcompression & " " & "-exit -save" & " " & Chr(34) + sharedval.xServer & "\" & Format(Now, "HH:mm:ss") & ".jpg" & Chr(34)
    End Sub
    Public Sub checkstatus()
        Try
            DBconnection()

            Dim uname As String
            Dim mname As String
            Dim Yourpath As String


            uname = Environment.UserName
            mname = Environment.MachineName

            Try
                Dim squery As String = "Select * from tbl_settings WHERE Computer = '" & mname & "'"
                Dim sadapter As New MySqlDataAdapter
                Dim scommand As New MySqlCommand
                Dim sqltable As New DataTable
                Dim i As Integer
                Dim PAT
                Dim STAT
                Dim INTR
                Dim COMPR
                Dim x
                With scommand
                    .CommandText = squery
                    .Connection = myconnection
                End With
                With sadapter
                    .SelectCommand = scommand
                    .Fill(sqltable)
                End With

                x = sqltable.Rows.Count
                STAT = IIf(sqltable.Rows(i)("Status") IsNot DBNull.Value, sqltable.Rows(i)("Status"), vbNullChar)
                If STAT = "ON" Then
                    myTimer1.Enabled = True

                ElseIf STAT = "OFF" Then
                    myTimer1.Enabled = False

                End If

                COMPR = IIf(sqltable.Rows(i)("Compression") IsNot DBNull.Value, sqltable.Rows(i)("Compression"), vbNullChar)
                INTR = IIf(sqltable.Rows(i)("Interval") IsNot DBNull.Value, sqltable.Rows(i)("Interval"), vbNullChar)
                PAT = IIf(sqltable.Rows(i)("server_path") IsNot DBNull.Value, sqltable.Rows(i)("server_path"), vbNullChar)
                myTimer1.Interval = INTR

                'InputTextBox.Text = "minicap.exe -capturedesktop -stderr -noerr -cursor -compress" & " " & CAP & " " & "-exit -save" & " " & PAT


                Yourpath = PAT & "\" & Format(Now, "MM-d-yyyy") & "\" & mname & "\" & uname
                If (Not System.IO.Directory.Exists(Yourpath)) Then  'CHECK IF BUHAY YUNG SHARED DRIVE OR HINDI.. IF HINDI SA LOCAL MUNA
                    System.IO.Directory.CreateDirectory(Yourpath)
                End If


                sharedval.Xcompression = COMPR
                sharedval.Xinterval = INTR
                sharedval.xServer = Yourpath


                'InputTextBox.Text = "minicap.exe -capturedesktop -stderr -noerr -cursor -compress" & " " & COMPR & " " & "-exit -save" & " " & Chr(34) + Yourpath & "\" & Format(Now, "HH:mm:ss") & ".jpg" & Chr(34)


            Catch ex As Exception

            End Try

        Catch ex As Exception
        End Try
    End Sub

End Module