Jump to content
warrus

Help me find the error GUI

Recommended Posts

warrus
I was a novice , I want to create a GUI with buttons you need to press the button when the GUI did not disappear , please help

123.au3

Share this post


Link to post
Share on other sites
warrus
  1. #include <ButtonConstants.au3>
  2. #include <GUIConstantsEx.au3>
  3. #include <WindowsConstants.au3>
  4.  
  5. #Region ### START Koda GUI section ### Form=
  6. $Form1 = GUICreate("Панель управления ОТС", 615, 438, 224, 123)
  7. $Button1 = GUICtrlCreateButton("интра", 16, 24, 201, 25)
  8. $Button2 = GUICtrlCreateButton("Button1", 16, 72, 201, 25)
  9. $Button3 = GUICtrlCreateButton("Button1", 16, 120, 201, 25)
  10. $Button4 = GUICtrlCreateButton("Button1", 16, 168, 201, 25)
  11. $Button5 = GUICtrlCreateButton("Button1", 16, 216, 201, 25)
  12. $Button6 = GUICtrlCreateButton("Button1", 16, 264, 201, 25)
  13. GUISetState(@SW_SHOW)
  14. #EndRegion ### END Koda GUI section ###
  15.  
  16.  
  17. While 1
  18.     $nMsg = GUIGetMsg()
  19.     Switch $nMsg
  20.         Case $GUI_EVENT_CLOSE
  21.             Exit
  22.  
  23.         Case $Button3
  24.     EndSwitch
  25. WEnd
 
 
 
I want to do when you click on the button? exe file run admissible 
or being downloaded site

Share this post


Link to post
Share on other sites
careca
#Include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("?????? ?????????? ???", 615, 438, 224, 123)
$Button1 = GUICtrlCreateButton("?????", 16, 24, 201, 25)
$Button2 = GUICtrlCreateButton("Button2", 16, 72, 201, 25)
$Button3 = GUICtrlCreateButton("Button3", 16, 120, 201, 25)
$Button4 = GUICtrlCreateButton("Button4", 16, 168, 201, 25)
$Button5 = GUICtrlCreateButton("Button5", 16, 216, 201, 25)
$Button6 = GUICtrlCreateButton("Button6", 16, 264, 201, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Run('Something.exe')
            ConsoleWrite('Something.exe ' & @MSEC & @CRLF)
        Case $Button2
            Run('C:\Program Files (x86)\Mozilla Firefox\firefox.exe www.google.com')
            ConsoleWrite('A site ' & @MSEC & @CRLF)
        Case $Button3
            Run('AnotherSomething.exe')
    EndSwitch
WEnd

I think you get the picture

Edited by careca
Typo
  • Like 1

Spoiler

Paster - Main function is to paste text, but has more functions. (No longer mantained, switched to String Trigger)

Renamer - Rename files and folders, remove portions of text from the filename etc.

GPO Tool - Export/Import Group policy settings.

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

String Trigger - Triggers pasting text or applications or internet links on specific strings.

Inconspicuous - Hide files in plain sight, not fully encrypted.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Firefox Profile Backup - Backup/restore previously saved profile.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Share this post


Link to post
Share on other sites
warrus
#Include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("?????? ?????????? ???", 615, 438, 224, 123)
$Button1 = GUICtrlCreateButton("?????", 16, 24, 201, 25)
$Button2 = GUICtrlCreateButton("Button2", 16, 72, 201, 25)
$Button3 = GUICtrlCreateButton("Button3", 16, 120, 201, 25)
$Button4 = GUICtrlCreateButton("Button4", 16, 168, 201, 25)
$Button5 = GUICtrlCreateButton("Button5", 16, 216, 201, 25)
$Button6 = GUICtrlCreateButton("Button6", 16, 264, 201, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Run('Something.exe')
            ConsoleWrite('Something.exe ' & @MSEC & @CRLF)
        Case $Button2
            Run('C:\Program Files (x86)\Mozilla Firefox\firefox.exe www.google.com')
            ConsoleWrite('A site ' & @MSEC & @CRLF)
        Case $Button3
            Run('AnotherSomething.exe')
    EndSwitch
WEnd

I think you get the picture

The friend you are my savior, our heartfelt thanks to you, Happy New Year !!!

Share this post


Link to post
Share on other sites
warrus
#Include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ОТС", 615, 438, 224, 123)
$Button1 = GUICtrlCreateButton("Интра", 16, 24, 201, 25)
$Button2 = GUICtrlCreateButton("Button2", 16, 72, 201, 25)
$Button3 = GUICtrlCreateButton("Button3", 16, 120, 201, 25)
$Button4 = GUICtrlCreateButton("Button4", 16, 168, 201, 25)
$Button5 = GUICtrlCreateButton("Button5", 16, 216, 201, 25)
$Button6 = GUICtrlCreateButton("Button6", 16, 264, 201, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Run('C:\Users\ruslan\Desktop\autoit\444.xlsx')
            ConsoleWrite('C:\Users\ruslan\Desktop\autoit\444.xlsx ' & @MSEC & @CRLF)
        Case $Button2
            Run('C:\Program Files (x86)\Internet Explorer\iexplore.exe www.google.com')
            ConsoleWrite('A site ' & @MSEC & @CRLF)
        Case $Button3
            Run('AnotherSomething.exe')
        Case $Button4
            Run('AnotherSomething.exe')
        Case $Button5
            Run('AnotherSomething.exe')


    EndSwitch
WEnd
Run('C:\Users\ruslan\Desktop\autoit\444.xlsx')
            ConsoleWrite('C:\Users\ruslan\Desktop\autoit\444.xlsx ' & @MSEC & @CRLF)
 
can`t run the file exel, can be an example , please

Share this post


Link to post
Share on other sites
careca

Hi, try to remove the space after the filename

autoit\444.xlsx ' &
autoit\444.xlsx' &

If it doesn't run like that you probably have to run excel with import parameter as stated HERE

excel.exe "c:\My Folder\book1.xlsx"

If the excel file is in the same folder as the script:

Run('Excel.exe '&'"'&@ScriptDir&'\444.xlsx"')

;If still doesn't work, you should include the path to the Excel exe.

Run('C:\programfiles\officeblahblah\Excel.exe '&'"'&@ScriptDir&'\444.xlsx"')
Edited by careca
  • Like 1

Spoiler

Paster - Main function is to paste text, but has more functions. (No longer mantained, switched to String Trigger)

Renamer - Rename files and folders, remove portions of text from the filename etc.

GPO Tool - Export/Import Group policy settings.

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

String Trigger - Triggers pasting text or applications or internet links on specific strings.

Inconspicuous - Hide files in plain sight, not fully encrypted.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Firefox Profile Backup - Backup/restore previously saved profile.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Share this post


Link to post
Share on other sites
warrus
 
Thank you very much this way of working that's Run ('C: \ Program Files (x86) \ Microsoft Office \ Office14 \ Excel.exe' & '"' & @ ScriptDir & '\ 444.xlsx"') and even a little unclear to me why this line ? ConsoleWrite ('A site' &MSEC &CRLF)

Share this post


Link to post
Share on other sites
careca

ConsoleWrite lines are only to show information in the autoit wrapper/output, it's like messagebox, used for debug, you can delete all ConsoleWrite lines.


Spoiler

Paster - Main function is to paste text, but has more functions. (No longer mantained, switched to String Trigger)

Renamer - Rename files and folders, remove portions of text from the filename etc.

GPO Tool - Export/Import Group policy settings.

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

String Trigger - Triggers pasting text or applications or internet links on specific strings.

Inconspicuous - Hide files in plain sight, not fully encrypted.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Firefox Profile Backup - Backup/restore previously saved profile.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Share this post


Link to post
Share on other sites
warrus
Thank you good man)

Share this post


Link to post
Share on other sites
warrus
 
how to make a background in the graphical interface , that does not work $Form2 = GuiCtrlCreatePic("logo.png",120,100)
 
#Include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Excel.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ОТС", 615, 438, 224, 123)
$Form2 = GuiCtrlCreatePic("logo.png",120,100)
$Button1 = GUICtrlCreateButton("Интра", 16, 24, 201, 25)
$Button2 = GUICtrlCreateButton("Button2", 16, 72, 201, 25)
$Button3 = GUICtrlCreateButton("Button3", 16, 120, 201, 25)
$Button4 = GUICtrlCreateButton("Button4", 16, 168, 201, 25)
$Button5 = GUICtrlCreateButton("Button5", 16, 216, 201, 25)
$Button6 = GUICtrlCreateButton("Button6", 16, 264, 201, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Run('C:\Program Files (x86)\Microsoft Office\Office14\Excel.exe '&'"'&@ScriptDir&'\444.xlsx"')
            ConsoleWrite('excel ' & @MSEC & @CRLF)
        Case $Button2
            Run('C:\Program Files (x86)\Internet Explorer\iexplore.exe www.google.com')
            ConsoleWrite('A site ' & @MSEC & @CRLF)
        Case $Button3
            Run('AnotherSomething.exe')
        Case $Button4
            Run('AnotherSomething.exe')
        Case $Button5
            Run('AnotherSomething.exe')


    EndSwitch
WEnd
$Form1 = GUICreate("ОТС", 615, 438, 224, 123)
$Form2 = GuiCtrlCreatePic("logo.png",120,100)
 

Share this post


Link to post
Share on other sites
careca

Put
$Form2 = GuiCtrlCreatePic("ABC.JPG",10,10, 500, 500) ;BMP JPG or GIF not animated

after

$Form1 = GUICreate("?????? ?????????? ???", 615, 438, 224, 123)

  • Like 1

Spoiler

Paster - Main function is to paste text, but has more functions. (No longer mantained, switched to String Trigger)

Renamer - Rename files and folders, remove portions of text from the filename etc.

GPO Tool - Export/Import Group policy settings.

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

String Trigger - Triggers pasting text or applications or internet links on specific strings.

Inconspicuous - Hide files in plain sight, not fully encrypted.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Firefox Profile Backup - Backup/restore previously saved profile.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Share this post


Link to post
Share on other sites
warrus
 
understood, in reference autoit on this team , supported formats include BMP, JPG, GIF ( no animation ) . Thank you

Share this post


Link to post
Share on other sites
warrus
 
Is it possible to somehow make to the Picture ?

Share this post


Link to post
Share on other sites
warrus

 

Questions disappear understood )

Share this post


Link to post
Share on other sites
JLogan3o13

@warrus in the future please learn how to use the Edit feature rather than three posts in quick succession, and follow the forum etiquette of not bumping your threads without waiting 24 hours.


√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites
careca

I didn't get your question, what do you mean

 
Is it possible to somehow make to the Picture ?

make what to the picture?


Spoiler

Paster - Main function is to paste text, but has more functions. (No longer mantained, switched to String Trigger)

Renamer - Rename files and folders, remove portions of text from the filename etc.

GPO Tool - Export/Import Group policy settings.

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

String Trigger - Triggers pasting text or applications or internet links on specific strings.

Inconspicuous - Hide files in plain sight, not fully encrypted.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Firefox Profile Backup - Backup/restore previously saved profile.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Share this post


Link to post
Share on other sites
warrus

@warrus in the future please learn how to use the Edit feature rather than three posts in quick succession, and follow the forum etiquette of not bumping your threads without waiting 24 hours.

Good

Share this post


Link to post
Share on other sites
warrus

I didn't get your question, what do you mean

make what to the picture?

Hi , I have figured out with images

 

Share this post


Link to post
Share on other sites
careca

huh, so everything solved?

best regards.


Spoiler

Paster - Main function is to paste text, but has more functions. (No longer mantained, switched to String Trigger)

Renamer - Rename files and folders, remove portions of text from the filename etc.

GPO Tool - Export/Import Group policy settings.

BeatsPlayer - Music player.

Params Tool - Right click an exe to see it's parameters or execute them.

String Trigger - Triggers pasting text or applications or internet links on specific strings.

Inconspicuous - Hide files in plain sight, not fully encrypted.

Regedit Control - Registry browsing history, quickly jump into any saved key.

Time4Shutdown - Write the time for shutdown in minutes.

Power Profiles Tool - Set a profile as active, delete, duplicate, export and import.

Firefox Profile Backup - Backup/restore previously saved profile.

Finished Task Shutdown - Shuts down pc when specified window/Wndl/process closes.

NetworkSpeedShutdown - Shuts down pc if download speed goes under "X" Kb/s.

IUIAutomation - Topic with framework and examples

Au3Record.exe

Share this post


Link to post
Share on other sites
warrus
Hello there was a question , you need to file my script was copied to a folder of the script regardless of the location of the script
#Include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("GPU", 250, 250, 224, 123)
$Form2 = GuiCtrlCreatePic("logo.jpg",100,10,45,38)
$Form3 = GUICtrlCreateLabel("Нажмите Read на эталонной машине:",17,55,300,15)
$Form4 = GUICtrlCreateLabel("Нажмите Write на целевом ПК:",17,105,300,15)
$Button1 = GUICtrlCreateButton("Read",16, 74, 200, 25)
$Button2 = GUICtrlCreateButton("Write", 16, 122, 201, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Button1
            Run('C:\Users\ruslan\Desktop\Новая папка\gpuread.bat ')
            ConsoleWrite('excel ' & @MSEC & @CRLF)
        Case $Button2
            Run('C:\Users\ruslan\Desktop\Новая папка\gpwrite.bat')
            ConsoleWrite('A site ' & @MSEC & @CRLF)



    EndSwitch
WEnd
It is necessary that the file c: \ security_settings.inf Copy to Folder script

Новая папка.rar

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • Pricehacker
      By Pricehacker
      Title pretty much says it all. Im wondering what button the "primary mouse button" is, and while im here i would also like to know what the "secondary mouse button" is. I´m guessing its the left and right mouse buttons but i could not confirm this.
      Thank you!
    • WoodGrain
      By WoodGrain
      Hi guys,
      I'm learning about GUI's, I'm trying the below code, the idea being if I press the letter "e" while I have the GUI open I want the label color to change to green (I'm using a UDF for label colors). But every time I press "e" on my keyboard I just get a "ding" sound from my speakers and nothing changes with the label.
      I've looked at using something like "While GUIGetMsg() <> $GUI_EVENT_CLOSE" as I've seen it in other code instead of "While 1", but I don't think it's relevant.
      #include <GUIConstantsEx.au3>; for GUI... #include <GUIRichLabel.au3>; UDF for rich text label fonts #include <Misc.au3>; for _IsPressed $myLetter = "e" $hGUI = GUICreate("test", 700, 60) $lbl2 = _GUICtrlRichLabel_Create($hGUI, '<font color="purple">' & $myLetter & '</font>', 10, 10); , 260, 25 GUISetState(@SW_SHOW) Local $hDLL = DllOpen("user32.dll") While 1 if _IsPressed(Hex($myLetter), $hDLL) Then While _IsPressed(Hex($myLetter), $hDLL) Sleep(250) WEnd _GUICtrlRichLabel_SetData($lbl2, '<font color="green">' & $myLetter & '</font>') Sleep(2000) DllClose($hDLL) Exit EndIf Sleep(50) WEnd DllClose($hDLL) I am using an array of letters that I'm wanting to do this for, but as I can't get it to work I've stripped it down to the simplest code I can think of to try and get this working first. Appreciate any help.
      Thanks!
    • nacerbaaziz
      By nacerbaaziz
      hi dears, i have an question please if you can help me.
      i maked an program to do some functions
      and this program works with the global hot keys
      i added an option to the users to change the hot keys
      when i searched about how to do that i found this UDF
      GUIHotkey.au3
      http://www.autoitscript.com/forum/index.php?showtopic=107965
      but the problem here that this UDF cant be detect the win key.
      can you help me to add it, or if there are any others UDFSS wich do that work please give me some.
      i hope that my question is clear for you.
      thanks in advance
    • Silas
      By Silas
      Hello everyone,
      I have a radio button ($Radio1), which I want to disable as soon as another one get's checked (Radio5). (The system fails if the radio button i'm troubling with also gets checked).
      I know how to disable him:
      If GUICtrlRead($Radio1)=1 And Not BitAND(GUICtrlGetState($Radio5), $GUI_DISABLE) Then GUICtrlSetState($Radio5, 128) But if i try to enable $Radio5 again, after $Radio1 isn't checked anymore, it fails:
      If GUICtrlRead($Radio1)=Not 1 And Not BitAND(GUICtrlGetState($Radio5), $GUI_ENABLE) Then GUICtrlSetState($Radio5, 64)  
      Anyone knows why?
    • Bllee
      By Bllee
      every time i press "delete button" delete a line, but i can't add new line with info. the id line write normally but i can't change or add new info
      obs: looking at the "includes" one realizes that already tried of everything that knew
      my code
      #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> #include <GuiImageList.au3> #include <GuiListView.au3> #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <MsgBoxConstants.au3> #include <WinAPI.au3> #include <StringConstants.au3> #include <Array.au3> #include <GuiListBox.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 612, 480, 192, 154) $MenuItem1 = GUICtrlCreateMenu("&Arquivo") $MenuItem2 = GUICtrlCreateMenuItem("Salvar Ctrl+S", $MenuItem1, $SS_CENTER) $MenuItem4 = GUICtrlCreateMenuItem("Carregar Ctrl+O", $MenuItem1, $SS_CENTER) $MenuItem3 = GUICtrlCreateMenuItem("Salvar Como Shitft+Ctrl+S", $MenuItem1, $SS_CENTER) $Group1 = GUICtrlCreateGroup("", 21, 8, 569, 97, $SS_CENTER) $Input1 = GUICtrlCreateInput("ID COR", 122, 32, 97, 21, $SS_CENTER) $Input2 = GUICtrlCreateInput("REGIÃO", 138, 64, 249, 21, $SS_CENTER) $Input3 = GUICtrlCreateInput("Label", 264, 30, 121, 21, $SS_CENTER) $Label1 = GUICtrlCreateLabel("Label", 232, 32, 30, 17, $SS_CENTER) $Button1 = GUICtrlCreateButton("Capturar Cor", 42, 30, 75, 25, $SS_CENTER) $Button2 = GUICtrlCreateButton("Capturar Região", 42, 62, 91, 25, $SS_CENTER) $Button3 = GUICtrlCreateButton("ADD", 442, 24, 113, 33) $Button5 = GUICtrlCreateButton("Delet", 442, 64, 113, 33) $Group2 = GUICtrlCreateGroup("Editar ID selecionado", 8, 384, 601, 57, $SS_CENTER) $Input7 = GUICtrlCreateInput("ID", 10, 402, 40,21, $SS_CENTER) $Input4 = GUICtrlCreateInput("COR", 51, 402, 121, 21, $SS_CENTER) $Input5 = GUICtrlCreateInput("REGIÃO", 173, 402, 249, 21, $SS_CENTER) $Input6 = GUICtrlCreateInput("LABEL", 423, 402, 121, 21, $SS_CENTER) $Button4 = GUICtrlCreateButton("\/", 544, 400, 30, 25, $SS_CENTER) $Button6 = GUICtrlCreateButton("/\", 574, 400, 30, 25, $SS_CENTER) ; Add column Global $id = Int(0) $List1 = GUICtrlCreateListView("",5, 120, 601, 253, $SS_CENTER) _GUICtrlListView_AddColumn($List1, "ID",40) _GUICtrlListView_AddColumn($List1, "COR",100) _GUICtrlListView_AddColumn($List1, "COORDENADA",305) _GUICtrlListView_AddColumn($List1, "LABEL",150) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $MenuItem2 MsgBox($MB_SYSTEMMODAL, "ctrl + s", "Nothing Here",1) Case $MenuItem3 MsgBox($MB_SYSTEMMODAL, "shift+ctrl s", "Nothing Here",1) Case $MenuItem4 MsgBox($MB_SYSTEMMODAL, "ctrl + o", "Nothing Here",1) Case $Button1 MsgBox($MB_SYSTEMMODAL, "Capturar cor", "Aperte espaço para capturar a cor") GUICtrlSetData($Input1,MouseColor()) Case $Button2 MsgBox($MB_SYSTEMMODAL, "capturar região", "Aperte espaço para capturar a posição inicial") local $mouse = MouseGetPos() $x_init = $mouse[0] $y_init = $mouse[1] MsgBox($MB_SYSTEMMODAL, "capturar região", "Aperte espaço para capturar a posição final") local $mouse = MouseGetPos() $x_end = $mouse[0] $y_end = $mouse[1] GUICtrlSetData($Input2,$x_init&','&$y_init&' ; '&$x_end&','&$y_end) Case $Button3 _GUICtrlListView_AddItem($List1, $id, 1) ; id _GUICtrlListView_AddSubItem($List1, $id, GUICtrlRead($Input1), 1, 1) ;cor _GUICtrlListView_AddSubItem($List1, $id, GUICtrlRead($Input2), 2, 1) ;coordenada _GUICtrlListView_AddSubItem($List1, $id, GUICtrlRead($Input3), 3, 1) ;label $id= $id + 1 Case $Button4 $Item = _GUICtrlListView_GetSelectedIndices($List1) $Sid = _GUICtrlListView_GetItem($List1, Number($Item),0) $Scor = _GUICtrlListView_GetItem($List1, Number($Item),1) $Scord = _GUICtrlListView_GetItem($List1, Number($Item),2) $Slabel = _GUICtrlListView_GetItem($List1, Number($Item),3) ; get info GUICtrlSetData($Input7,$Sid[3]) GUICtrlSetData($Input4,$Scor[3]) GUICtrlSetData($Input5,$Scord[3]) GUICtrlSetData($Input6,$Slabel[3]) Case $Button5 _GUICtrlListView_DeleteItemsSelected($List1) Case $Button6 ; give back inf if GUICtrlRead($Input7) <> "ID" Then _GUICtrlListView_SetItem($List1, GUICtrlRead($Input4), GUICtrlRead($Input7),1) ;cor _GUICtrlListView_SetItem($List1, GUICtrlRead($Input5), GUICtrlRead($Input7),2) ;coordenada _GUICtrlListView_SetItem($List1, GUICtrlRead($Input6), GUICtrlRead($Input7),3) ;coordenada EndIf EndSwitch WEnd Func MouseColor() local $mouse = MouseGetPos() Return Hex(PixelGetColor($mouse[0],$mouse[1]), 6) EndFunc  
×