Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 07/12/2018 in all areas

  1. Jon

    Using AutoItX from C# / .Net

    The following files are provided to allow .NET use: AutoItX3.Assembly.dll - The .NET Assembly for using AutoItX.AutoItX3.Assembly.xml - The Visual Studio Intellisense help file for the .NET Assembly.AutoItX3.dll - The main AutoItX DLL (x86)AutoItX3_x64.dll - The main AutoItX DLL (x64)Using the Assembly from VB/C# within in Visual Studio is very easy: Add a reference to AutoItX3.Assembly.dll to your projectAdd a using AutoIt; statement in the files you want to use AutoIt functionsWrite code like this C# example:using AutoIt; ... // Wow, this is C#! AutoItX.Run("notepad.exe"); AutoItX.WinWaitActive("Untitled"); AutoItX.Send("I'm in notepad"); IntPtr winHandle = AutoItX.WinGetHandle("Untitled"); AutoItX.WinKill(winHandle);Distribute your final executable with the files AutoItX3.Assembly.dll, AutoItX3.dll, AutoItX3_x64.dll.
    1 point
  2. Hello, trying to read from the console, and ive seen some posts where people mention changes in registry and in scite properties file, which i did, but none worked. So now im stuck with this, as you can see, in the console the words are faithfully represented, but when autoit reads it, its lacking, in the help it says its a limitation that may be addressed in the future, but is there anything i can do, now to fix this? Thanks. Oh, the change in registry was this [HKEY_CURRENT_USER\Console] "CodePage"=dword:0000fde9 "FaceName"="Lucida Console"
    1 point
  3. Note that the $idTBLCombo, $idTBLEdit and $idTBLList variables are control handles and therefore can not be used in an AutoIt message loop. Only $_DB_FIELD which is a controlID can be used in an AutoIt message loop. It's difficult to get events from the listbox in the combo control. Since you only have the listbox control handle you can only get events as WM_COMMAND notifications. And since the listbox is a child of the combo control you need to subclass the combo control to get these WM_COMMAND notifications. I think the easiest way is to implement your own code first. When your own code works, you can add my code so that you can edit the text in the listview cells.
    1 point
  4. edited. you don't deserve the laugh
    1 point
  5. Please check https://msdn.microsoft.com/en-us/vba/excel-vba/articles/workbooks-opentext-method-excel for the FieldInfo information about fixed width input files.
    1 point
  6. TheSaint

    DeleteIf Same

    DeleteIf Same has been updated to v1.3. See first post,, which includes new screenshots. (v1.3) Removed the 'Minimize' button, and made the GUI a normal one with System menu and Minimize, then added a 'Batch List' dropbox button and process. Logfile now also gets a source path entry before checking starts, so that time taken can be determined later, if desired. NOTE - Many times I had been wishing the program had a batch mode, and finally I made it so. This is particularly handy when wanting to delete more than one large file or folder, as it means you can set and forget. I've yet to test the 'ESC' to cancel option in Batch List mode, which uses Adlib and gets polled every 1500 millisecs.
    1 point
  7. Hello all , As I told you, bellow you will find the function. For the good work of the function you need to be logged in Skype and to have Skype credit. global $number="Please input your number" callskype($number) Func CallSkype($number) WinActivate("Skype") $title= WinGetTitle("") ControlSend($title, "", "", "{Alt}") ControlSend($title, "", "", "a") ControlSend($title, "", "", "l") ControlSend($title, "", "", "{Enter}") ControlSend($title, "", "", $number) ControlSend($title, "", "", "{Enter}") ControlSend($title, "", "", "{Enter}") EndFunc Hope to be helpful !
    1 point
  8. @Subz I was taking a look at this and this. Hope they help Best Regards.
    1 point
  9. Look at Control* functions, and Win* functions in the Help file
    1 point
  10. http://bfy.tw/IzjL Hope this helps.
    1 point
  11. Sorry forgot to post the ini, I thought I'd match it to your radio buttons. [Root Folders] For Archiving = D:\Programs\For Archiving For Quality = D:\Programs\For Quality For Checking = D:\Programs\For Checking For Issue = D:\Programs\For Issue For Proof = D:\Programs\For Proof For Upload = D:\Programs\For Upload [For Archiving] 000003825= 0000003575= 0000003047= 0000003048= 0000003031= [For Quality] 000003825= 0000003575= 0000003047= 0000003048= 0000003031= [For Checking] 000003825= 0000003575= 0000003047= 0000003048= 0000003031= [For Issue] 000003825= 0000003575= 0000003047= 0000003048= 0000003031= [For Proof] 000003825= 0000003575= 0000003047= 0000003048= 0000003031= [For Upload] 000003825= 0000003575= 0000003047= 0000003048= 0000003031=
    1 point
  12. Sorry have a big project on at the moment, only got the following so far: #include <Array.au3> #include <File.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ColorConstants.au3> #include <FileConstants.au3> #include <WinAPIFiles.au3> #include <GUIConstantsEx.au3> #include <EditConstants.au3> #Include <GUIEdit.au3> #Include <ScrollBarConstants.au3> Global $g_sLogFile = @ScriptDir & "\Archive.log" Global $g_hLogFile = FileOpen($g_sLogFile, 1) Global $g_iLogFlag = 2 Global $g_sConfigFile = @ScriptDir & "\config.ini" If FileExists($g_sConfigFile) = 0 Then Exit MsgBox(16, "Config Error", "Unable to find: " & $g_sConfigFile & @CRLF & "Exiting...") Global $g_idEdit _ArchiveTool() Func _ArchiveTool() Local $sSelection #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Archiving Tool", 612, 419, 268, 226) GUISetBkColor(0xABB1B4) $Group1 = GUICtrlCreateGroup(" Folders ", 17, 8, 569, 97) $hRadioStart = GUICtrlCreateDummy() $RadioArchive = GUICtrlCreateRadio("For Archiving", 42, 32, 81, 17) $RadioQual = GUICtrlCreateRadio("For Quality", 218, 32, 97, 17) $RadioChckng = GUICtrlCreateRadio("For Checking", 418, 32, 97, 17) $RadioIss = GUICtrlCreateRadio("For Issue", 418, 64, 113, 17) $RadioPrf = GUICtrlCreateRadio("For Proof", 218, 64, 73, 17) $RadioULoad = GUICtrlCreateRadio("For Upload", 42, 64, 105, 17) $hRadioEnd = GUICtrlCreateDummy() GUICtrlCreateGroup("", -99, -99, 1, 1) $CheckboxExclude = GUICtrlCreateCheckbox("Exclude Folders", 29, 121, 89, 25) GUICtrlSetBkColor($CheckboxExclude, $COLOR_RED) $CheckboxInclude = GUICtrlCreateCheckbox("Include Folders", 118, 121, 89, 25) GUICtrlSetBkColor($CheckboxInclude, $COLOR_GREEN) $Fdelte = GUICtrlCreateButton("Folder Delete", 497, 116, 89, 33) $LogView = GUICtrlCreateButton("View Log", 14, 373, 97, 33) $ExitBut = GUICtrlCreateButton("Exit", 497, 368, 89, 33) $g_idEdit = GUICtrlCreateEdit("", 17, 150, 568, 217, BitOr($GUI_SS_DEFAULT_EDIT, $ES_READONLY)) _GUICtrlEdit_SetLimitText($g_idEdit, 64000) GUICtrlSetData($g_idEdit,FileRead($g_sLogFile)) _GUICtrlEdit_LineScroll($g_idEdit, 0, _GUICtrlEdit_GetLineCount($g_idEdit)) GUICtrlSetColor($g_idEdit, $COLOR_RED) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $ExitBut FileClose($g_hLogFile) Exit Case $LogView ;~ MsgBox(0,"",@ScriptDir & "\Archive.log") ShellExecute($g_sLogFile) Case $Fdelte For $iRadio = ($hRadioStart + 1) To ($hRadioEnd - 1) If BitAND(GUICtrlRead($iRadio), $GUI_CHECKED) = $GUI_CHECKED Then $sSelection = GUICtrlRead($iRadio, 1) _LogWrite("Selected: " & $sSelection) ExitLoop EndIf Next If $sSelection = "" Then _LogWrite("No Folder were selected for deletion.") ContinueLoop EndIf _FolderCleanup($sSelection) EndSwitch WEnd EndFunc Func _FolderCleanup($_sSelection) Local $sRootFolder = IniRead($g_sConfigFile, "Root Folders", $_sSelection, "") If FileExists($sRootFolder) = 0 Then Return _LogWrite("Folder Selection Error" & @CRLF & $g_sConfigFile & @CRLF & "Section Name: [Source Folders]" & @CRLF & "Section Key: " & $_sSelection & @CRLF & "Returned an unknown folder path") Local $aFolderExclusions = IniReadSection($g_sConfigFile, $_sSelection) If @error Then Return _LogWrite("Config.ini Error" & @CRLF & "Exclusions error reading section " & $_sSelection & " section may not exist or is empty") Local $aLevel1_SubFolders = _FileListToArrayRec($sRootFolder, "*|" & _ArrayToString($aFolderExclusions, ";", 1, -1, ";", 0, 0), 2, 0, 0, 2) If @error Then Return _LogWrite("File List Error: " & _FileListToArrayRecReturn($_sSelection, @extended)) For $i = 1 To $aLevel1_SubFolders[0] $aLevel2_SubFolders = _FileListToArrayRec($aLevel1_SubFolders[$i], "*|" & _ArrayToString($aFolderExclusions, ";", 1, -1, ";", 0, 0), 2, 0, 0, 2) If @error Then ContinueLoop For $j = 1 To $aLevel2_SubFolders[0] _DirRemove($aLevel2_SubFolders[$j], 1) Next Next EndFunc Func _DirRemove($_sFolderPath, $_bRecurse = 0) Local $hDirRemove = DirRemove($_sFolderPath, $_bRecurse) Switch $hDirRemove Case 1 _LogWrite(@MDAY & "/" & @MON & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " : Success: Removing Folder: " & $_sFolderPath) Case 0 _LogWrite(@MDAY & "/" & @MON & "/" & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & " : Failure: Removing Folder: " & $_sFolderPath) EndSwitch EndFunc Func _LogWrite($_sLogData, $_iLogFlag = $g_iLogFlag) Switch $_iLogFlag Case 1 _GUICtrlEdit_Scroll($g_idEdit, $SB_SCROLLCARET) _GUICtrlEdit_AppendText ($g_idEdit, $_sLogData & @CRLF) Case 2 FileWrite($g_hLogFile, $_sLogData & @CRLF) _GUICtrlEdit_Scroll($g_idEdit, $SB_SCROLLCARET) _GUICtrlEdit_AppendText ($g_idEdit, $_sLogData & @CRLF) EndSwitch EndFunc Func _FileListToArrayRecReturn($_sFilePath, $_iExtended) Switch $_iExtended Case 1 Return $_sFilePath & " - Path not found or invalid" Case 2 Return "Invalid Include parameter" Case 3 Return "Invalid Exclude parameter" Case 4 Return "Invalid Exclude_Folders parameter" Case 5 Return "Invalid $iReturn parameter" Case 6 Return "Invalid $iRecur parameter" Case 7 Return "Invalid $iSort parameter" Case 8 Return "Invalid $iReturnPath parameter" Case 9 Return "No files/folders found" EndSwitch EndFunc
    1 point
×
×
  • Create New...