Change Language & abort loop if new GUI msg

[gMgmc]

Hi Guys!

I've got two questions:

1. I developed a script in German and i'm trying to translate it, I thought this should be possible with an "INI" file. Could someone explain how to do that?

2. A piece of my script looks like this:

expandcollapse popup

Func _Main ()


    GUISetState()

    While 1
        $msg = GUIGetMsg()

        Select
        Case $msg = $GUI_EVENT_CLOSE
                _End ()

            Case $msg = $exititem
                _End ()

            Case $msg = $aboutitem
                MsgBox(64, "About", " .............")

            Case $msg = $pauseitem
                _Pause ()

            Case $msg = $Button1
                _Eingabe ()

            Case $msg = $exititem
                ExitLoop

            Case $msg = $startitem
                _Start ()

            Case $msg = $langitem
                _Lang ()

        EndSelect
    WEnd

EndFunc

Func _Pause ()
        Sleep(100)
        _Main ()
EndFunc

Func _Start ()
    While $schleife=1
        If _IsPressed(73) Then
            _Pause ()
        Else
            Send($var)
        EndIf
    WEnd
EndFunc

Now the problem is:

While Func _Start () is running, my GUI doesn't react anymore if for example I click on "About". How do I resolve this problem?

Hope my English isn't that bad :S xD

Edited January 13, 2010 by gMgmc

[Minikori]

Is there a loop in _Start()?

Just noticed I could scroll down through the code :|

That's your problem, _Start() isn't ending so _Main() isn't continuing.

SO, take out the first and last line of _Start() (While and WEnd), and make some code that will enable a variable when the button is clicked, and in your loop, if the variable=True, then it will call _Start()

Hope that makes sense, I can't really give example code right now.

Edited January 13, 2010 by Minikori

[gMgmc]

Is there a loop in _Start()?

yes

I know _Start() isn't ending but I want _Main() to continue is that actually possible?

So _Start() should run but if I click a button on the GUI it should react anyway....

SO, take out the first and last line of _Start() (While and WEnd), and make some code that will enable a variable when the button is clicked, and in your loop, if the variable=True, then it will call _Start()

Hope that makes sense, I can't really give example code right now.

Hmmm... it sounds pretty confusing an example code would be very useful I'm not in hurry I can wait...

Edited January 13, 2010 by gMgmc

[Melba23]

gMgmc,

Welcome to the AutoIt forum.

Answer to your first question - do something like this:

expandcollapse popup

#include <GUIConstantsEx.au3>

$sLanguage = IniRead("language.ini", "Current", "Language", "English")

$sOne = IniRead("language.ini", $sLanguage, "One", "One")
$sTwo = IniRead("language.ini", $sLanguage, "Two", "Two")
$sThree = IniRead("language.ini", $sLanguage, "Three", "Three")

$hGUI = GUICreate("Test", 500, 500)

$hLabel_1 = GUICtrlCreateLabel($sOne, 10, 10, 100, 20)
$hLabel_2 = GUICtrlCreateLabel($sTwo, 10, 50, 100, 20)
$hLabel_3 = GUICtrlCreateLabel($sThree, 10, 90, 100, 20)

$hCombo = GUICtrlCreateCombo("", 10, 150, 200, 20)
GUICtrlSetData(-1, "English|Deutch|Francais", "English")

$hButton = GUICtrlCreateButton("Set", 10, 180, 80, 30)

GUISetState()

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $hButton
            $sLanguage = GUICtrlRead($hCombo)
            IniWrite("language.ini", "Current", "Language", $sLanguage)
            $sOne = IniRead("language.ini", $sLanguage, "One", "One")
            GUICtrlSetData($hLabel_1, $sOne)
            $sTwo = IniRead("language.ini", $sLanguage, "Two", "Two")
            GUICtrlSetData($hLabel_2, $sTwo)
            $sThree = IniRead("language.ini", $sLanguage, "Three", "Three")
            GUICtrlSetData($hLabel_3, $sThree)
    EndSwitch

WEnd

and use something like this as the ini file:

[Current]
Language=English
[English]
One=One
Two=Two
Three=Three
[Deutch]
One=Ein
Two=Zwei
Three=Drei
[Francais]
One=Un
Two=Deux
Three=Trois

As to the second question - _About runs a MessageBox and everything else in the script will pause until you close it. So the short answer to you question is: "You cannot!"

By the way, your code is pretty messed up. You are restarting the _Main function via _Start and _Pause before you end either. This is known as recursion and will lead into BIG trouble. You need to get back to _Main using Return or having the functions end naturally, not calling it again.

Perhaps if yyou posted your whole code we coudl look and see how we might get over this.

M23

[gMgmc]

gMgmc,

Welcome to the AutoIt forum.

Answer to your first question - do something like this:

expandcollapse popup

#include <GUIConstantsEx.au3>

$sLanguage = IniRead("language.ini", "Current", "Language", "English")

$sOne = IniRead("language.ini", $sLanguage, "One", "One")
$sTwo = IniRead("language.ini", $sLanguage, "Two", "Two")
$sThree = IniRead("language.ini", $sLanguage, "Three", "Three")

$hGUI = GUICreate("Test", 500, 500)

$hLabel_1 = GUICtrlCreateLabel($sOne, 10, 10, 100, 20)
$hLabel_2 = GUICtrlCreateLabel($sTwo, 10, 50, 100, 20)
$hLabel_3 = GUICtrlCreateLabel($sThree, 10, 90, 100, 20)

$hCombo = GUICtrlCreateCombo("", 10, 150, 200, 20)
GUICtrlSetData(-1, "English|Deutch|Francais", "English")

$hButton = GUICtrlCreateButton("Set", 10, 180, 80, 30)

GUISetState()

While 1

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $hButton
            $sLanguage = GUICtrlRead($hCombo)
            IniWrite("language.ini", "Current", "Language", $sLanguage)
            $sOne = IniRead("language.ini", $sLanguage, "One", "One")
            GUICtrlSetData($hLabel_1, $sOne)
            $sTwo = IniRead("language.ini", $sLanguage, "Two", "Two")
            GUICtrlSetData($hLabel_2, $sTwo)
            $sThree = IniRead("language.ini", $sLanguage, "Three", "Three")
            GUICtrlSetData($hLabel_3, $sThree)
    EndSwitch

WEnd

and use something like this as the ini file:

[Current]
Language=English
[English]
One=One
Two=Two
Three=Three
[Deutch]
One=Ein
Two=Zwei
Three=Drei
[Francais]
One=Un
Two=Deux
Three=Trois

As to the second question - _About runs a MessageBox and everything else in the script will pause until you close it. So the short answer to you question is: "You cannot!"

By the way, your code is pretty messed up. You are restarting the _Main function via _Start and _Pause before you end either. This is known as recursion and will lead into BIG trouble. You need to get back to _Main using Return or having the functions end naturally, not calling it again.

Perhaps if yyou posted your whole code we coudl look and see how we might get over this.

M23

Hi!

Thank you for the informations!

I'll post the whole code:

expandcollapse popup

#RequireAdmin
#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiMenu.au3>
#include <Misc.au3>
Local $filemenu, $fileitem, $recentfilesmenu, $separator1, $startitem, $pauseitem
Local $exititem, $langitem, $helpmenu, $aboutitem, $update, $optmenu
Local $msg, $file
$Font = "Comic Sans MS"
$Form1 = GUICreate("Press Bot Beta    ...by gta99", 284, 136, 712, 335)
$Button1 = GUICtrlCreateButton("Eingabe ändern", 8, 8, 145, 33, $WS_GROUP)
$filemenu = GUICtrlCreateMenu("Datei")
$startitem = GUICtrlCreateMenuItem("Skript starten         (F2)", $filemenu)
$pauseitem = GUICtrlCreateMenuItem("Skript pausieren    (F4)", $filemenu)
$exititem = GUICtrlCreateMenuItem("Beenden", $filemenu)
$helpmenu = GUICtrlCreateMenu("Hilfe")
$aboutitem = GUICtrlCreateMenuItem("Über", $helpmenu)
$optmenu = GUICtrlCreateMenu("Optionen")
$langitem = GUICtrlCreateMenuItem("Sprache ändern", $optmenu)
GUISetFont(12, 400, 0, $Font)
$Label1 = GUICtrlCreateLabel("F2 = Start"&@CRLF&"F4 = Pause", 8, 48, 148, 57)
GUISetBkColor(0x00CC33)
GUISetState(@SW_SHOW)
$schleife = "1"
$var = "{SPACE}"
IniWrite("lang.ini", "English", "ChangeValue", "Change value")
IniWrite("lang.ini", "English", "File", "File")
IniWrite("lang.ini", "German", "ChangeValue", "Eingabe ändern")
IniWrite("lang.ini", "German", "File", "Datei")

HotKeySet("{F2}", "_Start")
HotKeySet("{F4}", "_Pause")
HotKeySet("{ESC}", "_End")


Opt('MustDeclareVars', 1)

_Main ()

Func _Main ()


    GUISetState()

    While 1
        $msg = GUIGetMsg()

        Select
        Case $msg = $GUI_EVENT_CLOSE
                _End ()

            Case $msg = $exititem
                _End ()

            Case $msg = $aboutitem
                MsgBox(64, "Über", " Dieser Bot wurde von ->EMAIL<- entwickelt.")

            Case $msg = $pauseitem
                _Pause ()

            Case $msg = $Button1
                _Eingabe ()

            Case $msg = $exititem
                ExitLoop

            Case $msg = $startitem
                _Start ()

            Case $msg = $langitem
                _Lang ()

        EndSelect
    WEnd

EndFunc

Func _Pause ()
        Sleep(100)
        _Main ()
EndFunc

Func _Start ()
        If _IsPressed(73) Then
            _Pause ()
        Else
            Send($var)
        EndIf
EndFunc

Func _Lang ()

EndFunc

Func _Eingabe ()
    $var = InputBox("Frage", "Was soll gedrückt werden?", """Beispiel: {SPACE} oder N""")
EndFunc

Func _End ()
    Exit
EndFunc

As you can see I already tried to do something with the languages...

If you want to, I will translate the code I wrote in German but I think it's possible to understand the code like this

Edited January 13, 2010 by gMgmc

[Melba23]

gMgmc,

A bit tidied up and with a few helpful (I hope ) comments:

expandcollapse popup

;#RequireAdmin
#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiMenu.au3>
#include <Misc.au3>

;Opt('MustDeclareVars', 1) ; If you want to declare all variables then put this at the top and declare them all!!!

; These are Global variables by default - why have you set them to Local?
Local $filemenu, $fileitem, $recentfilesmenu, $separator1, $startitem, $pauseitem
Local $exititem, $langitem, $helpmenu, $aboutitem, $update, $optmenu
Local $msg, $file

; And these are not declaered at all!!
$Font = "Comic Sans MS"

$Form1 = GUICreate("Press Bot Beta    ...by gta99", 284, 136, 712, 335)
$Button1 = GUICtrlCreateButton("Eingabe ändern", 8, 8, 145, 33, $WS_GROUP)
$filemenu = GUICtrlCreateMenu("Datei")
$startitem = GUICtrlCreateMenuItem("Skript starten" & @TAB & "(F2)", $filemenu)
$pauseitem = GUICtrlCreateMenuItem("Skript pausieren" & @TAB & "(F4)", $filemenu)
$exititem = GUICtrlCreateMenuItem("Beenden", $filemenu)
$helpmenu = GUICtrlCreateMenu("Hilfe")
$aboutitem = GUICtrlCreateMenuItem("Über", $helpmenu)
$optmenu = GUICtrlCreateMenu("Optionen")
$langitem = GUICtrlCreateMenuItem("Sprache ändern", $optmenu)
GUISetFont(12, 400, 0, $Font)
$Label1 = GUICtrlCreateLabel("F2 = Start" & @CRLF & "F4 = Pause", 8, 48, 148, 57)
GUISetBkColor(0x00CC33)
GUISetState(@SW_SHOW)

$schleife = "1"
$var = "{SPACE}"

HotKeySet("{F2}", "_Start")
HotKeySet("{F4}", "_Pause")
HotKeySet("{ESC}", "_End")

$fPaused = False

_Main()

Func _Main()
    
    ;GUISetState()  ; What is this doing here????

    While 1
        Switch GUIGetMsg() ; If you use Switch....

            Case $GUI_EVENT_CLOSE, $exititem ; then you can do this - multiple arguments!!!!
                _End()

            Case $aboutitem
                MsgBox(64, "Über", " Dieser Bot wurde von ->EMAIL<- entwickelt.")

            Case $pauseitem
                _Pause()

            Case $Button1
                _Eingabe()

            Case $startitem
                _Start()

            Case $langitem
                _Lang()

        EndSwitch
    WEnd

EndFunc   ;==>_Main

Func _Pause()

    ; Toggle "paused" state
    $fPaused = Not $fPaused
    ; Adjust menu item text
    If $fPaused Then
        GUICtrlSetData($pauseitem, "Skript restarten" & @TAB & "(F4)") ; Apologies if this is not good German!!!!!!
    Else
        GUICtrlSetData($pauseitem, "Skript pausieren" & @TAB & "(F4)")
    EndIf
    ; Idle loop if paused
    While $fPaused
        ; Check if [X] clicked
        If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
    WEnd

EndFunc   ;==>_Pause

Func _Start()
    Send($var)
EndFunc   ;==>_Start

Func _Lang()

EndFunc   ;==>_Lang

Func _Eingabe()
    $var = InputBox("Frage", "Was soll gedrückt werden?", """Beispiel: {SPACE} oder N""")
EndFunc   ;==>_Eingabe

Func _End()
    Exit
EndFunc   ;==>_End

However, as I now see your script is a bot, that is as far as I go. Have fun with the rest of it.

M23

[gMgmc]

gMgmc,

A bit tidied up and with a few helpful (I hope ) comments:

expandcollapse popup

;#RequireAdmin
#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiMenu.au3>
#include <Misc.au3>

;Opt('MustDeclareVars', 1) ; If you want to declare all variables then put this at the top and declare them all!!!

; These are Global variables by default - why have you set them to Local?
Local $filemenu, $fileitem, $recentfilesmenu, $separator1, $startitem, $pauseitem
Local $exititem, $langitem, $helpmenu, $aboutitem, $update, $optmenu
Local $msg, $file

; And these are not declaered at all!!
$Font = "Comic Sans MS"

$Form1 = GUICreate("Press Bot Beta    ...by gta99", 284, 136, 712, 335)
$Button1 = GUICtrlCreateButton("Eingabe ändern", 8, 8, 145, 33, $WS_GROUP)
$filemenu = GUICtrlCreateMenu("Datei")
$startitem = GUICtrlCreateMenuItem("Skript starten" & @TAB & "(F2)", $filemenu)
$pauseitem = GUICtrlCreateMenuItem("Skript pausieren" & @TAB & "(F4)", $filemenu)
$exititem = GUICtrlCreateMenuItem("Beenden", $filemenu)
$helpmenu = GUICtrlCreateMenu("Hilfe")
$aboutitem = GUICtrlCreateMenuItem("Über", $helpmenu)
$optmenu = GUICtrlCreateMenu("Optionen")
$langitem = GUICtrlCreateMenuItem("Sprache ändern", $optmenu)
GUISetFont(12, 400, 0, $Font)
$Label1 = GUICtrlCreateLabel("F2 = Start" & @CRLF & "F4 = Pause", 8, 48, 148, 57)
GUISetBkColor(0x00CC33)
GUISetState(@SW_SHOW)

$schleife = "1"
$var = "{SPACE}"

HotKeySet("{F2}", "_Start")
HotKeySet("{F4}", "_Pause")
HotKeySet("{ESC}", "_End")

$fPaused = False

_Main()

Func _Main()
    
    ;GUISetState()  ; What is this doing here????

    While 1
        Switch GUIGetMsg() ; If you use Switch....

            Case $GUI_EVENT_CLOSE, $exititem ; then you can do this - multiple arguments!!!!
                _End()

            Case $aboutitem
                MsgBox(64, "Über", " Dieser Bot wurde von ->EMAIL<- entwickelt.")

            Case $pauseitem
                _Pause()

            Case $Button1
                _Eingabe()

            Case $startitem
                _Start()

            Case $langitem
                _Lang()

        EndSwitch
    WEnd

EndFunc   ;==>_Main

Func _Pause()

    ; Toggle "paused" state
    $fPaused = Not $fPaused
    ; Adjust menu item text
    If $fPaused Then
        GUICtrlSetData($pauseitem, "Skript restarten" & @TAB & "(F4)") ; Apologies if this is not good German!!!!!!
    Else
        GUICtrlSetData($pauseitem, "Skript pausieren" & @TAB & "(F4)")
    EndIf
    ; Idle loop if paused
    While $fPaused
        ; Check if [X] clicked
        If GUIGetMsg() = $GUI_EVENT_CLOSE Then Exit
    WEnd

EndFunc   ;==>_Pause

Func _Start()
    Send($var)
EndFunc   ;==>_Start

Func _Lang()

EndFunc   ;==>_Lang

Func _Eingabe()
    $var = InputBox("Frage", "Was soll gedrückt werden?", """Beispiel: {SPACE} oder N""")
EndFunc   ;==>_Eingabe

Func _End()
    Exit
EndFunc   ;==>_End

However, as I now see your script is a bot, that is as far as I go. Have fun with the rest of it.

M23

Hi M23!

Well, these are some code snippets, my bot is made with them, that's why the global variables are local, I just took it from the AutoIt example

and I'm not a very good AutoIt scripter I learn from the examples and my bot is the result xD

I tried to use the code you wrote but it still doesn't react if I click on a button of the GUI while start is running....

Hope that someone finally can help me, but thanks anyway for your job

Edit: Just forget about let the GUI react while running the script thing I don't care about it anymore I just wanna try to let the language thing work...

Edited January 13, 2010 by gMgmc