Toggle beta needs spaces ;)

[WSCPorts]

expandcollapse popup

; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.1
; Author:        Ejoc
;
; Script Function:
;   Toggle AutoIt beta.
;
; ----------------------------------------------------------------------------

; Script Start - Add your code below here

#cs
vi:ts=4 sw=4:
DefaultAutoItToggle.au3
Ejoc
#ce
Opt("MustDeclareVars",1)
Local $InstallDir = RegRead("HKLM\Software\AutoIt v3\AutoIt","InstallDir")

If StringInStr(RegRead("HKLM\Software\Classes\AutoIt3Script\Shell\Run\Command",""),"beta") Then; already using beta switch back
    RegWrite("HKLM\Software\Classes\AutoIt3Script\Shell\Compile\Command","", _
            "REG_SZ", _
            $InstallDir & '\Aut2Exe\Aut2Exe.exe /in "%l"')
    RegWrite("HKLM\Software\Classes\AutoIt3Script\Shell\Run\Command","", _
            "REG_SZ", _
            $InstallDir & '\AutoIt3.exe "%1" %*')
    MsgBox(0,"Using","Using Release " & FileGetVersion($InstallDir & '\AutoIt3.exe') & " Version of AutoIt",5)
Else; change to beta
    RegWrite("HKLM\Software\Classes\AutoIt3Script\Shell\Compile\Command","", _
            "REG_SZ", _
            $InstallDir & '\beta\Aut2Exe\Aut2Exe.exe /in "%l"')
    RegWrite("HKLM\Software\Classes\AutoIt3Script\Shell\Run\Command","", _
            "REG_SZ", _
            $InstallDir & '\beta\AutoIt3.exe "%1" %*')
    MsgBox(0,"Using","Using beta " & FileGetVersion($InstallDir & '\beta\AutoIt3.exe') & " Version of AutoIt",5)
EndIf