InternetExplorer.Application in private

[apolonas]

Hello,
I want to make this code:

Code: Select all

wb := ComObjCreate("InternetExplorer.Application")
wb.Visible := false
wb.navigate2("www.speedtest.net")
sleep,1000
while (wb.busy || wb.readystate != 4)
	sleep , 100

run in private mode.

I found this

http://visualbasic.a.../proc_html2.htm

whith a solution in VB.NET

Code: Select all

Web Pages Using VB.NET

In VB.NET, you can add a reference to ShDocVw.dll (in Windows/System32) using theBrowse tab in Add Reference) and open an instance of IE 8 using the new "InPrivate" mode.

Dim TheBrowser = New SHDocVw.InternetExplorerMedium
TheBrowser.Visible = True
TheBrowser.Navigate( _
URL:="http://visualbasic.about.com") 

But I cant convert this code to ahk . Any help would be appreciated!

Also I know a way to make it work by starting the IE in private mode.
Then find the pointer of IE and then hide the window .
The problem is that with this way the window shows up then find the pointer and then hide.

[Hamlet]

What is the "private mode" ?
If you want "Un-visible" mode, it is the default settings.
The first code works fine with me.

[Menixator]

I don't know if this will work as expected.

Code: Select all

Run, Iexplore.exe -private,,,PID
WinWait, ahk_pid %PID%
Sleep,500 ;If the script doesn't work, you can try increasing this.
Pwb := IEGet(WinExist("ahk_pid " . PID))
MsgBox % Pwb.hwnd
Pwb.navigate("http://www.google.com")

IEGet(hwnd)		
{
	for window in ComObjCreate("Shell.Application").Windows{
		if (window.HWND == hwnd){
			return window
		}
	}
	return ""
}