Jump to content
Sign in to follow this  
xXxElevenxXx

Func does not work when i press a button

Recommended Posts

xXxElevenxXx

i don't kown why this func does not work

if i fill it in like this:

Posted Image

then it works fine

but if i wan't to use the . . . button and select a file then it won't work... help!

#include <GuiConstantsEx.au3>

Opt('MustDeclareVars', 1)
Opt("GUICoordMode", 0)

Global $pr, $Information, $Button_3, $Button_6, $Button_7, $msg, $GUI2, $Pe[7], $i, $n, $p, $sTmpFile, $Locations
Add()

Func Add()
    $GUI2 = GUICreate("123", 495, 237)
    GUICtrlCreateLabel("dassdx:", 18, 18)
    $pr = GuiCtrlCreateInput("", 70, -2, 200, 20)
    GuiCtrlCreateGroup("Locations Settings",-76,25,473,52)
    GUICtrlCreateLabel("Path:", 19, 21)
    $Locations = GuiCtrlCreateInput(IniRead("Settings.ini", "2", "1", ""), 30, -2, 285, 20)
    GuiCtrlCreateButton("Asds", 323, 0, 87, 20)
    $Button_6 = GuiCtrlCreateButton("...", -33, 0, 27, 20)
    GuiCtrlCreateGroup("asd1swsa",-339,45,474,93)
    GUICtrlCreateLabel("name:", 19, 21)
    GUICtrlCreateLabel("asdaas:", 300, 0)
    $Pe[1] = GuiCtrlCreateRadio("1", 55, -3, 30)
    GUICtrlSetState($Pe[1], $GUI_CHECKED)
    $Pe[2] = GuiCtrlCreateRadio("2", 30, 0, 30)
    $Pe[3] = GuiCtrlCreateRadio("3", -30, 20, 30)
    $Pe[4] = GuiCtrlCreateRadio("4", 30, 0, 30)
    $Pe[5] = GuiCtrlCreateRadio("5", -30, 20, 30)
    $Pe[6] = GuiCtrlCreateRadio("6", 30, 0, 30)
    GUICtrlCreateLabel("Password:", -373, -13)
    $n = GuiCtrlCreateInput("", 68, -26, 130, 20)
    $p = GuiCtrlCreateInput("", 0, 24, 130, 20)
    $Button_7 = GuiCtrlCreateButton("Cancel", 302, 55, 74, 26)
    $Button_3 = GuiCtrlCreateButton("Ok", -80, 0, 74, 26)
    GUICtrlCreateLabel("Time:", -278, -29)
    $Information = GuiCtrlCreateInput(IniRead("Settings.ini", "3", "1", ""), 56, -2, 130, 20)
    GUICtrlCreateLabel("(dasda1s)", 135, 3)
    GUISetState()
    While 1
        $msg = GUIGetMsg($GUI2)
        Select
            Case $msg = $GUI_EVENT_CLOSE
                GUIDelete($GUI2)
                Return
            Case $msg = $Button_7
                GUIDelete($GUI2)
                Return
            Case $msg = $Button_6
                $sTmpFile = FileOpenDialog("Select File:", @DesktopDir, "Internet (*.exe)")
                GUICtrlSetData($Locations, $sTmpFile)
            Case $msg = $Button_3
                $i = IniRead("Settings.ini", "1", "1", "0")
                $i = $i + 1
                IniWrite("Settings.ini", "1", "1", $i)
                IniWrite("Settings.ini", "2", "1", GUICtrlRead($Locations))
                IniWrite("Settings.ini", "3", "1", GUICtrlRead($Information))
                IniWrite("Settings.ini", "1", "2" & $i, GUICtrlRead($pr))
                IniWrite("Settings.ini", "1", "3" & $i, GUICtrlRead($n))
                IniWrite("Settings.ini", "1", "4" & $i, GUICtrlRead($p))
                If $Pe[1] And BitAND(GUICtrlRead($Pe[1]), $GUI_CHECKED) = $GUI_CHECKED Then
                    IniWrite("Settings.ini", "1", "5" & $i, "1")
                ElseIf $Pe[2] And BitAND(GUICtrlRead($Pe[2]), $GUI_CHECKED) = $GUI_CHECKED Then
                    IniWrite("Settings.ini", "1", "5" & $i, "2")
                ElseIf $Pe[3] And BitAND(GUICtrlRead($Pe[3]), $GUI_CHECKED) = $GUI_CHECKED Then
                    IniWrite("Settings.ini", "1", "5" & $i, "3")
                ElseIf $Pe[4] And BitAND(GUICtrlRead($Pe[4]), $GUI_CHECKED) = $GUI_CHECKED Then
                    IniWrite("Settings.ini", "1", "5" & $i, "4")
                ElseIf $Pe[5] And BitAND(GUICtrlRead($Pe[5]), $GUI_CHECKED) = $GUI_CHECKED Then
                    IniWrite("Settings.ini", "1", "5" & $i, "5")
                ElseIf $Pe[6] And BitAND(GUICtrlRead($Pe[6]), $GUI_CHECKED) = $GUI_CHECKED Then
                    IniWrite("Settings.ini", "1", "5" & $i, "6")
                EndIf
                GUIDelete($GUI2)
                Return
        EndSelect
    WEnd
EndFunc
Edited by xXxElevenxXx

Share this post


Link to post
Share on other sites
Jos

i don't kown why this func does not work

if i fill it in like this:

Posted Image

then it works fine

but if i wan't to use the . . . button and select a file then it won't work... help!

WTF... why do you think the other threads were closed?

Which part wasn't clear for you?


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

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×