Writing a IE7 script to run IE7 in KIOSK mode

[ds10025]

Hi

I'm trying to write a script to run IE7 in KIOSK mode. But, with following changes:-

It open IE7 in full theatermode, with address bar.

Make this the main IE7 window

Min & Max button are disabled or hidden.

User can open a new window for particular website that require new window.

When user tried to close down the main window. The Script closses all windows, and re-start IE7.

I've looked into guicreate, IEcreate. But, I can not found a where to make the first IE7 window unique.

Any ideas?

[mrbloody369]

If you look in AutoIt Help File, and do an index search for IE , Then you will find most your answers. If you show some code people might be more willing to help you out more.

Mr B.

[ds10025]

Hi

Below is an example that was suggested. I have made a minor modification.

Will it be posible to modify the program to do the following:-

Simulate iexplore.exe -k, but with address bar, icon for printing, and to display google seacrh toolbar.

One Suggestion was to modify the program to wait for a key pressed eg 'F1'. When 'F1' is pressed. Script will then reset to the dedault broswer, and closed all browsers windows.

Another possiblity is to use

IE Embedded. But, this involve re-designing a new GUI, with address bar, print icon etc.

Any idaes?

#include <GuiConstants.au3>

Global $hWnd

while 1 = 1

Opt("WinTitleMatchMode", 2)

Run('"C:\Program Files\Internet Explorer\iexplore.exe" www.google.com ')

WinWaitActive("Windows Internet Explorer", "")

$hWnd = WinGetHandle("Windows Internet Explorer", "")

$IEStyle = _GuiGetStyle($hWnd)

$NewStyle = $IEStyle[0] - $WS_MAXIMIZEBOX-$WS_MINIMIZEBOX

_GuiSetStyle($NewStyle, -1)

WinWaitNotActive("Library - Windows Internet Explorer", "")

ProcessClose("iexplore.exe")

Exit

WEnd

;===================================

; get default GUI styles

; returns a two-element array that containing the gui style information:

; $array[0] = style

; $array[1] = exStyle

func _GuiGetStyle($hWnd)

local $Style[2]

$res = DllCall("User32.dll", "int", "GetWindowLong", "hwnd", $hWnd, "int", -16)

$Style[0] = $res[0]

$res = DllCall("User32.dll", "int", "GetWindowLong", "hwnd", $hWnd, "int", -20)

$Style[1] = $res[0]

Return $Style

endfunc

;Set Gui Styles

func _GuiSetStyle($Style=-1,$ExStyle=-1)

Global $GWL_STYLE = -16

Global $GWL_EXSTYLE = -20

if $Style=-1 then $Style=$WS_MINIMIZEBOX+$WS_CAPTION+$WS_POPUP+$WS_SYSMENU

$res = DllCall("User32.dll", "int", "SetWindowLong", "hwnd", $hWnd, "int", $GWL_STYLE, "int", $Style)

if $ExStyle<>-1 then $res = DllCall("User32.dll", "int", "SetWindowLong", "hwnd", $hWnd, "int", $GWL_EXSTYLE, "int", $ExStyle)

DllCall("User32.dll", "int", "SetWindowPos", "hwnd", $hWnd, "hwnd", 0, "int", 0, "int", 0, "int", 0, "int", 0, "int", 0x47)

endfunc