Robonglious

So it looks like the issue might be with the inetgetinfo, I hard coded the file sizes and it seems to be much better now.

Yeah I wanted to do that but it isn't supported on our web servers. Or did you mean I would have the script go to the site and click the links? It may be worthwhile to set up one specifically for this but I haven't done it yet. Oddly enough that's how they work too. They just move large image files and time how long they take... the files I'm using are from www.speedtest.net . I asked this question on an old thread but nobody was looking at it but was getting no response so I asked again. Sorry to be pushy I'm just really confused and frustrated with this. I love AutoIT though.

What is wrong with the code below? It seems very straight forward to me. Does anyone see anything wrong? You would have to change the bottom code if you would want to test this. Is inetget not the best function for this type of thing? All I want to do is move some files around and see how long it takes. Why is this so unreliable? Also, I'm having trouble wrapping my brain around how/why to make my own functions. Do I only want to use this if I am calling a section of code over and over? I'm probably breaking some kind of etiquette by asking so many questions. $begin = TimerInit() $hDownload = InetGet("[url="http://www.upyondafarm.com/Photos/Eastern_Grey_Squirrel.jpg"]http://www.upyondafarm.com/Photos/Eastern_Grey_Squirrel.jpg[/url]", "c:filestest.jpg", 1, 0) $EndCount = TimerDiff($begin) $hDownloadSize = FileGetSize("c:filestest.jpg") $dlsizeRectify = $hDownloadSize/1024 FileDelete("c:filestest.jpg") $EndCountSec = $EndCount / 1000 $avg = (($hDownloadSize / 1024) / $EndCountSec) InetClose($hDownload) $DownTime = TimerInit() FileCopy("data1FrontUtilitytestfilerandom.jpg", "c:filesfile.jpg", 1) $DownTimeEnd = TimerDiff($DownTime) $hData1DLS = FileGetSize("c:filesfile.jpg") $hDataKB = $hData1DLS / 1024 $PreRound = $DownTimeEnd / 1000 $DSpeed = Round($PreRound, 2) $UpTime = TimerInit() FileCopy("c:filesfile.jpg", "data1FrontUtilitytestfileuser" & $Ran & ".jpg", 1) $UptTimeEnd = TimerDiff($UpTime) $PreRoundUp = $UptTimeEnd / 1000 $UPSpeed = Round($PreRoundUp, 2) FileDelete("data1FrontUtilitytestfileuser" & $Ran & ".jpg")

It still doesn't work very well. I've changed the code around a few times but I've probably just made another mistake. Most of the time the result of the web lookup is zero, other times the result is way too fast or slow. You won't be able to run this code but any help would be very helpful. This code should have three tests, one internet download test, one network file download test and one network upload test. ;internet download test $begin = TimerInit() $hDownload = InetGet("https://*****.com/Office%20Listing/Corporate%20Directory/Corporate%20Directory%202012.xls", "c:filespackages.xls", 1, 0) $EndCount = TimerDiff($begin) $hDownloadSize = FileGetSize("c:filespackages.xls") FileDelete("c:filespackages.xls") $EndCountSec = $EndCount / 1000 $avg = (($hDownloadSize / 1024) / $EndCountSec) InetClose($hDownload) GUICtrlSetData($Progress1, ($i / $Time) * 100) ;network download test $DownTime = TimerInit() FileCopy("data1FrontUtilitytestfilerandom.jpg", "c:filesfile.jpg", 1) $DownTimeEnd = TimerDiff($DownTime) $hData1DLS = FileGetSize("c:filesfile.jpg") $hDataKB = $hData1DLS / 1024 $PreRound = $DownTimeEnd / 1000 $DSpeed = Round($PreRound, 2) ;network upload test $UpTime = TimerInit() FileCopy("c:filesfile.jpg", "data1FrontUtilitytestfileuser" & $Ran & ".jpg", 1) $UptTimeEnd = TimerDiff($UpTime) $PreRoundUp = $UptTimeEnd / 1000 $UPSpeed = Round($PreRoundUp, 2) FileDelete("data1FrontUtilitytestfileuser" & $Ran & ".jpg")

Excellent, I did read the help file many times but didn't realize what was actually happening. Thank you!

I'm having some real trouble getting my speed test to work. All I want to do is download/upload a file and time how long it takes. Seems easy but it just isn't working. Am I supposed to release Timerinit()? Do I keep adding to the same variable somehow? That's really what it looks like is happening but I'm pretty new to this. $DownTime = TimerInit() FileCopy("data1FrontUtilitytestfilerandom.jpg","c:testfile.jpg",1) $DownTimeEnd = TimerDiff($DownTime) $PreRound = TimerDiff($DownTimeEnd / 1000) $DSpeed = Round($PreRound,2) $UptTime = TimerInit() FileCopy("c:testfile.jpg","data1FrontUtilitytestfileuser.jpg",1) $UptTimeEnd = Round(TimerDiff($UptTime / 1000),2) ; Is this too many things to do at once?? FileDelete("data1FrontUtilitytestfileuser.jpg") MsgBox(1,"Down " & $DSpeed, "Up " & $UptTimeEnd) I'm really banging my head against the wall on this. I had a different version that also worked ok but certainly better than the upper code did. The upper solution is a much better solution if it would work. 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)

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)

I can only use https with this. Oh well, this will work ok. Thanks for your input on this.

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!

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

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")

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")

Killer... thanks Spiff. I have so much to learn!

Yes that is very inspiring, but I'm confused. How did you know that "Word.Application" is correct? Is there a list of these objects somewhere? This works much better thank you.

Hello again, I'm having some issues with WinWait. What I want to do is make some kind of benchmark where I can time how long programs take to open. It works great with Word(2010) but not with Excel(2010). I've tried this little bit of code to look up the handle using the PID but that doesn't seem to work and I'm wondering if anyone can help me understand how to look this up. Thank you, I'm feeling like I've got a long ways to go but I'm psyched. I'm slightly embarrassed about this bit of code... Local $begin = TimerInit() Run("C:\Program Files (x86)\Microsoft Office\Office14\winword.exe") WinWait("Document1 [Compatibility Mode] - Microsoft Word") $WordCount = Round ( (TimerDiff($begin)/1000) , 2 ) Run("C:\Program Files (x86)\Microsoft Office\Office14\Powerpnt.exe") WinWait("Presentation1 [Compatibility Mode} - Microsoft PowerPoint") $PowerCount = Round ( (TimerDiff($begin)/1000) , 2 ) MsgBox(64,"IS Department Benchmark for Word","Please see the opening time of word." & @CR & $WordCount &"Seconds" & $PowerCount & " seconds")