Jump to content

RunOnceEx frontend

Martin Zugec
 Share

Recommended Posts

Martin Zugec

Martin Zugec

Posted
Posted

Hi guys!

I am searching for something similar to RunOnceEx that I could use for my installations...

It should looks similar, however I need it for operations that will be performed when user is logged in. I would like this application to be like:

roeemulation.exe /Title:Test /entry1:Test1 /entry2:Test2

This will create the box, where the Test1 and Test2 will appear.

Then I need to pass the parameters to roeemulation, so it will know that operation finished (like roeemulation.exe /Finished:Test1)

Hope so I am clear...

Do you know any application similar to this?

Thx, Martin

Link to comment
Share on other sites

gunsmokingman

gunsmokingman

Posted
Posted

Here is something I worked out fast this is a demo

Is this what you where asking about

Save as Demo.Hta

<HTML><HEAD><TITLE>  ExampleHta </TITLE>

  <HTA:APPLICATION ID="HtaExample" SYSMENU="yes" SCROLL="No"

  SCROLLFLAT ="No" SingleInstance="Yes" ShowInTaskbar="Yes"

  SysMenu="Yes" MaximizeButton="No" MinimizeButton="Yes"

  Border="Thin" BORDERSTYLE ="complex" INNERBORDER ="No"

  Caption="Yes" WindowState="Normal" APPLICATIONNAME="ExampleTestHta"

  Icon="http://www3.telus.net/GSMJAK1E/AUABuilder/BgImgs/Hta2.ico">

  <html xmlns:v="urn:schemas-microsoft-com:vml"xmlns:o="urn:schemas-microsoft-com:office:office"

  xmlns:w="urn:schemas-microsoft-com:office:word"xmlns="http://www.w3.org/TR/REC-html40">

  <!--[if !mso]><style>v\:* {behavior:url(#default#VML);} o\:* {behavior:url(#default#VML);}w\:*

  {behavior:url(#default#VML);}.shape {behavior:url(#default#VML);}</style><![endif]--><!--

  [if gte mso 9]><xml><o:DocumentProperties></w:LatentStyles></xml><![endif]-->

  <style></style><!--[if gte mso 10]><style></style><![endif]-->

  <script language="vbscript">window.resizeTo 650,225

  Const MY_COMPUTER = &H11&,WINDOW_HANDLE = 0, OPTIONS = 0

  </Script>

  <script language="vbscript">

  Option Explicit

  Dim Act, Fso, Drv,strDrive, Sfont, Sfont1, Desktop, strComputer, TS, IntA, IntB, IntC

  Set Act = CreateObject("Wscript.shell")

  Set Fso = CreateObject("Scripting.FileSystemObject")

  Dim Sd : Sd = Act.ExpandEnvironmentStrings("%systemdrive%")

  Dim UName : UName = Act.ExpandEnvironmentStrings("%UserName%") 

    Desktop = Act.ExpandEnvironmentStrings("%USERPROFILE%\Desktop" )

    strComputer = "."

    Sfont = "<Font STYLE=""font:12.75pt Palatino Linotype;color:Green;font-weight: Bold-Italic;"">"

    Sfont1 = "<Font STYLE=""font:8.25pt Palatino Linotype;color:#0000ab;font-weight: Bold-Italic;"">"

    IntA = 1-1

    IntB = 1-1

    IntC = 1-1

  Function RstF ''''    <!-- ;;;;; SCRIPT THIS IS THE AMOUNT OF TIME IT STOPS 1000 = 1 SECOND ;;;;; -->

  Dim Ts : Set Ts = Fso.OpenTextFile(SD & "\RestF.vbs", 2, true)

    Ts.WriteLine "Wscript.sleep 150"

    Ts.close

    Act.run(SD & "\RestF.vbs"), 1 , True

  On Error Resume Next

    Fso.DeleteFile(SD & "\RestF.vbs")

  End Function 

  ''''''''''''''

  Function Rst1 ''''    <!-- ;;;;; SCRIPT THIS IS THE AMOUNT OF TIME IT STOPS 1000 = 1 SECOND ;;;;; -->

  Dim Ts : Set Ts = Fso.OpenTextFile(SD & "\Rest1.vbs", 2, true)

    Ts.WriteLine "Wscript.sleep 1000"

    Ts.close

    Act.run(SD & "\Rest1.vbs"), 1 , True

  On Error Resume Next

    Fso.DeleteFile(SD & "\Rest1.vbs")

  End Function

  ''''''''''''''

  Function Rst2 ''''    <!-- ;;;;; SCRIPT THIS IS THE AMOUNT OF TIME IT STOPS 1000 = 1 SECOND ;;;;; -->

  Dim Ts : Set Ts = Fso.OpenTextFile(SD & "\Rest2.vbs", 2, true)

    Ts.WriteLine "Wscript.sleep 2200"

    Ts.close

    Act.run(SD & "\Rest2.vbs"), 1 , True

  On Error Resume Next

    Fso.DeleteFile(SD & "\Rest2.vbs")

  End Function 

  ''''''''''''''

  Function Rst3 ''''    <!-- ;;;;; SCRIPT THIS IS THE AMOUNT OF TIME IT STOPS 1000 = 1 SECOND ;;;;; -->

  Dim Ts : Set Ts = Fso.OpenTextFile(SD & "\Rest3.vbs", 2, true)

    Ts.WriteLine "Wscript.sleep 3300"

    Ts.close

    Act.run(SD & "\Rest3.vbs"), 1 , True

  On Error Resume Next

    Fso.DeleteFile(SD & "\Rest3.vbs")

  End Function 

  ''''''''''''''''''

  </Script>

  <script language="vbscript">

  Sub Window_Onload

  Test4.InnerHtml = Uname

  Test1.InnerHtml = "Preparing The Install Of What Ever"

  Rst3

  Test2.InnerHtml = "Processing The Install Please Wait"

  Rst2

  Test1.InnerHtml = "This May Take A Few Minutes To Be Completed!"

  Rst3

  Test2.InnerHtml = "Processing The Install Please Wait"

  Rst2

  Dim Arrow

  Arrow = Chr(187)

  Do

  Inta = Inta + 1

  Arrow = Arrow + Chr(187)

  Test2.InnerHtml = Sfont  & Inta

  Test3.InnerHtml = "<BR><TD BGColor=""Yellow""><Font Size=""2"">" & Arrow

  RstF

    Loop Until Inta = 20

  Test3.InnerHtml = ""

  Test1.InnerHtml = Uname & ", The Install Is Completed"

  Test2.InnerHtml = "Good Bye"

  Rst3

  Window.close

  End Sub

  </Script>

  <!-- ============ START OF THE HTA BACKGROUND ============ -->

  <body SCROLL="no" STYLE= "8.25pt Palatino Linotype; color:#006c6c;

  filter:progid:DXImageTransform.Microsoft.Gradient

  (GradientType=0, StartColorStr='#e8e4de', EndColorStr='#c7c3be')">

  <Center><Table><Font Style="font:8.25pt Palatino Linotype;color:#0000ab;font-weight: Bold-Italic;">

  <BR><Span ID="Test1"></Span>

  </Font><Font Style="font:8.25pt Palatino Linotype;color:Green;font-weight: Bold-Italic;">

  <BR><Span ID="Test2"></Span>

  </Font></center></Table>

  <Span ID="Test3"></Span>

  <TD></Table>

  <Span ID="Test4"></Span>

Link to comment
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
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...