Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: santizuche en 11 Diciembre 2014, 01:58 am



Título: Abrir imagen en el paint con VBS
Publicado por: santizuche en 11 Diciembre 2014, 01:58 am
Hola buenas noches,
Parece tonto pero me esta matando y no se como resolverlo, en fin
No se si este tema va en esta sección. Lo que yo busco es copiar el código para solucionar esto en un bloc de notas con la terminación .vbs y aprender.
::--------------------Problema
Yo tengo una carpeta que se llama "Imagen" esta contiene un archivo llamado "perro.png" , esta carpeta se encuentra en el escritorio con el archivo .VBS
Creo que la ruta seria esta ( ".\Imagen\perro.png" )
La cuestion es que yo se abrir el paint, pero no puedo abrir la imagen en el mismo :P

::----------MiCodigo
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ("mspaint") , 9
::----------MiCodigo

::--------------------Problema
Gracias por verlo e intentar ayudarme, saludos :D :D :D
Si no llego a ser claro, estoy atento para responder


Título: Re: Abrir imagen en el paint con VBS
Publicado por: LeandroA en 11 Diciembre 2014, 05:33 am
Hola mira creo que asi:
hay dos formas una tomando como base la misma ruta que el .vbs y la otra utilizando la ruta del escritorio.

Código:
Set WshShell = WScript.CreateObject("WScript.Shell")
'WshShell.Run "%windir%\system32\mspaint.exe " & chr(34) & left(WScript.ScriptFullName,instrrev(WScript.ScriptFullName,"\")) & "Imagen\35737.png" & chr(34)
WshShell.Run "%windir%\system32\mspaint.exe " & chr(34) & WshShell.SpecialFolders("Desktop") & "\Imagen\35737.png" & chr(34)


Título: Re: Abrir imagen en el paint con VBS
Publicado por: santizuche en 12 Diciembre 2014, 01:24 am
Gracias por responder!
Me funciono, lo cambie un poco tenias un error en el primero que no andaba pero lo corregí tenia un (') de mas, quedo asi:

::----------------------------------Solución
Código:
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "mspaint.exe " & chr(34) & left(WScript.ScriptFullName,instrrev(WScript.ScriptFullName,"\")) & "Archivo\perro.png" & chr(34)
::----------------------------------Solución