GUI Problem

[anzacfalcon]

I have currently working on a small tool which supports Drag And Drop. Here is a screenshot:

As you's can see. There are 5 input boxes which do support drag and drop. What i want my program to do is when the first input box is not blank "", Enable the second input box and so on. Thank's.

[Melba23]

anzacfalcon,

And what have you tried so far? Any code to show for it?

You need to trap the

EN_UPDATE message. Have a go yourself and come back if you run into problems.

M23

[anzacfalcon]

anzacfalcon,

And what have you tried so far? Any code to show for it?

You need to trap the

EN_UPDATE message. Have a go yourself and come back if you run into problems.

M23

So faar i have tried using a while statement and made it so that if Input1 = Not "" then Input2.Enabled = True

LoL dont get confused with my example code im more of a VB6 coder so i used Input2.Enabled = True as an example. What happens with this way is that the while statement rapidly check's the input box causing a flickering and this is obviously not a acceptable piece of code for this action. Understand? kthnxbai

[GEOSoft]

#include<GuiConstantsEx>
If GUICtrlRead($input1) <> "" Then
    If BitAND(GuiCtrlGetState($input2), $GUI_ENABLED) <> $GUI_ENABLED Then
        GUICtrlSetState($Inputs, $GUI_ENABLED)
    EndIf
Else
    If BitAND(GuiCtrlGetState($input2), $GUI_DISABLED) <> $GUI_DISABLED Then
        GUICtrlSetState($Inputs, $GUI_DISABLED)
    EndIf
EndIf

[anzacfalcon]

Thnx but doesn't this need a loop?

[GEOSoft]

Thnx but doesn't this need a loop?

It would normally be used in a loop situation but it could also be in a Function or anyplace else you want it. You wanted to know how to do the AutoIt equivalent to the VBS so I showed you but I also added in state checking to prevent control flicker.

[anzacfalcon]

It would normally be used in a loop situation but it could also be in a Function or anyplace else you want it. You wanted to know how to do the AutoIt equivalent to the VBS so I showed you but I also added in state checking to prevent control flicker.

Thnx alot!

[anzacfalcon]

Ok im getting "WARNING: $GUI_ENABLED: possibly used before declaration.

If BitAND(GuiCtrlGetState($input2), $GUI_ENABLED)"

[GEOSoft]

Ok im getting "WARNING: $GUI_ENABLED: possibly used before declaration.

If BitAND(GuiCtrlGetState($input2), $GUI_ENABLED)"

That was my fault. Change $GUI_ENABLED to $GUI_ENABLE and change $GUI_DISABLED to $GUI_DISABLE. I generally don't use constants in my scripts so I get them wrong once in a while.

[anzacfalcon]

That was my fault. Change $GUI_ENABLED to $GUI_ENABLE and change $GUI_DISABLED to $GUI_DISABLE. I generally don't use constants in my scripts so I get them wrong once in a while.

Yes i figured this out. If i didnt, i would of been having a stress tandrum lmao.

[anzacfalcon]

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Local $Button1
#Region ### START Koda GUI section ### Form=C:\Documents and Settings\Haluk\Desktop\Form1_1.kxf
$Form1_1 = GUICreate("Form1", 414, 554, 707, 340, -1, BitOR($WS_EX_ACCEPTFILES,$WS_EX_WINDOWEDGE))
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("Auto NoVirusThanks Scanner", 54, 24, 311, 44)
GUICtrlSetFont(-1, 16, 400, 0, "MS Reference Sans Serif")
$Button1 = GUICtrlCreateButton("Scan", 112, 496, 193, 41, $WS_GROUP)
GUICtrlSetFont(-1, 20, 400, 0, "Microsoft Sans Serif")
$Input1 = GUICtrlCreateInput("", 63, 120, 321, 21)
GUICtrlSetState($Input1,$GUI_DROPACCEPTED)
$Input2 = GUICtrlCreateInput("", 64, 152, 321, 21)
$Input3 = GUICtrlCreateInput("", 64, 184, 321, 21)
$Input4 = GUICtrlCreateInput("", 64, 216, 321, 21)
$Input5 = GUICtrlCreateInput("", 64, 248, 321, 21)
 GUICtrlSetState ( $Input2, $GUI_DISABLE )
  GUICtrlSetState ( $Input3, $GUI_DISABLE )
   GUICtrlSetState ( $Input4, $GUI_DISABLE )
    GUICtrlSetState ( $Input5, $GUI_DISABLE )
$Label2 = GUICtrlCreateLabel("File 1", 24, 120, 29, 25)
$Label3 = GUICtrlCreateLabel("File 2", 24, 152, 29, 17)
$Label4 = GUICtrlCreateLabel("File 3", 24, 184, 29, 17)
$Label5 = GUICtrlCreateLabel("File 4", 24, 216, 29, 17)
$Label6 = GUICtrlCreateLabel("File 5", 24, 248, 29, 17)
$Label7 = GUICtrlCreateLabel("Choose Browser:", 117, 360, 168, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Reference Sans Serif")
$Firefox = GUICtrlCreateRadio("Firefox 3", 24, 437, 121, 25)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetFont(-1, 16, 400, 0, "MS Reference Sans Serif")
$IE = GUICtrlCreateRadio("Internet Explorer 8", 166, 437, 225, 25)
GUICtrlSetFont(-1, 16, 400, 0, "MS Reference Sans Serif")
$Group1 = GUICtrlCreateGroup("Browser Setting's", 16, 328, 377, 145)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Main", 8, 96, 393, 209)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $msg = GUIGetMsg()
        If  $msg = -3 Then Exit


        If $msg = $Button1 And GUICtrlRead ( $Firefox ) = $GUI_CHECKED Then
                ;ScanFF()
                $Input1 = GUICtrlRead($input1)
                MsgBox ( 64, "lol", $Input1)
        EndIf
        If GUICtrlRead($input1) <> "" Then
    If BitAND(GuiCtrlGetState($input2), $GUI_ENABLE) <> $GUI_ENABLE Then
        GUICtrlSetState($Input2, $GUI_ENABLE)
        GUICtrlSetState($Input2,$GUI_DROPACCEPTED)
        EndIf
    EndIf
        If GUICtrlRead($input2) <> "" Then
    If BitAND(GuiCtrlGetState($input3), $GUI_ENABLE) <> $GUI_ENABLE Then
        GUICtrlSetState($Input3, $GUI_ENABLE)
        GUICtrlSetState($Input3,$GUI_DROPACCEPTED)
        EndIf
    EndIf
            If GUICtrlRead($input3) <> "" Then
    If BitAND(GuiCtrlGetState($input4), $GUI_ENABLE) <> $GUI_ENABLE Then
        GUICtrlSetState($Input4, $GUI_ENABLE)
        GUICtrlSetState($input4,$GUI_DROPACCEPTED)
        EndIf
    EndIf
            If GUICtrlRead($input4) <> "" Then
    If BitAND(GuiCtrlGetState($input5), $GUI_ENABLE) <> $GUI_ENABLE Then
        GUICtrlSetState($Input5, $GUI_ENABLE)
        GUICtrlSetState($Input5,$GUI_DROPACCEPTED)
        EndIf
    EndIf
WEnd



Func ScanFF()
Run("C:\Program Files\Mozilla Firefox\firefox.exe")
WinWaitActive("Mozilla Firefox")
MouseClick( "left" , 662, 68 )
Sleep ( 500 )
Send("http://scanner.novirusthanks.org/")
Send("{ENTER}")
WinWaitActive("NoVirusThanks - Free Online Virus & Malware Scan Service - Mozilla Firefox")
Sleep(1000)
MouseClick("left" ,482, 649)
MouseClick("left" ,821, 561)
Send($Input1)
Send("{ENTER}")
MouseClick("left" ,552, 606)

Ok, when the value of say for example "Input1" is read, i get a "0" or a number. I have managed to get the result the first time i drag the file into the inputbox and use my messagebox to show it but the second time it changes to a "0". Anyone know the problem?

[anzacfalcon]

Somebody please reply!

[anzacfalcon]

I figured it out.