Script running problem

au3scr · March 8, 2008

I got strange problem

C:\Documents and Settings\rain\Desktop\nahuel.au3(2,10) : ERROR: can't open include file <GuiList.au3>
#Include <GuiList.au3>
~~~~~~~~~^
C:\Documents and Settings\rain\Desktop\nahuel.au3(103,50) : ERROR: _GUICtrlListCount(): undefined function.
$NumDePros=_GUICtrlListCount($ListadeProcesos)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Documents and Settings\rain\Desktop\nahuel.au3 - 2 error(s), 0 warning(s

Paulie · March 8, 2008

Might we see yours (or rather nahuel's) code?

au3scr · March 8, 2008

Process Manager v2, Yes, another one.

#include <GUIConstants.au3>
#Include <GuiList.au3>
#include <Constants.au3>


Opt("TrayAutoPause",0)
Opt("TrayIconHide",1)
Opt("TrayMenuMode",1)
Opt("GUICloseOnESC",0)
Opt("RunErrorsFatal",0)

Global $about

$Main = GUICreate("Process Manager", 316, 370, 235, 109,-1,$WS_EX_TOPMOST )
$Tabs = GUICtrlCreateTab(8, 0, 297, 305)
$Procesos = GUICtrlCreateTabItem("Processes")
$ListadeProcesos = GUICtrlCreateList("", 21, 36, 273, 214)
$Terminar = GUICtrlCreateButton("&Terminate", 28, 265, 105, 25, $BS_DEFPUSHBUTTON)
$Ejecutar = GUICtrlCreateButton("&Run", 168, 264, 97, 25, 0)
$Rendimiento = GUICtrlCreateTabItem("Performance")
$Label1 = GUICtrlCreateLabel("RAM in use", 32, 48, 106, 17)
$Label2 = GUICtrlCreateLabel("Total RAM", 32, 72, 70, 17)
$Label3 = GUICtrlCreateLabel("RAM available", 32, 97, 78, 17)
$Label5 = GUICtrlCreateLabel("Total Pagefile", 32, 153, 65, 17)
$Label4 = GUICtrlCreateLabel("Available Pagefile", 32, 176, 92, 17)
$Label6 = GUICtrlCreateLabel("Total Virtual", 32, 232, 98, 17)
$Label7 = GUICtrlCreateLabel("Available Virtual", 32, 256, 125, 17)
GUICtrlCreateGroup("RAM Memory", 16, 24, 281, 97)
$RAMenUso = GUICtrlCreateInput("", 160, 40, 129, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
$TotalRAM = GUICtrlCreateInput("", 159, 67, 129, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
$RAMdisponible = GUICtrlCreateInput("", 159, 94, 129, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Pagefile", 16, 128, 281, 73)
$PageTotal = GUICtrlCreateInput("", 159, 146, 129, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
$PageDisponible = GUICtrlCreateInput("", 159, 173, 129, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Virtual Memory", 16, 208, 281, 73)
$VirtualTotal = GUICtrlCreateInput("", 160, 224, 129, 21,BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
$VirtualDisponible = GUICtrlCreateInput("", 160, 251, 129, 21,BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlCreateTabItem("")
$BotSalir = GUICtrlCreateButton("&Exit", 168, 320, 113, 25, 0)
$Apagar = GUICtrlCreateButton("&Shutdown", 32, 320, 105, 25, 0)
$Archivo = GUICtrlCreateMenu("&File")
$Refrescar = GUICtrlCreateMenuItem("Refresh now", $Archivo)
GUICtrlCreateMenuItem("", $Archivo)
$Salir = GUICtrlCreateMenuItem("Exit", $Archivo)
$Ayuda = GUICtrlCreateMenu("&Help")
$Acerca = GUICtrlCreateMenuItem("About", $Ayuda)
GUISetState(@SW_SHOW)

cargar_Info()

AdlibEnable("cargar_Info",2000)
While 1
    $tMsg=TrayGetMsg()
    $nMsg = GUIGetMsg()
    Select
        Case  $tMsg = $TRAY_EVENT_PRIMARYDOWN
            Opt("TrayIconHide",1)
            GUISetState(@SW_SHOW,$Main)  
        Case  $nMsg = $GUI_EVENT_CLOSE
            Exit
        Case  $nMsg = $GUI_EVENT_MINIMIZE
            Opt("TrayIconHide",0)
            GUISetState(@SW_HIDE,$Main)
        Case  $nMsg = $BotSalir
            Exit
        Case  $nMsg = $Salir
            Exit
        Case  $nMsg = $Terminar
            Dim $iMsgBoxAnswer1
            $iMsgBoxAnswer1 = MsgBox(4148,"Warning","Terminating '" &GUICtrlRead($ListadeProcesos)&"' may cause the loss " & @CRLF &"of important data that hasn't been saved" & @CRLF & "Continue?")
            Select
                Case $iMsgBoxAnswer1 = 6 ;Si
                    ProcessClose(GUICtrlRead($ListadeProcesos))
                    $KillWait=ProcessWaitClose(GUICtrlRead($ListadeProcesos),5)
                    If $KillWait=0 Then
                        MsgBox(4112,"Error","Could not terminate process")
                    EndIf
                    cargar_Info()
                Case $iMsgBoxAnswer1 = 7 ;No
            EndSelect
        Case  $nMsg = $Ejecutar
            ejecutar() 
        Case  $nMsg = $Apagar
        Dim $iMsgBoxAnswer
        $iMsgBoxAnswer = MsgBox(4388,"Shutdown","Shutdown PC?")
        Select
            Case $iMsgBoxAnswer = 6
                Shutdown(9)
            Case $iMsgBoxAnswer = 7
        EndSelect
    Case  $nMsg = $acerca
        about()
    Case  $nMsg = $Refrescar
        cargar_Info()
    EndSelect
WEnd

Func cargar_Info()
    ;Procesos
    $Procesos=ProcessList()
    $NumDePros=_GUICtrlListCount($ListadeProcesos)
    If $Procesos[0][0]<>$NumDePros Then
        GUICtrlSetData($ListadeProcesos,"")
        $sHold = ""
        for $i = 1 to $Procesos[0][0]
            $sHold &= $Procesos[$i][0] & '|'
        next
        GUICtrlSetData($ListadeProcesos,$sHold)
    EndIf

    ;Memoria
    $Memoria=MemGetStats()

        GUICtrlSetData($RAMenUso,$Memoria[0]&"%")
       
        GUICtrlSetData($TotalRAM,$Memoria[1]&" KB")

        GUICtrlSetData($RAMdisponible,$Memoria[2]&" KB")

        GUICtrlSetData($PageTotal ,$Memoria[3]&" KB")

        GUICtrlSetData($PageDisponible ,$Memoria[4]&" KB")

        GUICtrlSetData($VirtualTotal ,$Memoria[5]&" KB")

        GUICtrlSetData($VirtualDisponible ,$Memoria[6]&" KB")

EndFunc




Func about()
Opt("GUIOnEventMode",1)
$about = GUICreate("About", 222, 220, 225, 137, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS),-1,$Main)
GUISetOnEvent ($GUI_EVENT_CLOSE, "AboutOK" )
GUICtrlCreateIcon(@AutoItExe, -1, 95, 88)
GUICtrlCreateLabel("Process Manager 2.0", 40, 10, 200, 17)
GUICtrlSetFont (-1,10, 800, 0, "Arial") ; bold
GUICtrlCreateLabel("Created by", 48, 32, 56, 17)
$email=GUICtrlCreateLabel("Nahuel José", 103, 32, 63, 17)
GuiCtrlSetFont($email, 8.5, -1, 4) ; underlined
GuiCtrlSetColor($email,0x0000ff)
GuiCtrlSetCursor($email,0)
GUICtrlSetOnEvent(-1, "OnEmail")
$Label4 = GUICtrlCreateLabel("Created with:", 80, 64, 62, 17)
 GUICtrlCreateLabel("AutoIt v3", 83, 128, 107, 17)
 GUICtrlSetFont (-1,10, 800, 0, "Arial") ; bold
$www = GUICtrlCreateLabel("www.autoitscript.com", 60, 152, 105, 17)
GuiCtrlSetFont($www, 8.5, -1, 4) ; underlined
GuiCtrlSetColor($www,0x0000ff)
GuiCtrlSetCursor($www,0)
GUICtrlSetOnEvent(-1, "OnWWW")
GUICtrlCreateButton("Aceptar", 72, 176, 81, 25, $BS_DEFPUSHBUTTON)
GUICtrlSetOnEvent(-1, "AboutOK")
GUISetState(@SW_SHOW, $about)



EndFunc

Func ejecutar()
GUICreate("Run external program", 291, 120, 226, 156, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS),-1,$Main)
GUICtrlCreateLabel("Type the name or path of the program", 8, 16, 276, 17)
$RutaEjecutar = GUICtrlCreateInput("", 8, 40, 273, 21)
$Correr = GUICtrlCreateButton("&Run", 8, 80, 73, 25, $BS_DEFPUSHBUTTON)
$Cancelar = GUICtrlCreateButton("&Cancel", 104, 80, 75, 25, 0)
$Examinar = GUICtrlCreateButton("&Browse", 200, 80, 75, 25, 0)
GUISetState()
While 1
    $CMsg=GUIGetMsg(1)
    Select
    Case $CMsg[0]=$GUI_EVENT_CLOSE OR $CMsg[0]=$Cancelar
        GUIDelete($CMsg[1])
        If $CMsg[1]=$Main Then Exit
        ExitLoop
    Case $CMsg[0]=$Correr
        Run(GUICtrlRead($RutaEjecutar))
        If @error=1 Then
            MsgBox(4112,"Error","Could not run external program")
        Else
            GUIDelete($CMsg[1])
            ExitLoop
        EndIf
    Case $CMsg[0]=$Examinar
        WinSetOnTop("Process Manager","",0)
        WinSetOnTop("Run external program","",0)
        $Ruta=FileOpenDialog("Search the program to run",@Programfilesdir,".exe Files (*.exe)", 1 )
        If not @error Then
            GUICtrlSetData($RutaEjecutar,$Ruta)
        EndIf
        WinSetOnTop("Process Manager","",1)
        WinSetOnTop("Run external program","",1)
    EndSelect
WEnd
       

EndFunc

Func OnEmail()
    Run(@ComSpec & " /c " & 'start mailto:nahueljose@gmail.com?subject=', "", @SW_HIDE)
EndFunc

Func OnWWW()
    Run(@ComSpec & " /c " & 'start www.autoitscript.com', "", @SW_HIDE)
EndFunc

Func AboutOK()
    Opt("GUIOnEventMode",0)
    GUIDelete($about)
EndFunc

Edited March 8, 2008 by au3scr

Valuater · March 8, 2008

Checked for errrs only

#include <GUIConstants.au3>

#Include <GuiListBox.au3> ; changed

#include <Constants.au3>


Opt("TrayAutoPause",0)
Opt("TrayIconHide",1)
Opt("TrayMenuMode",1)
Opt("GUICloseOnESC",0)
Opt("RunErrorsFatal",0)

Global $about

$Main = GUICreate("Process Manager", 316, 370, 235, 109,-1,$WS_EX_TOPMOST )
$Tabs = GUICtrlCreateTab(8, 0, 297, 305)
$Procesos = GUICtrlCreateTabItem("Processes")
$ListadeProcesos = GUICtrlCreateList("", 21, 36, 273, 214)
$Terminar = GUICtrlCreateButton("&Terminate", 28, 265, 105, 25, $BS_DEFPUSHBUTTON)
$Ejecutar = GUICtrlCreateButton("&Run", 168, 264, 97, 25, 0)
$Rendimiento = GUICtrlCreateTabItem("Performance")
$Label1 = GUICtrlCreateLabel("RAM in use", 32, 48, 106, 17)
$Label2 = GUICtrlCreateLabel("Total RAM", 32, 72, 70, 17)
$Label3 = GUICtrlCreateLabel("RAM available", 32, 97, 78, 17)
$Label5 = GUICtrlCreateLabel("Total Pagefile", 32, 153, 65, 17)
$Label4 = GUICtrlCreateLabel("Available Pagefile", 32, 176, 92, 17)
$Label6 = GUICtrlCreateLabel("Total Virtual", 32, 232, 98, 17)
$Label7 = GUICtrlCreateLabel("Available Virtual", 32, 256, 125, 17)
GUICtrlCreateGroup("RAM Memory", 16, 24, 281, 97)
$RAMenUso = GUICtrlCreateInput("", 160, 40, 129, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
$TotalRAM = GUICtrlCreateInput("", 159, 67, 129, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
$RAMdisponible = GUICtrlCreateInput("", 159, 94, 129, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Pagefile", 16, 128, 281, 73)
$PageTotal = GUICtrlCreateInput("", 159, 146, 129, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
$PageDisponible = GUICtrlCreateInput("", 159, 173, 129, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Virtual Memory", 16, 208, 281, 73)
$VirtualTotal = GUICtrlCreateInput("", 160, 224, 129, 21,BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
$VirtualDisponible = GUICtrlCreateInput("", 160, 251, 129, 21,BitOR($ES_RIGHT,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlCreateTabItem("")
$BotSalir = GUICtrlCreateButton("&Exit", 168, 320, 113, 25, 0)
$Apagar = GUICtrlCreateButton("&Shutdown", 32, 320, 105, 25, 0)
$Archivo = GUICtrlCreateMenu("&File")
$Refrescar = GUICtrlCreateMenuItem("Refresh now", $Archivo)
GUICtrlCreateMenuItem("", $Archivo)
$Salir = GUICtrlCreateMenuItem("Exit", $Archivo)
$Ayuda = GUICtrlCreateMenu("&Help")
$Acerca = GUICtrlCreateMenuItem("About", $Ayuda)
GUISetState(@SW_SHOW)

cargar_Info()

AdlibEnable("cargar_Info",2000)
While 1
    $tMsg=TrayGetMsg()
    $nMsg = GUIGetMsg()
    Select
        Case  $tMsg = $TRAY_EVENT_PRIMARYDOWN
            Opt("TrayIconHide",1)
            GUISetState(@SW_SHOW,$Main) 
        Case  $nMsg = $GUI_EVENT_CLOSE
            Exit
        Case  $nMsg = $GUI_EVENT_MINIMIZE
            Opt("TrayIconHide",0)
            GUISetState(@SW_HIDE,$Main)
        Case  $nMsg = $BotSalir
            Exit
        Case  $nMsg = $Salir
            Exit
        Case  $nMsg = $Terminar
            Dim $iMsgBoxAnswer1
            $iMsgBoxAnswer1 = MsgBox(4148,"Warning","Terminating '" &GUICtrlRead($ListadeProcesos)&"' may cause the loss " & @CRLF &"of important data that hasn't been saved" & @CRLF & "Continue?")
            Select
                Case $iMsgBoxAnswer1 = 6 ;Si
                    ProcessClose(GUICtrlRead($ListadeProcesos))
                    $KillWait=ProcessWaitClose(GUICtrlRead($ListadeProcesos),5)
                    If $KillWait=0 Then
                        MsgBox(4112,"Error","Could not terminate process")
                    EndIf
                    cargar_Info()
                Case $iMsgBoxAnswer1 = 7 ;No
            EndSelect
        Case  $nMsg = $Ejecutar
            ejecutar()
        Case  $nMsg = $Apagar
        Dim $iMsgBoxAnswer
        $iMsgBoxAnswer = MsgBox(4388,"Shutdown","Shutdown PC?")
        Select
            Case $iMsgBoxAnswer = 6
                Shutdown(9)
            Case $iMsgBoxAnswer = 7
        EndSelect
    Case  $nMsg = $acerca
        about()
    Case  $nMsg = $Refrescar
        cargar_Info()
    EndSelect
WEnd

Func cargar_Info()
    ;Procesos
    $Procesos=ProcessList()
    $NumDePros= _GUICtrlListBox_GetCount($ListadeProcesos)
    If $Procesos[0][0]<>$NumDePros Then
        GUICtrlSetData($ListadeProcesos,"")
        $sHold = ""
        for $i = 1 to $Procesos[0][0]
            $sHold &= $Procesos[$i][0] & '|'
        next
        GUICtrlSetData($ListadeProcesos,$sHold)
    EndIf

    ;Memoria
    $Memoria=MemGetStats()

        GUICtrlSetData($RAMenUso,$Memoria[0]&"%")
       
        GUICtrlSetData($TotalRAM,$Memoria[1]&" KB")

        GUICtrlSetData($RAMdisponible,$Memoria[2]&" KB")

        GUICtrlSetData($PageTotal ,$Memoria[3]&" KB")

        GUICtrlSetData($PageDisponible ,$Memoria[4]&" KB")

        GUICtrlSetData($VirtualTotal ,$Memoria[5]&" KB")

        GUICtrlSetData($VirtualDisponible ,$Memoria[6]&" KB")

EndFunc




Func about()
Opt("GUIOnEventMode",1)
$about = GUICreate("About", 222, 220, 225, 137, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS),-1,$Main)
GUISetOnEvent ($GUI_EVENT_CLOSE, "AboutOK" )
GUICtrlCreateIcon(@AutoItExe, -1, 95, 88)
GUICtrlCreateLabel("Process Manager 2.0", 40, 10, 200, 17)
GUICtrlSetFont (-1,10, 800, 0, "Arial") ; bold
GUICtrlCreateLabel("Created by", 48, 32, 56, 17)
$email=GUICtrlCreateLabel("Nahuel José", 103, 32, 63, 17)
GuiCtrlSetFont($email, 8.5, -1, 4) ; underlined
GuiCtrlSetColor($email,0x0000ff)
GuiCtrlSetCursor($email,0)
GUICtrlSetOnEvent(-1, "OnEmail")
$Label4 = GUICtrlCreateLabel("Created with:", 80, 64, 62, 17)
 GUICtrlCreateLabel("AutoIt v3", 83, 128, 107, 17)
 GUICtrlSetFont (-1,10, 800, 0, "Arial") ; bold
$www = GUICtrlCreateLabel("www.autoitscript.com", 60, 152, 105, 17)
GuiCtrlSetFont($www, 8.5, -1, 4) ; underlined
GuiCtrlSetColor($www,0x0000ff)
GuiCtrlSetCursor($www,0)
GUICtrlSetOnEvent(-1, "OnWWW")
GUICtrlCreateButton("Aceptar", 72, 176, 81, 25, $BS_DEFPUSHBUTTON)
GUICtrlSetOnEvent(-1, "AboutOK")
GUISetState(@SW_SHOW, $about)



EndFunc

Func ejecutar()
GUICreate("Run external program", 291, 120, 226, 156, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUP,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS),-1,$Main)
GUICtrlCreateLabel("Type the name or path of the program", 8, 16, 276, 17)
$RutaEjecutar = GUICtrlCreateInput("", 8, 40, 273, 21)
$Correr = GUICtrlCreateButton("&Run", 8, 80, 73, 25, $BS_DEFPUSHBUTTON)
$Cancelar = GUICtrlCreateButton("&Cancel", 104, 80, 75, 25, 0)
$Examinar = GUICtrlCreateButton("&Browse", 200, 80, 75, 25, 0)
GUISetState()
While 1
    $CMsg=GUIGetMsg(1)
    Select
    Case $CMsg[0]=$GUI_EVENT_CLOSE OR $CMsg[0]=$Cancelar
        GUIDelete($CMsg[1])
        If $CMsg[1]=$Main Then Exit
        ExitLoop
    Case $CMsg[0]=$Correr
        Run(GUICtrlRead($RutaEjecutar))
        If @error=1 Then
            MsgBox(4112,"Error","Could not run external program")
        Else
            GUIDelete($CMsg[1])
            ExitLoop
        EndIf
    Case $CMsg[0]=$Examinar
        WinSetOnTop("Process Manager","",0)
        WinSetOnTop("Run external program","",0)
        $Ruta=FileOpenDialog("Search the program to run",@Programfilesdir,".exe Files (*.exe)", 1 )
        If not @error Then
            GUICtrlSetData($RutaEjecutar,$Ruta)
        EndIf
        WinSetOnTop("Process Manager","",1)
        WinSetOnTop("Run external program","",1)
    EndSelect
WEnd
       

EndFunc

Func OnEmail()
    Run(@ComSpec & " /c " & 'start mailto:nahueljose@gmail.com?subject=', "", @SW_HIDE)
EndFunc

Func OnWWW()
    Run(@ComSpec & " /c " & 'start www.autoitscript.com', "", @SW_HIDE)
EndFunc

Func AboutOK()
    Opt("GUIOnEventMode",0)
    GUIDelete($about)
EndFunc

.... this will not work with the newest beta

8)

Sign In

Script running problem

Recommended Posts

au3scr

Link to comment

Share on other sites

Paulie

Link to comment

Share on other sites

au3scr

Link to comment

Share on other sites

Valuater

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta