AutoIt Français

Code : Tout sélectionner

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
'*******************************************************************

Code : Tout sélectionner

#include <IE.au3>

Global Const $navOpenInNewTab = 0x0800

$oIE = _IECreate("http://www.google.fr/")
_IELoadWait($oIE)
Sleep(2000)
Msgbox(0,"", "ouvrir onglet 2") 

$oIE.Navigate2("http://www.autoitscript.com", $navOpenInNewTab, "_top")
_IELoadWait($oIE)
Sleep(2000)
Msgbox(0,"", "ouvrir onglet 3")

$oIE.Navigate2("http://www.autoitscript.fr", $navOpenInNewTab, "_top")
_IELoadWait($oIE)
; etc