Posez votre question Signaler

Lien hypertexte dans un script .vbs en wsh [Résolu]

Messages postés
79
Date d'inscription
lundi 5 novembre 2007
Dernière intervention
24 octobre 2017
 - - Dernière réponse : cs_zatox
Messages postés
79
Date d'inscription
lundi 5 novembre 2007
Dernière intervention
24 octobre 2017
 - 29 janv. 2008 à 18:24
Visual Basic 6 Posez votre question Signaler
bonjour a tous, j'ai créé un petit script en wsh, que j'enregistre dans un fichier.vbs.
 voici mon code

dim WshShell
set WshShell=wscript.CreateObject("WScript.Shell")
WshShell.Popup "Bonjour !" & chr(13) & _
"Nous sommes le " & date & "." & chr(13) & _
"Il est " & time & "." & chr(13) & _
"Visitez http://pc-system.fr" , 10, "Titre"

mon problème est que cette ligne:

"Visitez http://pc-system.fr" , 10, "Titre"

affiche juste une URL, et oblige l'utilisateur, s'il veut visiter mon site, a la recopier dans son navigateur. j'aimerais donc savoir s'il est possible de créer un lien hypertexte qui permettrait d'un simple clic sur l'URL, de se connecter sur mon site.

merci davance , cordialement zatox
Afficher la suite 

Votre réponse

Répondre au sujet

12 réponses

Meilleure réponse
Signaler Commenter la réponse de lolokun
Messages postés
1241
Date d'inscription
mardi 10 octobre 2006
Dernière intervention
27 août 2013
 6
3
Merci
Bonsoir ,

En reprenant le script d'exploreur (salut) en vbs ceci focntionne :

wshShell.run "rundll32.exe url.dll,FileProtocolHandler " & "http://pc-system.fr"

L'expérience, c'est une connerie par jour, mais jamais la même..

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 120 internautes nous ont dit merci ce mois-ci

Commenter la réponse de lolokun
Signaler Commenter la réponse de cs_zatox
Messages postés
79
Date d'inscription
lundi 5 novembre 2007
Dernière intervention
24 octobre 2017
0
Merci
je ne sais pas si je suis au bon endroit pour poser cette question, si ce n'est pas le cas, je demande a un modo ou admin de bien vouloir déplacer, je ne me repère pas bien sur ce site , merci
Commenter la réponse de cs_zatox
Signaler Commenter la réponse de PCPT
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Dernière intervention
3 février 2018
 30
0
Merci
déplacé de VB.NET à VBS
(ne valide que la ou les réponses qui t'apportent une solution, pas ton message ^^. sinon personne ne lira ta question)
Commenter la réponse de PCPT
Signaler Commenter la réponse de cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
 16
0
Merci
Bonsoir à tous,

J'ai essayé un truc du genre, mais il y a une syntaxe que je ne connais pas : c'est pour lancer le lien internet...j'ai mis la syntaxe fonctionnant sous VB6 et bouhhhh, cela ne fonctionne pas.

Enfin juste pour te montrer le principe d'utiliser une MsgBox avec choix (oui/non), si oui tu lance ta page internet...

Je vais voir si je ne trouve pas la bonne syntaxe sur le net, pour ouvrir et charger un lien http...

Dim sMsg, iRep


sMsg = "Bonjour !" & vbCrLf & _
"Nous sommes le " & Date & "." & vbCrLf & _
"Il est " & Time & "." & vbCrLf & _
"Visitez http://pc-system.fr" & vbCrLf & vbCrLf & _
"Voulez-vous visiter mon site ?"


iRep = MsgBox(sMsg, vbInformation Or vbYesNo, "Informations")


If iRep = 6 Then
   ' Shell "rundll32.exe url.dll,FileProtocolHandler " & "http://pc-system.fr"
End If 


A+
Exploreur

 Linux a un noyau, Windows un pépin


 
Commenter la réponse de cs_Exploreur
Signaler Commenter la réponse de cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
 16
0
Merci
Re,

Ok, je viens de trouver ta réponse normalement :

Dim sMsg, iRep, oLien


Set oLien = Wscript.CreateObject("InternetExplorer.Application")


sMsg = "Bonjour !" & vbCrLf & _
"Nous sommes le " & Date & "." & vbCrLf & _
"Il est " & Time & "." & vbCrLf & _
"Mon Site : http://pc-system.fr" & vbCrLf & vbCrLf & _
"Voulez-vous visiter mon site ?"


iRep = MsgBox(sMsg, vbInformation Or vbYesNo, "Informations")


If iRep = 6 Then
   oLien.visible = True
   oLien.navigate "http://www.pc-system.fr"
End If


A+
Exploreur

 Linux a un noyau, Windows un pépin


 
Commenter la réponse de cs_Exploreur
Signaler Commenter la réponse de cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
 16
0
Merci
Re,

Regarde ce lien aussi, cela devrait être utile je pense....

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Commenter la réponse de cs_Exploreur
Signaler Commenter la réponse de cs_zatox
Messages postés
79
Date d'inscription
lundi 5 novembre 2007
Dernière intervention
24 octobre 2017
0
Merci
bonsoir a tous, merci tout d'abord a PCPT qui m'a donné l'urilité de valider les réponses. merci ensuite aux deux autres programmeurs qui se penchent sur mon cas, j'ai essayé la méthode de lolokun, mais lorsque j'execute mon script, j'ai un message

Script : C:\Documents and settings\zatox\Bureau\mesage.vbs
Ligne : 6
Caract: 14
Erreur : Fin d'instruction attendue
Code: 800A0401
Source: Erreur de compilation Microsot VBScript

j'ai du mal placer la commande

voila le code pouvez vous m'aider merci

dim WshShell
set WshShell=wscript.CreateObject("WScript.Shell")
WshShell.Popup "Bonjour !" & chr(13) & _
"Nous sommes le " & date & "." & chr(13) & _
"Il est " & time & "." & chr(13) & _
wshShell.run "rundll32.exe url.dll,FileProtocolHandler " & "http://pc-system.fr" , 10, "Titre"




 
Commenter la réponse de cs_zatox
Signaler Commenter la réponse de cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
 16
0
Merci
Bouhhhhh...je sent mauvais moi ??? As-tu au moins essayé le code que je t'es donné ???

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Commenter la réponse de cs_Exploreur
Signaler Commenter la réponse de PCPT
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Dernière intervention
3 février 2018
 30
0
Merci
umm, peut-être faut-il un espace après la virgule, cependant chez moi çà fonctionne...

sous forme de procédure çà donne çà :

Sub RunUrl(sUrl)
  Dim WshShell
  Set WshShell=WScript.CreateObject("WScript.Shell")
  WshShell.run "rundll32.exe url.dll,
FileProtocolHandler " & sUrl
  Set WshShell=Nothing
End Sub

Dim sMsg, sLink

sLink="http://pc-system.fr"

sMsg = "Bonjour !" & vbCrLf & _
"Nous sommes le
" & Date & "." & vbCrLf & _
"Il est
" & Time & "." & vbCrLf & _
"Visitez
" & sLink & vbCrLf & vbCrLf & _
"Voulez-vous visiter mon site ?"

If MsgBox(sMsg, vbInformation Or vbYesNo, "Informations") = VbYes Then RunUrl(sLink)
 
Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Commenter la réponse de PCPT
Signaler Commenter la réponse de PCPT
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Dernière intervention
3 février 2018
 30
0
Merci
lol Explo ^^

je n'ai pas essayé non plus.... allez on tente
............................................
marche très bien aussi ;)
par contre çà force à utiliser internet explorer

perso je préfère ta première proposition ;)

Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Commenter la réponse de PCPT
Signaler Commenter la réponse de cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
 16
0
Merci
Salut PCPT,

Ben je préfère ta solution maintenant.......Bon allez, j'vais prendre la douche

A+
Exploreur

 Linux a un noyau, Windows un pépin

 
Commenter la réponse de cs_Exploreur
Signaler Commenter la réponse de cs_zatox
Messages postés
79
Date d'inscription
lundi 5 novembre 2007
Dernière intervention
24 octobre 2017
0
Merci
ouos désolé, je ne sais pas pourquoi mais mon message n'a pas du etre correctement envoyé enfin je reposte aujourd'hui pour vous remercier car tout fonctionne merci encore
Commenter la réponse de cs_zatox

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.