dmlque

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 BASICel sistema solo borra archivos que especifican los archivos batEste es un ejemplo de batch@echooff Del/f /q "C:Users%USERNAME% DesktopMy SharedFolder" exit @echo off ExplicaciónCon 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 procesosPuedes 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.0InicioPrivate 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 SubPrivate 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 IfEnd SubPrivate Sub lblLabels_Click(Index As Integer)End SubEn "Private Sub cmdOK_Click()" esta la contraseña dice leon cambia por lo que quierasMenuPrivate 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 IfEnd SubPrivate Sub Command2_Click()Salida2.ShowUnload MeEnd SubPrivate Sub Form_Load()Text1.Text = DateTime.Now()End SubPrivate Sub Label2_Click()End SubPrivate 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 IfSalida De Inicio Private Sub Command1_Click()EndEnd SubPrivate Sub Command2_Click()inicio.ShowUnload MeEnd SubPrivate Sub Form_Load()End SubSalida De Menu Private Sub Command1_Click()EndEnd SubPrivate Sub Command2_Click()menu.ShowUnload MeEnd SubBy Cyber Leon