API tools faq
paste
AutoitHacks

Usebe 1.0

AutoitHacks
Feb 21st, 2012
420
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 7.04 KB | None | 0 0
raw download clone embed print report
  1. ;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  2. ;||||                                                      ||||
  3. ;|||| http://autoithacks.tk/2012/02/usebe-1-0-au3sencillo/ ||||
  4. ;||||     http://www.youtube.com/watch?v=Bdit_IVIOkE       ||||
  5. ;||||                                                      ||||
  6. ;||||    Created By Jessus Herrera - AutoitHacks Admin     ||||
  7. ;||||                                                      ||||
  8. ;||||                    Maricela <3                       ||||
  9. ;||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  10.  
  11. #NoTrayIcon
  12. #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
  13. #AutoIt3Wrapper_Version=beta
  14. #AutoIt3Wrapper_Outfile=Nueva carpeta\USEBE_x86.exe
  15. #AutoIt3Wrapper_Outfile_x64=Nueva carpeta\USEBE_x64.exe
  16. #AutoIt3Wrapper_Compile_Both=y
  17. #AutoIt3Wrapper_UseX64=y
  18. #AutoIt3Wrapper_Res_Description=www.AutoitHacks.tk
  19. #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
  20. #AutoIt3Wrapper_Res_LegalCopyright=AutoitHacks!
  21. #AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker
  22. #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
  23. #include <ButtonConstants.au3>
  24. #include <EditConstants.au3>
  25. #include <GUIConstantsEx.au3>
  26. #include <StaticConstants.au3>
  27. #include <WindowsConstants.au3>
  28. #include <GuiEdit.au3>
  29.  
  30. FileInstall("icon.ico",@TempDir & "\icon.ico",1)
  31. FileInstall("splash.jpg",@TempDir & "\splash.jpg",1)
  32.  
  33. SplashImageOn("",@TempDir & "\splash.jpg","500","150","-1","-1",3)
  34. Sleep(3000)
  35. SplashOff()
  36. #Region ### START Koda GUI section ### Form=usebe xD.kxf
  37. $Form1 = GUICreate("USEBE 1.0 - AutoitHacks", 344, 297, -1, -1)
  38. GUISetBkColor(0xFFFFFF)
  39. $Icon1 = GUICtrlCreateIcon(@TempDir & "\icon.ico", -1, 0, 0, 128, 128)
  40. $Group1 = GUICtrlCreateGroup("", 128, 0, 209, 129)
  41. $Label1 = GUICtrlCreateLabel("Unidad:", 136, 16, 48, 17)
  42. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  43. GUICtrlSetColor(-1, 0xC0C0C0)
  44. $Label2 = GUICtrlCreateLabel("unidaddad", 184, 16, 142, 17)
  45. $Label3 = GUICtrlCreateLabel("Capacidad:", 136, 40, 68, 17)
  46. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  47. GUICtrlSetColor(-1, 0xC0C0C0)
  48. $Label4 = GUICtrlCreateLabel("Label4", 208, 40, 116, 17)
  49. $Label5 = GUICtrlCreateLabel("Autorun:", 136, 64, 52, 17)
  50. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  51. GUICtrlSetColor(-1, 0xC0C0C0)
  52. $Label6 = GUICtrlCreateLabel("autorun", 192, 64, 140, 17)
  53. $deleteauto = GUICtrlCreateButton("Eliminar Autorun", 136, 96, 195, 25)
  54. GUICtrlCreateGroup("", -99, -99, 1, 1)
  55. $Group2 = GUICtrlCreateGroup("", 8, 128, 329, 161)
  56. $Label7 = GUICtrlCreateLabel("Examinando Archivo:", 16, 144, 123, 17)
  57. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  58. GUICtrlSetColor(-1, 0xC0C0C0)
  59. $Label8 = GUICtrlCreateLabel("", 144, 144, 180, 17)
  60. $Label9 = GUICtrlCreateLabel("Archivos Eliminados:", 16, 168, 121, 17)
  61. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  62. GUICtrlSetColor(-1, 0xC0C0C0)
  63. $Label10 = GUICtrlCreateLabel("VERSION DE PRUEBA", 144, 168, 185, 17)
  64. GUICtrlSetState(-1, $GUI_DISABLE)
  65. GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
  66. GUICtrlSetColor(-1, 0xFF0000)
  67. $buy = GUICtrlCreateButton("Comprar", 80, 256, 75, 25)
  68. $second = GUICtrlCreateButton("Segundo Plano", 160, 256, 91, 25)
  69. GUICtrlSetState(-1, $GUI_DISABLE)
  70. $exit = GUICtrlCreateButton("Salir", 256, 256, 75, 25)
  71. $Edit1 = GUICtrlCreateEdit("", 16, 192, 313, 57, $WS_VSCROLL)
  72. GUICtrlSetData(-1, "")
  73. GUICtrlSetState(-1, $GUI_DISABLE)
  74. GUICtrlCreateGroup("", -99, -99, 1, 1)
  75. GUISetState(@SW_SHOW)
  76. #EndRegion ### END Koda GUI section ###
  77.  
  78. Local $aArray = DriveGetDrive("REMOVABLE")
  79. If @error Then
  80.     GUICtrlDelete($Label2)
  81.     GUICtrlSetData($Label4,"//")
  82.     $Label2 = GUICtrlCreateLabel("No hay unidades conectadas", 184, 16, 142, 17)
  83.     GUICtrlSetColor(-1, 0xFF0000)
  84.     GUICtrlDelete($deleteauto)
  85.     $deleteauto = GUICtrlCreateButton("Eliminar Autorun", 136, 96, 195, 25)
  86.     GUICtrlSetState(-1, $GUI_DISABLE)
  87.     _GUICtrlEdit_SetText($Edit1, "No Hay Unidad USB..." & @CRLF)
  88.     GUICtrlDelete($Label8)
  89.     $Label8 = GUICtrlCreateLabel("No Hay Unidad...", 144, 144, 180, 17)
  90.     MsgBox(16,"Error!!","No hay ninguna unidad conectada, conecte su usb o dispositivo y reinicie el programa.")
  91.  
  92.  
  93. Else
  94.     For $i = 1 To $aArray[0]
  95.         GUICtrlDelete($Label2)
  96.         $Label2 = GUICtrlCreateLabel("" & StringUpper($aArray[$i]), 184, 16, 142, 17)
  97.         $iTotalSpace = DriveSpaceTotal("" & $aArray[$i])
  98.         GUICtrlSetData($Label4, $iTotalSpace & " MB")
  99.     Next
  100. EndIf
  101.  
  102. $autorun = DriveGetDrive("REMOVABLE")
  103.  
  104. if @error Then
  105.     GUICtrlDelete($Label6)
  106.     $Label6 = GUICtrlCreateLabel("//", 192, 64, 140, 17)
  107. Else
  108.    For $ia = 1 To $autorun[0]
  109.  
  110.    If FileExists($autorun[$ia] & "\autorun.inf") Then
  111.  
  112.       GUICtrlDelete($Label6)
  113.       $Label6 = GUICtrlCreateLabel("Presente", 192, 64, 140, 17)
  114.       GUICtrlSetColor(-1, 0xFF0000)
  115.  
  116.    Else
  117.  
  118.       GUICtrlDelete($Label6)
  119.       $Label6 = GUICtrlCreateLabel("Sin Autorun", 192, 64, 140, 17)
  120.       GUICtrlDelete($deleteauto)
  121.       $deleteauto = GUICtrlCreateButton("Eliminar Autorun", 136, 96, 195, 25)
  122.       GUICtrlSetState(-1, $GUI_DISABLE)
  123.  
  124.    EndIf
  125.  
  126. Next
  127. EndIf
  128.  
  129.  
  130. $source = GUICtrlRead($Label2)
  131.  
  132. Dim $FolderName = $source & "\"
  133. Dim $FileCount = 0
  134.  
  135. ScanFolder($FolderName)
  136.  
  137. Func ScanFolder($SourceFolder)
  138.     Local $Search
  139.     Local $File
  140.     Local $FileAttributes
  141.     Local $FullFilePath
  142.  
  143.     $Search = FileFindFirstFile($SourceFolder & "\*.*")
  144.  
  145.     While 1
  146.         If $Search = -1 Then
  147.             ExitLoop
  148.         EndIf
  149.  
  150.         $File = FileFindNextFile($Search)
  151.         If @error Then ExitLoop
  152.  
  153.         $FullFilePath = $SourceFolder & "\" & $File
  154.         $FileAttributes = FileGetAttrib($FullFilePath)
  155.  
  156.         If StringInStr($FileAttributes,"D") Then
  157.             ScanFolder($FullFilePath)
  158.         Else
  159.             LogFile($FullFilePath)
  160.         EndIf
  161.  
  162.     WEnd
  163.  
  164.     FileClose($Search)
  165. EndFunc
  166.  
  167. Func LogFile($FileName)
  168.     FileWriteLine(@DesktopDir & "\UsebeListArchive.txt",$FileName)
  169.     $FileCount += 1
  170.     GUICtrlDelete($Label8)
  171.     $Label8 = GUICtrlCreateLabel($FileCount & "", 144, 144, 180, 17)
  172.     _GUICtrlEdit_SetText($Edit1, $FileName & "" & @CRLF)
  173.     Sleep(50)
  174.     FileWriteLine(@DesktopDir & "\UsebeListArchive.txt","---------------------------------------------------------------------------------")
  175. EndFunc
  176.     _GUICtrlEdit_SetText($Edit1, "Terminado..." & @CRLF)
  177.     GUICtrlDelete($Label8)
  178.     $Label8 = GUICtrlCreateLabel("Terminado...", 144, 144, 180, 17)
  179.  
  180.  
  181. While 1
  182.     $nMsg = GUIGetMsg()
  183.     Switch $nMsg
  184.         Case $GUI_EVENT_CLOSE
  185.             Exit
  186.  
  187.         Case $deleteauto
  188.             $source = GUICtrlRead($Label2)
  189.             FileDelete($source & "\autorun.inf")
  190.  
  191.         Case $buy
  192.             MsgBox(0,"Comprar?? para nada :D","Este Software es freeware xD y no tienes que comprarlo :D" & @CRLF & "un ejemplo mas creado por Jesus Herrera para AutoitHacks" & @CRLF & "Saludos!!" & @CRLF & @CRLF & "email: [email protected]" & @CRLF & "www.autoithacks.tk" & @CRLF & "http://www.youtube.com/user/autoithacks")
  193.         Case $second
  194.             ;Deshabilitado
  195.         Case $exit
  196.             MsgBox(0,"GRACIAS!!! :D","Gracias por usar este humilde ejemplo y por visitar nuestra pagina :D" & @CRLF & "un abrazo y agradecimiento muy grande por seguirnos por todo este tiempo n.n" & @CRLF & "registrate y aporta,comparte tus conocimientos en autoit :D bendiciones" & @CRLF & @CRLF & "www.autoithacks.tk")
  197.             Exit
  198.  
  199.     EndSwitch
  200. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!