Masum

Hi all, Can the default Koda icon for forms be changed? If so, how? Thanks

Thanks there shouldn't be, but I'll clean it all up and try again.

Hi all, I'm facing a random error, whereby the ExcelRangeRead function is storing the first letter of a string as a lowercase rather than the uppercase it is stored in Excel. This happens about 10% of the times. And only with one of the ExcelRangeRead functions below, Global $RTERuleName = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'I' & $Row) Func ExtractDCWData() Global $PoolName = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'G' & $Row) Global $PoolDescription = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'H' & $Row) Global $RTERuleName = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'I' & $Row) Global $FirstName = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'F' & $Row) Global $LastName = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'E' & $Row) Global $Notes = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'L' & $Row) Sleep(200) EndFunc ;==>ExtractDCWData The excel column looks like this. The script that writes the data out is as follows. Func AddRTERule() MouseClick('Primary', 69, 657, 1) ;Click Rules... Sleep(200) MouseClick('Primary', 363, 228, 1) ;Click Type Sleep(200) MouseClick('Primary', 363, 266, 1) ;Click RTE Sleep(200) MouseClick('Primary', 363, 545, 1) ;Click New Rule Sleep(200) Send($RTERuleName) ;Enter Mnemonic Sleep(200) Send('{TAB}') ;Enter Description Sleep(100) ;Theres more lines of code in this function... EndFunc ;==>AddRTERule Any ideas?

Hi all, Can this function be modified to support @CRLF in the MsgBox's text? ; Move Message Box ; Author - herewasplato _MoveMsgBox(0, "testTitle", "testText", 0, 10) Func _MoveMsgBox($MBFlag, $MBTitle, $MBText, $x, $y) Local $file = FileOpen(EnvGet("temp") & "\MoveMB.au3", 2) If $file = -1 Then Return;if error, give up on the move Local $line1 = 'AutoItSetOption(' & '"WinWaitDelay", 0' & ')' Local $line2 = 'WinWait("' & $MBTitle & '", "' & $MBText & '")' Local $line3 = 'WinMove("' & $MBTitle & '", "' & $MBText & '"' & ', ' & $x & ', ' & $y & ')' FileWrite($file, $line1 & @CRLF & $line2 & @CRLF & $line3) FileClose($file) Run(@AutoItExe & " /AutoIt3ExecuteScript " & EnvGet("temp") & "\MoveMB.au3") MsgBox($MBFlag, $MBTitle, $MBText) FileDelete(EnvGet("temp") & "\MoveMB.au3") EndFunc;==>_MoveMsgBox Thanks

Thanks for confirming, I assume there are other blocking functions going in my original script hence the hotkeysets do not work. I've updated my script to ask for my input after each cycle of the automation is completed, from whereby I can abort it as an option. Good enough for now. I'll have a try with a GUI workaround though for future projects, thanks again.

Yes that's correct. Forgive me for asking what may be a stupid question, but this specific hotkey to be actioned upon only requires the letter e to be entered on the keyboard with no other key needing to be entered right? If so, this did not work for me while I ran the entire script copied in previously. It also did not work for the simple script below. MsgBox(65, "Update", "Hello!") HotKeySet('e', 'EndProgram') Func EndProgram() Exit EndFunc ;==>EndProgram

Hi, it's a fairly short script, hence I've copied all of it below. Two issues with it, 1. HotKey does not respond while the script is running, 2. the If conditions do not work, I've created a post for the second issue here #include <Array.au3> #include <Excel.au3> #include <MsgBoxConstants.au3> ;Ensure this script is saved in the same directory as the DCW. ;Ensure InboxConfigTool.exe is open and Maximised. ;Ensure the screen resolution is set to 1366 x 768 and no additional screens are connected. HotKeySet('e', 'EndProgram') SelectManagePoolsTab() ;Create Excel application object Local $oExcel = _Excel_Open() If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended) ;Open DCW Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\CHB Data Collection Workbook - Message Centre.xls") If @error Then MsgBox($MB_SYSTEMMODAL, "Error", "Error opening workbook '" & @ScriptDir & "CHB Data Collection Workbook - Message Centre.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended) _Excel_Close($oExcel) Exit EndIf $oExcel.Sheets("CHFT Pools & RTE Rules").Select ;Select the CHFT Pools & RTE Rules tab of the DCW Local $Row = 13 ;Used to store data from cells of the current row, here the starting row is defined, 13 being the first row Local $Finish = 'Finish' ;Used as an anchor to stop the script passed the last row of the DCW Do Local $Status = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'I' & $Row) ;Stores current data from the 'Built?' column MsgBox(0, "Status", "Status of cell I" & $Row & " is " & $Status) If $Status = '' Then Local $PoolName = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'E' & $Row) Local $PoolDescription = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'F' & $Row) Local $RTERuleName = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'G' & $Row) Local $FirstName = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'B' & $Row) Local $LastName = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'A' & $Row) Local $Notes = _Excel_RangeRead($oWorkbook, 'CHFT Pools & RTE Rules', 'J' & $Row) Sleep(100) ActivateInboxConfigTool() AddPool() DragScrollBarUp() EnterPoolName() EnterPoolDescription() SearchForMember() AddMember() MakeTeamLead() SetMemberOptions() DragScrollBarDown() SetOrganisations() AddRTERule() EndIf $Row = $Row + 1 Until $Status = $Finish Sleep(500) MsgBox(64, 'Update', 'The script has finished building the pools from the chosen DCW, please review what needs to be redone or failed.') Exit Func ActivateInboxConfigTool() Do WinActivate("Inbox Config Tool") Sleep(100) Until WinActive("Inbox Config Tool") EndFunc ;==>ActivateInboxConfigTool Func SelectManagePoolsTab() ActivateInboxConfigTool() Sleep(100) MouseClick('primary', 230, 118, 1) ;Click on Manage Pools tab Sleep(200) EndFunc ;==>SelectManagePoolsTab Func AddPool() MouseClick("left", 554, 675, 1) ;Click Add Sleep(100) EndFunc ;==>AddPool Func DragScrollBarUp() MouseClickDrag('Primary', 1345, 574, 1345, 401) Sleep(100) EndFunc ;==>DragScrollBarUp Func EnterPoolName() MouseClick('Primary', 100, 409, 1) ;Click in Name field Sleep(100) Send($PoolName) Sleep(100) EndFunc ;==>EnterPoolName Func EnterPoolDescription() MouseClick('Primary', 100, 458, 1) ;Click in Description field Sleep(100) Send($PoolDescription) Sleep(100) EndFunc ;==>EnterPoolDescription Func SearchForMember() MouseClick('Primary', 100, 507, 1) ;Click in Search for Member field Sleep(100) Send('System,System') Sleep(100) Send('{TAB}') ;Tab over to the Magnifying glass button Send('{SPACE}') ;Press Magnifying glass Send('{Enter}') ;Press OK on the Clinical Staff Selection window Sleep(100) EndFunc ;==>SearchForMember Func AddMember() MouseClick('Primary', 100, 612, 1) ;Select available member Sleep(100) MouseClick('Primary', 339, 619, 1) ;Click Add Sleep(100) EndFunc ;==>AddMember Func MakeTeamLead() MouseClick('Primary', 411, 612, 1) ;Select active member Sleep(100) MouseClick('Primary', 499, 553, 1) ;Click Make Team Lead Sleep(100) EndFunc ;==>MakeTeamLead Func SetMemberOptions() MouseClick('Primary', 689, 441, 1) ;Tick Allow users to opt-in or opt-out of membership Sleep(100) MouseClick('Primary', 689, 466, 1) ;Tick Allow users without org association to view the pool Sleep(100) MouseClick('Primary', 689, 492, 1) ;Tick Allow users without org association to forward to the pool Sleep(100) EndFunc ;==>SetMemberOptions Func DragScrollBarDown() MouseClickDrag('Primary', 1345, 401, 1345, 574) Sleep(100) EndFunc ;==>DragScrollBarDown Func SetOrganisations() Send('{CTRLDOWN}') MouseClick('Primary', 703, 576, 1) ;Select Bradford Royal Infirmary Sleep(100) MouseClick('Primary', 703, 619, 1) ;Selct Calderdale Royal Hospital Sleep(100) MouseClickDrag('Primary', 931, 582, 931, 592) Sleep(100) MouseClick('Primary', 703, 576, 1) ;Select Huddersfield Royal Infirmary Sleep(100) MouseClickDrag('Primary', 931, 592, 931, 596) Sleep(100) MouseClick('Primary', 703, 592, 1) ;Select St. Lukes Hospital Sleep(100) Send('{CTRLUP}') MouseClick('Primary', 979, 564, 1) ;Click Add Sleep(100) EndFunc ;==>SetOrganisations Func AddRTERule() MouseClick('Primary', 69, 657, 1) ;Click Rules... Sleep(100) MouseClick('Primary', 363, 228, 1) ;Click Type Sleep(100) MouseClick('Primary', 363, 266, 1) ;Click RTE Sleep(100) MouseClick('Primary', 363, 545, 1) ;Click New Rule Sleep(100) Send($RTERuleName) ;Enter Mnemonic Sleep(100) Send('{TAB}') ;Enter Description Send('{TAB}{TAB}{RIGHT}') ;Navigate to Rule tab Send('{SHIFTDOWN}{TAB}{TAB}{TAB}{SHIFTUP}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}') ;Select the Operand 'Order Physician' Send('{SHIFTDOWN}{TAB}{SHIFTUP}{DOWN}{DOWN}{ENTER}') ;Select the Operator '=' Send('{TAB}{TAB}{TAB}{DOWN}{DOWN}{DOWN}{DOWN}{ENTER}') ;Open the 'Order Physician' Datasource value dialog Send($LastName & ',' & $FirstName) ;Enter resource name Send('{ENTER}') ;Search resource Sleep(500) If PixelGetColor(697, 446, 0xF0F0F0) Then ;If resource is not found, cancel out Sleep(200) MsgBox(64, 'Error', 'Resource is not found, therefore this pool will not be saved and will cancel out. Click OK to continue.') _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Fail', 'I' & $Row) _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Resource not found. ' & $Notes, 'J' & $Row) Sleep(500) WinActivate('Scheduling Help') Sleep(500) Send('{ENTER}') ;Click OK Sleep(500) Send('{SHIFTDOWN}{TAB}{SHIFTUP}{ENTER}') ;Click Cancel Sleep(500) Send('{SHIFTDOWN}{TAB}{TAB}{TAB}{TAB}{SHIFTUP}{ENTER}') ;Click Close Sleep(500) WinActivate('Scheduling: DB Flex Rule Tool - Inbox Pool Routing') Sleep(500) Send('{TAB}{ENTER}') ;Click Yes Sleep(500) WinActivate('Rules for Pool') Sleep(500) Send('{TAB}{TAB}{TAB}{ENTER}') ;Click Cancel Sleep(500) MouseClick('Primary', 1259, 653, 1) ;Click Cancel Sleep(500) Else Send('{TAB}{TAB}{DOWN}') ;Find resource Sleep(200) If PixelGetColor(725, 383, 0x3399FF) Then ;If there are multiple resources, cancel out Sleep(200) MsgBox(64, 'Error', 'There are multiple resources, therefore this pool will not be saved and will cancel out. Click OK to continue.') _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Redo', 'I' & $Row) _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Multiple resources. ' & $Notes, 'J' & $Row) Sleep(500) WinActivate('Scheduling Help') Sleep(500) Send('{TAB}{TAB}{ENTER}') ;Click Cancel Sleep(500) Send('{SHIFTDOWN}{TAB}{TAB}{TAB}{TAB}{SHIFTUP}{ENTER}') ;Click Close Sleep(500) WinActivate('Scheduling: DB Flex Rule Tool - Inbox Pool Routing') Sleep(500) Send('{TAB}{ENTER}') ;Click Yes Sleep(500) WinActivate('Rules for Pool') Sleep(500) Send('{TAB}{TAB}{TAB}{ENTER}') ;Click Cancel Sleep(500) MouseClick('Primary', 1259, 653, 1) ;Click Cancel Sleep(500) Else ;Select the resource Sleep(200) Send('{ENTER}') ;Select Order Physician ;MsgBox(0, '', 'save button clicks now') Send('{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}') ;Click Save Sleep(500) ;If rule already exists, cancel out ;If PixelGetColor(802, 433, 0xF0F0F0) Then ;Grey If PixelGetColor(554, 383, 0x1D40B7) Then ;Blue Sleep(500) MsgBox(64, 'Error', 'Rule already exists, therefore this pool will not be saved and will cancel out. Click OK to continue.') _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Redo', 'I' & $Row) _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Rule already exists. ' & $Notes, 'J' & $Row) Sleep(1000) WinActivate('Scheduling: DB Flex Rule Tool - Inbox Pool Routing') Sleep(500) Send('{ENTER}') ;Click OK Sleep(500) Send('{TAB}{TAB}{ENTER}') ;Click Close Sleep(500) Send('{TAB}{ENTER}') ;Click Yes Sleep(500) Send('{TAB}{TAB}{TAB}{ENTER}') ;Click Cancel Sleep(500) MouseClick('Primary', 1259, 653, 1) ;Click Cancel ElseIf PixelGetColor(572, 382, 0xAD0909) Then ;Red MsgBox(0, '', 'Syntax error.') Else MsgBox(0, '', 'Rule can be saved.') _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Complete', 'I' & $Row) _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Success. ' & $Notes, 'J' & $Row) Send('{SHIFTDOWN}{TAB}{SHIFTUP}{ENTER}') ;Click Close Sleep(500) Send('{SHIFTDOWN}{TAB}{TAB}{SHIFTUP}') ;Navigate to Name field Sleep(100) Send($RTERuleName) ;Enter RTE Rule Name just created Sleep(100) Send('{TAB}{ENTER}') ;Click Search Sleep(100) Send('{TAB}{TAB}{TAB}{TAB}{DOWN}{DOWN}') ;Select RTE Rule just created Sleep(100) Send('{SHIFTDOWN}{TAB}{TAB}{TAB}{SHIFTUP}{ENTER}') ;Click Add > Sleep(500) MouseClick('Primary', 1148, 654, 1) ;Click Apply Sleep(500) MouseClick('Primary', 45, 91, 1) ;Click Commit Sleep(500) Send('{ENTER}') ;Click OK Sleep(1000) EndIf EndIf EndIf EndFunc ;==>AddRTERule Func EndProgram() Exit EndFunc ;==>EndProgram

Also, does this forum support email notification for post responses? I don't get any, hence the late replies...

As in when the script is automating other apps, like Excel and a remote application, exiting the script via CTRL+Break or via a HotKeySet does not work. Could this be due to the fact the script is always doing something, hence doesn't give it the chance to read any keyboard entry via a manual method, and hence why CTRL+Break or HotKeySet are not read to be actioned?

Thanks but that too didn't work, only worked while AutoIt was the active screen.

Apologies If PixelGetColor(697, 446, 0xF0F0F0) Then ;If resource is not found, cancel out Sleep(200) MsgBox(64, 'Error', 'Resource is not found, therefore this pool will not be saved and will cancel out. Click OK to continue.') _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Fail', 'I' & $ColumnIRow) _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Resource not found. ' & $Notes, 'J' & $ColumnIRow) Sleep(500) WinActivate('Scheduling Help') Sleep(500) Send('{ENTER}') ;Click OK Sleep(500) Send('{SHIFTDOWN}{TAB}{SHIFTUP}{ENTER}') ;Click Cancel Sleep(500) Send('{SHIFTDOWN}{TAB}{TAB}{TAB}{TAB}{SHIFTUP}{ENTER}') ;Click Close Sleep(500) WinActivate('Scheduling: DB Flex Rule Tool - Inbox Pool Routing') Sleep(500) Send('{TAB}{ENTER}') ;Click Yes Sleep(500) WinActivate('Rules for Pool') Sleep(500) Send('{TAB}{TAB}{TAB}{ENTER}') ;Click Cancel Sleep(500) MouseClick('Primary', 1259, 653, 1) ;Click Cancel Else Send('{TAB}{TAB}{DOWN}') ;Find resource If PixelGetColor(725, 383, 0x3399FF) Then ;If there are multiple resources, cancel out Sleep(200) MsgBox(64, 'Error', 'There are multiple resources, therefore this pool will not be saved and will cancel out. Click OK to continue.') _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Redo', 'I' & $ColumnIRow) _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Multiple resources. ' & $Notes, 'J' & $ColumnIRow) Sleep(500) WinActivate('Scheduling Help') Sleep(500) Send('{TAB}{TAB}{ENTER}') ;Click Cancel Sleep(500) Send('{SHIFTDOWN}{TAB}{TAB}{TAB}{TAB}{SHIFTUP}{ENTER}') ;Click Close Sleep(500) WinActivate('Scheduling: DB Flex Rule Tool - Inbox Pool Routing') Sleep(500) Send('{TAB}{ENTER}') ;Click Yes Sleep(500) WinActivate('Rules for Pool') Sleep(500) Send('{TAB}{TAB}{TAB}{ENTER}') ;Click Cancel Sleep(500) MouseClick('Primary', 1259, 653, 1) ;Click Cancel Else ;Select the resource Send('{ENTER}') ;Select Order Physician MsgBox(0, '', 'save button clicks now') _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Complete', 'I' & $ColumnIRow) _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Success. ' & $Notes, 'J' & $ColumnIRow) ;Send('{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}') ;Click Save EndIf EndIf

Hi all, I'm going crazy while I try and work out why a fairly simply if condition isn't working. I will try and explain it clearly, in the hope someone can find out the cause. The portion of the script for these if conditions is copied in below. The first PixelGetColor func is denoted in Screenshot 1, the RED dot signifies where the color is extracted from. The second PixelGetColor func is denoted in Screenshot 2, the YELLOW dot signifies where the color is extracted from. The script is tested for 3 scenarios, where 1. no resource is found (Screenshot 1), 2. multiple resources are found (Screenshot 2), and 3. only 1 resource is found (Screenshot 3). This application is being run via RDP hence I can't access the controls, and therefore relying on the pixel colours. The issue is, for all three scenarios, only the first If condition's first result is shown, even though the actual program shows the 3 screenshots for each of the three scenarios. Any ideas where I'm going wrong? If PixelGetColor(697, 446, 0xF0F0F0) Then ;If resource is not found, cancel out Sleep(200) MsgBox(64, 'Error', 'Resource is not found, therefore this pool will not be saved and will cancel out. Click OK to continue.') _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Fail', 'I' & $ColumnIRow) _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Resource not found. ' & $Notes, 'J' & $ColumnIRow) Sleep(500) WinActivate('Scheduling Help') Sleep(500) Send('{ENTER}') ;Click OK Sleep(500) Send('{SHIFTDOWN}{TAB}{SHIFTUP}{ENTER}') ;Click Cancel Sleep(500) Send('{SHIFTDOWN}{TAB}{TAB}{TAB}{TAB}{SHIFTUP}{ENTER}') ;Click Close Sleep(500) WinActivate('Scheduling: DB Flex Rule Tool - Inbox Pool Routing') Sleep(500) Send('{TAB}{ENTER}') ;Click Yes Sleep(500) WinActivate('Rules for Pool') Sleep(500) Send('{TAB}{TAB}{TAB}{ENTER}') ;Click Cancel Sleep(500) MouseClick('Primary', 1259, 653, 1) ;Click Cancel Else Send('{TAB}{TAB}{DOWN}') ;Find resource If PixelGetColor(725, 383, 0x3399FF) Then ;If there are multiple resources, cancel out Sleep(200) MsgBox(64, 'Error', 'There are multiple resources, therefore this pool will not be saved and will cancel out. Click OK to continue.') _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Redo', 'I' & $ColumnIRow) _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Multiple resources. ' & $Notes, 'J' & $ColumnIRow) Sleep(500) WinActivate('Scheduling Help') Sleep(500) Send('{TAB}{TAB}{ENTER}') ;Click Cancel Sleep(500) Send('{SHIFTDOWN}{TAB}{TAB}{TAB}{TAB}{SHIFTUP}{ENTER}') ;Click Close Sleep(500) WinActivate('Scheduling: DB Flex Rule Tool - Inbox Pool Routing') Sleep(500) Send('{TAB}{ENTER}') ;Click Yes Sleep(500) WinActivate('Rules for Pool') Sleep(500) Send('{TAB}{TAB}{TAB}{ENTER}') ;Click Cancel Sleep(500) MouseClick('Primary', 1259, 653, 1) ;Click Cancel Else ;Select the resource Send('{ENTER}') ;Select Order Physician MsgBox(0, '', 'save button clicks now') _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Complete', 'I' & $ColumnIRow) _Excel_RangeWrite($oWorkbook, 'CHFT Pools & RTE Rules', 'Success. ' & $Notes, 'J' & $ColumnIRow) ;Send('{TAB}{TAB}{TAB}{TAB}{TAB}{TAB}{ENTER}') ;Click Save EndIf EndIf

Hi all, Ctrl+Break stops script only if AutoIt window is active. It doesn't work while automation is going on elsewhere. Is there a way to stop the script regardless of where the automation is happening? Thanks

Thanks for confirming.

Hi all, Is there a way to write a string to a cell in Excel without replacing what may be already in that cell? Can this be achieved with a single function? Or will I need to read any potential data first, then join it, and then write to that cell? As the write function replaces what is already in the cell. Thanks