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?



Help

Back to top











