Jump to content
Sign in to follow this  
ds10025

Writing a IE7 script to run IE7 in KIOSK mode

Recommended Posts

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?

Share this post


Link to post
Share on other sites
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.


Favorite Quotes"If you apply your mind you can create any thing you can dream of" "Any thing can get done by simply click of a button"

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×