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.
cs_zatox
Messages postés79Date d'inscriptionlundi 5 novembre 2007StatutMembreDernière intervention24 octobre 2017 9 janv. 2008 à 14:44
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
cs_Exploreur
Messages postés4821Date d'inscriptionlundi 11 novembre 2002StatutMembreDernière intervention15 novembre 201615 9 janv. 2008 à 16:13
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
cs_zatox
Messages postés79Date d'inscriptionlundi 5 novembre 2007StatutMembreDernière intervention24 octobre 2017 9 janv. 2008 à 17:03
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"
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 9 janv. 2008 à 17:19
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
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 9 janv. 2008 à 17:23
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
cs_zatox
Messages postés79Date d'inscriptionlundi 5 novembre 2007StatutMembreDernière intervention24 octobre 2017 29 janv. 2008 à 18:24
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