Ouvrir image dans une fenêtre en VBS

Résolu
PetitMinou12 Messages postés 71 Date d'inscription   Statut Membre Dernière intervention   -  
PetitMinou12 Messages postés 71 Date d'inscription   Statut Membre Dernière intervention   -
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:

4 réponses

Réponse 1 / 4
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
  
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

1
PetitMinou12 Messages postés 71 Date d'inscription   Statut Membre Dernière intervention   5
 
J'ai adapté le programme et sa marche merci ^^
0
Réponse 2 / 4
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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
0
Réponse 3 / 4
PetitMinou12 Messages postés 71 Date d'inscription   Statut Membre Dernière intervention   5
 
Je ne vois pas ou je dois insérée cette ligne et ou je définie mon image :/
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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>"
0
Réponse 4 / 4
PetitMinou12 Messages postés 71 Date d'inscription   Statut Membre Dernière intervention   5
 
Oui mais sa je sais x) ce que je souhaite c'est connaître comment mettre la ligne pour inséré l'image
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
En concatenant.
http://www.tizag.com/vbscriptTutorial/vbscriptstrings.php
0
PetitMinou12 Messages postés 71 Date d'inscription   Statut Membre Dernière intervention   5 > jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention  
 
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
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752 > PetitMinou12 Messages postés 71 Date d'inscription   Statut Membre Dernière intervention  
 
avec des double quotes au lieu des apostrophes ca fonctionnera mieux je pense. 
"src='" & scriptdir & "1.jpeg'
0
PetitMinou12 Messages postés 71 Date d'inscription   Statut Membre Dernière intervention   5 > jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention  
 
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
0

Discussions similaires

PIX
plart -
jordane45 -

1 réponse
Dechiffrer une image caché
JACQUE -
Otomec -

1 réponse
Retrouver l'image originale après avoir fait des modifications ?
Raven -
Asta972155 -

10 réponses