Hola amigos de taringa hoy le traigo un sistema hecho por mí para ustedes es muísimple y eficaz con un problema recurrente el borra archivos que los usuariosdejan en las PC dirían que use el DeepFreeze pero cuando se apagan variasfunciones como la recuperación de documentos y las partidas de los juegos quese borran y esto es molesto además de las constantes actualizaciones de los juegos como el “S4” esta es una solución muíútil para todos
Este programa está hecho en :
-Visual BASIC 6.0

-Blockde notas (con leguaje batch)


El sistema consiste en comando de batch llamados por Visual BASIC
el sistema solo borra archivos que especifican los archivos bat
Este es un ejemplo de batch
@echooff
Del/f /q "C:Users%USERNAME% DesktopMy SharedFolder"
exit
@echo off

Explicación
Con leguaje batch solo elimina el contenido de una carpetaque tú les pidas únicamente lo que hay dentro no borra las carpetas ni lo quetienen dentro para eso tendrá que hacer otra cadena de códigos.
______________________________________________________________________________________
@echooff <------ con este el código no se cambia el off por el on y versa como se lleva acabo la secuencia
______________________________________________________________________________________
Del/f /q "C:Users%USERNAME% DesktopMy SharedFolder" < ---- esta es la ruta de documento el archivoque quieras eliminar. El %USERNAME% es para especificar el nombre de usuario por ejemplo pc1 o juan
______________________________________________________________________________________
exit < ----cierre de programa
______________________________________________________________________________________

leguaje batch

*ECHO: imprime un texto en pantalla
*@ECHO OFF: oculta los comandos que programamos para que cuando se inicie el bat no se puedan ver los codigos y solo el programa.
* DIR: muestra un listado con el contenido de un directorio.
* TYPE: muestra el contenido de un archivo en pantalla.
* COPY: copia archivos en otro lugar.
* REN (RENAME): renombra archivos.
* DEL: borra uno o varios archivos (con posibilidad de recuperarlos mediante la orden UNDELETE, salvo que el lugar del archivo o archivos borrados hubiese sido utilizado con posterioridad).
* MD o MKDIR: crea un nuevo directorio.
* CD o CHDIR: cambia el directorio actual por el especificado.
* RD o RMDIR: borra un directorio vacío.
* DELTREE: borra un directorio con todo su contenido, incluidos subdirectorios (apareció en las últimas versiones)
* CLS: limpia la pantalla.
* HELP: ayuda sobre las distintas órdenes.
* SORT: ordena Datos
*SHUTDOWN: apaga el ordenador
Direcciones
%ALLUSERSPROFILE% ------> todos los usuarios
%APPDATA% ---------> datos de programa
%PROMPT%%TEMP% y %TMP% ---------> temporales
%USERDOMAIN% -----------> obtener dominio
%USERNAME% --------------->nombre del usuario Actual
%USERPROFILE% ---------------> usuario configuracion
%programfiles% ---------------> archivos de programas
%systemroot% ----------------> windows
%homedrive% --------------> disco Raiz
Mata procesos
Puedes agregar esto después del @echooff o @echo para cerrar un programaque utilice una carpeta por ejemplo el ares solo cambia "ares.exe"este proceso se cerrara automática mente sin ningún problema cambia lo que hayentre comillas para matar otro proceso.
Presiona ctrl + alt + supr e inicia el administrador de tareas (este dependerá de tú Windows que tengas)y busca tu proceso que quieras cerrar
TASKKILL /IM "ares.exe" /F

Visual BASIC 6.0
Inicio
Private Sub cmdCancel_Click()
'establecer la variable global a false
'para indicar un inicio de sesión fallido
LoginSucceeded = False
Me.Hide
salida.Show
Unload Me
End Sub
Private Sub cmdOK_Click()
'comprobar si la contraseña es correcta
If txtPassword = "leon" Then
'colocar código aquí para pasar al sub
'que llama si la contraseña es correcta
'lo más fácil es establecer una variable global
LoginSucceeded = True
Me.Hide
menu.Show
Unload Me
Else
MsgBox "La contraseña no es válida. Vuelva a intentarlo", , "Inicio de sesión"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Private Sub lblLabels_Click(Index As Integer)
End Sub

En "Private Sub cmdOK_Click()" esta la contraseña dice leon cambia por lo que quieras

'establecer la variable global a false
'para indicar un inicio de sesión fallido
LoginSucceeded = False
Me.Hide
salida.Show
Unload Me
End Sub
Private Sub cmdOK_Click()
'comprobar si la contraseña es correcta
If txtPassword = "leon" Then
'colocar código aquí para pasar al sub
'que llama si la contraseña es correcta
'lo más fácil es establecer una variable global
LoginSucceeded = True
Me.Hide
menu.Show
Unload Me
Else
MsgBox "La contraseña no es válida. Vuelva a intentarlo", , "Inicio de sesión"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Private Sub lblLabels_Click(Index As Integer)
End Sub

En "Private Sub cmdOK_Click()" esta la contraseña dice leon cambia por lo que quieras

Menu
Private Sub Command1_Click()
Rem --------------------------1
If Check1.Value = 1 Then
Check1.Caption = "OK"
Shell ("C:Sitema Inicio Del Cyber LeonAB1.bat"
Else
Check1.Caption = "Nada"
End If
Rem --------------------------2
If Check2.Value = 1 Then
Check2.Caption = "OK"
Shell ("C:Sitema Inicio Del Cyber LeonM.bat"
Else
Check2.Caption = "Nada"
End If
Rem --------------------------3
If Check3.Value = 1 Then
Check3.Caption = "OK"
Shell ("C:Sitema Inicio Del Cyber LeonD.bat"
Else
Check3.Caption = "Nada"
End If
Rem --------------------------4
If Check4.Value = 1 Then
Check4.Caption = "OK"
Shell ("C:Sitema Inicio Del Cyber LeonV.bat"
Else
Check4.Caption = "Nada"
End If
Rem --------------------------5
If Check5.Value = 1 Then
Check1.Caption = "Ok"
Shell ("C:Sitema Inicio Del Cyber LeonI.bat"
Else
Check5.Caption = "Nada"
End If
End Sub
Private Sub Command2_Click()
Salida2.Show
Unload Me
End Sub
Private Sub Form_Load()
Text1.Text = DateTime.Now()
End Sub
Private Sub Label2_Click()
End Sub

Private Sub Command1_Click()
Rem --------------------------1
If Check1.Value = 1 Then
Check1.Caption = "OK"
Shell ("C:Sitema Inicio Del Cyber LeonAB1.bat" < - esta es la direcsion del bat y el es un ( pero al otro lado
Else
Check1.Caption = "Nada" < esto es en caso de que el chek1 este vacio saldra esto "Nada"
End If

Salida De Inicio Rem --------------------------1
If Check1.Value = 1 Then
Check1.Caption = "OK"
Shell ("C:Sitema Inicio Del Cyber LeonAB1.bat"
Else
Check1.Caption = "Nada"
End If
Rem --------------------------2
If Check2.Value = 1 Then
Check2.Caption = "OK"
Shell ("C:Sitema Inicio Del Cyber LeonM.bat"
Else
Check2.Caption = "Nada"
End If
Rem --------------------------3
If Check3.Value = 1 Then
Check3.Caption = "OK"
Shell ("C:Sitema Inicio Del Cyber LeonD.bat"
Else
Check3.Caption = "Nada"
End If
Rem --------------------------4
If Check4.Value = 1 Then
Check4.Caption = "OK"
Shell ("C:Sitema Inicio Del Cyber LeonV.bat"
Else
Check4.Caption = "Nada"
End If
Rem --------------------------5
If Check5.Value = 1 Then
Check1.Caption = "Ok"
Shell ("C:Sitema Inicio Del Cyber LeonI.bat"
Else
Check5.Caption = "Nada"
End If
End Sub
Private Sub Command2_Click()
Salida2.Show
Unload Me
End Sub
Private Sub Form_Load()
Text1.Text = DateTime.Now()
End Sub
Private Sub Label2_Click()
End Sub

Private Sub Command1_Click()
Rem --------------------------1
If Check1.Value = 1 Then
Check1.Caption = "OK"
Shell ("C:Sitema Inicio Del Cyber LeonAB1.bat" < - esta es la direcsion del bat y el es un ( pero al otro lado
Else
Check1.Caption = "Nada" < esto es en caso de que el chek1 este vacio saldra esto "Nada"
End If

Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
inicio.Show
Unload Me
End Sub
Private Sub Form_Load()
End Sub

Salida De Menu
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
menu.Show
Unload Me
End Sub
End
End Sub
Private Sub Command2_Click()
menu.Show
Unload Me
End Sub

By Cyber Leon

