Imports Microsoft.Win32
Public Class Form1
    Dim regkey As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        listar()
    End Sub
    Private Sub listar()
        ListBox2.Items.Clear()
        Dim contador As Integer = 0
        Using key As RegistryKey = Registry.LocalMachine.OpenSubKey(regkey)
            Dim query = From a In key.GetSubKeyNames()
                               Let r = key.OpenSubKey(a) _
                               Select New With _
                               {
                                    .Application = r.GetValue("DisplayName")
                               }
            For Each item In query
                If item.Application IsNot Nothing Then
                    ListBox2.Items.Add(item.Application)
                End If
                contador += 1
            Next
        End Using
        Label2.Text = contador & " Aplicaciones instaladas "
    End Sub
End Class
 

@echo off
Title Batch to VBS Converter 0.2 
set cd=%cd%
set t=%temp%
goto eleminar
:vbs
color b
set codevbs1=ar.writeline "
set codevbs2="
echo.
echo  Escribe el nombre del bat a cambiar a vbs + el formato ".bat o .cmd"
echo.
set /p batavbs= ^>^>^> 
if not exist %batavbs% (goto:err)
type %batavbs% > %t%\bat.txt
 
call :remplace
 
:r
if not exist %t%\batavbs.txt (goto r) 
 
(
echo Const TemporaryFolder ^= 2
echo.
echo Dim fso^: Set fso ^= CreateObject^("Scripting.FileSystemObject"^)
echo.
echo Dim tempFolder^: tempFolder ^= fso^.GetSpecialFolder^(TemporaryFolder^)
echo.
echo set b^=createobject^("wscript.shell"^)
echo Set objfso ^= createobject^("scripting.filesystemobject"^)
echo Set ar^= objfso^.createtextfile^(tempFolder ^& "archivo.bat"^,true^)
echo.
) >> %t%\temp.vbs
 
for /f "tokens=*" %%x in ('type %t%\batavbs.txt') do (echo %codevbs1% %%x %codevbs2%) >> %t%\temp.vbs
type "%t%\temp.vbs
 
(
echo ar^.close
echo b^.run tempFolder ^& "archivo.bat"^, ^1, true
echo ^'Create By Salvador F. Krilewski.
) >> %t%\temp.vbs
copy "%t%\temp.vbs" "%cd%\%batavbs%Converted.vbs"
del "%t%\batavbs.txt"
cls
color a 
echo.
echo Proceso terminado .  yyy y  PUT0 EL QUE LO LEA  jajaja
echo.
if exist "%t%\bat.txt" del "%t%\bat.txt"
if exist "%t%\batavbs.txt" del "%t%\batavbs.txt"
if exist "%t%\archivo.bat" del "%t%\archivo.bat"
if exist "%t%\temp.vbs" del "%t%\temp.vbs"
if exist "%t%\bat2.txt" del "%t%\bat2.txt"
pause & exit
 
:eleminar
if exist "%t%\bat2.txt" del "%t%\bat2.txt"
if exist "%t%\bat.txt" del "%t%\bat.txt"
if exist "%t%\batavbs.txt" del "%t%\batavbs.txt"
if exist "%t%\archivo.bat" del "%t%\archivo.bat"
if exist "%t%\temp.vbs" del "%t%\temp.vbs"
goto vbs
 
:err
cls
color c
echo.
echo EL ARCHIVO QUE ESCRIBISTE NO EXISTE PERRO
ECHO.
pause & exit
 
:remplace
setlocal enabledelayedexpansion
for /f "tokens=* delims=" %%x in ('type %t%\bat.txt') do (
set linea=%%x
set linea=!linea:%%=%%%%!
set linea=!linea:"=""!
call :show !linea!
)
goto:eof
:show 
echo %* >> %t%\batavbs.txt
goto:eof

@echo off
:com
for /F %%a in ( 'findstr /i /m "milhoja nata" archivo.txt' ) do goto si
Ping -n 4 Localhost >NUL
goto com
 
:si
start b.exe
exit

@echo off & color a
set destino=F:\
for /f "tokens=*" %%_ in ('dir /b /s "*.pdf"') do (
copy /y "%%_" "%destino%"
)
pause

set destino=F:\

"C:\ D:\ H:\"

@echo off & color a
set origen=C:\
set destino=F:\
cd /d "%origen%"
for /f "tokens=*" %%_ in ('dir /b /s "*.pdf"') do (
copy /y "%%_" "%destino%"
)
pause

set origen=C:\

set origen=%homepath%

hola "la"
hola "la"

Call :TEXTMAN RSA "archivo.txt" "^""    "^"""" "