Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 175
  • Last Modified:

How do I access a website that exists in favourites

I want to access a website that exists in favourites? I'm automating a task that will execute a website that exists in favourites.  Will someone please help me with this?
0
willwatters
Asked:
willwatters
  • 2
  • 2
1 Solution
 
anvCommented:
hi willwatters

u can get help from here..

http://www.freevbcode.com/ShowCode.Asp?ID=495

the code is to add a site to favorites..

u can manipulate it to get the site from favorites..


good luck
0
 
willwattersAuthor Commented:
Do you know how i can do it using WshSpecialFolders object.

I have started the following code:

Dim oShell, oSpFolders

Set oShell = WScript.CreateObject("WScript.Shell")
Set oSpFolders = oShell.SpecialFolders

0
 
willwattersAuthor Commented:
I tried the following code to access a web site in favourites, but it doesn't work. Will you please fix it for me.

Dim oShell, oSpFolders, i, strExamen
   
    strExamen = "Examen - Home Page"
   
    Set oShell = WScript.CreateObject("WScript.Shell")
    Set oSpFolders = oShell.SpecialFolders("Favourites")
   
    For i = 0 To oSpFolders.Count
        If oSpFolders.Item(i) = strExamen
            oIE.Navigate2 "http://WWW.examen.com"
            While oIE.Busy
                'wait for the page to load
            Wend
            GoTo GotExamenHP
        End If
    Next i

    MsgBox ("Error opening Examen Home Page : " & Err.Description)

GotExamenHP:
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now