marcsusy Posted January 9, 2014 Share Posted January 9, 2014 Hi Everyone:I'm using a script that makes a pc software inventory, but GUICtrlCreateProgress does not work, I want to know I'm doing wrong.Greetings.This is the script I use: #include <Timers.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 615, 438, 192, 124) $Button1 = GUICtrlCreateButton("Button1", 264, 312, 75, 25) $Progress1 = GUICtrlCreateProgress(88, 160, 478, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $Form1,$iWait = 100,$direction = 1,$percent = 0 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 _WMI() EndSwitch WEnd Func _WMI() $iTimerProgress = _Timer_SetTimer($Form1, $iWait, "_UpdateProgressBar") $strComputer = "." $objWMIService = ObjGet("winmgmts:"& "{impersonationLevel=impersonate}!"& $strComputer & "rootcimv2") $colSoftware = $objWMIService.ExecQuery("Select * from Win32_Product") Local $Name[1],$Version[1] $i = 0 For $objSoftware in $colSoftware $Name[$i] = $objSoftware.Name $Version[$i] = $objSoftware.Version $i += 1 Redim $Name[$i+1] Redim $Version[$i+1] Next EndFunc Func _UpdateProgressBar($hWnd, $Msg, $iIDTimer, $dwTime) #forceref $hWnd, $Msg, $iIDTimer, $dwTime $percent += 5 * $direction GUICtrlSetData($progress1, $percent) IF $percent = 100 Or $percent = 0 Then $direction *= -1 IF $percent = 100 Then GUICtrlSetColor($progress1, 0xff0000) ElseIf $percent = 0 Then GUICtrlSetColor($progress1, 0x0000ff) EndIf EndFunc Link to comment Share on other sites More sharing options...
l3ill Posted January 9, 2014 Share Posted January 9, 2014 Hi marcsusy, try taking the quotes from around your Function call. Bill My Contributions... SnippetBrowser NewSciTE PathFinder Text File Manipulation FTP Connection Tester / INI File - Read, Write, Save & Load Example Link to comment Share on other sites More sharing options...
marcsusy Posted January 9, 2014 Author Share Posted January 9, 2014 Hello I3ill:I have tried and does not work I may not do as you say, you can put me an example please.thanks Deshacer cambios Link to comment Share on other sites More sharing options...
l3ill Posted January 9, 2014 Share Posted January 9, 2014 expandcollapse popup#include <Timers.au3> #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 615, 438, 192, 124) $Button1 = GUICtrlCreateButton("Button1", 264, 312, 75, 25) $Progress1 = GUICtrlCreateProgress(88, 160, 478, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### Global $Form1,$iWait = 100,$direction = 1,$percent = 0 While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 _WMI() EndSwitch WEnd Func _WMI() $iTimerProgress = _Timer_SetTimer($Form1, $iWait, _UpdateProgressBar) ;~ _________________________________________________^^^^^^^^^^^^^^^^^^^^^ Here !!! $strComputer = "." $objWMIService = ObjGet("winmgmts:"& "{impersonationLevel=impersonate}!\\"& $strComputer & "\root\cimv2") $colSoftware = $objWMIService.ExecQuery("Select * from Win32_Product") Local $Name[1],$Version[1] $i = 0 For $objSoftware in $colSoftware $Name[$i] = $objSoftware.Name $Version[$i] = $objSoftware.Version $i += 1 Redim $Name[$i+1] Redim $Version[$i+1] Next EndFunc Func _UpdateProgressBar($hWnd, $Msg, $iIDTimer, $dwTime) #forceref $hWnd, $Msg, $iIDTimer, $dwTime $percent += 5 * $direction GUICtrlSetData($progress1, $percent) IF $percent = 100 Or $percent = 0 Then $direction *= -1 IF $percent = 100 Then GUICtrlSetColor($progress1, 0xff0000) ElseIf $percent = 0 Then GUICtrlSetColor($progress1, 0x0000ff) EndIf EndFunc My Contributions... SnippetBrowser NewSciTE PathFinder Text File Manipulation FTP Connection Tester / INI File - Read, Write, Save & Load Example Link to comment Share on other sites More sharing options...
marcsusy Posted January 9, 2014 Author Share Posted January 9, 2014 Hello I3illI had tried calling the function without quotation marks, but I get syntax error Thanks Link to comment Share on other sites More sharing options...
l3ill Posted January 9, 2014 Share Posted January 9, 2014 What is the error? What version are you using? My Contributions... SnippetBrowser NewSciTE PathFinder Text File Manipulation FTP Connection Tester / INI File - Read, Write, Save & Load Example Link to comment Share on other sites More sharing options...
marcsusy Posted January 9, 2014 Author Share Posted January 9, 2014 I'm using version 3.3.0the error is this : ERROR: syntax error $ iTimerProgress = _Timer_SetTimer ($ Form1, $ iwait, _UpdateProgressBar) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^ Link to comment Share on other sites More sharing options...
guinness Posted January 9, 2014 Share Posted January 9, 2014 I doubt anyone still has v3.3.0.0, maybe v3.3.6.1 at a push. Most are using either v3.3.8.1 or v3.3.10.x and above. UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
marcsusy Posted January 9, 2014 Author Share Posted January 9, 2014 I'll try to V3.3.10.2 Link to comment Share on other sites More sharing options...
guinness Posted January 9, 2014 Share Posted January 9, 2014 I haven't really analysed your problem. Sorry. UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
l3ill Posted January 9, 2014 Share Posted January 9, 2014 >Running:(3.3.10.0):E:AutoIt_v3.3.10.0_PortableAppautoit3.exe It is working here... My Contributions... SnippetBrowser NewSciTE PathFinder Text File Manipulation FTP Connection Tester / INI File - Read, Write, Save & Load Example Link to comment Share on other sites More sharing options...
marcsusy Posted January 9, 2014 Author Share Posted January 9, 2014 Please have the link to download the portable version V3.3.10.0 Link to comment Share on other sites More sharing options...
l3ill Posted January 9, 2014 Share Posted January 9, 2014 Sorry my search on the site is not working at the moment. try and see if yours works. My Contributions... SnippetBrowser NewSciTE PathFinder Text File Manipulation FTP Connection Tester / INI File - Read, Write, Save & Load Example Link to comment Share on other sites More sharing options...
marcsusy Posted January 18, 2014 Author Share Posted January 18, 2014 Sorry,I've tried my script, but no found the solution, help me please Thanks Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted January 18, 2014 Moderators Share Posted January 18, 2014 marcsusy,From what I can see the progress bar setting has absolutely nothing to do with the time taken by the WMI call and is merely updated by a simple timer - so the actual setting is meaningless. Why not use the type of progress bar designed for use in these situations: #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> $hGUI = GUICreate("Test", 500, 500) GUICtrlCreateProgress(10, 10, 400, 20, $PBS_MARQUEE) GUICtrlSendMsg(-1, $PBM_SETMARQUEE, True, 50) ; final parameter is update time in ms GUISetState() While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit EndSwitch WEndSimplifies the code and lets the user know that something is happening for an indeterminate period. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
marcsusy Posted January 18, 2014 Author Share Posted January 18, 2014 I am sorry Melba the progress is stop when I press the botom $Button1,maybe do something wrong #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 615, 438, 192, 124) $Button1 = GUICtrlCreateButton("Button1", 264, 312, 75, 25) $Progress1 = GUICtrlCreateProgress(88, 160, 478, 17, $PBS_MARQUEE) GUICtrlSendMsg(-1, $PBM_SETMARQUEE, True, 50) ; final parameter is update time in ms GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 _WMI() EndSwitch WEnd Func _WMI() $strComputer = "." $objWMIService = ObjGet("winmgmts:"& "{impersonationLevel=impersonate}!"& $strComputer & "rootcimv2") $colSoftware = $objWMIService.ExecQuery("Select * from Win32_Product") Local $Name[1],$Version[1] $i = 0 For $objSoftware in $colSoftware $Name[$i] = $objSoftware.Name $Version[$i] = $objSoftware.Version $i += 1 Redim $Name[$i+1] Redim $Version[$i+1] Next EndFunc Thanks Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now