Temas

[EDITO:]

La idea que tengo es que al pulsar sobre el botón (1), se muestre una imagen (y otros controles que quiero usar) manteniendo la relación de aspecto entre el resto de elementos (2)

¿Debe haber algún control para hacer este tipo de diseño, no?

¿Como se puede hacer de una manera sencilla? (es decir, sin tener que posicionar los elementos todo el rato en el form con "control.location"...)







EDITO: Esto es lo más parecido que he encontrado, pero aparte de que no se adapta a lo que necesito (porque usa títulos, no imágenes) está escrito en C# y el VS ni me lo compila para que pueda aprender algo...
http://www.codeproject.com/Articles/53318/C-Custom-Control-Featuring-a-Collapsible-Panel

EDITO 2: Esta forma de hacerlo es la que quiero EVITAR, porque con varios elementos es un completo lío tener que estar resizando cada elemento:

[youtube=640,360]http://www.youtube.com/watch?v=Y5fijH11EiE[/youtube]

[Lo que pasa es que la imagen de la pantalla se vuelve negra, sin imagen, y al cabo de 1-2 segundos vuelve a aparecer la imagen, durante esos 2 segundos noto como el SO "no hace nada", no trabaja, es decir... se puede apreciar con seguridad que no es cosa de que el monitor funcione mal, más bien es el SO quien apaga el monitor por algún conflicto...]

Hola,

Pues como algunos sabrán me he comprado un PC, y bueno, desde que lo uso tengo un problema con la gráfica, y es que la pantalla del monitor me flickea/flashea/parpadea, como quieran llamarlo...

Lo que pasa es que la imagen de la pantalla se vuelve negra, sin imagen, y al cabo de 1-2 segundos vuelve a aparecer la imagen, durante esos 2 segundos noto como el SO "no hace nada", no trabaja, es decir... se puede apreciar con seguridad que no es cosa de que el monitor funcione mal, más bien es el SO quien apaga el monitor por algún conflicto...

El problema ocurre cuando le viene en gana, pero sólamente en estas situaciones:

• Al ejecutar un archivo de video (ya séa en el "Media placer classic", "UMPlayer", "SMPlayer", o el "Windows media player".)
  
• Al visualizar un video desde el navegador en youtube, y creo que sólamente en youtube.
  
  Y muy importante debo decir que esto ocurre sólamente cuando inicio la visualizacion, osea, cuando le doy al "play", pasan 1-3 segundos y entonces la pantalla se vuelve negra 1-2 segundos y vuelve a aparecer la imagen, pero esto no ocurre en ningún momento durante la visualización (cuando ya llevo 1, 10, 20, o 30 min visualizando un video).
  
  Como ya digo, no ocurre siempre, ocurre de vez en cuando, puede que cada 3 de 10 veces que le doy al play (por decir algo), pero sólo en esas situaciones.
  
  No tengo ni idea de cúal puede ser el problema... con mis otros ordenadores jamás me habia pasado esto.
  
  
  
  
  
  Detalles técnicos:
  
  
• Windows 7 x64 SP1.
  
  
• La tarjeta gráfica es una GTX 260 (no la conecto con el cable PCI-E porque es una versión ecológica, se conecta a la ranura y ya).
  
  
• He probado con los 3 perfiles del panel de contorl de nvidia (Rendimiento, normal, y calidad).
  
  
• Tengo DirectX instalado y actualizado.
  
  
• El último driver oficial de nVidia instalado (whql 314.07) para 64 Bit.
  
  
• Sobre el problema de youtube, uso Firefox y tengo el adobe flash player actualizado e instalado (Versión de 32 bit, claro).
  
  
• El monitor lo conecto por DVI, pero tambien he probado con el cable HDMI y sucede lo mismo.
  
• Mi monitor es un LG E2350(Digital)
  
• La frecuencia de mi monitor es 60 herzios (Porfavor que alguien me diga si es la frecuencia correcta)
  
• Resolución: 1920x1080, orientación Horizontal, color: 32 bit, y he probado tanto en modo multi-monitor como usando este monitor sólamente.
  
  Bueno, estoy complétamente seguro que el problema no es del monitor (ah no ser que séan los herzios), porque tengo otro PC, y si lo conecto para testear con la misma pantalla funciona corréctamente, tiene que ser cosa de drivers o de la gráfica en sí...
  
  

[EDITO:]

Alguien me puede explicar que técnicas debo usar para poder crear una aplicación parecida a esta en VB.NET?: Notificador de mensajes nuevos del foro! por 79137913

¿Por donde debo empezar?

• Parsear html's
  
  ¿Que más podré necesitar para conseguir hacer algo parecido?
  
  EDITO: Lo que necesito saber es como se consigue lo de saber cuando hay nuevos mensajes en una página, o como lo harian ustds...
  
  Un saludo!

[Cisco DPC/EPC2100]

Hola,
Creo que este problema tiene que ver con la placa base (y no con Windows)

Tengo un PC de hace 5 años de antiguedad, y otro PC que me he comprado nuevecito (recien montado).

Vale, en los dos equipos he instalado la misma versión de Windows (win7 SP1), pero en el PC nuevo no me reconoce que haya ninguna conexión de red (ni dispositivo), y me está volviendo loco... ahora mismo estoy escribiendo desde el PC antiguo... aquí funciona el modem.

El dispositivo es un "Cisco DPC/EPC2100": http://www.cisco.com/web/consumer/support/modem_DPC2100.html

Ahora volveré a conectar el PC nuevo para intentar instalar los drivers oficiales... pero es que no entiendo porque en un PC va y en el otro ni se reconoce...

El modem es el que te instalaba la compaía ONO hace 2-3 años así que segúramente no seré el único con este problema.. agradezco cualquier ayuda.

PD: La placa base es esta: Asus M5A97 LE R2.0 90-MIBJP0-G0EAY0MZ   http://www.pccomponentes.com/asus_m5a97_le_r2_0.html

PD2: Creo que voy a necesitar un software para extraer el driver del modem desde este PC... ¿Alguna recomendación?, hace tiempo probe "DriverBackup" pero no me convence, me lo extraía bien pero luego a la hora de reinstalar el driver de "X" faltaban archivos, no es muy fiable.

Saludos

[EDITO:]

Hola,

Tengo un disco duro de 3 TB y no se si debo usar el formato de tabla MBR o a GPT.

El disco solo tendrá una partición y se usará como disco secundario, de almacenamiento.

He leido que MBR sólo soporta hasta 2,19 TB, pero no sé cuan cierto es, y no sé si hay algún riesgo al formatear a GPT en lugar de MBR, por ejemplo podría ser que la "estructura" del formato GPT séa una ***** en comparación con MBR y me falle el disco a lo largo del tiempo, esas cosas no las sé...

A mi me da igual MBR o GPT, si MBR no acepta los 3 TB pues tendré que hacerlo GPT, pero si MBR es mejor pues entonces tendré que particionar el disco en 2 particiones, además he leido que no hay ninguna mejora de velocidad, pero ...lo que quiero saber más que nada es si hay algún tipo de peligro formateando en GPT, si es mejor, peor, o da lo mismo.

EDITO: vale, acabo de ver en el MSDN que GPT es bastante mejor, principálmente tiene esta mejora:

GPT mantiene una copia de seguridad de la tabla de partición en el extremo del disco.
GPT disco proporciona una mayor fiabilidad gracias a la replicación y la comprobación de redundancia cíclica (CRC) la protección de la tabla de particiones.

y estas otras: http://msdn.microsoft.com/en-us/library/windows/hardware/gg463524.aspx

Ya no me quedan dudas sobre el disco de 3 TB, GPT es mejor, más estable como dice Microsoft, y encima lo debo usar si quiero hacer 1 única partición.

La pregunta ahora sería... ¿Conviene utilizar GPT en los discos menores de 2,20 TB?, es que ahora que he visto las ventajas... no sé si quizas debo usar el formato GPT para el disco principal también, más que nada por la confiabilidad que dice tener GPT sobre la tabla del disco.

Espero ayuda,
un saludo!

Hola,

Mi pregunta es muy sencilla...

¿Cual de estos procesadores es mejor? ¿Y porque?

1. http://www.pccomponentes.com/amd_fx_series_fx_8350_4_0ghz_8x.html

2. http://www.pccomponentes.com/intel_core_i5_3570_3_4ghz_box_socket_1155.html

Es que véo los 8 núcleos de AMD y me flipo, AMD más barata que la de Intel y con 4 núcleos más, y más velocidad...
para ser sinceros soy de AMD, pero no me gustaría guiarme en una compra sólamente por mis preferencias.

Hola,

Resumídamente lo que necesito saber es si con una conexión "DVI a HDMI" se consigue el mismo efecto sin pérdida de calidad que haciendo una conexión "HDMI a HDMI".

Tengo una tarjeta gráfica con dos puertos DVI, la pantalla del PC la tengo conectada al primer puerto DVI (Cable DVI a DVI), y el otro monitor lo tengo conectado al otro puerto DVI de la gráfica pero con un "conversor" de cable "HDMI a DVI".

Necesito saber si eso influye porque voy a cambiar de tarjeta gráfica, y no se si coger una que tenga 2 puertos HDMI diréctamente, o una con 2 puertos DVI y usar conversores (El precio de las gráficas varía bastante).

Saludos!

[OCASIONALMENTE]

Hola, empezaré sin rodeos con mis dudas, muchas gracias de antemano!

Antes de nada aclararé los típicos datos a tener en cuenta:

• Busco relación entre calidad/precio, aunque no he determinado un presupuesto exacto.
  
• El PC se usará para jugar OCASIONALMENTE a juegos de nueva generación, pero se usará MUCHO más para usar aplicaciones de edición de Audio/Video y en fín esas cosillas.
  
  
  
  
  Los componentes que tengo en mente:
  
  1. Caja: NI IDEA (necesito ayuda para elegir la caja basándome en el total de componente etc...), en la caja deberían caber 3 discos duros, no necesito que lleve tubos de Neon ni mi*rdas pa trollear xD.
  
  2. Procesador: Intel Core i5-3570 3.4Ghz Box Socket 1155 - Esto no es modificable, me he enamorado de este procesador y todos los comentarios son geniales. http://www.pccomponentes.com/intel_core_i5_3570_3_4ghz_box_socket_1155.html
  EDITO: Aunque acabo de ver este último modelo de AMD, tiene la mitad de precio que el de Intel y le supera en velocidad... AMD A10-5800K 3.80Ghz  http://www.pccomponentes.com/amd_a10_5800k_3_80ghz.html  ¿Alguna opinión sobre esto?
  
  3. Placa Base: NI IDEA, ¿Que placa base se adapta mejor para ese procesador?
  
  4. M. RAM: NI IDEA porque aun no sé que placa base pillar xD.
  
  5. T. Gráfica: NI IDEA, actualmente en este PC tengo una Nvidia GeForce 8800 GTS (512 MB RAM) y no me quejo en absoluto, los juegos de última generación no me dan problemas (con los efectos visuales del juego al nivel medio), eso sí, recuerdo que me costó unos 200 € hace años... y ahora las veo con 1 GB de RAM por 50 euros xD, ¿imagino que con una gráfica normalita de 1 GB de RAM por 50 € sería perfecto?, ¿ATI o Nvidia?.
  
  6. T. Sonido: Ya dispongo de una SB X-Fi Xtreme Audio y no la pienso actualizar, porque sería sólamente por una X-FI titanium HD y es cara, la diferencia X-Fi se nota ante las demás tarjetas, que no os quepa duda!.
  
  7. Disco duro principal: NI IDEA, pero desde luego no va a ser un Seagate, así que un WD Black me parece una buena elección porque los velociraptor si no recuerdo mal eran carísimos y cortos de GB, yo no necesito mucho espacio en el disco principal, pero sí como Mínimo 300-500 GB, por ejemplo este iría bien?: WD Caviar Black 500GB SATA3 7200rpm http://www.pccomponentes.com/wd_caviar_black_500gb_sata3_7200rpm_recertified.html
  
  8. Disco duro secundario: Serán 2 discos, 1 WD green de 3 TB y un WD Green de 2 TB (el disco de 2 TB ya lo poseo, sólo compraría el de 3 TB).
  
  9. Alimentación, ventiladores, y accesorios adicionales: NI IDEA!
  
  
  Eso es todo, espero su ayuda para agregar los componentes que faltan o aconsejarme otros,
  Muchas gracias por leer!
  

[Edito]

Hola,

Edito: Como parece que misteriósamente los dicos de WD Green de 4 TB han dejado de existir y me hacen quedar como si estuviese loco, he vuelto a re-escribir este post para hacer una pregunta distinta, el tema ahora ha cambiado:

Necesito comentarios DE GENTE EXPERIENCADA para ayudarme a elegir entre estos 3 discos duros

1. http://www.pccomponentes.com/wd_caviar_green_3tb_sata3_64mb.html
2. http://www.pccomponentes.com/seagate_barracuda_7200_14_3tb_sata3_64mb.html
3. http://www.pccomponentes.com/hitachi_deskstar_7k4000_4tb.html

1. Por un lado está mi favorito, un WD Green, de 3 TB, lo malo es que es de 5400 RPM, aunque no sé si lo notaré mucho, porque el disco pienso usarlo como unidad secundaria, aunque para ser secundaría lo cierto es que le daré bastante uso (mucha transferencia de datos al día).

2. Aquí tenemos un Seagate, bueno... de 3 TB y por el mismo precio que el WD, ¿lo malo?, lo malo es que es demasiado bonito para ser cierto, he tenido muy malas experiencias usando discos de Seagate... y me han llegado a arruinar algunas cosas, y no sé si me atrevo a comprarlo, porque gano 1 TB de espacio por el mismo precio, pero también puedo ganar un fallo mortal del disco duro en 1-2 años... maldito Seagate.

3. Un Hitachi de 4 TB por 215 €, esto es nuevo para mi, es la primera vez que me fijo en esta marca de HDD's, y por eso tengo la misma preocupación que con los discos de Seagate, no se si serán tán malos y si vale la pena arriesgarse, además este vale el doble de dinero que las otras dos opciones, pero bueno, si hitachi es muy bueno... haría una excepción, porque lo que necesito son 4 TB.

¿Sugerencias?

Gracias por leer.

[¿Es posible integrar el taskbar de Windows 7 cuando los efectos visuales de Windows están desactivados?]

¿Es posible integrar el taskbar de Windows 7 cuando los efectos visuales de Windows están desactivados?

La pregunta es simple xD, e imagino que la repsuesta será "NO", pero nunca se sabe...

Uso el WindowsAPICodePack para integrar una barra de progreso en el taskbar, pero me gustaría disponer de esto incluso cuando los temas visuales están OFF.

Gracias por leer.

[NO TIENE NADA QUE VER CON EL GLOW DE LAS LETRAS]

Porfavor bájense este proyecto y ejecutenlo para ver de lo que hablo, es un WPF.

http://elektrostudios.tk/StarBackupUsingLibraries.rar

NO TIENE NADA QUE VER CON EL GLOW DE LAS LETRAS



Al pasar el mouse por encima de los botones, hacen un efecto FadeIN con un color blanco sobre el background del control, y al despejar el mouse hace un FadeOut,
me gustaría saber si es posible reproducir ese efecto visual en un WinForm de manera sencilla.

PD: es el proyecto "StarBackupUsingLibraries" del Windows API Code pack
Gracias por leer.

[A OTRO PENDRIVE]

Bueno, llevo tiempo intentando hacer una aplicación para monitorizar pendrives (en modo oculto) y copiar todos los datos A OTRO PENDRIVE

Sólo tengo hecha un poco la interfaz y cuatro tonterías más.

PD: Es un WPF, por si tiene importancia.



Para avanzar en la aplicación, necesito información sobre:

• como monitorizar las unidades que se conectan al PC (Tando su inserción como su extracción)
  
• saber si el mismo método de monitorización serviría para Win XP / VISTA / 7 (si se tuviera que monitorizar con APIs...)
  
• como saber si la unidad conectada se trata de un pendrive
  
• como obtener la letra del pendrive conectado, la etiqueta (nombre/label), entre otros datos útiles que se puedan obtener sobre el dispositivo conectado.
  
  
  PD: Imagino que para lo penúltimo y último podría usar WMI, ¿NO?, no sé si quizás habrá algo más sencillo/rápido/eficaz...
  
  Y por último, para este proyecto necesito una ayudita en este post:  Como aplicar cambios al registro y refrescar el sistema sin tener que reiniciar?
  
  
  Gracias por leer.

[By Elektro H@cker]

By Elektro H@cker


Esta aplicación es un organizador de películas, se distingue de entre otros organizadores por sus opciones particulares y digamos "avanzadas", tiene pocas opciones porque son las únicas que necesito yo, así de claro xD, aunque no me importaría añadir alguna opción más si alguien me sugiere alguna y me pareciera interesante y útil.


Bueno, aunque en las imagenes ponga "versión 1.0", lo cierto es que es una versión alpha y no está acabada, pero llevo 2 meses con este proyecto y creo que ya va siendo hora de compartirlo, porque hay muchas cosas por mejorar tanto en el diseño como en la estructura dle código, y alguna función por acabar (como la de lanzar un script), pero no hay errores por arreglar (al menos ningún arreglo de un fallo grave), es un programa "usable" aunque no esté acabado todavía, así que lo empiezo a compartir para que testeen y la prueben con gusto, y cuando avanze bastante más con la APP ya actualizaré el post...


Acepto ideas o sugerencias, consejos, críticas constructivas (pero tengan en cuenta que la APP no está acabada...), bugs, y lo que séa será bien recibido!


Gracias por leer.


PD: Y gracias en especial a Kubox por las enseñanzas que me dió para poder hacer esta aplicación.





Descarga: http://elektrostudios.tk/Filmen.rar





Imagenes:













Y para los programadores más exquisitos, aquí dejo la versión de la aplicación que tenia hecha en Batch xD (es lo que me motivó a hacer la APP  ):

Código [Seleccionar] Expandir

@Echo OFF
Title Film Organizer v2.0
REM   by Elektro H@cker
Mode con cols=90 lines=50
chcp 1252 >NUL
color 07


::   ###########################
::  ### Film Organizer v2.0 ###
:: ###########################
::
:: FASES:
::
:: 1. Elimina los atributos de los archivos.
::    (oculto, sistema, solo lectura, indizado, almacenamiento)
::
:: 2. Genera listas de reproducción.
::
:: 3. Busca pistas de audio AC-3, DTS, y WAV.
::
:: 4. Busca videos con multipistas de audio.
::
:: 5. Elimina los metadatos de los videos.


SET "VIDEOS=F:\Videos"
SET "DOCUMENTALES=F:\Videos\Documentales"
SET "PELIS_REAL=F:\Videos\Películas\Acción real"
SET "PELIS_ANIM=F:\Videos\Películas\Animación"
SET "SERIES=F:\Videos\Series"
SET "SERIES_REAL=F:\Videos\Series\Acción real"
SET "SERIES_ANIM=F:\Videos\Series\Animación"

Set "FORMATS=*.avi;*.divx;*.flv;*.mkv;*.mp4;*.mpg;*.mpeg;*.ogm;*.wmv"

Set "APPS=Colous.exe DetectDuplicates.exe MediaInfo.exe NirCMD.exe"


::::::::::::::::::::::
::                  ::
::      FASE 0      ::
::                  ::
::  COMPROBACIONES  ::
::::::::::::::::::::::


:COMPROBACIONES
:::::::::::::::

CALL :LOGO "0" "COMPROBACIONES"

Echo+
Echo+
Echo: [+] Comprobando carpetas ... | MORE | MORE

(For /R %%a in (*) do (call set /A "FILM_FILES_TOTAL+=1"))

PUSHD "%DOCUMENTALES%" || (Call :ERROR_FOLDER "%DOCUMENTALES%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %DOCUMENTALES%"

PUSHD "%PELIS_REAL%" || (Call :ERROR_FOLDER "%PELIS_REAL%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %PELIS_REAL%"

PUSHD "%PELIS_ANIM%" || (Call :ERROR_FOLDER "%PELIS_ANIM%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %PELIS_ANIM%"

PUSHD "%SERIES%" || (Call :ERROR_FOLDER "%SERIES%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_SERIES_TOTAL+=1")
Colous writesec "[10]OK[7] %SERIES%"

PUSHD "%SERIES_REAL%" || (Call :ERROR_FOLDER "%SERIES_REAL%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %SERIES_REAL%"

PUSHD "%SERIES_ANIM%" || (Call :ERROR_FOLDER "%SERIES_ANIM%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %SERIES_ANIM%"

Echo+
Echo+
Echo: [+] Comprobando aplicaciones ... | MORE | MORE
FOR %%A IN (%APPS%) DO (
If not exist "%WINDIR%\System32\%%A" (
Colous writesec "[12] ERROR CRITICO"
Echo.
Colous writesec "[7] No se encuentra la aplicacion: [14]%*"
Echo. | MORE
Colous writesec "[8] Presione una tecla para salir del programa..."
Pause >nul
Exit
) ELSE (
Colous writesec "[10]OK[7] %%A"
)
)
CALL :OK


::::::::::::::::::::::
::                  ::
::      FASE 1      ::
::                  ::
::    ATRIBUTOS     ::
::::::::::::::::::::::


:ATRIBUTOS
::::::::::

CALL :LOGO "1" "ATRIBUTOS"
Echo: [+] Eliminando los atributos de los archivos ... | MORE | MORE
Echo:     Porfavor, espere... | MORE
PUSHD "%VIDEOS%" || (Call :ERROR_FOLDER "%VIDEOS%")
For /D %%a in (*) do (
Call Colous Writesec "[7][10]OK[7] %%a"
Echo+
attrib -A -R -S -H -I /S "%%a\*.*" >nul
)
attrib +H /S "*.ico" >nul
attrib +H -R /S "*.ini" >nul
CALL :OK


::::::::::::::::
::            ::
::   FASE 2   ::
::            ::
::::::::::::::::


:Playlist
:::::::::

CALL :LOGO "2" "PLAYLISTS"
Set /A "FOLDER_COUNT=0"
Echo: [+] Generando listas de reproduccion ... | MORE | MORE

PUSHD "%SERIES%" || (Call :ERROR_FOLDER "%SERIES%")

For /D %%a in (*) do (
Call Set /A "FOLDER_COUNT+=1"
Call Colous Writesec "[2] (%%FOLDER_COUNT%% de %%SUBFOLDER_FILM_SERIES_TOTAL%%): [7]%%a"
PUSHD "%%a"
Echo+
For /F "Tokens=*" %%a in ('Dir /B /AD') Do (
Call Colous Writesec "[6]           %%a"
PUSHD "%%a"
if /I exist "*Temporada" (
For /F "Tokens=*" %%z in ('Dir /B /AD') Do (
Echo #EXTM3U>".\%%z\_%%a %%z.m3u"
For /F "Tokens=*" %%j in ('dir /B /A-D-H ".\%%z\" ^| find /V /i ".m3u"') Do (Echo .\%%j>> ".\%%z\_%%a %%z.m3u")
REM Start /B cmd /C "".\%%z\_%%a %%z.m3u""
)
) ELSE (
Echo #EXTM3U>"_%%a TODO.m3u"
For /F "Tokens=*" %%x in ('dir /B /A-D-H ^| find /V /i ".m3u"') Do (Echo .\%%x>>"_%%a TODO.m3u")
REM Start /B cmd /C ""_%%a TODO.m3u""
)
POPD
)
POPD
Echo+

)
CALL :OK


::::::::::::::::
::            ::
::   FASE 3   ::
::            ::
::::::::::::::::


:AC3
::::

CALL :LOGO "3" "AC-3, DTS, WAV"
Set /A "FOLDER_COUNT=0"
Echo: [+] Buscando pistas AC-3, DTS y WAV ... | MORE | MORE
PUSHD "%VIDEOS%" || (Call :ERROR_FOLDER "%VIDEOS%")
DEL /Q "%TEMP%\pista_ac3_dts_wav.txt" >NUL 2>&1

For /R %%_ in (%FORMATS%) do (
Call Set /A "FOLDER_COUNT+=1"
Mediainfo "%%_" | FIND /I /V "Movie name" | FINDSTR /I "AC-3 DTS WAV" >NUL && Mediainfo "%%_" >> "%TEMP%\pista_ac3_dts_wav.txt" && (
Call Colous Writesec "[12] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [6] %%~nx_"
) || (Call Colous Writesec "[2] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [7]%%~nx_")
)

If exist "%TEMP%\pista_ac3_dts_wav.txt" (start /B notepad "%TEMP%\pista_ac3_dts_wav.txt")
CALL :OK


::::::::::::::::
::            ::
::   FASE 4   ::
::            ::
::::::::::::::::


:MULTIPISTA
:::::::::::

CALL :LOGO "4" "BUSCANDO MULTIPISTAS"
Set /A "FOLDER_COUNT=0"
Echo: [+] Buscando multipistas ... | MORE | MORE
PUSHD "%VIDEOS%" || (Call :ERROR_FOLDER "%VIDEOS%")
Del /Q "%TEMP%\multipista.txt" 2>NUL

For /R %%_ in (%FORMATS%) do (
Call Set /A "FOLDER_COUNT+=1"
For /F "tokens=*" %%@ in ('mediainfo "%%_" ^| findstr /I "^Audio$" ^| FIND /C /V ""') DO (
IF NOT "%%@" EQU "1" (
Call Colous Writesec "[12] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [6] %%~nx_"
Mediainfo "%%_" >> "%TEMP%\multipista.txt"
) ELSE (
Call Colous Writesec "[2] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [7]%%~nx_"
)
)
)

If exist "%TEMP%\multipista.txt" (start /B notepad "%TEMP%\multipista.txt")
CALL :OK


::::::::::::::::
::            ::
::   FASE 5   ::
::            ::
::::::::::::::::


:METADATOS
::::::::::

CALL :LOGO "5" "BUSCANDO METADATOS"
Set /A "FOLDER_COUNT=0"
Echo: [+] Buscando metadatos ... | MORE
Echo     (INAM^) (title^) | MORE | MORE
PUSHD "%VIDEOS%" || (Call :ERROR_FOLDER "%VIDEOS%")
RD /Q "%TEMP%\Converted FILMS" >NUL 2>&1

For /R %%# in (%FORMATS%) do (
Call Set /A "FOLDER_COUNT+=1"
ffmpeg -y -i "%%#" -f ffmetadata "%TEMP%\%%~nx#_metadata.txt" >NUL 2>&1
Type "%TEMP%\%%~nx#_metadata.txt" | FINDSTR /I "^INAM ^title" >NUL && (
Call Colous Writesec "[12] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [6]%%~nx#"
Echo                 TAGS encontrados...
Echo                 Convirtiendo el archivo... | MORE
MKDIR "%TEMP%\Converted FILMS\%%~p#" >NUL 2>&1
start /W CMD /K "ffmpeg -y -i "%%#" -c copy -map_metadata -1 "%TEMP%\%%~nx#" && EXIT || (Echo ERROR CONVIRTIENDO EL ARCHIVO! & PAUSE&EXIT)"
MOVE /Y "%TEMP%\%%~nx#" "%TEMP%\Converted FILMS\%%~p#" >NUL
) || (Call Colous Writesec "[2] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [7]%%~nx#")
Del /Q "%TEMP%\%%~nx#_metadata.txt" >NUL 2>&1
)

IF exist "%TEMP%\Converted FILMS" (start /B explorer "%TEMP%\Converted FILMS")
CALL :OK


::::::::::::::::
::            ::
::    FIN     ::
::            ::
::::::::::::::::


:FIN
::::

TITLE Film Organizer v2.0     [FINAL]
CLS
Echo+ | MORE
Colous writesec "[8]      ###########################"
Colous writesec "[8]     ##                       ##"
Colous writesec "[8]    ## [14] Film Organizer v2.0  [8]##"
Colous writesec "[8]   ##                       ##"
Colous writesec "[8]  ###########################"
Echo+ | MORE
Colous writesec "[7] Organizacion completada."
Echo+ | MORE
Colous writesec "[8] Presione una tecla para salir del programa..."
pause >nul
exit


:LOGO
CLS
TITLE Film Organizer v2.0     [FASE %~1 de 5]     [%~2]
Echo+ | MORE
Colous writesec "[8]      ###########################              ##############"
Colous writesec "[8]     ##                       ##              ##          ##"
Colous writesec "[8]    ## [14] Film Organizer v2.0  [8]##                  FASE %~1    "
Colous writesec "[8]   ##                       ##              ##          ##"
Colous writesec "[8]  ###########################              ##############"
Colous writesec "[8]                                           %~2"
Echo+ | MORE
nircmd wait 1000
GOTO:EOF


:OK
Echo+ | MORE
Colous writesec "[10] OK !!"
Echo+
TIMEOUT /T 3
GOTO:EOF



[EDITO]

EDITO: vale vale, ya está, lo he encontrado entre mis apuntes:

Código (vbnet) [Seleccionar] Expandir

Language_Resource = "SPA"
MsgBox(My.Resources.ResourceManager.GetObject(Language_Resource & 5))





¿Como se hace esto en VB.NET?

La intención es mostrar un recurso de tipo STRING que se llama "SPA5"

Código (vbnet) [Seleccionar] Expandir

Language_Resource = "SPA"
MsgBox(My.Resources.(Language_Resource) & 5)

[EDITO:]

Quiero hacer un archivo .tar por volúmenes con la utilidad 7zip desde Windows.

Obtengo unos archivos así:

"archivo.tar.001"
"archivo.tar.002"
"archivo.tar.003"

La numeración está destinada a descomprimirse usando 7zip (obviamente xD), pero yo quiero ponerles la numeración típica que use el comando TAR.

Eso es lo que necesito saber, la numeración que usa el comando TAR para crear los volúmenes, que podría ser por ejemplo así:

"archivo.tar.t01"
"archivo.tar.t02"
"archivo.tar.t03"

PD: Tengo un puerto de la utilidad TAR para windows, pero uf, demasiados parámetros para ponerme a investigarlo y tengo algo de sueño ya, prefiero hacer esta pregunta a ver si obtengo una respuesta rápida xD.

EDITO:
he intentado hacer un tar multi-volumen para ver como es el tipo de enumeración, pero me da error, dice que el tamaño es incorrecto  

Código [Seleccionar] Expandir

tar -c -M --tape-length=2048 archivo.tar file.dll

gracias por leer

Hola,

He desarrollado un programa en el que comprimo ciertas cosas, hay un panel donde se puede elegir el formato:
"copy"
"sfx"
"rar"
"zip"
"iso"




El caso es que me sobra espacio para añadir una opción más en el panel de la aplicación, pero no sé que formato añadir, me está costando mucho decidirme (no quiero ir a lo fácil), podría añadir "7zip", pero es que ya uso "Zip" y es demasiado parecido, ¿Conocen algún formato que valga la pena añadir a dicha aplicación?

7z > descartado
LZMA > este es el que añadiré si no encuentro mejores sugerencias

un saludo

[EDITO 3:]

EDITO 3:
Ya está, lanzar el proceso paraba la ejecución de ese sub-thread (yo pensaba que no), por eso el while no funcionaba, aunque me daba la sensaciónd e que sí,
así que tengo que hacer un nuevo thread para ejecutar el proceso, y hacer las comprobaciones en el antiguo thread mientras ese nuevo thread se está ejecutando.

listo,
Saludos!





Esta es la situación:
Al darle a un botón, ejecuto un proceso que va generando pequeños archivos en un directorio, con este patron:  "Disc.zip.001",  "Disc.zip.002", "Disc.zip.003"

Y lo que intento es, mientras se van generando esos archivos, ir contandolos para agregar un valor a una barra de progreso,
es decir, si se han de crear 50 archivos, pero de momento solo se han creado 20 archivos, pues examino el directorio para obtener el número "20", y el valor que le doy a la barra de progreso es "20".



Este es el Problema:
Algo pasa con la variable o con el while, porque el progreso no se muestra, la variable no suma el valor,
me da la sensación de que el io.directory.getfiles solo se ejecuta una vez, y es cuando el directorio está vacio (sin archivos zip) y por eso el valor no aumenta... es "0"
ya que cuando el directorio está lleno de archivos zip, si vuelvo a darle al botón, me muestra el valor correcto, por eso pienso que sólo se ejecuta una vez... a pesar de estar dentro de un while.  



Este es el código:

Código (vbnet) [Seleccionar] Expandir

           Dim Volumes

           If Copy_Mode = "Zip" And Not Want_to_cancel_thread = True Then
               While Not Run_Process(TempDir & "Splitty_7zip.exe", " a " & """" & Selected_Output_Directory & "\Disc.zip" & """" & " " & """" & Selected_Directory & """" & " -v" & Selected_Disc_Bytes.ToString & "b " & " -mx=0 -bd -tzip", False, True) = True
                 
                   If Want_to_cancel_thread Then Exit While ' Esta comprobación funciona corréctamente, sin problemas.

                  ' Esto de aquí no aumenta de valor... o al menos sólo lo hace una única vez, no lo sé... :
                   Volumes = IO.Directory.GetFiles(Selected_Output_Directory, "*.zip.*")
                   InvokeControl(ProgBarPlus, Sub(x) x.Value = Volumes.Length)
                   'InvokeControl(ProgBarPlus, Sub(x) x.Refresh()) ' He probado a refrescar el control, pero creo que es problema de la variable.

               End While
           End If

Cuando le doy al botón para generar los zips:

(el valor no aumenta ni nada!)

Cuando le doy al botón en un directorio que ya contiene zips (esto es hacer trampa, pero es para ver si así si que funciona):

(me muestra el valor correcto)


¿Alguien me puede decir si el código está bien, o he cometido algún error?



EDITO:
También he probado así, pero nada, el valor sigue siendo 0, solo se procesa una única vez...creo...

Código (vbnet) [Seleccionar] Expandir

               While Not Run_Process(TempDir & "Splitty_7zip.exe", " a " & """" & Selected_Output_Directory & "\Disc.zip" & """" & " " & """" & Selected_Directory & """" & " -v" & Selected_Disc_Bytes.ToString & "b " & " -mx=0 -bd -tzip", False, True) = True
                   InvokeControl(ProgBarPlus, Sub(x) x.Value = IO.Directory.GetFiles(Selected_Output_Directory, "*.zip.*").Length)
               End While
           End If


EDITO 2:

Y esto:

Estoy seguro de que la comprobación sólo se ejecuta una vez.. porque si el directorio está vacío no me muestra NADA (no hay msgbox), pero si el directorio está lleno, me muestra el msgbox...

Código (vbnet) [Seleccionar] Expandir

             While Not Run_Process(TempDir & "Splitty_7zip.exe", " a " & """" & Selected_Output_Directory & "\Disc.zip" & """" & " " & """" & Selected_Directory & """" & " -v" & Selected_Disc_Bytes.ToString & "b " & " -mx=0 -bd -tzip", False, True) = True
                   If Want_to_cancel_thread Then Exit While

                   If IO.File.Exists(Selected_Output_Directory & "\Disc.zip.001") Then
                       MsgBox(IO.Directory.GetFiles(Selected_Output_Directory, "*.zip.*").Length)
                       ' InvokeControl(ProgBarPlus, Sub(x) x.Value = IO.Directory.GetFiles(Selected_Output_Directory, "*.zip.*").Length)
                   End If
         
               End While
           End If

[EDITO: Vale, no, me he rallado mucho, no recordaba que el otro día adjunté el FFMPEG.EXE (que pesa 20 MB) al proyecto, y el proyecto pesaba 20 MB, en cambio si comprimo el ffmpeg con 7zip y lo adjunto sólo pesa 7 MB, así que ahora tengo claro que el compilador no comprime recursos embedidos]

Si embedo un archivo .EXE a mi proyecto, el compilador de VBNET realiza algún tipo de compresión sobre el archivo embedido?

Es que... ahora me he acostumbrado a comprimir los executables usando 7zip, y embedir el zip al proyecto para ahorrar bastante espacio (si necesito usar el EXE embedido, cargo al disco el 7zip.exe, el archivo comprimido que contiene el EXE, y lo descomprimo en una carpeta temporal),
pero ayer me sucedió algo extraño y creo que el proyecto pesa menos embediendo los EXE, que embediendo los zips (los exes están comprimidos al máximo dentro del zip, y es más del 80% de ratio de compresión), pero no puedo verificarlo corréctamente, por eso os pregunto si el VS ya comprime los exe mejor que 7zip, o algo parecido xD.

EDITO: Vale, no, me he rallado mucho, no recordaba que el otro día adjunté el FFMPEG.EXE (que pesa 20 MB) al proyecto, y el proyecto pesaba 20 MB, en cambio si comprimo el ffmpeg con 7zip y lo adjunto sólo pesa 7 MB, así que ahora tengo claro que el compilador no comprime recursos embedidos 


Saludos

Hola,

Estoy probando el ejemplo de esta documentación: http://www.codeproject.com/Tips/257193/Easily-zip-unzip-files-using-Windows-Shell32

El problema es que no me descomprime el archivo.

Se trata de un archivo ZIP comprimido con WinRAR.

El code ni me tira error, ni me lo descomprime :-/

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim sc As New Shell32.Shell()
        Dim input As Shell32.Folder = sc.NameSpace("C:\Users\Administrador\Desktop\Filmen_FFMPEG.zip")
        Dim output As Shell32.Folder = sc.NameSpace("C:\")
        output.CopyHere(input.Items, 4)
    End Sub

End Class


PD: El DotNetZip es un poco pesado de tamaño (para eso prefiero usar WinRar xD), por eso intento hacerlo usando la referencia de windows...

saludos

[PC Green]

¿Saben si en España o en alguna tienda online venden ya discos de 5-6 TB, y por menos de 200 €?

He buscado en PC Green y en APP Informática pero lo máximo que he visto son 4 TB (Sí, necesito los 5 TB xD).

Y si todavía no existen para el consumidor "ordinario"... ¿cuanto tiempo le echan para que salgan al mercado a precio razonable?

Saludos.

[EDITO]

Quiero renovarme un poco los slots de memória que tengo y necesito resolver dudas y que me hágan algunas sugerencias.

Tengo 3 slots ocupados con tarjetas DDR2 a 333 Mhz.

- ¿Sincéramente, es DEMASIADO poca frecuencia para hoy en día? ¿Es decir, debería renovarme las trés tarjetas?

PD: Yo tenía pensado añadir una tarjeta más DDR3 a 1666mhz y ya está, pero según lo que me contesten a esa pregunta quizás cambie de opinión...

- ¿Si me compro una DDR3, podré usarla junto a las DDR2?

Y luego está el tema de las frecuencias, ¿si compro una tarjeta que tenga mayor frecuencia que otra, esa nueva tarjeta irá a velocidad reducida?

¿Que frecuencia (tarjeta) me recomiendan según calidad/precio?

Ah, y lo de "PC2" y "PC3" en las memórias que significa?, en el Speccy y en el BlackBox no he encontrado el dato de si mis memórias son PC2 o PC3


EDITO: Ya no recuerdo si para usar una DDR3 la placa base debía tener alguna característica especial para ser compatible...
Mi placa base es una Asus M2N-SLI DELUXE (Socket AM2 )


Gracias por leer.

[se requiere ejecutar un script que requiere autentificación]

Hola,


Necesito programar una aplicación en la que un usuario se loguea a una página web (con user y contraseña) y al navegar por la página, por ejemplo al clickar en algún botón es posible que salte una caja de autentificación,
ya no recuerdo si el mensaje de la autentificación era "se requiere ejecutar un script que requiere autentificación" o algo parecido, pero espero que me entiendan lo que quiero decir.


He intentado informarme sobre como hacerlo pero no se como bypassear ese tipo de cajas, ¿Me pueden ayudar?.

¿Que debo hacer para que esto funcione?

Si declaro la variable "Rando" fuera de la función, funciona, pero precísamente lo que pretendo es ahorrarme la necesidad de declarar la variable fuera de la función... xD

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim a As New List(Of String)
       For x As Integer = 0 To 10 : a.Add(Get_Random_Number(1, 100)) : Next

       For Each f In a : MsgBox(f) : Next ' El número siempre es el mismo

   End Sub

   Public Function Get_Random_Number(ByVal min As Integer, ByVal max As Integer) As Integer
       Dim Rando As New Random
       Return Rando.Next(min, max)
   End Function

End Class

¿No se puede usar algún separador de expresión?

He intentado esto:

Código (vbnet) [Seleccionar] Expandir


IO.Directory.GetFiles(Directory, "*.exe, *.vb")

IO.Directory.GetFiles(Directory, "*.exe; *.vb")

IO.Directory.GetFiles(Directory, "*.exe" + "*.vb")

IO.Directory.GetFiles(Directory, "*.exe" + IO.Path.AltDirectorySeparatorChar + "*.vb")

IO.Directory.GetFiles(Directory, "*.exe" + IO.Path.DirectorySeparatorChar + "*.vb")

[Lo que quiero es no depender de esa carpeta llena de recursos]

Tengo 4 recursos en mi APP:

Código [Seleccionar] Expandir

Splitty_WinRar.exe
Splitty_7zip.exe
Default.SFX
rarreg.key

Al compilar el proyecto, los recursos se copian a la carpeta:

Código [Seleccionar] Expandir

...\Debug\Resources\APPS\*
Y para ejecutar los exe debo usar un:

Código [Seleccionar] Expandir

process.Start(".\Resources\APPS\Programa.exe")

* Lo que quiero es no depender de esa carpeta llena de recursos.

He intentado cambiar el tipo de recurso a "Resource", "Embeded resource", "Content", pero al hacerlo no encuentro la forma de ejecutar los EXE porque no encuentra la ruta (Están embedidos dentro del EXE) La ruta que utilizo en la CMD es la del directorio de trabajo principal:

Código [Seleccionar] Expandir

process.Start(".\Programa.exe")

Y también he probado a juntar los recursos con .NET Shrink e ILMerge, pero solo me permite juntar recursos en formato DLL...

¿Alguna ayuda?

EDITO: Sería factible usar un Joiner para esto? :-/

Hola foreros,

Necesito ayuda para localizar un programa CommandLine que tenga estas características:

1. Crear una imagen ISO
2. Crear la ISO por volúmenes (Cada archivo ISO debe ser grabable, no debe depender del resto de volúmenes partidos).



WinRar no dispone de la creación de archivos ISO.

7zip no soporta el "cortado" de volúmenes en la creación de archivos ISO (-tiso).

PowerIso genera volúmenes que dependen entre sí, y además en formato DAA, por lo tanto no me sirve.

Si saben cualquier programa que cumpla las características háganmelo saber,
Gracias.

Un saludo!

Estoy teniendo problemas con esto:

Código (vbnet) [Seleccionar] Expandir

 Thread_Split.Start()
       While Not Thread_is_completed = True
           Application.DoEvents()
       End While

Cuando inicio el thread por segunda vez, me salta este error:

Código [Seleccionar] Expandir

Arithmetic operation resulted in an overflow.


¿Porqué?

[Splitty]

Splitty
By Elektro H@cker


Esta utilidad se encarga de organizar un directorio separando el directorio en varias carpetas de un tamaño específico (tamaño de la capacidad de disco) para grabarlo posteriormente.


Para que lo entiendan mejor, pongámonos en situación,
imaginemos que tenemos una carpeta con subcarpetas, llenas de archivos, y la carpeta pesa 100 GB,
si por necesidad queremos grabar la carpeta a DVD's tenemos que organizarlo todo (Cortar y medir) manualmente, lo cual es una tarea muy agobiante xD... Pues para eso hice este programa.

versión 1.6:

     

El código fuente:

>  http://www.mediafire.com/download/pn69i21t9nja5xm/Splitty.rar

* Está desarrollado en VB.NET (VS2012), Es un WinForm y requiere Framework 4.0.

Estoy intentando que el textbox sólamente acepte números, y una coma (sólamente una coma),
No se que estoy haciendo mal (Acepta más de una coma).

Código (vbnet) [Seleccionar] Expandir

   Private Sub TextBox_Custom_Size_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox_Custom_Size.KeyPress
       e.Handled = NumericOnly(e.KeyChar)
   End Sub

   Public Function NumericOnly(ByVal eChar As Char) As Boolean
       Dim chkStr As String = "0123456789,"
       If chkStr.IndexOf(eChar) > -1 OrElse eChar = vbBack Then
           If eChar = Keys.Oemcomma & TextBox_Custom_Size.Text.Contains(",") Then Return True
           Return False
       Else
           Return True
       End If
   End Function

Saludos!

[directory.GetFiles]

Necesito obtener el tamaño de una carpeta.

Como me gusta hacer las cosas perfectas (A pesar de lo poco que sé todavía de .NET) pues quiero saber si conocen alguna forma más simple (es decir, más rápida) que usar un directory.GetFiles...

Me he fijado en que en el explorer cuando clickamos en las propiedades de una carpeta para ver el tamaño, pues parece que vaya contando los archivos y se vaya incrementando de tamaño,

PERO!!... por otro lado, si hacemos lo mismo sobre un disco duro u otro dispositivo, el tamaño se muestra en un segundo,
y además, con el Scripting.FileSystemObject es tán simple como esto:

Código [Seleccionar] Expandir

       Dim folder As Scripting.FolderClass = fs.GetFolder(Environment.GetFolderPath(Environment.SpecialFolder.Personal))
       MessageBox.Show(folder.Size)

(Pero no forma parte de .NET)

Así que tengo muchas dudas de si usar el método GetFiles es la única manera y la más rápida...

PD: He buscado mucho en Google y solo veo Getfiles por todas partes.

Gracias por leer.

¿Se puede definir más de un tipo por Valor/Referencia por argumento?

Necesito hacer algo así:

Código [Seleccionar] Expandir

Public Function blablabla(ByRef Image_File As String or As Bitmap)

O en su defecto:

Código [Seleccionar] Expandir

Public Function blablabla(ByRef Image_File As "Cualquier tipo que séa aceptable")
If Image_File = Ctype(string) then...
if Image_File = Ctype(Bitmap) then...


¿Se puede obtener este dato en el idioma instalado del equipo?

Código [Seleccionar] Expandir

My.Computer.Clock.LocalTime.DayOfWeek

Hola,

Estoy usando un botón extendido que no dispone del método "performclick"

Esto no puedo hacerlo:

Código (VBNET) [Seleccionar] Expandir

If "a" = "a" then Button1.performclick()
Puedo escribir el método y no me salta excepción, pero no sucede nada, y he leido el mismo tipo de problema en la página del autor, en CodeProject.

La pregunta es... ¿Puedo simularlo de alguna manera? (Que no séa clickando el botón por coordenadas...  )

Dispongo del source del botón, por si saben como implementar el método...

Gracias por leer.

[EDITO]

Estoy intentando hacer pruebas,

Lo que quiero es poder abrir un comando en la CMD y que la consola no se cierre, por ejemplo:

Código (vbnet) [Seleccionar] Expandir

 My_Process_Info.FileName = "CMD.exe"
       My_Process_Info.Arguments = "/k pause"

Pero la CMD se cierra.

Así que he intentado ejecutar un FOR de Batch muy largo en la CMD para ver si así no se cierra...

Código (vbnet) [Seleccionar] Expandir

       My_Process_Info.FileName = "CMD.exe" ' Process filename
       My_Process_Info.Arguments = "/k For /L %a in (1,1,100000) do echo afijgifjigjfgjifjgi" ' Process arguments

y no, no se cierra (Porque el FOR tarda en finalizar, cuando acaba si que se cierra claro xD) pero ahora lo que ocurre además es que el output de la CMD no se muestra en la CMD!, es decir, el FOR no muestra nada.

EDITO: Vale, he descubierto que el output no se muestra en la CMD porque al habilitar la propiedad de redireccionar el Standard u Error output, no muestra el output en la CMD.


Así que quiero solucionar los dos problemas:

1. Que la CMD no se cierre cuando finaliza la orden, el comando.
2. Que el output se muestre en la CMD cuando habilito la propiedad RedirectStandardOutput = True  y/o RedirectStandardError = True




Este es el code, es un snippet que estoy intentando hacer:

Código (vbnet) [Seleccionar] Expandir

Dim My_Process As New Process()
       Dim My_Process_Info As New ProcessStartInfo()

       My_Process_Info.FileName = "CMD.exe" ' Process filename
       My_Process_Info.Arguments = "/k For /L %a in (1,1,100000) do echo afijgifjigjfgjifjgi" ' Process arguments
       My_Process_Info.UseShellExecute = False ' Don't use system shell to execute the process
       My_Process_Info.CreateNoWindow = False ' Show the CMD Window
       My_Process_Info.RedirectStandardOutput = True '  Redirect (1) Output
       My_Process_Info.RedirectStandardError = True ' Redirect non (1) Output
       My_Process.EnableRaisingEvents = True
       My_Process.StartInfo = My_Process_Info
       My_Process.Start() ' Run the process
       My_Process.WaitForExit() ' Wait X miliseconds to kill the process

       Dim Process_StandardOutput = My_Process.StandardOutput.ReadToEnd() ' Stores the Standard Output (If any)
       Dim Process_ErrorOutput = My_Process.StandardOutput.ReadToEnd() ' Stores the Error Output (If any)
       Dim Process_StartTime As String = My_Process.StartTime ' Stores the time when the process was launched
       Dim Process_EndTime As String = My_Process.ExitTime ' Stores the time when the process was finished
       Dim ERRORLEVEL = My_Process.ExitCode ' Stores the ExitCode of the process

       Dim result = Process_StartTime & vbNewLine & Process_EndTime & vbNewLine & ERRORLEVEL

       MsgBox(result)
       MsgBox(Process_StandardOutput)
       MsgBox(Process_ErrorOutput)

[UPS, ME EQUIVOQUÉ DE SECCIÓN, LO PUEDEN MOVER A VB.NET PORFAVOR? XD SORRY]

UPS, ME EQUIVOQUÉ DE SECCIÓN, LO PUEDEN MOVER A VB.NET PORFAVOR? XD SORRY









Estaba ayudando a un user que no sabía como usar una barra de progreso, y bueno, hice este form.

Cuando lo completé me dí cuenta de que a mi me habría servido cuando no sabía hacer nada de esto, así que quiero compartirlo por si a alguien le puede servir

Con mi ejemplo puedes aprender a...:
· Crear / Añadir controles en tiempo de ejecución,
· Modificar algunas propiedades de controles
· Asociar el evento de un control en tiempo de ejecución a una subrutina
· Usar las variables de entorno
· Obtener todos los archivos de un directorio
· Crear un array y procesar su contenido
· Usar y conocer una barra de progreso,
· Algunos métodos útiles como "Update"

Eso sí, sin threads, esto es un ejemplo MUY básico.

PD: En serio, no quiero comentarios como "Esto no vale nada", si no te gusta no comentes, a un novato le servirá.

 

Código (vbnet) [Seleccionar] Expandir

Public Class Form1


   ' Declaro los controles que vamos a usar en este form:
   Dim Label_Origen As New Label
   Dim Label_Destino As New Label
   Dim Label_FileName As New Label
   Dim Label_Restantes As New Label
   Dim WithEvents Button_Copiar As New Button
   Dim ProgressBar_1 As New ProgressBar


   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       Me.Size = New Point(420, 320)
       ' Le otorgo las propiedades a los controles
       ' -------------------------------------------------------
       ' Label Origen
       Dim Fuente As New Font("Sans Serif", 20, FontStyle.Regular) ' Seteo la fuente personalizada que quiero usar, porque me apetece usar una distinta y así aprendes xD
       Label_Origen.Font = Fuente
       Label_Origen.Text = "Origen: " & Environment.GetFolderPath(Environment.SpecialFolder.Windows) & "\Fonts"
       Label_Origen.AutoSize = False
       Label_Origen.Size = New Point(640, 40)
       Label_Origen.Location = New Point(0, 0)
       ' Label Destino
       Label_Destino.Font = Fuente
       Label_Destino.Text = "Destino: " & Environment.GetFolderPath(Environment.SpecialFolder.ProgramFiles) & "\Test" ' O Environment.SpecialFolder.ProgramFilesX86
       Label_Destino.AutoSize = False
       Label_Destino.Size = New Point(640, 40)
       Label_Destino.Location = New Point(0, 50)
       ' Botón Copiar
       Button_Copiar.Size = New Point(180, 80)
       Button_Copiar.Text = "Copiar!"
       Button_Copiar.Location = New Point(100, 100)
       AddHandler Button_Copiar.Click, AddressOf Button_Copiar_Sub ' Añado el evento "Click" que sucede cuando pinchas el botón, y se llama a la subrutina "Button_Copiar_Sub"
       ' ProgressBar_1
       ProgressBar_1.Size = New Point(180, 20)
       ProgressBar_1.Location = New Point(100, 200)
       ' Label FileName
       Label_FileName.AutoSize = True
       Label_FileName.Location = New Point(100, 230)
       ' Label Restantes
       Label_Restantes.AutoSize = True
       Label_Restantes.Location = New Point(100, 250)

       ' Añado los controles al form principal:
       Me.Controls.Add(Label_Origen)
       Me.Controls.Add(Label_Destino)
       Me.Controls.Add(Button_Copiar)
       Me.Controls.Add(ProgressBar_1)
       Me.Controls.Add(Label_FileName)
       Me.Controls.Add(Label_Restantes)
   End Sub


   Private Sub Button_Copiar_Sub(sender As Object, e As EventArgs)

       ' Seteo las variables de origen y destino de carpetas
       Dim Origen As String = Label_Origen.Text.Split(" ")(1)
       Dim Destino As String = Label_Destino.Text.Split(" ")(1)

       ' Creo un array con todos los archivos del directorio de origen
       Dim Directory As New System.IO.DirectoryInfo(Origen)
       Dim Array_Files As System.IO.FileInfo() = Directory.GetFiles("*")

       ' A la progressBar tenemos que darle un valor "Máximo" (SIEMPRE) (El máximo por defecto es 100, pero si tenemos 101 archivos nos joderá porque no podemos sobrepasar el Máximo),
       ' Ese valor en este caso es el número total de archivos que contiene el directorio.
       ProgressBar_1.Maximum = Array_Files.Length

       ' Por cada archivo del Array, sumamos un valor a la ProgressBar, y realizamos las operaciones de copiado o lo que queramos...
       For Each File In Array_Files
           Label_FileName.Text = "Archivo copiado: " & File.Name
           Label_FileName.Update() ' Como no estoy usando threads, tengo que actualizar el estado del label para darle prioridad y que se muestre correctamente, lo cúal ralentiza bastante (BASTANTE) el proceso. Para estas cosas ya te digo que se deben usar Threads + delegados
           Threading.Thread.Sleep(20) ' Le hago esperar 20 ms a este hilo símplemente para que veas bien como se actualiza el proceso de la barra de progreso.
           ProgressBar_1.Value += 1
           Label_Restantes.Text = "Faltan " & (ProgressBar_1.Maximum - ProgressBar_1.Value) & " archivos por copiarse"
           Label_Restantes.Update() ' Otra vez el update necesario para poder mostrar el estado del label, más ralentización para el hilo, de verdad, estudia sobre los threads y cuando sepas algo te ayudaré a entenderlos y usarlos.
       Next

       ' Devolvemos los valores originales a la ProgressBar y modificamos los valores de los labels
       ProgressBar_1.Value = 0
       ProgressBar_1.Maximum = 100
       Label_FileName.Text = Nothing
       Label_Restantes.Text = "Todos los archivos copiados."

   End Sub


End Class

[El programa se vé así en mi Windows (uso un theme oscuro):]

El programa se vé así en mi Windows (uso un theme oscuro):




Y así es como se ve en un Windows con el theme de Aero:



Sin comentarios!, la visibilidad de todos los controles se vuelve prácticamente NULA,
necesito modificar esos horribles bordes blancos por un color más oscuro (Como en la primera imagen) , y no sé como hacerlo ni si es posible.

He probado a desactivar los estilos visuales de XP en el proyecto, bua!, si lo desactivo se ve 50 veces peor en Aero, y ni siquiera se ve la transparencia de los PNG de los botones.

¿Esto tiene arreglo?


EDITO: He conseguido eliminar los bordes blancos de los botones cambiando la propiedad "FlatStyle" y bueno ya saben así quedan los botones muy planos y sin vida puff..., ¿Pero como le hago para los GroupBoxes?

El icono de "70's" y los iconos de las carpetas "2000...2013" y "BSO" los he hecho yo.

Busco el mismo tipo de iconos, que séan de calidad y que los iconos no séan muy distintos, es decir, que sigan un patron de colores.

En cambio los iconos de las decadas (50s, 60s, 80s y 90s) me gustaría que llevasen algún "dibujo" de aquella época, por ejemplo el icono que he hecho de los 70s lleva un fondo muy "Disco" y el arcoiris asociado con esa época.

PD: Sé que es algo dificil, yo no he encontrado más que vectores de pago.

un saludo!

[El problema es que el valor del label se suma cada "3,50" GB, en lugar de cada "4,31" GB.]

Me está volviendo loco este problema!

Estos son los elementos del problema:

• Un número de GigaBytes, que es una variable de tipo Double.
  
• Un label que debe mostrar una cantidad según la cantidad de GB, por cada 4,31 GB debe subir un número de valor al label.
  
  Es decir... Si el valor de la variable es "4,31" el label debe mostrar un "1", porque es la capacidad de un solo DVD,
  Si el valor de la variable es "4,32" entonces el label debe mostrar un "2" porque el tamaño es más de la capacidad de un dvd pero menos de la capacidad de 2 DVD's completos,
  Si la variable es "10,0" pues el label debe mostrar "3" porqe el tamaño se encuentra entre la capacidad de 3 DVD's,
  etc, etc, etc...
  
  El problema es que el valor del label se suma cada "3,50" GB, en lugar de cada "4,31" GB.
  
  Las matemáticas no es lo mio pero yo creo que la división debería funcionar...
  
  
  Código (vbnet) [Seleccionar] Expandir
  ' El valor de "Label_SIZE.Text.Split(" ")(0))" por ejemplo es: 3,50
' (CON COMA, NO PUNTO)

If Label_SIZE.Text.Contains("GB") Then Label_DVD.Text = 1 + (Label_SIZE.Text.Split(" ")(0)) \ 4.31
  
  
  Código (vbnet) [Seleccionar] Expandir
  ' En cambio esto SI me funciona:
' El valor del label se suma cada "4,5"

If Label_SIZE.Text.Contains("GB") Then Label_DVD.Text = 1 + (Label_SIZE.Text.Split(" ")(0)) \ 4.50

' No entiendoooooooo porque el otro no funciona....
  
  

¿Alguien me puede recordar como se hacia esto?

Olvidé que método se usa para esto xD

Código (vbnet) [Seleccionar] Expandir

Dim STR = "abc"
If Cosa.Contains(STR) Then ...

' Quiero que busque todas las variantes:
' Abc
' ABc
' ABC
' aBC
' abC
' etc...

Esto no sé hacerlo así que he buscado en Google,
He probado las 2 maneras que se comentan aquí pero ninguna me funciona: http://stackoverflow.com/questions/1000510/how-to-get-the-names-of-all-resources-in-a-resource-file

Necesito hacer algo así:

Código (vbnet) [Seleccionar] Expandir

  Private Sub SearchInResources(ByVal PatternSTR As String)
       For Each ResourceFile In My.Resources ' Esto no funciona cláramente xD
           If ResourceFile.EndsWith(".txt") Then
               Dim fileContent As String = ResourceFile
               Dim stringStream As New System.IO.StringReader(fileContent)
               If stringStream.contains(PatternSTR) Then
                   ' Cosas...
               End If
           End If
       Next
   End Sub

Bueno, está es la aplicación oficial donde voy a intentar vender unas cosas por internet así que necesito perfeccionarla lo máximo posible...

De nuevo les pido sugerencias acerca del diseño, siempre es lo que más me preocupa xD

¿Lo ven bien diseñado?
¿Bien reparticionado la posicion y el tamaño de los elementos?
¿gusta o no gusta visiblemente hablando?
¿Cambiarian algo? (aparte de los botones feos azules xD)
¿Algo que crean que se pueda mejorar?

Gracias a los que comenten  

En el evento OnMouseHover de un picturebox estoy intentando mostrar un form con la propiedad "CenterParent", pero cuando intento emparentar el form no me deja iniciar la aplicación y me salta error.

Código (vbnet) [Seleccionar] Expandir

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Try
           Form2.Parent = Me
       Catch ex As Exception
           MsgBox(ex.Message)
           ' Error: top-level control cannot be added to a control
       End Try
   End Sub

[MEGA-PACK DE VISUAL STUDIO 2012]

MEGA-PACK DE VISUAL STUDIO 2012
Contiene un instalador personalizado + Recursos de todo tipo



¡ Llegó la nueva versión actualizada del instalador !

He corregido un error que sufrieron algunas personas con la carpeta de instalación del VS en la version antigua de este instalador...
Además lo he optimizado tanto en el sistema de la instalación de los componentes, como en su desinstalación... ...Y contiene más librerías, más controles, y más snippets!


El instalador contiene todo lo necesario para empezar a programar en .NET, aunque está ligéramente orientado al desarrollo para VB.NET.


La instalación completa y la instalación por defecto han sido testeadas en Windows 7 de 32 y 64 Bits, en Windows XP tampoco debería haber problemas.



Imágenes:

   

   

   



   



Contenido:

• Componentes originales opcionales de VS2012 (Paquetes offline):
  .NET FX 4
  .NET FX 4.5
  Bliss
  Report Viewer
  IntelliTrace
  SDK Tools 3
  SDK Tools 4
  WCF Data Services
  
  
  
• Componentes originales opcionales de VS2012 (Paquetes descargables):
  Blend
  Microsoft Foundation Class For C++
  Microsoft Help Viewer 2.0
  Microsoft LightSwitch
  Microsoft office developer tools
  Microsoft portable library multi-targeting pack
  Microsoft report viewer add-on
  Microsoft sharepoint developer tools
  Microsoft silverlight 5 SDK
  Microsoft SQL DAC
  Microsoft SQL DOM
  Microsoft SQL Server 2012 Express LocalDB
  Microsoft SQL Server 2012 management objects
  Microsoft SQL Server 2012 system clr types
  Microsoft SQL Server 2012 transact-SQL
  Microsoft SQL Server Compact Edition
  Microsoft SQL Server Compact edition tools
  Microsoft SQL Server Data tools
  Microsoft Visual c++ 2012 Compilers
  Microsoft Visual c++ 2012 core libraries
  Microsoft Visual c++ 2012 debug runtime
  Microsoft Visual c++ 2012 desingtime
  Microsoft Visual c++ 2012 extended libraries
  Microsoft Visual Studio team foundation server 2012 storyboarding
  Microsoft web deploy dsqlpackage provider
  Microsoft web developer tools
  Silverlight developer kit
  Visual Studio Analytics
  Visual Studio Dotfuscator
  Visual Studio extensions for windows library for javascript
  Visual Studio profiler
  WCF RIA Services 1.0 SP2
  Windows Software development kit
  
  
  
• Idiomas para la IDE:
  Castellano
  
  
  
• Extensiones para la IDE:
  Auto Scroll
  Batch Format
  Code Jumper
  Image optimizer
  Language convert
  Middle click to definition
  Piczard
  Progressive Scrool
  Regular expression tester
  Sticky highlight
  Toogle tabs
  Translator
  Trout Zoom
  XAML Styler
  
  
  
• Librerías:
  DotNetZip
  EASendMail
  MediaInfo
  SevenZipSharp
  VistaCoreAudioApi
  
  
  
• Controles (Suites y Toolkits):
  Ai Controls
  Cloud Toolkit
  DotNetBar
  Extended Dot Net
  Krypton
  ObjectListView
  WindowsFormsToolkit
  
  
  
• Controles de terceros):
  [ Buttons ] AdvButton
  [ Buttons ] ArrowButton
  [ Buttons ] ButtonBarsControl
  [ Buttons ] CButtonLib
  [ Buttons ] DOAShape
  [ Buttons ] GlowButton
  [ Buttons ] Iconits
  [ Buttons ] ImageButton
  [ Buttons ] OfficeButton
  [ Buttons ] PulseButton
  [ Buttons ] SplitButton
  [ Buttons ] TripleButton
  [ CheckBoxes ] DontShowAgainCheckbox
  [ ColorPickers ] ColorPickerLib
  [ ColorPickers ] gColorBlender
  [ ComboBoxes ] CheckedCombobox
  [ ComboBoxes ] ImageComboBox
  [ Date-Time ] DateAndTimeControls
  [ GroupBoxes ] CodeVendor.Controls
  [ GroupBoxes ] Owf.Controls.OutlookGroupBox
  [ GroupBoxes ] UIToolbox.CheckGroupBox
  [ GroupBoxes ] UIToolbox.RadioGroupBox
  [ Knobs ] KnobControl
  [ Labels ] BorderLabel
  [ Labels ] DOATransparentLabel
  [ Labels ] dzzControls
  [ Labels ] gLabel
  [ Labels ] GradientLabel
  [ Labels ] iGreen.Controls.uControls.uLabelX
  [ Labels ] Owf.Controls.OwfProgressControl
  [ Labels ] TransparentLabel
  [ Labels ] VerticalLabel
  [ ListBoxes ] ColorListBox
  [ Listviews ] gCursor
  [ Listviews ] gListviewControl
  [ Listviews ] TransparentListView
  [ Menus ] CustomizableStrips
  [ Menus ] CustomToolStrip
  [ Miscellaneous ] Animator
  [ Miscellaneous ] AwesomeShapeControl
  [ Miscellaneous ] CG.Animation
  [ Miscellaneous ] CoolBlinkies
  [ Miscellaneous ] CountDownTimer
  [ Miscellaneous ] DriveComboBox
  [ Miscellaneous ] ErrorControls
  [ Miscellaneous ] Owf.Controls.DigitalDisplayControl
  [ Miscellaneous ] ShaperRater
  [ Miscellaneous ] StarRateControl
  [ Miscellaneous ] StarRating
  [ Miscellaneous ] Vista GUI
  [ Miscellaneous ] VistaMenuControl
  [ Miscellaneous ] WizardControl
  [ NumberPickers ] CoolSoft.NumericUpDownEx.VB
  [ NumberPickers ] GLUI.NET
  [ Ookii Dialogs ] Ookii.Dialogs
  [ Ookii Dialogs ] Ookii.Dialogs.Wpf
  [ Panels ] AlphaGradientPanel
  [ Panels ] gGlowBox
  [ Panels ] GradientPanel
  [ Panels ] KISControls
  [ Panels ] MBPanel
  [ Panels ] OVT.CustomControls
  [ Panels ] Owf.Controls.A1Panel
  [ Panels ] Owf.Controls.OutlookPanelEx
  [ Panels ] UI.Glass.Panel
  [ Panels ] VS2008Panel
  [ PictureBoxes ] Imagecontrol
  [ ProgressBars ] AmazingProgressBar
  [ ProgressBars ] BusyBarLib
  [ ProgressBars ] Deltares.Controls
  [ ProgressBars ] EasyProgressBarPacket
  [ ProgressBars ] JCS.Components.NeroBar
  [ ProgressBars ] MRG.Controls.UI
  [ ProgressBars ] Owf.Controls.VistaProgressBar
  [ ProgressBars ] ProgBar
  [ ProgressBars ] ProgressBarGoogleChrome
  [ ProgressBars ] ProgressBars
  [ ProgressBars ] SPB
  [ ProgressBars ] Windows7ProgressBar
  [ RichTextBoxes ] CodeTextBox
  [ RichTextBoxes ] FastColoredTextBox
  [ RichTextBoxes ] RicherTextBox
  [ RichTextBoxes ] RichTextBoxLinks
  [ ScrollBars ] CustomScrollBar
  [ Tabs ] JacksonSoft.CustomTabControl
  [ Tabs ] KRBTabControl
  [ Tabs ] TDHTabCtl
  [ Tabs ] UxTabControl
  [ Tabs ] VSTabControl
  [ Tabs ] XPTabControl
  [ Textboxes ] AlphaBlendTextBox
  [ Textboxes ] Blinkertextbox
  [ Textboxes ] ChreneLib
  [ Textboxes ] Custom Featured MessageBox
  [ Textboxes ] DropDownContainer
  [ Textboxes ] ExtendedTextBox
  [ Textboxes ] iptb
  [ Textboxes ] NCI.Windows.Controls
  [ Textboxes ] TextBoxHint
  [ TimePickers ] gTimePickerControl
  [ TitleBars ] gTitleBarLib
  [ TitleBars ] TitleBarControl
  [ TitleBars ] window control box
  [ ToolBoxes ] Guifreaks.Common
  [ ToolBoxes ] Guifreaks.NavigationBar
  [ ToolBoxes ] MozBar
  [ ToolBoxes ] pplStuff.Controls.ToolBox
  [ ToolBoxes ] ToolBox
  [ ToolBoxes ] XPControlLib
  [ Tooltips ] iToolTip
  [ Tooltips ] NotificationWindow
  [ TrackBars ] gTrackBar
  [ TrackBars ] MACTrackBarLib
  [ TreeViews ] MBTreeViewExplorer
  [ Vista ] VistaControls
  [ WebBrowsers ] WebBrowserEx
  [ Windows API Code Pack ] Microsoft.WindowsAPICodePack
  
  
  
• Menú de snippets predefinidos (Para VB.NET):
  [ Application ] Add controls in real-time
  [ Application ] Add controls with events in real-time
  [ Application ] Append text to control
  [ Application ] Center Form
  [ Application ] Change Language
  [ Application ] Click a control to move it
  [ Application ] Context Menu
  [ Application ] Fade IN-OUT
  [ Application ] For each checkbox in...
  [ Application ] For each control in...
  [ Application ] Form Docking
  [ Application ] FullScreen
  [ Application ] Get Current APP Name
  [ Application ] Get Current APP Path
  [ Application ] Get User Config - copia
  [ Application ] Get User Config
  [ Application ] GlobalHotkeys
  [ Application ] Hotkeys
  [ Application ] Ignore Exceptions
  [ Application ] InputBox
  [ Application ] Load INI Settings
  [ Application ] Load Resource To Disk
  [ Application ] Minimize to systray
  [ Application ] Move Control
  [ Application ] Move Form
  [ Application ] Round Borders
  [ Application ] Select all checkboxes
  [ Application ] Set Control Border Color
  [ Application ] Set Control Hint
  [ Application ] Show or hide form in NotifyIcon
  [ Application ] Trial Period
  [ Audio ] Play WAV LOOP
  [ Audio ] Play WAV
  [ Audio ] Rec Sound
  [ Audio ] Stop sound
  [ Colors ] Get Random QB Color
  [ Colors ] Get Random RGB Color
  [ Console ] Hide or show console
  [ Console ] Join Arguments
  [ Console ] Menu with arrows
  [ Console ] Parse arguments
  [ Controls ] [LinkLabel] - New LinkLabel
  [ Controls ] [ListView] - ItemChecked Event
  [ Controls ] [ListView] - ListView Sort Column event
  [ Controls ] [MessageBox] Centered MessageBox
  [ Controls ] [MessageBox] Question - Cancel operation
  [ Controls ] [MessageBox] Question - Exit application
  [ Controls ] [OpenFileDialog] - New dialog
  [ Controls ] [RichTextBox] Load TextFile in RichTextbox
  [ Controls ] [SaveFileDialog] - New dialog
  [ Controls ] [Textbox] Allow only letters
  [ Controls ] [Textbox] Allow only numbers
  [ Controls ] [Textbox] Drag-Drop a file
  [ Controls ] [Textbox] Drag-Drop a folder
  [ Controls ] [Textbox] wait for ENTER key
  [ Controls ] [WebBrowser] Wait for webpage to be loaded
  [ Cryptography ] AES Decrypt
  [ Cryptography ] AES Encrypt
  [ Cryptography ] Base64 To String
  [ Cryptography ] Encrypt-Decrypt string (Method 1)
  [ Cryptography ] Encrypt-Decrypt string (Method 2)
  [ Cryptography ] String To Base64
  [ Custom APIS ] MediaInfo Examples
  [ Custom APIS ] MediaInfo [CLASS]
  [ Custom APIS ] SevenZipSharp Compress
  [ Custom APIS ] SevenZipSharp Extract
  [ Custom APIS ] SevenZipSharp FileInfo
  [ Custom APIS ] [VistaCoreAudioAPI] - Fade Master Volume
  [ Custom APIS ] [VistaCoreAudioAPI] - Get Master Volume
  [ Custom APIS ] [VistaCoreAudioAPI] - Mute Master Volume
  [ Custom APIS ] [VistaCoreAudioAPI] - Set Master Volume
  [ Custom APIS ] [Windows API Code Pack] - Set TaskBar Status
  [ Custom APIS ] [Windows API Code Pack] - Set TaskBar Value
  [ Custom Controls ] PopCursor example
  [ Custom Controls ] PopCursor [CLASS]
  [ Custom Controls ] [Ooki VistaFolderBrowserDialog] - New dialog
  [ Custom Controls ] [RichTextBoxEx] - Insert FileLink
  [ Directories ] Can Access To Folder
  [ Directories ] Directory Exist
  [ Directories ] Get Directory Size
  [ Directories ] Make Dir
  [ Directories ] Set Folder Access
  [ Files ] Can Access To File
  [ Files ] Change File Attributes
  [ Files ] Compare Files
  [ Files ] Copy File With Cancel
  [ Files ] Copy File
  [ Files ] Create ShortCut (.lnk)
  [ Files ] Delete File
  [ Files ] File Add Attribute
  [ Files ] File Exist
  [ Files ] File Have Attribute
  [ Files ] File Remove Attribute
  [ Files ] Get All Files
  [ Files ] Get File Info [FUNCTION]
  [ Files ] Get File Info
  [ Files ] Get Files By FileExtensions
  [ Files ] Move File
  [ Files ] Rename File
  [ Files ] Resolve shortcuts (.lnk)
  [ Files ] Set File Access
  [ Files ] Validate Windows FileName
  [ Fonts ] Font Is Installed
  [ Fonts ] Get Installed Fonts
  [ Fonts ] Use Custom Text-Font
  [ Hardware ] Get Connected Drives
  [ Hardware ] Get CPU ID
  [ Hardware ] Get Drives Info
  [ Hardware ] Get Free Disk Space
  [ Hardware ] Get Motherboard ID
  [ Hardware ] Get Printers
  [ Hardware ] Monitorize Drives
  [ Hashes ] Get CRC32
  [ Hashes ] Get MD5 Of File
  [ Hashes ] Get MD5 Of String
  [ Hashes ] Get SHA1 Of File
  [ Hashes ] Get SHA1 Of String
  [ Image ] Desktop ScreenShot
  [ Image ] Drag-Drop a image
  [ Image ] For each Image in My.Resources
  [ Image ] Form ScreenShot
  [ Image ] Get Image Sector
  [ Image ] GrayScale Image
  [ Image ] Resize Image File
  [ Image ] Resize Image Resource
  [ Image ] Save ImageFile
  [ Internet ] Download URL
  [ Internet ] FTP Upload
  [ Internet ] Get IP Adress
  [ Internet ] Get URL SourceCode
  [ Internet ] GMail Sender
  [ Internet ] Hotmail Sender
  [ Internet ] Is Internet Avaliable
  [ Internet ] Send POST PHP
  [ Internet ] URL Decode
  [ Internet ] URL Encode
  [ Internet ] Validate URL
  [ Miscellaneous ] Byte To Char
  [ Miscellaneous ] Captcha Generator
  [ Miscellaneous ] Char To Byte
  [ Miscellaneous ] Convert Time
  [ Miscellaneous ] Elapsed Time [FUNCTION]
  [ Miscellaneous ] Elapsed Time
  [ Miscellaneous ] Get Enum Name
  [ Miscellaneous ] Get Enum Value
  [ Miscellaneous ] Get FrameWork Of File
  [ Miscellaneous ] Get Percentage
  [ Miscellaneous ] Get Random Number
  [ Miscellaneous ] Get Random Password
  [ Miscellaneous ] Hex to Byte-Array
  [ Miscellaneous ] Minimize VS IDE when APP is in execution
  [ Miscellaneous ] Number Is In Range
  [ Miscellaneous ] Number Is Prime
  [ Miscellaneous ] Sleep
  [ Multi-Threading ] Invoke Control
  [ Multi-Threading ] New BackgroundWorker [CLASS]
  [ Multi-Threading ] New Thread
  [ Multi-Threading ] Raise Events Cross-Thread
  [ OS ] Get Cursor Pos
  [ OS ] Get Local Date
  [ OS ] Get Local Day
  [ OS ] Get Local Time
  [ OS ] Get OS Architecture
  [ OS ] Get OS Edition
  [ OS ] Get OS Version
  [ OS ] Get Screen Resolution
  [ OS ] Get TempDir
  [ OS ] Get UserName
  [ OS ] Mouse Click
  [ OS ] Move Mouse
  [ OS ] Set Cursor Pos
  [ OS ] Set PC State
  [ OS ] Set System Cursor
  [ OS ] User Is Admin
  [ Process ] Close Process
  [ Process ] Flush Memory
  [ Process ] Get Process Handle
  [ Process ] Get Process PID
  [ Process ] Get Process Window Title
  [ Process ] Kill Process
  [ Process ] Process is running
  [ Process ] Run Process [FUNCTION]
  [ Process ] Run Process
  [ Process ] SendKeys To App
  [ Process ] Wait For Application To Load
  [ Registry ] Associate File Extension
  [ Registry ] Registry Edit [FUNCTIONS]
  [ Services ] Get Service Status
  [ Services ] Start or stop service
  [ Size ] Convert Bytes
  [ Size ] Convert To Disc Size
  [ String ] Binary To String
  [ String ] Decimal To Hexadecimal
  [ String ] Delimit String
  [ String ] Find RegEx
  [ String ] Find String Ocurrences
  [ String ] Hex To String
  [ String ] Hexadecimal To Decimal
  [ String ] Remove Last Char
  [ String ] Reverse String
  [ String ] String Is Alphabetic
  [ String ] String Is Email
  [ String ] String Is Numeric
  [ String ] String Is URL
  [ String ] String to Binary
  [ String ] String to Case
  [ String ] String To Hex
  [ Syntax ] GlobalVariables [CLASS]
  [ Syntax ] Handle the same event for various controls
  [ Syntax ] New Dictionary
  [ Syntax ] New Hashtable
  [ Syntax ] New Property
  [ Syntax ] New Select Case
  [ Syntax ] Overload Example
  [ Text ] Copy from clipboard
  [ Text ] Copy to clipboard
  [ Text ] Delimit TextFile
  [ Text ] For each TextFile in My.Resources
  [ Text ] Randomize TextFile
  [ Text ] Read Line From TextFile
  [ Text ] Read TextFile - copia
  [ Text ] Read TextFile
  [ Text ] TextFile Is Unicode
  [ Text ] Write Log
  [ Text ] Write Text To File
  
  
  
  NOTA: El instalador sólamente contiene los paquetes offline necesários, si desean instalar más componentes los pueden seleccionar en mi instalador personalizado, y el instalador de Microsoft se ocupará de descargar los paquetes e instalarlos.
  
  
  
  Descarga:
  http://elektrostudios.tk/Visual Studio 2012.exe
  
  
  
  Que lo disfruten!
  
  
  
  Tutorial expréss de instalación:
  Está grabado por el compañero Seazoux (iKillNukes), El tutorial es para la versión antigua del instalador.
  
  [youtube=640,360]http://www.youtube.com/watch?feature=player_embedded&v=DaC-OifsUBQ#![/youtube]
  
  
  
  
  
  
  
  Tools:
  
  
• .NET reflector 7.7.0.236 + ADDINS (Craqueado)
  - Navega por el código fuente de un executable incluso sin disponer del código fuente
  - Muchas cosas más xD
  
  
  
  
  CORREGIDO:
  
  
  
  
  
  
• .NET Shrink 2.5 (Craqueado)
  - Junta recursos a tu executable
  - Comprime el executable
  - Añade protección anti PE y contraseña al executable
  
  
  
  
  
  
  
  
  
  
• Convert .NET 5.6 (Free version)
  - Convierte códigos de C# a VB.NET y viceversa (Aunque se equivoca bastante con códigos complejos, la verdad)
  
  
  
  
  
  
  
  
  
  
• IL Merge 2.12.0803
  
  - Junta recursos a tu executable
  
  
  
  
  
  

Por si no lo conocían aquí les dejo este magnifico control para darle un toque diferente a vuestra APP 

http://www.codeproject.com/Articles/182973/The-Amazing-ProgressBar-Control

[EDITO:]

Al clickar sobre el botón azul que he señalado en la imagen (2011), se generan en tiempo real una lista de checkboxes y botones en el GroupBox de la derecha,
al clickar en uno de los botones generados en el groupbox, se parsea un texto delimitado y se añaden los items al listview.

Al clickar en otro botón azul limpio los controles del GroupBox (...controls.clear) y todo vuelve a empezar.

Bien, por cada botón azul, necesito recordar los checkboxes del GroupBox que estaban seleccionados, y los items del listview que estaban seleccionados.

Necesito recordarlo dentro del programa, no necesito que cada vez que se abra la aplicación se recuerden los elementos.

Creo que puedo hacer esto sin ayuda pero seguro que lo haría de la manera más complicada xD, me vendrían bien algunas sugerencias antes de empezar a hacerlo...

Mi pregunta es... ¿Como me recomiendan hacerlo?




EDITO:

No se si será la forma más correcta, pero bueno, así es como lo he hecho de momento:

Código (vbnet) [Seleccionar] Expandir


Public SelectedFolders As New List(Of String)

   Public Sub LlamadaCheckBox(ByVal sender As Object, ByVal e As System.EventArgs)
       Dim CheckboxN As CheckBox = CType(sender, CheckBox)
       If CheckboxN.Checked = True Then
           SelectedFolders.Add(ResourceTag & CheckboxN.Text)
       Else
           SelectedFolders.Remove(ResourceTag & CheckboxN.Text)
       End If
   End Sub


el sub que crea los controles:

Código (vbnet) [Seleccionar] Expandir

 Private Sub AddSubfolders(ByVal InputList As List(Of String))
       GroupBox_subcarpetas.Controls.Clear()

       Dim foldernum As Integer = 0
       Dim Array_Size As Integer = InputList.Count
       Dim chk_() As CheckBox
       Dim btn_() As Button
       ReDim chk_(Array_Size)
       ReDim btn_(Array_Size)

       For Each folder In InputList

           foldernum += 1
           chk_(foldernum) = New CheckBox
           chk_(foldernum).Name = "CheckBox" & foldernum
           chk_(foldernum).Text = folder
           chk_(foldernum).Top = 20 * foldernum
           chk_(foldernum).Tag = ResourceTag & chk_(foldernum).Text

           btn_(foldernum) = New Button
           btn_(foldernum).Name = "Button" & foldernum
           btn_(foldernum).Text = folder
           btn_(foldernum).TextAlign = ContentAlignment.TopLeft
           btn_(foldernum).Size = New Point(111, 20)
           btn_(foldernum).Top = 20 * foldernum
           btn_(foldernum).Location = New Point(20, btn_(foldernum).Top)
           btn_(foldernum).Tag = ResourceTag

           GroupBox_subcarpetas.Controls.Add(chk_(foldernum))
           GroupBox_subcarpetas.Controls.Add(btn_(foldernum))
           AddHandler chk_(foldernum).CheckedChanged, AddressOf LlamadaCheckBox
           AddHandler btn_(foldernum).Click, AddressOf LlamadaButton

           btn_(foldernum).BringToFront()

           If SelectedFolders.Contains(ResourceTag & chk_(foldernum).Text) Then chk_(foldernum).Checked = True

       Next