Sign in to follow this  
Followers 0
WSCPorts

Toggle beta needs spaces ;)

1 post in this topic

; ----------------------------------------------------------------------------
;
; 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


http://www.myclanhosting.com/defiasVisit Join and contribute to a soon to be leader in Custumized tools development in [C# .Net 1.1 ~ 2.0/C/C++/MFC/AutoIt3/Masm32]

Share this post


Link to post
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
Sign in to follow this  
Followers 0