cazador, ayuda
Publicado: 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.
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