Lien hypertexte dans un script .vbs en wsh [Résolu]
cs_zatox
- Messages postés
- 79
- Date d'inscription
- lundi 5 novembre 2007
- Dernière intervention
- 24 octobre 2017
- Messages postés
- 79
- Date d'inscription
- lundi 5 novembre 2007
- Dernière intervention
- 24 octobre 2017
A voir également:
- Wshshell.run syntaxe
- Créer un lien hypertext dans Excel depuis Vb ✓ - Forum - Visual Basic 6
- Lien hypertext actif sous VB ✓ - Forum - VB.NET
- Creation utilisateurs win 2003 avec un script vbs - Conseils pratiques - Visual Basic / VB.NET
- Détecteur les liens hypertext dans un richtextbox - Codes sources - Visual Basic / VB.NET (Modules)
- Lien hypertexte comme ie - Codes sources - Visual Basic / VB.NET (Control)
12 réponses
Meilleure réponse
- Messages postés
- 1241
- Date d'inscription
- mardi 10 octobre 2006
- Dernière intervention
- 27 août 2013
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..
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..
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 97 internautes ce mois-ci
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Dernière intervention
- 15 novembre 2016
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
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
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Dernière intervention
- 15 novembre 2016
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
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
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Dernière intervention
- 15 novembre 2016
Re,
Regarde ce lien aussi, cela devrait être utile je pense....
A+
Exploreur
Linux a un noyau, Windows un pépin
Regarde ce lien aussi, cela devrait être utile je pense....
A+
Exploreur
Linux a un noyau, Windows un pépin
- Messages postés
- 79
- Date d'inscription
- lundi 5 novembre 2007
- Dernière intervention
- 24 octobre 2017
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"
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"
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Dernière intervention
- 15 novembre 2016
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Dernière intervention
- 3 février 2018
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
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
- Messages postés
- 13368
- Date d'inscription
- lundi 13 décembre 2004
- Dernière intervention
- 3 février 2018
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
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
- Messages postés
- 4824
- Date d'inscription
- lundi 11 novembre 2002
- Dernière intervention
- 15 novembre 2016
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.