Context Navigation

Custom Query

Filters

	Status	accepted assigned closed new reopened
And		Or

Group results by descending

Show under each result: Description

Max items per page

Results (34 - 36 of 3866)

← 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 →

Ticket	Resolution	Summary	Owner	Reporter
#1095	Fixed	tidy indent with $var_ exception.	Jos	anonymous
Description	tidy 2.0.28.3, 2.0.28.4 Enum _ $A, _ $B, _ $C Enum _ $A_, _ $B_, _ $C_ ; additional space. $C_ ; same here.
#404	No Bug	the time of the Sleep() command is vague		De`ak (bigdeak@…
Description	Hello Developers, i did some tests on vista and windows XP, the sleep times of the sleep command is really vagua. I'm working on a software, where i need a sleep of 1 ms, but if i use Sleep( 1 ), the real stop time is 10 ms on Vista and 15 ms on xp. Here is a source code of testing the Sleep() function: while 1 $begin = TimerInit() Sleep( 1 ) $dif = TimerDiff($begin) ConsoleWrite($dif & @CRLF) Wend The strange thing is: If you give a time of 11 ms on Vista, the sleep time is 21 ms (on xp the time is given: 16 ms -> 31 ms), or 22 for 32 ms on Vista etc. it would be nice if the Sleep() function is preciser... sorry for my bad english XD
#2327	No Bug	the script stops randomly please suggest some idea's.		anonymous
Description	#include "InputHeader_BMP.au3" Local $strErrorLogName = 'image_PixelImageCombined_BMP.txt' Local $strErrorLogPathName = $strErrorLogPath&$strErrorLogName Global $strChannel = 'GREEN' Global $strRow = 10 Global $strGetPixelRow = 200 Global $strGetPixelCol = 200 Global $strSetClear = 65536 Global $strSetWidth = 100 Global $strSetHeight = 100 Global $strSetDepth = 8 Global $strResizeType = '0' ;0-Nearest Neighbour 1-Linear 2-Bicubic Global $strCheckButton = 1 ;0-uncheck checkbox 1-select check button Global $strGetPixelVal = 100 Global $iSleepTime = 500 Global $file = FileOpen($strErrorLogPathName,2) if($file == -1) Then MsgBox(0, "Error", "Unable to open the file") Exit EndIf Run($strApplicationPath) for $iOperation = 2 to 2 Step 1 Main($strInputImgPath1k,$strName1k,$strName8bits,$iOperation) Main($strInputImgPath2k,$strName2k,$strName8bits,$iOperation) Main($strInputImgPath4k,$strName4k,$strName8bits,$iOperation) Main($strInputImgPath10,$strName10,$strName8bits,$iOperation) Main($strInputImgPath512,$strName512,$strName8bits,$iOperation) Main($strInputColorImgPath1k,$strName1k,$strNameColor,$iOperation) Main($strInputColorImgPath2k,$strName2k,$strNameColor,$iOperation) Main($strInputColorImgPath4k,$strName4k,$strNameColor,$iOperation) Main($strInputColorImgPath10,$strName10,$strNameColor,$iOperation) Main($strInputColorImgPath512,$strName512,$strNameColor,$iOperation) Next Local $strActive = WinActive("ss", "Ready") if @error == 0 Then Winclose("ss") EndIf Func Main($strInpPath,$strImgName,$strOutPath,$iOperation) Global $winimage = WinWaitActive("ss","Ready") if ($winimage == 0) Then FileWriteLine($file,"Error: image Window is not Active") Else FileWriteLine($file,"ss.exe Application Is Running") FileWriteLine($file," ") if($iOperation == 0) Then FileWriteLine($file,"::::::::::::::::Get Sum::::::::::::::") ElseIf($iOperation == 1) Then FileWriteLine($file,"::::::::::::::::Get Row::::::::::::::") ElseIf($iOperation == 2) Then FileWriteLine($file,"::::::::::::::::Get Pixel::::::::::::::") ElseIf($iOperation == 3) Then FileWriteLine($file,"::::::::::::::::Get Max Pixel Value::::::::::::::") ElseIf($iOperation == 4) Then FileWriteLine($file,"::::::::::::::::Get Count::::::::::::::::::") ElseIf($iOperation == 5) Then FileWriteLine($file,"::::::::::::::::SET Depth::::::::::::::::::") ElseIf($iOperation == 6) Then FileWriteLine($file,":::::::::::::::Clear::::::::::::::::") ElseIf($iOperation == 7) Then FileWriteLine($file,":::::::::::::::Resize::::::::::::::::") ElseIf($iOperation == 8) Then FileWriteLine($file,":::::::::::::::GetStat::::::::::::::::") ElseIf($iOperation == 9)Then FileWriteLine($file,":::::::::::::::SET Pixel::::::::::::::::") EndIf for $i = 1 to 4 Step 1 Local $iReset = 1 Local $str1 = String($i) Local $str2 = $strImgName Local $str3 = $str2&$str1 Local $str4 = '.bmp' Local $str5 = $str3&$str4 ControlClick("ss","",59398,"left",1,$iXClickFile,$iYClickFile) sleep($iSleepTime) ControlClick("ss","",59398,"left",1,$iXClickOpen,$iYClickOpen) Local $winOpen1 = WinWaitActive("Open","") if $winOpen1 == 0 Then FileWriteLine($winOpen1,"Error: File->Open Window Not Active") Else FileWriteLine($file," ") FileWriteLine($file,"File->Open Window is Active") Local $str6 = $strInpPath&$str5 ;Local $strOpenIm1 = ControlSetText($winOpen1,"",'Edit1',$str6) ;Local $strOpenIm1 = ControlSetText($winOpen1,"",1148,$str6) Local $strOpenIm1 = ControlSetText("Open","",'Edit1',$str6) ControlClick($winOpen1,"&Open","Button2"); Button2 for WinXP sleep($iSleepTime) Local $WarnImage = WinExists("ss","This Window is already open") if ($WarnImage == 1) Then $str61 = 'Warning: '&$str5&' Is Already Open' FileWriteLine($WarnImage,$str61) ControlClick("ss","","Button1") EndIf Local $WarnImage1 = winExists("ss","Unable to load the image.") if ($WarnImage1 == 1) Then $str71 = 'Warning: Unable to load iamge - '&$str5 FileWriteLine($file,$str71) ControlClick("ss","","Button1") $iReset = 0 EndIf Local $WarnImage2 = WinExists("ss","Error opening image file") If($WarnImage2 == 1) Then FileWriteLine($file,"Error Opening image file") ControlClick("ss","","Button1") sleep($iSleepTime) ControlClick("ss","","Button1") sleep($iSleepTime) ControlClick("ss","","Button1") $iReset = 0 EndIf if($iReset == 1) Then WinWaitActive("ss", $str5) Local $var = ControlGetText( "[Active]", "", "[ID:65280]" ) $process = 'Processing Image: '&$var FileWriteLine($file,$process) Global $iHandle1 = ControlGetHandle("[Active]","","[ID:65280]") if(@error == 1) Then FileWriteLine($file,"Cannot Get Handle") Else ;FileWriteLine($file,$iHandle1) ControlHide("[Active]","","[ID:65280]") ;ThresholdOperations($str3,$strOutPath,$iOperation) PixelOperations($str3,$strOutPath,$iOperation) EndIf EndIf EndIf FileWriteLine($file,"") Next EndIf EndFunc Func PixelOperations($str3,$strOutPath,$iType) Local $iReset = 1 Local $strOut = $strOutputImgPath&$strOutPath&$str3 ControlClick("ss","",59398,"left",1,$iXClickOperation,$iYClickOperation) ControlClick("ss","",59398,"left",1,$iXClickPixel,$iYClickPixel) Local $winPixel = WinWaitActive($Winimage,"Pixel Operation"); if $winPixel == 0 Then FileWriteLine($file,"Error: Operations-> Pixel Operations Menu Not Available") Else FileWriteLine($file,"Operations-> Pixel Operations Menu Available") ControlCommand($winPixel,"","ComboBox2", "SetCurrentSelection", $iType) if @error == 1 Then FileWriteLine($file,"Error: Filter->ComboBox2 Selection Failure") Else FileWriteLine($file,"Filter->ComboBox2 Selection Pass") EndIf sleep($iSleepTime) if($iType == 0) Then $strCombo3 = $str3&'.bmp' ControlCommand($winPixel,"",1082,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1082, "SelectString", $strCombo3) If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1082) sleep($iSleepTime) if($strOutPath == '24bit_' AND $strChannel = 'RED') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'RED') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) ElseIf($strOutPath == '24bit_' AND $strChannel = 'GREEN') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'GREEN') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) ElseIf($strOutPath == '24bit_' AND $strChannel = 'BLUE') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'GREEN') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) EndIf ;ControlClick($winPixel,"","Button8") Local $strClickOk = ControlClick($winPixel,"","Button8") if($strClickOk == 1) Then FileWriteLine($file,"Click OK Sucesss") sleep($iSleepTime) Local $warnOut = WinExists("ss","Please select an input image.") if $warnOut == 1 Then FileWriteLine($file,"Warning: Select An Input Image") Local $warnOK = ControlClick("ss","Please select an input image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf EndIf Local $iGetSumText = ControlGetText($winPixel,"","Edit4") if @error == 1 Then FileWriteLine($file,"Error: Edit4 ControlGetText for Sum: Fail") Else FileWriteLine($file,"Edit4: ControlGetText Pass") $strTypeSum = 'Sum of Pixels for '&$strCombo3&' is :'&$iGetSumText FileWriteLine($file,$strTypeSum) EndIf sleep($iSleepTime) Local $strClickCancel = ControlClick($winPixel,"","Button7") if($strClickCancel == 1) Then FileWriteLine($file,"Click Cancel button Sucesss") Else FileWriteLine($file,"Click Cancel Button Fail") EndIf WinClose($iHandle1) Else FileWriteLine($file,"Error: Click Ok Fail") ControlClick($winPixel,"","Button7") WinClose($iHandle1) EndIf ElseIf($iType == 1) Then $strCombo3 = $str3&'.bmp' ControlCommand($winPixel,"",1082,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1082, "SelectString", $strCombo3) If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1082) sleep($iSleepTime) Local $setText = ControlSetText($winPixel,"","Edit1",$strRow) if ($setText == 0) Then FileWriteLine($file,"Error: Set Row value Fail") Else FileWriteLine($file,"Set Row value Success") EndIf Local $strClickOk = ControlClick($winPixel,"","Button8") if($strClickOk == 1) Then FileWriteLine($file,"Click OK Sucesss") sleep($iSleepTime) Local $warnOut = WinExists("ss","Please select an input image.") if $warnOut == 1 Then FileWriteLine($file,"Warning: Select An Input Image") Local $warnOK = ControlClick("ss","Please select an input image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut1 = WinExists("ss","Please enter a valid Row value.") if $warnOut1 == 1 Then FileWriteLine($file,"Warning: Please enter a valid Row value.") Local $warnOK1 = ControlClick("ss","Please enter a valid Row value.","Button1") if $warnOK1 == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf if($iReset == 1) Then $strFileName = $strOutPath&$str3&'_Row_'&$strRow&'.txt' $strFileNamePath = $strOutputImgPath&$strFileName $filerow = FileOpen($strFileNamePath,2) $winRowText = WinGetText("ss","The Pixel values of Row No. ") if($winRowText == 0) Then FileWriteLine($file,"Error: Get Text Window Fail") Else FileWriteLine($file,"Get Row Text Success") FileWriteLine($filerow,$winRowText) ControlClick("ss","The Pixel values of Row No. ","Button1") EndIf EndIf sleep($iSleepTime) Local $strClickCancel = ControlClick($winPixel,"","Button7") if($strClickCancel == 1) Then FileWriteLine($file,"Click Cancel button Sucesss") Else FileWriteLine($file,"Click Cancel Button Fail") EndIf WinClose($iHandle1) Else FileWriteLine($file,"Error: Click Ok Fail") ControlClick($winPixel,"","Button7") WinClose($iHandle1) EndIf ElseIf($iType == 2) Then Local $setText = ControlSetText($winPixel,"","Edit1",$strGetPixelRow) if ($setText == 0) Then FileWriteLine($file,"Error: Set Row value Fail") Else FileWriteLine($file,"Set Row value Success") EndIf Local $setText1 = ControlSetText($winPixel,"","Edit2",$strGetPixelCol) if ($setText1 == 0) Then FileWriteLine($file,"Error: Set Col value Fail") Else FileWriteLine($file,"Set Col value Success") EndIf $strCombo3 = $str3&'.bmp' ControlCommand($winPixel,"",1082,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1082, "SelectString", $strCombo3) If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1082) sleep($iSleepTime) if($strOutPath == '24bit_' AND $strChannel = 'RED') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'RED') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) ElseIf($strOutPath == '24bit_' AND $strChannel = 'GREEN') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'GREEN') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) ElseIf($strOutPath == '24bit_' AND $strChannel = 'BLUE') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'GREEN') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) EndIf Local $strClickOk = ControlClick($winPixel,"","Button8") if($strClickOk == 1) Then FileWriteLine($file,"Click OK Sucesss") sleep($iSleepTime) Local $warnOut = WinExists("ss","Please select an input image.") if $warnOut == 1 Then FileWriteLine($file,"Warning: Select An Input Image") Local $warnOK = ControlClick("ss","Please select an input image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf EndIf Local $warnOut1 = WinExists("ss","Please enter a valid Row value.") if $warnOut1 == 1 Then FileWriteLine($file,"Warning: Please enter a valid Row value. ") Local $warnOK1 = ControlClick("ss","Please enter a valid Row value.","Button1") if $warnOK1 == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut2 = WinExists("ss","Please enter a valid Column value.") if $warnOut2 == 1 Then FileWriteLine($file,"Warning: Please enter a valid Column value.") Local $warnOK2 = ControlClick("ss","Please enter a valid Column value.","Button1") if $warnOK2 == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $strClickCancel = ControlClick($winPixel,"","Button7") if($strClickCancel == 1) Then FileWriteLine($file,"Click Cancel button Sucesss") Else FileWriteLine($file,"Click Cancel Button Fail") EndIf WinClose($iHandle1) Else FileWriteLine($file,"Error: Click Ok Fail") ControlClick($winPixel,"","Button7") WinClose($iHandle1) EndIf ElseIf ($iType == 3) Then $strCombo3 = $str3&'.bmp' ControlCommand($winPixel,"",1082,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1082, "SelectString", $strCombo3) If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1082) sleep($iSleepTime) if($strOutPath == '24bit_' AND $strChannel = 'RED') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'RED') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) ElseIf($strOutPath == '24bit_' AND $strChannel = 'GREEN') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'GREEN') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) ElseIf($strOutPath == '24bit_' AND $strChannel = 'BLUE') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'GREEN') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) EndIf Local $strClickOk = ControlClick($winPixel,"","Button8") if($strClickOk == 1) Then FileWriteLine($file,"Click OK Sucesss") sleep($iSleepTime) Local $warnOut = WinExists("ss","Please select an input image.") if $warnOut == 1 Then FileWriteLine($file,"Warning: Select An Input Image") Local $warnOK = ControlClick("ss","Please select an input image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf EndIf Local $iGetMaxPixel = ControlGetText($winPixel,"","Edit4") if @error == 1 Then FileWriteLine($file,"Error: Edit4 ControlGetText for Sum: Fail") Else FileWriteLine($file,"Edit4: ControlGetText Pass") $strTypeMaxPixel = 'Maximum Pixel in '&$strCombo3&' is :'&$iGetMaxPixel FileWriteLine($file,$strTypeMaxPixel) EndIf sleep($iSleepTime) Local $strClickCancel = ControlClick($winPixel,"","Button7") if($strClickCancel == 1) Then FileWriteLine($file,"Click Cancel button Sucesss") Else FileWriteLine($file,"Click Cancel Button Fail") EndIf WinClose($iHandle1) EndIf ElseIf($iType == 4) Then $strCombo3 = $str3&'.bmp' ControlCommand($winPixel,"",1082,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1082, "SelectString", $strCombo3) If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1082) sleep($iSleepTime) if($strOutPath == '24bit_' AND $strChannel = 'RED') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'RED') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) ElseIf($strOutPath == '24bit_' AND $strChannel = 'GREEN') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'GREEN') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) ElseIf($strOutPath == '24bit_' AND $strChannel = 'BLUE') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'GREEN') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) EndIf Local $strClickOk = ControlClick($winPixel,"","Button8") if($strClickOk == 1) Then FileWriteLine($file,"Click OK Sucesss") sleep($iSleepTime) Local $warnOut = WinExists("ss","Please select an input image.") if $warnOut == 1 Then FileWriteLine($file,"Warning: Select An Input Image") Local $warnOK = ControlClick("ss","Please select an input image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf EndIf Local $iGetCount = ControlGetText($winPixel,"","Edit4") if @error == 1 Then FileWriteLine($file,"Error: Edit4 ControlGetText for Sum: Fail") Else FileWriteLine($file,"Edit4: ControlGetText Pass") $strCount = 'Sum of Pixels for '&$strCombo3&' is :'&$iGetCount FileWriteLine($file,$strCount) EndIf sleep($iSleepTime) Local $strClickCancel = ControlClick($winPixel,"","Button7") if($strClickCancel == 1) Then FileWriteLine($file,"Click Cancel button Sucesss") Else FileWriteLine($file,"Click Cancel Button Fail") EndIf WinClose($iHandle1) EndIf ElseIf($iType == 5) Then $strCombo3 = $str3&'.bmp' ControlCommand($winPixel,"",1082,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1082, "SelectString", $strCombo3) If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1082) sleep($iSleepTime) ControlCommand($winPixel,"",1083,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1083, "SelectString", 'NewImage') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1083) sleep($iSleepTime) Local $setText = ControlSetText($winPixel,"","Edit1",$strSetDepth) if ($setText == 0) Then FileWriteLine($file,"Error: Set Depth value Fail") Else FileWriteLine($file,"Set Depth value Success") EndIf Local $strClickOk = ControlClick($winPixel,"","Button8") Sleep($iSleepTime) if($strClickOk == 1) Then FileWriteLine($file,"Click OK Sucesss") sleep($iSleepTime) Local $warnOut3 = WinExists("ss","Please select an input image.") if $warnOut3 == 1 Then FileWriteLine($file,"Warning: Select An Input Image") Local $warnOK = ControlClick("ss","Please select an input image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut4 = WinExists("ss","Please select an output image.") if $warnOut4 == 1 Then FileWriteLine($file,"Warning: Select An Output Image") Local $warnOK = ControlClick("ss","Please select an output image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut5 = WinExists("ss","Unable to save image") if $warnOut5 == 1 Then FileWriteLine($file,"Error: Unable to save Image ") Local $warnOK = ControlClick("ss","Unable to save image","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf ControlClick($winPixel,"","Button7") if($iReset == 1) Then ;ControlClick($winimage,"",59398,"left",1,73,47) ;sleep($iSleepTime) ;ControlClick($winimage,"",59398,"left",1,162,86) ControlClick("ss","",59398,"left",1,$iXClickFile,$iYClickFile) ControlClick("ss","",59398,"left",1,$iXClickSaveAs,$iYClickSaveAs) sleep($iSleepTime) Local $winSaveAs = WinWaitActive("Save As","") if($WinSaveAs == 0) Then FileWriteLine($file,"Error: File->SaveAs Window Not Active") Else $strType = '_'&$strSetDepth&'_SetDepth.bmp' FileWriteLine($file,"File->SaveAs Window is Active") $str31 = $strOut&$strType $strSaveFile = $str31 Local $strSave = ControlSetText($winSaveAs,"","Edit1",$strSaveFile) if($strSave == 0) Then FileWriteLine($file,"Error: SaveAs->ImagePath Set Text Fail") Else FileWriteLine($file,"SaveAs->ImagePath Set Text Pass") ControlClick($winSaveAs,"","Button1") ;Button2 for WinXP if @error == 1 Then FileWriteLine($file,"Error: Click On Save Fail") Else FileWriteLine($file,"Click On Save Pass") FileWriteLine($file,"Save Image Success") sleep($iSleepTime) Local $var3 = ControlGetText( "[ACTIVE]","", "[ID:65280]" ) $process2 = 'Output Image: '&$var3 FileWriteLine($file,$process2) sleep($iSleepTime) Global $iHandle3 = ControlGetHandle("[ACTIVE]","","[ID:65280]") if(@error == 1) Then FileWriteLine($file,"Cannot Get Handle") Else WinClose($iHandle3) Sleep($iSleepTime) ;ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) EndIf EndIf EndIf EndIf WinClose($iHandle3) WinClose($iHandle1) EndIf EndIf ElseIf($iType == 6) Then Local $setText = ControlSetText($winPixel,"","Edit1",$strSetClear) if ($setText == 0) Then FileWriteLine($file,"Error: Set Clear value Fail") Else FileWriteLine($file,"Set Clear value Success") EndIf $strCombo3 = $str3&'.bmp' ControlCommand($winPixel,"",1082,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1082, "SelectString", $strCombo3) If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1082) sleep($iSleepTime) ControlCommand($winPixel,"",1083,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1083, "SelectString", 'NewImage') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1083) sleep($iSleepTime) Local $strClickOk = ControlClick($winPixel,"","Button8") Sleep($iSleepTime) if($strClickOk == 1) Then FileWriteLine($file,"Click OK Sucesss") sleep($iSleepTime) Local $warnOut3 = WinExists("ss","Please select an input image.") if $warnOut3 == 1 Then FileWriteLine($file,"Warning: Select An Input Image") Local $warnOK = ControlClick("ss","Please select an input image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut4 = WinExists("ss","Please select an output image.") if $warnOut4 == 1 Then FileWriteLine($file,"Warning: Select An Output Image") Local $warnOK = ControlClick("ss","Please select an output image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut5 = WinExists("ss","Unable to save image") if $warnOut5 == 1 Then FileWriteLine($file,"Error: Unable to save Image ") Local $warnOK = ControlClick("ss","Unable to save image","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut6 = WinExists("ss","Operation failed ") if $warnOut6 == 1 Then FileWriteLine($file,"Error: Operation Failed: Enter A Valid Pixel Range") Local $warnOK = ControlClick("ss","Operation failed ","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf ControlClick($winPixel,"","Button7") if($iReset == 1) Then ControlClick("ss","",59398,"left",1,$iXClickFile,$iYClickFile) ControlClick("ss","",59398,"left",1,$iXClickSaveAs,$iYClickSaveAs) sleep($iSleepTime) Local $winSaveAs = WinWaitActive("Save As","") if($WinSaveAs == 0) Then FileWriteLine($file,"Error: File->SaveAs Window Not Active") Else $strType = '_'&$strSetClear&'_SetClear.bmp' FileWriteLine($file,"File->SaveAs Window is Active") $str31 = $strOut&$strType $strSaveFile = $str31 Local $strSave = ControlSetText($winSaveAs,"","Edit1",$strSaveFile) if($strSave == 0) Then FileWriteLine($file,"Error: SaveAs->ImagePath Set Text Fail") Else FileWriteLine($file,"SaveAs->ImagePath Set Text Pass") ControlClick($winSaveAs,"","Button1") ;Button2 for WinXP if @error == 1 Then FileWriteLine($file,"Error: Click On Save Fail") Else FileWriteLine($file,"Click On Save Pass") FileWriteLine($file,"Save Image Success") sleep($iSleepTime) Local $var3 = ControlGetText( "[ACTIVE]","", "[ID:65280]" ) $process2 = 'Output Image: '&$var3 FileWriteLine($file,$process2) sleep($iSleepTime) Global $iHandle3 = ControlGetHandle("[ACTIVE]","","[ID:65280]") if(@error == 1) Then FileWriteLine($file,"Cannot Get Handle") Else WinClose($iHandle3) Sleep($iSleepTime) WinClose($iHandle1) EndIf EndIf EndIf EndIf WinClose($iHandle3) WinClose($iHandle1) EndIf EndIf ElseIf($iType == 7) Then $strCombo3 = $str3&'.bmp' ControlCommand($winPixel,"",1082,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1082, "SelectString", $strCombo3) If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1082) sleep($iSleepTime) ControlCommand($winPixel,"",1083,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1083, "SelectString", 'NewImage') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1083) sleep($iSleepTime) Local $setWidth = ControlSetText($winPixel,"","Edit1",$strSetWidth) if ($setWidth == 0) Then FileWriteLine($file,"Error: Set Width value Fail") Else FileWriteLine($file,"Set Width value Success") EndIf Local $setHeight = ControlSetText($winPixel,"","Edit2",$strSetHeight) if ($setHeight == 0) Then FileWriteLine($file,"Error: Set Height value Fail") Else FileWriteLine($file,"Set Height value Success") EndIf Local $setDepth = ControlSetText($winPixel,"","Edit3",$strSetDepth) if ($setDepth == 0) Then FileWriteLine($file,"Error: Set Depth value Fail") Else FileWriteLine($file,"Set Depth value Success") EndIf ControlCommand($winPixel,"","ComboBox3","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Resize Type ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Resize Type ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel,"","ComboBox3", "SetCurrentSelection", $strResizeType) If @error == 1 Then FileWriteLine($file,"Error: Resize Type ComboBox Set String Fail") Else FileWriteLine($file,"Resize Type ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox3") sleep($iSleepTime) Local $strClickOk = ControlClick($winPixel,"","Button8") if($strClickOk == 1) Then FileWriteLine($file,"Click OK Sucesss") sleep($iSleepTime) Local $warnOut3 = WinExists("ss","Please select an input image.") if $warnOut3 == 1 Then FileWriteLine($file,"Warning: Select An Input Image") Local $warnOK = ControlClick("ss","Please select an input image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut4 = WinExists("ss","Please select an output image.") if $warnOut4 == 1 Then FileWriteLine($file,"Warning: Select An Output Image") Local $warnOK = ControlClick("ss","Please select an output image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut5 = WinExists("ss","Unable to save image") if $warnOut5 == 1 Then FileWriteLine($file,"Error: Unable to save Image ") Local $warnOK = ControlClick("ss","Unable to save image","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut6 = WinExists("ss","Operation failed ") if $warnOut6 == 1 Then FileWriteLine($file,"Error: Operation Failed: Enter A Valid Pixel Range") Local $warnOK = ControlClick("ss","Operation failed ","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut7 = WinExists("ss","Please enter a valid Width value. Valid Range 2 to 10000") if $warnOut7 == 1 Then FileWriteLine($file,"Warning: Please enter a valid Width value. Valid Range 2 to 10000") Local $warnOK = ControlClick("ss","Please enter a valid Width value. Valid Range 2 to 10000","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut7 = WinExists("ss","Please enter a valid Height value. Valid Range 2 to 10000") if $warnOut7 == 1 Then FileWriteLine($file,"Warning: Please enter a valid Height value. Valid Range 2 to 10000") Local $warnOK = ControlClick("ss","Please enter a valid Height value. Valid Range 2 to 10000","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf ControlClick($winPixel,"","Button7") if($iReset == 1) Then ControlClick("ss","",59398,"left",1,$iXClickFile,$iYClickFile) ControlClick("ss","",59398,"left",1,$iXClickSaveAs,$iYClickSaveAs) sleep($iSleepTime) Local $winSaveAs = WinWaitActive("Save As","") if($WinSaveAs == 0) Then FileWriteLine($file,"Error: File->SaveAs Window Not Active") Else if $strResizeType == '0' Then $strResize = 'NearestNeighbour' ElseIf $strResizeType == '1' Then $strResize = 'Linear' ElseIf $strResizeType == '1' Then $strResize = 'Bicubic' EndIf $strType = '_'&$strSetWidth&'_'&$strSetHeight&'_'&$strSetDepth&'_'&$strResize&'_Resize.bmp' FileWriteLine($file,"File->SaveAs Window is Active") $str31 = $strOut&$strType $strSaveFile = $str31 Local $strSave = ControlSetText($winSaveAs,"","Edit1",$strSaveFile) if($strSave == 0) Then FileWriteLine($file,"Error: SaveAs->ImagePath Set Text Fail") Else FileWriteLine($file,"SaveAs->ImagePath Set Text Pass") ControlClick($winSaveAs,"","Button1") ;Button2 for WinXP if @error == 1 Then FileWriteLine($file,"Error: Click On Save Fail") Else FileWriteLine($file,"Click On Save Pass") FileWriteLine($file,"Save Image Success") sleep($iSleepTime) Local $var3 = ControlGetText( "[ACTIVE]","", "[ID:65280]" ) $process2 = 'Output Image: '&$var3 FileWriteLine($file,$process2) sleep($iSleepTime) Global $iHandle3 = ControlGetHandle("[ACTIVE]","","[ID:65280]") if(@error == 1) Then FileWriteLine($file,"Cannot Get Handle") Else WinClose($iHandle3) Sleep($iSleepTime) WinClose($iHandle1) EndIf EndIf EndIf EndIf WinClose($iHandle3) WinClose($iHandle1) EndIf EndIf ElseIf($iType == 8) Then $strCombo3 = $str3&'.bmp' ControlCommand($winPixel,"",1082,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1082, "SelectString", $strCombo3) If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1082) sleep($iSleepTime) if($strOutPath == '24bit_' AND $strChannel = 'RED') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'RED') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) ElseIf($strOutPath == '24bit_' AND $strChannel = 'GREEN') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'GREEN') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) ElseIf($strOutPath == '24bit_' AND $strChannel = 'BLUE') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'GREEN') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) EndIf if($strCheckButton == 1) Then ControlCommand($winPixel,"", "Button6", "Check", "") if (@error == 1)Then FileWriteLine($file,"Error: Check Button Fail") Else FileWriteLine($file,"Check Buttton Pass") EndIf Elseif($strCheckButton == 0)Then ControlCommand($winPixel,"", "Button6", "UnCheck", "") if (@error == 1)Then FileWriteLine($file,"Error: UnCheck check Button Fail") Else FileWriteLine($file,"Uncheck Check Buttton Pass") EndIf EndIf Local $strClickOk = ControlClick($winPixel,"","Button8") if($strClickOk == 1) Then FileWriteLine($file,"Click OK Sucesss") sleep($iSleepTime) Local $warnOut = WinExists("ss","Please select an input image.") if $warnOut == 1 Then FileWriteLine($file,"Warning: Select An Input Image") Local $warnOK = ControlClick("ss","Please select an input image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf EndIf Local $strOutput = WinExists("ss","Min val ") if ($strOutput == 1) Then $strOutputText = WinGetText("ss","") FileWriteLine($file,$strOutputText) ControlClick("ss","","Button1") Else FileWriteLine($file,"Error: Cannot Produce the output") EndIf sleep($iSleepTime) Local $strClickCancel = ControlClick($winPixel,"","Button7") if($strClickCancel == 1) Then FileWriteLine($file,"Click Cancel button Sucesss") Else FileWriteLine($file,"Click Cancel Button Fail") EndIf WinClose($iHandle1) EndIf ElseIf($iType == 9) Then Local $setText = ControlSetText($winPixel,"","Edit1",$strGetPixelRow) if ($setText == 0) Then FileWriteLine($file,"Error: Set Row value Fail") Else FileWriteLine($file,"Set Row value Success") EndIf Local $setText1 = ControlSetText($winPixel,"","Edit2",$strGetPixelCol) if ($setText1 == 0) Then FileWriteLine($file,"Error: Set Col value Fail") Else FileWriteLine($file,"Set Col value Success") EndIf $strCombo3 = $str3&'.bmp' ControlCommand($winPixel,"",1082,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1082, "SelectString", $strCombo3) If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1082) sleep($iSleepTime) ControlCommand($winPixel,"",1083,"ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "",1083, "SelectString", 'NewImage') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"",1083) sleep($iSleepTime) if($strOutPath == '24bit_' AND $strChannel = 'RED') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'RED') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) ElseIf($strOutPath == '24bit_' AND $strChannel = 'GREEN') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'GREEN') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) ElseIf($strOutPath == '24bit_' AND $strChannel = 'BLUE') Then ControlCommand($winPixel,"","ComboBox6","ShowDropDown", "") if @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox ShowDropDown Fail") Else FileWriteLine($file,"Input Image ComboBox ShowDropDown Pass") EndIf ControlCommand($winPixel, "","ComboBox6", "SelectString", 'GREEN') If @error == 1 Then FileWriteLine($file,"Error: Input Image ComboBox Set String Fail") Else FileWriteLine($file,"Input Image ComboBox Set String Pass") EndIf ControlClick($winPixel,"","ComboBox6") sleep($iSleepTime) EndIf Local $setText3 = ControlSetText($winPixel,"","Edit3",$strGetPixelVal) if ($setText3 == 0) Then FileWriteLine($file,"Error: Set pixel value Fail") Else FileWriteLine($file,"Set pixel value Success") EndIf Local $strClickOk = ControlClick($winPixel,"","Button8") if($strClickOk == 1) Then FileWriteLine($file,"Click OK Sucesss") sleep($iSleepTime) Local $warnOut = WinExists("ss","Please select an input image.") if $warnOut == 1 Then FileWriteLine($file,"Warning: Select An Input Image") Local $warnOK = ControlClick("ss","Please select an input image.","Button1") if $warnOK == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut1 = WinExists("ss","Please enter a valid Width value.") if $warnOut1 == 1 Then FileWriteLine($file,"Warning: Please enter a valid Width value. ") Local $warnOK1 = ControlClick("ss","Please enter a valid Width value.","Button1") if $warnOK1 == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut2 = WinExists("ss","Please enter a valid Height value.") if $warnOut2 == 1 Then FileWriteLine($file,"Warning: Please enter a valid Height value.") Local $warnOK2 = ControlClick("ss","Please enter a valid Heigth value.","Button1") if $warnOK2 == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $warnOut3 = WinExists("ss","Please select an output image.") if $warnOut3 == 1 Then FileWriteLine($file,"Warning: Please select an output image.") Local $warnOK2 = ControlClick("ss","Please select an output image.","Button1") if $warnOK2 == 1 Then FileWriteLine($file,"Click Ok: Success") Sleep($iSleepTime) ControlClick($winPixel,"","Button7") Sleep($iSleepTime) ;MouseClick("Left",$iXCord,$iYCord,1) WinClose($iHandle1) Else FileWriteLine($file,"Warning: Click OK Fail") EndIf $iReset = 0 EndIf Local $iGetPixelText = ControlGetText($winPixel,"","Edit4") if @error == 1 Then FileWriteLine($file,"Error: Edit4 ControlGetText for Sum: Fail") Else FileWriteLine($file,"Edit4: ControlGetText Pass") $strTypeSum = 'Pixel value at row-'&$strGetPixelRow&'Column-'&$strGetPixelCol&' for image -'&$strCombo3&' is :'&$iGetPixelText FileWriteLine($file,$strTypeSum) EndIf sleep($iSleepTime) if($iReset == 1) Then ControlClick($winPixel,"","Button7") ControlClick("ss","",59398,"left",1,$iXClickFile,$iYClickFile) ControlClick("ss","",59398,"left",1,$iXClickSaveAs,$iYClickSaveAs) sleep($iSleepTime) Local $winSaveAs = WinWaitActive("Save As","") if($WinSaveAs == 0) Then FileWriteLine($file,"Error: File->SaveAs Window Not Active") Else $strType = '_'&$strGetPixelRow&'_'&$strGetPixelCol&'_'&$strGetPixelVal&'_SetPixel.bmp' FileWriteLine($file,"File->SaveAs Window is Active") $str31 = $strOut&$strType $strSaveFile = $str31 Local $strSave = ControlSetText($winSaveAs,"","Edit1",$strSaveFile) if($strSave == 0) Then FileWriteLine($file,"Error: SaveAs->ImagePath Set Text Fail") Else FileWriteLine($file,"SaveAs->ImagePath Set Text Pass") ControlClick($winSaveAs,"","Button1") ;Button2 for WinXP if @error == 1 Then FileWriteLine($file,"Error: Click On Save Fail") Else FileWriteLine($file,"Click On Save Pass") FileWriteLine($file,"Save Image Success") sleep($iSleepTime) Local $var3 = ControlGetText( "[ACTIVE]","", "[ID:65280]" ) $process2 = 'Output Image: '&$var3 FileWriteLine($file,$process2) sleep($iSleepTime) Global $iHandle3 = ControlGetHandle("[ACTIVE]","","[ID:65280]") if(@error == 1) Then FileWriteLine($file,"Cannot Get Handle") Else WinClose($iHandle3) Sleep($iSleepTime) WinClose($iHandle1) EndIf EndIf EndIf EndIf WinClose($iHandle3) WinClose($iHandle1) EndIf Local $strClickCancel = ControlClick($winPixel,"","Button7") if($strClickCancel == 1) Then FileWriteLine($file,"Click Cancel button Sucesss") Else FileWriteLine($file,"Click Cancel Button Fail") EndIf WinClose($iHandle1) Else FileWriteLine($file,"Error: Click Ok Fail") ControlClick($winPixel,"","Button7") WinClose($iHandle1) EndIf EndIf EndIf EndFunc

← 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 →

Note: See TracQuery for help on using queries.

Context Navigation

Custom Query

Results (34 - 36 of 3866)

Download in other formats: