Discussion :

[Jacky53]

Bonjour,

Je viens vers vous pour une question qui me parait un peu bête mais qui me pose des problèmes.
Pour le travail je suis obligé de forcer l'utilisation d'une interface web avec internet explorer donc mon idée était de crée un vbscript qui crée un icône de cet interface avec comme lien ("c:\program files\internet explorer\iexplore.exe" et l'interface en question)
Le seul soucis est que quand je crée le lien dans mon vbs l'utilisation des guillemets pose problème.
Voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
dim Shell, DesktopPath, URL
dim chry
dim chrx
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set URL = Shell.CreateShortcut(DesktopPath & "\ldfa.URL")
chry=" ""c:\program files\internet explorer\iexplore.exe"" "
chrx= " l'interfaceweb"
URL.TargetPath =chry+chrx
URL.Save

Comme vous voyez j'ai essayé avec des double cote, avec aussi du code ascii ou même faire appel à un fichier txt mais le problème est toujours le même.

Ce qui est bizarre c'est que je peut avoir le bon résultat dans une msgbox mais quand l'icône est crée le chemin n'est pas le même!

J'y pense je ne suis pas développeur j'ai fait un BTS IG réseaux, donc la prog c'est pas mon fort

[Flamby38]

c'est possible que windows fasse des choses bizarres quand il sagit de IE et des raccourcis vers des pages web.

Qu'est ce qui ne marche pas exactement? Quel est le chemin du raccourci qui est créé?

Au pire si tu ne trouves pas de solution tu peux toujours créer un fichier .bat ou un fichier .vbs qui lance IE avec la page en question, et mettre un raccourci vers ce script au lieu de ton raccourci actuel. Ca contournera toutes les "bizarreries" windows.

[Jacky53]

C'est le lien du raccourci qui est pas correct.
Dans ma msgbox il me dira "c:\program files\internet explorer\iexplore.exe" www.ldfa.info" (c'est un site juste pour faire mes test)
alors que quand je clic sur le lien il m'écrit " "c:\program files\internet explorer\ieexplorer" www.ldfa.info"

Ah je savais pas qu'on pouvait crée un .vbs qui lance IE avec la page en question. J'aimerais bien voir à qui ca ressemble!
Sinon le problème c'est qu'il est très difficile de faire changer les habitudes des utilisateurs, c'est pour ça que je m'entête avec cette solution

PS: Merci pour ta réponse

[ProgElecT]

...........
Ah je savais pas qu'on pouvait crée un .vbs qui lance IE avec la page en question. J'aimerais bien voir à qui ca ressemble!
.............
PS: Merci pour ta réponse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim Sortie
Dim objExplorer
Dim READYSTATE_COMPLETE
READYSTATE_COMPLETE = 4
 
Set objExplorer = CreateObject("InternetExplorer.Application")
 
Sortie = DateAdd("S", 10, Now) 'ajoute de 10 Sc par apport à l'heure systeme
 objExplorer.navigate "http://www.developpez.net/forums/d908000/autres-langages/general-visual-basic-6-vbscript/vbscript/creation-dicone-utilisation-die/" 'pas de parametre supplementaire
Do
 If Now >= Sortie Then Exit Do
Loop Until objExplorer.readyState = READYSTATE_COMPLETE
objExplorer.Visible=True

[Jacky53]

Merci ProgElecT, Mais pourquoi ajoutes-tu 10 secondes par rapport à l'heure système?
Sinon moi j'avais fait ça, plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim IE
Set IE = Wscript.CreateObject("InternetExplorer.Application")
IE.Visible = 1 
IE.navigate "http://www.ldfa.info"

A mon boulot y a plusieurs réseaux, et dans chaque réseaux il y a au minimum Firefox ou IE d'installer mais à l'installation c'est Firefox qui est choisit par défaut! Sauf que certains utilisateurs voudrait utiliser par défaut IE, chrome, etc..
Donc le top du top serait que mon script me permette de choisir le navigateur par défaut (peut-être modifier en dur dans le script) en fonction du lieu du réseaux ,sans que cela soit modifier à la mise à jour du navigateur.

Là j'ai besoin d'un gros coup de pouce
PSésolé si fallait recrée un discussion

[ProgElecT]

Merci ProgElecT, Mais pourquoi ajoutes-tu 10 secondes par rapport à l'heure système?
......

Si le site visé n'existe plus et/ou non disponnible, il y aurait une boucle d'attente infini, la tempo permet de sortir de la boucle même si Loop Until objExplorer.readyState = READYSTATE_COMPLETE n'est pas atteint.

Le fait d'attendre READYSTATE_COMPLETE permet de n'afficher le navigateur que quand la page appelée est complète.