Deschidere pagini multiple cu Internet Explorer folosind VBScript

Situatie

Deschidere pagini multiple cu Internet Explorer folosind VBScript

Pasul 1

Intr-un editor de text copiem codul urmator:

Const NewTab = &h800
Dim objExplorer
Set objExplorer = CreateObject(“InternetExplorer.Application”)
NavigateIE_Tabs “http://www.google.com”,””
NavigateIE_Tabs “https://askit.ro”,NewTab
NavigateIE_Tabs “http://www.stackoverflow.com”,NewTab
NavigateIE_Tabs “https://www.facebook.com”,NewTab
NavigateIE_Tabs “https://www.yahoo.com”,NewTab

Sub NavigateIE_Tabs(URL,Arg)
Const NewTab = &h800
with objExplorer
.Navigate2 URL,Arg
.AddressBar = 1
.Visible = 1
.ToolBar = 1
.StatusBar = 1
end with
End Sub

Pasul 2

Salvam fisierul cu extensia .vbs.

In cazul in care codul nu functioneaza, trebuie sa inlocuim manual simbolul ” ,deoarece site-ul ii schimba formatul.

Solutie

Tip solutie

Permanent

Follow Us