lien internet

Question

Voilà, j'ai un prob avec les liens internet, je fais comme ça:

Public Sub gotoweb(url)
Dim Success As Long
Success = ShellExecute(2, vbNullString, url, vbNullString, "C:", 1)
End Sub

puis

gotoweb("http://www.blablabla.com)

ça marche, mais le problème, c'est que si une fenêtre internet est déjà ouverte, bah ça va la prendre et aller sur blablabla.com, y'a pas moyen de faire réouvrir une nouvelle fenêtre plutôt que de prendre une déjà ouverte?
Merci

DeAtHCrAsH · Answer

Il existe un API qui permet d'ouvrir des liens vers une nouvelle fenetre ....

Dans un module tu mets ca :

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

C'est la declaration de l'api

Ensuite pour le lien, tu mets ca dans ton code :

Call ShellExecute(0&, vbNullString, "http://www.krhackerz.fr.fm", vbNullString, vbNullString, vbNormalFocus)

Voili voilou .... 
Et ca marche a tout les coups et correctement...
Bonne prog...
A++

DeAtH_-_CrAsH :]

cs_psychodingue · Answer

Arf... nan ça marche toujours pas, ça prend toujours la première fenêtre internet ouverte et ça change la page

fredlynx · Answer

J'ai poster le source solution à ton problème... http://www.vbfrance.com/article.aspx?Val= 4634 http://www.lynx-asp.fr.st WebMaster

Lien internet

3 réponses

Discussions similaires