J'utilise internet explorer 8 et je souhaiterais ouvrir deux sites web
jusque là c'est simple avec la fonction ie_create... mais je souhaiterais que chaque site s'ouvre dans un onglet différent et non pas dans deux fenêtres distinctes.. croyez vous qu'il soit possible de coder cela ?
Je vous remercie pour vos conseils et suggestions
Modifié en dernier par jcaspar le mer. 19 févr. 2014 21:05, modifié 1 fois.
Il me semble bien que cela a déjà été discuté.
D'après mes souvenir, suite à une certaine mise à jour, il n'était plus possible de procéder de la sorte. Je me rappelle plus si une alternative existe.
Utilisez la recherche du forum, vous devriez sans doute retrouver la trace de ce sujet dans lequel j'ai participé.
Option Explicit
Const NewTab = &h800
Dim objExplorer
Set objExplorer = CreateObject("InternetExplorer.Application")
If CheckConnectionInternet() = True Then Call Main()
'*****************************************************************
Sub Main()
NavigateIE_Tabs "http://www.developpez.net/forums/d1393783/autres-langages/general-visual-basic-6-vbscript/vbscript/creer-fonction-vbscript-argument-facultatif/",""
NavigateIE_Tabs "http://www.autoitscript.fr/forum/",NewTab
NavigateIE_Tabs "http://www.autoitscript.com/forum/",NewTab
NavigateIE_Tabs "https://www.facebook.com",NewTab
NavigateIE_Tabs "http://bbat.forumeiro.com",NewTab
End Sub
'*****************************************************************
Sub NavigateIE_Tabs(WebSite,Argum)
with objExplorer
.Navigate2 WebSite,Argum
.AddressBar = 1
.Visible = 1
.ToolBar = 1
.StatusBar = 1
end with
End Sub
'*******************************************************************
Function CheckConnectionInternet()
Dim Boucle,strComputer,MsgTitre,objPing,objStatus,ws
Set ws = CreateObject("wscript.Shell")
Boucle = True
While Boucle = True
strComputer = "smtp.gmail.com"
MsgTitre = "TEST DE CONNEXION INTERNET ET SMTP DE GMAIL"
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}!\\").ExecQuery("select * from Win32_PingStatus where address = '" & strComputer & "'")
For Each objStatus in objPing
If objStatus.Statuscode = 0 Then
Ws.popup "TEST SMTP DE GMAIL EST OK . VOUS ETES CONNECTE A INTERNET ET LE SMTP DE GMAIL EST DISPONIBLE !","3",MsgTitre,64
Boucle = False
CheckConnectionInternet = True
Exit Function
else
ws.popup "TEST SMTP DE GMAIL EST NO OK . VOUS N'ETES PAS CONNECTE A INTERNET ET LE SMTP DE GMAIL N'EST PLUS DISPONIBLE EN CE MOMENT !","3",MsgTitre,16
End If
Next
wscript.sleep 60000
Wend
End Function
'*******************************************************************
La connaissance s'acquiert par l'expérience, tout le reste n'est que de l'information. Albert Einstein
Le savoir est la seule matière qui s'accroît quand on la partage. Socrate
onjour à tous !
