: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)

#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:

• Switches:

• Switches values Syntax:

• Examples:

#Region " IlMerge "
 
' [ IlMerge Functions ]
'
' // By Elektro H@cker
'
' Instructions:
' 1. Add the "IlMerge.exe" to the project 
' 2. Add the "IlMerge" Class to the project
'
' Examples:
' IlMerge.Merge({"C:\Application.exe", "C:\Dependency.dll"}, "C:\Merged.exe")
' MsgBox(IlMerge.Merge({"C:\Application.exe", "C:\Dependency.dll"}, "C:\Merged.exe"))
 
 
#Region " IlMerge class "
 
Public Class IlMerge
 
    ''' <summary>
    ''' Set the location of IlMerge executable [Default: ".\IlMerge.exe"].
    ''' </summary>
    Public Shared IlMerge_Location As String = ".\IlMerge.exe"
    ''' <summary>
    ''' Set the location of IlMerge log file [Default: ".\IlMerge.log"].
    ''' </summary>
    Public Shared IlMerge_Log_Location As String = IlMerge_Location.Substring(0, IlMerge_Location.Length - 4) & ".log"
 
    ''' <summary>
    ''' Merge
    ''' </summary>
    Public Shared Function Merge(ByVal InputFiles As String(), ByVal OutputFile As String) As Boolean
 
        Dim FilesString As String = Nothing
        For Each File In InputFiles : FilesString += """" & File & """" & " " : Next
 
        Try : IO.File.Delete(IlMerge_Log_Location) : Catch : End Try ' Deletes old log if exist
 
        Try
            Dim ResHacker As New Process()
            Dim ResHacker_Info As New ProcessStartInfo()
 
            ResHacker_Info.FileName = IlMerge_Location
            ResHacker_Info.Arguments = "/ndebug /log:" & """" & IlMerge_Log_Location & """" & " /out:" & """" & OutputFile & """" & " " & FilesString
            ResHacker_Info.UseShellExecute = False
            ResHacker.StartInfo = ResHacker_Info
            ResHacker.Start()
            ResHacker.WaitForExit()
 
            Try : IO.File.Delete(OutputFile.Substring(0, OutputFile.Length - 4) & ".pdb") : Catch : End Try ' Deletes Debug Generated File
            Return Check_Last_Error()
 
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try
 
    End Function
 
    ''' <summary>
    ''' Return the last operation error if any [False = ERROR, True = Ok].
    ''' </summary>
    Private Shared Function Check_Last_Error()
 
        Try
            Dim Line As String = Nothing
            Dim Text As IO.StreamReader = IO.File.OpenText(IlMerge_Log_Location)
 
            Do Until Text.EndOfStream
                Line = Text.ReadLine()
                If Line.ToString.StartsWith("An exception occurred") Then
                    Process.Start(IlMerge_Log_Location)
                    Return False
                End If
            Loop
 
            Text.Close()
            Text.Dispose()
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try
 
    End Function
 
End Class
 
#End Region
 
#End Region