Jump to content
RaiNote

Question IE and Progress

Recommended Posts

RaiNote

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

RaiNote, not the final answer you're looking for, but you may start by simplifying your math and reducing clutter in the script. Instead of all the If statements (67 lines if I count correctly), you could do something like this (20 lines, not counting comments):

;b = 1
;KB = 1024
;MB = 1,048,576
;GB = 1,073,741,824
;TB = 1,099,511,627,776
;PB = 1,125,899,906,842,624
;EB = 1,152,921,504,606,846,976

$DownloadURL = "https://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe"
$iReturn = InetGetSize($DownloadURL,0);Download Size

    Select
        Case $iReturn > 1152000000000000000 ;Exabyte
            $FileSize = Round($iReturn / (1024 ^ 6), 2) & "EB"
        Case $iReturn > 1125000000000000
            $FileSize = Round($iReturn / (1024 ^ 5), 2) & "PB"
        Case $iReturn > 1099000000000
            $FileSize = Round($iReturn / (1024 ^ 4), 2) & "TB"
        Case $iReturn > 1073000000
            $FileSize = Round($iReturn / (1024 ^ 3), 2) & "GB"
        Case $iReturn > 1048000
            $FileSize = Round($iReturn / (1024 ^ 2), 2) & "MB"
        Case $iReturn > 1024
            $FileSize = Round($iReturn / 1024, 2) & "KB"
        Case Else
            $FileSize = Round($iReturn) & "Bytes"
    EndSelect



ConsoleWrite($FileSize & @CRLF)

 

​Thx for this :o

I hope someone could help me :3 also how is this UDF with the FileSizeSystem :o

P.S.: Also a cat can get shy.

Edited by RaiNote

  • C++/AutoIt/OpenGL Easy Coder
  • I will be Kind to you and try to help you
  • till what you want isn't against the Forum
  • Rules~

 

Share this post


Link to post
Share on other sites
JLogan3o13

RaiNote, not the final answer you're looking for, but you may start by simplifying your math and reducing clutter in the script. Instead of all the If statements (67 lines if I count correctly), you could do something like this (20 lines, not counting comments):

;b = 1
;KB = 1024
;MB = 1,048,576
;GB = 1,073,741,824
;TB = 1,099,511,627,776
;PB = 1,125,899,906,842,624
;EB = 1,152,921,504,606,846,976

$DownloadURL = "https://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe"
$iReturn = InetGetSize($DownloadURL,0);Download Size

    Select
        Case $iReturn > 1152000000000000000 ;Exabyte
            $FileSize = Round($iReturn / (1024 ^ 6), 2) & "EB"
        Case $iReturn > 1125000000000000
            $FileSize = Round($iReturn / (1024 ^ 5), 2) & "PB"
        Case $iReturn > 1099000000000
            $FileSize = Round($iReturn / (1024 ^ 4), 2) & "TB"
        Case $iReturn > 1073000000
            $FileSize = Round($iReturn / (1024 ^ 3), 2) & "GB"
        Case $iReturn > 1048000
            $FileSize = Round($iReturn / (1024 ^ 2), 2) & "MB"
        Case $iReturn > 1024
            $FileSize = Round($iReturn / 1024, 2) & "KB"
        Case Else
            $FileSize = Round($iReturn) & "Bytes"
    EndSelect



ConsoleWrite($FileSize & @CRLF)

 


√-1 2^3 ∑ π, and it was delicious!

How to get your question answered on this forum!

Share this post


Link to post
Share on other sites
RaiNote

Oh Thanks for this ^-^ but why the Script was so big was caused by liking If Statements :o but your code could anyway help but where is the "Download".part file because this is normally the file which got the current data what is downloaded :o I'm searching since hours for this file. Nah whatever Thank you very much. Also that isn't one question.

 

Edited by RaiNote

  • C++/AutoIt/OpenGL Easy Coder
  • I will be Kind to you and try to help you
  • till what you want isn't against the Forum
  • Rules~

 

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • Seminko
      By Seminko
      Wrote a script that grabs all of the IP addresses from Netflix's IP log, checks the IPs and returns suspicious activity.
      Everything works as it should but only when _IECreate is set to visible. When visible is set to false, it fails to login for some reason.
      Any ideas what might cause it and/or how to circumvent that?
    • nooneclose
      By nooneclose
      I need to send a string of text to this popup and click on the ok button to save it.
      Here is the code I have so far:
      ;Start IE Sleep(7000) $oIE = _IECreate("http://www.google.com") Sleep(500) _IELoadWait($oIE) $hIE = _IEPropertyGet($oIE, "hwnd") ; Get Handle of the IE window Sleep(500) WinSetState($hIE, "", @SW_MAXIMIZE) ;Wait for a browser page load to complete Sleep(3000) _IENavigate($oIE, "https://properURL.com") Sleep(8000) _IELoadWait($oIE) ;Attach to a browser control embedded in another window $oIE = _IEAttach("https://"properURL.com", url") ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $oIE = ' & $oIE & @CRLF & '>Error code: ' & @error & ' Extended code: 0x' & Hex(@extended) & @CRLF) ;### Debug Console Sleep(2000) ;Get the title of the webpage ;Local $wTitle = _IEPropertyGet($oIE, "title") ;MsgBox($MB_SYSTEMMODAL, "Webpage title:", $wTitle) ;Clicks the new button Sleep(3000) _IEAction($nWorkOrderB, "focus") _IEAction($nWorkOrderB, "click") Sleep(5000) ;Store the Element names where the important data will be sent ;Store the long description button Local $wLongDButton = _IEGetObjById($oIE, "m65d795a4-img") ;Store the long Description field id Local $wComments = _IEGetObjById($oIE, "ma6499a9c-rte_iframe") ;Store the ok button id that is in the long description Local $wCommOk = _IEGetObjById($oIE, "m74031266-pb") ;******************************************************************************* ; Send the stored data to the proper field ;******************************************************************************* ;Click the long description button Sleep(300) _IEAction($wLongDButton, "focus") _IEAction($wLongDButton, "click") Sleep(300) ;Sends the Comments Sleep(500) _IEAction($wComments, "focus") _IEAction($wComments, "click") Sleep(500) _IEFormElementSetValue($wComments, "hello darkness my old friend") ;Click the ok button Sleep(500) _IEAction($wCommOk, "focus") _IEAction($wCommOk, "click") Sleep(500)  
      Here is the popup:

    • Skeletor
      By Skeletor
      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() ;========================================================================  
    • hemichallenger
      By hemichallenger
      Hello,
      If anyone can help, it would be greatly appreciated. The code is just an example and similar to the issue with an internal webpage. I'm trying to autofill than click the submit button. I get the same error running the script.
      _IEFormElementSetValue, $_IESTATUS_InvalidObjectType
      IEGetObjById, $_IESTATUS_NoMatch
      Is it possible to edit the <textarea></textarea>  field with AutoIt?  If anyone could assist me on how. Than I could have a better understanding and chance in figuring it out on my main script. Thank you
      #include <IE.au3> Local $oIE1 = _IECreate ("https://www.w3schools.com/tags/tryit.asp?filename=tryhtml_textarea") _IELoadWait($oIE1) local $oFormCollection = _IEFormGetCollection($oIE1,0) local $oid = _IEGetObjByid($oFormCollection, "iframeResult") _IEFormElementSetValue($oid, "test") sleep (2000) Local $oIE2 = _IECreate ("https://www.w3schools.com/html/tryit.asp?filename=tryhtml_scripts_intro") _IELoadWait($oIE2) $oForm2 = _IEFormGetCollection($oIE2,0) $oClickMe = _IEGetObjById($oForm2, "demo") _IEAction($oClickMe, "focus") _IEAction($oClickMe, "click")
    • Blueman
      By Blueman
      Hey Guys,
      Hope that you can help me with something, maybe this is a bug in the new version of AUTOIT but first i will check it with you to know for sure.
      I have made a simple GUI with a Embedded IE Object, then i would like to read the HTML with _IEBodyReadHTML(), easy right?
      When i use the old IE.au3 include from a year back or so, it is working fine!
      When i use the new IE.au3 include came with the new installation that is currently available on autoitscript.com it isnt working (i get a result that says; 0).
      Let me show you.
       
      Working Example
      #include <GUIConstantsEx.au3> #include <IE_EmbeddedVersioning.au3> #include <IE_PreVersion.au3> ;Older Version Example() Func Example() ; Create a GUI with various controls. Local $hGUI = GUICreate("Example", 1000, 1000) Local $idOK = GUICtrlCreateButton("OK", 310, 370, 85, 25) Global $oIE_1 = _IECreateEmbedded() ; CREATE IE OBJECT(S) GUICtrlCreateObj($oIE_1, 355, 5, 600, 360) _IENavigate($oIE_1, "https://www.google.nl", 1) Local $CheckHTML_T = _IEBodyReadHTML($oIE_1) ; Display the GUI. GUISetState(@SW_SHOW, $hGUI) MsgBox(48,"",$CheckHTML_T) ; Loop until the user exits. While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE, $idOK ExitLoop EndSwitch WEnd ; Delete the previous GUI and all controls. GUIDelete($hGUI) EndFunc ;==>Example  
      Failing Example
      #include <GUIConstantsEx.au3> #include <IE_EmbeddedVersioning.au3> #include <IE.au3> ;New Version Example() Func Example() ; Create a GUI with various controls. Local $hGUI = GUICreate("Example", 1000, 1000) Local $idOK = GUICtrlCreateButton("OK", 310, 370, 85, 25) Global $oIE_1 = _IECreateEmbedded() ; CREATE IE OBJECT(S) GUICtrlCreateObj($oIE_1, 355, 5, 600, 360) _IENavigate($oIE_1, "https://www.google.nl", 1) Local $CheckHTML_T = _IEBodyReadHTML($oIE_1) ; Display the GUI. GUISetState(@SW_SHOW, $hGUI) MsgBox(48,"",$CheckHTML_T) ; Loop until the user exits. While 1 Switch GUIGetMsg() Case $GUI_EVENT_CLOSE, $idOK ExitLoop EndSwitch WEnd ; Delete the previous GUI and all controls. GUIDelete($hGUI) EndFunc ;==>Example  
      I have attachted all files and i am testing on Windows 10 with the latest SciTe Program (Not compiled). 
      When i compile the script it is showing the same result.
      Thanks guys!
      IE_PreVersion.au3
      IE.au3
      IE_EmbeddedVersioning.au3
×