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.
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
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
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"
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
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
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