questions regarding PNG as GUI

April 6, 2009

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 April 6, 2009 by scorch

April 6, 2009

http://www.autoitscript.com/forum/index.php?s=&showtopic=92675&view=findpost&p=666005 => Example3.

April 6, 2009

http://www.autoitscript.com/forum/index.php?s=&showtopic=92675&view=findpost&p=666005 => Example3.

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?

April 6, 2009

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)

April 6, 2009

yea but wat i am trying to do is make my GUI have this apprearance http://www.autoitscript.com/forum/index.ph...st&id=15076

Edited April 6, 2009 by scorch

April 8, 2009

anybody have some input?

Sign In

questions regarding PNG as GUI

Recommended Posts

scorch 0

Share this post

Link to post

Share on other sites

Yashied 203

Share this post

Link to post

Share on other sites

scorch 0

Share this post

Link to post

Share on other sites

Yashied 203

Share this post

Link to post

Share on other sites

scorch 0

Share this post

Link to post

Share on other sites

scorch 0

Share this post

Link to post

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Browse

AutoIt Resources

Release

Beta