gunsmokingman Posted April 16, 2015 Share Posted April 16, 2015 I made this Demo Splash Screen HTA which uses 2 timers and changes display text then self closes after 8 seconds.Demo_SplashScreen.hta <TITLE>Splash Screen</TITLE><HTA:APPLICATION ID='DemoSplash' Scroll='No' SCROLLFLAT ='No' SingleInstance='Yes' SysMenu='No' ShowInTaskBar='No' MaximizeButton='No' MinimizeButton='nO' Border='Thick' BORDERSTYLE ='complex' INNERBORDER ='Yes' Caption='No' WindowState='Normal' APPLICATIONNAME='DSplash' Icon='%SystemRoot%\explorer.exe'><STYLE Type="text/css"> Body{ BackGround-Color:#EFE9E3;Text-Align:Center;Vertical-Align:Top; Font-Size:10.05pt;Font-Weight:Bold;Color:#001254; Font-Family:Lucida Console;Arial,Tahoma,Comic Sans MS,Segoe Ui; Margin-Top:2;Margin-Bottom:2;Margin-Left:4;Margin-Right:4; Padding-Top:1;Padding-Bottom:1;Padding-Left:4;Padding-Right:4; Border-Top:2px Solid #a6a29e;Border-Bottom:3px Solid #cbc7c3; Border-Left:2px Solid #b2aeaa;Border-Right:3px Solid #bcb8b4; } DIV{Color:#015501;Padding-Top:1;Padding-Bottom:1:} .txt{width:99%; Font-Size:8.05pt;Font-Weight:Bold;Color:#004511;Font-Family:Segoe Ui; Padding-Top:2;Padding-Bottom:2;Text-Align:Left; }</STYLE><SCRIPT LANGUAGE="VBScript">'-> Resize And Move Window Dim Wth :Wth = int(425) Dim Hht :Hht = int(175) window.ResizeTo Wth, Hht MoveTo ((Screen.Width / 2) - (Wth / 2)),((Screen.Height / 2) - (Hht / 2))'-> Run Time Varibles Dim C1, Tm1'-> OnLoad Function Display Test Function Window_onLoad() Tx1.innerHTML = "Splash Screen Display Text To Show The User. Some More Text For " & _ "The User To Read. This Window Will Self Close" Tm1=window.setTimeout("StopTime()",5000,"VBScript") End Function'-> Clear The Timer And Change Message Function StopTime() window.clearTimeout(Tm1) Tx1.innerHTML = "Preparing To Close This Window, Script Completed" Tm1=window.setTimeout("TheEnd()",3000,"VBScript") End Function'-> Clear The Timer And Close Window Function TheEnd() window.clearTimeout(Tm1) window.close() End Function</SCRIPT><BODY> <DIV>Demo Splash Screen</DIV><HR><DIV ID='Tx1' Class='txt'> </DIV></BODY>Demo_SplashScreen.zip Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now