:home
echo VINE POR ACA PARA DECIRTE QUE SON LAS 12 DE LA NOCHE.
echo+
echo [1] Programar un temporizador de auto-apagado.
echo [2] No hacer nada y seguir en marcha.
echo [6] Cancelar un temporizador de auto-apagado activo. | MORE
 
Choice /C 126 /M "elige una opcion: "
If %Errorlevel% EQU 1 (Goto :apagar)
If %Errorlevel% EQU 2 (Goto :salir)
If %Errorlevel% EQU 3 (Goto :cancel)

process.start(".\AutoIt3.exe", "Argumentos si quieres")

timer1.interval = 5000 ' ms

#Region " Time Remaining "
 
    ' [ Time Remaining ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' CountDown_Start()
 
    Dim TotalTime As Long = 10000 ' ms
    Dim Time_Elapsed_Watch As New Stopwatch
    Dim Time_Remaining_Span As New TimeSpan()
    Dim WithEvents CountDown_Timer As New Timer
 
    Private Sub CountDown_Start()
        Time_Remaining_Span = TimeSpan.FromMilliseconds(TotalTime + 1000)
        Time_Elapsed_Watch.Start()
        CountDown_Timer.Start()
    End Sub
 
    Private Sub CountDown_Timer_Tick(sender As Object, e As EventArgs) Handles CountDown_Timer.Tick
        Dim TimeRemaining As TimeSpan = Time_Remaining_Span - Time_Elapsed_Watch.Elapsed
 
        Label1.Text = "Elapsed : " & _
                     String.Format("{0:00}:{1:00}:{2:00}", _
                     Time_Elapsed_Watch.Elapsed.Hours, _
                     Time_Elapsed_Watch.Elapsed.Minutes, _
                     Time_Elapsed_Watch.Elapsed.Seconds)
 
        Label2.Text = "TimeLeft: " & _
                      String.Format("{0:00}:{1:00}:{2:00}", _
                      CLng(Math.Floor(TimeRemaining.TotalHours)) Mod 999999999999999999, _
                      CLng(Math.Floor(TimeRemaining.TotalMinutes)) Mod 60, _
                      CLng(Math.Floor(TimeRemaining.TotalSeconds)) Mod 60)
 
        If TimeRemaining.TotalSeconds <= 0 OrElse Time_Elapsed_Watch.ElapsedMilliseconds > TotalTime Then
            Time_Elapsed_Watch.Reset()
            CountDown_Timer.Stop()
        End If
 
    End Sub
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CountDown_Start()
    End Sub
 
#End Region

    On Error GoTo ErrMsg
    AxMMControl1.Wait = True
    AxMMControl1.FileName = OpenFileDialog1.FileName
    AxMMControl1.Command = "Open"
    AxMMControl1.Command = "Play"
    Exit Sub
    ErrMsg:
    MsgBox(Err.Description)
    End Sub

#Region " Resize Image "
 
    ' [ Save Resize Image Function ]
    '
    ' Examples :
    '
    ' PictureBox1.Image = Resize_Image(System.Drawing.Image.FromFile("C:\Image.png"), 256, 256)
 
    Private Function Resize_Image(ByVal img As Image, ByVal Width As Int32, ByVal Height As Int32) As Bitmap
        Dim Bitmap_Source As New Bitmap(img)
        Dim Bitmap_Dest As New Bitmap(CInt(Width), CInt(Height))
        Dim Graphic As Graphics = Graphics.FromImage(Bitmap_Dest)
        Graphic.DrawImage(Bitmap_Source, 0, 0, Bitmap_Dest.Width + 1, Bitmap_Dest.Height + 1)
        Return Bitmap_Dest
    End Function
 
#End Region

#Region " Scale Image "
 
    ' [ Save Scale Image Function ]
    '
    ' Examples :
    '
    ' PictureBox1.Image = Scale_Image(System.Drawing.Image.FromFile("C:\Image.png"), 3) ' Scales to x3 of original size
 
    Private Function Scale_Image(ByVal img As Image, ByVal ScaleFactor As Single)
        Dim Bitmap_Source As New Bitmap(img)
        Dim Bitmap_Dest As New Bitmap(CInt(Bitmap_Source.Width * ScaleFactor), CInt(Bitmap_Source.Height * ScaleFactor))
        Dim Graphic As Graphics = Graphics.FromImage(Bitmap_Dest)
        Graphic.DrawImage(Bitmap_Source, 0, 0, Bitmap_Dest.Width + 1, Bitmap_Dest.Height + 1)
        Return Bitmap_Dest
    End Function
 
#End Region

@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