CWorks

put icon in same folder as script and add this to your script #Compiler_Icon=whatever.ico oh wait thats for when using AutoIt3Wrapper download SciTE4AutoIt3.exe and you can add your own icon by choosing compile from the tools menu what am i talking about you can do it just using Aut2Exe if you right click and choose compile you won't get the choice your program is messed up because you edited the .exe and corrupted it

this code gives loads of errors but does work this will put the main window in center your code for this was all wrong $gui = GUICreate("Nelmen Browser", 1000, 850, -1, -1, $WS_MAXIMIZE + $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS) not sure what else to fix first $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 720, 100, 30) $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 720, 100, 30) $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 720, 100, 30) $GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 720, 100, 30) not sure what you want exactly but with resizing enabled you would need to have a way to change button position so i just gave it a static size i didn't fix your errors though ; ******************************************************* ; Nelmen Browser by keen ; Special thanks to Dan! ; ******************************************************* ; #include <GUIConstants.au3> #include <IE.au3> #include <GuiTab.au3> Global $tabcount = 1 Dim $aTabs[1] _IEErrorHandlerRegister () GUISetState() ;Show GUI GUICreate("Nelmen Browser", 890, 760, -1, -1) $GUI_Button_Back = GUICtrlCreateButton("Back", 10, 720, 100, 30) $GUI_Button_Forward = GUICtrlCreateButton("Forward", 120, 720, 100, 30) $GUI_Button_Home = GUICtrlCreateButton("Home", 230, 720, 100, 30) $GUI_Button_Stop = GUICtrlCreateButton("Stop", 340, 720, 100, 30) $GUI_Button_AddTab = GUICtrlCreateButton("Add Tab", 10, 10, 100) GUICtrlCreateTab(3, 60, 880, 645) $oIE = _IECreateEmbedded () GUICtrlCreateObj ($oIE, 10, 100, 870, 600) addtab() GUISetState() ;Show GUI _IENavigate ($oIE, "http://www.zetastyles.com") ; Waiting for user to close the window While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $GUI_Button_Home _IENavigate ($oIE, "http://www.zetastyles.com") Case $msg = $GUI_Button_Back _IEAction ($oIE, "back") Case $msg = $GUI_Button_Forward _IEAction ($oIE, "forward") Case $msg = $GUI_Button_Stop _IEAction ($oIE, "stop") Case $msg = $GUI_Button_AddTab addtab() EndSelect WEnd Func addtab() ReDim $aTabs[$tabcount] $aTabs[$tabcount - 1] = GUICtrlCreateTabItem("Tab " & $tabcount) GUICtrlSetStyle(-1, $WS_VISIBLE) GUICtrlCreateTabItem(""); end tabitem definition $tabcount += 1 EndFunc

decided to add a choice of writing password to registry or ScreenLock.ini ScreenLock.ini is the default choice HotKeys available while unlocked F9 = Close program F10 = Change password F11 = Enable ScreenLock ScreenLock.au3

it's good to go now and you were right about using radio buttons since only one can be selected I just liked checkboxes but not anymore also shotened my code by getting rid of an unneeded Case and just put it under $Button1 #include <guiconstants.au3> #include <string.au3> Dim $PassWord GUICreate("ScreenLock", 310, 99, 481, 371) $PassInput = GUICtrlCreateInput("Password", 8, 32, 153, 21, -1, $WS_EX_CLIENTEDGE) $Button1 = GUICtrlCreateButton("OK", 48, 64, 89, 25) GUICtrlCreateLabel("Enter Password", 24, 8, 78, 17) $Button2 = GUICtrlCreateButton("Cancel", 176, 64, 89, 25) $Radio1 = GUICtrlCreateRadio("Write to ScreenLock.ini", 176, 8, 129, 17) GUICtrlSetState(-1, $GUI_CHECKED) $Radio2 = GUICtrlCreateRadio("Write to Registry", 176, 32, 97, 17) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Or $msg = $Button2 ExitLoop Case $msg = $Button1 And $PassWord <> "" If GUICtrlRead($Radio1) = $GUI_CHECKED Then $PassWord = _StringEncrypt(1, $PassWord, "4471") ;IniWrite("ScreenLock.ini", "Password", "key", $PassWord) ; don't forget to remove MsgBox(0, "ini selected", $PassWord) Exit Else ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Andy\ScreenLock", "Password", "REG_SZ", _StringEncrypt(1, $PassWord, "4471")) ; don't forget to remove MsgBox(0, "reg selected", $PassWord) Exit EndIf Case $msg = $PassInput $PassWord = GUICtrlRead($PassInput) If $PassWord = "" Then MsgBox(16, "error", "Invalid password.") EndIf EndSelect WEnd Exit

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Volume Control\Your sound cards name\Volume Control LineStates problem is LineStates is binary and your cards name is part of the path this looks like same thing but no card name but still binary HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Multimedia\Audio\VolumeControl LineStates nope they're here problem is the clsid will be different for every card [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\DeviceClasses\{6994AD04-93EF-11D0-A3CC-00A0C9223196}\##?#PCI#VEN_1106&DEV_3059&SUBSYS_80B01043&REV_60#3&61AAA01&0&8D#{6994ad04-93ef-11d0-a3cc-00a0c9223196}\#Wave\Device Parameters\Mixer\0\Controls\0]

so here's the problem I have it works fine as long as checkbox is chosen before entering input otherwise checkbox2 is used every time every time i fix one thing i seem to break another also i tend to forget things so all the "don't forget to remove" comments are meant for me #include <guiconstants.au3> #include <string.au3> $dog = "dog" ; work damn it ; don't forget to remove Pass() #comments-start $PassWord = IniRead("ScreenLock.ini", "Password", "key", "") ;MsgBox(0, "IniRead Result", $PassWord) If $PassWord = "" Then $PassWord = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Andy\ScreenLock", "Password") EndIf If $PassWord <> "" Then $PassWord = _StringEncrypt(0, $PassWord, "4471") ; don't forget to remove MsgBox(0, "decrypt Result", $PassWord) Else Pass() EndIf #comments-end Func Pass() GUICreate("ScreenLock", 309, 99, -1, -1) $PassInput = GUICtrlCreateInput("Password", 8, 32, 153, 21, -1, $WS_EX_CLIENTEDGE) $Checkbox1 = GUICtrlCreateCheckbox("Write to ScreenLock.ini", 176, 8, 129, 17) $Button1 = GUICtrlCreateButton("OK", 48, 64, 89, 25) $Button2 = GUICtrlCreateButton("Cancel", 176, 64, 89, 25) GUICtrlCreateLabel("Enter Password", 24, 8, 78, 17) $Checkbox2 = GUICtrlCreateCheckbox("Write to Registry", 176, 32, 105, 17) GUICtrlSetState(-1, $GUI_CHECKED) GUISetState(@SW_SHOW) While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE Or $msg = $Button2 ExitLoop Case $msg = $Button1 And $dog = "cat" ;If GUICtrlRead($Checkbox1) = $GUI_UNCHECKED Or GUICtrlRead($Checkbox2) = $GUI_UNCHECKED Then ; MsgBox(16, "error", "Need to select something.") Exit Case $msg = $PassInput $PassWord = GUICtrlRead($PassInput) ; If GUICtrlRead($PassWord) = "" Then If $PassWord = "" Then MsgBox(16, "error", "Invalid password.") ; don't forget to remove ;MsgBox(0, "crap", $PassWord) Pass() Else If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then ;$PassWord = _StringEncrypt(1, $PassWord, "4471") ;IniWrite("ScreenLock.ini", "Password", "key", $PassWord) $dog = "cat" ; don't forget to remove MsgBox(0, "ini selected", $PassWord) Exit Else ;If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then ; does nothing ;RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Andy\ScreenLock", "Password", "REG_SZ", _StringEncrypt(1, $PassWord, "4471")) $dog = "cat" ; don't forget to remove MsgBox(0, "reg selected", $PassWord) Exit EndIf EndIf ;EndIf Case $msg = $Checkbox2 If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then GUICtrlSetState($Checkbox1, $GUI_UNCHECKED) EndIf Case $msg = $Checkbox1 If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then GUICtrlSetState($Checkbox2, $GUI_UNCHECKED) EndIf EndSelect WEnd Exit EndFunc

ControlHide('classname=Shell_TrayWnd', '', '') and to show it again ControlShow('classname=Shell_TrayWnd', '', '')

Me i love to try new things and collect code who knows it may come in handy some day

I'll put this back from whence it came with a few changes i made as a learning experience just removed some dupe code and a dlg box tray icon also changes when locked now well lets see what did i learn not to be so quick to remove stuff before knowing what it does also Select...Case...EndSelect, if then, while wend, if else and where to put the damn endif's oh i almost forgot about how to call and create a funtion haven't used ElseIf yet, maybe next time all it took was reading posts in the support forum (best place by far to look if stuck) and help file to get some examples btw i'm up to page 46 in support forum now go ahead and tell me how messed up my code is ; ---------------------------------------------------------------------------- ; Screen Lock ; ; AutoIt Version: 3.2.0.1 ; Author: Hallman \ CWorks ; ; HotKeys ; F9 = Close program ; F10 = Change password ; F11 = Enable ScreenLock ; ; ---------------------------------------------------------------------------- #include <guiconstants.au3> #include <string.au3> Opt("TrayMenuMode",1) Dim $Atempts = 0 Dim $Lock = 0 Dim $PassInput = "" Dim $Label Dim $ScreenyWindow = "" Dim $PassWindow = "" $Show_Controls_Timer = TimerInit() $Controls_Shown = 0 $PassWord = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Andy\ScreenLock", "Password") If $PassWord <> "" Then $PassWord = _StringEncrypt(0, $PassWord, "4471") Else Pass() EndIf Lock() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE And $Lock = 0 Exit Case $msg = $PassInput If GUICtrlRead($PassInput) == $PassWord Then Lock() MsgBox(0, "Atempts", "An incorrect password was entered " & $Atempts & " time(s).") $Atempts = 0 Else $Atempts += 1 SplashMsg("Error", "Invalid Password", 220, 100) EndIf Case $msg = $GUI_EVENT_PRIMARYUP And $Lock = 1 GUISetState(@SW_SHOW, $PassWindow) $Controls_Shown = 1 $Show_Controls_Timer = TimerInit() EndSelect If TimerDiff($Show_Controls_Timer) > 10000 And $Controls_Shown = 1 Then GUISetState(@SW_HIDE, $PassWindow) $Controls_Shown = 0 EndIf If WinExists("Windows Task Manager") And $Lock = 1 Then WinClose("Windows Task Manager") WinKill("Windows Task Manager") EndIf If WinActive($ScreenyWindow) = 0 And WinActive($PassWindow) = 0 And $Lock = 1 Then WinActivate($ScreenyWindow) EndIf If Not BitAND(WinGetState($ScreenyWindow, ""), 2) = 1 And $Lock = 1 Then GUISetState(@SW_SHOW) EndIf If $Lock = 1 And WinExists($ScreenyWindow) = 0 Then $ScreenyWindow = GUICreate("", @DesktopWidth, @DesktopHeight, -2, -2, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW) GUISwitch($ScreenyWindow) WinSetTrans($ScreenyWindow, "", 1) GUISetState(@SW_SHOW, $ScreenyWindow) WinSetOnTop($ScreenyWindow, "", 1) WinSetOnTop($PassWindow, "", 1) EndIf WEnd Func Lock() If $Lock = 0 Then RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", 00000001) HotKeySet("{F9}") HotKeySet("{F10}") HotKeySet("{F11}") ; HotKeySet("^!p") ;Ctrl-Alt-p ; HotKeySet("^!l") ;Ctrl-Alt-l TraySetIcon("Shell32.dll", 47) $ScreenyWindow = GUICreate("", @DesktopWidth + 2, @DesktopHeight + 2, -2, -2, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW) GUISwitch($ScreenyWindow) WinSetTrans($ScreenyWindow, "", 1) Global $PassWindow = GUICreate("", 220, 80, -1, -1, $WS_POPUPWINDOW, $WS_EX_TOOLWINDOW) GUISwitch($PassWindow) GUISetState(@SW_HIDE) Global $Label = GUICtrlCreateLabel("The screen has been locked.", 10, 10, -1, 15) ; GUICtrlSetColor(-1,0xff0000) Global $PassInput = GUICtrlCreateInput("Password", 10, 30, 200, 20, $ES_PASSWORD) Global $Label2 = GUICtrlCreateLabel("Type Password and hit Enter", 10, 55, -1, 15) ; GUICtrlSetColor(-1,0xff0000) GUISetState(@SW_SHOW, $ScreenyWindow) WinSetOnTop($ScreenyWindow, "", 1) WinSetOnTop($PassWindow, "", 1) $Lock = 1 Else GUIDelete($ScreenyWindow) GUIDelete($PassWindow) HotKeySet("{F9}", "close") HotKeySet("{F10}", "Pass") HotKeySet("{F11}", "Lock") ; HotKeySet("^!p", "Pass") ;Ctrl-Alt-p ; HotKeySet("^!l", "Lock") ;Ctrl-Alt-l TraySetIcon("Shell32.dll", 44) RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", 00000000) $Lock = 0 EndIf EndFunc ;==>Lock Func Pass() $PassWord = InputBox("Create Password", "Enter your password", "", "", 100, 100) If $PassWord = "" Then MsgBox(16, "error", "Invalid password.") Pass() Else RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Andy\ScreenLock", "Password", "REG_SZ", _StringEncrypt(1, $PassWord, "4471")) EndIf EndFunc ;==>Pass Func SplashMsg($S_Title = "", $S_Text = "", $S_Size_X = 300, $S_Size_Y = 300) SplashTextOn($S_Title, $S_Text & @CRLF & "Press Enter to close this window.", $S_Size_X, $S_Size_Y) HotKeySet("{ENTER}", "OffSplash") EndFunc ;==>SplashMsg Func OffSplash() SplashOff() HotKeySet("{ENTER}") EndFunc ;==>OffSplash Func close() Exit EndFunc ;==>close

I tend to learn a lot more by trying to find the answers myself plus I found lots of other things along the way

I finally found how to hide controls until a checkbox is clicked now how to get them to hide again when unchecked I think i got to page 27 here before finding out how to hide them must have read at least 10 of those #include <GUIConstants.au3> GUICreate("Testing", 150, 80, -1, -1) $Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 8, 0, 121, 17) ;$test = GUICtrlRead($Checkbox1) GUISetState(@SW_SHOW) ;GuiSetState() While 1 $msg = GUIGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case Else If $msg = $Checkbox1 Then ;If BitAND(GUICtrlRead($Checkbox1),$GUI_UNCHECKED) Then $Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 16, 32, 97, 17) $input = GUICtrlCreateInput("input", 8, 56, 137, 21, -1, $WS_EX_CLIENTEDGE) EndIf EndSelect WEnd Exit

I just noticed that SciTE is installed with AutoIt so you can remove that part I always installed it after installing AutoIt and never realized it came with it oh well i like the extra stuff you get with the seperate install of SciTE

he wants to use space and it's the same thing i just posted

simple Hotkey example add to top of script HotKeySet("{SPACE}", "close") add to bottom of script Func close() Exit EndFunc

you need to remove the regread at the bottom (before While 1) since it will defeat the purpose of the one's at the top btw i gave an example of using space to close program here

just a few changes so executable works without beta (uses "InstallDir" for regread) also moved regread to top so GUISetIcon and SciTE menu can use $installdir ;*********************** ; Sample GUI Menu ; Coded by: Dan ; August 2, 2006 ; Special Thanks to: gafrost, SmOke_N, Skruge, Paulie, CWorks, and codemyster! ;*********************** #include <GUIConstants.au3> #include <Misc.au3> #include <File.au3> #include <GuiListView.au3> #include <Process.au3> FileWrite("c:/blank.txt", "") Global $oRP $installdir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "betaInstallDir") If $installdir = "" Then $installdir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "InstallDir") $name = InputBox("Log In", "Please enter your name:") ; GUI GUICreate("Sample GUI Menu", 400, 400) ;\Icons\au3.ico only found in beta version this is in both \Aut2Exe\Icons\AutoIt_HighColor.ico ;not really needed since it will default to this unless compiled with different icon GUISetIcon($installdir & "\Aut2Exe\Icons\AutoIt_HighColor.ico", 0)oÝ÷ Ùجi¹^u'"LIæ§uÈZ¶b²ZÊ«¨µ'"LIèµú.Ú®¢ØbËZWjëh×6; MENU $filemenu = GUICtrlCreateMenu("File") $fileitem = GUICtrlCreateMenuitem("Open...", $filemenu) $recentfilesmenu = GUICtrlCreateMenu("Recent Files", $filemenu) $separator1 = GUICtrlCreateMenuitem("", $filemenu) $exititem = GUICtrlCreateMenuitem("Exit", $filemenu) $filemenu = GUICtrlCreateMenu("AutoIt") $prog4 = GUICtrlCreateMenuitem("Run AutoIt",$filemenu) $prog5 = GUICtrlCreateMenuitem("Extras",$filemenu) $prog1 = GUICtrlCreateMenuitem("Scripts",$filemenu) $prog2 = GUICtrlCreateMenuitem("Icons",$filemenu) ; not pointing to anything ;$sguim1 = GUICtrlCreateMenuitem("Sample GUI Menu V1",$filemenu) If FileExists ($installdir & "\SciTE\") Then $prog3 = GUICtrlCreateMenuitem("SciTE",$filemenu) Else $prog3 = GUICtrlCreateMenuitem("SciTE not found",$filemenu) GUICtrlSetState(-1,$GUI_DISABLE) EndIf $helpmenu = GUICtrlCreateMenu("About") $aboutitem = GUICtrlCreateMenuitem("About", $helpmenu) GUISetState(@SW_Show)

just the formatting

While 1 $installdir = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt", "betaInstallDir") $msg = GUIGetMsg() Select Case $msg = $fileitem $file = FileOpenDialog("Choose file...", @TempDir, "All (*.*)") If @error <> 1 Then GUICtrlCreateMenuitem($file, $recentfilesmenu) Case $msg = $exititem ExitLoop Case $msg = $GUI_EVENT_CLOSE ;~ $oRP.SaveFile (@ScriptDir & "RichText.rtf", 0) Exit Case $msg = $TagsPageC Run(@ComSpec & ' /c start http://www.autoitscript.com/autoit3%27"]http://www.autoitscript.com/autoit3', '', @SW_HIDE) Case $msg = $aboutitem MsgBox(0, "About Sample GUI Menu", "Sample GUI Menu V2" & @CRLF & @CRLF & "Created by: Javascript_Freek" & @CRLF & "" & @CRLF & "©AutoIt") Case $msg = $prog1 Run("explorer.exe " & $installdir & "\Examples") Case $msg = $prog2 Run("explorer.exe " & $installdir & "\Icons") Case $msg = $prog3 Run("explorer.exe " & $installdir & "\SciTe") Case $msg = $prog4 Run($installdir & "\AU3Info.exe") Case $msg = $prog5 Run("explorer.exe " & $installdir & "\Extras") Case $msg = $GUI_EVENT_CLOSE $msg = GUIGetMsg() Case $msg = $Button_7 GUICtrlSetData($Edit_1, FileRead(FileOpenDialog("Select a file to open", @ScriptDir, "All Files (*.*)"))) Case $msg = $button MsgBox(0, "listview item", GUICtrlRead(GUICtrlRead($listview)), 2) Case $msg = $listview MsgBox(0, "listview", "clicked=" & GUICtrlGetState($listview), 2) Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd just some minor tweaks

#include-once ; ------------------------------------------------------------------------------ ; ; AutoIt Version: 3.1.1 (beta) ; Language: English ; Description: Windows constants. ; ; ------------------------------------------------------------------------------ ; Window Styles Global Const $WS_TILED = 0 Global Const $WS_OVERLAPPED = 0 Global Const $WS_MAXIMIZEBOX = 0x00010000 Global Const $WS_MINIMIZEBOX = 0x00020000 Global Const $WS_TABSTOP = 0x00010000 Global Const $WS_GROUP = 0x00020000 Global Const $WS_SIZEBOX = 0x00040000 Global Const $WS_THICKFRAME = 0x00040000 Global Const $WS_SYSMENU = 0x00080000 Global Const $WS_HSCROLL = 0x00100000 Global Const $WS_VSCROLL = 0x00200000 Global Const $WS_DLGFRAME = 0x00400000 Global Const $WS_BORDER = 0x00800000 Global Const $WS_CAPTION = 0x00C00000 Global Const $WS_OVERLAPPEDWINDOW = 0x00CF0000 Global Const $WS_TILEDWINDOW = 0x00CF0000 Global Const $WS_MAXIMIZE = 0x01000000 Global Const $WS_CLIPCHILDREN = 0x02000000 Global Const $WS_CLIPSIBLINGS = 0x04000000 Global Const $WS_DISABLED = 0x08000000 Global Const $WS_VISIBLE = 0x10000000 Global Const $WS_MINIMIZE = 0x20000000 Global Const $WS_CHILD = 0x40000000 Global Const $WS_POPUP = 0x80000000 Global Const $WS_POPUPWINDOW = 0x80880000 ; Dialog Styles Global Const $DS_MODALFRAME = 0x80 Global Const $DS_SETFOREGROUND = 0x00000200 Global Const $DS_CONTEXTHELP = 0x00002000 ; Window Extended Styles Global Const $WS_EX_ACCEPTFILES = 0x00000010 Global Const $WS_EX_MDICHILD = 0x00000040 Global Const $WS_EX_APPWINDOW = 0x00040000 Global Const $WS_EX_CLIENTEDGE = 0x00000200 Global Const $WS_EX_CONTEXTHELP = 0x00000400 Global Const $WS_EX_DLGMODALFRAME = 0x00000001 Global Const $WS_EX_LEFTSCROLLBAR = 0x00004000 Global Const $WS_EX_OVERLAPPEDWINDOW = 0x00000300 Global Const $WS_EX_RIGHT = 0x00001000 Global Const $WS_EX_STATICEDGE = 0x00020000 Global Const $WS_EX_TOOLWINDOW = 0x00000080 Global Const $WS_EX_TOPMOST = 0x00000008 Global Const $WS_EX_TRANSPARENT = 0x00000020 Global Const $WS_EX_WINDOWEDGE = 0x00000100 Global Const $WS_EX_LAYERED = 0x00080000 ; Messages Global Const $WM_SIZE = 0x05 Global Const $WM_SIZING = 0x0214 Global Const $WM_USER = 0X400 Global Const $WM_GETTEXTLENGTH = 0x000E Global Const $WM_GETTEXT = 0x000D

posted before trying it but this one works $installdir=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt","betaInstallDir") ; $installdir = StringReplace( $installdir , " " , Chr( 32 ) ) Run("explorer.exe " & $installdir & "\Examples") Case $msg = $prog2 Run("explorer.exe " & $installdir & "\Icons") Case $msg = $prog3 Run("explorer.exe " & $installdir & "\SciTe") Case $msg = $prog4 Run("explorer.exe " & $installdir & "\AU3Info.exe") Case $msg = $prog5 Run("explorer.exe " & $installdir & "\Extras")

just thought of something else you shoudn't use this key $installdir=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt","InstallDir") instead use this $installdir=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt","betaInstallDir") $rc = Run("explorer.exe " & $installdir & "\Examples") because during install you can choose a new location for it and some may have only need to do this once $installdir=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt","InstallDir") $installdir = StringReplace( $installdir , " " , Chr( 32 ) ) you can use $installdir over and over I changed it to use betaInstallDir $installdir=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\AutoIt","betaInstallDir") $installdir = StringReplace( $installdir , " " , Chr( 32 ) ) $rc = Run("explorer.exe " & $installdir & "\Examples") Case $msg = $prog2 $rc = Run("explorer.exe " & $installdir & "\Icons") Case $msg = $prog3 $rc = Run("explorer.exe " & $installdir & "\SciTe") Case $msg = $prog4 $rc = Run("explorer.exe " & $installdir & "\AU3Info.exe") Case $msg = $prog5 $rc = Run("explorer.exe " & $installdir & "\Extras")

how are you compiling it if you're doing from context menu then you're still not using beta start menu AutoIt v3\beta\Compile Script to .exe (beta)

Run("explorer.exe c:\windows") woops no backslash at end got it wrong again Run("explorer.exe " & "c:\windows")

there isn't one either do it in SciTe with alt F7 or do what Sardith said

or alt F7 in SciTe and compiling withAutoIt v3.1.1.133 (beta) hmm help file shows 133 but i could have sworn it was 132 well i guess it is 133 and not 132