Prev: Compare two files and output results to third
Next: time compare
From: Robert Sudbury on 7 Oct 2010 22:36
The following shutdown script calls up an .hta correctly.

Then the script correctly pops a requester in front of the .hta seeking a
response, or will time out.

The second popup resulting from timing out or the user interacting, pops
UNDER the .hta instead of in front. I want that second popup in front.

Help?

=-=-=-=-=-=-=-=-=-=- begin .vbs =-=-=-=-=-=-=-=-=-=-

Option Explicit

Const gcVERBOSE = FALSE ' ### TRUE for testing

Dim objShell
Set objShell = Wscript.CreateObject( "Wscript.Shell" )

Sub sTerminate( strReason )
If gcVERBOSE Then Wscript.Echo now & " " & strReason
Wscript.Quit
End Sub

objShell.Run """INSTALL.hta""", 0, False
WScript.Sleep( 5000 )

Dim intButton
intButton = objShell.Popup( " message",5, "title",32 )

Select case intButton

case -1 objShell.Popup "message",5,"title",48

' case -1 CreateObject("Wscript.Shell").Popup "message", 0, "title",48

case 1 objShell.Popup "message",10,"title",16 : Call sTerminate(
"message" )

End Select

Set objShell = Nothing
Wscript.Quit

'eof

=-=-=-=-=-=-=-=-=-=- end .vbs =-=-=-=-=-=-=-=-=-=-

--
[Robert]


__________ Information from ESET NOD32 Antivirus, version of virus signature
database 5513 (20101007) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com




__________ Information from ESET NOD32 Antivirus, version of virus signature database 5513 (20101007) __________

The message was checked by ESET NOD32 Antivirus.

http://www.eset.com



 | 
Pages: 1
Prev: Compare two files and output results to third
Next: time compare