新聞財經娛樂♬資訊 News Economy

I am using myie.navigate function to go to www.yahoo.com in IE7  In VBA.
And I would like to create second instance in the same IE7 browser, and then
also using myie.navigate to go to other website, for example, www.wiki.com
 in the second instance I create by setting setcursorpos and mouse_event function in VBA
 but it fail because www.wiki.com webpage is going to on the first instance of IE instead of second one.
I want, www.yahoo.com is going to the first instanc and www.wiki.com is going to the second instance
of IE7 within the same IE7 browser

The first question:
how to create second instance of IE7 when IE7 new broswer is created successfully in VBA, in VBA ?
And now I am using setcursorpos() and mouse_event function to click out the second instance in
the IE broswer
The second question:
I am tring the following code but it just always www.wiki.com is replacing www.yahoo.com in the
first instance of IE, I want, www.yahoo.com is going to the first instant and www.wiki.com is going to the second instance of IE7 within the same IE7 broswer

And I try to use myie.LocationURL=http://www.wiki.com" to replace second instance's URL address
 it always report property error from VBA

Please advise with the following VBA code

Duncan

Sub testIE()dim myIE As SHDocVw.InternetExplorerSet myIE = CreateObject("InternetExplorer.Application")Set myIE = New InternetExplorerWith myIE .Visible = True.navigate "http://www.yahoo.com"sleep(5000)SetCursorPos 445, 304 'create second instance in myIE IE7 objectsleep(100)mouse_event MOUSEEVENTF_leftDOWN, 0, 0, 0, 0mouse_event MOUSEEVENTF_leftUP, 0, 0, 0, 0sleep(1000)'second instance is created by mouse event and setcursor'now go to other website on the second instance.navigate "http://www.wiki.com"  "the www.wiki.com will go to first instance instead of second instance' .LocationURL="http://www.wiki.com" ' it also fail with VBA runtime errorEnd withEnd Sub                                  

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15:16:17:18:19:

have a look at this

http://msdn.microsoft.com/en-us/library/aa752093(v=VS.85).aspx
http://msdn.microsoft.com/en-us/library/aa752094(v=VS.85).aspx

and flags
http://msdn.microsoft.com/en-us/library/dd565688(v=VS.85).aspx

Enum BrowserNavConstants
    navOpenInNewWindow = 1
...
    navOpenInNewTab = 2048
    navOpenInBackgroundTab = 4096
...
    navVirtualTab = 16384
...
End Enum

ok try this:

dim navOpenInBackgroundTab = 0x1000;
set oIE = new ActiveXObject("InternetExplorer.Application")
oIE.Navigate2("http://www.site1.com")
oIE.Navigate2("http://www.site2.com")
oIE.Visible = true