Mensajes

Puedes encontrar ejemplos de como cambiar la página de inicio de Chrome usando el buscador del foro, es fáicl.

Para lo de los días ya hay que pensar más (en Batch...), te pongo una solución:

Código (dos) [Seleccionar] Expandir

@Echo OFF

For /f %%# in ('wmic path win32_localtime get dayofweek ^| FINDSTR "[1-7]"') Do (

If %%# EQU 1 ...
If %%# EQU 2 ...

)

Pause&Exit

Equivalencia:

Código [Seleccionar] Expandir

   1 - Sunday
   2 - Monday
   3 - Tuesday
   4 - Wednesday
   5 - Thursday
   6 - Friday
   7 - Saturday

http://msdn.microsoft.com/en-us/library/windows/desktop/aa394171%28v=vs.85%29.aspx

...Y cuando lo tengas completado, te recomiendo que crees una taréa en el programador de tareas de Windows para ejecutar el script al inicio de sesión.

Saludos.

· comprueba si Aero está activado:

Código (vbnet) [Seleccionar] Expandir

#Region " Is Aero Enabled? "

    ' [ Is Aero Enabled? Function ]
    '
    ' Examples:
    ' MsgBox(Is_Aero_Enabled)

    <System.Runtime.InteropServices.DllImport("dwmapi.dll")> _
    Private Shared Function DwmIsCompositionEnabled(ByRef enabled As Boolean) As Integer
    End Function

    Public Function Is_Aero_Enabled() As Boolean
        If Environment.OSVersion.Version.Major < 6 Then
            Return False ' Windows version is under Windows Vista so not Aero.
        Else
            DwmIsCompositionEnabled(Is_Aero_Enabled)
        End If
    End Function

#End Region

¿Nadie sabe como se puede hacer?

· Un Sub especial para el control de terceros "CButton", para modificar los colores (Y actualizar el estado de los colores).

http://www.codeproject.com/Articles/26622/Custom-Button-Control-with-Gradient-Colors-and-Ext

Código (vbnet) [Seleccionar] Expandir

#Region " Change Cbutton Color "

   ' [ Change Cbutton Color ]
   '
   ' // By Elektro H@cker
   '
   ' Examples:
   ' Change_Cbutton_Color(CButton1, Color.Black, Color.DarkRed, Color.Red)


   Private Sub Change_Cbutton_Color(ByVal Button_Name As CButtonLib.CButton, _
                                     ByVal Color1 As Color, _
                                     ByVal Color2 As Color, _
                                     ByVal Color3 As Color)

       Button_Name.ColorFillBlend.iColor(0) = Color1
       Button_Name.ColorFillBlend.iColor(1) = Color2
       Button_Name.ColorFillBlend.iColor(2) = Color3
       Button_Name.UpdateDimBlends()

   End Sub

#End Region

· Setear los argumentos commandline por defecto del modo debug de la aplicación.

Código (vbnet) [Seleccionar] Expandir

#Region " Set CommandLine Arguments "

    ' [ Set CommandLine Arguments Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples:
    ' For Each Arg In Arguments : MsgBox(Arg) : Next

    Dim Arguments As List(Of String) = Set_CommandLine_Arguments()

    Public Function Set_CommandLine_Arguments() As List(Of String)
#If DEBUG Then
        ' Debug Commandline arguments for this application:
        Dim DebugArguments = "Notepad.exe -Sleep 5 -Interval 50 -Key CTRL+C"
        Return DebugArguments.Split(" ").ToList
#Else
        ' Nomal Commandline arguments
        Return My.Application.CommandLineArgs.ToList
#End If
    End Function

#End Region

Me permites la pregunta de... ¿Porque sabiendo dos lenguajes compilados, quieres aprender uno interpretado?, ¿No sería mejor para tí que profundizases en JAVA/C++?

Bueno, de todas formas, Ruby está al nivel de Python, y en mi opinión es más sencillo de aprender y usar.

Un saludo!

· Ejemplo de un String multi-línea para aplicaciones de consola:

Código (vbnet) [Seleccionar] Expandir

       Dim Logo As String = <a><![CDATA[
 ___              _ _           _   _               _____ _ _   _      
/ _ \            | (_)         | | (_)             |_   _(_) | | |    
/ /_\ \_ __  _ __ | |_  ___ __ _| |_ _  ___  _ __     | |  _| |_| | ___
|  _  | '_ \| '_ \| | |/ __/ _` | __| |/ _ \| '_ \    | | | | __| |/ _ \
| | | | |_) | |_) | | | (_| (_| | |_| | (_) | | | |   | | | | |_| |  __/
\_| |_/ .__/| .__/|_|_|\___\__,_|\__|_|\___/|_| |_|   \_/ |_|\__|_|\___|
     | |   | |                                                        
     |_|   |_|                                                        

]]></a>.Value

Console.WriteLine(Logo)

· Animar la ventana con efectos

Código (vbnet) [Seleccionar] Expandir

#Region " Animate Window "

   ' [ Animate Window ]
   '
   ' // By Elektro H@cker
   '
   ' Examples :
   ' AnimateWindow(Me.Handle, 1500, Animation.Show_Fade)
   ' AnimateWindow(Me.Handle, 1500, Animation.Hide_Center)

   Public Declare Function AnimateWindow Lib "user32" (ByVal hwnd As IntPtr, ByVal dwtime As Int64, ByVal dwflags As Animation) As Boolean

   Public Enum Animation As Int32

       Show_Left_To_Right = 1
       Show_Right_To_left = 2
       Show_Top_To_Bottom = 4
       Show_Bottom_to_top = 8
       Show_Corner_Left_UP = 5
       Show_Corner_Left_Down = 9
       Show_Corner_Right_UP = 6
       Show_Corner_Right_Down = 10
       Show_Center = 16
       Show_Fade = 524288

        Hide_Left_To_Right = 1 Or 65536
        Hide_Right_To_left = 2 Or 65536
        Hide_Top_To_Bottom = 4 Or 65536
        Hide_Bottom_to_top = 8 Or 65536
        Hide_Corner_Left_UP = 5 Or 65536
        Hide_Corner_Left_Down = 9 Or 65536
        Hide_Corner_Right_UP = 6 Or 65536
        Hide_Corner_Right_Down = 10 Or 65536
        Hide_Center = 16 Or 65536
        Hide_Fade = 524288 Or 65536

   End Enum

#End Region

A ver si alguien se anima y hace un snippet Anti-Sandbox, que según he leido es bien fácil: http://www.aspfree.com/c/a/braindump/virtualization-and-sandbox-detection/ pero por desgracia hay demasiados software virtualizadores para ponerse a probar uno por uno para hacer una función genérica...

PD: ¿A nadie le interesa aportar snippets aquí?

Saludos!

· Detectar la ejecución de la aplicación en una máquina virtual.

Código (vbnet) [Seleccionar] Expandir

#Region " Detect Virtual Machine "

    ' [ Detect Virtual Machine Function ]
    '
    ' // By Elektro H@cker
    '
    ' Instructions :
    ' 1. Add a reference for "System.Management"
    '
    ' Examples :
    ' MsgBox(Detect_Virtual_Machine)
    ' If Detect_Virtual_Machine() Then MsgBox("This program cannot run on a virtual machine")

    Imports System.Management

    Private Function Detect_Virtual_Machine() As Boolean

        Dim ModelName As String = Nothing
        Dim SearchQuery = New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive WHERE BytesPerSector > 0")

        For Each ManagementSystem In SearchQuery.Get

            ModelName = ManagementSystem("Model").ToString.Split(" ").First.ToLower

            If ModelName = "virtual" Or _
               ModelName = "vmware" Or _
               ModelName = "vbox" Or _
               ModelName = "qemu" _
            Then
                Return True ' Virtual machine HDD Model Name found
            End If

        Next

        Return False ' Virtual machine HDD Model Name not found

    End Function

#End Region