Public Class Form1
 
     Private WithEvents SystemMenu As New SystemMenuManager(Me)
 
     Private Shadows Sub Shown() Handles MyBase.Shown
 
        ' Gets the total amount of menu items.
        ' MsgBox(SystemMenu.GetItemCount())
 
        ' Sets the menu background color.
         SystemMenu.SetMenuBackColor(Color.Teal)
 
        ' Sets the menu style.
        ' SystemMenu.SetMenuStyle(SystemMenuManager.MenuStyle.AUTODISMIS)
 
        ' Sets the state of the Close button and menu item.
        ' SystemMenu.SetItemState(SystemMenuManager.Item.Close, SystemMenuManager.ItemState.Disabled)
 
        ' Sets the Bitmap image of the Move menu item.
        ' SystemMenu.SetItemBitmap(SystemMenuManager.Item.Move, New Bitmap("C:\File.png"))
 
        ' Gets the Bitmap image of the Move menu item.
        ' Dim bmp As Bitmap = SystemMenu.GetItemBitmap(SystemMenuManager.Item.Move)
 
        ' Removes the Bitmap image of the Move menu item.
        ' SystemMenu.RemoveItemBitmap(SystemMenuManager.Item.Move)
 
        ' Adds a separator at the bottom.
         SystemMenu.AddSeparator(SystemMenuManager.DefaultPositions.Last)
 
        ' Adds an item at the bottom.
         SystemMenu.AddItem("Hello World!", 666, SystemMenuManager.DefaultPositions.Last)
 
        ' Gets the ID of an item.
        ' MsgBox(SystemMenu.GetItemState(SystemMenuManager.Item.Move).ToString)
 
        ' Gets the text of an item.
        ' MsgBox(SystemMenu.GetItemText(SystemMenuManager.Item.Move))
 
        ' Gets the state of an item.
        ' MsgBox(SystemMenu.GetItemState(SystemMenuManager.Item.Move).ToString)
 
        ' Sets the text of an item.
        ' SystemMenu.SetItemText(SystemMenuManager.Item.Move, "Muéveme")
 
        ' Checks if a handle is a menu handle.
        ' MsgBox(SystemMenu.IsMenuHandle(IntPtr.Zero))
 
        ' Disable all the menu items.
        ' SystemMenu.DisableAllItems()
 
        ' Re-enable all the menu items.
        ' SystemMenu.EnableAllItems()
 
        ' Remove all the menu items.
        ' SystemMenu.RemoveAllItems()
 
        ' Restore the menu to defaults.
        '  SystemMenu.Restore_Menu()
 
        ' Dispose the SystemMenuManager Object.
        ' SystemMenu.Dispose()
 
 End Sub
 
         ' SystemMenu [MenuItemClicked]
        Private Sub SystemMenu_MenuItemClicked(
                ByVal MenuHandle As IntPtr,
                ByVal e As SystemMenuManager.ItemClickedEventArgs
        ) Handles SystemMenu.ItemClicked
 
            Dim sr As New System.Text.StringBuilder
 
            sr.AppendLine(String.Format("Item ID   : {0}", CStr(e.ID)))
            sr.AppendLine(String.Format("Item Text : {0}", e.Text))
            sr.AppendLine(String.Format("Item Type : {0}", e.Type.ToString))
            sr.AppendLine(String.Format("Item State: {0}", e.State.ToString))
 
            MessageBox.Show(sr.ToString, "SystemMenuManager", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
     End Sub
 
End Class

#Region " Match Dictionary Values "
 
    ' [ Match Dictionary Values ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Match_Dictionary_Values(New Dictionary(Of Integer, String) From {{1, "Hello World!"}},
    '                                "hello", False, StringComparison.CurrentCultureIgnoreCase).First.Value)
 
    Private Function Match_Dictionary_Values(Of K)(
                     ByVal Dictionary As Dictionary(Of K, String),
                     ByVal Value As String,
                     ByVal MatchWholeWord As Boolean,
                     ByVal IgnoreCase As StringComparison) As KeyValuePair(Of K, String)()
 
        If MatchWholeWord Then
 
            Return (From kp As KeyValuePair(Of K, String) In Dictionary
                    Where String.Compare(kp.Value, Value, IgnoreCase) = 0).ToArray
        Else
 
            Return (From kp As KeyValuePair(Of K, String) In Dictionary
                    Where kp.Value.IndexOf(Value, 0, IgnoreCase) > -1).ToArray
 
        End If
 
    End Function
 
#End Region

#Region " Match Dictionary Keys "
 
    ' [ Match Dictionary Keys ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Match_Dictionary_Keys(New Dictionary(Of String, Integer) From {{"Hello World!", 1}},
    '                              "hello", False, StringComparison.CurrentCultureIgnoreCase).First.Key)
 
    Private Function Match_Dictionary_Keys(Of V)(
                     ByVal Dictionary As Dictionary(Of String, V),
                     ByVal Key As String,
                     ByVal MatchWholeWord As Boolean,
                     ByVal IgnoreCase As StringComparison) As KeyValuePair(Of String, V)()
 
        If MatchWholeWord Then
 
            Return (From kp As KeyValuePair(Of String, V) In Dictionary
                    Where String.Compare(kp.Key, Key, IgnoreCase) = 0).ToArray
        Else
 
            Return (From kp As KeyValuePair(Of String, V) In Dictionary
                    Where kp.Key.IndexOf(Key, 0, IgnoreCase) > -1).ToArray
 
        End If
 
    End Function
 
#End Region

#Region " Find Dictionary Value "
 
    ' [ Find Dictionary Value ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    '  MsgBox(Find_Dictionary_Value(
    '         New Dictionary(Of Integer, String) From {{1, "ABC"}},
    '         "abc", True, StringComparison.CurrentCultureIgnoreCase))
 
    Private Function Find_Dictionary_Value(Of K)(
                     ByVal Dictionary As Dictionary(Of K, String),
                     ByVal Value As String,
                     ByVal MatchWholeWord As Boolean,
                     ByVal IgnoreCase As StringComparison) As Boolean
 
        If MatchWholeWord Then
 
            Return (From kp As KeyValuePair(Of K, String) In Dictionary
                    Where String.Compare(kp.Value, Value, IgnoreCase) = 0).Any
        Else
 
            Return (From kp As KeyValuePair(Of K, String) In Dictionary
                    Where kp.Value.IndexOf(Value, 0, IgnoreCase) > -1).Any
 
        End If
 
    End Function
 
#End Region

#Region " Find Dictionary Key "
 
    ' [ Find Dictionary Key ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    '
    ' MsgBox(Find_Dictionary_Key(
    '        New Dictionary(Of String, Integer) From {{"ABC", 1}},
    '        "abc", True, StringComparison.CurrentCultureIgnoreCase))
 
    Private Function Find_Dictionary_Key(Of V)(
                     ByVal Dictionary As Dictionary(Of String, V),
                     ByVal Key As String,
                     ByVal MatchWholeWord As Boolean,
                     ByVal IgnoreCase As StringComparison) As Boolean
 
        If MatchWholeWord Then
 
            Return (From kp As KeyValuePair(Of String, V) In Dictionary
                    Where String.Compare(kp.Key, Key, IgnoreCase) = 0).Any
        Else
 
            Return (From kp As KeyValuePair(Of String, V) In Dictionary
                    Where kp.Key.IndexOf(Key, 0, IgnoreCase) > -1).Any
 
        End If
 
    End Function
 
#End Region

@echo off
:pregunta
set /p %hola% = Bucle Infinito? :  
if %hola%==SI goto pregunta

set /p hola

@Echo OFF
 
:pregunta
SET /p "hola=Bucle Infinito?:"  
 
IF /I "%hola%" EQU "SI" (goto :pregunta)
 
Pause&Exit

Xcopy "D:\*" "F:\" /S /I /E /Y /d:06-01-2013

%t%0%%c
%t%%%c

If Wscript.Arguments.Count <> 0 Then
   WScript.StdOut.Write(Jugador(Wscript.Arguments(0)))
   WScript.Quit(0)
Else
   WScript.Quit(1)
End If
 
Function Jugador(str)
   Set regEx = New RegExp
 
   regEx.Pattern = "^\D+"
   name = regEx.Execute(str).Item(0)
 
   regEx.Pattern = "\[\D+\]$"
   pos = Mid(regEx.Execute(str).Item(0), 2, 3)
 
   cosa = "%t%%%c" 
 
   Jugador = (name & cosa & "%" & pos  & "%")
End Function

@Echo OFF
 
set "str=C l i c k   o n   t h e   N e w   P r o f i l e   b u t t o n   t o   o p e n   t h e   P r o f i l e"
set "str=%str:   ={^_^}%"
set "str=%str: =%"
set "str=%str:{^_^}= %"
 
Echo "%str%"
 
Pause&Exit

str = "C l i c k   o n   t h e   N e w   P r o f i l e   b u t t o n   t o   o p e n   t h e   P r o f i l e"
arr = split(str,"   ")
 
for each item in arr
	output = output & replace(item, " ", "") & " " 
next 
 
msgbox(output)