Acces a un site perso a partir d'un objet...

0/5 (14 avis)

Snippet vu 7 532 fois - Téléchargée 72 fois

Contenu du snippet

Qui n'a pas réver un jour de créer un raccourci qui servirai à accéder directement à son site ? Et de plus que ce code ne fasse qu'1 ligne ! Oui 1 ligne c'est suffisant. (de quoi s'amuser a faire plein de raccourci ;-) )

Pour cela, insérer un objet (label, textbox....) et demander sa procédure _Click
il ne vous reste plus qu'à insérer le code

Source / Exemple :


SHELL ("C:\program files\internet explorer\iexplore www.vbfrance.com"),1

Conclusion :


Vous l'aurez compris , ce code ouvre une nouvelle fenetre d'internet explorer et ce charge d'y insérer le site demander, evidemment, changer le code en fonction de votre browser internet et aussi celui du site auquel il y aura accès. N'oubliez pas de m'envoyer un petit mail, ca motive pour mettre d'autres sources.

A voir également

Ajouter un commentaire Commentaires
cs_mammadou Messages postés 4 Date d'inscription samedi 10 mai 2003 Statut Membre Dernière intervention 28 juillet 2003
22 mai 2003 à 14:39
c pas sur qu'on ait internet explorer
c pas sur que lecteur soit c:
c pas sur que www.vbfrance.com soit ton site perso
cs_skyraider Messages postés 7 Date d'inscription jeudi 1 février 2001 Statut Membre Dernière intervention 1 mai 2005
14 janv. 2003 à 10:58
Bon, je ne ferais pas attention à ceux qui pettent plus haut que leur cul (ceux qui se disent plus fort car moi je fais mieu et blablabla...). Je tiens à signaler que cette source est une petite démonstration, après vous pouvez modifier le moyen d'afficher le résultat. En gros, au lieu de vous la péter, utilisez votre cerveau !
mmaxuel Messages postés 101 Date d'inscription samedi 13 avril 2002 Statut Membre Dernière intervention 29 avril 2004
14 août 2002 à 17:34
Voila un truc plus classe!!!!

----------

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
ShellExecute Me.hwnd, "open", "http://rmoummed.free.fr", 0, 0, 1
End Sub

------
cs_Stephman Messages postés 39 Date d'inscription samedi 22 juin 2002 Statut Membre Dernière intervention 8 juin 2003
6 juil. 2002 à 22:07
Ta rien de mieux, tu pourrait faire un effort(entre paranthése, vous pouvez pour afficher un message utiliser msgbox "Bonjour", en plus ça fait qu'une ligne...)
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 1
5 juin 2002 à 19:38
Cest null moi mon program file est dans le d donc c pas forcement tout le monde ki la c mieu explorer.exe HTTP://monSiTE
Afficher les 14 commentaires

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.