Hi everybody!

First of all, WPI rocks!! I discovered it just a few days ago, and it's just what I've been looking for!

Anyway, I've got a question...

Is it possible in the list of commands for a program to have something launched and left open while another program is run? The default behaviour is to wait for program #1 to close, then launch program #2. I would need program #1 running while program #2 launches.

It would be useful for programs which require a serial number but don't save the information clearly in the registry. I would open a notepad window with the serial number and simultaneously the installation of the program. Then, when asked for the serial, I would just Alt-Tab to Notepad, copy and paste it.

Is it possible with WPI? Is there any way to trick the program into doing it?

Thanks everybody, and have a wonderful New Year!!

Ciao,

Ema.

OK, solved it myself...

Yesterday I was probably too hammered by partying to find a viable solution

I entered the following 2 lines:

cmd /C start /d"%cdrom%\APPS_DRIVERS\Apps" notepad Serial.txt

"%cdrom%\APPS_DRIVERS\Apps\Setup.exe"

Thats's it - pretty obvious... today

Ciao,

Ema.

huh?

use autoit to enter the serial for u. what u are talking about is not unattended at all.

I agree either use an autoIt script or a VBScript then you can install your program in the normal unattended way in say cmd1 and in cmd2 have the script run the program and enter the serial number while you sit back and watch.

If you need any help let me know

nologic has virtually all programs that need manual entry of serials

in his personal autoit thread. check it out.

Thanks guys,

I actually like a certain degree of control over my installations, so I'm not shooting for a totally unattended install, but I'll definitely look both into AutoIt and VBScript

BritishBulldog, could you give a sample of code?

Ciao,

Ema.

here is a copy of a vbs script for Power DVD

set WshShell = WScript.CreateObject ("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

'programme starts

WScript.Sleep 1000
WshShell.RUN ("C:\Programme\CyberLink\PowerDVD\PowerDVD.exe")
WScript.Sleep 2000
WshShell.SendKeys "{TAB 3}"
WScript.Sleep 1000
WshShell.SendKeys " "
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys " "
WScript.Sleep 1000
WshShell.SendKeys "{TAB 2}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 500
WshShell.SendKeys "xxxxx"
WScript.Sleep 500
WshShell.SendKeys "xxxxx"
WScript.Sleep 500
WshShell.SendKeys "xxxxx"
WScript.Sleep 500
WshShell.SendKeys "xxxxx"
WScript.Sleep 500
WshShell.SendKeys "xxxxx"
WScript.Sleep 500
WshShell.SendKeys "xxxxx"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"

the xxxxx are the parts of the serial number

Thanks a lot, much appreciated!

Will play around a little bit to create all my installations

Ciao,

Ema.

; <AUT2EXE VERSION: 3.0.102.0>

; ----------------------------------------------------------------------------

; <AUT2EXE INCLUDE-START: D:\XPCD\XP2\Software\DesktopX\DesktopX_2.40_au3.au3>

; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------

;

; AutoIt Version: 3.0

; Language:    English

; Platform:    Win9x / NT

; Author:      Nologic

;

; Script Function:

; Stardock DesktopX v2.40

;

; ----------------------------------------------------------------------------

; ----------------------------------------------------------------------------

; End User Var"s

; ----------------------------------------------------------------------------

$SF_1 = "DesktopX240__enhanced.exe" ; Setup File Name

$SN_1 = "xxxxxxxxxxxxxxxxxxxxxx" ; Serial Number

;$SM_1 = "\DesktopX"    ; Location For Main  Folder

;$GM_1 = "\Tools - Shell" ; Location For Group Folder

; Delete DesktopX Short Cuts

;$SC_1 = "N"  ; (Y)es or (N)o - Delete Short Cut For DesktopX

;$SC_2 = "Y"  ; (Y)es or (N)o - Delete Short Cut For DesktopX Readme

;$SC_3 = "N"  ; (Y)es or (N)o - Delete Short Cut For Developers Guide

;$SC_4 = "Y"  ; (Y)es or (N)o - Delete Short Cut For Online Documentation & FAQ

;$SC_5 = "N"  ; (Y)es or (N)o - Delete Short Cut For Scripting Guide

;$SC_6 = "Y"  ; (Y)es or (N)o - Delete Short Cut For Uninstall DesktopX

;$SC_7 = "N"  ; (Y)es or (N)o - Delete Short Cut For Users Guide

; ----------------------------------------------------------------------------

; Prevent Duplicates From Running

; ----------------------------------------------------------------------------

$g_szVersion = $SF_1

If WinExists($g_szVersion) Then Exit ; It"s already running

AutoItWinSetTitle($g_szVersion)

; ----------------------------------------------------------------------------

; Script Defaults

; ----------------------------------------------------------------------------

Opt ("CaretCoordMode", 1) ;1=absolute, 0=relative

Opt ("ExpandEnvStrings", 0) ;0=don't expand, 1=do expand

Opt ("MouseClickDelay", 10) ;10 milliseconds

Opt ("MouseClickDownDelay", 10) ;10 milliseconds

Opt ("MouseClickDragDelay", 250) ;250 milliseconds

Opt ("MouseCoordMode", 0) ;1=absolute, 0=relative

Opt ("MustDeclareVars", 0) ;0=no, 1=require pre-declare

Opt ("PixelCoordMode", 1) ;1=absolute, 0=relative

Opt ("RunErrorsFatal", 1) ;1=fatal, 0=silent set @error

Opt ("SendAttachMode", 0) ;0=don't attach, 1=do attach

Opt ("SendCapslockMode", 1) ;1=store and restore, 0=don"t

Opt ("SendKeyDelay", 1) ;5 milliseconds

Opt ("SendKeyDownDelay", 1) ;1 millisecond

Opt ("TrayIconDebug", 0) ;0=no info, 1=debug line info

Opt ("TrayIconHide", 0) ;0=show, 1=hide tray icon

Opt ("WinDetectHiddenText", 0) ;0=don't detect, 1=do detect

Opt ("WinSearchChildren", 1) ;0=no, 1=search children also

Opt ("WinTitleMatchMode", 3) ;1=start, 2=subStr, 3=exact, 4=...

Opt ("WinWaitDelay", 250) ;250 milliseconds

; ----------------------------------------------------------------------------

; Script Start

; ----------------------------------------------------------------------------

Run  ( $SF_1 )

;Enter Serial Number

WinWaitActive ( "Enter DesktopX Serial Number" )

ControlSetText ( "Enter DesktopX Serial Number", "", "Edit1", $SN_1 )

ControlClick ( "Enter DesktopX Serial Number", "OK", "Button2" )

; License

Sleep ( 500 )

If WinExists ( "License Agreement" ) = 1 Then

ControlClick ( "License Agreement", "I Agree", "Button4" )

ControlClick ( "License Agreement", "&Next >", "Button1" )

EndIf

;Welcome

WinWaitActive ( "Welcome" )

ControlClick ( "Welcome", "&Next >", "Button1" )

;Destination Location

WinWaitActive ( "Choose Destination Location" )

;ControlClick ( "Choose Destination Location", "B&rowse...", "Button5" )

;Choose Folder

;WinWaitActive ( "Select Destination Directory" )

;ControlSetText ( "Select Destination Directory", "", "Edit1", @ProgramFilesDir & $GM_1 & $SM_1 )

;ControlClick ( "Select Destination Directory", "OK", "Button1" )

;Destination Location (Continued)

;WinWaitActive ( "Choose Destination Location" )

ControlClick ( "Choose Destination Location", "&Next >", "Button1" )

;Start Installation

WinWaitActive ( "Start Installation" )

ControlClick ( "Start Installation", "&Next >", "Button1" )

;Finish

WinWaitActive ( "Installation Complete" )

ControlClick ( "Installation Complete", "&Finish >", "Button1" )

If WinExists( "Object Desktop") Then

  WinClose( "Object Desktop")

EndIf

#cs

; Create Directorys if Non-Existant

If FileExists ( @ProgramsCommonDir & $GM_1 ) = 0 Then DirCreate ( @ProgramsCommonDir & $GM_1 )

; Copy Directorys

DirCopy  ( @ProgramsDir & "\Object Desktop\DesktopX", @ProgramsCommonDir & $GM_1 & $SM_1 , 1 )

; Copy Files

FileCopy ( @ProgramsDir & "\Object Desktop\DesktopX.lnk", @ProgramsCommonDir & $GM_1 & $SM_1 & "\DesktopX.lnk" , 1 )

; Delete Old Directory

DirRemove  ( @ProgramsDir & "\Object Desktop", 1 )

; Delete DesktopX Short Cuts

$local = @ProgramsCommonDir & $GM_1 & $SM_1 & "\"

If $SC_1 = "y" Then FileDelete ( $local & "DesktopX.lnk" )

If $SC_2 = "y" Then FileDelete ( $local & "DesktopX Readme.lnk" )

If $SC_3 = "y" Then FileDelete ( $local & "Developers Guide.lnk" )

If $SC_4 = "y" Then FileDelete ( $local & "Online Documentation & FAQ.lnk" )

If $SC_5 = "y" Then FileDelete ( $local & "Scripting Guide.lnk" )

If $SC_6 = "y" Then FileDelete ( $local & "Uninstall DesktopX.lnk" )

If $SC_7 = "y" Then FileDelete ( $local & "Users Guide.lnk" )

#ce

Exit

;EOF