cazador, ayuda

bath_hack · Mensaje por **bath_hack** » 30 Mar 2009, 17:17

Hola amigos de la programacion, primero me sale error, no lo puedo abrir y despues no se si esta bien el codigo, lo q hace en general este programa es buscar un archivo, decir sus atributos y borrarlo, buscar un directorio o carpeta y borrarlo.
Ya antes había preguntado algo, estuve buscando ese post pero no lo pude encontrar si lo encuentran muevan esto ahi, saludos.

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\administrador\mis documentos\programacion autoit\cazador\cazador.kxf
$Form1_1 = GUICreate("C-A-Z-A-D-O-R  by G-MundoSoft", 457, 416, 189, 117)
GUISetBkColor(0x000000)
$Group1 = GUICtrlCreateGroup("Introduzca la ruta del archivo a encontar: ", 8, 72, 433, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Buscar", 96, 152, 233, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetCursor (-1, 3)
$Button2 = GUICtrlCreateButton("Salir", 24, 344, 81, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
$Button3 = GUICtrlCreateButton("Visitar web del autor ", 280, 344, 153, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
$Input1 = GUICtrlCreateInput("Input1", 16, 96, 417, 21)
$Button4 = GUICtrlCreateButton("versión", 152, 344, 81, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetCursor (-1, 4)
$Label1 = GUICtrlCreateLabel("Para proceder a la detección y eliminación del archivo maligno que está en su sistema debe", 8, 16, 436, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("introducir la ruta completa, ejemplo: C:/Archivos de Programa/virus.exe", 8, 32, 339, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("Todos los Derechos Reservados", 48, 392, 159, 17)
GUICtrlSetBkColor(-1, 0x808080)
$Label4 = GUICtrlCreateLabel("Powered by Autoit.es", 280, 392, 104, 17)
GUICtrlSetBkColor(-1, 0x808080)
$Group2 = GUICtrlCreateGroup("Introduzca la ruta de la carpeta a borrar: ", 8, 216, 433, 57)
$Input2 = GUICtrlCreateInput("Input2", 16, 240, 417, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button5 = GUICtrlCreateButton("Borrar", 120, 288, 185, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetCursor (-1, 3)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
   Case $GUI_EVENT_CLOSE
      exit
   Case $Button1
      If FileExists(GUICtrlRead($input1)) then
         $attrib = FileGetAttrib (GUICtrlRead($input1))
         MsgBox(4096,":)>", "archivo encontrado" & @CRLF & "Atributos " & $attrib)
         If StringInStr($attrib, "ASH") Then
            MsgBox(4096,"", "Archivo de sistema y oculto")
			FileDelete (GUICtrlRead($input1))
			MsgBox(64,"Busqueda finalizada","Archivo borrado con exito.")
         elseif StringInStr($attrib, "DT") And StringInStr($attrib, "DT") Then
            MsgBox(64,"Info","Carpeta temporal")
			FileDelete (GUICtrlRead($input1))
			MsgBox(64,"Busqueda finalizada","Archivo borrado con exito.")

         EndIf
      Else
         MsgBox(4096,"aviso", "Archivo especificado no existe.")
	 EndIf
	 
  Case $Button2 
	  exit
Case $Button4
	Msgbox (64,"versión","Cazador by G-MunsoSoft versión 1.0; Prohibida la copia parcial o total, distribución o comercialización del programa sin autorización del autor.")
	
  Case $Button3
	  ShellExecute("http://www.gmundosoft.webcindario.com/")
	
Case $Button4
	Msgbox (64,"versión","Cazador by G-MunsoSoft versión 1.0; Prohibida la copia parcial o total, distribución o comercialización del programa sin autorización del autor.")
   
   Case $Button5 
	If FileExists(GUICtrlRead($input2)) then 
	$attrib = DirRemove (GUICtrlRead($input2))
MsgBox(64,"Busqueda finalizada","Directorio borrado con exito.")

EndSwitch 
WEnd

Jonny · Mensaje por **Jonny** » 30 Mar 2009, 18:48

Hola

Tienes que fijarte más...
Una de las cosas que más agradezco de autoit, es la exactitud de los errores cuando algo está mal en el código.
Lo digo, porqe se de otros lenguajes, en los que te dice qe hay un error en la línea 79 (como en tu caso) y en realidad está en la 87...

Si miras el código que has puesto, es fácil ver dónde está el error.
BUSCA!!!!!!

Aquí tienes el código con el error que te impedía ejecutar el programa corregido. Solo eso, No he mirado si cumple con lo que quieres hacer.

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=c:\documents and settings\administrador\mis documentos\programacion autoit\cazador\cazador.kxf
$Form1_1 = GUICreate("C-A-Z-A-D-O-R  by G-MundoSoft", 457, 416, 189, 117)
GUISetBkColor(0x000000)
$Group1 = GUICtrlCreateGroup("Introduzca la ruta del archivo a encontar: ", 8, 72, 433, 65)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Buscar", 96, 152, 233, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetCursor (-1, 3)
$Button2 = GUICtrlCreateButton("Salir", 24, 344, 81, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
$Button3 = GUICtrlCreateButton("Visitar web del autor ", 280, 344, 153, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
$Input1 = GUICtrlCreateInput("Input1", 16, 96, 417, 21)
$Button4 = GUICtrlCreateButton("versión", 152, 344, 81, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetCursor (-1, 4)
$Label1 = GUICtrlCreateLabel("Para proceder a la detección y eliminación del archivo maligno que está en su sistema debe", 8, 16, 436, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("introducir la ruta completa, ejemplo: C:/Archivos de Programa/virus.exe", 8, 32, 339, 17)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label3 = GUICtrlCreateLabel("Todos los Derechos Reservados", 48, 392, 159, 17)
GUICtrlSetBkColor(-1, 0x808080)
$Label4 = GUICtrlCreateLabel("Powered by Autoit.es", 280, 392, 104, 17)
GUICtrlSetBkColor(-1, 0x808080)
$Group2 = GUICtrlCreateGroup("Introduzca la ruta de la carpeta a borrar: ", 8, 216, 433, 57)
$Input2 = GUICtrlCreateInput("Input2", 16, 240, 417, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button5 = GUICtrlCreateButton("Borrar", 120, 288, 185, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetCursor (-1, 3)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
   Case $GUI_EVENT_CLOSE
      exit
   Case $Button1
      If FileExists(GUICtrlRead($input1)) then
         $attrib = FileGetAttrib (GUICtrlRead($input1))
         MsgBox(4096,":)>", "archivo encontrado" & @CRLF & "Atributos " & $attrib)
         If StringInStr($attrib, "ASH") Then
            MsgBox(4096,"", "Archivo de sistema y oculto")
         FileDelete (GUICtrlRead($input1))
         MsgBox(64,"Busqueda finalizada","Archivo borrado con exito.")
         elseif StringInStr($attrib, "DT") And StringInStr($attrib, "DT") Then
            MsgBox(64,"Info","Carpeta temporal")
         FileDelete (GUICtrlRead($input1))
         MsgBox(64,"Busqueda finalizada","Archivo borrado con exito.")

         EndIf
      Else
         MsgBox(4096,"aviso", "Archivo especificado no existe.")
    EndIf
    
  Case $Button2 
     exit
Case $Button4
   Msgbox (64,"versión","Cazador by G-MunsoSoft versión 1.0; Prohibida la copia parcial o total, distribución o comercialización del programa sin autorización del autor.")
   
  Case $Button3
     ShellExecute("http://www.gmundosoft.webcindario.com/")
   
Case $Button4
   Msgbox (64,"versión","Cazador by G-MunsoSoft versión 1.0; Prohibida la copia parcial o total, distribución o comercialización del programa sin autorización del autor.")
   
   Case $Button5 
   If FileExists(GUICtrlRead($input2)) then 
   $attrib = DirRemove (GUICtrlRead($input2))
MsgBox(64,"Busqueda finalizada","Directorio borrado con exito.")
EndIf
EndSwitch 
WEnd

Salu2!

bath_hack · Mensaje por **bath_hack** » 01 Abr 2009, 16:16

Gracias por la corrección; saludos.

bath_hack · Mensaje por **bath_hack** » 15 Dic 2015, 18:20

la primera version en autoit no funcionaba

, hace unos días la hice en batch y funciona joya, hoy estube haciendo la nueva version en autoit (seria la version 1.3) y parece que funciona bien pero tengo que hacer algunos retoques, asi que hoy pongo el link a la version 1.1 en batch, como para que no quede inconcluso el tema.

http://gmundosoft.webcindario.com/cazad ... dosoft.htm

lo que hace es al principio preguntar el idioma deseado (castellano o ingles) y luego tiene un menu dónde elegimos:

-borrar un archivo único (ideal cuando estamos en el directorio de windows y no podemos borrar todo porque nos quedamos sin sistema)
-borrar varios archivos (arrazamos con todas las extensiones de archivo que previamente le hayamos indicado)

funciona indicandole la ruta del archivo (ejemplo: c:/archivos/jose) y la extension (ejemplo .exe .bat etc)

Nota: el archivo .bat lo compile en un archivo ejecutable (.exe) con descripción del soft como company, etc y algunos antivirus le dan un falso positivo

al estar compilado así ,pero quedense tranquilos que es una herramienta para entendidos y no un virus. Justamente por ese motivo va a salir la version autoit (para que no de el falso positivo y no me hagan mala reputación

)

saludos.

bath_hack · Mensaje por **bath_hack** » 16 Dic 2015, 14:50

Ya esta lista la version 1.3 programada en autoit:

http://gmundosoft.webcindario.com/cazadorv1.3.htm

saludos!

Autoit.ES

cazador, ayuda

cazador, ayuda

Re: cazador, ayuda

Re: cazador, ayuda

Re: cazador, ayuda

Re: cazador, ayuda