Jump to content

Ashampoo Burning Studio 9.20


sahra

Recommended Posts

i have a problem in script that i found in this forum

the script:

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author: myName

Ashampoo Burning Studio 9.20
Application site: http://www2.ashampoo.com/webcache/html/1/product_2_2210___USD.htm

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

Opt("TrayIconDebug", 1)

; Installer file name
$Installer = "ashampoo_burning_studio_9_9.20_sm.exe"
; Serial number
$SN = "xxxxxx-xxxxxx-xxxxxx"

$PreviousInstallation = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\Ashampoo Burning Studio 9_is1", "InstallLocation")
If StringRight($PreviousInstallation, 1) = '\' Then
$PreviousInstallation = StringTrimRight($PreviousInstallation, 1)
EndIf
If FileExists($PreviousInstallation & "\burningstudio9.exe") Then
MsgBox(0x40010, @ScriptName, "Please uninstall previous version of Ashampoo Burning Studio before using this script", 4)
Exit
EndIf

; Save and disable the default internet browser (to prevent Ashampoo Burning Studio installer to open it at the end of installation)
$DefaultHttpBrowser = RegRead("HKCR\http\shell\open\command\", "")
$DefaultHttpsBrowser = RegRead("HKCR\https\shell\open\command\", "")
RegDelete("HKCR\http\shell\open\command\", "")
RegDelete("HKCR\https\shell\open\command\", "")

; Start checking
AdlibEnable('_Adlib')

; Run the installer
RunWait($Installer & " /sp- /verysilent /norestart")

Sleep(2000)

; Settings
RegWrite("HKLM\Software\Ashampoo\Ashampoo Burning Studio 9", "RegKey", "REG_SZ", $SN)
RegWrite("HKLM\Software\Ashampoo\Ashampoo Burning Studio 9", "InfoChannelsEnabled", "REG_DWORD", "0")
RegWrite("HKLM\Software\Ashampoo\Ashampoo Burning Studio 9\ash_inet", "Enabled", "REG_DWORD", "0")

; Restore the default internet browser
RegWrite("HKCR\http\shell\open\command\", "", "REG_SZ", $DefaultHttpBrowser)
RegWrite("HKCR\https\shell\open\command\", "", "REG_SZ", $DefaultHttpsBrowser)

; Delete page folder and Desktop icon
DirRemove(@AppDataCommonDir & "\page", 1)
FileDelete(@DesktopCommonDir & "\Go to WWW.THE-PAGE.COM.lnk")

; Stop checking
AdlibDisable()

Func _Adlib()
; Close MSN toolbar installation process
$PID = ProcessExists("toolbarsetup_SL1.0_ash_de-DE.exe")
If $PID Then
ProcessClose($PID)
EndIf

; Close Ashampoo Burning Studio process
$PID = ProcessExists("burningstudio9.exe")
If $PID Then
ProcessClose($PID)
EndIf

; Close Internet Explorer process if was started
$PID = ProcessExists("IEXPLORE.EXE")
If $PID Then
ProcessClose($PID)
EndIf
EndFunc

Func OnAutoItStart()
; One script instance only
If WinExists(@ScriptName & '_Interpreter') Then Exit
AutoItWinSetTitle(@ScriptName & '_Interpreter')
EndFunc

now when i run the script a msg show up that AdlibEnable('_Adlib')

^ERROR

what is wrong in this script?

Link to comment
Share on other sites

  • 2 weeks later...

Try this script with the latest stable AutoIt release:

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.0.0
Author: myName

Ashampoo Burning Studio 9.21
Application site: http://www2.ashampoo.com/webcache/html/1/product_2_2210___USD.htm

Script Function:
Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#include <Misc.au3>
If _Singleton("Ashampoo Burning Studio 9.21",1) = 0 Then
Exit
EndIf

Opt("TrayIconDebug", 1)

; Installer file name
$Installer = "ashampoo_burning_studio_9_9.21_sm.exe"
; Disable InfoChannel
$DisableInfoChannel = 1
; Serial number
$SN = ""

$PreviousInstallation = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\Ashampoo Burning Studio 9_is1", "InstallLocation")
If StringRight($PreviousInstallation, 1) = '\' Then
$PreviousInstallation = StringTrimRight($PreviousInstallation, 1)
EndIf
If FileExists($PreviousInstallation & "\burningstudio9.exe") Then
MsgBox(0x40010, @ScriptName, "Please uninstall previous version of Ashampoo Burning Studio before using this script", 4)
Exit
EndIf

; Save and disable the default internet browser (to prevent Ashampoo Burning Studio installer to open it at the end of installation)
$DefaultHttpBrowser = RegRead("HKCR\http\shell\open\command\", "")
$DefaultHttpsBrowser = RegRead("HKCR\https\shell\open\command\", "")
RegDelete("HKCR\http\shell\open\command\", "")
RegDelete("HKCR\https\shell\open\command\", "")

; Start checking
AdlibRegister("_Adlib")

; Run the installer
RunWait($Installer & " /sp- /verysilent /norestart")

Sleep(2000)

; Disable InfoChannel
If $DisableInfoChannel = 1 Then
RegWrite("HKCU\Software\Ashampoo\Ashampoo Burning Studio 9\ash_inet", "InfoChannel_-updates-_Enabled", "REG_DWORD", 0)
RegWrite("HKCU\Software\Ashampoo\Ashampoo Burning Studio 9\ash_inet", "InfoChannel_ashnews_Enabled", "REG_DWORD", 0)
RegWrite("HKCU\Software\Ashampoo\Ashampoo Burning Studio 9\General", "FirstStart", "REG_DWORD", 0)
EndIf

; Registration
RegWrite("HKLM\Software\Ashampoo\Ashampoo Burning Studio 9", "RegKey", "REG_SZ", $SN)

; Restore the default internet browser
RegWrite("HKCR\http\shell\open\command\", "", "REG_SZ", $DefaultHttpBrowser)
RegWrite("HKCR\https\shell\open\command\", "", "REG_SZ", $DefaultHttpsBrowser)

; Stop checking
AdlibUnRegister("_Adlib")

Func _Adlib()
; Close MyAshampoo Toolbar for Mozilla Firefox installation process
$PID = ProcessExists("MyAshampoo.exe")
If $PID Then
ProcessClose($PID)
EndIf

; Close Ashampoo Burning Studio process
$PID = ProcessExists("burningstudio9.exe")
If $PID Then
ProcessClose($PID)
EndIf

; Close Internet Explorer process if was started
$PID = ProcessExists("IEXPLORE.EXE")
If $PID Then
ProcessClose($PID)
EndIf

; Close Mozilla Firefox process if was started
$PID = ProcessExists("firefox.exe")
If $PID Then
ProcessClose($PID)
EndIf

; Close Opera process if was started
$PID = ProcessExists("opera.exe")
If $PID Then
ProcessClose($PID)
EndIf
EndFunc

Edit

Edited by radix
Link to comment
Share on other sites

OK thanks you very match but i don't understand for what is that code:

#include
If _Singleton("Nullsoft Winamp 5.5.7.2830",1) = 0 Then
Exit
EndIf

what its does?

or i just need to replace this :

; Start checking
AdlibEnable('_Adlib')

in this:

; Start checking
AdlibRegister("_Adlib")

and it should work?

Link to comment
Share on other sites

_Singleton is a function which prevent to run multiple instance of the same script or compiled script (this mean that you can double click as many times you want on the file, only one instance will run).

AdlibEnable and AdlibDisable is deprecated. Download the last stable version and read the changelog.

Link to comment
Share on other sites

_Singleton is a function which prevent to run multiple instance of the same script or compiled script (this mean that you can double click as many times you want on the file, only one instance will run).

AdlibEnable and AdlibDisable is deprecated. Download the last stable version and read the changelog.

OK thanks you very match you really help me

something last:

#include
If _Singleton("Nullsoft Winamp 5.5.7.2830",1) = 0 Then
Exit
EndIf

i need to change "Nullsoft Winamp 5.5.7.2830" to my software Or it does not matter?

Link to comment
Share on other sites

Doesn't matter. gfhdfghdfh is good also. :)

thanks you but the "#include" is important? because its say Error :

#include
Error:Cannot parse #include

and if i remove the "#include"

its say Error:

If _Singleton("Nullsoft Winamp 5.5.7.2830",1) = 0 Then
If ^ ERROR

Error: Unknown function name.

what is the problem?

Edited by sahra
Link to comment
Share on other sites

Doesn't matter. gfhdfghdfh is good also. :)

thanks you but the "#include" is important? because its say Error :

#include
Error:Cannot parse #include

and if i remove the "#include"

its say Error:

If _Singleton("Nullsoft Winamp 5.5.7.2830",1) = 0 Then
If ^ ERROR

Error: Unknown function name.

what is the problem?

make it #Include <Misc.au3>

that should fix the problem

Link to comment
Share on other sites

Doesn't matter. gfhdfghdfh is good also. :)

thanks you but the "#include" is important? because its say Error :

#include
Error:Cannot parse #include

and if i remove the "#include"

its say Error:

If _Singleton("Nullsoft Winamp 5.5.7.2830",1) = 0 Then
If ^ ERROR

Error: Unknown function name.

what is the problem?

make it #Include <Misc.au3>

that should fix the problem

thanks you very match its fix the problem

thanks you to radix !!

Link to comment
Share on other sites

  • 2 weeks later...

I am using AutoIT v3.3.4.0, and both scripts give errors?

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.4.0

Author: myName

Ashampoo Burning Studio 9.20

Application site: http://www2.ashampoo.com/webcache/html/1/product_2_2210___USD.htm

Script Function:

Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

#Include <Misc.au3>

If _Singleton("Nullsoft Winamp 5.5.7.2830",1) = 0 Then

Exit

EndIf

Opt("TrayIconDebug", 1)

; Installer file name

$Installer = "ashampoo_burning_studio_9_9.20_sm.exe"

; Serial number

$SN = "xxxxxx-xxxxxx-xxxxxx"

$PreviousInstallation = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\Ashampoo Burning Studio 9_is1", "InstallLocation")

If StringRight($PreviousInstallation, 1) = '\' Then

$PreviousInstallation = StringTrimRight($PreviousInstallation, 1)

EndIf

If FileExists($PreviousInstallation & "\burningstudio9.exe") Then

MsgBox(0x40010, @ScriptName, "Please uninstall previous version of Ashampoo Burning Studio before using this script", 4)

Exit

EndIf

; Save and disable the default internet browser (to prevent Ashampoo Burning Studio installer to open it at the end of installation)

$DefaultHttpBrowser = RegRead("HKCR\http\shell\open\command\", "")

$DefaultHttpsBrowser = RegRead("HKCR\https\shell\open\command\", "")

RegDelete("HKCR\http\shell\open\command\", "")

RegDelete("HKCR\https\shell\open\command\", "")

; Start checking

AdlibRegister("_Adlib")

; Run the installer

RunWait($Installer & " /sp- /verysilent /norestart")

Sleep(2000)

; Settings

RegWrite("HKLM\Software\Ashampoo\Ashampoo Burning Studio 9", "RegKey", "REG_SZ", $SN)

RegWrite("HKLM\Software\Ashampoo\Ashampoo Burning Studio 9", "InfoChannelsEnabled", "REG_DWORD", "0")

RegWrite("HKLM\Software\Ashampoo\Ashampoo Burning Studio 9\ash_inet", "Enabled", "REG_DWORD", "0")

; Restore the default internet browser

RegWrite("HKCR\http\shell\open\command\", "", "REG_SZ", $DefaultHttpBrowser)

RegWrite("HKCR\https\shell\open\command\", "", "REG_SZ", $DefaultHttpsBrowser)

; Delete page folder and Desktop icon

DirRemove(@AppDataCommonDir & "\page", 1)

FileDelete(@DesktopCommonDir & "\Go to WWW.THE-PAGE.COM.lnk")

; Stop checking

AdlibUnRegister("_Adlib")

Func _Adlib()

; Close MSN toolbar installation process

$PID = ProcessExists("toolbarsetup_SL1.0_ash_de-DE.exe")

If $PID Then

ProcessClose($PID)

EndIf

; Close Ashampoo Burning Studio process

$PID = ProcessExists("burningstudio9.exe")

If $PID Then

ProcessClose($PID)

EndIf

; Close Internet Explorer process if was started

$PID = ProcessExists("IEXPLORE.EXE")

If $PID Then

ProcessClose($PID)

EndIf

EndFunc

this should work fine

and if there is any error

submit it in here and i will have a look

ABS.au3

ABS.au3

Edited by DaRk MaDnEsS
Link to comment
Share on other sites

Hi,

Thanks.

But now I get this when compiling:

error.png

well there was a small thing while i copied the code

make this line

$PreviousInstallation = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\
Ashampoo Burning Studio 9_is1", "InstallLocation")

like this

$PreviousInstallation = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\Ashampoo Burning Studio 9_is1", "InstallLocation")

after the Uninstall\Ashampoo

Edited by DaRk MaDnEsS
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
  • Recently Browsing   0 members

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