WSCPorts Posted September 16, 2005 Share Posted September 16, 2005 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 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] Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now