Autohotkey v2 - Exemplo de GUI
#Requires Autohotkey v2
#SingleInstance Force ; Replace with new instance if script is running
;AutoGUI 2.5.8
;Auto-GUI-v2 credit to Alguimist autohotkey.com/boards/viewtopic.php?f=64&t=89901
;AHKv2converter credit to github.com/mmikeww/AHK-v2-script-converter
mainGUI := Gui()
mainGUI.Title := "Automação Data Modeler"
executarButton := mainGUI.Add("Button", "x456 y56 w80 h23", "&Executar")
executarButton.OnEvent("Click", (*) => executarButton_Click())
mainGUI.SetFont("s10 w600", "Georgia")
mainGUI.Add("Text", "x16 y16 w102 h24 +0x200", "Arquivo .sql:")
caminhoEdit := mainGUI.Add("Edit", "x131 y16 w405 h24")
caminhoEdit.SetFont("s10 w200", "Arial")
mainGUI.OnEvent('Close', (*) => ExitApp())
mainGUI.Show("w620 h118")
executarButton_Click(){
;GuiControlGet caminho, caminhoEdit, mainGUI
caminho := caminhoEdit.Value
; ---------------------------
; Remove as aspas duplas do
; início e do fim da string
; ---------------------------
; Verifica se a string começa e termina com aspas duplas
comeco_string := (SubStr(caminhoEdit.Value, 1, 1) = "`"")
fim_string := (SubStr(caminhoEdit.Value, -1) = "`"")
if (comeco_string && fim_string) {
caminho := SubStr(caminhoEdit.Value, 2, StrLen(caminhoEdit.Value) - 2)
} ; end if
if (!FileExist(caminho)) {
MsgBox "Arquivo '" caminho "' não encontrado."
} ; end if
} ; end function
;mainGUIEscape:
;mainGUIClose:
;ExitApp()
Comentários
Postar um comentário