Autoit.ES

Publicado: **29 Oct 2014, 15:48**

Buenos días con todos, tengo un problema ENORME con mi script sucede lo siguiente.
Hago clic en el botón Analizar y analiza correctamente las unidades seleccionadas.
Luego procedo a abrir una ventana hija por ejemplo "Acerca de" la cierro y vuelvo analizar y se cuelga el programa y sale un mensaje sobre Depurar y Cerrar Programa
Antes funcionaba bien, para que ahora funcione sin colgarse le pongo después del GuiDelete ($guiAcercaDe) un label (creo un label en una parte donde no se note) y ahí si funciona bien.
A alguien le ha sucesido, sabe como solucionarlo?

Publicado: **29 Oct 2014, 18:18**

Hola..
Explicame mas acerca de tu problema, tal vez sea algo que me ocurrió con una aplicación mía,

Cual es el mensaje que te sale al colgarse el programa?
Como haces para mostrar el dialogo acerca de? Tienes un codigo de ejemplo?

Le creas un label al form principal para que funcione después de eliminar el dialogo acerca de?
Saludos

Publicado: **29 Oct 2014, 18:38**

Correcto le creo un label al from principal luego de cerrar el Acerca de.

GUICtrlSetOnEvent($Acercadeavy, "_Clic_acerca_de_avy") ;

ventanita AcercaDe.. con sus respectivos eventos

Código: Seleccionar todo

Func _Clic_acerca_de_avy()
	Local $Link,$posWin
	GUISetState(@SW_DISABLE, $WinH)
	$posWin = WinGetPos("Avy Antivirus ")
	$Form2 = GUICreate('Acerca_de_Avy', 355, 170, $posWin[0] + 260, $posWin[1] + 180, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $GUI_WS_EX_PARENTDRAG), $guiPrincipalAvy)
	GUISetBkColor(0x9ba7b6)

	GUICtrlCreatePic(@AppDataDir & "\Avy_Antivirus\imagenavy.jpg", 8, 35, 116, 130, -1, $GUI_WS_EX_PARENTDRAG)
	GUICtrlCreateLabel("Acerca de Avy", 0, 0, 390, 30, BitOR($SS_CENTER, $SS_CENTERIMAGE), $GUI_WS_EX_PARENTDRAG)
	GUICtrlSetColor(-1, 0xffffff)
	GUICtrlSetBkColor(-1, 0x4b5968);0x222935
	GUICtrlSetFont(-1, 10, 400, -1, "Arial")

	GUICtrlCreateLabel('AVY ' & FileGetVersion(@ScriptFullPath), 135, 35, 260, 33, -1, $GUI_WS_EX_PARENTDRAG)
	GUICtrlSetFont(-1, 12, 800, 0, 'Verdana')
	GUICtrlCreateLabel('Protege tu unidad, protege tu ordenador.', 135, 60, 284, 17, -1, $GUI_WS_EX_PARENTDRAG)

	GUICtrlCreateLabel('Identificador: ', 135, 75, 60, 17, -1, $GUI_WS_EX_PARENTDRAG)
	GUICtrlCreateInput(StringReverse(DriveGetSerial(@HomeDrive)), 198, 75, 130, 15, BitOR($GUI_SS_DEFAULT_INPUT, $ES_READONLY), 0)
	GUICtrlSetBkColor(-1, 0x9ba7b6)

	GUICtrlCreateLabel('Desarrollador: Yasmany Curimilma', 135, 90, 284, 17, -1, $GUI_WS_EX_PARENTDRAG)
	$Link1 = GUICtrlCreateLabel('yasmanycurimilma.wordpress.com', 135, 105, 250, 17, -1, $GUI_WS_EX_PARENTDRAG)
	GUICtrlSetOnEvent($Link1, "_link1")
	GUICtrlSetColor(-1, 0x0000FF)
	GUICtrlSetCursor(-1, 0)

	$Link2 = GUICtrlCreateLabel('www.facebook.com/yasmanycurimilma', 135, 120, 250, 17, -1, $GUI_WS_EX_PARENTDRAG)
	GUICtrlSetOnEvent($Link2, "_link2")
	GUICtrlSetColor(-1, 0x0000FF)
	GUICtrlSetCursor(-1, 0)

	$2Button = GUICtrlCreateButton('Aceptar', 235, 140, 105, 25)
	GUICtrlSetOnEvent($2Button, "_salirDeAcercaDeAvy")
	GUICtrlSetState($2Button, $GUI_DEFBUTTON)
	GUISetState(@SW_SHOW,WinGetHandle($Form2))
	_GuiRoundCorners($Form2, 0, 0, 10, 10, 0)
	Do
	Until $GUI_EVENT_CLOSE
EndFunc   ;==>_Clic_acerca_de_avy

Func _link1()
	ShellExecute('http://yasmanycurimilma.wordpress.com')
EndFunc   ;==>_link1

Func _link2()
	ShellExecute('http://www.facebook.com/yasmanycurimilma')
EndFunc   ;==>_link2

Func _salirDeAcercaDeAvy()
	GUISetState(@SW_ENABLE, $guiPrincipalAvy)
	GUIDelete(WinGetHandle('Acerca_de_Avy'))
	GUICtrlCreateLabel("",10, 105, 210, 17); para que no se cuelgue
EndFunc   ;==>_salirDeAcercaDeAvy

Publicado: **30 Oct 2014, 04:17**

Lo que podrías hacer es declarar $Form2 como variable Global al principio de tu codigo fuente, así evitas usar WinGetHandle:

Código: Seleccionar todo

Func _salirDeAcercaDeAvy()
   GUIDelete($Form2)
   GUISetState(@SW_ENABLE, $guiPrincipalAvy)

   WinActivate($guiPrincipalAvy)
 EndFunc   ;==>_salirDeAcercaDeAvy

Otra cosa, tu aplicación deja de funcionar antes de realizar el análisis o durante?, solo ocurre esto con el botón analizar?

Publicado: **30 Oct 2014, 16:14**

Gracias PDF por tu ayuda lo tomaré en cuenta, te comento que ayer empecé a sacar del Backup archivos de fechas atrás y pues estuve actualizándolo de acuerdo al actual script TOMÉ alguna medidas e iba comprobando si aquel cambio que iba haciendo daba algun error, al parecer he recuperado mayor parte de las modificaciones que le anda haciendo a mi soft y pues ahora va bien

Algunas cosas se cambiaron pero su funcionalidad es la misma.

la aplicación dejaba de funcionar durante el análisis... pero esto sucedía después de haber cerrando una ventana hija.
Eso de declarar lo aplicaré.
Gracias...

Autoit.ES

Se cuelga el programa

Se cuelga el programa

Re: Se cuelga el programa

Re: Se cuelga el programa

Re: Se cuelga el programa

Re: Se cuelga el programa