@ECHO OFF
start /wait taskkill>nul /IM explorer.exe /F
start /wait taskkill>nul /IM Teamviewer.exe /F
start /wait taskkill>nul /IM Teamviewer_Service.exe /F
start /wait taskkill>nul /IM tv_w32.exe /F
msg * Por favor espere un momento, Estamos tratando de conectarlo al servidor (esto puede tardar HASTA 2 minutos)
msg * Y no se preocupe ,el contador del ciber empieza luego de la comprobacion
Set verify=0
:verify
timeout>nul 3
set /a verify=%verify% + 1
IF %verify%==50 goto :verify65
IF EXIST "\\SERVERG4\Documentos c\Comprobador\Verificador.txt" goto :INICIO
IF NOT EXIST "\\SERVERG4\Documentos c\Comprobador\Verificador.txt" goto :verify
:VERIFY65
shutdown -r -f -t 4 -c "Disculpe, durante 2 minutos no se ha podido conectar con el servidor, Esta pc se reiniciará, si esto pasa mas de 2 veces, hable con el cajero de turno"
:INICIO
xcopy "\\SERVERG4\Documentos c\Comprobador de red\UPDATER.bat" C:\Windows\System32 /y
cls
START /W UPDATER.bat
START 3.vbs
exit

@ECHO OFF
 
:: Set Apps
Set "Applications=Explorer.exe;Teamviewer.exe;Teamviewer_Service.exe;tv_w32.exe"
 
:: Close Apps
For %%# in (%Applications%) Do (start /w taskkill /IM "%%#" /F >nul)
 
:: Show Info
msg * Por favor espere un momento, Estamos tratando de conectarlo al servidor (esto puede tardar HASTA 2 minutos).
msg * Y no se preocupe, el contador del ciber empieza luego de la comprobacion.
 
:: Verify connectivity
For /L %%# in (1,1,50) Do (
	Timeout 3 >nul
	IF EXIST "\\SERVERG4\Documentos c\Comprobador\Verificador.txt" (Goto :INICIO)
)
Shutdown -r -f -t 4 -c "Disculpe, durante 2 minutos no se ha podido conectar con el servidor, Esta pc se reiniciará, si esto pasa mas de 2 veces, hable con el cajero de turno."
Exit
 
:INICIO
xcopy "\\SERVERG4\Documentos c\Comprobador de red\UPDATER.bat" "%WINDIR%\System32\" /y
cls
START /W "" "UPDATER.bat"
START /B "" "3.vbs"
Exit

    #Region " Get Enum Values "
 
       ' [ Get Enum Values Function ]
       '
       ' // By Elektro H@cker
       '
       ' Examples :
       ' For Each value In Get_Enum_Values(Of KnownColor)() : MsgBox(value) : Next
 
    Private Function Get_Enum_Values(Of T)() As List(Of String)
        Dim ValueList As New List(Of String)
        For Each value In System.[Enum].GetValues(GetType(T)) : ValueList.Add(value.ToString) : Next
        Return ValueList
    End Function
 
    #End Region

        For Each col In System.[Enum].GetValues(GetType(KnownColor))
            Dim mycolor As Color = Color.FromKnownColor(col)
            MsgBox(mycolor.ToString)
            MsgBox(mycolor.R)
            MsgBox(mycolor.G)
            MsgBox(mycolor.B)
        Next

   Private Function Image_Has_Color(ByVal image As Image, ByVal color As Color) As Boolean
 
        Using Bitmap_Image = New Bitmap(image.Width, image.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
 
            Graphics.FromImage(Bitmap_Image).DrawImage(image, 0, 0)
 
            Dim Bitmap_Data = Bitmap_Image.LockBits(New Rectangle(0, 0, Bitmap_Image.Width, Bitmap_Image.Height), System.Drawing.Imaging.ImageLockMode.[ReadOnly], Bitmap_Image.PixelFormat)
            Dim Bitmap_Pointer As IntPtr = Bitmap_Data.Scan0
 
            Dim Pixel_Color As Int32
            Dim Result As Boolean = False
 
            For i = 0 To Bitmap_Data.Height * Bitmap_Data.Width - 1
 
                Pixel_Color = System.Runtime.InteropServices.Marshal.ReadInt32(Bitmap_Pointer, i * 4)
 
                If (Pixel_Color And &HFF000000) <> 0 AndAlso (Pixel_Color And &HFFFFFF) = (color.ToArgb() And &HFFFFFF) Then
                    Result = True
                    Exit For
                End If
 
            Next
 
            Bitmap_Image.UnlockBits(Bitmap_Data)
            Return Result
 
        End Using
 
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MsgBox(Image_Has_Color(System.Drawing.Image.FromFile("C:\imagen.jpg"), Color.FromArgb(240, 240, 240)))
    End Sub

• Syntax:

    Splat.exe [IMAGEFILE] [SWITCHES]

• Switches:

    /Duration   | The Splash duration.    (Default: 5000)
    /FXDuration | The effects duration.   (Default: 1500)
    /FadeIN     | Enables FadeIN Effect.
    /FadeOUT    | Enables FadeOUT Effect.
    /Resize     | Resizes the image.
    /Location   | Relocates the image.
    /Clickable  | Enables click on image to close.
    /OnTop      | Set the image on top of other windows.
    /?          | Shows this help.

• Switches values Syntax:

    /Duration   (ms)
    /FXDuration (ms)
    /Resize     (WidthXHeight)
    /Location   (X,Y)

• Examples:

    Splat.exe "C:\Image.png"
    (Shows a image at the center of the screen for 3000 ms.)

    Splat.exe "C:\Image.png" /Resize 400x400 /Location 100,300
    (Shows a resized image to 200x400 px at 100,300 coordenates for 3000 ms.)

    Splat.exe "C:\Image.png" /Duration 6000 /FadeIN /FadeOUT /FXDuration 2000
    (Shows a image at the center of the screen with fade effects for 6000 ms.
    , plus 2000 ms for each effect then is a total of 10.000 ms.)

start /W splat xmen.jpg