Martin Zugec Posted September 4, 2005 Share Posted September 4, 2005 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 More sharing options...
coconut Posted September 4, 2005 Share Posted September 4, 2005 dont know of anything like that, but there is gui front-end somewhere on this forum http://www.msfn.org/board/index.php?showtopic=23751&st=0 Link to comment Share on other sites More sharing options...
gunsmokingman Posted September 4, 2005 Share Posted September 4, 2005 Here is something I worked out fast this is a demo Is this what you where asking aboutSave 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 More sharing options...
Martin Zugec Posted September 7, 2005 Author Share Posted September 7, 2005 2coconut: It is not what I need...2GSM: How to use parameters to use? This looks similar to what I am looking for! Link to comment Share on other sites More sharing options...
gunsmokingman Posted September 7, 2005 Share Posted September 7, 2005 Send me a example of what you need done, I will try and get it to work.That was just a guess at what you wanted, I am not sure what you need next. Link to comment Share on other sites More sharing options...
Zxian Posted September 7, 2005 Share Posted September 7, 2005 From what I can see, the utility here can be run at any time. You just need to setup the XML file to do the installing for you. Link to comment Share on other sites More sharing options...
Martin Zugec Posted September 8, 2005 Author Share Posted September 8, 2005 Looks like I found what I need - kTool...2GSM: I am counting on you when server GUI will be created 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