|
Post Reply
tkayok 2016-07-31 19:52
Hey i'm very new to all of this scripting stuff and need help combing these two scripts into on one.
Script #1
<![CDATA[Const PROFILE = "Default" 'name of the display profile
Const ICON_POS_FILE = "C:\Users\brand\Documents\Ultramon Scipts\icons.reg" 'can optionally be set to a .reg file with saved icon positions, otherwise the last saved icon positions will be used. to create the .reg file, export the registry key HKEY_CURRENT_USER\Software\Realtime Soft\UltraMon Components\Saved Positions\Icons
Const DELAY = 1 'number of seconds to wait between applying the profile and restoring icon positions
Const INSTALL_DIR = "%ProgramFiles%\UltraMon" 'UltraMon installation folder
Set sh = CreateObject("WScript.Shell")
Set sys = CreateObject("UltraMon.System")
'check if UltraMon 3 or later is installed
Set sh = CreateObject("WScript.Shell")
umVer = sh.RegRead("HKLM\Software\Realtime Soft\UltraMon\CurrentVersion")
'get the location of the display profile folder
dirProfiles = ""
If umVer = "" Then
'UltraMon 2
MsgBox "This script requires UltraMon version 3.",, WScript.ScriptName
WScript.Quit
Else
'UltraMon 3 or later
dirProfiles = sh.ExpandEnvironmentStrings("%APPDATA%\Realtime Soft\UltraMon\" & umVer & "\Profiles")
End If
sh.Run """" & INSTALL_DIR & "\UltraMonShortcuts.exe"" /l """ & dirProfiles & "\" & PROFILE & ".umprofile""",, True
If ICON_POS_FILE <> "" Then sh.Run """%WINDIR%\regedit.exe"" /s """ & ICON_POS_FILE & """"
WScript.Sleep DELAY * 1000
sys.RestorePositions 2 'POS_ICONS]]>
Script #2
<![CDATA[APPS = Array("Razer Comms") 'caption of the windows which should get positioned, can contain a wildcard (*)
POS = Array("1921,440,304,580") 'position of each window. a single number means maximized on that monitor, otherwise enter left and top position, optionally followed by width and height
Set wnd = CreateObject("UltraMon.Window")
For i = 0 To UBound(APPS)
If UBound(POS) < i Then
MsgBox "Position missing for app " & APPS(i) & ".",, WScript.ScriptName
WScript.Quit
End If
If wnd.Find(APPS(i), "", 1, 0, 0) = True Then
posVals = Split(POS(i), ",")
numPosVals = UBound(posVals) + 1
If numPosVals < 1 Then
MsgBox "Invalid position value for app " & APPS(i) & ".",, WScript.ScriptName
WScript.Quit
End If
If numPosVals = 1 Then
wnd.Monitor = CLng(posVals(0))
wnd.ShowState = 3 'maximized
Else
wnd.Left = CLng(posVals(0))
If numPosVals >= 2 Then wnd.Top = CLng(posVals(1))
If numPosVals >= 3 Then wnd.Width = CLng(posVals(2))
If numPosVals >= 4 Then wnd.Height = CLng(posVals(3))
wnd.ShowState = 2 'normal
End If
wnd.ApplyChanges 0
End If
Next]]>
Thanks You for the Help, sorry for being noob :(
|
Christian Studer 2016-08-01 14:08
Just copy the code from script 2 and paste it into script 1 at the end (on a new line). This way the display profile will get applied and icon positions will get restored, then the Razer Comms application will get positioned.
If this doesn't work correctly you can send me the combined script to support@realtimesoft.com and I'll take a look at it.
Christian Studer - www.realtimesoft.com
|
basder 2026-04-17 02:22
Hallo! Een buurman uit mijn wijk in Nederland vertelde me dat hij hier vaak een gokje waagt. Ik besloot een account aan te maken en bij casino lab werd ik verrast door het aanbod aan live tafelspellen. Ik heb me vooral vermaakt met blackjack en de interactie was top. Het voelde erg veilig en professioneel aan. Ik hield er een leuk bedrag aan over en de winst werd snel overgeschreven. Het is een stabiele site die ik zeker vaker ga bezoeken.
|
Post Reply
|
