#Region " Help Section "
 
    Private Sub Help()
 
        Dim Logo As String = <a><![CDATA[
 .____                         
 |    |    ____   ____   ____  
 |    |   /  _ \ / ___\ /  _ \ 
 |    |__(  <_> ) /_/  >  <_> )
 |_______ \____/\___  / \____/ 
        \/    /_____/    By Elektro H@cker
]]></a>.Value
 
        Dim Help As String = <a><![CDATA[   
 
[+] Syntax:
 
    Program.exe [FILE] [SWITCHES]
 
[+] Switches:
 
    /Switch1   | Description.    (Default Value: X)
    /Switch2   | Description. 
    /? (or) -? | Show this help.
 
[+] Switch value Syntax:
 
    /Switch1   (ms)
    /Switch2   (X,Y)
 
[+] Usage examples:
 
    Program.exe "C:\File.txt" /Switch1
    (Short explanation)
 
]]></a>.Value
 
        Console.WriteLine(Logo & Help)
        Application.Exit()
 
    End Sub
 
#End Region

#Region " Record Mouse Class "
 
' [ Record Mouse Functions ]
'
' // By Elektro H@cker
'
' Examples :
' Record_Mouse.Start_Record()
' Record_Mouse.Stop_Record()
' Record_Mouse.Play() : While Not Record_Mouse.Play_Is_Completed : Application.DoEvents() : End While
' Record_Mouse.Mouse_Speed = 50
 
Public Class Record_Mouse
 
    ''' <summary>
    ''' Sets the speed of recording/playing the mouse actions.
    ''' Default value is 25.
    ''' </summary>
    Public Shared Mouse_Speed As Int64 = 30
 
    ''' <summary>
    ''' Gets the status pf the current mouse play.
    ''' False = Mouse task is still playing.
    ''' True = Mouse task play is done.
    ''' </summary>
    Public Shared Play_Is_Completed As Boolean
 
    ' Where the mouse coordenates will be stored:
    Private Shared Coordenates_List As New List(Of Point)
    ' Where the mouse clicks will be stored:
    Private Shared Clicks_Dictionary As New Dictionary(Of Int64, MouseButton)
    ' Timer to record the mouse:
    Private Shared WithEvents Record_Timer As New Timer
    ' Button click count to rec/play clicks:
    Private Shared Click_Count As Int32 = 0
    ' Thread to reproduce the mouse actions:
    Private Shared Thread_MousePlay_Var As System.Threading.Thread = New Threading.Thread(AddressOf Thread_MousePlay)
    ' API to record the current mouse button state:
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    ' API to reproduce a mouse button click:
    Private Declare Sub Mouse_Event Lib "User32" Alias "mouse_event" (ByVal dwFlags As MouseButton, ByVal dx As Integer, ByVal dy As Integer, ByVal dwData As Integer, ByVal dwExtraInfo As Integer)
    ' GetAsyncKeyState buttons status
    Private Shared Last_ClickState_Left As Int64 = -1
    Private Shared Last_ClickState_Right As Int64 = -1
    Private Shared Last_ClickState_Middle As Int64 = -1
 
    Enum MouseButton
 
        Left_Down = &H2    ' Left button (hold)
        Left_Up = &H4      ' Left button (release)
 
        Right_Down = &H8   ' Right button (hold)
        Right_Up = &H10    ' Right button (release)
 
        Middle_Down = &H20 ' Middle button (hold)
        Middle_Up = &H40   ' Middle button (release)
 
        Left               ' Left   button (press)
        Right              ' Right  button (press)
        Middle             ' Middle button (press)
 
    End Enum
 
    ''' <summary>
    ''' Starts recording the mouse actions over the screen.
    ''' It records the position of the mouse and left/right button clicks.
    ''' </summary>
    Public Shared Sub Start_Record()
 
        ' Reset vars:
        Play_Is_Completed = False
        Coordenates_List.Clear() : Clicks_Dictionary.Clear()
        Last_ClickState_Left = -1 : Last_ClickState_Right = -1 : Last_ClickState_Middle = -1
        Click_Count = 0
 
        ' Set Mouse Speed
        Record_Timer.Interval = Mouse_Speed
 
        ' Start Recording:
        Record_Timer.Start()
 
    End Sub
 
    ''' <summary>
    ''' Stop recording the mouse actions.
    ''' </summary>
    Public Shared Sub Stop_Record()
        Record_Timer.Stop()
    End Sub
 
    ''' <summary>
    ''' Reproduce the mouse actions.
    ''' </summary>
    Public Shared Sub Play()
        Thread_MousePlay_Var = New Threading.Thread(AddressOf Thread_MousePlay)
        Thread_MousePlay_Var.IsBackground = True
        Thread_MousePlay_Var.Start()
    End Sub
 
    ' Procedure used to store the mouse actions
    Private Shared Sub Record_Timer_Tick(sender As Object, e As EventArgs) Handles Record_Timer.Tick
 
        Coordenates_List.Add(Control.MousePosition)
 
        ' Record Left click
        If Not Last_ClickState_Left = GetAsyncKeyState(1) Then
            Last_ClickState_Left = GetAsyncKeyState(1)
            If GetAsyncKeyState(1) = 32768 Then
                Click_Count += 1
                Coordenates_List.Add(Nothing)
                Clicks_Dictionary.Add(Click_Count, MouseButton.Left_Down)
            ElseIf GetAsyncKeyState(1) = 0 Then
                Click_Count += 1
                Coordenates_List.Add(Nothing)
                Clicks_Dictionary.Add(Click_Count, MouseButton.Left_Up)
            End If
        End If
 
        ' Record Right click
        If Not Last_ClickState_Right = GetAsyncKeyState(2) Then
            Last_ClickState_Right = GetAsyncKeyState(2)
            If GetAsyncKeyState(2) = 32768 Then
                Click_Count += 1
                Coordenates_List.Add(Nothing)
                Clicks_Dictionary.Add(Click_Count, MouseButton.Right_Down)
            ElseIf GetAsyncKeyState(2) = 0 Then
                Click_Count += 1
                Coordenates_List.Add(Nothing)
                Clicks_Dictionary.Add(Click_Count, MouseButton.Right_Up)
            End If
        End If
 
        ' Record Middle click
        If Not Last_ClickState_Middle = GetAsyncKeyState(4) Then
            Last_ClickState_Middle = GetAsyncKeyState(4)
            If GetAsyncKeyState(4) = 32768 Then
                Click_Count += 1
                Coordenates_List.Add(Nothing)
                Clicks_Dictionary.Add(Click_Count, MouseButton.Middle_Down)
            ElseIf GetAsyncKeyState(4) = 0 Then
                Click_Count += 1
                Coordenates_List.Add(Nothing)
                Clicks_Dictionary.Add(Click_Count, MouseButton.Middle_Up)
            End If
        End If
 
    End Sub
 
    ' Procedure to play a mouse button (click)
    Private Shared Sub Mouse_Click(ByVal MouseButton As MouseButton)
        Select Case MouseButton
            Case MouseButton.Left : Mouse_Event(MouseButton.Left_Down, 0, 0, 0, 0) : Mouse_Event(MouseButton.Left_Up, 0, 0, 0, 0)
            Case MouseButton.Right : Mouse_Event(MouseButton.Right_Down, 0, 0, 0, 0) : Mouse_Event(MouseButton.Right_Up, 0, 0, 0, 0)
            Case MouseButton.Middle : Mouse_Event(MouseButton.Middle_Down, 0, 0, 0, 0) : Mouse_Event(MouseButton.Middle_Up, 0, 0, 0, 0)
            Case Else : Mouse_Event(MouseButton, 0, 0, 0, 0)
        End Select
    End Sub
 
    ' Thread used for reproduce the mouse actions
    Private Shared Sub Thread_MousePlay()
 
        Click_Count = 0
        Clicks_Dictionary.Item(0) = Nothing
 
        For Each Coordenate In Coordenates_List
 
            Threading.Thread.Sleep(Mouse_Speed)
 
            If Coordenate = Nothing Then
                Click_Count += 1
                If Click_Count > 1 Then
                    Mouse_Click(Clicks_Dictionary.Item(Click_Count))
                End If
            Else
                Cursor.Position = Coordenate
            End If
 
        Next
 
        Mouse_Click(MouseButton.Left_Up)
        Mouse_Click(MouseButton.Right_Up)
        Mouse_Click(MouseButton.Middle_Up)
 
        Play_Is_Completed = True
 
    End Sub
 
End Class
 
#End Region

#Region " Replace TextFile Line "
 
    ' [ Replace TextFile Line Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Replace_TextFile_Line("C:\File.txt", 1, "Hello world!")
    ' Replace_TextFile_Line("C:\File.txt", 3, True)
    ' If Replace_TextFile_Line("C:\File.txt", 5, "Elektro H@cker") Then ...
 
    Private Function Replace_TextFile_Line(ByVal Text_File As String, _
                                           ByVal Line_Number As Int64, _
                                           ByVal New_Text As Object) As Boolean
 
        Line_Number -= 1 : If Line_Number < 0 _
        Then Throw New Exception("Line Number can't be a negative value")
 
        Try
            Dim Lines_Array() As String = IO.File.ReadAllLines(Text_File)
            Lines_Array(Line_Number) = New_Text
            IO.File.WriteAllLines(Text_File, Lines_Array)
            Return True
        Catch ex As Exception
            MsgBox(ex.Message)
            Return False
        End Try
 
    End Function
 
#End Region

@Echo OFF
For /F "Tokens=*" %%# in ('Dir /B "*.csv" ^| Sort /R') Do (
	For /F "Tokens=*" %%@ in ('Dir /B "*.csv" ^| FIND /V "%%#"') Do (Del /Q "%%@")
 	Exit
)

csv001
csv002
csv100

csv1
csv2
csv100