INetGetSize

[Robonglious]

Hello,

I think I'm not understanding how this function is supposed to do work, please check out the code below and see what you think.

This is supposed to be an internet speed tester. It will download a file and time how long it takes. I've taken out the actual address. It returns a zero...

If anyone knows of a way to get Speedtest.net to be invisible or to save a screenshot or something that would be much better but it is out of my reach right now.

Thank you all, I really appreciate your input.

$begin = TimerInit()
Local $hDownload = InetGet("https://***.******.com/Document%20Library/Master%20Office%20Listing.xls", @DesktopDir & "\update.xls")
Do
    Sleep(10)
Until InetGetInfo($hDownload, 2)
$EndCount = Round ( (TimerDiff($begin)/1000) , 2 )
$avg = ($nBytes/$EndCount)
Local $nBytes = InetGetInfo($hDownload, 0)
InetClose($hDownload)
MsgBox(0, "", "Bytes read: " & $nBytes & ", at " & $avg & "per second")

[Robonglious]

So I've redone a few things but I'm still getting a zero back.

Any ideas?

The help file seems very simple, can I not use the inet/get/size functions with xls or ppt files?

Global $hDownload = InetGet("https://***.***.***/Pinnacle.pptx", @DesktopDir & "Plastic.pptx", 1, 1)
Global $begin = TimerInit()
Do
Sleep(500)
Until InetGetInfo($hDownload, 2) ; Check if the download is complete.
$EndCount = TimerDiff($begin)
$hDownloadSize = InetGetSize("https://***.***.***/Pinnacle.pptx",1)
$avg = ($hDownloadSize / $EndCount)
Global $nBytes = InetGetInfo($hDownload, 0)
InetClose($hDownload) ; Close the handle to release resources.
MsgBox(0, "", "Bytes read: " & $hDownloadSize & " , at " & $avg & " per second")

Edited June 25, 2012 by Robonglious

[BrewManNH]

I haven't tried the script yet, but one thing I see is that $Endcount is going to be in milliseconds, not seconds, divide it by 1000 for seconds.

[Robonglious]

I actually removed that already just trying to get something back besides 0.

Thanks though

[Robonglious]

I guess this just doesn't work with my Web Server!? I tried it with some outside servers and it works fine.

Baffled... still looking for answers for this one if anyone can think of anything.

Thanks!

[BrewManNH]

Can you try it with http instead of https? No idea if that would make any difference, but it can't hurt to try.

[Robonglious]

I can only use https with this. Oh well, this will work ok.

Thanks for your input on this.

[Robonglious]

Maybe this topic has died but I'm having a sporadic issue with the finished product.

On certain machines it shows the connection as being super fast or super slow and I can't tell why. Could it be that Wiki doesn't want to keep serving up that file?

This is part of a bigger program.

I have only seen the problem on Windows XP it runs correctly each time on my Windows 7 machine.

Local $begin = TimerInit()
Local $hDownload = InetGet("http://upload.wikimedia.org/wikipedia/en/2/2f/EN004_Moon_with_a_Past.jpg", @TempDir & "Moon.jpg", 1, 0)
$EndCount = TimerDiff($begin / 1000)
$hDownloadSize = InetGetSize("http://upload.wikimedia.org/wikipedia/en/2/2f/EN004_Moon_with_a_Past.jpg", 1)
$avg = ($hDownloadSize / ($EndCount / 1000))
Local $nBytes = InetGetInfo($hDownload, 0)
InetClose($hDownload) ; Close the handle to release resources.


FileWrite($file, "Bytes read: " & (Round(($hDownloadSize / 1024), 2)) & "KB" & " , at " & Round($avg, 2) & "MB per second" & @CRLF)

Edited June 28, 2012 by Robonglious