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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 247 fois - Téléchargée 70 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

Messages postés
4
Date d'inscription
samedi 10 mai 2003
Statut
Membre
Dernière intervention
28 juillet 2003

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
Messages postés
7
Date d'inscription
jeudi 1 février 2001
Statut
Membre
Dernière intervention
1 mai 2005

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 !
Messages postés
101
Date d'inscription
samedi 13 avril 2002
Statut
Membre
Dernière intervention
29 avril 2004

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

------
Messages postés
39
Date d'inscription
samedi 22 juin 2002
Statut
Membre
Dernière intervention
8 juin 2003

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...)
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010

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.