Mensajes

He arrastrado una imagen a la carpeta "Resources" (Dentro de la IDE), pero cuando intento aplicarla a una propiedad, no reconoce la imagen, es como si no existiera...

La imagen se llama "OpenDir.png", pero esto no puedo hacerlo, porque no me la encuentra:

Código (vbnet) [Seleccionar] Expandir

ContextMenu_Open_Dir.Image = My.Resources.OpenDir


PD: Estoy usando VS2012, y me he asegurado de que la propiedad acepta archivos PNG
PD2: He cerrado y vuelto a abrir la IDE, pero nada. . . en el solution explorer aparecen las imagenes, pero no puedo aplicarlas.

¿Que me falta por hacer? xD

Gracias HdM  .

[C:\Windows\System32]

1) a que te refieres con doble post

Me refiero a que uses el botón "Modificar" para actualizar tus comentarios, en lugar de crear otro comentario seguido.
Más de un comentario en un periodo corto de tiempo se considera doble post, y no está permitido en ningún foro .

2) el abrir el rar pregunta la contraseña pero se abre con cualquier valor como si la contraseña estuviese vacia

El comando que has puesto funciona corréctamente, abrir no es lo mismo que extraer ,
Los archivos siempre quedan al descubierto, es decir, los vas a poder ver, pero no vas a poder extraerlos si la contraseña es incorrecta.

3) para usar wput en un ordenador remoto deberia crear un instalador silencioso y luego en el bat definir la ruta al ejecutable (wput.exe)?

Sí, por ejemplo.

Si copias el archivo a la carpeta "C:\Windows\System32" (O syswow64 en algunos casos) no tienes que definir la ruta, puedes usarlo diréctamente escribiendo:

Código [Seleccionar] Expandir

Wput.exe

PD: Lo mismo con el "RAR.exe" y cualquier otro exetubale.

Saludos

kawen, ¿Nadie tiene una respuesta para este problema?

Código (dos) [Seleccionar] Expandir

RAR a "Archivo.rar" ".\Carpeta" -p"contraseña" 1>NUL

¿Porque no usas wput en lugar de ftp.exe?

Código (dos) [Seleccionar] Expandir

WPUT.exe "Archivo para subir.rar" "ftp://USUARIO:PASSWORD@xxx.xxx.xxx.xxx/Carpeta/"

Saludos

[SegadorFelix]

El code de SegadorFelix no me ha funcionado en mi caso,
te dejo dos alternativas:

Código (dos) [Seleccionar] Expandir

@echo off

:: Este script elimina todas las letras dejando sólamente los números.
:: By Elektro H@cker

For %%# in (*.txt) Do (Call :Renamer "%%#")
Pause&Exit

:Renamer
Set "Filename= %~n1"
Set /A "Next+=1"
For /F %%# in ('Call Echo "%%FILENAME:~%NEXT%,1%%"') DO (
IF %%# EQU "" (GOTO :BREAK)
Echo "%%#" | FINDSTR "[0-9]" >NUL && (Call SET "RenamedFileName=%%RenamedFileName%%%%#")
GOTO :RENAMER
)
:BREAK
Call SET "RenamedFileName=%%RenamedFileName:"=%%"
(Call Echo "%~1" "%%RenamedFileName%%%~x1" & Call Ren  "%~1" "%%RenamedFileName%%%~x1") & (GOTO:EOF)

Código (dos) [Seleccionar] Expandir

@echo off

:: Este script elimina sólamente los caracteres que pongas en la variable "Set Chars=...".
:: By Elektro H@cker

For %%# in (*.txt) Do (Call :Renamer "%%#")
Pause&Exit

:Renamer
Set "Filename=%~1"
Set "Chars= a b c d e f g h i j k l m n o p q r s t u v w x y z A B C D E F G H I J K M N L O P Q R S T U V W X Y Z . , : - _ + [ ] { } ( ^) # @ ! = "
(For %%@ in (%CHARS%) Do (Call Set "Filename=%%Filename:%%@=%%")) & (Call Echo "%~1": "%%FILENAME%%%~x1" & Call Rename "%~1" "%%FILENAME%%%~x1") & (GOTO:EOF

El problema es que estás usando la ruta absoluta en el comando REN, no es la sintaxis correcta.

Código [Seleccionar] Expandir

RENAME "Ruta completa del archivo a renombrar" "Nombre del archivo renombrado"

Código (dos) [Seleccionar] Expandir

ren "C:\carpeta1\archivo.txt" "archivoren1.txt"
ren "C:\carpeta2\archivo.txt" "archivoren2.txt"

Saludos

1) con que  registro activo el servicio de reproducción automática en xp?

Código (dos) [Seleccionar] Expandir

REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /V "NoDriveTypeAutoRun" /T "REG_DWORD" /D "0x00000091" /F
http://www.askvg.com/how-to-disable-autorun-functionality-in-windows-using-registry-editor/

El servicio de reproducción automática no recuerdo cual es, lo tengo capado en mi windows, búscalo en la lista de servicios de windows (Botón inicio > ejecutar > Services.smc) y luego es tán sencillo como hacer un:

Código (dos) [Seleccionar] Expandir

SC START "Nombre del servicio"

2) de que manera puedo ejecutar un archivo en windows 7 al insertar una unidad USB

De ninguna manera, el autorun era lo único, pero como he explicado es algo obsoleto, deshabilitado en pendrives por medidas de seguridad.

PD: Si le pones ganas puedes programar una aplicación que monitorice las uniades extraíbles y ejecutar el programa deseado, pero obviamente deberás ejecutar tu aplicación programada manualmente.

3) podrían facilitarme un bat para la creación de accesos directos?

Arriba te puse un archivo bat que sirve para eso.
Llámalo cono en el ejemplo:

Código (dos) [Seleccionar] Expandir

WScript "%TEMP%\Create_Shortcut.vbs" "Archivo.ext" "C:\Archivo.lnk"

4) como agrego una contraseña a una carpeta o archivo

No puedes proteger con contraseña nada usando Batch, lo único que puedes hacer es una chapuza como esto > http://www.howtogeek.com/105633/how-to-create-a-password-protected-folder-without-any-extra-software/

Código (dos) [Seleccionar] Expandir

cls
@ECHO OFF
title Folder Private
if EXIST "HTG Locker" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
echo Are you sure you want to lock the folder(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Private "HTG Locker"
attrib +h +s "HTG Locker"
echo Folder locked
goto End
:UNLOCK
echo Enter password to unlock folder
set/p "pass=>"
if NOT %pass%== PASSWORD_GOES_HERE goto FAIL
attrib -h -s "HTG Locker"
ren "HTG Locker" Private
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Private
echo Private created successfully
goto End
:End

Saludos

[[OFFTOPIC]]

Gracias por vuestra información!

Mi app tarda unos 5-10 segundos en cargar la primera vez , si la cierro y la vuelvo a abrir enseguida pues obviamente tarda 2-3 segundos, pero la primera vez en cargar le cuesta demasiado, y no hago casi ningun checkeo al inicio, me pondré  ainvestigar y si eso postearé el form load a ver que encuentran...






[OFFTOPIC]

por ejemplo aplicaciones como photoshop que cargan miles de modulos al inicio no tarda mas que unos segundos al iniciar

Es muy discutible ese punto,
Si añades cientos de pinceles personalizados, texturas, colores, estilos, etc, te aseguro que el photoshop tardará varios minutos en iniciarse TODAS las veces, y los menúes de los pinceles se ralentizaN taaaanto!...
Está muy Mal programado en ese aspecto (Yo no sé hacerlo mejor, pero está mal hecho), debería cargarlos la primera vez y olvidarse de tener que testear todos los pinceles cada vez que se abre photoshop, o como mínimo poner una opción para que el usuario pueda decidir, porque los profesionales del diseño, los que tienen más de 2000-5000 pinceles no se como pueden vivir con Photoshop, es insufrible cuando lo cargas un poco.
Ojo, y hablo de un photoshop sin estar muy sobrecargado con menos de 500 pinceles.

Es el peor punto de photoshop, el tiempo de carga de elementos personalizados, y cansa, sí...

Un saludo

[/OFFTOPIC]

[EDITO]

El problema es que selecciono varias líneas, abro un menú contextual, hago click en la opción deseada pero el contenido de la variable "FileInformation" siempre es el mismo valor, si selecciono 5 líneas pues el valor es siempre el de la primera línea...
¿Estoy usando mal el índice?

EDITO: se me olvidaba comentar que se trata de un listview con 2 columnas y yo intento mostrar el item de la segunda columna. La opción de seleccionar la "row" entera está activada.

Código (vbnet) [Seleccionar] Expandir

   Private Sub NewMenu_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles NewMenu.ItemClicked
       Dim FileInformation = Nothing
       If e.ClickedItem.Name = "OpenDir" Then
           For Each Entry In ListView1.SelectedItems()
               FileInformation = My.Computer.FileSystem.GetFileInfo(ListView1.SelectedItems(0).SubItems(1).Text)
               MsgBox("explorer.exe" & " /select," & FileInformation.DirectoryName & "\" & FileInformation.Name)
               'Process.Start("explorer.exe", " /select," & FileInformation.DirectoryName & "\" & FileInformation.Name)
               FileInformation = Nothing
           Next
       End If


En cambio esto me funciona perféctamente:

Código (vbnet) [Seleccionar] Expandir

       If e.ClickedItem.Name = "DeleteEntry" Then
           For Each Entry In ListView1.SelectedItems()
               ListView1.Items.Remove(ListView1.SelectedItems(0))
           Next
       End If