API tools faq
paste
Advertisement
XPyro

Aupx 1.0.0.2

XPyro
Jun 5th, 2011
188
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 8.89 KB | None | 0 0
raw download clone embed print report
  1. #NoTrayIcon
  2. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  3. #AutoIt3Wrapper_icon=aupx.ico
  4. #AutoIt3Wrapper_outfile=Aupx1.0.0.2.exe
  5. #AutoIt3Wrapper_Compression=4
  6. #AutoIt3Wrapper_UseUpx=n
  7. #AutoIt3Wrapper_UseX64=n
  8. #AutoIt3Wrapper_Res_Comment=XPYRO SOFT - Mejorando el mañana
  9. #AutoIt3Wrapper_Res_Description=Comprime ejecutables y librerias con Apux
  10. #AutoIt3Wrapper_Res_Fileversion=1.0.0.2
  11. #AutoIt3Wrapper_Res_LegalCopyright=XPYRO SOFT
  12. #AutoIt3Wrapper_Res_Language=2058
  13. #AutoIt3Wrapper_Res_Field=CompanyName|http://softx.comxa.com/
  14. #AutoIt3Wrapper_Res_Field=ProductName|Aupx
  15. #AutoIt3Wrapper_Res_Field=ProductVersion|1.0.0.2
  16. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  17. #include-once
  18. #include <ButtonConstants.au3>
  19. #include <ComboConstants.au3>
  20. #include <GUIConstantsEx.au3>
  21. #include <ListViewConstants.au3>
  22. #include <ProgressConstants.au3>
  23. #include <StaticConstants.au3>
  24. #include <WindowsConstants.au3>
  25. #include <GuiListView.au3>
  26. #include <Misc.au3>
  27.  
  28. If Not FileExists(@ScriptDir & '\upx.exe') Then
  29.     MsgBox(8240, "Aupx 1.0.0.2", "No se encuentra el ejecutable upx.exe en la carpeta upx")
  30.     Exit
  31. EndIf
  32.  
  33. ;Si ya estoy corriendo, cerrarme
  34. _Singleton('28aupx1022')
  35. $Cerrar = 0
  36. $Ver = "1.0.0.2"
  37.  
  38. $Form1 = GUICreate('Aupx ' & $Ver, 483, 354, -1, -1, -1, $WS_EX_ACCEPTFILES)
  39. $ListView1 = GUICtrlCreateListView('Ruta de archivos:|Salida:', 0, 40, 482, 240, -1 , $WS_EX_ACCEPTFILES)
  40. GUICtrlSetState(-1, $GUI_DROPACCEPTED)
  41. GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 310)
  42. GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
  43. $Button1 = GUICtrlCreateButton('Añadir archivo', 8, 8, 107, 25)
  44. $Button3 = GUICtrlCreateButton('Limpiar lista', 232, 8, 91, 25)
  45. GUICtrlSetState(-1, $GUI_DISABLE)
  46. $Button4 = GUICtrlCreateButton('Acerca de', 328, 8, 83, 25)
  47. $Button5 = GUICtrlCreateButton('Salir', 416, 8, 59, 25)
  48. $Button6 = GUICtrlCreateButton('>> Iniciar <<', 8, 296, 107, 41)
  49. GUICtrlSetState(-1, $GUI_DISABLE)
  50. $Checkbox1 = GUICtrlCreateCheckbox('Crear copia de respaldo', 344, 312, 129, 17)
  51. GUICtrlSetState(-1, $GUI_CHECKED)
  52. GUICtrlCreateGroup('Opción:', 128, 288, 97, 57)
  53. $Radio1 = GUICtrlCreateRadio('Comprimir', 136, 304, 65, 17)
  54. GUICtrlSetState(-1, $GUI_CHECKED)
  55. $Radio2 = GUICtrlCreateRadio('Descomprimir', 136, 320, 81, 17)
  56. GUICtrlCreateGroup('', -99, -99, 1, 1)
  57. GUICtrlCreateGroup('Compresión:', 240, 288, 89, 57)
  58. $Combo1 = GUICtrlCreateCombo('', 248, 312, 73, 25)
  59. GUICtrlSetData(-1, '--best|-9|-8|-7|-6|-5|-4|-3|-2|-1', '--best')
  60. GUICtrlCreateGroup('', -99, -99, 1, 1)
  61. GUISetState(@SW_SHOW)
  62.  
  63. While 1
  64.     $nMsg = GUIGetMsg()
  65.     Switch $nMsg
  66.         Case $GUI_EVENT_CLOSE, $Button5
  67.             _Salir()
  68.         Case $Button1
  69.             $Archivo = FileOpenDialog('añadir archivo(s) a la lista', '', 'ejecutables (*.exe)|archivos dll (*.dll)', 7, '', $Form1)
  70.             If Not @error Then
  71.                 GUICtrlSetState($Button6, $GUI_ENABLE)
  72.                 GUICtrlSetState($Button3, $GUI_ENABLE)
  73.                 $Arc = StringSplit($Archivo, '|') ;Divido en variables la ruta dependiendo de '|'
  74.                 If $Arc[0] <> 1 Then ;Si el valos es diferente a 1 entonces
  75.                     For $N = 2 To $Arc[0] ;Añadir barios archivos
  76.                         $bar = StringReplace($Arc[1] & '\' & $Arc[$N], '\\', '\')
  77.                         $Repeat = _GUICtrlListView_FindText($ListView1, $bar)
  78.                         If $Repeat = -1 Then
  79.                             _GUICtrlListView_AddItem($ListView1, $bar)
  80.                         Else
  81.                             MsgBox(8240, 'Aupx ' & $Ver, 'El archivo ya se encuentra en la lista' & @CRLF & @CRLF & $bar)
  82.                         EndIf
  83.                     Next
  84.                 Else
  85.                     $Repeat = _GUICtrlListView_FindText($ListView1, $Archivo)
  86.                     If $Repeat = -1 Then
  87.                         _GUICtrlListView_AddItem($ListView1, $Archivo)
  88.                     Else
  89.                         MsgBox(8240, 'Aupx ' & $Ver, 'El archivo ya se encuentra en la lista' & @CRLF & @CRLF & $Archivo)
  90.                     EndIf
  91.                 EndIf
  92.             EndIf
  93.         Case $Button3 ;limpiar lista
  94.             $Eliminarlista = MsgBox(8228, 'Aupx ' & $Ver, '¿Seguro que desea eliminar todos los archivos de la lista?')
  95.             If $Eliminarlista = 6 Then
  96.                 GUICtrlDelete($ListView1)
  97.                 GUICtrlSetState($Button6, $GUI_DISABLE)
  98.                 GUICtrlSetState($Button3, $GUI_DISABLE)
  99.                 $ListView1 = GUICtrlCreateListView('Ruta de archivos:|Salida:', 0, 40, 482, 240, -1 , $WS_EX_ACCEPTFILES)
  100.                 GUICtrlSetState(-1, $GUI_DROPACCEPTED)
  101.                 GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 310)
  102.                 GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
  103.             EndIf
  104.         Case $Button4
  105.             GUISetState(@SW_DISABLE, $Form1)
  106.             _Acercade()
  107.         Case $Button6
  108.             $Cerrar = 1
  109.             GUICtrlSetData($Button6, 'Parar Todo')
  110.             GUICtrlSetState($Button1, $GUI_DISABLE)
  111.             GUICtrlSetState($Button3, $GUI_DISABLE)
  112.             GUICtrlSetState($Button4, $GUI_DISABLE)
  113.             GUICtrlSetState($Button5, $GUI_DISABLE)
  114.             GUICtrlSetState($Radio1, $GUI_DISABLE)
  115.             GUICtrlSetState($Radio2, $GUI_DISABLE)
  116.             GUICtrlSetState($Combo1, $GUI_DISABLE)
  117.             GUICtrlSetState($Checkbox1, $GUI_DISABLE)
  118.             _Comprimir(0)
  119.             $Cerrar = 0
  120.             GUICtrlSetData($Button6, '>> Iniciar <<')
  121.             GUICtrlSetState($Button1, $GUI_ENABLE)
  122.             GUICtrlSetState($Button3, $GUI_ENABLE)
  123.             GUICtrlSetState($Button4, $GUI_ENABLE)
  124.             GUICtrlSetState($Button5, $GUI_ENABLE)
  125.             GUICtrlSetState($Radio1, $GUI_ENABLE)
  126.             GUICtrlSetState($Radio2, $GUI_ENABLE)
  127.             If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) Then
  128.                 GUICtrlSetState($Combo1, $GUI_ENABLE)
  129.                 GUICtrlSetState($Checkbox1, $GUI_ENABLE)
  130.             EndIf
  131.             $Terminado = MsgBox(8260, 'Aupx ' & $Ver, 'Terminado el proceso de archivos.' & @CRLF & @CRLF & '¿Desea eliminar archivos procesados de la lista?')
  132.             If $Terminado = 6 Then
  133.                 GUICtrlDelete($ListView1)
  134.                 GUICtrlSetState($Button6, $GUI_DISABLE)
  135.                 GUICtrlSetState($Button3, $GUI_DISABLE)
  136.                 $ListView1 = GUICtrlCreateListView('Ruta de archivos:|Salida:', 0, 40, 482, 240, -1 , $WS_EX_ACCEPTFILES)
  137.                 GUICtrlSetState(-1, $GUI_DROPACCEPTED)
  138.                 GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 310)
  139.                 GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 150)
  140.             EndIf
  141.         Case $Radio1
  142.             GUICtrlSetState($Combo1, $GUI_ENABLE)
  143.             GUICtrlSetState($Checkbox1, $GUI_ENABLE)
  144.         Case $Radio2
  145.             GUICtrlSetState($Combo1, $GUI_DISABLE)
  146.             GUICtrlSetState($Checkbox1, $GUI_DISABLE)
  147.         Case $GUI_EVENT_DROPPED
  148.             $Ifexe = StringSplit(@GUI_DragFile, '.')
  149.                 If $Ifexe[$Ifexe[0]] = "exe" Or $Ifexe[$Ifexe[0]] = "dll" Then
  150.                 $Repeat = _GUICtrlListView_FindText($ListView1, @GUI_DragFile)
  151.                 If $Repeat = -1 Then
  152.                     _GUICtrlListView_AddItem($ListView1, @GUI_DragFile)
  153.                 Else
  154.                     MsgBox(8240, 'Aupx ' & $Ver, 'El archivo ya se encuentra en la lista' & @CRLF & @CRLF & @GUI_DragFile)
  155.                 EndIf
  156.                 GUICtrlSetState($Button6, $GUI_ENABLE)
  157.                 GUICtrlSetState($Button3, $GUI_ENABLE)
  158.             Else
  159.                 MsgBox(8240, 'Aupx ' & $Ver, 'El archivo no es un ejecutable PE' & @CRLF & @CRLF & @GUI_DragFile)
  160.             EndIf
  161.     EndSwitch
  162. WEnd
  163.  
  164. Func _Acercade()
  165.     $Form2 = GUICreate('Acerca de', 329, 296, -1, -1, BitOR($WS_CAPTION, $WS_SYSMENU), $WS_EX_TOOLWINDOW, $Form1)
  166.     GUICtrlCreateIcon(@ScriptFullPath, 99, 99, 10, 128, 128, BitOR($SS_NOTIFY, $WS_GROUP))
  167.     GUICtrlCreateLabel('Aupx ' & $Ver, 76, 145, 177, 33)
  168.     GUICtrlSetFont(-1, 18, 800, 0, 'Verdana')
  169.     GUICtrlCreateLabel('Comprime ejecutables y librerias con Aupx', 62, 180, 254, 17)
  170.     GUICtrlCreateLabel('© 2008 - 2010 XPYRO SOFT', 95, 200, 145, 17)
  171.     $Link = GUICtrlCreateLabel('http://softx.comxa.com/', 105, 230, 119, 17)
  172.     GUICtrlSetColor(-1, 0x0000FF)
  173.     GUICtrlSetCursor(-1, 0)
  174.     $2Button1 = GUICtrlCreateButton('Aceptar', 77, 255, 175, 25)
  175.     GUISetState(@SW_SHOW, $Form2)
  176.     Do
  177.         $GMsg = GUIGetMsg()
  178.         If $GMsg = $Link Then ShellExecute('http://softx.comxa.com/')
  179.         Sleep(10)
  180.     Until $GMsg = $GUI_EVENT_CLOSE Or $GMsg = $2Button1
  181.     GUISetState(@SW_ENABLE, $Form1)
  182.     GUIDelete($Form2)
  183. EndFunc   ;==>_Acercade
  184.  
  185. Func _Comprimir($fIndex)
  186.     $ItemTotal = _GUICtrlListView_GetItemCount($ListView1)
  187.     If $fIndex <= $ItemTotal Then
  188.         _GUICtrlListView_AddSubItem($ListView1, $fIndex, 'Trabajando espere...', 1)
  189.         $Ejecutable = _GUICtrlListView_GetItemText($ListView1, $fIndex)
  190.         $size = FileGetSize($Ejecutable)
  191.         If BitAND(GUICtrlRead($Radio1), $GUI_CHECKED) Then
  192.             If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) Then $Respaldo = ' -k '
  193.             If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) <> $GUI_CHECKED Then $Respaldo = ' '
  194.             ShellExecute('upx.exe', GUICtrlRead($Combo1) & $Respaldo & '"' & $Ejecutable & '"', @ScriptDir & '', 'open', @SW_HIDE)
  195.         ElseIf BitAND(GUICtrlRead($Radio2), $GUI_CHECKED) Then
  196.             ShellExecute('upx.exe', '-d ' & '"' & $Ejecutable & '"', @ScriptDir & '', 'open', @SW_HIDE)
  197.         EndIf
  198.         Do
  199.             $nMsg = GUIGetMsg()
  200.             If $nMsg = $Button6 Then ProcessClose('upx.exe')
  201.             If Not ProcessExists('upx.exe') Then
  202.                 $Size2 = FileGetSize($Ejecutable)
  203.                 If $size = $Size2 Then
  204.                     _GUICtrlListView_AddSubItem($ListView1, $fIndex, 'Sin cambios en el archivo', 1)
  205.                 Else
  206.                     _GUICtrlListView_AddSubItem($ListView1, $fIndex, 'Nuevo tamaño ' & Round($Size2 / 1024, 1) & ' KB', 1)
  207.                 EndIf
  208.                 $nMsg = $Button6
  209.                 _Comprimir($fIndex + 1)
  210.             EndIf
  211.             Sleep(5)
  212.         Until $nMsg = $Button6
  213.     EndIf
  214. EndFunc   ;==>_Comprimir
  215.  
  216. Func _Salir()
  217.     If $Cerrar = 0 Then Exit
  218. EndFunc   ;==>_Salir
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!