Como crear una aplicación con bloc de notas

VBS y BAT

Visual Basic Script (VBS) es un código, es decir que escribiendo algo vamos a poder crear un programa legible en cualquier computadora Windows; los archivos BAT son archivos de texto que ejecutan secuencias de comandos. No es necesario que descargues nada, para empezar a crear lo único que tienes que hacer es entrar a bloc de notas o a otro editor de texto y escribir los códigos que te daremos a continuación:

Para decir un mensaje (.vbs):

MsgBox "Mensaje sencillo"
MsgBox "Mensaje con un icono de advertencia",48
Msgbox  "mensaje con icono de x" ,16, "titulo"
MsgBox "Mensaje con un icono de Información",266304
texto = "Mensaje con un titulo"
MyBox = MsgBox(texto,266304,"Soy el titulo!")

Después pones archivo, guardar como y escribes un nombre, como por ejemplo "mensaje" y le añades .vbs, por ejemplo deberías de guardarlo con este nombre "mensaje.vbs".

Para ocultar tu carpeta (.vbs):

cls
@echo off
title folder carpetaprotegida
if exist "control panel.{21ec2020-3aea-1069-a2dd-08002b30309d}" goto unlock
if not exist carpetaprotegida goto mdlocker
:confirm
echo quiere ocultar la carpetaprotegida? (s/n)
set/p "cho="
if %cho%==s goto lock
if %cho%==s goto lock
if %cho%==n goto end
if %cho%==n goto end
echo invalid choice.
goto confirm
:lock
ren carpetaprotegida "control panel.{21ec2020-3aea-1069-a2dd-08002b30309d}"
attrib +h +s "control panel.{21ec2020-3aea-1069-a2dd-08002b30309d}"
echo folder locked
goto end
:unlock
echo introduzca la contrasena para mostrar la carpetaprotegida
set/p "pass="
if not %pass%== cambie-este-texto-por-su-contraseña goto fail
attrib -h -s "control panel.{21ec2020-3aea-1069-a2dd-08002b30309d}"
ren "control panel.{21ec2020-3aea-1069-a2dd-08002b30309d}" carpetaprotegida
echo folder unlocked successfully
goto end
ail
echo invalid password
goto end
:mdlocker
md carpetaprotegida
echo carpetaprotegida created successfully
goto end
:end

después lo guardas con la extensión (.bat), así: "ocultar carpetas.bat".

Para elegir una carpeta (.vbs):

do
On Error Resume Next
Err.Clear
Set ShellApp = CreateObject("Shell.Application")
Set Ret = ShellApp.BrowseForFolder(0, "Seleccione una Carpeta", 16384)
MsgBox(Ret.Self.Path)
if  Err.Number <> 0  then   
  msgbox("error, elige una carpeta valida")
else
exit do
end if
loop

después lo guardas como .vbs, es decir lo guardas así: "elegir carpeta.vbs".

Para cerrar un proceso (.vbs):

set taskmgr = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_Process")
For each process in taskmgr
If Lcase(process.name) = "taskmgr.exe" then
    Process.terminate
WScript.Quit()
End If
If Lcase(process.name) = "taskmgr.EXE" then
    Process.terminate
WScript.Quit()
End If
Next

después lo guardas como .vbs, es decir lo guardas así: "cerrar proceso.vbs".

Para mostrar todos los archivos de una carpeta en vbs (.vbs):

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Users\Lenovo\Desktop"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
    Wscript.Echo objFile.Name
Next

después lo guardas como .vbs es decir lo guardas así: "ver archivos.vbs".

Para mostrar todas las subcarpetas de una carpeta en vbs (.vbs):

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Users\Lenovo\Desktop"
Set objFolder = objFSO.GetFolder(objStartFolder)
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        Wscript.Echo Subfolder.Path
    Next
End Sub

después lo guardas como .vbs es decir lo guardas así: "ver subcarpetas.vbs".

Nota: no sirve si es que este código no esta al final

Para leer el contenido de un archivo de texto con vbs (.vbs):

Option Explicit
Const conForReading = 1
Dim objFSO, objReadFile, contents
Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objReadFile = objFSO.OpenTextFile("C:\Users\Lenovo\Desktop\tareas.txt", 1, False)
contents = objReadFile.ReadAll
objReadFile.close
wscript.echo contents
Set objFSO = Nothing 
Set objReadFile = Nothing
WScript.Quit()

después lo guardas como .vbs es decir lo guardas así: "leer txt.vbs".

Para crear un archivo vbs que cree otros archivos vbs (.vbs):

set filetxt = filesys.CreateTextFile("C:\Users\"+CreateObject("WScript.Network").UserName+"\Desktop\saludo.vbs",true)
dim uno
uno=INPUTBOX("escribe el codigo")
if uno="" then
else
filetxt.WriteLine("msgbox"+""""+uno+"""")
end if
dim dos
dos=INPUTBOX("escribe el codigo")
if dos="" then
else
filetxt.WriteLine("msgbox"+""""+dos+"""")
end if
dim tres
tres=INPUTBOX("escribe el codigo")
if tres="" then
else
filetxt.WriteLine("msgbox"+""""+tres+"""")
end if
dim cuatro
cuatro=INPUTBOX("escribe el codigo")
if cuatro="" then
else
filetxt.WriteLine("msgbox"+""""+cuatro+"""")
end if
dim cinco
cinco=INPUTBOX("escribe el codigo")
if cinco="" then
else
filetxt.WriteLine("msgbox"+""""+cinco+"""")
end if

después lo guardas como .vbs es decir lo guardas así: "crear vbss.vbs".

Nota: Este archivo te pide palabras y después crea en el escritorio un archivo vbs que dice tus palabras.

Para saber todos los archivos, subcarpetas y archivos de dentro de las subcarpetas de una carpeta (.vbs):

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Users\Lenovo\Desktop"
Set objFolder = objFSO.GetFolder(objStartFolder)
Wscript.Echo objFolder.Path
Set colFiles = objFolder.Files
For Each objFile in colFiles
    Wscript.Echo objFile.Name
Next
Wscript.Echo
ShowSubfolders objFSO.GetFolder(objStartFolder)
Sub ShowSubFolders(Folder)
    For Each Subfolder in Folder.SubFolders
        Wscript.Echo Subfolder.Path
        Set objFolder = objFSO.GetFolder(Subfolder.Path)
        Set colFiles = objFolder.Files
        For Each objFile in colFiles
            Wscript.Echo objFile.Name
        Next
        Wscript.Echo
        ShowSubFolders Subfolder
    Next
End Sub

después lo guardas como .vbs es decir lo guardas así: "ver contiene.vbs".

Para ocultar o ver las extensiones de archivo en tu pc (.vbs):

FileExt = "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt"
Set Sh = WScript.CreateObject("WScript.Shell")
St = Sh.RegRead(FileExt)
If St = 1 Then
Sh.RegWrite FileExt, 0, "REG_DWORD"
Else
Sh.RegWrite FileExt, 1, "REG_DWORD"
End If
Sh.SendKeys("{F5}")

después lo guardas como .vbs es decir lo guardas así: "ver o ocultar extensiones.vbs".

Para descargar un archivo de internet con vbs (.vbs):

On Error Resume Next
Err.Clear
strFileURL = "https://download1648.mediafire.com/mlc0tdxgbojg/bsfwjz9vmr7zcxx/Notes+program.exe"
strHDLocation = "C:\Users\"+CreateObject("WScript.Network").UserName+"\Desktop\Notes program.exe"
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
Set objXMLHTTP = Nothing
if  Err.Number <> 0  then   
  msgbox("El archivo no se descargo correctamente, vuelva a intentar")
else
msgbox("Archivo descargado con exito")
end if

después lo guardas como .vbs es decir lo guardas así: "descargar archivo.vbs".

---En caso de error repetidamente aquí esta el código original:---

strFileURL = "www.sitio de internet.com/archivo.zip"
strHDLocation = "Directorio donde se guardara el archivo / archivo.zip"
Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP")
objXMLHTTP.open "GET", strFileURL, false
objXMLHTTP.send()
If objXMLHTTP.Status = 200 Then
Set objADOStream = CreateObject("ADODB.Stream")
objADOStream.Open
objADOStream.Type = 1 'adTypeBinary
objADOStream.Write objXMLHTTP.ResponseBody
objADOStream.Position = 0    'Set the stream position to the start
Set objFSO = Createobject("Scripting.FileSystemObject")
If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation
Set objFSO = Nothing
objADOStream.SaveToFile strHDLocation
objADOStream.Close
Set objADOStream = Nothing
End if
Set objXMLHTTP = Nothing

Para abrir el panel de control (.vbs):

Set objShell = CreateObject("Wscript.Shell")
objShell.Run "explorer.exe shell:ControlPanelFolder"

después lo guardas como .vbs es decir lo guardas así: "abrir panel de control.vbs".

Para ver la cantidad de RAM disponible (.vbs):

strComputer = "."
Set objWMIService = GetObject("winmgmts:"   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery ("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colSettings 
    Wscript.Echo("RAM disponible: " & objOperatingSystem.FreePhysicalMemory)
Next

después lo guardas como .vbs es decir lo guardas así: "Ver RAM.vbs".

Para crear un bucle y que lo repita (.vbs):

do
msgbox("Hola")
loop

Nota: para salir del bucle debes de poner "exit do" en alguna parte del código
después lo guardas como .vbs es decir lo guardas así: "bucle.vbs".

Excepción (.vbs):

On Error Resume Next
Err.Clear
msgbox("Aqui va tu codigo")
if  Err.Number <> 0  then   
  msgbox("Aqui va el error que deseeas poner")
else
msgbox("Aqui va cuando todo sale bien")
end if

después lo guardas como .vbs es decir lo guardas así: "error.vbs".

Para crear un archivo de texto con contenido (.vbs):

dim filesys, filetxt
set filesys = CreateObject("Scripting.FileSystemObject")
set filetxt = filesys.CreateTextFile("C:\Users\Lenovo\Desktop\somefile1.txt",true)
filetxt.WriteLine("aplicaciones gratis.")
filetxt.WriteLine("hola.")
filetxt.WriteLine("amigos.")

después lo guardas como .vbs es decir lo guardas así: "crear archivo de texto.vbs".

Para aumentar texto a un archivo de texto (.vbs):

dim filesys, filetxt
Const ForReading = 1, ForWriting = 2, ForAppending = 8
set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.OpenTextFile("C:\Users\Lenovo\Desktop\somefile.txt",ForAppending,True)
filetxt.WriteLine("aplicaciones gratis.")
filetxt.WriteLine("hola.")
filetxt.WriteLine("amigos.")
filetxt.Close

después lo guardas como .vbs es decir lo guardas así: "aumentartextoaarchivodetexto.vbs".

Eliminar un archivo (.vbs):

dim filesys, demofile
set filesys = CreateObject ("Scripting.FileSystemObject")
If (filesys.FileExists("C:\Users\Lenovo\Desktop\somefile.txt")) Then
set demofile = filesys.GetFile("C:\Users\Lenovo\Desktop\somefile.txt") 
demofile.Delete
msgbox("El archivo se elimino con exito")
Else
 WScript.Echo("El archivo no existe!") 
End If
WScript.Quit()

después lo guardas como .vbs es decir lo guardas así: "eliminar un archivo.vbs"

Para aumentar y quitar atributos a un archivo (.vbs):

Dim fs, f
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile("C:\Users\Lenovo\Desktop\Nueva carpeta\Nuevo documento de texto.txt")   
  If f.attributes and 2 Then
     f.attributes = f.attributes - 2
else
  f.attributes = f.attributes + 2
end if

después lo guardas como .vbs es decir lo guardas así: "poner atributos.vbs".

Para verificar que un archivo existe (.vbs):

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("C:\Users\Lenovo\Desktop\pri.PNG")) Then 
WScript.Echo("El archivo existe!")
 Else
 WScript.Echo("El archivo no existe!")
 End If
WScript.Quit()

después lo guardas como .vbs es decir lo guardas así: "verificarexiste.vbs".

Para verificar que una carpeta exista (.vbs):

Set fso = CreateObject("Scripting.FileSystemObject")
Set shl = CreateObject("WScript.Shell")
path="C:\Users\CYBERTEL\Desktop\visual studio\"    
exists = fso.FolderExists(path)
if (exists) then 
   msgbox("existe")
else
msgbox("no existe")
end if

después lo guardas como .vbs es decir lo guardas así: "verificarexistecarpeta.vbs".

Para saber el nombre de usuario (.vbs):

msgbox(CreateObject("WScript.Network").UserName)

después lo guardas como .vbs es decir lo guardas así: "nombreusu.vbs".

Para saber la carpeta actual de el código vbs (.vbs):

set my_shell = CreateObject ("WScript.Shell")
set file_system = CreateObject ("Scripting.FileSystemObject")
my_shell.CurrentDirectory = file_system.GetParentFolderName (Wscript.ScriptFullName)
msgbox(my_shell.CurrentDirectory)

después lo guardas como .vbs es decir lo guardas así: "carpecodi.vbs".

Para apagar la computadora (.vbs):

Abre el Bloc de notas. Es el programa gratuito de edición de texto que viene con todas las versiones de Windows. Puedes usarlo para crear un comando que, al ejecutarlo, cierre Windows por ti.
Puedes encontrar el Bloc de notas haciendo clic en el menú "Inicio" y seleccionando "Programas" → "Accesorios" → "Bloc de notas". También puedes hacer clic en el menú "Inicio", escribir Bloc de notas en la barra de búsqueda y presionar ↵ Enter.
Escribe:

shutdown.exe -s

en la primera línea. Este es el comando para apagar la computadora.
Agrega un temporizador usando la etiqueta .-t. En forma predeterminada, el proceso de apagado se retardará 30 segundos. Puedes cambiar esto usando la etiqueta -t con el número de segundos que quieras retardar el apagado.
Por ejemplo, para crear un comando de apagado que espere 45 segundos, escribe shutdown.exe -s -t 45.
Para crear un comando que apague la computadora de inmediato, escribe shutdown.exe -s -t 00.
Agrega un mensaje para mostrar. Si quieres, puedes agregarle un mensaje personalizado a la notificación de apagado usando la etiqueta -c. Usando el ejemplo anterior, escribe shutdown.exe -s -t 45 -c "comentario". El comentario debe ir entre comillas[1] .
Por ejemplo, puedes comunicarle al usuario en cuánto tiempo comenzará a apagarse la computadora escribiendo shutdown.exe -s -t 45 -c "La computadora se apagará en 45 segundos"
después de eso pones guardar como escribes el nombre que quieras y pones a su lado .vbs
por ejemplo " apagarcompu.vbs " y lo guardas

Esto es para que se habrán varios archivos al mismo tiempo sin parar nunca (a menos que reinicies tu ordenador) (.bat).

@echo off
:bucle 
start nombre del archivo.extension
goto bucle

Nota: En donde dice "nombre del archivo" pones el nombre de tu archivo (tu archivo no se abrirá si no esta guardado en la misma carpeta o tiene un espacio en el nombre), y en donde dice extensión pones la extensión, por ejemplo: .exe
después lo guardas con el nombre mas .bat, por ejemplo "virus.bat ".

Esto es para escribir algo, en este caso hola soy yo (.vbs):

WScript.Sleep 1800
WScript.Sleep 1000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 100
WshShell.AppActivate "Notepad"
WScript.Sleep 500
WshShell.SendKeys "H"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "l"
WScript.Sleep 500
WshShell.SendKeys "a"
WScript.Sleep 500
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.SendKeys "s"
WScript.Sleep 500
WshShell.SendKeys "o"
WScript.Sleep 500
WshShell.SendKeys "y"
WScript.Sleep 500
WshShell.SendKeys " "
WScript.Sleep 500
WshShell.SendKeys "y"
WScript.Sleep 500
WshShell.SendKeys "o"