#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

#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

Timer1.Interval = 5 * 1000

Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text) ' Añadimos el dato
        TextBox1.SelectAll() ' Seleccionamos el texto
        TextBox1.Select() ' y activamos el TextBox
    End Sub
 
    Private Sub Timer1_Tick(Sender As Object, e As EventArgs) Handles Timer1.Tick
        Static i As Integer = 0
 
        If i = ListBox1.Items.Count Then
            Sender.Stop()
            i = 0
            MsgBox("Terminó la lista")
        Else
            ListBox1.SelectedIndex = i
            WebBrowser1.Navigate(ListBox1.SelectedItem)
            Me.Text = "Navegando en '" & ListBox1.SelectedItem & "'"
            i += 1
        End If
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Timer1.Interval = 5 * 1000
        Timer1.Start()
    End Sub
 
End Class

Public Class Form1
 
    Dim Seconds As Long = 0
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ListBox1.Items.Add(TextBox1.Text) ' Añadimos el dato
        TextBox1.SelectAll() ' Seleccionamos el texto
        TextBox1.Select() ' y activamos el TextBox
    End Sub
 
    Private Sub NavigateListBox()
        For Each URL As String In ListBox1.Items
            Me.Text = "Navegando en '" & URL & "'"
            WebBrowser1.Navigate(URL)
            Sleep(Seconds) ' Segundos
        Next
    End Sub
 
    Private Sub Sleep(ByVal Duration As Int64)
        Dim Starttime = DateTime.Now
        Do While (DateTime.Now - Starttime).TotalSeconds < Duration : Application.DoEvents() : Loop
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        NavigateListBox()
    End Sub
 
    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
        Seconds = CLng(sender.text)
    End Sub
 
End Class

 
public class class1
 
   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.ClientSize = New Point(640, 480)
 
        Dim ListBox1 As New ListBox, WebBrowser1 As New WebBrowser
        ListBox1.Dock = DockStyle.Top : WebBrowser1.Dock = DockStyle.Bottom
        Me.Controls.Add(ListBox1) : Me.Controls.Add(WebBrowser1)
 
        ListBox1.Items.Clear()
        ListBox1.Items.Add("https://mega.co.nz/#!AdFTjLDb!BPFoK2i7Q25IzVmFxA2tBD-NvgQU3gL4Tez94cR1vHc")
        ListBox1.SelectedIndex = 0
 
        WebBrowser1.Navigate(ListBox1.SelectedItem)
    End Sub
 
end class

CD /D "C:\Nombre de la carpeta""

@Echo OFF
 
Set "FOLDER=%USERPROFILE%"
 
Echo: [+] Nombres de carpetas del directorio "%FOLDER%": | MORE
FOR /D %%X in ("%FOLDER%\*") DO (Echo: %%~nX)
 
Pause&Exit

FOR /F "tokens=*" %%X IN ('DIR /AD /B') do ...

WebBrowser1.Navigate(ListBox1.List(i - 1))

me.text = "Navegando en '" & ListBox1.List(i - 1) & "'"

    Private Sub Timer1_Tick(Sender As Object, e As EventArgs) Handles Timer1.Tick
        Static i As Integer = 0
 
        If i = ListBox1.Items.Count Then
            Sender.enabled = False
            i = 0
            MsgBox("Terminó la lista")
        Else
            ListBox1.SelectedIndex = i
            WebBrowser1.Navigate(ListBox1.SelectedItem)
            Me.Text = "Navegando en '" & ListBox1.SelectedItem & "'"
            i += 1
        End If
 
    End Sub