Leaderboard

I have uploaded an updated version that supports these optional parameters: SciTE4AutoIt3.exe [/S] [/SCITE=x64 or X86] [/EDITOR=SCITE or VSCODE] [/ONOPEN=EDIT or RUN] When not provided, they will default to what is in the registry currently. When not defined in the registry, the defaults are: X86, SCITE, RUN. Also added an extra config option to SciTEConfig, which allows for swapping between SciTE & VSCode, which will be shown when VSCode is installed:

Hello everyone! Apparently, the last time I've been here was 13 years ago! How time flies... What made me come back is the Microsoft's stupid decision to remove the QuickLaunch from Windows 11. On all the previous versions I used to have a QuickLaunch toolbar on my taskbar and had all the shortcuts for my different projects neatly arranged in sub-folders. After this feature was removed, I tried the ExplorerPatcher but at some point it started getting flagged by the Defender. And it added a lot more things that were not necessary for me. I only needed the QuickLaunch. So after a lot of frustration i decided to make my own and remembered the dear old AutoIt! The script below uses an INI file with the same name to get which folder you want to use as a QuickLaunch and creates a 5px by 5px simple GUI at the top left corner of the screen, which sits on top of the other windows. The GUI has a menu with sub-menus and items corresponding to the sub-folders and the .lnk files in the QuickLaunch folder. It tracks the position of the mouse and when it gets to the top-left corner it clicks on the GUI to display the menu. Since it loads the folder only once at the start, there is a CRTL+ALT+R hotkey combination to quickly restart the app and reload the shortcuts if you have made any changes. CTRL+ALT+X is for exiting the app. When compiled, the executable is a little over 1MB and uses about 8-9MB of RAM I'm sharing it here hoping it would be as useful to you as it is to me. Best wishes for the new 2025 from Bulgaria! Edit: Forgot to mention it uses the ModernMenu UDF by Holger Kotsch QuickLaunch.ico QuickLaunch.ini QuickLaunch.au3 ModernMenuRaw.au3

It has been a minute since I have uploaded one of my scripts. This is a very simple one! In a nutshell this program opens the MS Sound Window, Selects a Playback Device and Check its Mute status. If it finds that it is Muted then the appropriate Button is clicked on to UnMute it. That's it! If you want the Program to check and UnMute (if needed) ALL of the Playback Devices in the list then use a For/Next Loop. I have made that very simple to implement within my script. Just open it up to see what I am talking about, I used Windows 11 NotePad v11.2410.21.0 / Font: Consolas / Regular / 12 as an Editor. I am somewhat "OCD" when it comes to lining up my script. I also find it easier to read when I look at my code sometime later! Having it line up helps me to read it better. Anyway, Script is attached.... Any feedback would be much appreciated... MuteCheckerV100.au3

Only use this latest version.... All the other stuff will be closed soon. This latest version has everything in it that was developed/changed in the last couple of years, including the Dynamic stuff. As soon as the release candidate is proven to be working, then all webinfo and links will be updated.

Just put that after the select : $oWord.Selection.Copy

I was wondering why you didn't just select the document but I wasn't going to question it. You can find more VBA info here, if I'm not mistaken.

Try this : #include <Word.au3> Local $oWord = _Word_Create() Local $webmail_message_file = @ScriptDir & "\Test.docx" Local $oDoc = _Word_DocOpen($oWord, $webmail_message_file) ; to select the whole document $oDoc.Select Sleep(2000) ; to select whole document between "!@" and "#$" Local $oRange = $oDoc.range(2, $oDoc.Characters.Count - 3) $oRange.Select

So it must have been a setting in SciTEUserproperties.... which we have seen before. But hé, the sledgehammer approach works too! 😇

Just updated the Beta SciTE4AutoIt3_vcs.exe installer again, as it contained an older x64 version of SciTE. So in case you install SciTE x64, you want to update that again with the latest version of the installer. @jpm I will also update the SVN repo with the SciTE v5 version for the next generation of SciTE-Lite.

I also bumped into something similar recently, got a new netbook, installed autoit, worked fine, then i uninstalled the free trial of MS office that came preinstalled on the netbook, afterwards scite no longer worked and complained about missing dll's, installed the redistributable mentioned and scite worked again. So uninstalling something not related to scite can make scite crash. /Edit Forgot to mention that I ofcourse tried reinstalling scite before downloading the redist, but that didnt work, which is why I had to download the redist.

Thanks for this! I just set it up on my laptop... will take some time before using it becomes ingrained but it's much faster than trying to find a shortcut on a cluttered desktop. Nice piece of code!

Never mind, @Jos. I rebooted and it functions normally. *double shrug* Must have been some hiccup.

Don't want to necrobump but I feel it's important to post helpful things regardless. I'm on a fresh windows install, and everywhere I looked to fix those .dll problems they just said to install the visual c redistributable. I did all different versions of the 64 bit version and nothing worked, until I also installed the 32 bit version. Seems scite requires that because now everything works fine. Also finding the download was weirdly challenging, no downloads from Microsoft seem to be working, but this page has permalinks for the latest 32/64bit versions required. https://learn.microsoft.com/en-us/cpp/windows/latest-supported-vc-redist?view=msvc-170

The following would show you the reason for the error (based on RegWrite return errors) AddRegKeyHKCUValue() Func AddRegKeyHKCUValue() Local $sKeyname = "" ; <====A null value will trigger an error! Local $sValuename = "UserContent" Local $sRegSZ = "REG_SZ" Local $sString = "C:\Program Files\Native Instruments\Reflektor\16 User_Impulses\" RegWrite($sKeyname, $sValuename, $sRegSZ, $sString) Switch @error Case 0 $sError = "The HKCU valuename and string WAS successfully added!" Case 1 $sError = "Unable to open requested key" Case 2 $sError = "Unable to open requested main key" Case 3 $sError = "Unable to remote connect to the registry" Case -1 $sError = "Unable to open requested value" Case -2 $sError = "Value type not supported" EndSwitch SplashTextOn("NOTICE!!", $sError, 800, 50, -1, -1) Sleep(2000) SplashOff() EndFunc

a bunch of .reg Installed yesterday. Edit: @Jos, "SciTE4AutoIt3_vsc.exe" found VSCode in my PC.

Okay, I guess..."I kinda fig'urd it out myslf!" Check this out: #AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7 #AutoIt3Wrapper_AU3Check_Stop_OnWarning=y AddRegKeyHKCUValue() Func AddRegKeyHKCUValue() Local $sKeyname = "" ; <====A null value will trigger an error! Local $sValuename = "UserContent" Local $sRegSZ = "REG_SZ" Local $sString = "C:\Program Files\Native Instruments\Reflektor\16 User_Impulses\" RegWrite($sKeyname, $sValuename, $sRegSZ, $sString) If @error Then SplashTextOn("NOTICE!!", "The HKCU valuename and string WAS NOT successfully added!", 800, 50, -1, -1) Sleep(2000) SplashOff() Return EndIf SplashTextOn("NOTICE!!", "The HKCU valuename and string WAS successfully added!", 800, 50, -1, -1) Sleep(2000) SplashOff() EndFunc ;==>AddRegKeyHKCUValue

Try this: #include <Array.au3> Global $sUninstallKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" Global $sValName = "UninstallString" ; Get array of all "UninstallString" values $aUninstallKeys = _RegSearch($sUninstallKey, $sValName, 2, True) ; 2 = Match on Value Names only, True = return array ; Create 2D array for data Global $aUninstallStrings[UBound($aUninstallKeys)][2] = [[$aUninstallKeys[0], ""]] ; Populate 2D array with value location and data For $n = 1 To $aUninstallKeys[0] $aUninstallStrings[$n][0] = $aUninstallKeys[$n] $aUninstallStrings[$n][1] = RegRead(StringTrimRight($aUninstallStrings[$n][0], StringLen($sValName)), $sValName) Next ; Display results _ArrayDisplay($aUninstallStrings)

Don't like the re$triction$ on the REGFIND.exe in the resource kit, so... Tweaked to use local variables only in the function and format to taste: $SearchKey = "HKLM\SOFTWARE\Microsoft" $SearchString = "Files" $Timer = TimerInit() $Results = _RegSearch($SearchKey, $SearchString) $Timer = TimerDiff($Timer) / 1000 MsgBox(64, "Results", "Results of search for: " & $SearchString & @CRLF & _ "Time taken (in seconds): " & $Timer & @CRLF & _ "---------------------------------------" & @CRLF & _ $Results) ;***************************************************** ; Function _RegSearch($startkey, $searchval) ; Performs a recursive search of the registry ; Starting at $sStartKey, looking for $sSearchVal ; Returns a string containing a list of key names and values. ; If the key or value name contain the $sSearchVal, it is listed as a reg path: ; i.e. HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion ; If the data contains the $sSearchVal, the format is path = data: ; i.e. HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\CommonFilesDir = C:\Program Files\Common Files ;***************************************************** Func _RegSearch($startkey, $searchval) Local $val, $i, $key, $z, $found = "" $i = 1 While 1 $key = RegEnumKey($startkey, $i) If @error <> 0 Then ExitLoop $z = 1 While 1 $val = RegEnumVal($startkey & "\" & $key, $z) If @error <> 0 Then ExitLoop If StringInStr($val, $searchval) Then $found = $found & $startkey & "\" & $key & "\" & $val & @LF EndIf $readval = RegRead($startkey & "\" & $key, $val) If $readval <> "" And StringInStr($readval, $searchval) Then $found = $found & $startkey & "\" & $key & "\" & $val & " = " & $readval & @LF EndIf $z = $z + 1 WEnd _RegSearch($startkey & "\" & $key, $searchval) $i = $i + 1 WEnd Return $found EndFunc ;==>SearchReg But surely there's a COM object provider for this... somewhere...??? P.S. The sample search in the demo above took about 25sec on my XP box.