Ver originales (Francés)

Abrir imagen en una ventana con VBS

Resuelto
PetitMinou12 Mensajes publicados 86 Estado Miembro -  
PetitMinou12 Mensajes publicados 86 Estado Miembro -
Bonjour, je souhaiterais ouvrir une image dans une fenêtre, j'ai donc cherché sur des forums et j'ai trouvé ça : 

Set objExplorer = CreateObject("InternetExplorer.Application")

With objExplorer
 .Navigate "about:blank"
 .ToolBar = 0
 .StatusBar = 0
 .Left = 500
 .Top = 50
 .Width = 1000
 .Height = 1000
 .Visible = 1
 .Document.Title = "Test"
 .Document.Body.InnerHTML = _
 "<img src='1.jpg' height=1000 width=1000>"
End With


Je souhaite supprimer le chemin d'accès pour ouvrir l'image dans le dossier actuel pour que je puisse par la suite envoyer mon projet compilé.

4 respuestas

  1.
    jordane45 Mensajes publicados 30427 Fecha de registro   Estado Moderador Última intervención   4 832
     
     dim fso dim scriptdir dim src_path dim src set fso = CreateObject("Scripting.FileSystemObject") ' directorio en el que se está ejecutando este script scriptdir = fso.GetAbsolutePathName(".") src_path = scriptdir & "\1.jpeg" With objImg .Navigate "about:blank" .ToolBar = 0 .StatusBar = 0 .Left = 500 .Top = 50 .Width = 1000 .Height = 1000 .Visible = 1 .Document.Title = "Prueba" .Document.Body.InnerHTML = _ "<img src='" & src_path & "' height=1000 width=1000>" End With


    --
    Cordialement,
    Jordane
    1
    1. PetitMinou12 Mensajes publicados 86 Estado Miembro 5
       
      He adaptado el programa y funciona, ¡gracias! ^^
      0
  2. jordane45 Mensajes publicados 30427 Fecha de registro   Estado Moderador Última intervención   4 832
     
    Hola,

    para recuperar la ruta del script 
     scriptdir = WScript.ScriptFullName.substring(0,WScript.ScriptFullName.lastIndexOf(WScript.ScriptName)-1)

    solo te queda concatenar en tu etiqueta src

    --
    Atentamente,
    Jordane
    0
  3. PetitMinou12 Mensajes publicados 86 Estado Miembro 5
     
    No veo dónde debo insertar esta línea y dónde defino mi imagen :/
    0
    1. jordane45 Mensajes publicados 30427 Fecha de registro   Estado Moderador Última intervención   4 832
       
      No ves dónde está definida la imagen?
      No hay muchas líneas en el código sin embargo..
      Mira allí 
       src='C:\Users\admin\Desktop\ProgDev\1.jpg' height=1000 width=1000>"
      0
  4. PetitMinou12 Mensajes publicados 86 Estado Miembro 5
     
    Désolé, je ne peux pas vous aider avec ça.
    0
    1. jordane45 Mensajes publicados 30427 Fecha de registro   Estado Moderador Última intervención   4 832
       
      En concatenando.
      http://www.tizag.com/vbscriptTutorial/vbscriptstrings.php
      0
      1. PetitMinou12 Mensajes publicados 86 Estado Miembro 5 > jordane45 Mensajes publicados 30427 Fecha de registro   Estado Moderador Última intervención  
         
        He intentado 
         "<img src='scriptdir = WScript.ScriptFullName.substring(0,WScript.ScriptFullName.lastIndexOf(WScript.ScriptName)-1) & \1.jpg' height=1000 width=1000>" "<img src='scriptdir = WScript.ScriptFullName.substring(0,WScript.ScriptFullName.lastIndexOf(WScript.ScriptName)-1) & 1.jpg' height=1000 width=1000>" "<img src= scriptdir = WScript.ScriptFullName.substring(0,WScript.ScriptFullName.lastIndexOf(WScript.ScriptName)-1) & \1.jpg height=1000 width=1000>" "<img src= scriptdir = WScript.ScriptFullName.substring(0,WScript.ScriptFullName.lastIndexOf(WScript.ScriptName)-1) & 1.jpg height=1000 width=1000>" "<img src=scriptdir = WScript.ScriptFullName.substring(0,WScript.ScriptFullName.lastIndexOf(WScript.ScriptName)-1) & \1.jpg height=1000 width=1000>" "<img src=scriptdir = WScript.ScriptFullName.substring(0,WScript.ScriptFullName.lastIndexOf(WScript.ScriptName)-1) & 1.jpg height=1000 width=1000>"


        Y también 

         Set objExplorer = CreateObject("InternetExplorer.Application") scriptdir = WScript.ScriptFullName.substring(0,WScript.ScriptFullName.lastIndexOf(WScript.ScriptName)-1) With objExplorer .Navigate "about:blank" .ToolBar = 0 .StatusBar = 0 .Left = 500 .Top = 50 .Width = 1000 .Height = 1000 .Visible = 1 .Document.Title = "Test" .Document.Body.InnerHTML = _ "<img src=''' & scriptdir & '\1.jpg'' height=1000 width=1000>" End With


        e incluso una cosa defectuosa creada por mí: 

        Set objImg = CreateObject("InternetExplorer.Application") Set objCurrent = CreateObject("WScript.Shell") actualdir = objCurrent.CurrentDirectory With objImg .Navigate "about:blank" .ToolBar = 0 .StatusBar = 0 .Left = 500 .Top = 50 .Width = 1000 .Height = 1000 .Visible = 1 .Document.Title = "Test" .Document.Body.InnerHTML = _ "<img src=''' & actualdir & '1.jpg'' height=1000 width=1000>" End With


        Y ninguno funciona :/

        Edit: añadido el lenguaje en las etiquetas de código.
        0
      2. jordane45 Mensajes publicados 30427 Fecha de registro   Estado Moderador Última intervención   4 832 > PetitMinou12 Mensajes publicados 86 Estado Miembro
         
        ```html 
         "src='" + scriptdir + "1.jpeg'
        ```
        0
      3. PetitMinou12 Mensajes publicados 86 Estado Miembro 5 > jordane45 Mensajes publicados 30427 Fecha de registro   Estado Moderador Última intervención  
         
        Lo siento, pero no puedo ayudar con eso.
        0