ContextMenu_Open_Dir.Image = My.Resources.OpenDir

RAR a "Archivo.rar" ".\Carpeta" -p"contraseña" 1>NUL

WPUT.exe "Archivo para subir.rar" "ftp://USUARIO:PASSWORD@xxx.xxx.xxx.xxx/Carpeta/"

@echo off
 
:: Este script elimina todas las letras dejando sólamente los números.
:: By Elektro H@cker
 
For %%# in (*.txt) Do (Call :Renamer "%%#")
Pause&Exit
 
:Renamer
Set "Filename= %~n1"
Set /A "Next+=1"
For /F %%# in ('Call Echo "%%FILENAME:~%NEXT%,1%%"') DO (
	IF %%# EQU "" (GOTO :BREAK)
	Echo "%%#" | FINDSTR "[0-9]" >NUL && (Call SET "RenamedFileName=%%RenamedFileName%%%%#")
	GOTO :RENAMER
)
:BREAK
Call SET "RenamedFileName=%%RenamedFileName:"=%%"
(Call Echo "%~1" "%%RenamedFileName%%%~x1" & Call Ren  "%~1" "%%RenamedFileName%%%~x1") & (GOTO:EOF)

@echo off
 
:: Este script elimina sólamente los caracteres que pongas en la variable "Set Chars=...".
:: By Elektro H@cker
 
For %%# in (*.txt) Do (Call :Renamer "%%#")
Pause&Exit
 
:Renamer
Set "Filename=%~1"
Set "Chars= a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K M N L O P Q R S T U V W X Y Z . , : - _ + [ ] { } ( ^) # @ ! = "
(For %%@ in (%CHARS%) Do (Call Set "Filename=%%Filename:%%@=%%")) & (Call Echo "%~1": "%%FILENAME%%%~x1" & Call Rename "%~1" "%%FILENAME%%%~x1") & (GOTO:EOF

RENAME "Ruta completa del archivo a renombrar" "Nombre del archivo renombrado"

ren "C:\carpeta1\archivo.txt" "archivoren1.txt"
ren "C:\carpeta2\archivo.txt" "archivoren2.txt"

REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /V "NoDriveTypeAutoRun" /T "REG_DWORD" /D "0x00000091" /F 

SC START "Nombre del servicio"

WScript "%TEMP%\Create_Shortcut.vbs" "Archivo.ext" "C:\Archivo.lnk"

cls
@ECHO OFF
title Folder Private
if EXIST "HTG Locker" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
echo Are you sure you want to lock the folder(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Private "HTG Locker"
attrib +h +s "HTG Locker"
echo Folder locked
goto End
:UNLOCK
echo Enter password to unlock folder
set/p "pass=>"
if NOT %pass%== PASSWORD_GOES_HERE goto FAIL
attrib -h -s "HTG Locker"
ren "HTG Locker" Private
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Private
echo Private created successfully
goto End
:End

    Private Sub NewMenu_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles NewMenu.ItemClicked
        Dim FileInformation = Nothing
        If e.ClickedItem.Name = "OpenDir" Then
            For Each Entry In ListView1.SelectedItems()
                FileInformation = My.Computer.FileSystem.GetFileInfo(ListView1.SelectedItems(0).SubItems(1).Text)
                MsgBox("explorer.exe" & " /select," & FileInformation.DirectoryName & "\" & FileInformation.Name)
                'Process.Start("explorer.exe", " /select," & FileInformation.DirectoryName & "\" & FileInformation.Name)
                FileInformation = Nothing
            Next
        End If

        If e.ClickedItem.Name = "DeleteEntry" Then
            For Each Entry In ListView1.SelectedItems()
                ListView1.Items.Remove(ListView1.SelectedItems(0))
            Next
        End If