elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
61  Programación / Scripting / phyton shutil copy en: 7 Julio 2014, 22:58 pm
Código:
import glob
import shutil
import string,os



    
uni = ['D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N']
for item in uni:


    

for file in glob.glob(r'C:/*.doc'):
    print file                                                                                                                                        
    shutil.copy(file, dest_dir )

necesito algo de ayuda en este script de python ay alguna forma de dejarlo parecido a esto y si me pudieran ayudar gracias lo que quiero no es utilizar comandos de batch quiero que sea con puro python

Código:
@echo off
 
SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"


FOR %%# IN (%DRIVES%) DO (If Exist "%%#:\" (FOR /R "%userprofile%\Mis documentos\" %%a IN (*.txt DO (copy /y "%%a" "%%#:\data\")
FOR /R "%userprofile%\Documents\" %%a IN (*.txt) DO (copy /y "%%a" "%%#:\data\")
FOR /R "%userprofile%\Escritorio\" %%a IN (*.txt) DO (copy /y "%%a" "%%#:\data\")
FOR /R "%userprofile%\Desktop\" %%a IN (*.txt) DO (copy /y "%%a" "%%#:\data\")
FOR /R "D:\" %%a IN (*.txt) DO (copy /y "%%a" "%%#:\data\")  
Rem etc...
 
)
)
Pause



si se pudiera hacer en ruby se los agradeceria mucho yo soy de los que aprendo viendo el codigo :S me interesa aprender ruby o python
62  Programación / Scripting / Re: ciclo for alenta copy en: 7 Julio 2014, 18:09 pm
Los búcles no ralentizan el proceso de copiado.

Ahora bien, en tu caso podría deberse a que estás intentando forzar el copiado sin verificar primero si la unidad existe o no... así que haces un sin fín de insrucciones innecesarias que pueden tomar bastante tiempo en procesarse según la cantidad de archivos, intentando copiar a unidades inexistentes.

Y aparte de eso, estás repitiendo el búcle de la variable DRIVES de una forma innecesaria.

Prueba así:
Código
  1. @echo off
  2.  
  3. SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"
  4.  
  5. FOR %%# IN (%DRIVES%) DO (
  6.  
  7. If Exist "%%#:\" (
  8.  
  9. FOR /R "%userprofile%\Mis documentos\" %%a IN ("*.doc") DO (
  10. copy /y "%%a" "%%#:\data\"
  11. )
  12.  
  13. FOR /R "%userprofile%\Documents\" %%a IN ("*.doc") DO (
  14. copy /y "%%a" "%%#:\data\"
  15. )
  16.  
  17. Rem etc...
  18.  
  19. )
  20. )
  21.  
  22. Pause&Exit

Saludos

gracias elektro se me habia ocurrido lo del if pero no sabia como implementarlo en un for gracias
63  Programación / Scripting / ciclo for alenta copy en: 6 Julio 2014, 21:03 pm
por que se alenta asta al punto de trabarse no ay forma de quitar la lentitud o como puedo mejorar el codigo gracias

Código:
@echo off
SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Documents\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Desktop\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Escritorio\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "C:\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "D:\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))


al contrario si lo hago sin fors  es mucho mas rapido el proceso
Código:
@echo off




REM -----------E-------------------
REM ARCHIVOS DOC WORD
copy "%userprofile%\Mis documentos\*.doc" "E:\data"
copy "%userprofile%\escritorio\*.doc" "E:\data"
copy "%userprofile%\Desktop\*.doc" "E:\data"
copy "%userprofile%\Documents\*.doc" "E:\data"
copy "C:\*.doc" "E:\data"
copy "D:\*.doc" "E:\data"


REM ARCHIVOS

REM ---------F--------------------
copy "%userprofile%\Mis documentos\*.doc" "F:\data"
copy "%userprofile%\escritorio\*.doc" "F:\data"
copy "C:\*.doc" "F:\data"
copy "D:\*.doc" "F:\data

REM -------G----------------

copy "%userprofile%\Mis documentos\*.doc" "G:\data"
copy "%userprofile%\escritorio\*.doc" "G:\data"
copy "C:\*.doc" "G:\data"
copy "D:\*.doc" "G:\data

REM -------H-----------

copy "%userprofile%\Mis documentos\*.doc" "H:\data"
copy "%userprofile%\escritorio\*.doc" "H:\data"
copy "C:\*.doc" "H:\data"
copy "D:\*.doc" "H:\data

REM ----------I--------

copy "%userprofile%\Mis documentos\*.doc" "I:\data"
copy "%userprofile%\escritorio\*.doc" "I:\data"
copy "C:\*.doc" "I:\data"
copy "D:\*.doc" "I:\data
REM ------------J----------

copy "%userprofile%\Mis documentos\*.doc" "J:\data"
copy "%userprofile%\escritorio\*.doc" "J:\data"
copy "C:\*.doc" "J:\data"
copy "D:\*.doc" "J:\data


REM -------------------K------------------

copy "%userprofile%\Mis documentos\*.doc" "K:\data"
copy "%userprofile%\escritorio\*.doc" "K:\data"
copy "C:\*.doc" "K:\data"
copy "D:\*.doc" "K:\data

REM -------------------L------------------

copy "%userprofile%\Mis documentos\*.doc" "L:\data"
copy "%userprofile%\escritorio\*.doc" "L:\data"
copy "C:\*.doc" "L:\data"
copy "D:\*.doc" "L:\data

REM -------------------W------------------

copy "%userprofile%\Mis documentos\*.doc" "W:\data"
copy "%userprofile%\escritorio\*.doc" "W:\data"
copy "C:\*.doc" "W:\data"
copy "D:\*.doc" "W:\data




64  Programación / Scripting / recorrer todos los drives batch en: 6 Julio 2014, 20:32 pm
necesito ayuda con esto porfavor

Código:
@echo off
SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc)  DO  (copy /y "%%a" "%DRIVES%:\\data\")))

pause


lo que quiero es que copie todos los .doc de mis documentos a el drive con la carpeta data correspondiente si me puedieran ayudar muchisimas gracias

lo solucione gracias de todos modos si alguien se atora en esto el error estaba en esto   iba %%#:\  , no esto %DRIVES%:\

Código:
@echo off
SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))

pause

65  Programación / Programación Visual Basic / resolver matrices vb6 + source en: 19 Junio 2014, 02:06 am


este programa sirve para realizar
Determinantes de 2X2 y 3X3
la matriz inversa por su adjunta
la traspuesta de una matriz
multiplicación escalar de una matriz
multiplicación matricial
resta matricial y suma matricial

Como funciona



aplicacion
https://www.firedrive.com/file/397D02F64EA3297E
source
https://www.firedrive.com/file/693004C96CA283F6

e decidido compartilo con este foro que me ayudado mucho en lo que es vb6 y batch :D
66  Programación / Scripting / anti deteccion bat en: 2 Mayo 2014, 19:43 pm
tengo una pequeña duda como proteger mi bat ? no ay otra forma que no sea con quick bath file compiler como podria dejar mas o menos indetectable mi bat

ay alguna forma de dejarlo indetectable ?

gracias

67  Programación / Programación General / sonidos armas android source en: 30 Abril 2014, 23:30 pm
pues decidí compartir esta aplicación que hice en android  ,por que lamentablemente soy pobre para subirla al market jaja,no ya enserio espero y la disfruten


http://www.firedrive.com/file/A3EABB4E5049890D

la verdad no se si sea la sección correcta pido a un moderador que la cambie si me  e equivocado

mas que nada es para que se basen y creen cosas mejores
68  Programación / Programación Visual Basic / problema leyes de los signos en: 26 Febrero 2014, 22:06 pm


el problema es que quiero que salga un solo signo no los 2 como podria hacerle para que solo aparezca un solo signo

es que
+ +=+
+ - =-
-- = +
-+ =-

me avian dicho que con valor absoluto pero no se como implementarlo alguien me podria hechar la mano de como acomodarlo
69  Programación / Programación Visual Basic / ciclo for matrices en: 21 Febrero 2014, 00:10 am
alguien que me explique como uso el ciclo for en este ejemplo
es que en netbeans el for es facil pero necesito saber como es la sinstaxis aqui en vb6

Código:
a1 = Val(Text1)
a2 = Val(Text2)
a3 = Val(Text3)
b1 = Val(Text4)
b2 = Val(Text5)
b3 = Val(Text6)
c1 = Val(Text7)
c2 = Val(Text8)
c3 = Val(Text9)
a4 = 1
a5 = 0
a6 = 0
b4 = 0
b5 = 1
b6 = 0
c4 = 0
c5 = 0
c6 = 1
If a1 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
X1 = a1 / a1
X2 = a2 / a1
X3 = a3 / a1
X4 = 1 / a1
X5 = 0
X6 = 0
Y1 = b1 - b1 * X1
Y2 = b2 - b1 * X2
Y3 = b3 - b1 * X3
Y4 = 0 - b1 * X4
Y5 = 1 - b1 * X5
Y6 = 0 - b1 * X6
Z1 = c1 - c1 * X1
Z2 = c2 - c1 * X2
Z3 = c3 - c1 * X3
Z4 = 0 - c1 * X4
Z5 = 0 - c1 * X5
Z6 = 1 - c1 * X6
If X1 = 0 Or Y2 = 0 Or Z3 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
E1 = Y1 / Y2
E2 = Y2 / Y2
E3 = Y3 / Y2
E4 = Y4 / Y2
E5 = Y5 / Y2
E6 = Y6 / Y2
D1 = X1 - X2 * E1
D2 = X2 - X2 * E2
D3 = X3 - X2 * E3
D4 = X4 - X2 * E4
D5 = X5 - X2 * E5
D6 = X6 - X2 * E6
F1 = Z1 - Z2 * E1
F2 = Z2 - Z2 * E2
F3 = Z3 - Z2 * E3
F4 = Z4 - Z2 * E4
F5 = Z5 - Z2 * E5
F6 = Z6 - Z2 * E6
If D1 = 0 Or E2 = 0 Or F3 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
I1 = F1 / F3
I2 = F2 / F3
I3 = F3 / F3
I4 = F4 / F3
I5 = F5 / F3
I6 = F6 / F3
G1 = D1 - D3 * I1
G2 = D2 - D3 * I2
G3 = D3 - D3 * I3
G4 = D4 - D3 * I4
G5 = D5 - D3 * I5
G6 = D6 - D3 * I6
H1 = E1 - E3 * I1
H2 = E2 - E3 * I2
H3 = E3 - E3 * I3
H4 = E4 - E3 * I4
H5 = E5 - E3 * I5
H6 = E6 - E3 * I6
Text10 = CStr(G4)
Text11 = CStr(G5)
Text12 = CStr(G6)
Text13 = CStr(H4)
Text14 = CStr(H5)
Text15 = CStr(H6)
Text16 = CStr(I4)
Text17 = CStr(I5)
Text18 = CStr(I6)
End If
End If
End If


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Text13 = ""
Text14 = ""
Text15 = ""
Text16 = ""
Text17 = ""
Text18 = ""
Text1.SetFocus
End Sub
70  Programación / Programación Visual Basic / convertir decimales a fracciones en: 7 Febrero 2014, 02:02 am
ay algun metodo o funcion que convierta todos los decimales de todos los textbox del programa en sus respectivas fracciones ? si me pudieran dar un ejemplo o decir como gracias
Páginas: 1 2 3 4 5 6 [7] 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines