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


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


  Mostrar Mensajes
Páginas: 1 ... 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 [959] 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 ... 1254
9581  Programación / Scripting / Re: Batch para listar archivos de una unidad en: 12 Marzo 2013, 14:00 pm
(Quiero, quiero, y lo quiero todo hecho...)

Hacer eso en Batch es una locura, más que nada si se trata de un Disco duro y estuviese más o menos LLENO, por el consumo de tiempo que tardarían dichas operaciones (Listar + ordenar), no puedes ordenar natívamente por fecha de creación (Sólo de modificación), ni tampoco puedes ordenar números por el método burbuja, así que hay que hacer malabares para ordenar fechas y tamaños, esto es Batch, un "lenguaje" limitado, hay que usarlo por otros medios que consumen más tiempo.

Diréctamente yo te iría recomendando que lo hicieras en cualquier otro lenguaje, pero bueno, aquí tienes para empezar en Batch:

Método básico:
Código
  1. @Echo OFF
  2.  
  3. :: By Elektro H@cker
  4.  
  5. Echo Sort files by...       | MORE
  6. Echo [1] Full path
  7. Echo [2] Modified date
  8. Echo [3] FileSize     | MORE
  9.  
  10. Choice /C 123
  11.  
  12. IF "%ERRORLEVEL%" EQU "1" (DIR /B /S /A-D /ON "*")
  13. IF "%ERRORLEVEL%" EQU "2" (DIR /B /S /A-D /OD "*")
  14. IF "%ERRORLEVEL%" EQU "3" (DIR /B /S /A-D /OS "*")
  15.  
  16. Pause&Exit

Método avanzado:

Código:
@Echo OFF
SetLocal EnableDelayedExpansion

MODE CON COLS=999 LINES=999

:: By Elektro H@cker

Echo Sort files by... | MORE
Echo [1] Path
Echo [2] Date
Echo [3] FileSize     | MORE

Choice /C 123

Set "Sorting=%ERRORLEVEL%"

Echo [+] Listing files... | MORE
DIR /B /S /A-D "*" > "%TEMP%\FileList_Unsorted.tmp"

Echo [+] Sorting files... | MORE

:: Path
IF "%Sorting%" EQU "1" (
(For /F "Tokens=* usebackq" %%# in ("%TEMP%\FileList_Unsorted.tmp") Do (Echo %%#))>"%TEMP%\FileList_Sorted.tmp"
)

:: Date
IF "%Sorting%" EQU "2" (
(For /F "Tokens=* usebackq" %%# in ("%TEMP%\FileList_Unsorted.tmp") Do (
   SET "Date=%%~t#"
   SET "Date=!DATE:~6,4!-!DATE:~3,2!-!DATE:~0,2!"
   Echo !DATE! ^| %%#
    ))>"%TEMP%\FileList_Sorted.tmp"
)

:: Size
IF "%Sorting%" EQU "3" (
Set /A "Bubble_MAX=0"

(For /F "Tokens=* usebackq" %%# in ("%TEMP%\FileList_Unsorted.tmp") Do (
Echo %%~z# ^| %%#
ECHO %%~z# >"%TEMP%\FileSize.tmp"
FOR %%X IN ("%TEMP%\FileSize.tmp") DO (SET /A "Number_Length=%%~zX-3")
If !Number_Length! GTR !Bubble_MAX!   (Set /A "Bubble_MAX=!Number_Length!")
)))>"%TEMP%\FileList_Sorted.tmp"

    :: Zero fill
(FOR /F "Tokens=1,* usebackq Delims= " %%X in ("%TEMP%\FileList_Sorted.tmp") DO (
   Echo %%X >"%TEMP%\FileSize.tmp"
   FOR %%X IN ("%TEMP%\FileSize.tmp") DO (SET /A "Number_Length=%%~zX-3")
       IF NOT !Number_Length! EQU !Bubble_MAX! (
       Set /A "Zero_Count=!bubble_Max!-!Number_Length!"
       For /L %%@ in (1,1,!Zero_Count!) do (SET "Zero_Fill=0!Zero_Fill!")
       SET "Number_Filled=!Zero_Fill!%%X"
       Echo !Number_Filled! %%Y
       SET "Zero_Fill="
       ) ELSE (Echo %%X %%Y)
    ))>"%TEMP%\FileList_Bubble_Sorted.tmp"
)

ENDLOCAL

:Show_List
Echo [+] Showing files... | MORE
(Type "%TEMP%\FileList_Bubble_Sorted.tmp" || Type "%TEMP%\FileList_Sorted.tmp") | SORT
Pause&Exit

Imagen de este último script:




Saludos
9582  Informática / Hardware / Re: impresora con tinta no imprime en: 11 Marzo 2013, 19:18 pm
Gracias pero nada, no ha funcionado, tendré que ir pensando en actualizarla... xD

Saludos
9583  Programación / Scripting / Re: Problema batch en: 11 Marzo 2013, 12:00 pm
@viperx666
El script de Almapa no te funcionaba porque hay un error en el foro al postear códigos que usan el caracter de exclamación "!" y usar la etiqueta DOS de GeShi, ha sido error mío, ya he modificado de nuevo el formato del código de Almapa, ahora debería funcionar.

Sobre lo de explicarte cada línea... pues sincéramente no lo voy a hacer por una sencilla razón, y es da la sensación de que no quieres aprender y que sólo quieres tener una chuleta preparada, te lo han dado todo hecho, ahora puedes esforzarte un poco en buscar información acerca de cada comando usado en el script...

Bueno, aquí tienes la epxlicación: http://foro.elhacker.net/empty-t384295.0.html
(Si hubiera sabido que ese otro usuario buscaba una chuleta para hacer el mismo trabajo no habría explicado nada xD)

Más info:
> (Tema bloqueado hasta finalizar el tuto) Tutorial extendido de aprendizaje Batch
> http://ss64.com/nt/syntax.html

Un saludo
9584  Informática / Hardware / impresora con tinta no imprime en: 11 Marzo 2013, 09:56 am
tengo una Canon Pixma Ip1800 con sus drivers correctos (siempre he usado el mismo driver) en Windows 7, los cartuchos tienen tinta porque me ha soltado un chorro en la mano xD, pero la impresora no me imprime, bueno, imprime las hojas mal, es decir, quizás empieza a imprimir el color negro pero luego todo el resto de la hoja queda complétamente blanca, sin imprimirse, ni en color ni en blanco y negro.

Los inyectores creo que estan bien, no lo sé, he realizado todos los tests de mantenimiento/limpieza de la impresora con el software pero sigue sin imprimirme nada.

¿A alguien se le ocurre algo?
9585  Programación / Scripting / Re: Problema batch en: 11 Marzo 2013, 03:15 am
Esto lo solucioné hace poco, usa el buscador:

http://foro.elhacker.net/programacion_general/ayuda_para_realizar_2_programas_en_batch-t383910.0.html

Saludos
9586  Programación / .NET (C#, VB.NET, ASP) / Ayuda para crear y poder usar un Knob desde cero, a lo cutre. en: 10 Marzo 2013, 13:02 pm
Hola

Antes de nada, para quien no lo sepa, esto es un Knob:



Actualmente uso un control Knob de terceros, pero con ninguna opción de customización, y me gustaría poder crear mi propio Knob así podría usar el Skin que yo quisiera (el de la imagen por ejemplo, es un PSD).

Me gustaría usar el Knob que muestro en la imagen, eso sólo es un diseño en Photoshop, pero bueno, al menos eso ya lo tengo, el diseño.

No busco hacer nada profesional, porque no tengo los conocimientos necesarios para heredar un control (Que para empezar, no se me ocurre cual) y customizarlo hasta el punto de hacer un knob, así que yo preferiría tirar al modo cutre usando pictureboxes o algo parecido (un picturebox por cada lucecita y un picturebox central para la rueda, por ejemplo)

El tema de las lucecitas azules y el skin ya lo tengo hecho, pero bien, ¿Como le doy vida a esto?, es decir, ¿Como haría para poder girar la rueda del knob con las mismas características como si se tratase de un TrackBar?, lo que quiero decir es... como le hago para que quedase igual de funcional que este Knob de terceros que estoy usando:



Muy a malas y todavía más cutre pero es una posibilidad, podría seguir utilizando el Knob del video pero reemplazando la imagen de la rueda blanca por la rueda negra del diseño que quiero, pero claro, si pongo una imagen encima del control, pierdo la funcionalidad del control (al pinchar en el picturebox no estoy pinchando en el Knob, así que la rueda no giraría), y no sé como añadir un handle al picturebox encima del control para que pudiese funcionar como quiero... ¿Me entienden?

Con que me digan por donde empezar me sería útil, no sé por donde cojerlo... sólo me imagino que tendré que usar el evento "hoverMouse", pero no sé como hacer para rotar la rueda... como en el Knob del video.

Esto me parece complicado, ¿Alguna ayuda?

Gracias por leer.
9587  Programación / .NET (C#, VB.NET, ASP) / Re: Problema con variables dinámicas... en: 10 Marzo 2013, 07:02 am
Gracias NovLucker, pero eso de los diccionarios es algo nuevo para mi.

¿Tu crees que se podría solucionar con eso?

Acabo de informarme y ver varios ejemplos de uso de las colecciones de Diccionarios (http://www.dotnetperls.com/dictionary-vbnet) pero no le encuentro el punto... es decir, parece ser que es una simple colección a la que se puede añadir valores de cualquier tipo, Pero creo me quedo en las misma situación, ¿como lo uso para mi propósito?.

un saludo!
9588  Programación / .NET (C#, VB.NET, ASP) / [SOLUCIONADO] Problema con variables dinámicas... en: 9 Marzo 2013, 20:40 pm
Tengo una serie de controles llamados:
Código:
"Button_1"
"Button_2"
"Button_3"

Tengo una serie de variables llamadas:
Código:
    Dim Button_1_Location_Y As Integer = 3
    Dim Button_2_Location_Y As Integer = 32
    Dim Button_3_Location_Y As Integer = 61

Y ahora necesito usar las variables en este FOR:
Código
  1.        For Each Control In Panela.Controls
  2.            If Control.GetType.ToString.Contains("Button") Then
  3.                Dim Botoncito As Button = CType(Control, Button)
  4.                If Not Botoncito.Name = "Button_" & Selected_TAB Then
  5.  
  6.                    ' Aquí el problema que no sé resolver:
  7.                    Botoncito.Location = New Point(Botoncito.Location.X, (Botoncito.name & "_Location_Y")) ' String: Button_1_Location_Y
  8.  
  9.  
  10.                End If
  11.            End If
  12.        Next

Lo que necesito es convertir este string para usar la variable que se llama exáctamente igual:
Código:
(Botoncito.Name & "_Location_Y") ' String: Button_1_Location_Y 

¿Alguna ayuda?

Saludos!
9589  Informática / Software / Re: Error con directx en: 9 Marzo 2013, 17:12 pm
@Xafirot
¿Que te sugiere "Acceso denegado"?, ¿No te das cuenta de que es un problema de permisos de usuario?, segúramente el instalador no puede reemplazar/modificar los archivos que ya están escritos en disco.

1. Inicia sesión como Administrador (LA CUENTA CON PRIVILEGIOS DE ASMINISTRADOR)

2. Concede los permisos necesarios en las carpetas y los archivos que el instalador de DirectX necesita expandir y según tu log no puede (Microsoft.DirectX..XXX...dll):

Código:
takeown /f "%Windir%\dx*" /R /D S
takeown /f "%Windir%\*directx*" /R /D S    

Icacls "%windir%\dx*" /Grant "%UserName%":(F) /T
Icacls "%Windir%\*directx*" /Grant "%UserName%":(F) /T
(Fijate en el mensaje final de los 4 comandos: Debería ponerte "error al procesar 0 archivos")

Y de paso quitamos el modo de sólo lectura a los archivos de DirectX (si tuvieran ese atributo):
Código:
Attrib -r /D /S "%WINDIR%\dx*"
Attrib -r /D /S "%WINDIR%\*directx*"
(Asegúrate que al usar este comando no te dice "Acceso denegado", de lo contrario no has concedido/modificado corréctamente los permisos de los archivos)

4. Ejecuta el instalador de DirectX (Preferiblemente el OFFLINE...) pinchando click derecho > Ejecutar como Administrador.

PD: Un consejo, en lugar de perder tiempo bajándote todas las versiones del instalador, deberías haber deducido mejor la causa del error ("Acceso denegado") y haber buscado el código de error en Google... aunque ya lo he hecho yo por tí para enseñarte algún link de referencia pero la verdad es que no he encontrado ningún tema decente, la ayuda que ofrecen en todos los links que he visto con ese código de error en Google es realmente patética e inutil, cláramente es un problema de acceso a los archivos y la manera de solucionarlo es concediendo permisos de modificación/creación/eliminación al usuario.

Saludos
9590  Programación / Scripting / Re: Instalación de Ruby en: 7 Marzo 2013, 10:01 am
Según he leido las versiones más nuevas de FFI dan muchos problemas en Windows y hay que regresar a una version anterior, prueba esto:
Código:
gem uninstall ffi
(Desinstalas todas si tuvieras más de una version)

Código:
gem install ffi --version='1.0.9'

Y pruebas de nuevo el script.
Saludos
Páginas: 1 ... 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 [959] 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 ... 1254
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines