How can I use two buttons to control whether the text in the window is locked or not? Topic is solved

[Kevin_yeh2020]

Hello,

How can I use two buttons to control whether the text in the window is locked or not?

Code: Select all

Gui +AlwaysOnTop
Gui, Show, x100 y60 h630 w600,Test
Gui, Add, Edit, x25 y140 w555 h100 vcard0,
Gui, Add, Button, x200 y80, Lock
Gui, Add, Button, x300 y80, Unlock

Return

ButtonLock:
Return

ButtonUnlock:
Return

Guiclose:
Exitapp
Return

[mikeyww]

Code: Select all

Gui, Add, Button, x170  y20                  , &Lock
Gui, Add, Button, x+100 yp                   , &Unlock
Gui, Add, Edit  , x10   y+20 w500 h100 vcard0
Gui, Show,, Test
ButtonLock:
ButtonUnlock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
Return

GuiClose:
GuiEscape:
ExitApp

[Kevin_yeh2020]

Code: Select all

Gui, Add, Button, x170  y20                  , &Lock
Gui, Add, Button, x+100 yp                   , &Unlock
Gui, Add, Edit  , x10   y+20 w500 h100 vcard0
Gui, Show,, Test
ButtonLock:
ButtonUnlock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
Return

GuiClose:
GuiEscape:
ExitApp

Hi mikeyww,

Thank you so much.

[Kevin_yeh2020]

Hello, If I have two or more windows to lock, is there a good way?

Code: Select all

Gui, Add, Button, x170  y20                  , &Lock
Gui, Add, Button, x+100 yp                   , &Unlock
Gui, Add, Edit  , x10   y+20 w500 h100 vcard0
Gui, Add, Edit  , x10   y+20 w500 h100 vcard1
Gui, Add, Edit  , x10   y+20 w500 h100 vcard2
Gui, Show,, Test
ButtonLock:
ButtonUnlock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card1
GuiControl, Focus, card1
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card2
GuiControl, Focus, card2
Return

GuiClose:
GuiEscape:
ExitApp

[mikeyww]

Your script worked when I tested it. Another method is below.

Code: Select all

Gui, Add, Button, x170  y20        , &Lock
Gui, Add, Button, x+100 yp Default , &Unlock
Loop, % nCards := 3
 Gui, Add, Edit , x10   y+20 w500 h100 vcard%A_Index%
Gui, Show,, Test
ButtonLock:
ButtonUnlock:
Loop, %nCards%
 GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card%A_Index%
If (A_GuiControl = "&Lock") {
 GuiControl, Disable, &Lock
 GuiControl, Enable , &Unlock
 GuiControl, Focus, &Unlock
 Return
} Else GuiControl, Enable , &Lock
GuiControl, Disable, &Unlock
GuiControl, Focus, card1
Return

GuiClose:
GuiEscape:
ExitApp

[Kevin_yeh2020]

Your script worked when I tested it. Another method is below.

Code: Select all

Gui, Add, Button, x170  y20        , &Lock
Gui, Add, Button, x+100 yp Default , &Unlock
Loop, % nCards := 3
 Gui, Add, Edit , x10   y+20 w500 h100 vcard%A_Index%
Gui, Show,, Test
ButtonLock:
ButtonUnlock:
Loop, %nCards%
 GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card%A_Index%
If (A_GuiControl = "&Lock") {
 GuiControl, Disable, &Lock
 GuiControl, Enable , &Unlock
 GuiControl, Focus, &Unlock
 Return
} Else GuiControl, Enable , &Lock
GuiControl, Disable, &Unlock
GuiControl, Focus, card1
Return

GuiClose:
GuiEscape:
ExitApp

Thank you so much.

[Kevin_yeh2020]

Code: Select all

Gui, Add, Button, x170  y20                  , &Lock
Gui, Add, Button, x+100 yp                   , &Unlock
Gui, Add, Edit  , x10   y+20 w500 h100 vcard0
Gui, Add, Edit  , x10   y+20 w500 h100 vcard1
Gui, Add, Edit  , x10   y+20 w500 h100 vcard2
Gui, Add, DateTime, x30 y10 w105 h40 vcard7
Gui, Show,, Test
ButtonLock:
ButtonUnlock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card1
GuiControl, Focus, card1
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card2
GuiControl, Focus, card2
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card7
GuiControl, Focus, card7
Return

GuiClose:
GuiEscape:
ExitApp

The DateTime function can not be locked?

[mikeyww]

If you click the word "GuiControl" in your post, you can read about that command. "Disable" is the subcommand that I would try.

[Kevin_yeh2020]

If you click the word "GuiControl" in your post, you can read about that command. "Disable" is the subcommand that I would try.

Hi, mikeyww,

Thanks for your reply. I want to output the value in the window when I leave the program, how can I do it? I have tried to use the button to complete the function, but it failed with the current code.

Code: Select all

Gui, Add, Button, x170  y20                  , &Lock
Gui, Add, Button, x+100 yp                   , &Unlock
Gui, Add, Edit  , x10   y+20 w500 h100 vcard0
Gui, Add, Edit  , x10   y+20 w500 h100 vcard1
Gui, Add, Edit  , x10   y+20 w500 h100 vcard2
Gui, Add, DateTime, x30 y10 w105 h40 vcard7
Gui, Show,, Test

ButtonLock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card1
GuiControl, Focus, card1
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card2
GuiControl, Focus, card2
GuiControl, Enable, card7
GuiControl, Focus, card7
Return

ButtonUnlock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card1
GuiControl, Focus, card1
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card2
GuiControl, Focus, card2
GuiControl, Disable, card7
GuiControl, Focus, card7
Return

GuiClose:
GuiEscape:
FileAppend,
(
%A_ComputerName%
%A_HOUR%:%A_MIN% %A_SS% , %A_MMM% %A_DD% , %A_YYYY%
Window_1:%card0%
Window_2:%card1%
Window_3:%card2%
), C:\Users\User\Desktop\test.txt 
MSGBOX, Feedback!
ExitApp

[Kevin_yeh2020]

If you click the word "GuiControl" in your post, you can read about that command. "Disable" is the subcommand that I would try.

Hi, mikeyww,

Thanks for your reply. I want to output the value in the window when I leave the program, how can I do it? I have tried to use the button to complete the function, but it failed with the current code.

Code: Select all

Gui, Add, Button, x170  y20                  , &Lock
Gui, Add, Button, x+100 yp                   , &Unlock
Gui, Add, Edit  , x10   y+20 w500 h100 vcard0
Gui, Add, Edit  , x10   y+20 w500 h100 vcard1
Gui, Add, Edit  , x10   y+20 w500 h100 vcard2
Gui, Add, DateTime, x30 y10 w105 h40 vcard7
Gui, Show,, Test

ButtonLock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card1
GuiControl, Focus, card1
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card2
GuiControl, Focus, card2
GuiControl, Enable, card7
GuiControl, Focus, card7
Return

ButtonUnlock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card1
GuiControl, Focus, card1
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card2
GuiControl, Focus, card2
GuiControl, Disable, card7
GuiControl, Focus, card7
Return

GuiClose:
GuiEscape:
FileAppend,
(
%A_ComputerName%
%A_HOUR%:%A_MIN% %A_SS% , %A_MMM% %A_DD% , %A_YYYY%
Window_1:%card0%
Window_2:%card1%
Window_3:%card2%
), C:\Users\User\Desktop\test.txt 
MSGBOX, Feedback!
ExitApp

I want to output the value to test.txt from the window when I leave the program, how can I do it? I have tried to use the button to complete the function, but it failed with the current code.

[mikeyww]

Example is below. Submit the GUI to get its values.

Code: Select all

Gui, Add, Edit, vcard1
Gui, Show, w220, Test
Return

GuiEscape:
GuiClose:
Gui, Submit
FileAppend, %card1%`n, % log := A_ScriptDir "\test.txt"
Run, %log%
ExitApp

[Kevin_yeh2020]

Example is below. Submit the GUI to get its values.

Code: Select all

Gui, Add, Edit, vcard1
Gui, Show, w220, Test
Return

GuiEscape:
GuiClose:
Gui, Submit
FileAppend, %card1%`n, % log := A_ScriptDir "\test.txt"
Run, %log%
ExitApp

Thanks.

Code: Select all

Gui, Add, Button, x170  y20                  , &Lock
Gui, Add, Button, x+100 yp                   , &Unlock
Gui, Add, Edit  , x10   y+20 w500 h100 vcard0
Gui, Add, Edit  , x10   y+20 w500 h100 vcard1
Gui, Add, Edit  , x10   y+20 w500 h100 vcard2
Gui, Add, DateTime, x30 y10 w105 h40 vcard7
Gui, Show,, Test
log = C:\Users\User\Desktop\test.txt
ButtonLock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card1
GuiControl, Focus, card1
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card2
GuiControl, Focus, card2
GuiControl, Enable, card7
GuiControl, Focus, card7
Return

ButtonUnlock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card1
GuiControl, Focus, card1
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card2
GuiControl, Focus, card2
GuiControl, Disable, card7
GuiControl, Focus, card7
Return

GuiClose:
GuiEscape:
Gui, Submit
FileAppend, %A_ComputerName% `n Window_1:%card0% `n Window_2:%card1% `n Window_3:%card2%, %log%
Run, %log%
MSGBOX, Feedback!
ExitApp

[Kevin_yeh2020]

Hello,

When I enter 123 in card3 and then press GuiClose, why does the program close before entering the correct password? How can I modify the script?

Code: Select all

Gui, Add, Button, x170  y20                  , &Lock
Gui, Add, Button, x+100 yp                   , &Unlock
Gui, Add, Edit  , x10   y+20 w500 h100 vcard0
Gui, Add, Edit  , x10   y+20 w500 h100 vcard1
Gui, Add, Edit  , x10   y+20 w500 h100 vcard2
Gui, Add, Edit  , x400  y20  w100 h20 vcard3
Gui, Add, DateTime, x30 y10 w105 h40 vcard7
Gui, Show,, Test
log = C:\Users\User\Desktop\123\%card3%.txt
ButtonLock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card1
GuiControl, Focus, card1
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card2
GuiControl, Focus, card2
GuiControl, Enable, card7
GuiControl, Focus, card7
Return

ButtonUnlock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card1
GuiControl, Focus, card1
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card2
GuiControl, Focus, card2
GuiControl, Disable, card7
GuiControl, Focus, card7
Return

GuiClose:
#NoTrayIcon
Gui, Submit
Gui +OwnDialogs
InputBox, Password , Enter Password, Please input the correct password, hide, 250, 125, 300, 300
if Password = 1
{
FileAppend, %A_ComputerName% `n Window_1:%card0% `n Window_2:%card1% `n Window_3:%card2%, C:\Users\User\Desktop\123\%card3%.txt
MSGBOX, Saved
ExitApp
}
else
MSGBOX, An incorrect password!!!
return
ExitApp

It looks like the code Gui, Submit is below Gui +OwnDialogs

[mikeyww]

I had no trouble with it. Save your script before you run it. Your final line will never execute, because it is preceded by Return.

[Kevin_yeh2020]

I had no trouble with it. Save your script before you run it. Your final line will never execute, because it is preceded by Return.

Hi mikeyww,

Looks like the code "Gui, Submit" is below "Gui +OwnDialogs". I have been removed final line, thanks for your reminder.

Code: Select all

GuiClose:
#NoTrayIcon
Gui +OwnDialogs
InputBox, Password , Enter Password, Please input the correct password, hide, 250, 125, 300, 300
Gui, Submit
if Password = 1
{
FileAppend, %A_ComputerName% `n Window_1:%card0% `n Window_2:%card1% `n Window_3:%card2%, C:\Users\User\Desktop\123\%card3%.txt
MSGBOX, Saved
MSGBOX, %A_ComputerName% `n Window_1:%card0% `n Window_2:%card1% `n Window_3:%card2%
ExitApp
}
else
MSGBOX, An incorrect password!!!
return

[Kevin_yeh2020]

Hello,

If you enter 1 in card0~3 respectively and then press password 1, you will see the data stored in C:\Users\User\Desktop\123\1.txt, this is correct.
But when I enter 1 in card0~3 respectively and then press the wrong password 2, the test window will be close.
How to keep the text window when the password is wrong?

Code: Select all

Gui, Add, Button, x170  y20                  , &Lock
Gui, Add, Button, x+100 yp                   , &Unlock
Gui, Add, Edit  , x10   y+20 w500 h100 vcard0
Gui, Add, Edit  , x10   y+20 w500 h100 vcard1
Gui, Add, Edit  , x10   y+20 w500 h100 vcard2
Gui, Add, Edit  , x400  y20  w100 h20 vcard3
Gui, Add, DateTime, x30 y10 w105 h40 vcard7, MM/dd/yyyy
Gui, Show,, Test
log = C:\Users\User\Desktop\123\%card3%.txt
ButtonLock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card1
GuiControl, Focus, card1
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card2
GuiControl, Focus, card2
GuiControl, Enable, card7
GuiControl, Focus, card7
Return

ButtonUnlock:
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card0
GuiControl, Focus, card0
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card1
GuiControl, Focus, card1
GuiControl, % (A_GuiControl = "&Lock" ? "+" : "-") "ReadOnly", card2
GuiControl, Focus, card2
GuiControl, Disable, card7
GuiControl, Focus, card7
Return

GuiClose:
#NoTrayIcon
Gui +OwnDialogs
InputBox, Password , Enter Password, Please input the correct password, hide, 250, 125, 300, 300
Gui, Submit
if Password = 1
{
FileAppend, %A_ComputerName% `n Window_1:%card0% `n Window_2:%card1% `n Window_3:%card2% `n%card7%, C:\Users\User\Desktop\123\%card3%.txt
MSGBOX, %A_ComputerName% `n Window_1:%card0% `n Window_2:%card1% `n Window_3:%card2% `n%card7%
ExitApp
}
else
MSGBOX, An incorrect password!!!
return

[mikeyww]

Code: Select all

If !FileExist(dir := A_Desktop "\123") {
 FileCreateDir, %dir%
 If ErrorLevel
  MsgBox, 48, Error, An error occurred while creating the log directory.`n`n%dir%
}
Gui, Add, Button  , x170  y20                  , &Lock
Gui, Add, Button  , x+100 yp                   , &Unlock
Gui, Add, Edit    , x400  yp   w100 h20  vcard3
Gui, Add, Edit    , x10   y+20 w500 h100 vcard0
Gui, Add, Edit    , x10   y+20 w500 hp   vcard1
Gui, Add, Edit    , x10   y+20 w500 hp   vcard2
Gui, Add, DateTime, x30   y10  w105 h40  vcard7, MM/dd/yyyy
Gosub, ButtonLock
Show:
Gui, Show,, Test
Return

ButtonLock:
Loop, 3
 GuiControl, +ReadOnly, % "card" A_Index - 1
GuiControl, Enable, card7
GuiControl, Focus, card7
Return

ButtonUnlock:
Loop, 3
 GuiControl, -ReadOnly, % "card" A_Index - 1
GuiControl, Disable, card7
GuiControl, Focus, card0
Return

GuiClose:
Gui +OwnDialogs
InputBox, password , Enter Password, Please input the correct password, hide, 250, 125, 300, 300
If (ErrorLevel || password = "")
 Return
Gui, Submit
If (password = 1)
{
 If (card3 > "")
  FileAppend, %A_ComputerName% `n Window_1:%card0% `n Window_2:%card1% `n Window_3:%card2% `n%card7%
   , %dir%\%card3%.txt
 MsgBox, %A_ComputerName% `n Window_1:%card0% `n Window_2:%card1% `n Window_3:%card2% `n%card7%
 ExitApp
} Else MsgBox, 48, Error, Password was incorrect.
Gosub, Show
Return

[Kevin_yeh2020]

Code: Select all

If !FileExist(dir := A_Desktop "\123") {
 FileCreateDir, %dir%
 If ErrorLevel
  MsgBox, 48, Error, An error occurred while creating the log directory.`n`n%dir%
}
Gui, Add, Button  , x170  y20                  , &Lock
Gui, Add, Button  , x+100 yp                   , &Unlock
Gui, Add, Edit    , x400  yp   w100 h20  vcard3
Gui, Add, Edit    , x10   y+20 w500 h100 vcard0
Gui, Add, Edit    , x10   y+20 w500 hp   vcard1
Gui, Add, Edit    , x10   y+20 w500 hp   vcard2
Gui, Add, DateTime, x30   y10  w105 h40  vcard7, MM/dd/yyyy
Gosub, ButtonLock
Show:
Gui, Show,, Test
Return

ButtonLock:
Loop, 3
 GuiControl, +ReadOnly, % "card" A_Index - 1
GuiControl, Enable, card7
GuiControl, Focus, card7
Return

ButtonUnlock:
Loop, 3
 GuiControl, -ReadOnly, % "card" A_Index - 1
GuiControl, Disable, card7
GuiControl, Focus, card0
Return

GuiClose:
Gui +OwnDialogs
InputBox, password , Enter Password, Please input the correct password, hide, 250, 125, 300, 300
If (ErrorLevel || password = "")
 Return
Gui, Submit
If (password = 1)
{
 If (card3 > "")
  FileAppend, %A_ComputerName% `n Window_1:%card0% `n Window_2:%card1% `n Window_3:%card2% `n%card7%
   , %dir%\%card3%.txt
 MsgBox, %A_ComputerName% `n Window_1:%card0% `n Window_2:%card1% `n Window_3:%card2% `n%card7%
 ExitApp
} Else MsgBox, 48, Error, Password was incorrect.
Gosub, Show
Return

Hi mikeyww,
Thanks for your help.