monte Posted February 5, 2006 Share Posted February 5, 2006 Hello, I have a gui with a button and a check box. Upon entering the func called by the button, I want to execute something conditioned by the checkbox value. How do you test for the condition of the checkbox? I havn't been able to find the info anywhere (help, here, google). Thank you for you help. Here's my code: expandcollapse popup#include <GUIConstants.au3> #notrayicon $checkRun = "Emc Script" If WinExists($checkRun) Then Exit func sd($sdCheck) $vServerClip=clipget() $vServerString=stringsplit($vServerClip,@TAB) $vServer=$vServerString[22] if $sdCheck= 1 then runwait("C:\progra~1\lotus\notes\notes.exe myserver/server/folder!!folder\sd.nsf") winActivate("server") sleep(100) send("{F10}vw") sleep(100) send($vServer) send("{ENTER}{ENTER}") else $site0= ("https://myserver/0000/11111/tmp0") $site=stringreplace($site0,"tmp0",$vServer) dim $site[5] $site[1]= @ComSpec $site[2]= $site $site[3]= "" $site[4]= @SW_HIDE Run($site[1] & $site[2], $site[3], $site[4]) endif endfunc GUICreate("script", 400,280) $button1 = GUICtrlCreateButton ("sd", 60, 10, 40, 40, $BS_ICON) GUICtrlSetImage (-1, "C:\progra~1\lnotes.ico",0) $sdCheck = GUICtrlCreateCheckbox ("", 73, 50, 100, 20) GUISetState () While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Select Case $msg = $button1 sd($sdCheck) EndSelect WEnd Link to comment Share on other sites More sharing options...
MHz Posted February 5, 2006 Share Posted February 5, 2006 Use GuiCtrlRead to read the state of the checkbox. expandcollapse popup#include <GUIConstants.au3> #notrayicon $checkRun = "Emc Script" If WinExists($checkRun) Then Exit AutoitWinSetTitle($checkRun) Func sd($sdCheck) $vServerClip = ClipGet() $vServerString = StringSplit($vServerClip, @TAB) $vServer = $vServerString[22] If GUICtrlRead($sdCheck) = $GUI_CHECKED Then RunWait("C:\progra~1\lotus\notes\notes.exe myserver/server/folder!!folder\sd.nsf") WinActivate("server") Sleep(100) Send("{F10}vw") Sleep(100) Send($vServer) Send("{ENTER}{ENTER}") Else $site0= ("https://myserver/0000/11111/tmp0") $site = StringReplace($site0, "tmp0", $vServer) Dim $site[5] $site[1] = @ComSpec $site[2] = $site $site[3] = "" $site[4] = @SW_HIDE Run($site[1] & $site[2], $site[3], $site[4]) EndIf EndFunc GUICreate("script", 400, 280) $button1 = GUICtrlCreateButton("sd", 60, 10, 40, 40, $BS_ICON) GUICtrlSetImage(-1, "C:\progra~1\lnotes.ico", 0) $sdCheck = GUICtrlCreateCheckbox("", 73, 50, 100, 20) GUISetState() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Select Case $msg = $button1 sd($sdCheck) EndSelect WEnd Link to comment Share on other sites More sharing options...
monte Posted February 5, 2006 Author Share Posted February 5, 2006 MHz, thanks alot! That did it. You just answered in seconds what took me hours to not find! Thank you. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now