Ouvrir image dans une fenêtre en VBS

Résolu/Fermé

PetitMinou12 Messages postés 71 Date d'inscription dimanche 11 décembre 2016 Statut Membre Dernière intervention 14 mars 2023 - 16 févr. 2020 à 20:59
PetitMinou12 Messages postés 71 Date d'inscription dimanche 11 décembre 2016 Statut Membre Dernière intervention 14 mars 2023 - 19 févr. 2020 à 14:11

Bonjour, je souhaiterais ouvrir une image dans une fenêtre , j'ai donc chercher sur des forum et j'ai trouvé sa :

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='C:\Users\admin\Desktop\ProgDev\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 compiler.

A voir également:

Vbs image
Image iso - Guide
Vbs windows - Accueil - Optimisation
Acronis true image - Télécharger - Sauvegarde
Faststone image viewer - Télécharger - Visionnage & Diaporama
Image iso windows 10 - Guide

4 réponses

Réponse 1 / 4

jordane45 Messages postés 38346 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 décembre 2024 4 717
18 févr. 2020 à 15:50

dim fso
dim scriptdir
dim src_path
dim src
set fso = CreateObject("Scripting.FileSystemObject")
' directory in which this script is currently running
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 = "Test"
    .Document.Body.InnerHTML = _
        "<img src='" & src_path & "' height=1000 width=1000>"
End With

PetitMinou12 Messages postés 71 Date d'inscription dimanche 11 décembre 2016 Statut Membre Dernière intervention 14 mars 2023 5
19 févr. 2020 à 14:11

J'ai adapté le programme et sa marche merci ^^

Réponse 2 / 4

jordane45 Messages postés 38346 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 décembre 2024 4 717
16 févr. 2020 à 21:26

Bonjour,

pour récupérer le chemin du script

scriptdir = WScript.ScriptFullName.substring(0,WScript.ScriptFullName.lastIndexOf(WScript.ScriptName)-1)

Il ne te reste qu'à concaténer dans ta balise src

Réponse 3 / 4

PetitMinou12 Messages postés 71 Date d'inscription dimanche 11 décembre 2016 Statut Membre Dernière intervention 14 mars 2023 5
17 févr. 2020 à 12:25

Je ne vois pas ou je dois insérée cette ligne et ou je définie mon image :/

jordane45 Messages postés 38346 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 décembre 2024 4 717
17 févr. 2020 à 12:53

Tu ne vois pas où est défini l'image ?
Il n'y a pas beaucoup de lignes dans le code pourtant..
Regarde là

src='C:\Users\admin\Desktop\ProgDev\1.jpg' height=1000 width=1000>"

Réponse 4 / 4

PetitMinou12 Messages postés 71 Date d'inscription dimanche 11 décembre 2016 Statut Membre Dernière intervention 14 mars 2023 5
17 févr. 2020 à 18:10

Oui mais sa je sais x) ce que je souhaite c'est connaître comment mettre la ligne pour inséré l'image

jordane45 Messages postés 38346 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 décembre 2024 4 717
17 févr. 2020 à 18:16

En concatenant.
http://www.tizag.com/vbscriptTutorial/vbscriptstrings.php

PetitMinou12 Messages postés 71 Date d'inscription dimanche 11 décembre 2016 Statut Membre Dernière intervention 14 mars 2023 5 > jordane45 Messages postés 38346 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 décembre 2024
Modifié le 18 févr. 2020 à 06:37

J'ai essayé

"<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>"

Et aussi

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

et même un truc foireux crée par moi même :

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

Et aucun ne marche :/

Edit: ajout du langage dans les balises de code

jordane45 Messages postés 38346 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 16 décembre 2024 4 717 > PetitMinou12 Messages postés 71 Date d'inscription dimanche 11 décembre 2016 Statut Membre Dernière intervention 14 mars 2023
18 févr. 2020 à 06:40

avec des double quotes au lieu des apostrophes ca fonctionnera mieux je pense.

"src='" & scriptdir & "1.jpeg'

Oui sauf que quand je définis :

Set objImg = CreateObject("InternetExplorer.Application")
scriptdir = WScript.ScriptFullName.substring(0,WScript.ScriptFullName.lastIndexOf(WScript.ScriptName)-1)

Il me fait une erreur

Discussions similaires