Jump to content
Sign in to follow this  
scorch

questions regarding PNG as GUI

Recommended Posts

scorch

i was wondering how do i go about applying PNG to my current GUI. i wanted it to look like the one in this post but i dont know where to even start. example: http://www.autoitscript.com/forum/index.ph...st&p=357042

here is my script below any advice etc... is really appreciated

#AutoIt3Wrapper_outfile=Hot Key RDC.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Add_Constants=n


#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#Include <GuiComboBox.au3>
#Include <GuiToolbar.au3>
#include <ButtonConstants.au3>


;third row def. production disk2 builders
Global $Button_PD1, $Button_PD2

;Below third row 4th column DISK2 TEST and disk to pst 
Global $Button_CC1, $Button_CC2, $Button_CC3, $Button_CC4, $Button_CC5

;Below third row 5th column DISK2 TEST and disk to pst 
Global $Button_SC1, $Button_SC2, $Button_SC3, $Button_SC4

;Below 1st row 2nd column spreadsheets 
Global $Button_SP1, $Button_SP2, $Button_SP3

;Below 2st row 2nd column spreadsheets 
Global $Button_WS1, $Button_WS2, $Button_WS3, $Button_WS4, $Button_WS5, $Button_WS6, $Button_WS7, $Button_WS8, $Button_WS9
Global $Button_MMGO, $Button_TSTGO, $Button_PSTGO, $Button_DSK2GO
;***************************************************************************************************


*************************************************************

;top label HEADERS and specifying that this window is rezisable
$GUI = GUICreate("Data Operations QUICK KEYS", 450, 460, -1, -1, $WS_SIZEBOX + $WS_SYSMENU)
;context menu
$contextMenu = GuiCtrlCreateContextMenu()
GuiCtrlCreateMenuItem("Context Menu", $contextMenu)
GuiCtrlCreateMenuItem("", $contextMenu);separator
GuiCtrlCreateMenuItem("&Properties", $contextMenu)
;resize function
GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKBOTTOM) 
GuiCtrlCreatePic("\\finch\ceregen_it\JEGONZ\Public\pics\TPS-pic.JPG", 0, 0, 0, 0)
;SETTING BACKGROUND COLOR OF GUI
GUISetBkColor(0xFFFFFF)
;***************************************************************************************************


*************************************************************

;GUICtrlCreateLabel("DATA OPERATIONS LAYOUT", 135, 10)
$font = "Arial Bold"
GUISetFont(9, 400, 0, $font) 
GUICtrlCreateLabel("Test Virtual Servers", 10, 85)
GUICtrlCreateLabel("Post Prod Machines", 10, 135)
GUICtrlCreateLabel("Disk2 Builders", 10, 185)
GUICtrlCreateLabel("Sync Servers", 10, 235)
GUICtrlCreateLabel("Console Controls", 188, 85)
GUICtrlCreateLabel("Quick Scripts", 200, 235)
GUICtrlCreateLabel("Tools", 220, 360)
GUICtrlCreateLabel("Spread Sheets", 338, 85)
GUICtrlCreateLabel(" Web Sites", 350, 185)
GUICtrlCreateLabel("RDC Midas Masters", 10, 285)
GUISetFont(8.5, 400, 0, "") 
;***************************************************************************************************


*************************************************************

; INPUT
$MMInput = GuiCtrlCreateInput("Prog", 15, 300, 35, 20)
$TSTInput =GuiCtrlCreatecombo("Choose Machine", 10, 100, 105, 20)
GUICtrlSetData(-1, "MMH1TESTVM1 |MMMETESTVM1 |MMD1TESTVM2 |MMD2TESTVM2 |MMCATESTVM3|MMEZTESTVM3 |MMM3TESTVM4 |MMEFTESTVM4 |MM8TTESTVM5 |MMSDTESTVM5 |MME8TESTVM6 |MMOXTESTVM6 |MM9ZTESTVM7 |MM9QTESTVM7 |MMBYTESTVM8 |MMDNTESTVM8 |MMCQTESTVM9 |MMF1TESTVM9")
$PSTInput =GuiCtrlCreatecombo("Choose Machine", 10, 150, 105, 20)
GUICtrlSetData(-1, "TPS-TRAIN-01|TPS-TRAIN-02|TPS-TRAIN-03|TPS-TRAIN-04|TPS-TRAIN-05|TPS-TRAIN-06|TPS-TRAIN-07|TPS-TRAIN-08|TPS-TRAIN-09|TPS-TRAIN-10|TPS-TRAIN-11|TPS-TRAIN-12|TPS-TRAIN-13|TPS-TRAIN-14|TPS-TRAIN-15|TPS-TRAIN-16|TPS-TRAIN-17|TPS-TRAIN-18")
$DSK2Input =GuiCtrlCreatecombo("Choose Machine", 10, 200, 105, 20)
GUICtrlSetData(-1, "DISK2|DISK2-PRD|LWHERM-PST|DISK2-TEST|CCHURS-TESTING")
$SNCInput =GuiCtrlCreatecombo("Choose Machine", 10, 250, 105, 20)
GUICtrlSetData(-1, "BLUE JAY|GREEN JAY|BROWN JAY|SALMON|MIDASTRNSRV02")
;***************************************************************************************************


*************************************************************

;first row of buttons
Opt("GUICoordMode", 1)
;SETTING COLOR OF BUTTONS
GUICtrlSetDefBkColor(0xD1D9E5)
;***************************************************************************************************


*************************************************************

$Button_PD1 = GUICtrlCreateButton("MDMT2", 175, 375, 125)
$Button_PD2 = GUICtrlCreateButton("MDMT2 Test", 175, 400, 125)
;Below 4th row second column DISK2 TEST and disk to pst 
$Button_CC1 = GUICtrlCreateButton("Post Prod Machines", 175, 100, 125)
$Button_CC2 = GUICtrlCreateButton("Training Laptops", 175, 125, 125)
$Button_CC3 = GUICtrlCreateButton("Test VMs & Hosts", 175, 150, 125)
$Button_CC4 = GUICtrlCreateButton("Sync Servers", 175, 175, 125)
$Button_CC5 = GUICtrlCreateButton("Disk2 Builders", 175, 200, 125)
;Below 5th row second column DISK2 TEST and disk to pst 
$Button_SC1 = GUICtrlCreateButton("BO Common Error Fix", 175, 250, 125)
$Button_SC2 = GUICtrlCreateButton("User Overwritten Script", 175, 275, 125)
$Button_SC3 = GUICtrlCreateButton("Sql Version Check", 175, 300, 125)
$Button_SC4 = GUICtrlCreateButton("Number of Triggers", 175, 325, 125)
;Below 1st row second column spreadsheet
$Button_SP1 = GUICtrlCreateButton("Midas Master Programs", 315, 100, 125)
$Button_SP2 = GUICtrlCreateButton("Midas Passwords", 315, 125, 125)
$Button_SP3 = GUICtrlCreateButton("PST Training Room", 315, 150, 125)
;Below 2nd row second column WEBSITES
$Button_WS1 = GUICtrlCreateButton("Team Track", 315, 200, 125)
$Button_WS2 = GUICtrlCreateButton("Team Space", 315, 225, 125)
$Button_WS3 = GUICtrlCreateButton("Magic Helpdesk", 315, 250, 125)
$Button_WS4 = GUICtrlCreateButton("Zabbix", 315, 275, 125)
$Button_WS5 = GUICtrlCreateButton("Site Scope", 315,300, 125)
$Button_WS6 = GUICtrlCreateButton("Prod Polling", 315, 325, 125)
$Button_WS7 = GUICtrlCreateButton("Altris Midas Report", 315, 350, 125)
$Button_WS8 = GUICtrlCreateButton("Lyceum", 315, 375, 125)
$Button_WS9 = GUICtrlCreateButton("ETL Advance Monitor", 315, 400, 125)
;Below 1st row 3rd column prog name
$Button_MMGO = GUICtrlCreateButton("GO", 50, 297, 50)
$Button_TSTGO = GUICtrlCreateButton("GO", 115, 97, 50)
$Button_PSTGO = GUICtrlCreateButton("GO", 115, 147, 50)
$Button_DSK2GO = GUICtrlCreateButton("GO", 115, 197, 50)
$Button_SNCGO = GUICtrlCreateButton("GO", 115, 247, 50)
;***************************************************************************************************


*************************************************************

GUISetState()
While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    
    Case $msg = $Button_PD1
        ShellExecute( @ProgramFilesDir & "\Monsanto\MDMT2\mdmt windows application.exe")
    Case $msg = $Button_PD2
        ShellExecute( @ProgramFilesDir & "\Monsanto\MDMT2 Test\mdmt windows application.exe")   
        

    Case $msg = $Button_CC1
        ShellExecute("mmc.exe",'"\\finch\ceregen_it\JEGONZ\Public\Consoles\Training Lab Post Prod.msc"')        
    Case $msg = $Button_CC2
        ShellExecute("mmc.exe",'"\\finch\ceregen_it\JEGONZ\Public\Consoles\Training Laptops.msc"')
    Case $msg = $Button_CC3
        ShellExecute("mmc.exe",'"\\finch\ceregen_it\JEGONZ\Public\Consoles\VM Test Environment.msc"')
    Case $msg = $Button_CC4
        ShellExecute("mmc.exe",'"\\finch\ceregen_it\JEGONZ\Public\Consoles\Servers.msc"')
    Case $msg = $Button_CC5
        ShellExecute("mmc.exe",'"\\finch\ceregen_it\JEGONZ\Public\Consoles\disk2.msc"') 
    Case $msg = $Button_SC1
        ShellExecute("isqlw.exe")
        Sleep(1000)
        ShellExecute("notepad.exe", "\\finch\ceregen_it\JEGONZ\Public\db scripts\BO_Common_cleanup_bad_messages.sql")
    Case $msg = $Button_SC2
        ShellExecute("isqlw.exe")
        Sleep(1000)
        ShellExecute("notepad.exe", "\\finch\ceregen_it\JEGONZ\Public\db scripts\user overwritten.txt")
    Case $msg = $Button_SC3
        ShellExecute("isqlw.exe")
        Sleep(1000)
        ShellExecute("notepad.exe", "\\finch\ceregen_it\JEGONZ\Public\db scripts\sql version check.txt")
    Case $msg = $Button_SC4
        ShellExecute("isqlw.exe")
        Sleep(1000)
        ShellExecute("notepad.exe", "\\finch\ceregen_it\JEGONZ\Public\db scripts\Number of Triggers.txt")   
    Case $msg = $Button_SP1
        ShellExecute( @ProgramFilesDir & "http://w3dom.monsanto.com/teamspace/tm4139.nsf/0/49C56BD9C400330B8625754B0015E069/$file/MIDASMasterProgramInfo.xlsx?OpenElement", "", "")
    Case $msg = $Button_SP2
        ShellExecute( @ProgramFilesDir & "http://w3.monsanto.com/asp/ts4.asp?tsid=4139&resid=BD14183C86C3CA2886257547006CED60R", "", "")
    Case $msg = $Button_SP3
        ShellExecute("EXCEL.EXE")
        Sleep(500)
        ShellExecute("\\FINCH\IT_PROJECTS\DeploymentandSupport\TechnicalServices\Private\Training room setup.xlsx", "", "") 
    Case $msg = $Button_WS1
        ShellExecute( @ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE", "http://w3.teamtrack.monsanto.com/tmtrack/tmtrack.dll?", "", "")
    Case $msg = $Button_WS2
        ShellExecute( @ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE", "http://w3.monsanto.com/asp/ts4.asp?tsid=4139", "", "")
    Case $msg = $Button_WS3
        ShellExecute( @ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE", "http://screechowl/magicsshd", "", "")  
        
    Case $msg = $Button_WS4
        ShellExecute( @ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE", "http://stpuxa00/zabbix/screens.php?fullscreen=0&screenid=81", "", "")
    Case $msg = $Button_WS5
        ShellExecute( @ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE", "http://164.144.128.44:8888/SiteScope/userhtml/DetailTPSPROD.html", "", "")
    Case $msg = $Button_WS6
        ShellExecute( @ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE", "http://mbkmx2d1/ProdPolling/PollingMain.asp", "", "")  
        
    Case $msg = $Button_WS7
        ShellExecute( @ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE", "http://na1000ans00/Altiris/NS/Admin/Reports/report_summary.aspx?Guid=303d60d7-f3be-4b6d-ac6f-593023155711", "", "")
    Case $msg = $Button_WS8
        ShellExecute( @ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE", "http://w3.lyceum.monsanto.com/signin", "", "")
    Case $msg = $Button_WS9
        ShellExecute( @ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE", "http://w3t.rubicon.monsanto.com/etl-admin/displayEnvSelection.do", "", "")     
;***************************************************************************************************


*************************************************************

    Case $msg = $Button_MMGO
        $MMName = GUICtrlRead($MMInput)
        $MMList = IniRead("\\finch\ceregen_it\JEGONZ\Public\DB access\machines.ini","Machines",$MMName, 1)
        If $MMList = 0 Then
            ShellExecute("mstsc.exe")
            WinWaitActive("Remote Desktop Connection", "", 30)
            sleep(500)
            send($MMList)
            sleep(500)
            Send('{ENTER}')
            Else
                MsgBox(0,"Error","No Machine Listed for this Program",-1,$GUI)
        EndIf

    Case $msg = $Button_TSTGO
        $TSTName = GUICtrlRead($TSTInput)
        $TSTList=IniRead("\\finch\ceregen_it\JEGONZ\Public\DB access\TestRDC.ini", "TestVM", $TSTName, 1)
        If $TSTList = 0 Then
            ShellExecute("mstsc.exe")
            WinWaitActive("Remote Desktop Connection", "", 30)
            sleep(500)
            send($TSTList)
            sleep(500)
            Send('{ENTER}')
            Else
                MsgBox(0,"Unable to Connect ","The specified remote computer could not be reached",-1,$GUI)

            EndIf
    
    Case $msg = $Button_PSTGO
        $PSTName = GUICtrlRead($PSTInput)
        $PSTList=IniRead("\\finch\ceregen_it\JEGONZ\Public\DB access\PSTRDC.ini", "TrainMachines", $PSTName, 1)
        If $PSTList = 0 Then
            ShellExecute("mstsc.exe")
            WinWaitActive("Remote Desktop Connection", "", 30)
            sleep(500)
            send($PSTList)
            sleep(500)
            Send('{ENTER}')
            Else
                MsgBox(0,"Unable to Connect ","The specified remote computer could not be reached",-1,$GUI)

            EndIf
    Case $msg = $Button_DSK2GO
        $DSK2Name = GUICtrlRead($DSK2Input)
        $DSK2List=IniRead("\\finch\ceregen_it\JEGONZ\Public\DB access\DSK2.ini", "DSK2", $DSK2Name, 1)
        If $DSK2List = 0 Then
            ShellExecute("mstsc.exe")
            WinWaitActive("Remote Desktop Connection", "", 30)
            sleep(500)
            send($DSK2List)
            sleep(500)
            Send('{ENTER}')
            Else
                MsgBox(0,"Unable to Connect ","The specified remote computer could not be reached",-1,$GUI)

            EndIf
    
    Case $msg = $Button_SNCGO
        $SNCName = GUICtrlRead($SNCInput)
        $SNCList=IniRead("\\finch\ceregen_it\JEGONZ\Public\DB access\SNC.ini", "SNC", $SNCName, 1)
        If $SNCList = 0 Then
            ShellExecute("mstsc.exe")
            WinWaitActive("Remote Desktop Connection", "", 30)
            sleep(500)
            send($SNCList)
            sleep(500)
            Send('{ENTER}')
            Else
                MsgBox(0,"Unable to Connect ","The specified remote computer could not be reached",-1,$GUI)

            EndIf
    
    
        
        EndSelect
    
WEnd
Edited by scorch

Share this post


Link to post
Share on other sites
Yashied
Yashied

ok so that im on the right page with you.

i take the icon.au3 file and save it to my include folder right?

then i copy and paste example 3 script into mine but how exactly do i interlaced that into my script?

If you use BMP, JPG or GIF, it is sufficient GUICtrlCreatePic().

GuiCtrlCreatePic("\\finch\ceregen_it\JEGONZ\Public\pics\TPS-pic.JPG", 0, 0, 0, 0) - this is wrong.

GuiCtrlCreatePic("\\finch\ceregen_it\JEGONZ\Public\pics\TPS-pic.JPG", 0, 0, 450, 460)

Share this post


Link to post
Share on other sites
scorch

anybody have some input?

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
Sign in to follow this  

×