Search the Community

mesale0077 asked me whether I could code some CSS loading animations from different web sites. These are the results using GDI+ (AutoIt v3.3.12.0+ required!): _GDIPlus_MonochromaticBlinker.au3 / _GDIPlus_RotatingBokeh.au3 _GDIPlus_SpinningCandy.au3 / _GDIPlus_SteamPunkLoading.au3 _GDIPlus_IncreasingBalls.au3 / _GDIPlus_PacmanProgressbar.au3 _GDIPlus_StripProgressbar.au3 / _GDIPlus_RingProgressbar.au3 _GDIPlus_LineProgressbar.au3 / _GDIPlus_SimpleLoadingAnim.au3 _GDIPlus_TextFillingWithWater.au3 / _GDIPlus_MultiColorLoader.au3 _GDIPlus_LoadingSpinner.au3 / _GDIPlus_SpinningAndPulsing.au3 _GDIPlus_TogglingSphere.au3 / _GDIPlus_CloudySpiral.au3 _GDIPlus_GlowingText.au3 (thanks to Eukalyptus) / _GDIPlus_HypnoticLoader.au3 _GDIPlus_RotatingRectangles.au3 / _GDIPlus_TRONSpinner.au3 _GDIPlus_RotatingBars.au3 / _GDIPlus_AnotherText.au3 (thanks to Eukalyptus) _GDIPlus_CogWheels.au3 (thanks to Eukalyptus) / _GDIPlus_DrawingText.au3 (thanks to Eukalyptus) _GDIPlus_GearsAnim.au3 / _GDIPlus_LEDAnim.au3 _GDIPlus_LoadingTextAnim.au3 / _GDIPlus_MovingRectangles.au3 _GDIPlus_SpinningAndGlowing.au3 (thanks to Eukalyptus) / _GDIPlus_YetAnotherLoadingAnim.au3 _GDIPlus_AnimatedTypeLoader.au3 / _GDIPlus_Carousel.au3 Each animation function has a built-in example how it can be used. AiO download: GDI+ Animated Wait Loading Screens.7z (previous downloads: 1757) Big thanks to Eukalyptus for providing several examples. Maybe useful for some of you Br, UEZ PS: I don't understand CSS - everything is made out of my mind, so it might be different from original CSS examples

Hi All, I want to make my progress bar progress with the amount of File lines read. How would I do this correctly. So far the code below can sometimes run in the middle of the progress bar and state completed.. and other times it can run into the 200%. ;======================================================================== ProgressOn("TITLE", "ACTION") ;======================================================================== For $count = 1 To _FileCountLines($FileRead) Step 1 $string = FileReadLine($FileRead, $count) $value1 = $input[1] $value2 = $input[2] $value3 = $input[3] $value4 = $input[4] $TM = FileWrite("C:\temp\test.txt", $value1 & " " & $value2 & " " & $value3 & " " & $value4 & @CRLF) ProgressSet($count, $count & "%") Next ;======================================================================== ; PROGRESS BAR OFF ;======================================================================== ProgressSet(_FileCountLines($FileRead), "Completed!") Sleep(750) ProgressOff() ;========================================================================

hello please i need to link a progress bar with a time can you help me? e.g i want to set a progress bar for 10 sec am waiting for your answers thank you.

Hi, i'm code software listen music on GUI, it's show time playing, hotkey pause/play music, and the last i missing that's the progress to seek the video to hour::ss:( i can't describe exactly, it's like a progress with red color we can backward or fast forward on youtube, i want do the same like that on my gui) i used to use guicreate slider, but it's not good, any idea give me, Tks(sorry for my bad english)

#include <ColorConstants.au3>; Including required files #include <GUIConstantsEx.au3> #include <file.au3> #include <Array.au3> #include <string.au3> Example() Func Example() Local $hash Local $hashes = "hash.txt" _FileReadToArray($hashes, $hash) For $i = 1 To UBound($hash) - 500 $hashcheck = $hash[$i] $PDenc = "hash=" & $hashcheck & "&decrypt=Decrypt" $oHTTP = ObjCreate("winhttp.winhttprequest.5.1") $oHTTP.Open("POST", "http://myurl/", False) ; Post url $oHTTP.SetRequestHeader("Host", "myurl") $oHTTP.SetRequestHeader("Connection", "keep-aliveContent-Length: 29") $oHTTP.SetRequestHeader("Cache-Control", "max-age=0") $oHTTP.SetRequestHeader("Origin", "http://myurl") $oHTTP.SetRequestHeader("Upgrade-Insecure-Requests", "1") $oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/51.0.2704.84 Safari/537.36") $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded") $oHTTP.SetRequestHeader("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8") $oHTTP.SetRequestHeader("Referer", "http://myurl") $oHTTP.SetRequestHeader("Accept-Language", "en-US,en;q=0.8") $oHTTP.Send($PDenc) $oReceived = $oHTTP.ResponseText $oStatusCode = $oHTTP.Status sleep(2000) If $oStatusCode = 503 then MsgBox(4096, "Response code", $oStatusCode) ExitLoop EndIf ; Saves the body response regardless of the Response code $file = FileOpen("Received.html", 2) ; The value of 2 overwrites the file if it already exists FileWrite($file, $oReceived) $read = FileRead("Received.html") ;read file if StringInStr($read, "not found") Then ContinueLoop Else ContinueLoop $Datastring = ('</script></div><br/>') $newreadamount = _StringBetween($read, $Datastring, "</b><br/><br/>") ;read title from file $newreadamount[0] = StringReplace($newreadamount[0], '<b>', "") ; taking out the X makes it easier to compare value If @error Then ContinueLoop EndIf $file = FileOpen("decrypted.txt", 1) FileWrite($file, $newreadamount[0] & @CRLF) EndIf Next sleep(2000) EndFunc ;==>Example As you can read my script loads 500 lines of text, lets say I have a list with 10.000 lines Is there a way to show a progressbar GUI to show how long in a text file I am? I may not know how long a particular .txt file is always so I am thinking I need some sort of algorythm? Thanks in advance. ( I just got unclear if I actually read 500 lines each attempt or if I start with 500 and add 1 to it each time? ) For $i = 1 To UBound($hash) - 500 ; LIke that ^ For $i = 500 To UBound($hash) - 500 ; or like this^ Thanks a lot.

There is an Example called _7ZIPExtractEx_Example_using_Callback.AU3 in the 7-Zip UDF. I found a problem. If one file in the 7z archive is too big,the progress bar will stop for a long time. How can I get the exact progress even though there are big files in the archive? In other words,how to get the exact extracted file size without delay ? 7Zip_UDF.zip

Hi everyone Hope you're doing great. Well, I'm writing a script that allows our Service Desk to clean several temp folder as a first diagnostic. Indeed, the agent in charge of the issue will have to choose what to clean (web browsers temp folders, some windows one etc...) I added a progress bar to see the current state of the script but if I select more than one checkbox, it seems that the counting is not done properly and is directly filled at 100% (when at leat 2 boxes are checked) and I don"t get the final message saying that all is done, especially for if the last box is checked. But if I launch the process with only one checkbox checked,it's working... I've enclosed the au3 files for you because posting them in this post would be... unreadable lol. So you can maybe do some tests as well. I'm pretty sure the code can be optimized (a lot ) and that there is a much better way to achieve what I want the script to be. Maybe can someone can give me a hand over here. Thanks in advance. 31290 SEE_Delete_Temp.au3 SEE_Delete_Temp_Functions.au3

The below script is used by me before for copying files/folders with progress bar(windows default progress bar). I found similar option for moving by using same object. But not able to find for delete. dml.vbs (This is a vbscript one and I am posting in this forum because autoit is made on top of vbscript and it might have similar functions.) So, I checked in AutoIT forums and found below script files and which I have been modified for my requirement. In those below I found delete2.au3 is working fine but hanging during deletion of huge memory files/folders. Delete1_au3 Delete2_au3 Delete3_au3 Please try to provide a solution.

Hello everyone, Question 1: How to attach an IE Download to a Progressbar? Question 2: How to make an IE Download like a streaming Download(download can be paused and continued every time)? Question 3: How to do it with my UDF like Code :o? Question 4: How to do add a Label which shows the released time? Question 5: How to show how long it takes also the Connection Speed? Question 6: How to get the Connection Speed to a Server? #include-once #include <MsgBoxConstants.au3> ; #FUNCTION# ==================================================================================================================== ; Name ..........: _Patch ; Description ...: Easy Patch System(unzipping currently not included) ; I could need a bit help for this code ^-^. ; Syntax ........: _Patch($DownloadURL, $DownloadPath) ; Parameters ....: $DownloadURL - URL for the Download. ; $DownloadPath - Where the download file will be installed. ; $Title - Project Name Will be displayed in the MsgBox. ; Return values .: None ; Author ........: RaiNote ; Modified ......: ; Remarks .......: ; Related .......: ; Link ..........: ; Example .......: No ; ===============================================================================================================================Func _Patch($DownloadURL,$DownloadPath) Func _Patch($DownloadURL,$DownloadPath,$Title = "Title") $Byte = InetGetSize($DownloadURL,0);Download Size If $Byte > 1024 Then $Kilobyte = $Byte / 1024;Converting Byte to Kilobytes If $Kilobyte > 1024 Then $Megabyte = $Kilobyte / 1024;Converting Kilobyte to Megabyte If $Megabyte > 1024 Then $Gigabyte = $Megabyte / 1024;Converting Megabyte to Gigabyte If $Gigabyte > 1024 Then $Terabyte = $Gigabyte / 1024;Converting Gigabyte to Terabyte If $Terabyte > 1024 Then $Petabyte = $Terabyte / 1024;Converting Terabyte to Petabyte If $Petabyte > 1024 Then $Exabyte = $Petabyte / 1024;Converting Petabyte to Exabyte $_PATCH_SIZE1 = Round($Exabyte,2) & " EB" ElseIf $Petabyte < 1024 Then $Petabyte = $Terabyte / 1024 $_PATCH_SIZE1 = Round($Petabyte,2) & " PB" EndIf ElseIf $Terabyte < 1024 Then $Terabyte = $Gigabyte / 1024 $_PATCH_SIZE1 = Round($Terabyte,2) & " TB" EndIf ElseIf $Gigabyte < 1024 Then $Gigabyte = $Megabyte / 1024 $_PATCH_SIZE1 = Round($Gigabyte,2) & " GB" EndIf ElseIf $Megabyte < 1024 Then $Megabyte = $Kilobyte / 1024 $_PATCH_SIZE1 = Round($Megabyte,2) & " MB" EndIf ElseIf $Kilobyte < 1024 Then $Kilobyte = $Byte / 1024 $_PATCH_SIZE1 = Round($Kilobyte,2) & " KB" EndIf ElseIf $Byte < 1024 Then $_PATCH_SIZE1 = $Byte & " Bytes" EndIf $_PATCH_INFO = MsgBox(52,$Title,$Title & "needs to be patched. If u want to patch continue" & @CRLF & " if not it will close automaticly.(Size :" & " " & $_PATCH_SIZE1 & ")",0) switch $_PATCH_INFO case 6 ;YES $_Patch_Download = InetGet($DownloadURL,$DownloadPath,0,0) case 7 ;NO Exit endswitch EndFunc ​Thx for this I hope someone could help me :3 also how is this UDF with the FileSizeSystem P.S.: Also a cat can get shy.

Is there some way to sleep only progress bar functionality, not whole program? example: #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <WindowsConstants.au3> $Form1 = GUICreate("Form1", 421, 209, 243, 159) $close = GUICtrlCreateButton("Close", 153, 112, 119, 33) $Button1 = GUICtrlCreateButton("Run", 23, 112, 119, 33) $Progress1 = GUICtrlCreateProgress(88, 40, 257, 33) GUISetState(@SW_SHOW) While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $close Exit Case $Button1 For $i = 0 To 100 GUICtrlSetData($progress1, $i) Sleep(5) Next sleep(5000) GUICtrlSetData($progress1, 0) EndSwitch WEnd here I can not close the form, because sleep(5000) is still running

UDF provide graphical control based on static class. Button Progressbar v1.01. Fix on Syntax Error Checking Download Choose server where you will download: fxControl.zip - code.google.com (renamed from zettoControl_v1.02.zip) fxControl.zip - autoitscript.com The next version of this UDF will named as fxControl (Control Framework). Screenshot Sample Application using zettoControl Z-Compressor [link fixed] Clean PC Clean PC Source available in spoiler below 'Codice Sorgente' text, in that page. but download link: dead. Its still useful because at least the source are here while you able replace image file with what you have. zettoControl_v1.02.zip

Hey peeps... I've been searching for any documentation on how to get progress information from a running process and haven't been able to find anything that I can use to learn how to get it done... What am I looking for? Something that will allow me to run an external program, such as defrag or imagex from within a GUI and that will allow the progress of that program to show within the GUI I have created. Sort of like how GimageX displays the progress while it's running. Why am I looking for it? I've spent quite some time trying to find some code that I can learn from which will help me. At my last company I was trying to create a more streamlined, custom GimageX. I have also in the past had need to create a GUI for things like Defrag to simplify the process for end users (even simple can be too complex) and I'd just like to get my head around the process. Does this even exist? This is a question I'd like answering first I guess, is the reason I can't find out how to do it because you can't do it? I imagine that this may not be possible for running executables, but instead through running procedures within a DLL... Which is something else I need to get my head around. So... Can anyone point me in the right direction for tutorials (internal or external) or with some source code which I can play with to get my head around it all? Yours Gratefully.... Mallie x

hi agian , i need to make True progressbar.. you'll say "True?? How?" xD i'll tell you. in this script: #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <Crypt.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 385, 125, -1, -1) $Progress1 = GUICtrlCreateProgress(32, 32, 294, 17) $Label1 = GUICtrlCreateLabel("0", 336, 33, 10, 17) $Button1 = GUICtrlCreateButton("Button1", 160, 80, 75, 25) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $source = @ScriptDir & "dd.exe" $save = @ScriptDir &"dd" While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Button1 _Crypt_EncryptFile($source, $save, "123", $CALG_AES_256) EndSwitch WEnd Suppose the file size is "5 MB" so it will take time to encrypt it i need to make the progressbar loading with encrypting and finish with it too, not like this prog' for $i = to 100 sleep(10) guictrlsetdata($progress, $i) this progress above is not true.. i think now my problem explained all helps appreciated.. thanks.

I have been trying to get a progress bar to, well, progress. I have looked at several scripts on here and most of them relate to copying files across, which I do not want to do. I tried chopping it up to suit my needs, but just break them. I simply want the user to press the "Start" button and the bar to run for a few seconds (15 or 20 seconds. Less is fine), then show them a completed message. Here is what I have so far: #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Opt("GUIOnEventMode", 1) $Form1_1 = GUICreate("Form1", 506, 223, 236, 128) $Exit = GUICtrlCreateButton("Exit", 336, 144, 129, 41) GUICtrlSetOnEvent($GUI_EVENT_CLOSE, "close"); $Button1 = GUICtrlCreateButton("Start", 184, 144, 129, 41) GUISetState (@SW_SHOW) $Progress1 = GUICtrlCreateProgress(16, 104, 465, 17) GUISetState() #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $Exit EndSwitch WEnd $wait = 20 $s = 0 do $nmsg = GUIGetMsg() If $nmsg = $Button1 Then For $i = $s To 100 If GUICtrlRead($progress1) = 100 Then Msgbox(0,"Info","Complete!", 1) $m = GUIGetMsg () If $m = -3 Then ExitLoop $s=0 GUICtrlSetData ($progress1,$i) Sleep($wait) Next if $i >100 then endif EndIf until $nmsg = $GUI_EVENT_CLOSE func close () Exit EndFunc Pressing the exit button works fine. The bar is there, but no progress shows. It's more for the user so they know something is happening. All I want it to do is turn green from start to finish when "Start" is pressed. I am very new and I know the aesthetics need work, but I just need to get over this hurdle first. Thanks for any help on this one. I have had nothing but wonderful help from this community in the past! Thanks in advance

hello guys checkout this Code $array = ProcessList("explorer.exe") $iPID = $array[1][1] $sProcess = $iPID ;PID number for test process name ;~ $sProcess = "Idle" ;Other test process names ;~ $sProcess = "_Total" ;funny one ;~ $sProcess = "ntvdm" ;DOS process ;~ $sProcess = "AutoIt3" ;do not assign .exe to process name While 1 $iProcessCPU = _ProcessGetCPU($sProcess, 300 ) $sTip = "Process " & $sProcess & " CPU: " & $iProcessCPU & "%" traytip("", $sTip ,1) ;~ sleep(1000) ;set your own sleep time for LOOP mode WEnd Func _ProcessGetCPU($strProcess = "Idle", $iSampleTime = 10, $sComputerName = @ComputerName) ;~ All Parameters are optional: ;~ - Idle process will be measured if first parameter is not set ;~ - 500 ms is default sample time ;~ - This computer will be measured by default ;~ Process could be string ("Name") or PID number (1234) ;~ When more processes are runing with identical name, then the last opened is measured (use PID for other) ;~ For NORMAL MODE(one time measuring): set Sample value to more than 0 ms ;~ ( average CPU usage will be measured during sleep time within function) ;~ For LOOP MODE (continuous measuring): set Sample value to 0 ms ;~ ( average CPU usage will be measured between two function calls ) ;~ Total CPU usage is: ( 100 - _ProcessGetCPU()) ;~ Success: Returns process CPU usage in percent ;~ (Sample times below 100ms may return inaccurate results) ;~ (First result in Loop Mode may be inaccurate, ;~ because first call in Loop Mode is only used to trigger counters) ;~ Failure: Returns -1 ( wrong process name or PID ) ;~ : Returns -2 ( WMI service not found or Computer not found) if $strProcess = "" then $strProcess = "Idle" if $iSampleTime = "" AND IsString($iSampleTime) then $iSampleTime = 500 if $sComputerName = "" then $sComputerName = @ComputerName if not IsDeclared("iP1") AND $iSampleTime = 0 then ;first time in loop mode $bFirstTimeInLoopMode = 1 else $bFirstTimeInLoopMode = 0 endif if not IsDeclared("iP1") then assign("iP1", 0, 2) ;forced global declaration first time assign("iT1", 0, 2) endif $objWMIService = ObjGet("winmgmts:\\" & $sComputerName & "\root\CIMV2") if @error then return -2 if number($strProcess) then $strProcess = " WHERE IDProcess = '" & $strProcess & "'" else $strProcess = " WHERE Name = '" & $strProcess & "'" endif if $iSampleTime OR $bFirstTimeInLoopMode = 1 then ;skip if Loop Mode, but not First time $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_PerfRawData_PerfProc_Process" & $strProcess) For $objItem In $colItems $iT1 = $objItem.TimeStamp_Sys100NS $iP1 = $objItem.PercentProcessorTime next if $objItem = "" then return -1 ;process not found sleep($iSampleTime) endif $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_PerfRawData_PerfProc_Process" & $strProcess) For $objItem In $colItems $iP2 = $objItem.PercentProcessorTime $iT2 = $objItem.TimeStamp_Sys100NS next if $objItem = "" then return -1 ;process not found $iPP = ($iP2 - $iP1) $iTT = ($iT2 - $iT1) if $iTT = 0 Then return 100 ;do not divide by 0 $iCPU = round( ($iPP/$iTT) * 100, 0) $iP1 = $iP2 $iT1 = $iT2 Return $iCPU EndFunc ;==>_ProcessGetCPU() by novaTek ...ver 0.11 ok as you see this will show you your Explorer.exe in tip, im wondering about how to make this show you the CPU Usage in The Progress bar Lets say we will put the CPU usage in this progress bar #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 615, 129, 192, 124) $Progress1 = GUICtrlCreateProgress(32, 16, 545, 89) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd i hope someone know how to ..

how to set a progress bar for a copying task ( for example i want my script to copy mp4 file from C:\ to Desktop and show progress bar ) any one can set a command in a button which copy a mp4 file from C:\ and set the progress bar to show me my copying progress #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <ProgressConstants.au3> #include <TabConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=D:\koda work\Form1.kxf $Form1 = GUICreate("Form1", 626, 281, 231, 138) $MenuItem1 = GUICtrlCreateMenu("&MenuItem1") $MenuItem2 = GUICtrlCreateMenuItem("MenuItem2", $MenuItem1) $MenuItem3 = GUICtrlCreateMenuItem("MenuItem3", $MenuItem1) $MenuItem4 = GUICtrlCreateMenuItem("MenuItem4", $MenuItem1) $MenuItem5 = GUICtrlCreateMenuItem("MenuItem5", $MenuItem1) $MenuItem6 = GUICtrlCreateMenu("M&enuItem6") $MenuItem7 = GUICtrlCreateMenuItem("MenuItem7", $MenuItem6) $MenuItem8 = GUICtrlCreateMenuItem("MenuItem8", $MenuItem6) $MenuItem9 = GUICtrlCreateMenuItem("MenuItem9", $MenuItem6) $MenuItem10 = GUICtrlCreateMenu("Me&nuItem10") $MenuItem11 = GUICtrlCreateMenuItem("MenuItem11", $MenuItem10) $MenuItem12 = GUICtrlCreateMenuItem("MenuItem12", $MenuItem10) $MenuItem13 = GUICtrlCreateMenu("Men&uItem13") $MenuItem14 = GUICtrlCreateMenuItem("MenuItem14", $MenuItem13) $MenuItem15 = GUICtrlCreateMenuItem("MenuItem15", $MenuItem13) $Tab1 = GUICtrlCreateTab(40, 40, 225, 169) $TabSheet1 = GUICtrlCreateTabItem("TabSheet1") $Button1 = GUICtrlCreateButton("Button1", 48, 72, 89, 25) $Button2 = GUICtrlCreateButton("Button2", 152, 72, 89, 25) $Button3 = GUICtrlCreateButton("Button3", 48, 104, 89, 25) $Button4 = GUICtrlCreateButton("Button4", 152, 104, 89, 25) $Button5 = GUICtrlCreateButton("Button5", 48, 136, 89, 25) $Button6 = GUICtrlCreateButton("Button6", 152, 136, 89, 25) $Button7 = GUICtrlCreateButton("Button7", 80, 168, 137, 25) $TabSheet2 = GUICtrlCreateTabItem("TabSheet2") GUICtrlCreateTabItem("") $ComputerBoost = GUICtrlCreateGroup("ComputerBoost", 16, 24, 289, 201) GUICtrlCreateGroup("", -99, -99, 1, 1) $Progress1 = GUICtrlCreateProgress(16, 232, 593, 17) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd just wanna learn how the code will be