Jump to content

button run twice

tbaror

By tbaror,
in AutoIt GUI Help and Support

 Share

Recommended Posts

tbaror Adventurer

tbaror

Posted
  • Author
Posted

Hi,

i testing button click and the operation is occurred twice any idea why?

Thanks

HI,

the version i a using 3.2.8.1

here is the code below select the multiple -i and press ready

thanks

#include <File.au3>
#include <GUIConstants.au3>
;#include <GUITreeview.au3>
#include <GuiList.au3>
#include <Array.au3>

;#Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)
Dim $TstR
Dim $ManTest [10] [3]

$ManTest [0] [0]= ""
$ManTest [0] [1]= ""
$ManTest [1] [0]= ""
$ManTest [1] [1]= ""
$ManTest [2] [0]= ""
$ManTest [2] [1]= ""
$ManTest [3] [0]= ""
$ManTest [3] [1]= ""
$ManTest [4] [0]= ""
$ManTest [4] [1]= ""
$ManTest [5] [0]= ""
$ManTest [5] [1]= ""
$ManTest [6] [0]= ""
$ManTest [6] [1]= ""
$ManTest [7] [0]= ""
$ManTest [7] [1]= ""
$ManTest [8] [0]= ""
$ManTest [8] [1]= ""
$ManTest [9] [0]= "-f"
$ManTest [9] [1]= ""





Dim $AutTest [11] [2]

$AutTest [0] [0]= ""
$AutTest [0] [1]= ""
$AutTest [1] [0]= ""
$AutTest [1] [1]= ""
$AutTest [2] [0]= ""
$AutTest [2] [1]= ""
$AutTest [3] [0]= ""
$AutTest [3] [1]= ""
$AutTest [4] [0]= ""
$AutTest [4] [1]= ""
$AutTest [5] [0]= ""
$AutTest [5] [1]= ""
$AutTest [6] [0]= ""
$AutTest [6] [1]= ""
$AutTest [7] [0]= ""
$AutTest [7] [1]= ""
$AutTest [8] [0]= ""
$AutTest [8] [1]= ""
$AutTest [9] [0]= ""
$AutTest [9] [1]= ""
$AutTest [10] [0]= ""
$AutTest [10] [1]= ""



#Region ### START Koda GUI section ### Form=c:\documents and settings\talb\my documents\iozone.kxf
$AForm1_1 = GUICreate("IOZONE Agent", 766, 570, 204, 125)
GUISetBkColor(0xD4D0C8)
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1_1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "AForm1_1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "AForm1_1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "AForm1_1Restore")
$ATab1 = GUICtrlCreateTab(0, 0, 761, 569)
GUICtrlSetResizing($ATab1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("Manual Test Parameters")
$ACheckManrec = GUICtrlCreateCheckbox("Manual Record Size -r", 10, 108, 142, 17)
GUICtrlSetFont($ACheckManrec, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($ACheckManrec, "ACheckbox2Click")
$ACheckPrerec = GUICtrlCreateCheckbox("Pre ConfiguredRecord Size -r", 10, 75, 166, 17)
GUICtrlSetFont($ACheckPrerec, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($ACheckPrerec, "ACheckPrerecClick")
$AGroup1 = GUICtrlCreateGroup("Manual Test Parameters", 0, 57, 753, 465)
GUICtrlSetFont($AGroup1, 8, 400, 0, "Arial")
$AManSize = GUICtrlCreateInput("", 160, 104, 97, 22,$ES_NUMBER)
GUICtrlSetOnEvent($AManSize, "AManSizeChange")
GUICtrlSetState($AManSize, $GUI_DISABLE)
$Input2 = GUICtrlCreateInput("", 112, 144, 81, 22,$ES_NUMBER)
GUICtrlSetOnEvent($Input2, "Input2Change")
$Label1 = GUICtrlCreateLabel("File size to test -s", 8, 144, 89, 18)
GUICtrlSetOnEvent($Label1, "Label1Click")
$List2 = GUICtrlCreateList("", 270, 106, 41, 20)
GUICtrlSetData($List2,"k|m")
GUICtrlSetOnEvent($List2, "List2Click")

$List1 = GUICtrlCreateList("", 200, 144, 41, 20)
GUICtrlSetData($List1, "g|k|m")
GUICtrlSetOnEvent($List1, "List1Click")
$Label2 = GUICtrlCreateLabel("specify which tests to run. (0=write/rewrite etc...) -i", 8, 176, 256, 18)
GUICtrlSetOnEvent($Label2, "Label2Click")
$CheckSync1 = GUICtrlCreateCheckbox("Synchronous -o", 6, 336, 113, 17)
GUICtrlSetColor($CheckSync1, 0x000080)
GUICtrlSetOnEvent($CheckSync1, "CheckSync1Click")

$CheckQL1 = GUICtrlCreateCheckbox("Create offset/latency files  -Q", 6, 368, 161, 25)
GUICtrlSetOnEvent($CheckQL1, "CheckQL1Click")
$CheckexcelR1 = GUICtrlCreateCheckbox("Generate Excel report  -R", 6, 400, 145, 17)
GUICtrlSetOnEvent($CheckexcelR1, "CheckexcelR1Click")
$InputEXCELB1 = GUICtrlCreateInput("Report File name -b", 160, 400, 153, 22)
GUICtrlSetState($InputEXCELB1, $GUI_DISABLE)
GUICtrlSetOnEvent($InputEXCELB1, "InputEXCELB1Change")
$CheckWlocak1 = GUICtrlCreateCheckbox("Lock files when reading or writing -W", 400, 72, 225, 17)
GUICtrlSetFont($CheckWlocak1, 8, 800, 0, "Arial")
GUICtrlSetColor($CheckWlocak1, 0xFF0000)
GUICtrlSetOnEvent($CheckWlocak1, "CheckWlocak1Click")
$CheckIbypass1 = GUICtrlCreateCheckbox("bypass the buffer cache and go directly to disk -I", 400, 93, 297, 17)
GUICtrlSetFont($CheckIbypass1, 8, 800, 0, "Arial")
GUICtrlSetColor($CheckIbypass1, 0xFF0000)
GUICtrlSetOnEvent($CheckIbypass1, "CheckIbypass1Click")
$CheckASYNC1 = GUICtrlCreateCheckbox("MS_ASYNC -D", 126, 336, 105, 17)
GUICtrlSetColor($CheckASYNC1, 0x000080)
GUICtrlSetOnEvent($CheckASYNC1, "CheckASYNC1Click")
$CheckTrheads1 = GUICtrlCreateCheckbox("# of Threads -t (throughput mode)", 6, 429, 185, 17)
GUICtrlSetOnEvent($CheckTrheads1, "CheckTrheads1Click")
$ComboThreads1 = GUICtrlCreateCombo("# of Threads", 199, 434, 113, 25)
GUICtrlSetData($ComboThreads1, "1|2|3|4|5|6|7|8|")
GUICtrlSetOnEvent($ComboThreads1, "ComboThreads1Change")
GUICtrlSetState($ComboThreads1, $GUI_DISABLE)
$CheckPchach1 = GUICtrlCreateCheckbox("Processor cache size in Kbytes -S", 6, 463, 193, 17)
GUICtrlSetOnEvent($CheckPchach1, "CheckPchach1Click")
$InputPchach1 = GUICtrlCreateInput("Kbytes", 200, 464, 81, 22)
GUICtrlSetState($InputPchach1, $GUI_DISABLE)
GUICtrlSetOnEvent($InputPchach1, "InputPchach1Change")
$Listtestr = GUICtrlCreateList("", 8, 200, 73, 90, BitOR($LBS_SORT,$LBS_MULTIPLESEL,$LBS_STANDARD,$WS_VSCROLL,$WS_BORDER))
GUICtrlSetData($Listtestr, "-i0|-i1|-i10|-i11|-i12|-i2|-i3|-i5|-i6|-i7|-i8|-i9")
GUICtrlSetOnEvent($Listtestr, "ListtestrClick")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlSetState($AGroup1, $GUI_DISABLE)
$APresizek = GUICtrlCreateCombo("", 192, 72, 113, 25,$CBS_DROPDOWNLIST)
GUICtrlSetData($APresizek, "2k|4k|12k|16k|32k|64k|128k|256k|282k|360k|512k|1024k")
GUICtrlSetFont($APresizek, 8, 400, 0, "Arial")
GUICtrlSetTip(-1, "Kbytes Values")
GUICtrlSetOnEvent($APresizek, "APresizekChange")
$ReadyM = GUICtrlCreateButton("Ready", 8, 536, 90, 22, $BS_FLAT)
GUICtrlSetFont($ReadyM, 8, 400, 0, "Arial")
GUICtrlSetBkColor($ReadyM, 0xC0C0C0)
GUICtrlSetOnEvent($ReadyM, "ReadyMClick")
$Icon1 = GUICtrlCreateIcon("C:\Program Files\Internet Explorer\iexplore.exe", -5, 722, 25, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetOnEvent($Icon1, "Icon1Click")
$AgentM = GUICtrlCreateButton("Agent MODE", 210, 536, 90, 22, $BS_FLAT)
GUICtrlSetFont($AgentM, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($AgentM, "AgentMClick")
$TabSheet2 = GUICtrlCreateTabItem("Automatic Test Parameters")
$InputMinrec = GUICtrlCreateInput("Min Rec S", 125, 66, 81, 22)
GUICtrlSetFont($InputMinrec, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($InputMinrec, "InputMinrecChange")
GUICtrlSetState($InputMinrec, $GUI_DISABLE)
$InputMaxrec = GUICtrlCreateInput("Max Rec S", 423, 66, 81, 22)
GUICtrlSetFont($InputMaxrec, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($InputMaxrec, "InputMaxrecChange")
GUICtrlSetState($InputMaxrec, $GUI_DISABLE)
$ListMinrec = GUICtrlCreateList("", 212, 66, 41, 20)
GUICtrlSetData($ListMinrec, "g|k|m")
GUICtrlSetFont($ListMinrec, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($ListMinrec, "ListMinrecClick")
GUICtrlSetState($ListMinrec, $GUI_DISABLE)
$ListMaxrec = GUICtrlCreateList("", 515, 66, 41, 20)
GUICtrlSetData($ListMaxrec, "g|k|m")
GUICtrlSetFont($ListMaxrec, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($ListMaxrec, "ListMaxrecClick")
GUICtrlSetState($ListMaxrec, $GUI_DISABLE)
$CheckMinrec1 = GUICtrlCreateCheckbox("Min Record Size -y", 10, 66, 113, 17)
GUICtrlSetFont($CheckMinrec1, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckMinrec1, "CheckMinrec1Click")
$CheckMaxrec = GUICtrlCreateCheckbox("Max Record Size -q", 296, 64, 121, 25)
GUICtrlSetFont($CheckMaxrec, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckMaxrec, "CheckMaxrecClick")
$CheckMinfs = GUICtrlCreateCheckbox("Min File Size -n", 10, 128, 105, 17)
GUICtrlSetFont($CheckMinfs, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckMinfs, "CheckMinfsClick")
$InputMinfs = GUICtrlCreateInput("Min File S", 120, 125, 81, 22)
GUICtrlSetFont($InputMinfs, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($InputMinfs, "InputMinfsChange")
GUICtrlSetState($InputMinfs, $GUI_DISABLE)
$ListMinfs = GUICtrlCreateList("", 214, 125, 41, 20)
GUICtrlSetData($ListMinfs, "k")
GUICtrlSetFont($ListMinfs, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($ListMinfs, "ListMinfsClick")
GUICtrlSetState($ListMinfs, $GUI_DISABLE)
$CheckMaxfs = GUICtrlCreateCheckbox("Max File Size -g", 296, 124, 100, 17)
GUICtrlSetFont($CheckMaxfs, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckMaxfs, "CheckMaxfsClick")
$InputMaxfs = GUICtrlCreateInput("Max Rec S", 398, 124, 81, 22)
GUICtrlSetFont($InputMaxfs, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($InputMaxfs, "InputMaxfsChange")
GUICtrlSetState($InputMaxfs, $GUI_DISABLE)
$ListMaxfs = GUICtrlCreateList("", 489, 124, 41, 20)
GUICtrlSetData($ListMaxfs, "k")
GUICtrlSetFont($ListMaxfs, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($ListMaxfs, "List5Click")
GUICtrlSetState($ListMaxfs, $GUI_DISABLE)
$CheckQL2 = GUICtrlCreateCheckbox("Create offset/latency files  -Q", 10, 286, 161, 25)
GUICtrlSetFont($CheckQL2, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckQL2, "CheckQL2Click")
$Checkzrec = GUICtrlCreateCheckbox("Test all possible record sizes -z", 10, 175, 177, 25)
GUICtrlSetFont($Checkzrec, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($Checkzrec, "CheckzrecClick")
$CheckAsync2 = GUICtrlCreateCheckbox("MS_ASYNC -D", 10, 214, 89, 17)
GUICtrlSetFont($CheckAsync2, 8, 400, 0, "Arial")
GUICtrlSetColor($CheckAsync2, 0x000080)
GUICtrlSetOnEvent($CheckAsync2, "CheckAsync2Click")
$CheckSync2 = GUICtrlCreateCheckbox("Synchronous -o", 122, 214, 113, 17)
GUICtrlSetFont($CheckSync2, 8, 400, 0, "Arial")
GUICtrlSetColor($CheckSync2, 0x000080)
GUICtrlSetOnEvent($CheckSync2, "CheckSync2Click")
$CheckexcelR2 = GUICtrlCreateCheckbox("Generate Excel report  -R", 10, 321, 145, 17)
GUICtrlSetFont($CheckexcelR2, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckexcelR2, "CheckexcelR2Click")
$InputEXCELB2 = GUICtrlCreateInput("Report File name -b", 163, 321, 153, 22)
GUICtrlSetFont($InputEXCELB2, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($InputEXCELB2, "InputEXCELB2Change")
$CheckWlocak2 = GUICtrlCreateCheckbox("Lock files when reading or writing -W", 458, 206, 225, 17)
GUICtrlSetFont($CheckWlocak2, 8, 800, 0, "Arial")
GUICtrlSetColor($CheckWlocak2, 0xFF0000)
GUICtrlSetOnEvent($CheckWlocak2, "CheckWlocak2Click")
$CheckIbypass2 = GUICtrlCreateCheckbox("bypass the buffer cache and go directly to disk -I", 458, 242, 297, 17)
GUICtrlSetFont($CheckIbypass2, 8, 800, 0, "Arial")
GUICtrlSetColor($CheckIbypass2, 0xFF0000)
GUICtrlSetOnEvent($CheckIbypass2, "CheckIbypass2Click")
$CheckTrheads2 = GUICtrlCreateCheckbox("# of Threads -t (throughput mode)", 10, 362, 185, 17)
GUICtrlSetFont($CheckTrheads2, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckTrheads2, "CheckTrheads2Click")
$ComboThreads2 = GUICtrlCreateCombo("# of Threads", 201, 362, 113, 25)
GUICtrlSetData($ComboThreads2, "1|2|3|4|5|6|7|8|")
GUICtrlSetFont($ComboThreads2, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($ComboThreads2, "ComboThreads2Change")
GUICtrlSetState($ComboThreads2, $GUI_DISABLE)
$Icon3 = GUICtrlCreateIcon("D:\Program Files\SolarWinds\Engineer's Toolset\SWLauncher.exe", 0, 720, 32, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetOnEvent($Icon3, "Icon3Click")
$ReadyA = GUICtrlCreateButton("Ready", 10, 536, 90, 22, $BS_FLAT)
GUICtrlSetFont($ReadyA, 8, 400, 0, "Arial")
GUICtrlSetBkColor($ReadyA, 0xC0C0C0)
GUICtrlSetOnEvent($ReadyA, "ReadyAClick")
$AgentA = GUICtrlCreateButton("Agent MODE", 210, 536, 90, 22, $BS_FLAT)
GUICtrlSetFont($AgentA, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($AgentA, "AgentAClick")
$TabSheet3 = GUICtrlCreateTabItem("Storage/NAS Settings")
$Thread4 = GUICtrlCreateInput("Thread4", 69, 472, 169, 22)
GUICtrlSetFont($Thread4, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($Thread4, "Thread4Change")
GUICtrlSetState($Thread4, $GUI_DISABLE)
$Thread3 = GUICtrlCreateInput("Thread3", 69, 427, 169, 22)
GUICtrlSetFont($Thread3, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($Thread3, "Thread3Change")
GUICtrlSetState($Thread3, $GUI_DISABLE)
$Thread2 = GUICtrlCreateInput("Thread2", 68, 390, 169, 22)
GUICtrlSetFont($Thread2, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($Thread2, "Thread2Change")
GUICtrlSetState($Thread2, $GUI_DISABLE)
$Thread1 = GUICtrlCreateInput("Thread1", 69, 352, 169, 22)
GUICtrlSetFont($Thread1, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($Thread1, "Thread1Change")
GUICtrlSetState($Thread1, $GUI_DISABLE)
$Thread5 = GUICtrlCreateInput("Thread5", 320, 352, 169, 22)
GUICtrlSetFont($Thread5, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($Thread5, "Thread5Change")
GUICtrlSetState($Thread5, $GUI_DISABLE)
$Thread6 = GUICtrlCreateInput("Thread6", 320, 390, 169, 22)
GUICtrlSetFont($Thread6, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($Thread6, "Thread6Change")
GUICtrlSetState($Thread6, $GUI_DISABLE)
$Thread7 = GUICtrlCreateInput("Thread7", 320, 427, 169, 22)
GUICtrlSetFont($Thread7, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($Thread7, "Thread7Change")
GUICtrlSetState($Thread7, $GUI_DISABLE)
$Tread8 = GUICtrlCreateInput("Thread8", 320, 472, 169, 22)
GUICtrlSetFont($Tread8, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($Tread8, "Tread8Change")
GUICtrlSetState($Tread8, $GUI_DISABLE)
$CheckFILE2 = GUICtrlCreateCheckbox("-F filename equal to the number of threads that are specified (-t)", 48, 312, 345, 25)
GUICtrlSetFont($CheckFILE2, 8, 400, 0, "Arial")
GUICtrlSetState($CheckFILE2, $GUI_DISABLE)
GUICtrlSetOnEvent($CheckFILE2, "CheckFILE2Click")
$CheckFILE1 = GUICtrlCreateCheckbox("-f Filename for the temporary file under test", 24, 56, 233, 17)
GUICtrlSetFont($CheckFILE1, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckFILE1, "CheckFILE1Click")
GUICtrlSetState($CheckFILE1, $GUI_CHECKED)
$Flocation = GUICtrlCreateInput("please fill with drive letter (eg. c:\)or UNC path", 24, 80, 225, 22)
GUICtrlSetFont($Flocation, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($Flocation, "Flocationchange")
GUICtrlSetState($Flocation, $GUI_ENABLE)
$CheckT1 = GUICtrlCreateCheckbox("CheckT1", 48, 352, 17, 17)
GUICtrlSetFont($CheckT1, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckT1, "CheckT1Click")
GUICtrlSetState($CheckT1, $GUI_DISABLE)
$Checkbox24 = GUICtrlCreateCheckbox("CheckT2", 48, 390, 17, 17)
GUICtrlSetFont($Checkbox24, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($Checkbox24, "Checkbox24Click")
GUICtrlSetState($Checkbox24, $GUI_DISABLE)
$CheckT3 = GUICtrlCreateCheckbox("CheckT3", 48, 427, 17, 17)
GUICtrlSetFont($CheckT3, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckT3, "CheckT3Click")
GUICtrlSetState($CheckT3, $GUI_DISABLE)
$CheckT4 = GUICtrlCreateCheckbox("CheckT4", 48, 472, 17, 17)
GUICtrlSetFont($CheckT4, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckT4, "CheckT4Click")
GUICtrlSetState($CheckT4, $GUI_DISABLE)
$CheckT5 = GUICtrlCreateCheckbox("CheckT5", 293, 352, 17, 17)
GUICtrlSetFont($CheckT5, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckT5, "CheckT5Click")
GUICtrlSetState($CheckT5, $GUI_DISABLE)
$CheckT6 = GUICtrlCreateCheckbox("CheckT6", 293, 390, 17, 17)
GUICtrlSetFont($CheckT6, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckT6, "CheckT6Click")
GUICtrlSetState($CheckT6, $GUI_DISABLE)
$CheckT7 = GUICtrlCreateCheckbox("CheckT7", 293, 427, 17, 17)
GUICtrlSetFont($CheckT7, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckT7, "CheckT7Click")
GUICtrlSetState($CheckT7, $GUI_DISABLE)
$CheckT8 = GUICtrlCreateCheckbox("CheckT8", 293, 472, 17, 17)
GUICtrlSetFont($CheckT8, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($CheckT8, "CheckT8Click")
GUICtrlSetState($CheckT8, $GUI_DISABLE)
$Fname = GUICtrlCreateInput("File name to test", 272, 80, 121, 22)
GUICtrlSetFont($Fname, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($Fname, "FnameChange")
GUICtrlSetState($Fname, $GUI_ENABLE)
$ButtonRun = GUICtrlCreateButton("Run", 27, 527, 90, 22, $BS_FLAT)
GUICtrlSetFont($ButtonRun, 8, 400, 0, "Arial")
GUICtrlSetBkColor($ButtonRun, 0xC0C0C0)
GUICtrlSetOnEvent($ButtonRun, "ButtonRunClick")
$BatchButton = GUICtrlCreateButton("Save Batch", 156, 527, 90, 22, $BS_FLAT)
GUICtrlSetFont($BatchButton, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($BatchButton, "BatchButtonclick")
$ButtonS = GUICtrlCreateButton("Agent MODE", 299, 526, 90, 22, $BS_FLAT)
GUICtrlSetFont($ButtonS, 8, 400, 0, "Arial")
GUICtrlSetOnEvent($ButtonS, "ButtonSClick")
$TabSheet4 = GUICtrlCreateTabItem("Agent Settings")
$Icon2 = GUICtrlCreateIcon("C:\Program Files\Internet Explorer\iexplore.exe", -13, 720, 24, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetOnEvent($Icon2, "Icon2Click")
GUICtrlCreateTabItem("")
GUICtrlSetOnEvent($ATab1, "ATab1Change")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
       Sleep(100)
   WEnd
   
#Region ### START Manual Test TAB #################################

Func ACheckbox2Click()
    $manCstate  = GUICtrlRead($ACheckManrec)
    If $manCstate = $GUI_CHECKED Then
        
    GUICtrlSetState ($AManSize, $GUI_ENABLE)
    GUICtrlSetState ($ACheckPrerec, $GUI_DISABLE)
    GUICtrlSetState ($APresizek, $GUI_DISABLE)
    $ManTest [0] [2]= "B"

ElseIf $manCstate = $GUI_UNCHECKED Then
    
    GUICtrlSetState ($ACheckPrerec, $GUI_ENABLE)
    GUICtrlSetState ($AManSize, $GUI_DISABLE)
    $ManTest [0] [0]= ""
    $ManTest [0] [1]= ""
    $ManTest [0] [2]= ""
    EndIf

EndFunc



Func ACheckPrerecClick()
    $menustate  = GUICtrlRead($ACheckPrerec)
    If $menustate = $GUI_CHECKED Then
        
    GUICtrlSetState ($APresizek, $GUI_ENABLE)
    GUICtrlSetState ($ACheckManrec, $GUI_DISABLE)
    GUICtrlSetState ($AManSize, $GUI_DISABLE)
    $ManTest [0] [2]= "A"

ElseIf $menustate = $GUI_UNCHECKED Then
    
    GUICtrlSetState ($ACheckManrec, $GUI_ENABLE)
    GUICtrlSetState ($APresizek, $GUI_DISABLE)
    $ManTest [0] [0]= ""
    $ManTest [0] [1]= ""
    $ManTest [0] [2]= ""
    
    EndIf
EndFunc

;#ASYNC -D #######

Func CheckASYNC1Click()
    
    $manCstate  = GUICtrlRead($CheckASYNC1)
    If $manCstate = $GUI_CHECKED Then
        
    GUICtrlSetState ($CheckSync1, $GUI_DISABLE)
    $ManTest [3] [0]= "-D"
    $ManTest [3] [1]= ""

ElseIf $manCstate = $GUI_UNCHECKED Then
    
    GUICtrlSetState ($CheckSync1, $GUI_ENABLE)
    $ManTest [3] [0]= ""
    $ManTest [3] [1]= ""
    
    EndIf

EndFunc


;#ASYNC -o #######

Func CheckSync1Click()
    $manCstate  = GUICtrlRead($CheckSync1)
    If $manCstate = $GUI_CHECKED Then
        
    GUICtrlSetState ($CheckASYNC1, $GUI_DISABLE)
    $ManTest [3] [0]= "-O"
    $ManTest [3] [1]= ""

ElseIf $manCstate = $GUI_UNCHECKED Then
    
    GUICtrlSetState ($CheckASYNC1, $GUI_ENABLE)
    $ManTest [3] [0]= ""
    $ManTest [3] [1]= ""
    
    EndIf

EndFunc






Func CheckexcelR1Click()
    
    $menustate  = GUICtrlRead($CheckexcelR1)
    If $menustate = $GUI_CHECKED Then
        
    GUICtrlSetState ($InputEXCELB1, $GUI_ENABLE)
    $ManTest [5] [0]= "-Rb"
    $ManTest [5] [1]= ""

ElseIf $menustate = $GUI_UNCHECKED Then
    
    GUICtrlSetState ($InputEXCELB1, $GUI_DISABLE)
    $ManTest [5] [0]= ""
    $ManTest [5] [1]= ""
    
    EndIf

EndFunc



Func CheckIbypass1Click()
    

    $manCstate  = GUICtrlRead($CheckIbypass1)
    If $manCstate = $GUI_CHECKED Then
        
    $ManTest [9] [0]= "-I"
    $ManTest [9] [1]= ""

ElseIf $manCstate = $GUI_UNCHECKED Then
    
    $ManTest [9] [0]= ""
    $ManTest [9] [1]= ""
    
    EndIf


EndFunc



Func CheckPchach1Click()
    
    $manCstate  = GUICtrlRead($CheckPchach1)
    If $manCstate = $GUI_CHECKED Then
    GUICtrlSetState ($InputPchach1, $GUI_ENABLE)    
    $ManTest [7] [0]= "-S"
    $ManTest [7] [1]= ""

ElseIf $manCstate = $GUI_UNCHECKED Then
    
    GUICtrlSetState ($InputPchach1, $GUI_DISABLE)
    $ManTest [7] [0]= ""
    $ManTest [7] [1]= ""
    
    EndIf
    

EndFunc


Func CheckQL1Click()
    
    $manCstate  = GUICtrlRead($CheckQL1)
    If $manCstate = $GUI_CHECKED Then
        
    $ManTest [4] [0]= "-Q"
    $ManTest [4] [1]= ""

ElseIf $manCstate = $GUI_UNCHECKED Then
    
    $ManTest [4] [0]= ""
    $ManTest [4] [1]= ""
    
    EndIf

EndFunc





Func CheckTrheads1Click()
    
    $menustate  = GUICtrlRead($CheckTrheads1)
    If $menustate = $GUI_CHECKED Then
    GUICtrlSetState ($ComboThreads1, $GUI_ENABLE)
    GUICtrlSetState ($CheckFILE1, $GUI_UNCHECKED)
    GUICtrlSetState ($CheckFILE1, $GUI_DISABLE)
    GUICtrlSetState ($Flocation, $GUI_DISABLE)
    GUICtrlSetState ($Fname, $GUI_DISABLE)
    GUICtrlSetState ($CheckFILE2, $GUI_ENABLE)
    GUICtrlSetState ($CheckFILE2, $GUI_CHECKED)
    $ManTest [6] [0]= "-t"
    $ManTest [6] [1]= ""
    $ManTest [9] [0]= "-F"
    $ManTest [9] [1]= ""
    

ElseIf $menustate = $GUI_UNCHECKED Then
    
    GUICtrlSetState ($CheckFILE2, $GUI_UNCHECKED)
    GUICtrlSetState ($ComboThreads1, $GUI_DISABLE)
    GUICtrlSetState ($CheckFILE1, $GUI_ENABLE)
    GUICtrlSetState ($Flocation, $GUI_ENABLE)
    GUICtrlSetState ($Fname, $GUI_ENABLE)
    GUICtrlSetState ($CheckFILE2, $GUI_DISABLE)
    $ManTest [6] [0]= ""
    $ManTest [6] [1]= ""
    $ManTest [9] [0]= "-f"
    $ManTest [9] [1]= ""
    
    EndIf
    
EndFunc



Func CheckWlocak1Click()
    
    $manCstate  = GUICtrlRead($CheckWlocak1)
    If $manCstate = $GUI_CHECKED Then
        
    $ManTest [8] [0]= "-W"
    $ManTest [8] [1]= ""
    

ElseIf $manCstate = $GUI_UNCHECKED Then
    
    $ManTest [8] [0]= ""
    $ManTest [8] [1]= ""
    
    EndIf

EndFunc


;###########Ready Button Clicked routine #############################################
Func ReadyMClick()
    
    
    
;########### start-r record size ###################################    
    If  $ManTest [0] [2]= "" Then
        MsgBox(16, "Error","Record size MUST BE SELECTED")
        Return
        
    ElseIf $ManTest [0] [2] = "A" Then
        $ManTest [0] [1] = GUICtrlRead($APresizek)
        
        
    ElseIf $ManTest [0] [2] = "B" And GUICtrlRead ($List2) = "" Then
        $Recu = GUICtrlRead ($List2)
        MsgBox(16, "Error","Record size Unit BE SELECTED")
        Return
    
    ElseIf $ManTest [0] [2] = "B" and GUICtrlRead ($List2) <> "" Then
        $Recu = GUICtrlRead ($List2)
        $ManTest [0] [1] = GUICtrlRead ($AManSize)  & GUICtrlRead ($List2)
    ;$ManTest [0] [1] = $ManTest [0] [1] 
            
    
EndIf

;########### End -r record size ################################### 



;########### start-s Test File size ################################


$ManTest [1] [0] = "-s"
$ManTest [1] [1] = GUICtrlRead($Input2)

If  $ManTest [1] [1]= "" Then
        MsgBox(16, "Error","Test File size MUST BE SELECTED")
        Return
        
        
    ElseIf GUICtrlRead($List1) = "" Then
        
        MsgBox(16, "Error","Test file size Unit MUST BE SELECTED")
        Return
    
    Else 
        
        $ManTest [1] [1] = $ManTest [1] [1]  & GUICtrlRead ($List1)
    ;$ManTest [0] [1] = $ManTest [0] [1] 
            
        
    EndIf       


;########### End-s Test File size ################################





;########### start-i Test Type ###################################  
   $TstR = _GUICtrlListGetSelItemsText($Listtestr)
   
    If $TstR = "" then 
        MsgBox(16, "Error","TEST MUST BE SELECTED")
        Return

         
    Else
        For $i = 1 To $TstR[0] 
         $ManTest [2] [1] =  $ManTest [2] [1] & " " &  $TstR[$i]
     Next
     MsgBox(0, "Selected from", $ManTest [2] [1])
    EndIf
;########### End-i Test Type ###################################
 
 
 
 
;########### start-Rb Excel report file ################################

If  $ManTest [5] [0]= "-Rb" And GUICtrlRead ($InputEXCELB1) = "" Then
        MsgBox(16, "Error","Excel File name MUST BE Filled")
        Return
        
        
    ElseIf $ManTest [5] [0]= "-Rb" And GUICtrlRead ($InputEXCELB1) <> "" Then
        
        $ManTest [5] [1] = GUICtrlRead ($InputEXCELB1)
        MsgBox(16, "",$ManTest [5] [0] & $ManTest [5] [1])
    EndIf       



;########### End -Rb Excel report file ################################



;########### start -t thread test######################################

If  $ManTest [6] [0]= "-t" And GUICtrlRead ($ComboThreads1) = "" Then
        MsgBox(16, "Error","Nuber of Thread MUST BE Selected")
        Return
        
        
    ElseIf $ManTest [6] [0]= "-t" And GUICtrlRead ($ComboThreads1) = "1" Then
        $ManTest [6] [1] = GUICtrlRead ($ComboThreads1)
        GUICtrlSetState ($Thread1, $GUI_ENABLE)
        
    
    ElseIf $ManTest [6] [0]= "-t" And GUICtrlRead ($ComboThreads1) = "2" Then
        $ManTest [6] [1] = GUICtrlRead ($ComboThreads1)
        GUICtrlSetState ($Thread1, $GUI_ENABLE)
        GUICtrlSetState ($Thread2, $GUI_ENABLE)
        
    ElseIf $ManTest [6] [0]= "-t" And GUICtrlRead ($ComboThreads1) = "3" Then
        $ManTest [6] [1] = GUICtrlRead ($ComboThreads1)
        GUICtrlSetState ($Thread1, $GUI_ENABLE)
        GUICtrlSetState ($Thread2, $GUI_ENABLE)
        GUICtrlSetState ($Thread3, $GUI_ENABLE)
        
    ElseIf $ManTest [6] [0]= "-t" And GUICtrlRead ($ComboThreads1) = "4" Then
        $ManTest [6] [1] = GUICtrlRead ($ComboThreads1)
        GUICtrlSetState ($Thread1, $GUI_ENABLE)
        GUICtrlSetState ($Thread2, $GUI_ENABLE)
        GUICtrlSetState ($Thread3, $GUI_ENABLE)
        GUICtrlSetState ($Thread4, $GUI_ENABLE)
        
    ElseIf $ManTest [6] [0]= "-t" And GUICtrlRead ($ComboThreads1) = "5" Then
        $ManTest [6] [1] = GUICtrlRead ($ComboThreads1)
        GUICtrlSetState ($Thread1, $GUI_ENABLE)
        GUICtrlSetState ($Thread2, $GUI_ENABLE)
        GUICtrlSetState ($Thread3, $GUI_ENABLE)
        GUICtrlSetState ($Thread4, $GUI_ENABLE)
        GUICtrlSetState ($Thread5, $GUI_ENABLE)
        
    ElseIf $ManTest [6] [0]= "-t" And GUICtrlRead ($ComboThreads1) = "6" Then
        $ManTest [6] [1] = GUICtrlRead ($ComboThreads1)
        GUICtrlSetState ($Thread1, $GUI_ENABLE)
        GUICtrlSetState ($Thread2, $GUI_ENABLE)
        GUICtrlSetState ($Thread3, $GUI_ENABLE)
        GUICtrlSetState ($Thread4, $GUI_ENABLE)
        GUICtrlSetState ($Thread5, $GUI_ENABLE)
        GUICtrlSetState ($Thread6, $GUI_ENABLE)
        
    ElseIf $ManTest [6] [0]= "-t" And GUICtrlRead ($ComboThreads1) = "7" Then
        $ManTest [6] [1] = GUICtrlRead ($ComboThreads1)
        GUICtrlSetState ($Thread1, $GUI_ENABLE)
        GUICtrlSetState ($Thread2, $GUI_ENABLE)
        GUICtrlSetState ($Thread3, $GUI_ENABLE)
        GUICtrlSetState ($Thread4, $GUI_ENABLE)
        GUICtrlSetState ($Thread5, $GUI_ENABLE)
        GUICtrlSetState ($Thread6, $GUI_ENABLE)
        GUICtrlSetState ($Thread7, $GUI_ENABLE)
        
    ElseIf $ManTest [6] [0]= "-t" And GUICtrlRead ($ComboThreads1) = "8" Then
        $ManTest [6] [1] = GUICtrlRead ($ComboThreads1)
        GUICtrlSetState ($Thread1, $GUI_ENABLE)
        GUICtrlSetState ($Thread2, $GUI_ENABLE)
        GUICtrlSetState ($Thread3, $GUI_ENABLE)
        GUICtrlSetState ($Thread4, $GUI_ENABLE)
        GUICtrlSetState ($Thread5, $GUI_ENABLE)
        GUICtrlSetState ($Thread6, $GUI_ENABLE)
        GUICtrlSetState ($Thread7, $GUI_ENABLE)
        GUICtrlSetState ($Tread8, $GUI_ENABLE)
        
    
    EndIf   





;########### End -t thread test######################################
 
 
 
EndFunc  ;==>Click

Func CLOSEClicked()
   MsgBox(0, "GUI Event", "You clicked CLOSE! Exiting...")
  ;;Exit
ConsoleWrite("close ended" & @CRLF)

EndFunc

Func APresizekChange()

EndFunc


Func AgentMClick()

EndFunc

#EndRegion ### END Manual Test TAB ########################

#Region ### START Global Form #################################
Func AForm1_1Close()
Exit
EndFunc
Func AForm1_1Maximize()

EndFunc
Func AForm1_1Minimize()

EndFunc

Func AForm1_1Restore()
    
EndFunc

#EndRegion ### END Global Form ########################
    
Func CheckQL2Click()



EndFunc

Func AgentAClick()

EndFunc

Func AManSizeChange()

EndFunc

Func ATab1Change()

EndFunc
Func BatchButtonclick()

EndFunc




;#### start RUN Manual Test Button ########################
Func ButtonRunClick()
    
    
    
$ST = StringTrimLeft ( ($ManTest [9] [0]), 1 )  
 
If StringIsLower($ST) Then
    $ManTest [9] [1] = GUICtrlRead ($Flocation)
    $ManTest [9] [1] = $ManTest [9] [1] & GUICtrlRead ($Fname)

ElseIf StringIsUpper($ST) Then 
    MsgBox(16, "",$ManTest [9] [0])
    
EndIf







EndFunc

;#### end RUN Manual Test Button ########################


Func ButtonSClick()

EndFunc


Func CheckAsync2Click()

EndFunc
Func Checkbox24Click()

EndFunc

Func CheckexcelR2Click()

EndFunc
Func CheckFILE1Click()

EndFunc
Func CheckFILE2Click()
    
        $menustate  = GUICtrlRead($CheckFILE2)
    
    If $menustate = $GUI_UNCHECKED Then
    
    GUICtrlSetState ($ComboThreads1, $GUI_DISABLE)
    GUICtrlSetState ($CheckFILE1, $GUI_ENABLE)
    GUICtrlSetState ($Flocation, $GUI_ENABLE)
    GUICtrlSetState ($Fname, $GUI_ENABLE)
    GUICtrlSetState ($CheckFILE2, $GUI_DISABLE)
        GUICtrlSetState ($Thread1, $GUI_DISABLE)
        GUICtrlSetState ($Thread2, $GUI_DISABLE)
        GUICtrlSetState ($Thread3, $GUI_DISABLE)
        GUICtrlSetState ($Thread4, $GUI_DISABLE)
        GUICtrlSetState ($Thread5, $GUI_DISABLE)
        GUICtrlSetState ($Thread6, $GUI_DISABLE)
        GUICtrlSetState ($Thread7, $GUI_DISABLE)
        GUICtrlSetState ($Tread8, $GUI_DISABLE)
        GUICtrlSetState ($CheckTrheads1, $GUI_UNCHECKED)
    $ManTest [6] [0]= ""
    $ManTest [6] [1]= ""
    $ManTest [9] [0]= "-f"
    $ManTest [9] [1]= ""
    
    EndIf

EndFunc


Func CheckIbypass2Click()

EndFunc
Func CheckMaxfsClick()

EndFunc
Func CheckMaxrecClick()

EndFunc
Func CheckMinfsClick()

EndFunc
Func CheckMinrec1Click()

EndFunc

Func CheckSync2Click()

EndFunc
Func CheckT1Click()

EndFunc
Func CheckT3Click()

EndFunc
Func CheckT4Click()

EndFunc
Func CheckT5Click()

EndFunc
Func CheckT6Click()

EndFunc
Func CheckT7Click()

EndFunc
Func CheckT8Click()

EndFunc


Func CheckTrheads2Click()

EndFunc


Func CheckWlocak2Click()

EndFunc
Func CheckzrecClick()

EndFunc
Func ComboThreads1Change()

EndFunc
Func ComboThreads2Change()

EndFunc
Func Flocationchange()

EndFunc
Func FnameChange()

EndFunc
Func Icon1Click()

EndFunc
Func Icon2Click()

EndFunc
Func Icon3Click()

EndFunc
Func Input2Change()
    

EndFunc
Func InputEXCELB1Change()

EndFunc
Func InputEXCELB2Change()

EndFunc

Func InputMaxfsChange()

EndFunc
Func InputMaxrecChange()

EndFunc
Func InputMinfsChange()

EndFunc
Func InputMinrecChange()

EndFunc
Func InputPchach1Change()

EndFunc
Func Label1Click()

EndFunc
Func Label2Click()

EndFunc
Func List1Click()

EndFunc

Func List2Click()

EndFunc

Func List5Click()

EndFunc
Func ListMaxrecClick()

EndFunc
Func ListMinfsClick()

EndFunc
Func ListMinrecClick()

EndFunc
Func ListtestrClick()

EndFunc

Func ReadyAClick()

EndFunc



Func Thread1Change()

EndFunc
Func Thread2Change()

EndFunc
Func Thread3Change()

EndFunc
Func Thread4Change()

EndFunc
Func Thread5Change()

EndFunc
Func Thread6Change()

EndFunc
Func Thread7Change()

EndFunc
Func Tread8Change()

EndFunc
Link to comment
Share on other sites
  • Developers
Jos Universalist

Jos

Posted
  • Developers
Posted

Try the last Beta:

3.2.9.2 (21th September, 2007) (Beta)

- Changed: PCRE regular expression engine updated to 7.4.

- Added: ProcessGetStats().

- Fixed: Extra notification on colored button. (Thanks livewire)

SciTE4AutoIt3 Full installer Download page   - Beta files       Read before posting     How to post scriptsource   Forum etiquette  Forum Rules 
 
Live for the present,
Dream of the future,
Learn from the past.  :)

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...