Results 1 to 4 of 4

Thread: How to open multiple tabs in Internet Explorer with VBS ?

  1. #1

    Thread Starter
    Lively Member
    Join Date
    Dec 2010
    Location
    http://bbat.forumeiro.com/
    Posts
    86

    How to open multiple tabs in Internet Explorer with VBS ?

    I got this code from the net that worked great for me
    PHP Code:
    Const navflags 2048
    Set IE 
    CreateObject("InternetExplorer.Application")
    Call One
    Call Two
    '**********************************************
    Sub One()
        IE.Visible = True
        IE.Navigate2  "http://en.wikipedia.org/wiki/"
        Do
            WScript.Sleep 100
        Loop While IE.Busy
    end sub
    '
    ********************************************
    Sub Two()
        
    IE.Navigate2 "http://www.google.com"navflags
        
    Do
            
    WScript.Sleep 100
        Loop 
    While IE.Busy
    End Sub
    '********************************************** 
    So this it works for me but in my case no ?

    PHP Code:
    Option Explicit
    Const navflags 2048
    Dim Titre
    ,MyLogin,MyPassword,IE
    Set IE 
    CreateObject("InternetExplorer.Application")
    MyLogin "Hackoo"
    If CheckConnectionInternet() = True Then 
    '****************************************************
        '
    Connexion au site DVP
        Titre 
    "Connexion vers le site developpez.net"
        
    Call Boite2Saisie(Titre,MyLogin,MyPassword)
        
    Call ConnexionDVP(MyLogin,MyPassword)
    '****************************************************
        '
    Connexion au site SFR
        Titre 
    "Connexion vers le site sfr.fr"
        
    Call Boite2Saisie(Titre,MyLogin,MyPassword)
        
    Call ConnexionSFR(MyLogin,MyPassword)
    '****************************************************
        '
    Connexion au Gmail
        Titre 
    "Connexion vers le site Gmail"
        
    Call Boite2Saisie(Titre,MyLogin,MyPassword)
        
    Call ConnexionGmail(MyLogin,MyPassword)
    '****************************************************
        '
    Connexion au Yahoo Mail
        Titre 
    "Connexion vers le site Yahoo Mail"
        
    Call Boite2Saisie(Titre,MyLogin,MyPassword)
        
    Call ConnexionYahooMail(MyLogin,MyPassword)
    End if
    '****************************************************
    Function Boite2Saisie(Titre,MyLogin,MyPassword)
        Dim objIE,WS,ScreenWidth,ScreenHeight
        Set WS = CreateObject("Wscript.Shell")
        Set objIE = CreateObject("InternetExplorer.Application")
        objIE.Navigate "about:blank"
        objIE.Document.Title = Titre & String(20,"*")
        objIE.ToolBar        = False
        objIE.Resizable      = False
        objIE.StatusBar      = False
        objIE.Width          = 380
        objIE.Height         = 220
        ScreenWidth = objIE.document.ParentWindow.screen.width 
        ScreenHeight = objIE.document.ParentWindow.screen.height
        objIE.Left = (ScreenWidth  - objIE.Width ) \ 2
        objIE.Top  = (ScreenHeight - objIE.Height) \ 2
        Do While objIE.Busy
            WScript.Sleep 200
        Loop
        objIE.Document.Body.InnerHTML = "<div align=""center""><p>Nom Utilisateur "_
        & "<br><input type=""text"" size=""20"" "_
        & "id=""Login"" value="& MyLogin &"></p>"_
        & "</p><p>Mot de passe<br><input type=""password"" size=""20"" "_
        & "id=""Password""></p><p><input type=" _
        & """hidden"" id=""OK"" name=""OK"" value=""0"">"_
        & "<input type=""submit"" value="" Connexion "" "_
        & "onclick=""php:OK.Value=1""></p></div>"
        objIE.Document.Body.Style.overflow = "auto"
        objIE.Document.body.style.backgroundcolor="lightblue"
        objIE.Visible = True
        objIE.Document.All.Password.Focus
        On Error Resume Next
        Do While objIE.Document.All.OK.Value = 0
            WScript.Sleep 200
            If Err Then    
                IELogin = Array("","")
                objIE.Quit
                Set objIE = Nothing
                wscript.quit
            End if
        Loop
        On Error Goto 0
        MyLogin = objIE.Document.All.Login.Value
        MyPassword = objIE.Document.All.Password.Value
        objIE.Quit
        If MyPassword = "" Then Wscript.Quit
    End Function
    '
    ********************************************************************************************************************
    Sub ConnexionDVP(MyLogin,MyPassword)
        
    Dim IE,Helem
        
    'Set IE = CreateObject("InternetExplorer.Application") 
        '
    with IE
            IE
    .navigate2 "http://www.developpez.net/forums/login.php"
            
    IE.AddressBar 1
            IE
    .Visible 1
            IE
    .ToolBar 1
            IE
    .StatusBar 1
            
    Do While (IE.Busy)
                
    WScript.Sleep 100
            Loop
            Set Helem 
    IE.document.getElementById("vb_login_username")
            
    Helem.Value MyLogin
            Set Helem 
    IE.document.getElementById("vb_login_password")
            
    Helem.Value MyPassword
            Set Helem 
    IE.document.Forms(1)
            
    Helem.Submit 
        
    'End with
    End Sub
    '
    ********************************************************************************************************************
    Sub ConnexionSFR(MyLogin,MyPassword)
        
    Dim IE,Helem
        
    'Set IE = CreateObject("InternetExplorer.Application") 
        '
    with IE
            IE
    .AddressBar 1
            IE
    .Visible 1
            IE
    .ToolBar 1
            IE
    .StatusBar 1
            IE
    .navigate2 "https://www.sfr.fr/cas/login?service=https%3A%2F%2Fwww.sfr.fr%2Faccueil%2Fj_spring_cas_security_check&sfrintid=V_nav_ec#sfrclicid=X_head_ec",navflags
            
    Do While (IE.Busy)
                
    WScript.Sleep 100
            Loop
            Set Helem 
    IE.document.getElementById("username")
            
    Helem.Value MyLogin
            Set Helem 
    IE.document.getElementById("password")
            
    Helem.Value MyPassword
            Set Helem 
    IE.document.Forms(1)
            
    Helem.Submit 
        
    'End with
    End Sub
    '
    ********************************************************************************************************************
    Sub ConnexionGmail(MyLogin,MyPassword)
        
    Dim IE,Helem
        
    'Set IE = CreateObject("InternetExplorer.Application") 
        '
    with IE
            IE
    .navigate2 "https://accounts.google.com/ServiceLogin?service=mail&continue=https://mail.google.com/mail/&hl=fr",navflags
            IE
    .AddressBar 1
            IE
    .Visible 1
            IE
    .ToolBar 1
            IE
    .StatusBar 1
            
    Do While (IE.Busy)
                
    WScript.Sleep 100
            Loop
            Set Helem 
    IE.document.getElementById("Email")
            
    Helem.Value MyLogin
            Set Helem 
    IE.document.getElementById("Passwd")
            
    Helem.Value MyPassword
            Set Helem 
    IE.document.Forms(0)
            
    Helem.Submit 
        
    'End with
    End Sub
    '
    ********************************************************************************************************************
    Sub ConnexionYahooMail(MyLogin,MyPassword)
        
    Dim IE,Helem,objElement
        
    'Set IE = CreateObject("InternetExplorer.Application") 
        '
    with IE
            IE
    .navigate2 "https://login.yahoo.com/config/login_verify2?.intl=fr&.src=ym",navflags
            IE
    .AddressBar 1
            IE
    .Visible 1
            IE
    .ToolBar 1
            IE
    .StatusBar 1
            
    Do While (IE.Busy)
                
    WScript.Sleep 100
            Loop
            Set Helem 
    IE.document.getElementById("username")
            
    Helem.Value MyLogin
            Set Helem 
    IE.document.getElementById("passwd")
            
    Helem.Value MyPassword
            
    For Each objElement In IEIE.document.Forms("login_form").Elements
                
    If (LCase(objElement.Type) = "submit"Then
                        objElement
    .Click
                    
    Exit For
                
    End If
            
    Next
        
    '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.Statusphp 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
    '
    ******************************************************************* 
    So can you explain me what is my mistake ? and how can i open multiple tabs with my code ? and what the diffrence between IE.navigate and IE.navigate2
    Thank you !
    Last edited by Hackoo; Dec 8th, 2013 at 01:13 PM.


  2. #2
    Junior Member mnemonic_digit's Avatar
    Join Date
    Feb 2013
    Posts
    20

    Re: How to open multiple tabs in Internet Explorer with VBS ?

    looks like it's pretty good script, but i can't read your script's comments btw, nice sharing, bro, i think this can be as good role model for vbscript beginners like me...

  3. #3
    Junior Member
    Join Date
    Apr 2013
    Posts
    21

    Re: How to open multiple tabs in Internet Explorer with VBS ?

    Quote Originally Posted by Hackoo View Post
    and what the diffrence between IE.navigate and IE.navigate2
    The Navigate2 method extends the Navigate method by allowing you to browse to a location using a PIDL.


    Quote Originally Posted by Hackoo View Post
    and how can i open multiple tabs with my code ?
    See the BrowserNavConstants.

  4. #4
    Junior Member
    Join Date
    Apr 2013
    Posts
    21

    Re: How to open multiple tabs in Internet Explorer with VBS ?

    Regarding the BrowserNavConstants, you'll probably be interested in the navOpenInNewTab and navOpenInBackgroundTab flags.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width