-
Dec 8th, 2013, 01:10 PM
#1
Thread Starter
Lively Member
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.
-
Dec 9th, 2013, 11:29 AM
#2
Junior Member
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...
-
Dec 10th, 2013, 12:05 AM
#3
Junior Member
Re: How to open multiple tabs in Internet Explorer with VBS ?
Originally Posted by Hackoo
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.
Originally Posted by Hackoo
and how can i open multiple tabs with my code ?
See the BrowserNavConstants.
-
Dec 10th, 2013, 12:13 AM
#4
Junior Member
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
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|