#17280 - 2002-02-09 05:10 AM
Re: Logon splash screen.....
|
Anonymous
Anonymous
Unregistered
|
You know, with ScriptLogic, you can instruct it to display your own bitmap...If you want to do it without ScriptLogic (KiXtart alone), then perhaps you could use COM and launch IE to display a JPG or GIF or something?
|
Top
|
|
|
|
#17281 - 2002-02-09 04:30 PM
Re: Logon splash screen.....
|
Les
KiX Master
Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
|
I remember a similar request to this. Just a sec, while I search...Ah, found it. Show BMP or JPG.... Downside though is, you need to make kixwin.exe available to everyone. I'm not knocking kixwin, just trying to do it without. I'm trying to learn COM, (not very sucessful though) and I thought I'd give that a go. Ran into a few snags. Can't figure out how to get IE in kiosk mode. you know, no menus, no buttons, no status. When the window tries to close itself with the timeout code in the htm file, IE prompts if it's OK. Guess it's time to send out the signal. Paging Super COM Boy... [ 09 February 2002: Message edited by: LLigetfa ]
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.
|
Top
|
|
|
|
#17283 - 2002-02-09 06:40 PM
Re: Logon splash screen.....
|
Les
KiX Master
Registered: 2001-06-11
Posts: 12734
Loc: fortfrances.on.ca
|
Eh, Super COM Boy... are you going to throw me a hint... or do you take pleasure in my flailing?Using JavaScript, I'd do something like the following between script tags: Offsite=window.open("http://intranet.ff.abicon.com", "Offsite","toolbar=0,location=0,status=1,menubar=0,scrollbars=1,resizable=0,width=900,height=580");window.focus(); (Not sure how much of this code UBB will allow but will try) So, can the same be done with COM?
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.
|
Top
|
|
|
|
#17286 - 2002-02-09 09:36 PM
Re: Logon splash screen.....
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Yeah, postprep, i just didn't feel like handjobbing all the < signs ...Here's a rough start. It's a UDF that displays an IE splash screen complete with title, picture and message ... it floats around during script and goes away at the end ... break on $company = "Acme Inc." $picture = "http://kixtart.org/board/bbtitle5.jpg" $message = "Please be patient while your login script executes"
$Splash = Splash($company,$picture,$message)
?"Mapping drives ..." sleep 1 ?"Poking the registry ..." sleep 3 ?"Puring temp internet cache ..." sleep 1 ?"Done!" sleep 1 $Splash.Quit() $Splash = 0 exit function Splash($company,$picture,$message) dim $ie $ie = createobject("internetexplorer.application") $ie.menubar = 0 $ie.statusbar = 0 $ie.toolbar = 0 $ie.width = 200 $ie.height = 250 $ie.navigate("about:blank") while $ie.busy and $ie.readystate <> 4 and @error = 0 loop $html=" <html> <head> <title>$title</title> </head> <body scroll=no> <img src='$picture'> <center><h3>$message</h3></center> </body> </html> " $ie.document.write($html) $ie.visible = 1 $Splash = $ie endfunction
-Shawn
|
Top
|
|
|
|
#17288 - 2002-02-09 10:59 PM
Re: Logon splash screen.....
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
Les,The interface methods and properties are on MSDN, here's one link here: HTML and DHTML Reference In terms of setting focus - you nailed it - the only way I know of is to use kix'x setfocus, suggest putting in a retry counter so one doesn't loop to infinity, right after the make visible in the UDF ...
$ie.visible = 1 $retry = 5 ; seconds while setfocus("$title") and $retry $retry=$retry-1 sleep 1 loop
Something like that anyways ... this COM stuff is kinda fun isn't it ? -Shawn [ 09 February 2002: Message edited by: Shawn ]
|
Top
|
|
|
|
#17289 - 2002-02-09 11:37 PM
Re: Logon splash screen.....
|
Shawn
Administrator
Registered: 1999-08-13
Posts: 8611
|
I thought this might make for a more professional login splash screen ... break on $splash = funkysplash("Logoff before it's too late!",200,300,500,200)
exit 1
function funkysplash($message,$left,$top,$width,$height)
dim $ie,$dacontrol,$m,$half,$clr dim $font,$txtimg,$pos,$scl,$xf dim $retry $ie = createobject("internetexplorer.application") $ie.menubar = 0 $ie.statusbar = 0 $ie.toolbar = 0 $ie.left = $left $ie.top = $top $ie.width = $width $ie.height = $height $ie.navigate("about:blank") while $ie.busy and $ie.readystate <> 4 and @error=0 loop $html = '<html><title>Funky</title><body scroll=no></body></html>'+ '<'+'OBJECT ID="DAControl" STYLE="position:absolute; left:0; top:0;width:$width;'+ 'height:$height;z-index: -1" CLASSID="CLSID:B6FFC24C-7E13-11D0-9B47-00C04FC2F51D"'+'>'+ '<'+'/OBJECT'+'>' $ie.document.write("$html") $ie.visible = 1 sleep 1 $retry = 5 ; seconds while setfocus("Funky") and $retry $retry=$retry-1 sleep 1 loop $dacontrol = $ie.document.all("dacontrol") $m = $dacontrol.meterlibrary $half = $m.danumber("0.5") $clr = $m.colorhslanim($m.mul($m.localtime, $m.danumber("0.345")),$half, $half) $font = $m.font("Arial", 11, $clr) $txtimg = $m.stringimage("$message", $font) $pos = $m.mul($m.sin($m.localtime), $m.danumber("0.02")) $scl = $m.add($m.danumber("2"), $m.abs($m.mul($m.sin($m.localtime), $m.danumber("3")))) $xf = $m.compose2($m.translate2anim($m.danumber("0"), $pos), $m.scale2uniformanim($scl)) $txtimg = $txtimg.transform($xf) $dacontrol.image = $txtimg $dacontrol.start $funkysplash = $ie endfunction
-Shawn
|
Top
|
|
|
|
#17297 - 2002-02-22 08:15 AM
Re: Logon splash screen.....
|
Netsuper
Getting the hang of it
Registered: 2001-05-17
Posts: 64
Loc: Edwards AFB, CA, US
|
by adding: $ie.fullscreen = 1 before: $ie.menubar = 0 will set the fullscreen property but the width and height coming after will restrict it back to those parameters. It will then be the size you want with no borders.
_________________________
Scott Hickerson
Network Design Engineer
|
Top
|
|
|
|
Moderator: Jochen, Allen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Arend_, Mart
|
2 registered
(morganw, mole)
and 414 anonymous users online.
|
|
|