Leaderboard

Just a bit of fun because evidently I have too much time on my hands! I'm doing all sorts of bad things to in order to handle note on/off events from the stream - so I wouldn't recommend using that part for any real project. A few days early, but happy new year folks!🎉 HappyNewYear.zip

Here it is. ; #CURRENT# ===================================================================================================================== ; _RustDesk_Config ; _RustDesk_DebugEnable ; _RustDesk_Deploy ; _RustDesk_GenerateRandomPassword ; _RustDesk_GetID ; _RustDesk_GetLatestVersion ; _RustDesk_GetLocalVersion ; _TustDesk_isInstalled ; _RustDesk_SetPassword ; _RustDesk_Start ; =============================================================================================================================== Update: 1/10/25 - Added _RustDesk_Config() for those who need to configure a custom relay. Update: 1/23/25 - Overhauled some portions of the code with redundancy and timers. Update: 1/26/25 - Inched closer to UDF-Spec and added Constants. Update: 1/27/25 - Finished UDF-Spec Update: 2/4/2025 - Disregard nightly builds for the download. Current.zip

WinActiveBorder.zip ( Source and icon. You compile your own. ) I draws a border on the active window. A rehash of @careca's code, so don't think too highly of me And is not perfect but, it tends to do what it claims. My happy new year code

I think she meant create a document for each month, maybe ?

Another way, using a loop #include <Date.au3> ; #NoTrayIcon ; AutoIt's icon doesn't show in systray TraySetIcon("Shell32.dll", 153) ; changes the icon displayed in the systray AutoItSetOption("WinTitleMatchMode", 2) ; this allows partial window titles to be valid! ;------------------------------------------------------------------------------------------------------------------------- #Region --- CodeWizard generated code Start --- ;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Input Length=4, Width=500, Height=125 If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer $sInputBoxAnswer = InputBox("Year?", "What year do you wish to create calendars for?", "", " 4", "500", "125", "250", "250") Select Case @error = 0 ;OK - The string returned is valid Local $sCalendar = @ScriptDir & "\Calendar.txt", $sText If FileExists($sCalendar) Then FileDelete($sCalendar) For $i = 1 To 12 $sText &= $sInputBoxAnswer & StringFormat(".%02i", $i) & " - " & StringUpper(_DateToMonth($i, $DMW_SHORTNAME)) & _ " " & $sInputBoxAnswer & " - Wall Calendar" & ($i < 12 ? @CRLF : "") Next FileWrite($sCalendar, $sText) ShellExecute($sCalendar) Case Else Exit ; finished EndSelect #EndRegion --- CodeWizard generated code Start --- Edit: @ioa747 before posting, I tested the output was exactly the same as yours. When I saw it was not ("Jan" versus "JAN") then I had to add StringUpper

; AutoIt 3x ; #NoTrayIcon ; AutoIt's icon doesn't show in systray TraySetIcon("Shell32.dll", 153) ; changes the icon displayed in the systray AutoItSetOption("WinTitleMatchMode", 2) ; this allows partial window titles to be valid! ;------------------------------------------------------------------------------------------------------------------------- #Region --- CodeWizard generated code Start --- ;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Input Length=4, Width=500, Height=125 If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer $sInputBoxAnswer = InputBox("Year?","What year do you wish to create calendars for?",""," 4","500","125","250","250") Select Case @Error = 0 ;OK - The string returned is valid Local $sCalendar = @ScriptDir & "\Calendar.txt" if FileExists($sCalendar) Then FileDelete($sCalendar) FileWriteLine($sCalendar, $sInputBoxAnswer & ".01 - JAN " & $sInputBoxAnswer & " - Wall Calendar") FileWriteLine($sCalendar, $sInputBoxAnswer & ".02 - FEB " & $sInputBoxAnswer & " - Wall Calendar") FileWriteLine($sCalendar, $sInputBoxAnswer & ".03 - MAR " & $sInputBoxAnswer & " - Wall Calendar") FileWriteLine($sCalendar, $sInputBoxAnswer & ".04 - APR " & $sInputBoxAnswer & " - Wall Calendar") FileWriteLine($sCalendar, $sInputBoxAnswer & ".05 - MAY " & $sInputBoxAnswer & " - Wall Calendar") FileWriteLine($sCalendar, $sInputBoxAnswer & ".06 - JUN " & $sInputBoxAnswer & " - Wall Calendar") FileWriteLine($sCalendar, $sInputBoxAnswer & ".07 - JUL " & $sInputBoxAnswer & " - Wall Calendar") FileWriteLine($sCalendar, $sInputBoxAnswer & ".08 - AUG " & $sInputBoxAnswer & " - Wall Calendar") FileWriteLine($sCalendar, $sInputBoxAnswer & ".09 - SEP " & $sInputBoxAnswer & " - Wall Calendar") FileWriteLine($sCalendar, $sInputBoxAnswer & ".10 - OCT " & $sInputBoxAnswer & " - Wall Calendar") FileWriteLine($sCalendar, $sInputBoxAnswer & ".11 - NOV " & $sInputBoxAnswer & " - Wall Calendar") FileWriteLine($sCalendar, $sInputBoxAnswer & ".12 - DEC " & $sInputBoxAnswer & " - Wall Calendar") ShellExecute($sCalendar) Case @Error = 1 ;The Cancel button was pushed Exit ; finished Case @Error = 3 ;The InputBox failed to open Exit ; finished EndSelect #EndRegion --- CodeWizard generated code End --- or ; AutoIt 3x ; #NoTrayIcon ; AutoIt's icon doesn't show in systray TraySetIcon("Shell32.dll", 153) ; changes the icon displayed in the systray AutoItSetOption("WinTitleMatchMode", 2) ; this allows partial window titles to be valid! ;------------------------------------------------------------------------------------------------------------------------- #Region --- CodeWizard generated code Start --- ;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Input Length=4, Width=500, Height=125 If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer $sInputBoxAnswer = InputBox("Year?", "What year do you wish to create calendars for?", "", " 4", "500", "125", "250", "250") Select Case @error = 0 ;OK - The string returned is valid Local $sCalendar = @ScriptDir & "\Calendar.txt" If FileExists($sCalendar) Then FileDelete($sCalendar) Local $sText = $sInputBoxAnswer & ".01 - JAN " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF & _ $sInputBoxAnswer & ".02 - FEB " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF & _ $sInputBoxAnswer & ".03 - MAR " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF & _ $sInputBoxAnswer & ".04 - APR " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF & _ $sInputBoxAnswer & ".05 - MAY " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF & _ $sInputBoxAnswer & ".06 - JUN " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF & _ $sInputBoxAnswer & ".07 - JUL " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF & _ $sInputBoxAnswer & ".08 - AUG " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF & _ $sInputBoxAnswer & ".09 - SEP " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF & _ $sInputBoxAnswer & ".10 - OCT " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF & _ $sInputBoxAnswer & ".11 - NOV " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF & _ $sInputBoxAnswer & ".12 - DEC " & $sInputBoxAnswer & " - Wall Calendar" FileWrite($sCalendar, $sText) ShellExecute($sCalendar) Case @error = 1 ;The Cancel button was pushed Exit ; finished Case @error = 3 ;The InputBox failed to open Exit ; finished EndSelect #EndRegion --- CodeWizard generated code Start --- or (the one I prefer) ; AutoIt 3x ; #NoTrayIcon ; AutoIt's icon doesn't show in systray TraySetIcon("Shell32.dll", 153) ; changes the icon displayed in the systray AutoItSetOption("WinTitleMatchMode", 2) ; this allows partial window titles to be valid! ;------------------------------------------------------------------------------------------------------------------------- #Region --- CodeWizard generated code Start --- ;InputBox features: Title=Yes, Prompt=Yes, Default Text=No, Input Length=4, Width=500, Height=125 If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer $sInputBoxAnswer = InputBox("Year?", "What year do you wish to create calendars for?", "", " 4", "500", "125", "250", "250") Select Case @error = 0 ;OK - The string returned is valid Local $sCalendar = @ScriptDir & "\Calendar.txt" If FileExists($sCalendar) Then FileDelete($sCalendar) Local $sText = "" ; Calendar $sText &= $sInputBoxAnswer & ".01 - JAN " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF $sText &= $sInputBoxAnswer & ".02 - FEB " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF $sText &= $sInputBoxAnswer & ".03 - MAR " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF $sText &= $sInputBoxAnswer & ".04 - APR " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF $sText &= $sInputBoxAnswer & ".05 - MAY " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF $sText &= $sInputBoxAnswer & ".06 - JUN " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF $sText &= $sInputBoxAnswer & ".07 - JUL " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF $sText &= $sInputBoxAnswer & ".08 - AUG " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF $sText &= $sInputBoxAnswer & ".09 - SEP " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF $sText &= $sInputBoxAnswer & ".10 - OCT " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF $sText &= $sInputBoxAnswer & ".11 - NOV " & $sInputBoxAnswer & " - Wall Calendar" & @CRLF $sText &= $sInputBoxAnswer & ".12 - DEC " & $sInputBoxAnswer & " - Wall Calendar" FileWrite($sCalendar, $sText) ShellExecute($sCalendar) Case @error = 1 ;The Cancel button was pushed Exit ; finished Case @error = 3 ;The InputBox failed to open Exit ; finished EndSelect #EndRegion --- CodeWizard generated code Start ---

idea for dialog windows, like this in the scite with shift + f8 (parameters) or like ctrl + f (find) ... and 🎇Happy New Year 🎇

It does seem very easy to do with AutoIt based on the explanation given in the OP. But since we do not own Thorium viewer nor PicPick tool, it is hard to give you code that would really help you. I understand that you have zero experience in programming and you do not know where to start, right ? If it is the case, I would strongly recommend that you start one step at a time, do not try to put too much code in each step, just make sure that every step is performing well with the appropriate error handling. So based on your first post, I suppose that all your archived files are located somewhere over the network or on a special support. I would start there : get a list (at least partial) of those files. To help us, could you show us how you access them (via Windows Explorer ?). For your reading : FileListToArrayRec

Yeah, I thought it was a pretty good foundation. I made a quick sc.exe "Service Control" wrapper, but if you use the MSI you don't need it. And yeah, I could definitely throw the repeated text into a variable.

I have an AutoIT GUI with an input box. I want to run a check on the input every time the value changes. For example: $myvalue = "hello" $value = GUICtrlCreateInput("",150,75,190,20) While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit Case ???????? If GuiCtrlRead($value) == $myvalue Then ; Enable next field. Else ; Disable next field. EndIf EndSwitch WEnd So any time a key is pressed in that input box the if statement gets executed. I don't know what I should put where I've put the ???? at. Thank you!

Hi @OzoneB, and welcome to the AutoIt forums You have to "capture" the event "change" sent from the Input box To do this, you use a WM_COMMAND Windows Message, capturing the EN_CHANGE Event/Notification code. A little sample for the welcome #include <Date.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> Opt("GUIOnEventMode", 1) #Region ### START Koda GUI section ### Form= Global $frmMainForm = GUICreate("A Form", 235, 62, -1, -1) GUISetOnEvent($GUI_EVENT_CLOSE, "ExitApplication") Global $txtInput = GUICtrlCreateInput("", 19, 22, 201, 21) GUICtrlSetFont(-1, 10, 400) GUISetState(@SW_SHOW, $frmMainForm) #EndRegion ### END Koda GUI section ### GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") While 1 Sleep(100) WEnd Func ExitApplication() Exit EndFunc Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam) Local $hdlWindowFrom, _ $intMessageCode, _ $intControlID_From $intControlID_From = BitAND($wParam, 0xFFFF) $intMessageCode = BitShift($wParam, 16) Switch $intControlID_From Case $txtInput Switch $intMessageCode Case $EN_CHANGE ConsoleWrite("[" & _Now() & "] - The text in the $txtInput control has changed! Text = " & GUICtrlRead($txtInput) & @CRLF) EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc