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.

OpenW - Open With... alternative, Open any file with any application, set it's icon, set application as default.

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

BeatsPlayer - Music player.

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

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.

OpenW - Open With... alternative, Open any file with any application, set it's icon, set application as default.

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

BeatsPlayer - Music player.

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

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.

OpenW - Open With... alternative, Open any file with any application, set it's icon, set application as default.

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

BeatsPlayer - Music player.

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

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
 
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.

OpenW - Open With... alternative, Open any file with any application, set it's icon, set application as default.

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

BeatsPlayer - Music player.

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

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
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.

OpenW - Open With... alternative, Open any file with any application, set it's icon, set application as default.

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

BeatsPlayer - Music player.

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

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.

OpenW - Open With... alternative, Open any file with any application, set it's icon, set application as default.

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

BeatsPlayer - Music player.

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

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

    • nacerbaaziz
      By nacerbaaziz
      Hello my friends
      I have an inquiry and I hope to find the answer here
      I want to create a graphical user interface
      but I want to hide the system menu
      I mean the window menu
      Is this possible?
      If is possible please give me how to do that
      Thanks in advance
    • helmar
      By helmar
      I was playing around with simple GUI creation.  I tend to like parameter driven coding (in prior life (years ago) as Clipper/FoxPro/dBase coder).  Just wanted to see what I could do with a GUI.
      #Region options, includes Opt('MustDeclareVars', 1) Opt("GUIOnEventMode", 1) ; Change to OnEvent mode #include <GUIConstantsEx.au3> #EndRegion options, includes Global Const $nCols = 2, $nRows = 6, $nSpacer = 10, $nBtnWidth = 150, $nBtnHeight = 30 Global $xName = 0, $xID = 0 Global $nGUIWidth = ($nCols * $nBtnWidth) + (($nCols + 1) * $nSpacer) Global $nGUIHeight = ($nRows * $nBtnHeight) + (($nRows + 1) * $nSpacer) Global $hMainGUI = GUICreate("Calculated GUI", $nGUIWidth, $nGUIHeight, -1, -1) For $xRows = 1 to $nRows ;in this arrangement, tabbing is left to right, then next row For $xCols = 1 to $nCols ;reverse the order of this line with the prior line for top to bottom tabbing, then next col $xName += 1 $xID += 1 Global $Dummy = GUICtrlCreateButton("Button" & $xName, _ ($nBtnWidth * ($xCols - 1)) + (($xCols - 1) * $nSpacer) + $nSpacer, _ ($nBtnHeight* ($xRows - 1)) + (($xRows - 1) * $nSpacer) + $nSpacer, _ $nBtnWidth, _ $nBtnHeight) GUICtrlSetOnEvent($xID+2, "Handler") Next Next GUISetOnEvent($GUI_EVENT_CLOSE, "CloseApp") GUISetState(@SW_SHOW) While 1 Sleep(10) WEnd Func CloseApp() Exit EndFunc Func Handler() MsgBox(0,0,"Button " & @GUI_CtrlId - 2) EndFunc  
    • XinYoung
      By XinYoung
      For fun, I'm building an app that opens a webpage and refreshes it every 30 seconds.
      But once the script performs _IEAction($oIE, "refresh"), the GUI closes.
      Any help is appreciated.
       

      #include <ButtonConstants.au3>
      #include <EditConstants.au3>
      #include <GUIConstantsEx.au3>
      #include <StaticConstants.au3>
      #include <WindowsConstants.au3>
      #include <WinAPIFiles.au3>
      #include <Array.au3>
      #include <File.au3>
      #include <Excel.au3>
      #include <DateTimeConstants.au3>
      #include <MsgBoxConstants.au3>
      #include <WinAPIShellEx.au3>
      #include <MsgBoxConstants.au3>
      #include <Date.au3>
      #include <ComboConstants.au3>
      #include <guimenu.au3>
      #include <IE.au3>
      HotKeySet("{F4}", "_Exit")
      ;Open the file(s) in the selected folder
      $extension = ".txt"
      $app2openWith = @SystemDir & "\notepad.exe"
      Func Begin()
          Global $loopTrick = 0
          #Region ### START Koda GUI section ### Form=c:\users\mchu\downloads\autoit\my code\form1.kxf
          Global $UI = GUICreate("Hit Em Up!", 256, 113, -1, -1)
          GUISetBkColor(0x000000)
          $menu = _GUICtrlMenu_GetSystemMenu($UI)
          _GUICtrlMenu_EnableMenuItem($menu, $SC_CLOSE, 1, False)
          Global $url = GUICtrlCreateInput("https://www.youtube.com/watch?v=dQw4w9WgXcQ", 81, 8, 160, 21)
          $Label1 = GUICtrlCreateLabel("Target:", 16, 8, 55, 17)
          GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
          GUICtrlSetColor(-1, 0x00FF00)
          Global $StartBut = GUICtrlCreateButton("Start", 16, 40, 67, 25)
          GUICtrlSetFont(-1, 13, 800, 0, "MS Sans Serif")
          GUICtrlSetBkColor(-1, 0x008000)
          $Label2 = GUICtrlCreateLabel("(Press F4 to Exit)", 96, 40, 8000, 17)
          GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
          GUICtrlSetColor(-1, 0x00FF00)
          GUISetState(@SW_SHOW)
          #EndRegion ### END Koda GUI section ###
          While 1
              $UIfunc = GUIGetMsg()
              Select
                  Case $UIfunc = $GUI_EVENT_CLOSE
                      _Exit()
                  Case $UIfunc = $StartBut
                      If GUICtrlRead($url) = "" Then
                          MsgBox(48, "Um...", "Give me a target you idiot.")
                      Else
                          GUICtrlSetState($url, $GUI_DISABLE)
                          GUICtrlSetState($StartBut, $GUI_DISABLE)
                          Start()
                      EndIf
              EndSelect
          WEnd
      EndFunc   ;==>Begin
      Func Start()
          If $loopTrick = 0 Then
              Global $oIE = _IECreate(GUICtrlRead($url))
              _IELoadWait($oIE)
              Again()
          ElseIf $loopTrick = 1 Then
              Sleep(3000)
              _IEAction($oIE, "refresh")
              Sleep(3000)
              Start()
          EndIf
      EndFunc   ;==>Start
      Func Again()
          $loopTrick = 1
          Start()
      EndFunc   ;==>Again
      Func _Exit()
          Exit
      EndFunc   ;==>_Exit
    • kcvinu
      By kcvinu
      Hi all,
      I have a button created with _GUICtrlButton_Create function. I know that this function returns a handle of button instead of an ID. So i have obtain control ID by calling _WinAPI_GetDlgCtrlID function. After that i have tried the GUICtrlSetBkColor function. But it didnt worked. Any suggestions will be appreciated. Thanks in advance. 
      Note : - The window which carries this button is not created with native gui create function. Instead, it is created with CreateWindowEx api function.
    • kcvinu
      By kcvinu
      Hi all,
      I am playing with _GUICtrlButton_Create function. How can i change this button's (or the entire form's) font ?. The in-built GUICtrlSetFont function is not working even when i convert the control handle to control ID with _WinAPI_GetDlgCtrlID ( ) function.  Do i need to use CreateFont api finction and send WM_SETFONT message ? Or is there any other easy and safe ways to do this ?. Thanks in advance.
      Note : This window is created by CreateWindowEx function, not by GUICreate function. 
×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.