Skeletor

This was a tiny project I had in my mind and never had time to get to do due to demanding projects. Thank you for providing this.

Hi AI Team, I've recently been hosting my projects on GitHub (privately) and started looking into OTA update management. Maybe GitHub is not the best solution to update software that sits on remote computers. Maybe it is? I've used the Inet commands, but this failed. So I decided to use CURL but I met with an issue: - Instead of remotely obtaining the file version on the Github page, I would be downloading the file then locally using FileGetVersion() HUGE waste of time as the installation is expected to reach like 200mb in size. Any assistance in the process is greatly appreciated. Basically, I want to check the file version on GitHub (or any other suggested repository) and if the version is greater, then download and run the installation.

Very impressed. I used it on a web form I just could not get the controls on, but this worked. I'm going to automate this feature in my upcoming project.

AutoIt uses different coordinate systems depending on the PixelCoordMode setting. In your code, you've set it to 2, which means relative to the active window. However, you're trying to retrieve the color from a specific control within the window. To do that, you should set PixelCoordMode to 0, which uses screen coordinates. Update the line AutoItSetOption("PixelCoordMode", 2) to AutoItSetOption("PixelCoordMode", 0). I think the below should work, I don't have ShareX to test it. Test this and let us know? or you can use @ioa747 code. AutoItSetOption("WinTitleMatchMode", 1) Local $hWnd = WinWait("ShareX - Image editor - 1920x938", "", 10) Local $hControl = ControlGetHandle($hWnd, "", "WindowsForms10.Window.8.app.0.1a52015_r6_ad11") AutoItSetOption("PixelCoordMode", 0) Local $aControlPos = ControlGetPos($hWnd, "", $hControl) ConsoleWrite(Hex(PixelGetColor($aControlPos[0] + 875, $aControlPos[1] + 20), 6) & @CRLF)

PixelGetColor Returns a pixel color according to x,y pixel coordinates.

Test this out? #include <Constants.au3> #include <IE.au3> ; Open Internet Explorer Local $oIE = _IECreate() ; Navigate to the URL _IENavigate($oIE, "http://192.168.1.56:3456") ; Wait for the page to load _IELoadWait($oIE) ; Check if a password prompt is displayed If _IEFormElementExists($oIE, "password_field_name") Then ; Enter your Amazon password Local $oPasswordField = _IEGetObjByName($oIE, "password_field_name") _IEFormElementSetValue($oPasswordField, "your_password") ; Submit the form _IEFormSubmit($oPasswordField.form) Sleep(2000) ; Wait for the form to submit ; Close the browser _IEQuit($oIE) ElseIf _IEPropertyGet($oIE, "readyState") = "404" Then ; Close the browser _IEQuit($oIE) EndIf

Here is one with a progress bar: #include <GUIConstantsEx.au3> #include <FileConstants.au3> Global $sourceFilePath = "C:\Temp\test.jar" Global $destinationFilePath = "C:\Temp\New folder\test_copy.jar" Example() Func Example() Local $hGUI, $hProgress, $hLabel, $fDiffInSec ; Create the GUI window $hGUI = GUICreate("File Copy Progress", 300, 120) $hProgress = GUICtrlCreateProgress(10, 10, 280, 20) $hLabel = GUICtrlCreateLabel("", 10, 40, 280, 20) GUISetState(@SW_SHOW, $hGUI) ; Perform the file copy Local $hTimer = TimerInit() If Not FileExists($destinationFilePath) Then FileCopy($sourceFilePath, $destinationFilePath, $FC_OVERWRITE) $fDiffInSec = TimerDiff($hTimer) / 1000 Else MsgBox(-1,"Replace","Replace the file?") EndIf ; Update progress bar and message bar GUICtrlSetData($hProgress, 100) GUICtrlSetData($hLabel, "File copy completed in " & $fDiffInSec & " seconds.") ; Wait for the user to close the GUI window While 1 If GUIGetMsg() = $GUI_EVENT_CLOSE Then ExitLoop WEnd GUIDelete($hGUI) EndFunc

English Version: ;*************************************************************************** ; Utility to display the existing FONTS in the System and directly construct ; the AUTOIT instruction that should be written in the Script. ; The instruction is saved to the CLIPBOARD and can be pasted into the Script ; using: [Ctrl] + [v] ; ; Antonio Fernandez Corcobado ;*************************************************************************** #include <Misc.au3> Global $Font Global $Instruction While 1 $Font = _ChooseFont() If (@error) Then Exit Else $Instruction = 'GUICtrlSetFont(-1,'&$Font[3]&','&$Font[4]&','&$Font[1]&',"'&$Font[2]&'")' ClipPut($Instruction) $txt = "Font Name: " & $Font[2] & @CRLF & @CRLF $txt&= "Size: " & $Font[3] & @CRLF $txt&= "Weight: " & $Font[4] & @CRLF & @CRLF $txt&= "Attributes: " & $Font[1] & @CRLF& @CRLF $txt&= "COLORREF rgbColors: " & $Font[5] & @CRLF $txt&= "Hex BGR Color: " & $Font[6] & @CRLF $txt&= "Hex RGB Color: " & $Font[7] MsgBox(0, "",$txt) EndIf WEnd Exit

Haha, yeah me to. It was in some post that @Jos mentioned it... I know i read it somewhere.

So I read up about this. Its the type of coding that is also found in zip archives, MP3's , jpg file formats...can you set the compression ratio without having to update the UDF??

Using your Send() method: _Example() Func _Example() Run("notepad.exe") WinWaitActive("[CLASS:Notepad]") Send("hello world") Sleep(1000) Exit EndFunc ;==>_Example ControlSend() doesn't work for me. Not sure if it works for others.

Try this? Below code is from this post by a developer named @Jos local $resp = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $s_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $s_IPPort, $s_SSL, $s_bIsHTMLBody, $s_iDSNOptions) Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $s_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $bSSL = False, $bIsHTMLBody = False, $iDSNOptions = $g__cdoDSNDefault) and read this post just incase.

Google translation is like weird when it tried to translate this. I think this user wants this? Teste o código atualizado e verifique se ele atende às suas necessidades. Se você tiver outras dúvidas ou problemas, não hesite em perguntar, mas em inglês. Estamos aqui para ajudar! #include <GUIConstants.au3> #Region ### SEÇÃO INICIAL DO Koda GUI ### Form= $Form1 = GUICreate("Form1", 261, 241, 193, 125) $Combo1 = GUICtrlCreateCombo("selecionar", 56, 48, 145, 25) GUICtrlSetData(-1, "1 - ganhou|2 - perdeu") $Combo2 = GUICtrlCreateCombo("selecionar", 56, 80, 145, 25) GUICtrlSetData(-1, "1 - vitória|2 - derrota") $Button1 = GUICtrlCreateButton("Sair", 136, 128, 67, 25, 0) $Button2 = GUICtrlCreateButton("OK", 56, 128, 59, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### FIM DA SEÇÃO GUI do Koda ### Enquanto 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 Exit Case $Button2 $selectedItem1 = GUICtrlRead($Combo1) $selectedItem2 = GUICtrlRead($Combo2) Switch $selectedItem1 Case "1 - ganhou" Switch $selectedItem2 Case "1 - vitória" ShellExecute("C:\pasta1", 0) Case "2 - derrota" MsgBox(0, "Erro", "Combinação inválida selecionada!") EndSwitch Case "2 - perdeu" Switch $selectedItem2 Case "1 - vitória" MsgBox(0, "Erro", "Combinação inválida selecionada!") Case "2 - derrota" ShellExecute("C:\pasta2", 0) EndSwitch Case Else MsgBox(0, "Erro", "Combinação inválida selecionada!") EndSwitch EndSwitch WEnd #include <GUIConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 261, 241, 193, 125) $Combo1 = GUICtrlCreateCombo("select", 56, 48, 145, 25) GUICtrlSetData(-1, "1 - won|2 - lost") $Combo2 = GUICtrlCreateCombo("select", 56, 80, 145, 25) GUICtrlSetData(-1, "1 - victory|2 - defeat") $Button1 = GUICtrlCreateButton("Exit", 136, 128, 67, 25, 0) $Button2 = GUICtrlCreateButton("OK", 56, 128, 59, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 Exit Case $Button2 $selectedItem1 = GUICtrlRead($Combo1) $selectedItem2 = GUICtrlRead($Combo2) Switch $selectedItem1 Case "1 - won" Switch $selectedItem2 Case "1 - victory" ShellExecute("C:\folder1", 0) Case "2 - defeat" MsgBox(0, "Error", "Invalid combination selected!") EndSwitch Case "2 - lost" Switch $selectedItem2 Case "1 - victory" MsgBox(0, "Error", "Invalid combination selected!") Case "2 - defeat" ShellExecute("C:\folder2", 0) EndSwitch Case Else MsgBox(0, "Error", "Invalid combination selected!") EndSwitch EndSwitch WEnd

Like this: Local $folderName = "RegBackup" Local $newFolderName = $folderName & "-" & @YEAR & "-" & @MON & "-" & @MDAY Local $folderPath = @ScriptDir & "\" & $folderName Local $newFolderPath = @ScriptDir & "\" & $newFolderName If Not FileExists($newFolderPath) Then If FileExists($folderPath) Then DirMove($folderPath, $newFolderPath) MsgBox(52, "Folder Renamed", "The folder has been renamed to: " & $newFolderName) Else MsgBox(20, "Folder Not Found", "The folder " & $folderName & " does not exist.") EndIf Else MsgBox(52, "Folder Exists", "The folder " & $newFolderName & " already exists.") EndIf Run("Regedit.exe /s @ScriptDir" & "\" & $newFolderName & "\RegBackup.reg")

ControlSend can specify the desired coordinates regardless of the keyboard.