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
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.
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
- Acces a un site perso a partir d'un objet...
- Plan d'accès sur votre site avec zoom, vue sattelite, votre logo et adresse grâce à google maps. - Conseils pratiques - Javascript
- Scanneur de failles http de son site perso ! - Codes sources - Python (Réseau & internet)
- Delphi / Pascal : Interdire l'accès à certain sites internet - CodeS SourceS - Guide
- PHP : Utiliser ses albums photos picasa sur son site perso - CodeS SourceS - Guide
- PHP : Générateur de couche dao pour site web à partir d'une base de donné - Guide
Commentaires
c pas sur que lecteur soit c:
c pas sur que www.vbfrance.com soit ton site perso
----------
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
------
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.