clicking on an menu item

shawnmstout · August 2, 2009

is there something else i can use other than a case statement

is there a command i can use such as a onclick event

the reason why is because i already have a listener for the $msg = TrayGetMsg()

and im creating a menu bases on a loop so having a case statement really isnt going to work

thanks in advance

Info · August 2, 2009

GUICtrlSetOnEvent($MenuItem,"_ItemFunction")

Func _ItemFunction()
    ;Your code here
EndFunc

?

shawnmstout · August 2, 2009

GUICtrlSetOnEvent($MenuItem,"_ItemFunction")

Func _ItemFunction()
    ;Your code here
EndFunc

?

its already in a function, is there another way?

shawnmstout · August 2, 2009

its already in a function, is there another way?

attached is what i have right now, line 1 through 28

functionsSystemInfo.au3

Info · August 2, 2009

Well, you can use the If statement instead of switching to GuiGetMsg() and using 'Case'.

While 1
    If GUIGetMsg() = $MenuItem Then _ItemFunction()
EndIf

Func _ItemFunction()
    ;...
EndFunc

I'm still not quite sure what you are trying to do, could you provide a little code that describes your problem?

Edit: maybe shawn's script is what you're looking for. >_<

Edited August 2, 2009 by Info

shawnmstout · August 2, 2009

Well, you can use the If statement instead of switching to GuiGetMsg() and using 'Case'.
While 1
    If GUIGetMsg() = $MenuItem Then _ItemFunction()
EndIf

Func _ItemFunction()
    ;...
EndFunc
I'm still not quite sure what you are trying to do, could you provide a little code that describes your problem?
Edit: maybe shawn's script is what you're looking for. >_<

i updated, but its still not working correctly, its running even when not clicked,

its calling DownloadingMessage when its supposed to be clicked

basically whats going on is its grabbing a txt file from a website that creates the menu and menu items, to create a tools section

now what im trying to get working is when they click on the file it downloads it, it worked before when it was static, but since i have no constants and its in a loop, its causing me issues, all variables set in this function gets changes each loop, so i have to create the onclicks inside of the loop, atleast thats what im thinking

functionsSystemInfo.au3

Edited August 2, 2009 by shawnmstout

Info · August 2, 2009

Ah, I still fail to understand what the OP is trying to do. >_

shawnmstout · August 2, 2009

Ah, I still fail to understand what the OP is trying to do. >_<

don't know what you mean by OP

GUICtrlSetOnEvent($toolsFile, "DownloadingMessage")

While 1

If GUIGetMsg() = $toolsFile Then DownloadingMessage($dname, $dfile, $durl)

WEnd

is what is running whether i click on the menu item or not

what it does is, when you click on a menu item, it runs the function DownloadingMessage which downloads the file

Info · August 2, 2009

Sigh, I thought you were someone else when you posted the script. >_>

don't know what you mean by OP

Original poster.

GUICtrlSetOnEvent($toolsFile, "DownloadingMessage")
While 1
    Sleep(50)
WEnd

Func DownloadingMessage($dname, $dfile, $durl)
    ;...
EndFunc

shawnmstout · August 2, 2009

Sigh, I thought you were someone else when you posted the script. >_>

Original poster.

GUICtrlSetOnEvent($toolsFile, "DownloadingMessage")
While 1
    Sleep(50)
WEnd

Func DownloadingMessage($dname, $dfile, $durl)
    ;...
EndFunc

thats not going to stop it from running when the program first starts, the GUICtrlSetOnEvent is running no matter what, not when the menu item is being clicked

Info · August 2, 2009

Could you please provide your full GUI script?

shawnmstout · August 2, 2009

Could you please provide your full GUI script?

ok but you asked for it >_<

this should run if you use traymenu.au3

it calls the function on line 61

i guess i should tell you also we are dealing with the tools menu

SRC.zip

Edited August 2, 2009 by shawnmstout

Info · August 2, 2009

I give up.

shawnmstout · August 2, 2009

I give up.

um, mind if i ask why?

Info · August 2, 2009

I really can't understand what you are trying to do.

shawnmstout · August 2, 2009

I really can't understand what you are trying to do.

when you click on an item in the tools menu it downloads and installs, thats it, i dont know whats hard to understand about that

its the click function that isnt working, its running without clicking on it

Tvern · August 2, 2009

I haven't looked at the entire thing, but I'm guessing your problem is that the script hangs at line 18-23 in "functionsSystemInfo.au3"

The problem is caused by $toolsfile not containing a value, so it's going to match GUIGetMsg() unless you do a GUI action that sets GUIGetMsg()

Checking if the variables you are comparing GUIGetMsg() with actually have a value should help.

Another problem seems to be that you're hiding the tray icon, but you are using it as the main interface for your program?

And you seem to be using GUICtrlSetOnEvent() while using GUIGetMsg() I was under the impression the two where mutually exclusive.

Edited August 2, 2009 by Tvern

Tvern · August 2, 2009

I spend some time trying to figure out what you where trying to do and I think I got a pretty good idea.

I got most of the functions to work for me by changing some Run()'s to ShellExecute()'s and making some other changes. I believe the only changes I made where to traymenu.au3 and functionsSystemInfo.au3

traymanu.au3:

#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <String.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <GUIListBox.au3>
#include <TabConstants.au3>
#include <CompInfo.au3>
#include <config.au3>
#include <memstats.au3>
#include <functionsSystemInfo.au3>
Opt("TrayMenuMode",1)   ; Default tray menu items (Script Paused/Exit) will not be shown.
$sysInfo = TrayCreateItem("System Information")
TrayCreateItem("")
$shortcuts = TrayCreateMenu("Directories")
TrayCreateItem("")
$tools = TrayCreateMenu("Tools")
TrayCreateItem("")
$diag = TrayCreateMenu("Diagnostics")
TrayCreateItem("")
$commonCommands = TrayCreateMenu("Common Commands")
TrayCreateItem("")
$exit   = TrayCreateItem("Exit")
;----------------------------Common Windows Commands -----------------------------------
$commandMSconfig = TrayCreateItem("MSCONFIG", $commonCommands)
TrayCreateItem("", $commonCommands)
$commandPrompt = TrayCreateItem("Command Prompt", $commonCommands)
TrayCreateItem("", $commonCommands)
$commandRegedit = TrayCreateItem("Registry Editor", $commonCommands)
TrayCreateItem("", $commonCommands)
$commandTaskManager = TrayCreateItem("Task Manager", $commonCommands)
TrayCreateItem("", $commonCommands)
$commandAddRemovePrograms = TrayCreateItem("Add/Remove Programs", $commonCommands)
TrayCreateItem("", $commonCommands)
;----------------------------Shortcut Directories---------------------------------------
$rootShortcut = TrayCreateItem($drive, $shortcuts)
TrayCreateItem("", $shortcuts)
$desktopShortcut = TrayCreateItem("Desktop", $shortcuts)
$documentsShortcut = TrayCreateItem("My Documents", $shortcuts)
$favoritesShortcut = TrayCreateItem("Favorites", $shortcuts)
$programsShortcut = TrayCreateItem("Programs", $shortcuts)
$profileShortcut = TrayCreateItem("Profile", $shortcuts)
TrayCreateItem("", $shortcuts)
$system32Shortcut = TrayCreateItem("System32", $shortcuts)
$windowsShortcut = TrayCreateItem("Windows", $shortcuts)
TrayCreateItem("", $shortcuts)
$ProgramtempDirShortcut = TrayCreateItem($name & " Temp Directory ", $shortcuts)
$tempShortcut = TrayCreateItem("Temp Directory", $shortcuts)
;----------------------------Diagnostics Menu--------------------------------------------
$memoryStats = TrayCreateItem("Memory Status", $diag)
TrayCreateItem("",$diag)
$internetTest = TrayCreateItem("Internet Connection Test", $diag)
$internetConfig = TrayCreateItem("Internet Configuration", $diag)
;----------------------------Tools Menu--------------------------------------------------
$ToolMenuArray = getToolsMenu()
TraySetState()
While 1
    $msg = TrayGetMsg()
    Select
        Case $msg = $sysInfo
            #Region ### START Koda GUI section ### Form=
            $frmSysInfo = GUICreate("System Information", 800, 700)
            GUICtrlCreateTab(10,10,850,20)
            ;Create System Tabs
            $driveTab = GUICtrlCreateTabItem("Hard Drives")
            GetDriveInfo()
            $biosTab = GUICtrlCreateTabItem("Bios")
            getBios()
            $serviceTab = GUICtrlCreateTabItem("Services")
            getServices()
            $processTab = GUICtrlCreateTabItem("Running Processes")
            getRunningProcesses()
            $displayTab = GUICtrlCreateTabItem("Display")
            getDisplay()
            $systemTab = GUICtrlCreateTabItem("System")
            GetSystemInfo()
            $printTab = GUICtrlCreateTabItem("Print")
            GetPrintJobs()
            GUISetState(@SW_SHOW, $frmSysInfo)
            #EndRegion ### END Koda GUI section ###
            While 1
                If GUIGetMsg() = -3 Then 
                    ExitLoop
                EndIf
            WEnd
            GuiSetState(@SW_HIDE, $frmSysInfo)
        Case $msg = $commandMSconfig
            If @OSVersion = "WIN_VISTA" Then
                $path = @SystemDir & "\msconfig.exe"
            EndIf
            If @OSVersion = "WIN_XP" Then
                $path = @WindowsDir & "\PCHEALTH\HELPCTR\Binaries\msconfig"
            EndIf
            Run($path)
        Case $msg = $commandAddRemovePrograms
            Run("appwiz.cpl")
        Case $msg = $commandPrompt
            Run (@SystemDir & "\cmd.exe")
        Case $msg = $commandRegedit
            Run (@SystemDir & "\regedt32.exe")
        Case $msg = $commandTaskManager
            Run (@SystemDir & "\taskmgr.exe")
        Case $msg = $ProgramTempDirShortcut
            ShellExecute($tempDir)
        Case $msg = $desktopShortcut
            ShellExecute(@DesktopDir)
        Case $msg = $documentsShortcut
            ShellExecute(@MyDocumentsDir)
        Case $msg = $tempShortcut
            ShellExecute(@TempDir)
        Case $msg = $favoritesShortcut
            ShellExecute(@FavoritesDir)
        Case $msg = $programsShortcut
            ShellExecute(@ProgramFilesDir)
        Case $msg = $profileShortcut
            ShellExecute(@UserProfileDir)
        Case $msg = $system32Shortcut
            ShellExecute(@SystemDir)
        Case $msg = $windowsShortcut
            ShellExecute(@WindowsDir)
        Case $msg = $rootShortcut
            ShellExecute($drive)
        Case $msg = $memoryStats
            MemStats()
                ;TrayItemSetOnEvent( $memoryStats, MemStats())
        Case $msg = $internetTest
            dim $var
            $var = ping("google.com", 2000)
            if $var > '1' Then
                msgbox(0, "Internet Connection Test", "You Are Connected to the Internet")
            Else
                msgBox(0, "Internet Connection Test", "No Connection to the Internet")
            EndIf
        Case $msg = $InternetConfig
                $IP = TCPNameToIP("checkIp.dyndns.org")
                $hCon = TCPConnect($IP, 80)
                TCPSEND($hCon, "GET / HTTP/1.1" & @CRLF & "HOST: checkip.dyndns.org" & @CRLF & @CRLF)
                Do
                    $sRecv = TCPRecv($hCon, 1024)
                Until $sRecv <> ''
                $externalIP = _StringBetween($sRecv, "Address:", "</body>") 
                msgBox(0, "IP Information", "External IP Address: " & $externalIP[0])
        Case $msg = $exit
       ExitLoop
    EndSelect
    For $i = 1 To UBound($ToolMenuArray)-1
        If $msg = $ToolMenuArray[$i][0] Then
            DownloadingMessage($ToolMenuArray[$i][1], $ToolMenuArray[$i][1], $ToolMenuArray[$i][2])
        EndIf
    Next
WEnd
Exit

functionsSysteminfo.au3:

Func getToolsMenu()
    Local $CtrlArray[1][3], $Ubound
    $DumpFile = @TempDir & "\files.txt"
    InetGet($toolsDir&"files.txt", $DumpFile);
    $sDatabaseRaw = FileRead($DumpFile)
    $asDatabase = StringSplit($sDatabaseRaw,"^", 2)
    For $element In $asDatabase
        If $element = "" Then ContinueLoop
        $asItem = StringSplit($element,',',3)
        $toolsDirName = $asItem[0]
        $toolsDirMenu = TrayCreateMenu($toolsDirName, $tools)
        For $toolsFile In $asItem
            If $toolsFile = $toolsDirName Then ContinueLoop
            
            $Ubound = UBound($CtrlArray)
            ReDim $CtrlArray[$Ubound+1][3]
            $CtrlArray[$Ubound][0] = TrayCreateItem($toolsFile, $toolsDirMenu)
            $CtrlArray[$Ubound][1] = $toolsFile
            $CtrlArray[$Ubound][2] = $toolsDir & $toolsDirName & "/" & $toolsFile
        Next
    Next
    Return $CtrlArray
EndFunc
Func DownloadingMessage($dname, $dfile, $durl)
    InetGet($durl,@ScriptDir & "\" & $dfile,1,1)
        While @InetGetActive
            $filesize = InetGetSize($durl)
            $currentsize = @InetGetBytesRead
            $percentDownloaded = Round((($currentsize / $filesize) * 100), 1) & "% Complete"
            TrayTip("Downloading " & $dname, "File: " & $dfile & " " & $percentDownloaded, 10, 16)
        Wend
        TrayTip("Download Complete", "You have successfully downloaded " & $dfile,2,16) 
        ShellExecute($dfile, $tempDir, "run")
EndFunc
;----------------------------Computer Info---------------------------------------------
Global $colorOdd = 0xFFFFFF, $colorEven = 0xFAF371
;Get Drive Information
Func GetDriveInfo()
    $ListViewDrives = GUICtrlCreateListView("Drive# | Label | Drive | FileSystem | Serial Number | " & _
    "Free Space | Total Space ", 10, 75, 775, 600)
    GUICtrlSetBkColor($ListViewDrives, $GUI_BKCOLOR_LV_ALTERNATE)
    GUICtrlSetBkColor($ListViewDrives, $colorOdd)
    Dim $Drives
    _ComputerGetDrives($Drives) ;Defaults to "FIXED"
    For $i = 1 To $Drives[0][0] Step 1
        $sDataDrives = $i & "|"
        $sDataDrives &= $Drives[$i][2] & "|" & $Drives[$i][0] & "|" & $Drives[$i][1] & "|" & $Drives[$i][3] & "|" 
        $sDataDrives &= Round($Drives[$i][4]/1024,2) & "GB" & "|" & Round($Drives[$i][5]/1024,2) & "GB"
        GUICtrlCreateListViewItem($sDataDrives, $ListViewDrives)
        GUICtrlSetBkColor(-1, $colorEven)
    Next
EndFunc
;Get System Information
Func GetSystemInfo()
    ;Left Column
    GUICtrlCreateGraphic(5, 35, 260, 340)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetColor(-1, 0)
    GUICtrlCreateGraphic(5, 375, 260, 80)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetColor(-1, 0)
    GUICtrlCreateGraphic(5, 455, 260, 185)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetColor(-1, 0)
    ;Right Column
    GUICtrlCreateGraphic(295, 35, 260, 100)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetColor(-1, 0)
    GUICtrlCreateGraphic(295, 118, 260, 500)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetColor(-1, 0)
    Dim $OSs
    _ComputerGetOSs($OSs)
    ;Left = "24" Top = "40" Width = "260" Height = "17"
    For $i = 1 To $OSs[0][0] Step 1
    $osName = "Name" & $OSs[$i][0]
    $arrayOsName = _StringBetween($osName, "Name", "|");
    GUICtrlCreateLabel("--------OPERATING SYSTEM INFO------", 25, 40, 250, 20)
    GUICtrlCreateLabel("Name: " & $arrayOsName[0], 25, 60, 250, 20)
    GUICtrlCreateLabel("Manufacturer: " & $OSs[$i][28], 25, 80, 250, 20)
    GUICtrlCreateLabel("Build Number: " & $OSs[$i][2], 25, 100, 250, 20)
    GUICtrlCreateLabel("Build Type: " & $OSs[$i][3], 25, 120, 250, 20)
    GUICtrlCreateLabel("Bit Type: " & $OSs[$i][8], 25, 140, 250, 20)
    GUICtrlCreateLabel("Computer Version: " & $OSs[$i][9], 25, 160, 250, 20)
    GUICtrlCreateLabel("Computer Name: " & $OSs[$i][10], 25, 180, 250, 20)
    GUICtrlCreateLabel("Install Date: " & $OSs[$i][23], 25, 200, 250, 20)
    GUICtrlCreateLabel("Registered User: " & $OSs[$i][45], 25, 220, 250, 20)
    GUICtrlCreateLabel("Serial Number: " & $OSs[$i][46], 25, 240, 250, 20)
    GUICtrlCreateLabel("Service Pack Major Version: " & $OSs[$i][47], 25, 260, 250, 20)
    GUICtrlCreateLabel("Service Pack Minor Version: " & $OSs[$i][48], 25, 280, 250, 20)
    GUICtrlCreateLabel("Version: " & $OSs[$i][58], 25, 300, 250, 20)
    GUICtrlCreateLabel("Windows Directory: " & $OSs[$i][59], 25, 320, 250, 20)
    GUICtrlCreateLabel("Suite Mask: " & $OSs[$i][51], 25, 340, 250, 20)
    GUICtrlCreateLabel("Number Of Users: " & $OSs[$i][33], 25, 360, 250, 20)
    GUICtrlCreateLabel("-----------ROOT DRIVE INFO--------", 25, 380, 250, 20)
    GUICtrlCreateLabel("System Device: " & $OSs[$i][52], 25, 400, 250, 20)
    GUICtrlCreateLabel("System Directory: " & $OSs[$i][53], 25, 420, 250, 20)
    GUICtrlCreateLabel("System Drive: " & $OSs[$i][54], 25, 440, 250, 20)
    GUICtrlCreateLabel("-----------MEMORY STATS-----------", 25, 460, 250, 20)
    GUICtrlCreateLabel("Free Physical Memory: " & Round($OSs[$i][20]/1024,1) & "MB", 25, 480, 250, 20)
    GUICtrlCreateLabel("Free Space In Paging Files: " & Round($OSs[$i][21]/1024,1) & "MB", 25, 500, 250, 20)
    GUICtrlCreateLabel("Free Virtual Memory: " & Round($OSs[$i][22]/1024,1) & "MB", 25, 520, 250, 20)
    GUICtrlCreateLabel("Total Swap Space Size: " & Round($OSs[$i][55]/1024,1) & "MB", 25, 540, 250, 20)
    GUICtrlCreateLabel("Total Virtual Memory Size: " & Round($OSs[$i][56]/1024,1) & "MB", 25, 560, 250, 20)
    GUICtrlCreateLabel("Total Visible Memory Size: " & Round($OSs[$i][57]/1024,1) & "MB", 25, 580, 250, 20)
    GUICtrlCreateLabel("Size Stored In Paging Files: " & Round($OSs[$i][49]/1024,1) & "MB", 25, 600, 250, 20)
    GUICtrlCreateLabel("Number Of Processes: " & $OSs[$i][32], 25, 620, 250, 20)
    GUICtrlCreateLabel("-----------TIME INFORMATION-----------", 300, 40, 250, 20)
    GUICtrlCreateLabel("Last Boot Up Time: " & $OSs[$i][25], 300, 60, 250, 20)
    GUICtrlCreateLabel("Local Date Time: " & $OSs[$i][26], 300, 80, 250, 20)
    GUICtrlCreateLabel("Locale: " & $OSs[$i][27], 300, 100, 250, 20)
    GUICtrlCreateLabel("-----------MISC INFORMATION-----------", 300, 120, 250, 20)
    GUICtrlCreateLabel("Large System Cache: " & $OSs[$i][24], 300, 140, 250, 20)
    GUICtrlCreateLabel("Current Time Zone: " & $OSs[$i][11], 300, 160, 250, 20)
    GUICtrlCreateLabel("Data Execution Prevention_32BitApplications: " & $OSs[$i][12], 300, 180, 250, 20)
    GUICtrlCreateLabel("Data Execution Prevention_Available: " & $OSs[$i][13], 300, 200, 250, 20)
    GUICtrlCreateLabel("Data Execution Prevention_Drivers: " & $OSs[$i][14], 300, 220, 250, 20)
    GUICtrlCreateLabel("Data Execution Prevention_SupportPolicy: " & $OSs[$i][15], 300, 240, 250, 20)
    GUICtrlCreateLabel("Debug: " & $OSs[$i][16], 300, 260, 250, 20)
    GUICtrlCreateLabel("Distributed: " & $OSs[$i][17], 300, 280, 250, 20)
    GUICtrlCreateLabel("Encryption Level: " & $OSs[$i][18], 300, 300, 250, 20)
    GUICtrlCreateLabel("Foreground Application Boost: " & $OSs[$i][19], 300, 320, 250, 20)
    GUICtrlCreateLabel("Max Number Of Processes: " & $OSs[$i][29], 300, 340, 250, 20)
    GUICtrlCreateLabel("Number Of Licensed Users: " & $OSs[$i][31], 300, 360, 250, 20)
    GUICtrlCreateLabel("Organization: " & $OSs[$i][34], 300, 380, 250, 20)
    GUICtrlCreateLabel("OS Language: " & $OSs[$i][35], 300, 400, 250, 20)
    GUICtrlCreateLabel("OS Product Suite: " & $OSs[$i][36], 300, 420, 250, 20)
    GUICtrlCreateLabel("OS Type: " & $OSs[$i][37], 300, 440, 250, 20)
    GUICtrlCreateLabel("Other Type Description: " & $OSs[$i][38], 300, 460, 250, 20)
    GUICtrlCreateLabel("Plus Product ID: " & $OSs[$i][39], 300, 480, 250, 20)
    GUICtrlCreateLabel("Plus Version Number: " & $OSs[$i][40], 300, 500, 250, 20)
    GUICtrlCreateLabel("Primary: " & $OSs[$i][41], 300, 520, 250, 20)
    GUICtrlCreateLabel("Product Type: " & $OSs[$i][42], 300, 540, 250, 20)
    GUICtrlCreateLabel("Quantum Length: " & $OSs[$i][43], 300, 560, 250, 20)
    GUICtrlCreateLabel("Quantum Type: " & $OSs[$i][44], 300, 580, 250, 20)
    GUICtrlCreateLabel("Status: " & $OSs[$i][50], 300, 600, 250, 20)
    Next
EndFunc
;Running Processes
Func getRunningProcesses()
    $ListViewProcess = GUICtrlCreateListView("# | Name | Command Line | Creation Class Name | Creation Date | Description | " & _
    "CS Creation Class Name | CS Name | Executable Path | Executable State | Handle | Handle Count | Kernel Mode Time | " & _
    "Max Working Set Size | Min Working Set Size | Other Operation Count | " & _
    "Other Transfer Count | Page Faults | Page File Usage | Parent Process ID | Peak Page File Usage | Peak Virtual Size | " & _
    "Peak Working Set Size | Priority | Private Page Count | Process ID | Quota Non Paged Pool Usage | " & _
    "Quota Peak Non Paged Pool Usage | Quota Peak Paged Pool Usage | Read Operation Count | Read Transfer Count | " & _
    "Session ID | Status | Thread Count | Windows Version | Working Set Size | " & _
    "Write Operation Count | Write Transfer Count " , 10, 75, 775, 600)
    GUICtrlSetBkColor($ListViewProcess, $GUI_BKCOLOR_LV_ALTERNATE)
    GUICtrlSetBkColor($ListViewProcess, $colorOdd)
    Dim $runProcesses
    _ComputerGetProcesses($runProcesses)
For $i = 1 To $runProcesses[0][0] Step 1
    $sDataProcesses = $i & "|" ;Process Number
    $sDataProcesses &= $runProcesses[$i][0]& "|" ; Name
    $sDataProcesses &= $runProcesses[$i][1]& "|" ; Command Line
    $sDataProcesses &= $runProcesses[$i][2]& "|" ; Creation Class Name
    $sDataProcesses &= $runProcesses[$i][3]& "|" ;Creation Date
    $sDataProcesses &= $runProcesses[$i][4]& "|" ;Description
    $sDataProcesses &= $runProcesses[$i][5]& "|" ;CS Creation Class Name
    $sDataProcesses &= $runProcesses[$i][6]& "|" ;CS Name
    $sDataProcesses &= $runProcesses[$i][7]& "|" ;Executable Path
    $sDataProcesses &= $runProcesses[$i][8]& "|" ;Execution State
    $sDataProcesses &= $runProcesses[$i][9]& "|" ;Handle
    $sDataProcesses &= $runProcesses[$i][10]& "|" ;Handle Count
    $sDataProcesses &= $runProcesses[$i][11]& "|" ;Kernel Mode Time
    $sDataProcesses &= $runProcesses[$i][12]& "|" ;Maximum Working Set Size
    $sDataProcesses &= $runProcesses[$i][13]& "|" ;Minimum Working Set Size
    ;$sDataProcesses &= $runProcesses[$i][14]& "|" ;OS Creation Class Name
    ;$sDataProcesses &= $runProcesses[$i][15]& "|" ;OS Name
    $sDataProcesses &= $runProcesses[$i][16]& "|" ;Other Operation Count
    $sDataProcesses &= $runProcesses[$i][17]& "|" ;Other Transfer Count
    $sDataProcesses &= $runProcesses[$i][18]& "|" ;Page Faults
    $sDataProcesses &= $runProcesses[$i][19]& "|" ;Page File Usage
    $sDataProcesses &= $runProcesses[$i][20]& "|" ;Parent Process ID
    $sDataProcesses &= $runProcesses[$i][21]& "|" ;Peak Page File Usage
    $sDataProcesses &= $runProcesses[$i][22]& "|" ;Peak Virtual Size
    $sDataProcesses &= $runProcesses[$i][23]& "|" ;Peak Working Set Size
    $sDataProcesses &= $runProcesses[$i][24]& "|" ;Priority
    $sDataProcesses &= $runProcesses[$i][25]& "|" ;Private Page Count
    $sDataProcesses &= $runProcesses[$i][26]& "|" ;Process ID
    $sDataProcesses &= $runProcesses[$i][27]& "|" ;Quota Non Paged Pool Usage
    $sDataProcesses &= $runProcesses[$i][28]& "|" ;Quota Paged Pool Usage
    $sDataProcesses &= $runProcesses[$i][29]& "|" ;Quota Peak Non Paged Pool Usage
    $sDataProcesses &= $runProcesses[$i][30]& "|" ;Quota Peak Paged Pool Usage
    $sDataProcesses &= $runProcesses[$i][31]& "|" ;Read Operation Count
    $sDataProcesses &= $runProcesses[$i][32]& "|" ;Read Transfer Count
    $sDataProcesses &= $runProcesses[$i][33]& "|" ;Session ID
    $sDataProcesses &= $runProcesses[$i][34]& "|" ;Status
    $sDataProcesses &= $runProcesses[$i][35]& "|" ;Thread Count
    ;$sDataProcesses &= $runProcesses[$i][36]& "|" ;User Mode Time
    ;$sDataProcesses &= $runProcesses[$i][37]& "|" ;Virtual Size
    $sDataProcesses &= $runProcesses[$i][38]& "|" ;Windows Version
    $sDataProcesses &= $runProcesses[$i][39]& "|" ;Working Set Size
    $sDataProcesses &= $runProcesses[$i][40]& "|" ;Write Operation Count
    $sDataProcesses &= $runProcesses[$i][41]& "|" ;Write Transfer Count
    GUICtrlCreateListViewItem($sDataProcesses, $ListViewProcess)
    GUICtrlSetBkColor(-1, $colorEven)
Next
EndFunc
Func getPrintJobs()
    $ListViewPrint = GUICtrlCreateListView("Name | DataType | Document | Drive Name | Description | " & _
    "Elapsed Time | Print Queue | Job ID | Status | Job Name | Notify | Owner | " & _
    "Pages Printed | Parameters | Print Processor | Priority | Size | Start Time | Status | " & _
    "Status Mask | Time Submitted | Total Pages | Until Time ", 10, 75, 775, 600)
    GUICtrlSetBkColor($ListViewPrint, $GUI_BKCOLOR_LV_ALTERNATE)
    GUICtrlSetBkColor($ListViewPrint, $colorOdd)
    Dim $PrintJob
    _ComputerGetPrintJobs($PrintJob)
For $i = 1 To $PrintJob[0][0] Step 1
    $sDataPrint = $PrintJob[$i][0] & "|" ;Name
    $sDataPrint &= $PrintJob[$i][1] & "|" ;DataType
    $sDataPrint &= $PrintJob[$i][2] & "|" ;Document
    $sDataPrint &= $PrintJob[$i][3] & "|" ;DriverName
    $sDataPrint &= $PrintJob[$i][4] & "|" ;Description
    $sDataPrint &= $PrintJob[$i][5] & "|" ;ElapsedTime
    $sDataPrint &= $PrintJob[$i][6] & "|" ;HostPrintQueue
    $sDataPrint &= $PrintJob[$i][7] & "|" ;JobId
    $sDataPrint &= $PrintJob[$i][8] & "|" ;JobStatus
    $sDataPrint &= $PrintJob[$i][9] & "|" ;Name
    $sDataPrint &= $PrintJob[$i][10] & "|" ;Notify
    $sDataPrint &= $PrintJob[$i][11] & "|" ;Owner
    $sDataPrint &= $PrintJob[$i][12] & "|" ;PagesPrinted
    $sDataPrint &= $PrintJob[$i][13] & "|" ;Parameters
    $sDataPrint &= $PrintJob[$i][14] & "|" ;PrintProcessor
    $sDataPrint &= $PrintJob[$i][15] & "|" ;Priority
    $sDataPrint &= $PrintJob[$i][16] & "|" ;Size
    $sDataPrint &= $PrintJob[$i][17] & "|" ;StartTime
    $sDataPrint &= $PrintJob[$i][18] & "|" ;Status
    $sDataPrint &= $PrintJob[$i][19] & "|" ;StatusMask
    $sDataPrint &= $PrintJob[$i][20] & "|" ;TimeSubmitted
    $sDataPrint &= $PrintJob[$i][21] & "|" ;TotalPages
    $sDataPrint &= $PrintJob[$i][22] & "|" ;UntilTime
    GUICtrlCreateListViewItem($sDataPrint, $ListViewPrint)
    GUICtrlSetBkColor(-1, $colorEven)
Next
EndFunc
Func getDisplay()
    $ListViewDesktop = GUICtrlCreateListView("Monitor # | Border Width | Cool Switch | Cursor Blink Rate | Description | " & _
    "Drag Full Windows | Gid Granularity | Icon Spacing | Icon Title Face Name | Icon Title Size | Icon Title Wrap | Pattern | " & _
    "Screen Saver Active | Screen Saver Exe | Screen Saver Secure | Screen Saver Timeout | Setting ID | Wallpapter | " & _
    "Wallpaper Stretched | Wallpaper Tiled", 10, 75, 775, 600)
    GUICtrlSetBkColor($ListViewDesktop, $GUI_BKCOLOR_LV_ALTERNATE)
    GUICtrlSetBkColor($ListViewDesktop, $colorOdd)
    Dim $Desktop
    _ComputerGetDesktops($Desktop)
For $i = 1 To $Desktop[0][0] Step 1
    $sDataDesktop = $i & "|" ;Monitor #
    $sDataDesktop &= $Desktop[$i][1] & "|" ;Border Width
    $sDataDesktop &= $Desktop[$i][2] & "|" ;Cool Switch
    $sDataDesktop &= $Desktop[$i][3] & "|" ;Cursor Blink Rate
    $sDataDesktop &= $Desktop[$i][4] & "|" ;Description
    $sDataDesktop &= $Desktop[$i][5] & "|" ;Drag Full Windows
    $sDataDesktop &= $Desktop[$i][6] & "|" ;Grid Granularity
    $sDataDesktop &= $Desktop[$i][7] & "|" ;Icon Spacing
    $sDataDesktop &= $Desktop[$i][8] & "|" ;Icon Title Face Name
    $sDataDesktop &= $Desktop[$i][9] & "|" ;Icon Title Size
    $sDataDesktop &= $Desktop[$i][10] & "|" ;Icon Title Wrap
    $sDataDesktop &= $Desktop[$i][0] & "|" ;Pattern
    $sDataDesktop &= $Desktop[$i][11] & "|" ;Screen Saver Active
    $sDataDesktop &= $Desktop[$i][12] & "|" ;Screen Saver Executable
    $sDataDesktop &= $Desktop[$i][13] & "|" ;Screen Saver Secure
    $sDataDesktop &= $Desktop[$i][14] & "|" ;Screen Saver Timeout
    $sDataDesktop &= $Desktop[$i][15] & "|" ;Setting ID
    $sDataDesktop &= $Desktop[$i][16] & "|" ;Wallpaper
    $sDataDesktop &= $Desktop[$i][17] & "|" ;Wallpaper Stretched
    $sDataDesktop &= $Desktop[$i][18] & "|" ;Wallpaper Tiled
    GUICtrlCreateListViewItem($sDataDesktop, $ListViewDesktop)
    GUICtrlSetBkColor(-1, $colorEven)
Next
EndFunc
Func getBios()
    GUICtrlCreateGraphic(5, 35, 600, 600)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetColor(-1, 0)
    Dim $BIOS
    _ComputerGetBIOS($BIOS)
For $i = 1 To $BIOS[0][0] Step 1
    GUICtrlCreateLabel("--------BIOS INFORMATION--------", 25, 40, 600, 20)
    GUICtrlCreateLabel($BIOS[$i][0], 25, 60, 250, 20)
    GUICtrlCreateLabel("Status: " & $BIOS[$i][1], 25, 80, 600, 20)
    GUICtrlCreateLabel("Characteristics: " & $BIOS[$i][2], 25, 100, 600, 20)
    GUICtrlCreateLabel("Version: " & $BIOS[$i][3], 25, 120, 600, 20)
    GUICtrlCreateLabel("Description: " & $BIOS[$i][4], 25, 140, 600, 20)
    GUICtrlCreateLabel("Build Number: " & $BIOS[$i][5], 25, 160, 600, 20)
    GUICtrlCreateLabel("Code Set: " & $BIOS[$i][6], 25, 180, 600, 20)
    GUICtrlCreateLabel("ID Code: " & $BIOS[$i][8], 25, 200, 600, 20)
    GUICtrlCreateLabel("Manufacturer: " & $BIOS[$i][12], 25, 220, 600, 20)
    GUICtrlCreateLabel("Other Target OS: " & $BIOS[$i][13], 25, 240, 600, 20)
    GUICtrlCreateLabel("Primary BIOS: " & $BIOS[$i][14], 25, 260, 600, 20)
    GUICtrlCreateLabel("Release Date: " & $BIOS[$i][15], 25, 280, 600, 20)
    GUICtrlCreateLabel("Serial Number: " & $BIOS[$i][16], 25, 300, 600, 20)
    GUICtrlCreateLabel("SM BIOS Version: " & $BIOS[$i][17], 25, 320, 600, 20)
    GUICtrlCreateLabel("SM Major Version: " & $BIOS[$i][18], 25, 340, 600, 20)
    GUICtrlCreateLabel("SM Minor Version: " & $BIOS[$i][19], 25, 360, 600, 20)
    GUICtrlCreateLabel("SM Present: " & $BIOS[$i][20], 25, 380, 600, 20)
    GUICtrlCreateLabel("Software Element ID: " & $BIOS[$i][21], 25, 400, 600, 20)
    GUICtrlCreateLabel("Software Element State: " & $BIOS[$i][22], 25, 420, 600, 20)
    GUICtrlCreateLabel("Target OS: " & $BIOS[$i][23], 25, 440, 600, 20)
    GUICtrlCreateLabel("Version: " & $BIOS[$i][24], 25, 460, 600, 20)
Next
EndFunc
Func GetServices()
    $ListViewServices = GUICtrlCreateListView("# | SERVICE | DEPENDANT ON", 10, 75, 775, 600)
    GUICtrlSetBkColor($ListViewServices, $GUI_BKCOLOR_LV_ALTERNATE)
    GUICtrlSetBkColor($ListViewServices, $colorOdd)
    Dim $DependantService
    _ComputerGetDependantServices($DependantService)
For $i = 1 To $DependantService[0][0] Step 1
    $dependancyName = _StringBetween($DependantService[$i][0], 'Name="', '"')
    $serviceName = _StringBetween($DependantService[$i][1], 'Name="', '"')
    $sDataService = $i & "|" ;Service #
    $sDataService &= $serviceName[0] & "|" ;Service Name
    $sDataService &= $dependancyName[0] & "|" ;Dependancy Name
    GUICtrlCreateListViewItem($sDataService, $ListViewServices)
    GUICtrlSetBkColor(-1, $colorEven)
Next
EndFunc

shawnmstout · August 2, 2009

I spend some time trying to figure out what you where trying to do and I think I got a pretty good idea.

I got most of the functions to work for me by changing some Run()'s to ShellExecute()'s and making some other changes. I believe the only changes I made where to traymenu.au3 and functionsSystemInfo.au3

traymanu.au3:

#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <String.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <GUIListBox.au3>
#include <TabConstants.au3>
#include <CompInfo.au3>
#include <config.au3>
#include <memstats.au3>
#include <functionsSystemInfo.au3>
Opt("TrayMenuMode",1)   ; Default tray menu items (Script Paused/Exit) will not be shown.
$sysInfo = TrayCreateItem("System Information")
TrayCreateItem("")
$shortcuts = TrayCreateMenu("Directories")
TrayCreateItem("")
$tools = TrayCreateMenu("Tools")
TrayCreateItem("")
$diag = TrayCreateMenu("Diagnostics")
TrayCreateItem("")
$commonCommands = TrayCreateMenu("Common Commands")
TrayCreateItem("")
$exit   = TrayCreateItem("Exit")
;----------------------------Common Windows Commands -----------------------------------
$commandMSconfig = TrayCreateItem("MSCONFIG", $commonCommands)
TrayCreateItem("", $commonCommands)
$commandPrompt = TrayCreateItem("Command Prompt", $commonCommands)
TrayCreateItem("", $commonCommands)
$commandRegedit = TrayCreateItem("Registry Editor", $commonCommands)
TrayCreateItem("", $commonCommands)
$commandTaskManager = TrayCreateItem("Task Manager", $commonCommands)
TrayCreateItem("", $commonCommands)
$commandAddRemovePrograms = TrayCreateItem("Add/Remove Programs", $commonCommands)
TrayCreateItem("", $commonCommands)
;----------------------------Shortcut Directories---------------------------------------
$rootShortcut = TrayCreateItem($drive, $shortcuts)
TrayCreateItem("", $shortcuts)
$desktopShortcut = TrayCreateItem("Desktop", $shortcuts)
$documentsShortcut = TrayCreateItem("My Documents", $shortcuts)
$favoritesShortcut = TrayCreateItem("Favorites", $shortcuts)
$programsShortcut = TrayCreateItem("Programs", $shortcuts)
$profileShortcut = TrayCreateItem("Profile", $shortcuts)
TrayCreateItem("", $shortcuts)
$system32Shortcut = TrayCreateItem("System32", $shortcuts)
$windowsShortcut = TrayCreateItem("Windows", $shortcuts)
TrayCreateItem("", $shortcuts)
$ProgramtempDirShortcut = TrayCreateItem($name & " Temp Directory ", $shortcuts)
$tempShortcut = TrayCreateItem("Temp Directory", $shortcuts)
;----------------------------Diagnostics Menu--------------------------------------------
$memoryStats = TrayCreateItem("Memory Status", $diag)
TrayCreateItem("",$diag)
$internetTest = TrayCreateItem("Internet Connection Test", $diag)
$internetConfig = TrayCreateItem("Internet Configuration", $diag)
;----------------------------Tools Menu--------------------------------------------------
$ToolMenuArray = getToolsMenu()
TraySetState()
While 1
    $msg = TrayGetMsg()
    Select
        Case $msg = $sysInfo
            #Region ### START Koda GUI section ### Form=
            $frmSysInfo = GUICreate("System Information", 800, 700)
            GUICtrlCreateTab(10,10,850,20)
            ;Create System Tabs
            $driveTab = GUICtrlCreateTabItem("Hard Drives")
            GetDriveInfo()
            $biosTab = GUICtrlCreateTabItem("Bios")
            getBios()
            $serviceTab = GUICtrlCreateTabItem("Services")
            getServices()
            $processTab = GUICtrlCreateTabItem("Running Processes")
            getRunningProcesses()
            $displayTab = GUICtrlCreateTabItem("Display")
            getDisplay()
            $systemTab = GUICtrlCreateTabItem("System")
            GetSystemInfo()
            $printTab = GUICtrlCreateTabItem("Print")
            GetPrintJobs()
            GUISetState(@SW_SHOW, $frmSysInfo)
            #EndRegion ### END Koda GUI section ###
            While 1
                If GUIGetMsg() = -3 Then 
                    ExitLoop
                EndIf
            WEnd
            GuiSetState(@SW_HIDE, $frmSysInfo)
        Case $msg = $commandMSconfig
            If @OSVersion = "WIN_VISTA" Then
                $path = @SystemDir & "\msconfig.exe"
            EndIf
            If @OSVersion = "WIN_XP" Then
                $path = @WindowsDir & "\PCHEALTH\HELPCTR\Binaries\msconfig"
            EndIf
            Run($path)
        Case $msg = $commandAddRemovePrograms
            Run("appwiz.cpl")
        Case $msg = $commandPrompt
            Run (@SystemDir & "\cmd.exe")
        Case $msg = $commandRegedit
            Run (@SystemDir & "\regedt32.exe")
        Case $msg = $commandTaskManager
            Run (@SystemDir & "\taskmgr.exe")
        Case $msg = $ProgramTempDirShortcut
            ShellExecute($tempDir)
        Case $msg = $desktopShortcut
            ShellExecute(@DesktopDir)
        Case $msg = $documentsShortcut
            ShellExecute(@MyDocumentsDir)
        Case $msg = $tempShortcut
            ShellExecute(@TempDir)
        Case $msg = $favoritesShortcut
            ShellExecute(@FavoritesDir)
        Case $msg = $programsShortcut
            ShellExecute(@ProgramFilesDir)
        Case $msg = $profileShortcut
            ShellExecute(@UserProfileDir)
        Case $msg = $system32Shortcut
            ShellExecute(@SystemDir)
        Case $msg = $windowsShortcut
            ShellExecute(@WindowsDir)
        Case $msg = $rootShortcut
            ShellExecute($drive)
        Case $msg = $memoryStats
            MemStats()
                ;TrayItemSetOnEvent( $memoryStats, MemStats())
        Case $msg = $internetTest
            dim $var
            $var = ping("google.com", 2000)
            if $var > '1' Then
                msgbox(0, "Internet Connection Test", "You Are Connected to the Internet")
            Else
                msgBox(0, "Internet Connection Test", "No Connection to the Internet")
            EndIf
        Case $msg = $InternetConfig
                $IP = TCPNameToIP("checkIp.dyndns.org")
                $hCon = TCPConnect($IP, 80)
                TCPSEND($hCon, "GET / HTTP/1.1" & @CRLF & "HOST: checkip.dyndns.org" & @CRLF & @CRLF)
                Do
                    $sRecv = TCPRecv($hCon, 1024)
                Until $sRecv <> ''
                $externalIP = _StringBetween($sRecv, "Address:", "</body>") 
                msgBox(0, "IP Information", "External IP Address: " & $externalIP[0])
        Case $msg = $exit
       ExitLoop
    EndSelect
    For $i = 1 To UBound($ToolMenuArray)-1
        If $msg = $ToolMenuArray[$i][0] Then
            DownloadingMessage($ToolMenuArray[$i][1], $ToolMenuArray[$i][1], $ToolMenuArray[$i][2])
        EndIf
    Next
WEnd
Exit

functionsSysteminfo.au3:

Func getToolsMenu()
    Local $CtrlArray[1][3], $Ubound
    $DumpFile = @TempDir & "\files.txt"
    InetGet($toolsDir&"files.txt", $DumpFile);
    $sDatabaseRaw = FileRead($DumpFile)
    $asDatabase = StringSplit($sDatabaseRaw,"^", 2)
    For $element In $asDatabase
        If $element = "" Then ContinueLoop
        $asItem = StringSplit($element,',',3)
        $toolsDirName = $asItem[0]
        $toolsDirMenu = TrayCreateMenu($toolsDirName, $tools)
        For $toolsFile In $asItem
            If $toolsFile = $toolsDirName Then ContinueLoop
            
            $Ubound = UBound($CtrlArray)
            ReDim $CtrlArray[$Ubound+1][3]
            $CtrlArray[$Ubound][0] = TrayCreateItem($toolsFile, $toolsDirMenu)
            $CtrlArray[$Ubound][1] = $toolsFile
            $CtrlArray[$Ubound][2] = $toolsDir & $toolsDirName & "/" & $toolsFile
        Next
    Next
    Return $CtrlArray
EndFunc
Func DownloadingMessage($dname, $dfile, $durl)
    InetGet($durl,@ScriptDir & "\" & $dfile,1,1)
        While @InetGetActive
            $filesize = InetGetSize($durl)
            $currentsize = @InetGetBytesRead
            $percentDownloaded = Round((($currentsize / $filesize) * 100), 1) & "% Complete"
            TrayTip("Downloading " & $dname, "File: " & $dfile & " " & $percentDownloaded, 10, 16)
        Wend
        TrayTip("Download Complete", "You have successfully downloaded " & $dfile,2,16) 
        ShellExecute($dfile, $tempDir, "run")
EndFunc
;----------------------------Computer Info---------------------------------------------
Global $colorOdd = 0xFFFFFF, $colorEven = 0xFAF371
;Get Drive Information
Func GetDriveInfo()
    $ListViewDrives = GUICtrlCreateListView("Drive# | Label | Drive | FileSystem | Serial Number | " & _
    "Free Space | Total Space ", 10, 75, 775, 600)
    GUICtrlSetBkColor($ListViewDrives, $GUI_BKCOLOR_LV_ALTERNATE)
    GUICtrlSetBkColor($ListViewDrives, $colorOdd)
    Dim $Drives
    _ComputerGetDrives($Drives) ;Defaults to "FIXED"
    For $i = 1 To $Drives[0][0] Step 1
        $sDataDrives = $i & "|"
        $sDataDrives &= $Drives[$i][2] & "|" & $Drives[$i][0] & "|" & $Drives[$i][1] & "|" & $Drives[$i][3] & "|" 
        $sDataDrives &= Round($Drives[$i][4]/1024,2) & "GB" & "|" & Round($Drives[$i][5]/1024,2) & "GB"
        GUICtrlCreateListViewItem($sDataDrives, $ListViewDrives)
        GUICtrlSetBkColor(-1, $colorEven)
    Next
EndFunc
;Get System Information
Func GetSystemInfo()
    ;Left Column
    GUICtrlCreateGraphic(5, 35, 260, 340)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetColor(-1, 0)
    GUICtrlCreateGraphic(5, 375, 260, 80)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetColor(-1, 0)
    GUICtrlCreateGraphic(5, 455, 260, 185)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetColor(-1, 0)
    ;Right Column
    GUICtrlCreateGraphic(295, 35, 260, 100)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetColor(-1, 0)
    GUICtrlCreateGraphic(295, 118, 260, 500)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetColor(-1, 0)
    Dim $OSs
    _ComputerGetOSs($OSs)
    ;Left = "24" Top = "40" Width = "260" Height = "17"
    For $i = 1 To $OSs[0][0] Step 1
    $osName = "Name" & $OSs[$i][0]
    $arrayOsName = _StringBetween($osName, "Name", "|");
    GUICtrlCreateLabel("--------OPERATING SYSTEM INFO------", 25, 40, 250, 20)
    GUICtrlCreateLabel("Name: " & $arrayOsName[0], 25, 60, 250, 20)
    GUICtrlCreateLabel("Manufacturer: " & $OSs[$i][28], 25, 80, 250, 20)
    GUICtrlCreateLabel("Build Number: " & $OSs[$i][2], 25, 100, 250, 20)
    GUICtrlCreateLabel("Build Type: " & $OSs[$i][3], 25, 120, 250, 20)
    GUICtrlCreateLabel("Bit Type: " & $OSs[$i][8], 25, 140, 250, 20)
    GUICtrlCreateLabel("Computer Version: " & $OSs[$i][9], 25, 160, 250, 20)
    GUICtrlCreateLabel("Computer Name: " & $OSs[$i][10], 25, 180, 250, 20)
    GUICtrlCreateLabel("Install Date: " & $OSs[$i][23], 25, 200, 250, 20)
    GUICtrlCreateLabel("Registered User: " & $OSs[$i][45], 25, 220, 250, 20)
    GUICtrlCreateLabel("Serial Number: " & $OSs[$i][46], 25, 240, 250, 20)
    GUICtrlCreateLabel("Service Pack Major Version: " & $OSs[$i][47], 25, 260, 250, 20)
    GUICtrlCreateLabel("Service Pack Minor Version: " & $OSs[$i][48], 25, 280, 250, 20)
    GUICtrlCreateLabel("Version: " & $OSs[$i][58], 25, 300, 250, 20)
    GUICtrlCreateLabel("Windows Directory: " & $OSs[$i][59], 25, 320, 250, 20)
    GUICtrlCreateLabel("Suite Mask: " & $OSs[$i][51], 25, 340, 250, 20)
    GUICtrlCreateLabel("Number Of Users: " & $OSs[$i][33], 25, 360, 250, 20)
    GUICtrlCreateLabel("-----------ROOT DRIVE INFO--------", 25, 380, 250, 20)
    GUICtrlCreateLabel("System Device: " & $OSs[$i][52], 25, 400, 250, 20)
    GUICtrlCreateLabel("System Directory: " & $OSs[$i][53], 25, 420, 250, 20)
    GUICtrlCreateLabel("System Drive: " & $OSs[$i][54], 25, 440, 250, 20)
    GUICtrlCreateLabel("-----------MEMORY STATS-----------", 25, 460, 250, 20)
    GUICtrlCreateLabel("Free Physical Memory: " & Round($OSs[$i][20]/1024,1) & "MB", 25, 480, 250, 20)
    GUICtrlCreateLabel("Free Space In Paging Files: " & Round($OSs[$i][21]/1024,1) & "MB", 25, 500, 250, 20)
    GUICtrlCreateLabel("Free Virtual Memory: " & Round($OSs[$i][22]/1024,1) & "MB", 25, 520, 250, 20)
    GUICtrlCreateLabel("Total Swap Space Size: " & Round($OSs[$i][55]/1024,1) & "MB", 25, 540, 250, 20)
    GUICtrlCreateLabel("Total Virtual Memory Size: " & Round($OSs[$i][56]/1024,1) & "MB", 25, 560, 250, 20)
    GUICtrlCreateLabel("Total Visible Memory Size: " & Round($OSs[$i][57]/1024,1) & "MB", 25, 580, 250, 20)
    GUICtrlCreateLabel("Size Stored In Paging Files: " & Round($OSs[$i][49]/1024,1) & "MB", 25, 600, 250, 20)
    GUICtrlCreateLabel("Number Of Processes: " & $OSs[$i][32], 25, 620, 250, 20)
    GUICtrlCreateLabel("-----------TIME INFORMATION-----------", 300, 40, 250, 20)
    GUICtrlCreateLabel("Last Boot Up Time: " & $OSs[$i][25], 300, 60, 250, 20)
    GUICtrlCreateLabel("Local Date Time: " & $OSs[$i][26], 300, 80, 250, 20)
    GUICtrlCreateLabel("Locale: " & $OSs[$i][27], 300, 100, 250, 20)
    GUICtrlCreateLabel("-----------MISC INFORMATION-----------", 300, 120, 250, 20)
    GUICtrlCreateLabel("Large System Cache: " & $OSs[$i][24], 300, 140, 250, 20)
    GUICtrlCreateLabel("Current Time Zone: " & $OSs[$i][11], 300, 160, 250, 20)
    GUICtrlCreateLabel("Data Execution Prevention_32BitApplications: " & $OSs[$i][12], 300, 180, 250, 20)
    GUICtrlCreateLabel("Data Execution Prevention_Available: " & $OSs[$i][13], 300, 200, 250, 20)
    GUICtrlCreateLabel("Data Execution Prevention_Drivers: " & $OSs[$i][14], 300, 220, 250, 20)
    GUICtrlCreateLabel("Data Execution Prevention_SupportPolicy: " & $OSs[$i][15], 300, 240, 250, 20)
    GUICtrlCreateLabel("Debug: " & $OSs[$i][16], 300, 260, 250, 20)
    GUICtrlCreateLabel("Distributed: " & $OSs[$i][17], 300, 280, 250, 20)
    GUICtrlCreateLabel("Encryption Level: " & $OSs[$i][18], 300, 300, 250, 20)
    GUICtrlCreateLabel("Foreground Application Boost: " & $OSs[$i][19], 300, 320, 250, 20)
    GUICtrlCreateLabel("Max Number Of Processes: " & $OSs[$i][29], 300, 340, 250, 20)
    GUICtrlCreateLabel("Number Of Licensed Users: " & $OSs[$i][31], 300, 360, 250, 20)
    GUICtrlCreateLabel("Organization: " & $OSs[$i][34], 300, 380, 250, 20)
    GUICtrlCreateLabel("OS Language: " & $OSs[$i][35], 300, 400, 250, 20)
    GUICtrlCreateLabel("OS Product Suite: " & $OSs[$i][36], 300, 420, 250, 20)
    GUICtrlCreateLabel("OS Type: " & $OSs[$i][37], 300, 440, 250, 20)
    GUICtrlCreateLabel("Other Type Description: " & $OSs[$i][38], 300, 460, 250, 20)
    GUICtrlCreateLabel("Plus Product ID: " & $OSs[$i][39], 300, 480, 250, 20)
    GUICtrlCreateLabel("Plus Version Number: " & $OSs[$i][40], 300, 500, 250, 20)
    GUICtrlCreateLabel("Primary: " & $OSs[$i][41], 300, 520, 250, 20)
    GUICtrlCreateLabel("Product Type: " & $OSs[$i][42], 300, 540, 250, 20)
    GUICtrlCreateLabel("Quantum Length: " & $OSs[$i][43], 300, 560, 250, 20)
    GUICtrlCreateLabel("Quantum Type: " & $OSs[$i][44], 300, 580, 250, 20)
    GUICtrlCreateLabel("Status: " & $OSs[$i][50], 300, 600, 250, 20)
    Next
EndFunc
;Running Processes
Func getRunningProcesses()
    $ListViewProcess = GUICtrlCreateListView("# | Name | Command Line | Creation Class Name | Creation Date | Description | " & _
    "CS Creation Class Name | CS Name | Executable Path | Executable State | Handle | Handle Count | Kernel Mode Time | " & _
    "Max Working Set Size | Min Working Set Size | Other Operation Count | " & _
    "Other Transfer Count | Page Faults | Page File Usage | Parent Process ID | Peak Page File Usage | Peak Virtual Size | " & _
    "Peak Working Set Size | Priority | Private Page Count | Process ID | Quota Non Paged Pool Usage | " & _
    "Quota Peak Non Paged Pool Usage | Quota Peak Paged Pool Usage | Read Operation Count | Read Transfer Count | " & _
    "Session ID | Status | Thread Count | Windows Version | Working Set Size | " & _
    "Write Operation Count | Write Transfer Count " , 10, 75, 775, 600)
    GUICtrlSetBkColor($ListViewProcess, $GUI_BKCOLOR_LV_ALTERNATE)
    GUICtrlSetBkColor($ListViewProcess, $colorOdd)
    Dim $runProcesses
    _ComputerGetProcesses($runProcesses)
For $i = 1 To $runProcesses[0][0] Step 1
    $sDataProcesses = $i & "|" ;Process Number
    $sDataProcesses &= $runProcesses[$i][0]& "|" ; Name
    $sDataProcesses &= $runProcesses[$i][1]& "|" ; Command Line
    $sDataProcesses &= $runProcesses[$i][2]& "|" ; Creation Class Name
    $sDataProcesses &= $runProcesses[$i][3]& "|" ;Creation Date
    $sDataProcesses &= $runProcesses[$i][4]& "|" ;Description
    $sDataProcesses &= $runProcesses[$i][5]& "|" ;CS Creation Class Name
    $sDataProcesses &= $runProcesses[$i][6]& "|" ;CS Name
    $sDataProcesses &= $runProcesses[$i][7]& "|" ;Executable Path
    $sDataProcesses &= $runProcesses[$i][8]& "|" ;Execution State
    $sDataProcesses &= $runProcesses[$i][9]& "|" ;Handle
    $sDataProcesses &= $runProcesses[$i][10]& "|" ;Handle Count
    $sDataProcesses &= $runProcesses[$i][11]& "|" ;Kernel Mode Time
    $sDataProcesses &= $runProcesses[$i][12]& "|" ;Maximum Working Set Size
    $sDataProcesses &= $runProcesses[$i][13]& "|" ;Minimum Working Set Size
    ;$sDataProcesses &= $runProcesses[$i][14]& "|" ;OS Creation Class Name
    ;$sDataProcesses &= $runProcesses[$i][15]& "|" ;OS Name
    $sDataProcesses &= $runProcesses[$i][16]& "|" ;Other Operation Count
    $sDataProcesses &= $runProcesses[$i][17]& "|" ;Other Transfer Count
    $sDataProcesses &= $runProcesses[$i][18]& "|" ;Page Faults
    $sDataProcesses &= $runProcesses[$i][19]& "|" ;Page File Usage
    $sDataProcesses &= $runProcesses[$i][20]& "|" ;Parent Process ID
    $sDataProcesses &= $runProcesses[$i][21]& "|" ;Peak Page File Usage
    $sDataProcesses &= $runProcesses[$i][22]& "|" ;Peak Virtual Size
    $sDataProcesses &= $runProcesses[$i][23]& "|" ;Peak Working Set Size
    $sDataProcesses &= $runProcesses[$i][24]& "|" ;Priority
    $sDataProcesses &= $runProcesses[$i][25]& "|" ;Private Page Count
    $sDataProcesses &= $runProcesses[$i][26]& "|" ;Process ID
    $sDataProcesses &= $runProcesses[$i][27]& "|" ;Quota Non Paged Pool Usage
    $sDataProcesses &= $runProcesses[$i][28]& "|" ;Quota Paged Pool Usage
    $sDataProcesses &= $runProcesses[$i][29]& "|" ;Quota Peak Non Paged Pool Usage
    $sDataProcesses &= $runProcesses[$i][30]& "|" ;Quota Peak Paged Pool Usage
    $sDataProcesses &= $runProcesses[$i][31]& "|" ;Read Operation Count
    $sDataProcesses &= $runProcesses[$i][32]& "|" ;Read Transfer Count
    $sDataProcesses &= $runProcesses[$i][33]& "|" ;Session ID
    $sDataProcesses &= $runProcesses[$i][34]& "|" ;Status
    $sDataProcesses &= $runProcesses[$i][35]& "|" ;Thread Count
    ;$sDataProcesses &= $runProcesses[$i][36]& "|" ;User Mode Time
    ;$sDataProcesses &= $runProcesses[$i][37]& "|" ;Virtual Size
    $sDataProcesses &= $runProcesses[$i][38]& "|" ;Windows Version
    $sDataProcesses &= $runProcesses[$i][39]& "|" ;Working Set Size
    $sDataProcesses &= $runProcesses[$i][40]& "|" ;Write Operation Count
    $sDataProcesses &= $runProcesses[$i][41]& "|" ;Write Transfer Count
    GUICtrlCreateListViewItem($sDataProcesses, $ListViewProcess)
    GUICtrlSetBkColor(-1, $colorEven)
Next
EndFunc
Func getPrintJobs()
    $ListViewPrint = GUICtrlCreateListView("Name | DataType | Document | Drive Name | Description | " & _
    "Elapsed Time | Print Queue | Job ID | Status | Job Name | Notify | Owner | " & _
    "Pages Printed | Parameters | Print Processor | Priority | Size | Start Time | Status | " & _
    "Status Mask | Time Submitted | Total Pages | Until Time ", 10, 75, 775, 600)
    GUICtrlSetBkColor($ListViewPrint, $GUI_BKCOLOR_LV_ALTERNATE)
    GUICtrlSetBkColor($ListViewPrint, $colorOdd)
    Dim $PrintJob
    _ComputerGetPrintJobs($PrintJob)
For $i = 1 To $PrintJob[0][0] Step 1
    $sDataPrint = $PrintJob[$i][0] & "|" ;Name
    $sDataPrint &= $PrintJob[$i][1] & "|" ;DataType
    $sDataPrint &= $PrintJob[$i][2] & "|" ;Document
    $sDataPrint &= $PrintJob[$i][3] & "|" ;DriverName
    $sDataPrint &= $PrintJob[$i][4] & "|" ;Description
    $sDataPrint &= $PrintJob[$i][5] & "|" ;ElapsedTime
    $sDataPrint &= $PrintJob[$i][6] & "|" ;HostPrintQueue
    $sDataPrint &= $PrintJob[$i][7] & "|" ;JobId
    $sDataPrint &= $PrintJob[$i][8] & "|" ;JobStatus
    $sDataPrint &= $PrintJob[$i][9] & "|" ;Name
    $sDataPrint &= $PrintJob[$i][10] & "|" ;Notify
    $sDataPrint &= $PrintJob[$i][11] & "|" ;Owner
    $sDataPrint &= $PrintJob[$i][12] & "|" ;PagesPrinted
    $sDataPrint &= $PrintJob[$i][13] & "|" ;Parameters
    $sDataPrint &= $PrintJob[$i][14] & "|" ;PrintProcessor
    $sDataPrint &= $PrintJob[$i][15] & "|" ;Priority
    $sDataPrint &= $PrintJob[$i][16] & "|" ;Size
    $sDataPrint &= $PrintJob[$i][17] & "|" ;StartTime
    $sDataPrint &= $PrintJob[$i][18] & "|" ;Status
    $sDataPrint &= $PrintJob[$i][19] & "|" ;StatusMask
    $sDataPrint &= $PrintJob[$i][20] & "|" ;TimeSubmitted
    $sDataPrint &= $PrintJob[$i][21] & "|" ;TotalPages
    $sDataPrint &= $PrintJob[$i][22] & "|" ;UntilTime
    GUICtrlCreateListViewItem($sDataPrint, $ListViewPrint)
    GUICtrlSetBkColor(-1, $colorEven)
Next
EndFunc
Func getDisplay()
    $ListViewDesktop = GUICtrlCreateListView("Monitor # | Border Width | Cool Switch | Cursor Blink Rate | Description | " & _
    "Drag Full Windows | Gid Granularity | Icon Spacing | Icon Title Face Name | Icon Title Size | Icon Title Wrap | Pattern | " & _
    "Screen Saver Active | Screen Saver Exe | Screen Saver Secure | Screen Saver Timeout | Setting ID | Wallpapter | " & _
    "Wallpaper Stretched | Wallpaper Tiled", 10, 75, 775, 600)
    GUICtrlSetBkColor($ListViewDesktop, $GUI_BKCOLOR_LV_ALTERNATE)
    GUICtrlSetBkColor($ListViewDesktop, $colorOdd)
    Dim $Desktop
    _ComputerGetDesktops($Desktop)
For $i = 1 To $Desktop[0][0] Step 1
    $sDataDesktop = $i & "|" ;Monitor #
    $sDataDesktop &= $Desktop[$i][1] & "|" ;Border Width
    $sDataDesktop &= $Desktop[$i][2] & "|" ;Cool Switch
    $sDataDesktop &= $Desktop[$i][3] & "|" ;Cursor Blink Rate
    $sDataDesktop &= $Desktop[$i][4] & "|" ;Description
    $sDataDesktop &= $Desktop[$i][5] & "|" ;Drag Full Windows
    $sDataDesktop &= $Desktop[$i][6] & "|" ;Grid Granularity
    $sDataDesktop &= $Desktop[$i][7] & "|" ;Icon Spacing
    $sDataDesktop &= $Desktop[$i][8] & "|" ;Icon Title Face Name
    $sDataDesktop &= $Desktop[$i][9] & "|" ;Icon Title Size
    $sDataDesktop &= $Desktop[$i][10] & "|" ;Icon Title Wrap
    $sDataDesktop &= $Desktop[$i][0] & "|" ;Pattern
    $sDataDesktop &= $Desktop[$i][11] & "|" ;Screen Saver Active
    $sDataDesktop &= $Desktop[$i][12] & "|" ;Screen Saver Executable
    $sDataDesktop &= $Desktop[$i][13] & "|" ;Screen Saver Secure
    $sDataDesktop &= $Desktop[$i][14] & "|" ;Screen Saver Timeout
    $sDataDesktop &= $Desktop[$i][15] & "|" ;Setting ID
    $sDataDesktop &= $Desktop[$i][16] & "|" ;Wallpaper
    $sDataDesktop &= $Desktop[$i][17] & "|" ;Wallpaper Stretched
    $sDataDesktop &= $Desktop[$i][18] & "|" ;Wallpaper Tiled
    GUICtrlCreateListViewItem($sDataDesktop, $ListViewDesktop)
    GUICtrlSetBkColor(-1, $colorEven)
Next
EndFunc
Func getBios()
    GUICtrlCreateGraphic(5, 35, 600, 600)
    GUICtrlSetBkColor(-1, 0xffffff)
    GUICtrlSetColor(-1, 0)
    Dim $BIOS
    _ComputerGetBIOS($BIOS)
For $i = 1 To $BIOS[0][0] Step 1
    GUICtrlCreateLabel("--------BIOS INFORMATION--------", 25, 40, 600, 20)
    GUICtrlCreateLabel($BIOS[$i][0], 25, 60, 250, 20)
    GUICtrlCreateLabel("Status: " & $BIOS[$i][1], 25, 80, 600, 20)
    GUICtrlCreateLabel("Characteristics: " & $BIOS[$i][2], 25, 100, 600, 20)
    GUICtrlCreateLabel("Version: " & $BIOS[$i][3], 25, 120, 600, 20)
    GUICtrlCreateLabel("Description: " & $BIOS[$i][4], 25, 140, 600, 20)
    GUICtrlCreateLabel("Build Number: " & $BIOS[$i][5], 25, 160, 600, 20)
    GUICtrlCreateLabel("Code Set: " & $BIOS[$i][6], 25, 180, 600, 20)
    GUICtrlCreateLabel("ID Code: " & $BIOS[$i][8], 25, 200, 600, 20)
    GUICtrlCreateLabel("Manufacturer: " & $BIOS[$i][12], 25, 220, 600, 20)
    GUICtrlCreateLabel("Other Target OS: " & $BIOS[$i][13], 25, 240, 600, 20)
    GUICtrlCreateLabel("Primary BIOS: " & $BIOS[$i][14], 25, 260, 600, 20)
    GUICtrlCreateLabel("Release Date: " & $BIOS[$i][15], 25, 280, 600, 20)
    GUICtrlCreateLabel("Serial Number: " & $BIOS[$i][16], 25, 300, 600, 20)
    GUICtrlCreateLabel("SM BIOS Version: " & $BIOS[$i][17], 25, 320, 600, 20)
    GUICtrlCreateLabel("SM Major Version: " & $BIOS[$i][18], 25, 340, 600, 20)
    GUICtrlCreateLabel("SM Minor Version: " & $BIOS[$i][19], 25, 360, 600, 20)
    GUICtrlCreateLabel("SM Present: " & $BIOS[$i][20], 25, 380, 600, 20)
    GUICtrlCreateLabel("Software Element ID: " & $BIOS[$i][21], 25, 400, 600, 20)
    GUICtrlCreateLabel("Software Element State: " & $BIOS[$i][22], 25, 420, 600, 20)
    GUICtrlCreateLabel("Target OS: " & $BIOS[$i][23], 25, 440, 600, 20)
    GUICtrlCreateLabel("Version: " & $BIOS[$i][24], 25, 460, 600, 20)
Next
EndFunc
Func GetServices()
    $ListViewServices = GUICtrlCreateListView("# | SERVICE | DEPENDANT ON", 10, 75, 775, 600)
    GUICtrlSetBkColor($ListViewServices, $GUI_BKCOLOR_LV_ALTERNATE)
    GUICtrlSetBkColor($ListViewServices, $colorOdd)
    Dim $DependantService
    _ComputerGetDependantServices($DependantService)
For $i = 1 To $DependantService[0][0] Step 1
    $dependancyName = _StringBetween($DependantService[$i][0], 'Name="', '"')
    $serviceName = _StringBetween($DependantService[$i][1], 'Name="', '"')
    $sDataService = $i & "|" ;Service #
    $sDataService &= $serviceName[0] & "|" ;Service Name
    $sDataService &= $dependancyName[0] & "|" ;Dependancy Name
    GUICtrlCreateListViewItem($sDataService, $ListViewServices)
    GUICtrlSetBkColor(-1, $colorEven)
Next
EndFunc

thanks, but what did you change?

traymenu.au3

functionsSystemInfo.au3

Tvern · August 2, 2009

thanks, but what did you change?

in functionsSystemInfo.au3 I've:

*removed GUICtrlSetOnEvent() because you're not using oneventmode.

*removed GUIGetMSG() and the loop it was in because you're alreay got a loop checking GUIGetMsg().

*made getToolsMenu() return an array containing the CtrlID of the items in the tools menu, as well as the items executable name and its url.

*added InetGet to DownloadingMessage()

in traymenu.au3 I've:

*Changed menu run commands to Shelexecute, because most of them where not doing anything, or just opened "My Computer". (this was when I just decided to fix as much as possible trying to find the problem you faced)

*saved the array now returned by getToolsMenu() to $ToolMenuArray

*put a For...Next loop inside your GUIGetMsg() loop checking all CtrlID's saved in $ToolMenuArray one by one.

I think that's it of the top of my head.

clicking on an menu item

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members