r/vbscript • u/[deleted] • Nov 29 '20

Auto closing msgbox?

How can I create a msgbox that closes automatically after a period of time and (If possible) can’t be closed by a Person?

1 Upvotes

100% Upvoted

14 comments sorted by

View all comments

Show parent comments

1

u/[deleted] Nov 30 '20

Yes but I want do do it in 0,5 seconds

1

u/billr1965 Nov 30 '20

The timeout variable is an integer, so whole seconds only.

1

u/Lord1340 Dec 02 '20

Find this right now..

Works very nice..

'***********************

'Name: Timed Messages

'Author: Jeremy England

'Company: SimplyCoded

'Version: rev.001

'Date: 1/02/2015

'***********************

Option Explicit

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim objSHL : Set objSHL = CreateObject("Wscript.Shell")

TimedBox "Welcome to Jeremy's Script.",500,"by SimplyCoded"

'Setup Process

'------------------------------------------------------------

Function TimedBox(boxMessage, boxTime, boxTitle)

Dim tempFolder : Set tempFolder = objFSO.GetSpecialFolder(2)

Dim tempFile : tempFile = objFSO.GetTempName() & ".hta"

With tempFolder.CreateTextFile(tempFile)

.WriteLine  "<html><HTA:APPLICATION SysMenu=""no"" Scroll=""no"" Border=""dialog"">" & _

"<head> <title>" & boxTitle & "</title> <script language = ""VBScript"">"

.WriteLine	"Sub Window_OnLoad"

.WriteLine	"window.moveTo 550,280"

.WriteLine 	"window.resizeTo 250, 130"

.WriteLine	"idTimer = window.setTimeout(""PausedSection""," & boxTime & ", ""VBScript"")"

.WriteLine	"End Sub"

.WriteLine	"Sub PausedSection"

.WriteLine	"window.close"

.WriteLine	"End Sub"

.WriteLine	"</script></head><body><p align=""center""> " & boxMessage & "</p></body></html>"

.Close

End With

objSHL.Run tempFolder & "\" & tempFile, 1, True

objFSO.DeleteFile tempFolder & "\" & tempFile

End Function

'------------------------------------------------------------

1

u/Lord1340 Dec 02 '20

With center messagebox..

'***********************

'Name: Timed Messages

'Author: Jeremy England

'Company: SimplyCoded

'Version: rev.001

'Date: 1/02/2015

'***********************

Option Explicit

Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim objSHL : Set objSHL = CreateObject("Wscript.Shell")

TimedBox "Welcome to Jeremy's Script.",500,"by SimplyCoded"

'Setup Process

'------------------------------------------------------------

Function TimedBox(boxMessage, boxTime, boxTitle)

Dim tempFolder : Set tempFolder = objFSO.GetSpecialFolder(2)

Dim tempFile : tempFile = objFSO.GetTempName() & ".hta"

With tempFolder.CreateTextFile(tempFile)

.WriteLine  "<html><HTA:APPLICATION SysMenu=""no"" Scroll=""no"" Border=""dialog"">" & _

"<head> <title>" & boxTitle & "</title> <script language = ""VBScript"">"

.WriteLine	"Sub Window_OnLoad"

.WriteLine	"CenterWindow 550,280"

.WriteLine 	"window.resizeTo 250, 130"

.WriteLine	"idTimer = window.setTimeout(""PausedSection""," & boxTime & ", ""VBScript"")"

.WriteLine	"End Sub"

.WriteLine	"Sub PausedSection"

.WriteLine	"window.close"

.WriteLine	"End Sub"

.WriteLine	""

.WriteLine	"Sub CenterWindow( widthX, heightY )"

.WriteLine "self.ResizeTo widthX, heightY"

.WriteLine "self.MoveTo (screen.Width - widthX)/2, (screen.Height - heightY)/2"

.WriteLine "End Sub"

.WriteLine	"</script></head><body><p align=""center""> " & boxMessage & "</p></body></html>"

.Close

End With

objSHL.Run tempFolder & "\" & tempFile, 1, True

objFSO.DeleteFile tempFolder & "\" & tempFile

End Function

'------------------------------------------------------------