== Onyx Registration Script == == Onyx Registration Script == -<nowiki>+<pre> Dim oWSHShell Dim oWSHShell Dim oWSHEnvironment Dim oWSHEnvironment Dim RegItm1 Dim RegItm1 Dim RegItm2 Dim RegItm2  +Dim CurApp Set oWSHShell = WScript.CreateObject("WScript.Shell") Set oWSHShell = WScript.CreateObject("WScript.Shell") For each Process in Processes For each Process in Processes - 'WScript.Echo Process.Name + 'WScript.Echo Process.Name  + 'WScript.Echo Process.ProcessId Select Case LCase(Process.Name) Select Case LCase(Process.Name) Case "postershop.exe" 'Onyx ProductionHouse Case "postershop.exe" 'Onyx ProductionHouse - retCode = oWSHShell.Popup(Process.Name & " will Close in 30 seconds.", 30, "Onyx Registration Script", 4 + 16) + 'retCode = oWSHShell.Popup(Process.Name & " will Close in 30 seconds.", 30, "Onyx Registration Script", 4 + 16) - Select Case retCode+ 'Select Case retCode - case 6, -1+ 'case 6, -1 - Process.Terminate(0) 'Yes or timeout was chosen+ 'Process.Terminate(0) 'Yes or timeout was chosen - case 7+ 'case 7 - WScript.quit(1) 'No was chosen+ 'WScript.quit(1) 'No was chosen - End Select+ 'End Select  + Process.Terminate(0) End Select End Select Next Next If keyExists(RegItm1) = True Then oWSHShell.RegDelete RegItm1 If keyExists(RegItm1) = True Then oWSHShell.RegDelete RegItm1 If keyExists(RegItm2) = True Then oWSHShell.RegDelete RegItm2 If keyExists(RegItm2) = True Then oWSHShell.RegDelete RegItm2  + WScript.Sleep 20000 'Wait 20 seconds.  +  + oWSHShell.Run """E:\Onyx Graphics\ProductionHouse\server\Postershop.exe""", 5, False WScript.Sleep 30000 'Wait 30 seconds. WScript.Sleep 30000 'Wait 30 seconds. - oWSHShell.Run """E:\Onyx Graphics\ProductionHouse\server\Postershop.exe""", 8, False+  - WScript.Sleep 30000 'Wait 30 seconds.+ oWSHShell.AppActivate "Enter"  + WScript.Sleep 5000 'Wait 5 seconds. oWSHShell.SendKeys "{TAB}{ENTER}" 'Close the registration screen. oWSHShell.SendKeys "{TAB}{ENTER}" 'Close the registration screen.  +  + 'oWSHShell.Run "C:\DD\Scripts\close.register.onyx.vbs", 8, False Else Else MsgBox "Onyx is still running. Please close the application and attempt registration again.", vbCritical, "Onyx Registration Script" MsgBox "Onyx is still running. Please close the application and attempt registration again.", vbCritical, "Onyx Registration Script" on error goto 0 on error goto 0 end function end function
Fatal error: Allowed memory size of 8388608 bytes exhausted (tried to allocate 35 bytes) in /www/ljackson.us/wiki/htdocs/includes/DifferenceEngine.php on line 1615