anub13

Combo Box Read Value Bugging

8 posts in this topic

#1 ·  Posted

Hi,

I am having difficulties wondering why my code bugging like this,
the symptom : I have a form with combo box, and details in bottom of the app, when user choose another option the details changes immediately but when I go to details, it goes up and down endlessly

here is the code

 

Global $cChkPatrol, $YES= "YES", $NO = "NO"

if GUICtrlRead($combo1) = "YES" Then
    $cChkPatrol = $YES
Else
    $cChkPatrol = $NO
EndIf

func StartForm()

    GUICtrlSetData($txtInfo,"ADDITIONAL INFORMATION THAT WILL BE SENT WITH THE MESSAGE:" & @CRLF & asdfgSystemInfo())
    GUISetState(@SW_SHOW)
    AdlibRegister("_CheckPatrol")
    While 1
        $nMsg = GUIGetMsg()
        Select
            case $nMsg = $txtEmailAddress
                GUICtrlSetData($txtInfo,"ADDITIONAL INFORMATION THAT WILL BE SENT WITH THE MESSAGE:" & @CRLF & asdfgSystemInfo())
            case $nMsg = $txtPhone
                GUICtrlSetData($txtInfo,"ADDITIONAL INFORMATION THAT WILL BE SENT WITH THE MESSAGE:" & @CRLF & asdfgSystemInfo())

            case $nMsg = $txtFullName
                GUICtrlSetData($txtInfo,"ADDITIONAL INFORMATION THAT WILL BE SENT WITH THE MESSAGE:" & @CRLF & asdfgSystemInfo())

            case $nMsg = $cChkPatrol
                GUICtrlSetData($txtInfo,"ADDITIONAL INFORMATION THAT WILL BE SENT WITH THE MESSAGE:" & @CRLF & asdfgSystemInfo())
            case $nMsg = $cmdScreenShot
                $gScreenShotFile =  SaveScreenShot()

            case $nMsg = $cmdSubmit
                if ValidateForm() then
                    if asdfgSubmit() Then
                        UpdateStatus("Your request has been sent successfully")
                        MsgBox(0,"Help Requested","Your request has been sent successfully")
                        ExitLoop
                    Else

                        MsgBox(0,"Help Failed","Something is wrong you request was not sent, please try again")

                    Endif
                endIf
            case $nMsg = $cmdAttach
                $gAttachFile = AttachFile()

            Case $nMsg = $GUI_EVENT_CLOSE
                ExitLoop
        EndSelect
    WEnd
    AdlibUnRegister("_CheckPatrol")
EndFunc

func asdfgSystemInfo()

    dim $asdfgInfo
    $asdfgInfo = ""  & @CRLF

    if $isAdminVersion=1 then
        $asdfgInfo = $asdfgInfo & @CRLF & " Ticket Tags:" & @CRLF
        $asdfgInfo = $asdfgInfo & "~#userphone='" & GUICtrlRead($txtPhone) & "'" & @CRLF
        $asdfgInfo = $asdfgInfo & "~#submitterphone='" & GUICtrlRead($txtPhone) & "'" & @CRLF
        dim $MachineID
        $MachineID = KaseyaIni($gKIniFile,"SERVER COMMUNICATIONS","User_Name","NotFound")
        $asdfgInfo = $asdfgInfo & "~#machineid='" & $MachineID & "'" & @CRLF

        dim $OrgGroups
        $OrgGroups= StringSplit($MachineID,".")

        dim $OrgGroupIndex
        $OrgGroupIndex = UBound($OrgGroups) - 1
        $asdfgInfo = $asdfgInfo & "~#organization='" & $OrgGroups[$OrgGroupIndex] & "'" & @CRLF

        dim $EmailUser
        $EmailUser = GUICtrlRead($txtEmailAddress)
        $EmailUser = StringMid($EmailUser,1,StringInStr($EmailUser,"@") - 1)  & @CRLF  & @CRLF


        $asdfgInfo = $asdfgInfo & "~#username='" & $EmailUser & "'" & @CRLF

        ;dim
        ;Call("isChecked")
        ;$categ = GUICtrlRead($chkPatrol)
        ;$asdfgInfo = $asdfgInfo & "-#category='" & $categ & "'" & @CRLF

    EndIf

    $asdfgInfo = $asdfgInfo & "Email:" & GUICtrlRead($txtEmailAddress) & @CRLF & @CRLF
    $asdfgInfo = $asdfgInfo & "Full Name:" & GUICtrlRead($txtFullName) & @CRLF & @CRLF
    $asdfgInfo = $asdfgInfo & "Phone:" & GUICtrlRead($txtPhone) & @CRLF & @CRLF


    $asdfgInfo = $asdfgInfo & "DateTime:" & _Now() & @CRLF
    $asdfgInfo = $asdfgInfo & "MachineName:" & @ComputerName & @CRLF
    $asdfgInfo = $asdfgInfo & "UserName:" & @UserName & @CRLF
    $asdfgInfo = $asdfgInfo & "OS:" & @OSType & " " & @OSVersion & @CRLF
    $asdfgInfo = $asdfgInfo & "LogonDomain:" & @OSType & " " & @LogonDomain & @CRLF
    $asdfgInfo = $asdfgInfo & "LogonDNSDomain:" & @OSType & " " & @LogonDNSDomain & @CRLF
    $asdfgInfo = $asdfgInfo & "OS:" & @OSType & " " & @OSVersion & @CRLF

    $asdfgInfo = $asdfgInfo & "IP Address:" & @IPAddress1  & @CRLF
    $asdfgInfo = $asdfgInfo & "Public IP Address:" & GetPublicIP() &@CRLF
    ;$asdfgInfo = $asdfgInfo & "Public IP Address:" & _GetIP () &@CRLF

    $asdfgInfo = $asdfgInfo & "OS:" & NetAdapterInfo()

    $asdfgInfo = $asdfgInfo & "KaseyaInstalled:" & KaseyaInstalled() & @CRLF
    $asdfgInfo = $asdfgInfo & "KaseyaRunning:" & KaseyaRunning() & @CRLF
    $asdfgInfo = $asdfgInfo & "KaseyaAgentGUID:" & KaseyaIni($gKIniFile,"SERVER COMMUNICATIONS","Agent_Guid","NotFound") & @CRLF
    $asdfgInfo = $asdfgInfo & "asdfgPaid:" & isasdfgIDPaid() & @CRLF

    if $isAdminVersion=0 then
        $asdfgInfo = $asdfgInfo & @CRLF & " Ticket Tags:" & @CRLF
        $asdfgInfo = $asdfgInfo & "~userphone='" & GUICtrlRead($txtPhone) & "'" & @CRLF
        $asdfgInfo = $asdfgInfo & "~submitterphone='" & GUICtrlRead($txtPhone) & "'" & @CRLF

        dim $MachineID
        $MachineID = KaseyaIni($gKIniFile,"SERVER COMMUNICATIONS","User_Name","NotFound")
        $asdfgInfo = $asdfgInfo & "~machineid='" & $MachineID & "'" & @CRLF

        dim $OrgGroups
        $OrgGroups= StringSplit($MachineID,".")

        dim $OrgGroupIndex
        $OrgGroupIndex = UBound($OrgGroups) - 1
        $asdfgInfo = $asdfgInfo & "~organization='" & $OrgGroups[$OrgGroupIndex] & "'" & @CRLF

        dim $EmailUser
        $EmailUser = GUICtrlRead($txtEmailAddress)
        $EmailUser = StringMid($EmailUser,1,StringInStr($EmailUser,"@") - 1)

        $asdfgInfo = $asdfgInfo & "~username='" & $EmailUser & "'" & @CRLF

        dim $categ
        $categ = $chkPatrol
        $asdfgInfo = $asdfgInfo & "~category='" & $categ & "'" & @CRLF

        dim $track
        $track = $cChkPatrol
        $asdfgInfo = $asdfgInfo & "~test='" & $cChkPatrol & "'" & @CRLF

        $asdfgInfo = $asdfgInfo & "~afterhour='" & $AfterHour & "'" & @CRLF
    endif

    Return $asdfgInfo

endFunc

 

Yes it was same app as previous post in the forum I asked, I also having experience this happening before but I fail to understand the reason why this is happening. Thanks in advance.

ButtonSupport - Copy.au3

Share this post


Link to post
Share on other sites



#2 ·  Posted

35 minutes ago, anub13 said:

when user choose another option the details changes immediately but when I go to details, it goes up and down endlessly

What exactly do you mean by this? You're only reading the combobox in one place, and then you never read from it again.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

6 minutes ago, BrewManNH said:

What exactly do you mean by this? You're only reading the combobox in one place, and then you never read from it again.

please find attached files for the img

when I change the option to YES, ADDITIONAL INFORMATION ........

when the cursor goes to that area, and scroll it down, always back to up I can't go down at all.

Capture.PNG

Edited by anub13
typos

Share this post


Link to post
Share on other sites

#4 ·  Posted

There's no way for me to run this because of the internet connection test you have in it, and I'm not going to go through the effort to make it runnable.

 


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

#5 ·  Posted

5 minutes ago, BrewManNH said:

There's no way for me to run this because of the internet connection test you have in it, and I'm not going to go through the effort to make it runnable.

 

Here I edited the code, now should be running without internet connection.

ButtonSupport - Copy.au3

Share this post


Link to post
Share on other sites

#6 ·  Posted

I still had to heavily modify it to get it to run.

The problem is caused in 2 places.

  1. Your function _CheckPatrol is constantly reloading the information in the edit box, for no good reason that I can see.
  2. You have a line in your GUI message handler looking at the variable $cChkPatrol, this isn't a control on your GUI, it's just a variable that contains Yes or No, and it's getting processed every time the loop runs. Delete this section, as it's unnecessary as it's written.
    case $nMsg = $cChkPatrol
        GUICtrlSetData($txtInfo,"ADDITIONAL INFORMATION THAT WILL BE SENT WITH THE MESSAGE:" & @CRLF & asdfgSystemInfo())

    You might want to consider moving the GUICtrlSetData inside your If statements in _CheckPatrol and see if that eliminates some of the excessive rewriting of the edit box.


If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

#7 ·  Posted

17 minutes ago, BrewManNH said:

I still had to heavily modify it to get it to run.

The problem is caused in 2 places.

  1. Your function _CheckPatrol is constantly reloading the information in the edit box, for no good reason that I can see.
  2. You have a line in your GUI message handler looking at the variable $cChkPatrol, this isn't a control on your GUI, it's just a variable that contains Yes or No, and it's getting processed every time the loop runs. Delete this section, as it's unnecessary as it's written.
    case $nMsg = $cChkPatrol
        GUICtrlSetData($txtInfo,"ADDITIONAL INFORMATION THAT WILL BE SENT WITH THE MESSAGE:" & @CRLF & asdfgSystemInfo())

    You might want to consider moving the GUICtrlSetData inside your If statements in _CheckPatrol and see if that eliminates some of the excessive rewriting of the edit box.

sorry about it, I thought I ran it well in here

OK will try as you said and be right back.

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

@BrewManNH

Still need some time... at the moment still figuring out to solve it.:D

Thanks for responding.

EDIT:

Sorry for double post.

EDIT 2: 

@BrewManNH

just complete the code, put simple code 

Func checkCombo()
    if GUICtrlRead($combo1) = "YES" Then
        $chkTrack = $YES
    Else
        $chkTrack = $NO
    EndIf
EndFunc

and called it on here

case $nMsg = $combo1
checkCombo()
GUICtrlSetData($txtInfo,"ADDITIONAL INFORMATION THAT WILL BE SENT WITH THE MESSAGE:" & @CRLF & TCDSystemInfo())

:) thanks for your help

Edited by anub13
typos

Share this post


Link to post
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

  • Similar Content

    • Skysnake
      By Skysnake
      Scite comes up occasional, almost incidentally, in some support topics.  I have not found a "Scite" topic in the forums, so this is where I will start.  I have recently been using Scite intensively, specifically with a large project and I have certain issues.  I know that Scite is not an AutoIt product, but it is so closely integrated to the core release that it makes sense to raise issues and request support here.  If this is not the right please refer me to the right forum.
      Thx
       
      Skysnake
    • P3rsp3ctiv3
      By P3rsp3ctiv3
      Hello how can I send a {Enter} into the edit window ($cmd)? I tried it first with:
      GUICtrlSetData($cmd, "Line 1" + "{ENTER}")
      but it doesn´t work. Can someone help me please?
      #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIConstants.au3> $Admin = GUICreate("Admin", 234, 168, 192, 229, $GUI_SS_DEFAULT_GUI, BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_TRANSPARENT,$WS_EX_WINDOWEDGE)) GUISetBkColor(0xB4B4B4) $exit = GUICtrlCreateButton("Close", 160, 136, 65, 25) $cmd = GUICtrlCreateEdit("",0, 0, 225, 137, $ES_AUTOVSCROLL + $WS_VSCROLL) GUICtrlSetData(-1, "") GUICtrlSetFont(-1, 10, 400, 0, "Candara") GUICtrlSetBkColor(-1, 0xE3E3E3) $cmd_clear = GUICtrlCreateButton("Clear", 9, 136, 65, 25) GUISetState(@SW_SHOW) HotKeySet("{f1}", CMD_1) HotKeySet("{f2}", CMD_2) While 1 $msg = GUIGetMsg(1) Switch $msg[0] Case $GUI_EVENT_CLOSE Exit Case $exit GUIDelete($Admin) Exit EndSwitch WEnd Func CMD_1(); GUICtrlSetData($cmd, "Line 1" & "{ENTER}") GUICtrlSetData($cmd, "Line 2" & "{ENTER}") EndFunc Func CMD_2(); GUICtrlSetData($cmd, "Line 3" & "{ENTER}") GUICtrlSetData($cmd, "Line 4" & "{ENTER}") EndFunc
    • nacerbaaziz
      By nacerbaaziz
      hello
      please i need to link a progress bar with a time can you help me?
      e.g
      i want to set a progress bar for 10 sec
      am waiting for your answers
      thank you.
    • AdminC
      By AdminC
      #RequireAdmin
      #include <SendMessage.au3>
      #include <WinAPI.au3>
      #include <WindowsConstants.au3>
      #include <GDIPlus.au3>
      #include <GUIConstantsEx.au3>
      #include <WinAPIGdi.au3>
      #include <Array.au3>
      #include <WinAPIDiag.au3>
      $Imglocation = @ScriptDir&"\Image\testimg.bmp"
      _GDIPlus_Startup()
      Local $Bitmap = _GDIPlus_BitmapCreateFromFile($Imglocation)
      Local $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($Bitmap)
      Local $imgSize = _WinAPI_GetBitmapDimension($hBitmap)
      Local $imgBits = DllStructCreate('dword[' & ($imgSize.X * $imgSize.Y) & ']')
      _WinAPI_GetBitmapBits($hBitmap, DllStructGetSize($imgBits), DllStructGetPtr($imgBits))
      _WinAPI_DisplayStruct($imgBits)
      MsgBox(0, "", DllStructGetData($imgBits, 1, 1)) 
      _GDIPlus_Shutdown()
      DllstructGetData can't get data color B, G, R value. Who's know that? teach me plz
       
    • Miliardsto
      By Miliardsto
      Hello. Im trying to make my scripts safe - unnable to decompile. I search for obfuscators and other security methods but the search has come to nothing.
      Then one guy gave that idea below. If I rightly understood this idea lets we talk about example program with this secutiy method.
      Program have two parts, first is only login gui and the second part is the main program Second part (main program) is uploaded on ftp server lets say that on http://xxx/autoit/main_program.au3 So we have the first gui with login, we put correctly login and pass and this is the moment when code from http://xxx/autoit/main_program.au3 will be downloaded and executed Finally main program will be appear This is the similiar way like new games are protected by cracking.
      I have few questions in this moment about this:
      Is something like that even possible to do with the autoit? First part of program (login gui) must have somewhere given that link to download the rest of code - http://xxx/autoit/main_program.au3 to make it execute. As we know this first part of program is easy able to hack and retrieve this web url http://xxx/autoit/main_program.au3 where located is main part of program. Is the way to encrypt or secure it? If only code will be stored in .php we know it cannot be previewed. So it could for example get code from .php file instead of .au3 I know that methods works in other languages (I dont know exactly how) thats becouse I only speculates, maybe something may looks different in these solution? Other way would be compiling second part of code on web server (there are available web autoit servers) maybe this way is possible? Tell me anything U know about this ideas and if its even possible to achieve.
      Thanks for ur any response, advice or thoughts