Improving a 'POST' function

[Hasher]

Hi

Below is a fucntion I have been working on , It works fine but I am wondering if I can make it faster

Func posting($i,$end,$LandmarkID)
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc") 
Do
$sTestUrl = "http://www.test.com/data.php?action=senddata"
$PostData = "landmark=" & $LandmarkID 
$ResolveTimeout = 5000
$ConnectTimeout = 5000
$SendTimeout = 5000
$ReceiveTimeout = 5000
$oHttpRequest = ObjCreate("MSXML2.ServerXMLHTTP")

$oHttpRequest.Open ("POST", $sTestUrl)
$oHttpRequest.setRequestHeader  ("Content-Type", "application/x-www-form-urlencoded")
$oHttpRequest.setRequestHeader  ("Connection", "Keep-Alive")
$oHttpRequest.Send ($PostData)
if @error then ExitLoop
$oHttpRequest = ""
    $i = $i + 1
Until $i = $end
EndFunc 

Func MyErrFunc() 
     SetError(1) ; something to check for when this function returns 
Endfunc
oÝ÷ Ø-êÞk²¶)z{ayÊ'ç-ÚÛaz}ý±éÝßٮةºW­g¬mçè­ç%¢È§Ø^rçyËb¢t¨ëax%G­+ºÚ"µÍÜ   ÌÍÚÈHHÈLÝBÌÍÛÒ]YÝÙ[
    ÌÍÔÜÝ]JBÛY
L
B

Unfortunatley this is not working Any help or suggestions would be apprecaited

[Uten]

Yes, you can probably do it faster.

But, why would you like to send the same data 1000 times to the same server?

[DaleHohm]

You probably want to cheek the readyState property...

Dale

[Hasher]

Thanks for your reply Uten ....I only put 1000 in the example to make a point

Dale thanks for your reply , the best I could come up with is :

Func posting($i,$end,$LandmarkID)
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc") 
Do
$sTestUrl = "http://www.test.com/data.php?action=senddata"
$PostData = "landmark=" & $LandmarkID 
$ResolveTimeout = 5000
$ConnectTimeout = 5000
$SendTimeout = 5000
$ReceiveTimeout = 5000
$oHttpRequest = ObjCreate("MSXML2.ServerXMLHTTP")

$oHttpRequest.Open ("POST", $sTestUrl)
$oHttpRequest.setRequestHeader  ("Content-Type", "application/x-www-form-urlencoded")
$oHttpRequest.setRequestHeader  ("Connection", "Keep-Alive")
$oHttpRequest.Send ($PostData)
$k = 0

While  $oHttpRequest.readyState  =  4
    $oHttpRequest.Send ($PostData) 
    $oHttpRequest.waitForResponse(9000)
    $k = $k + 1
    if $k = 1000 then ExitLoop
    Wend
$oHttpRequest = ""
EndFunc

Unfortunatly this still doesnt work without a ".open" which is the most time consuming and heavy use on the server and program. The loop is working but send isnt sending. Also is there anyway I can watch output , Fiddler is not catching it

Any futher pointers anyone can give me ?

[Uten]

Could you try to explain what you want to archive. As far as I understand your code is sending the same form (POST) back to the server a 1000 times. And that does not make sense. In my eyes it looks like a brute force DOS attack?

[Hasher]

Basically this script takes the hourly colated info in a geological database which is held in a excel data sheet and posts the tally in the company server, normaly its about 300 posts ......that takes about 3 -4 minutes but sometimes its higher or lower depending on the office workload. Overall its part of a larger script that logs statical data to the companys intranet . Unfortunatly I dont have access to the intranet source otherwise I could change it to a whole number rather than post after post.

As for the worth of this script so far my workload has been cut to about 2 hours daily......which I plan to improve on ;-)

No I am not doing a DOS attack on anything and if this thread offends anyone we can close it right here.

Hope that answers your question...... on another note I rewrote this function in delphi with threads and it was actually slower than Autoit......could be my crap coding thou ;-)

[Uten]

A very good explanation, thank you..

I hope you have an appropriate test server so you don't corrupt.

Sounds like there is a serverside or bandwidth limitation. But on the other hand if you do 300 posts in 4 minutes that is a little less than a second on each post. Not very fast, but not to bad either.

Do you have an appropriate test setup? I guess testing against the production server ain't popular. At least the error message from www.test.com suggests that people use another domain..

I will PM you a few suggestions a bit later (abusers can go other places to get their code), but don't expect much.

[Hasher]

Its www.test.com as my companys intranet is not public , we have a testing database which takes a hammering ....mainly from me . Our Inet is crap in Australia ....really an embrassment, we also are in a remote office and our speeds are restricted to 256k :-(

[Uten]

My point with www.test.com is that someone actually owns that domain. So maybe use www.test.local in posted code. People tend to just uncritical copy/paste and run scripts to do a test. You can even find scripts doing this automatically.

Being a testdb must be a shitty life..

[nfwu]

Maybe having two scripts running, one script doing even numbers, the other odd numbers?

This depends on your bandwidth though.

#)

[Hasher]

Needless to say I love Uten and autoit