Scripting Web Site to test performance - noobie question

[fbreves]

Hi People,

I've been given a rather unusual task (at least for me). One of my customers has and educational game web site and they closed a deal with one school that will have around 200 students using the site. My task is to create a script that can simulate the action of a kid building a scenario, creating a game and playing a game. They want to know if their current server can handle the peaks. Although I noticed that autoit is not a load test tool, I am sure Autoit can accomplish the task I need.

I could create a script that is able to login, and open the Game Editor successfully but when it comes to the MouseClick function it does not work within the same script. I had to create a second script for that to work. So right now what I am doing is running the Login script, once I get to the editor I jump to the second script and run it and this works fine. I am puzzled by why I can't make all work within one single script. I am pretty sure that I am doing something dumb as I am not a skilled developer.

I hope you guys can give me a push on that. Here is the code I am using for the Main script.

expandcollapse popup

#include <AutoItConstants.au3>
#include <IE.au3>

Global $sURL = "https://www.somesite.com"
Global $oIE = _IECreate($sURL, 0, 0, 0)
Global $HWND = _IEPropertyGet($oIE, "hwnd")
WinSetState($HWND, "", @SW_MAXIMIZE)
_IEAction($oIE, "visible")
_IELoadWait($oIE)

Func SignInCrtScene ()

Local $username = _IEGetObjByName ($oIE, "usuario")
Local $password = _IEGetObjByName ($oIE, "usuario[password]")
Local $bntCrtScn = _IEGetObjById ($oIE,"create-scenario-btn")

Local $oButtons = _IETagNameGetCollection ($oIE, "button")

For $oButton in $oButtons

    If $oButton.type = "button" Then
       _IEAction($oButton, "click")
       _IEAction($username, "focus")
       ControlSend($HWND, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")
       _IEFormElementSetValue ($username,"XYZ")
       _IEFormElementSetValue ($password,"XYZ")
       Sleep(1000)
       _IEAction($bntCrtScn, "click")

    EndIf



Next

EndFunc



Func Main ()
    Call ("SignInCrtScene")
EndFunc



Call ("Main")

After the above one runs I jump to the second one.

WinActivate("site title")
MouseClick("left",481,642)
Sleep(4000)
MouseClick("left",663,717)
Sleep(4000)
MouseClick("left",979,367)
Sleep(4000)
MouseClick("left",768,733)
Sleep(2000)
MouseClick("left",754,472)

This way it works.

But if I try to put the above code within the first script it doesn't even move the mouse. The only way I can see the mosue moving is when I put this code inside the IF statement but it doesn't do the move and clicking at the right time. I am stuck here. I tried creating a Function for that and calling it but it won't work. Also tried putting after calling the signInCrtScn function but also no luck.

Edited October 21, 2015 by Melba23
Added code tags

[JohnOne]

expandcollapse popup

#include <AutoItConstants.au3>
#include <IE.au3>

Global $sURL = "https://www.somesite.com"
Global $oIE = _IECreate($sURL, 0, 0, 0)
Global $HWND = _IEPropertyGet($oIE, "hwnd")
WinSetState($HWND, "", @SW_MAXIMIZE)
_IEAction($oIE, "visible")
_IELoadWait($oIE)

SignInCrtScene()
_Func()

Func SignInCrtScene ()

Local $username = _IEGetObjByName ($oIE, "usuario")
Local $password = _IEGetObjByName ($oIE, "usuario[password]")
Local $bntCrtScn = _IEGetObjById ($oIE,"create-scenario-btn")

Local $oButtons = _IETagNameGetCollection ($oIE, "button")

For $oButton in $oButtons

    If $oButton.type = "button" Then
       _IEAction($oButton, "click")
       _IEAction($username, "focus")
       ControlSend($HWND, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")
       _IEFormElementSetValue ($username,"XYZ")
       _IEFormElementSetValue ($password,"XYZ")
       Sleep(1000)
       _IEAction($bntCrtScn, "click")

    EndIf



Next

EndFunc

Func _Func()

WinActivate("site title")
MouseClick("left",481,642)
Sleep(4000)
MouseClick("left",663,717)
Sleep(4000)
MouseClick("left",979,367)
Sleep(4000)
MouseClick("left",768,733)
Sleep(2000)
MouseClick("left",754,472)
EndFunc

 

Edited October 21, 2015 by JohnOne

[Melba23]

fbreves,

I am searching for ways not to have to lock this thread - can you give me the name of this "educational game" site (PM me if you do not want to post it on open forum).

M23

[fbreves]

fbreves,

I am searching for ways not to have to lock this thread - can you give me the name of this "educational game" site (PM me if you do not want to post it on open forum).

M23

Just sent a PM.

 

Thanks

[Melba23]

fbreves,

Thanks for furnishing the information - I am satisfied and happy for people to help.

M23

[fbreves]

Thank you M23. Really appreciate.

[fbreves]

Hi JohnOne,

Just tried your code and some variation of it and the results are the same. It ignores the second funtion (_Func).

 

Thanks

[JLogan3o13]

So let's add some error checking and break it down. How far does it get through the first function? Try something like this:

Local $username = _IEGetObjByName ($oIE, "usuario")
    If @error Then ConsoleWrite("Username: " & @error & @CRLF)
Local $password = _IEGetObjByName ($oIE, "usuario[password]")
    If @error Then ConsoleWrite("Password: " & @error & @CRLF)
Local $bntCrtScn = _IEGetObjById ($oIE,"create-scenario-btn")
    If @error Then ConsoleWrite("btnCrtScn: " & @error & @CRLF)
Local $oButtons = _IETagNameGetCollection ($oIE, "button")
    If @error Then ConsoleWrite("Button Collection: " & @error & @CRLF)

 

[mLipok]

IE and Error Checking .. sure - look here:

 

[JohnOne]

Hi JohnOne,

Just tried your code and some variation of it and the results are the same. It ignores the second funtion (_Func).

 

Thanks

Does the window activate?

What sort of widow is it?

Do you need to wait for a page to load?

Does the script finish or does it hang?

[mLipok]

expandcollapse popup

#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister(_User_ErrFunc)

Global $sURL = "https://www.somesite.com"
Global $oIE = _IECreate($sURL, 0, 0, 0)
Global $HWND = _IEPropertyGet($oIE, "hwnd")
WinSetState($HWND, "", @SW_MAXIMIZE)
_IEAction($oIE, "visible")
_IELoadWait($oIE)

SignInCrtScene()
MsgBox($MB_ICONINFORMATION, 'TEST', 1)
_Func()

Func SignInCrtScene()
    Local $username = _IEGetObjByName($oIE, "usuario")
    Local $password = _IEGetObjByName($oIE, "usuario[password]")
    Local $bntCrtScn = _IEGetObjById($oIE, "create-scenario-btn")
    Local $oButtons = _IETagNameGetCollection($oIE, "button")

    For $oButton In $oButtons
        If $oButton.type = "button" Then
            _IEAction($oButton, "click")
            _IEAction($username, "focus")
            ControlSend($HWND, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")
            _IEFormElementSetValue($username, "XYZ")
            _IEFormElementSetValue($password, "XYZ")
            Sleep(1000)
            _IEAction($bntCrtScn, "click")
        EndIf
    Next

EndFunc   ;==>SignInCrtScene

Func _Func()
    WinActivate("site title")
    MouseClick("left", 481, 642)
    Sleep(4000)
    MouseClick("left", 663, 717)
    Sleep(4000)
    MouseClick("left", 979, 367)
    Sleep(4000)
    MouseClick("left", 768, 733)
    Sleep(2000)
    MouseClick("left", 754, 472)
EndFunc   ;==>_Func

; User's COM error function.
; After SetUp with ObjEvent("AutoIt.Error", ....) will be called if COM error occurs
Func _User_ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptFullPath & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_User_ErrFunc

 

Do you see this MsgBox

MsgBox($MB_ICONINFORMATION, 'TEST', 1)

 

Why you use this:

ControlSend($HWND, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")

 

 

[jdelaney]

First off, do you have 200 VMs or stations to run these scripts on?  They will probably be single instances on a given box/vm.  AutoIT isn't the best candidate for a stress test.  If you wanted to do a smoke test/sanity test/regression test, then it's perfect for it.  We do that at my company...coordinated scripts running on 3 flavors of our software, on 4 diff operating systems.

Most load testing software doesn't physically manipulate a gui.  They just send commands at the COM to pretend that they are doing a given action.  So it's easy for one VM to spoof a ton of calls to exercise as if multiple users.  They also record response times, and can check on the stats of the servers to paint a picture.  That is more important than just clicking on a button with an autoit script.

Edited October 22, 2015 by jdelaney

[fbreves]

expandcollapse popup

#include <AutoItConstants.au3>
#include <MsgBoxConstants.au3>
#include <IE.au3>

_IEErrorHandlerRegister(_User_ErrFunc)

Global $sURL = "https://www.somesite.com"
Global $oIE = _IECreate($sURL, 0, 0, 0)
Global $HWND = _IEPropertyGet($oIE, "hwnd")
WinSetState($HWND, "", @SW_MAXIMIZE)
_IEAction($oIE, "visible")
_IELoadWait($oIE)

SignInCrtScene()
MsgBox($MB_ICONINFORMATION, 'TEST', 1)
_Func()

Func SignInCrtScene()
    Local $username = _IEGetObjByName($oIE, "usuario")
    Local $password = _IEGetObjByName($oIE, "usuario[password]")
    Local $bntCrtScn = _IEGetObjById($oIE, "create-scenario-btn")
    Local $oButtons = _IETagNameGetCollection($oIE, "button")

    For $oButton In $oButtons
        If $oButton.type = "button" Then
            _IEAction($oButton, "click")
            _IEAction($username, "focus")
            ControlSend($HWND, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")
            _IEFormElementSetValue($username, "XYZ")
            _IEFormElementSetValue($password, "XYZ")
            Sleep(1000)
            _IEAction($bntCrtScn, "click")
        EndIf
    Next

EndFunc   ;==>SignInCrtScene

Func _Func()
    WinActivate("site title")
    MouseClick("left", 481, 642)
    Sleep(4000)
    MouseClick("left", 663, 717)
    Sleep(4000)
    MouseClick("left", 979, 367)
    Sleep(4000)
    MouseClick("left", 768, 733)
    Sleep(2000)
    MouseClick("left", 754, 472)
EndFunc   ;==>_Func

; User's COM error function.
; After SetUp with ObjEvent("AutoIt.Error", ....) will be called if COM error occurs
Func _User_ErrFunc($oError)
    ; Do anything here.
    ConsoleWrite(@ScriptFullPath & " (" & $oError.scriptline & ") : ==> COM Error intercepted !" & @CRLF & _
            @TAB & "err.number is: " & @TAB & @TAB & "0x" & Hex($oError.number) & @CRLF & _
            @TAB & "err.windescription:" & @TAB & $oError.windescription & @CRLF & _
            @TAB & "err.description is: " & @TAB & $oError.description & @CRLF & _
            @TAB & "err.source is: " & @TAB & @TAB & $oError.source & @CRLF & _
            @TAB & "err.helpfile is: " & @TAB & $oError.helpfile & @CRLF & _
            @TAB & "err.helpcontext is: " & @TAB & $oError.helpcontext & @CRLF & _
            @TAB & "err.lastdllerror is: " & @TAB & $oError.lastdllerror & @CRLF & _
            @TAB & "err.scriptline is: " & @TAB & $oError.scriptline & @CRLF & _
            @TAB & "err.retcode is: " & @TAB & "0x" & Hex($oError.retcode) & @CRLF & @CRLF)
EndFunc   ;==>_User_ErrFunc

 

Do you see this MsgBox

MsgBox($MB_ICONINFORMATION, 'TEST', 1)

Yes, I can see it. 

 

Why you use this:

ControlSend($HWND, "", "[CLASS:Internet Explorer_Server; INSTANCE:1]", "{Enter}")

The login window is like a popup window. This was the only way I could get the focus on that window to perform the login. I will try to remove that and see what happens,

You code worked fine. But I don't understand Why mine wasn't working. The only big difference I see is the error handling part. Am I missing something ?

 

 

[fbreves]

First off, do you have 200 VMs or stations to run these scripts on?  They will probably be single instances on a given box/vm.  AutoIT isn't the best candidate for a stress test.  If you wanted to do a smoke test/sanity test/regression test, then it's perfect for it.  We do that at my company...coordinated scripts running on 3 flavors of our software, on 4 diff operating systems.

Most load testing software doesn't physically manipulate a gui.  They just send commands at the COM to pretend that they are doing a given action.  So it's easy for one VM to spoof a ton of calls to exercise as if multiple users.  They also record response times, and can check on the stats of the servers to paint a picture.  That is more important than just clicking on a button with an autoit script.

Hi jdelaney,

I see your point. But my issue is that the portion of the site that needs to be tested runs on the client through Unity3D plugin and it is visual. I have been looking around for tools that could do exactly what you just said but it seems to me that tools Like Jmeter would not be able to simulate that. I might be mistaken, of course and would really glad to be pointed on the right direction.

many thanks.

[mLipok]

You code worked fine. But I don't understand Why mine wasn't working. The only big difference I see is the error handling part. Am I missing something ?

comment this line

MsgBox($MB_ICONINFORMATION, 'TEST', 1)

Do this still works ?

 

[fbreves]

comment this line

MsgBox($MB_ICONINFORMATION, 'TEST', 1)

Do this still works ?

 

Yes,,, I did that. it worked perfectly.

 

Thanks

[mLipok]

and If you comment also this:

_IEErrorHandlerRegister(_User_ErrFunc)

Do this still works correctly ?

 

[fbreves]

and If you comment also this:

_IEErrorHandlerRegister(_User_ErrFunc)

Do this still works correctly ?

 

No, it doesn't... The Error handler did the trick. :-)

[fbreves]

IE and Error Checking .. sure - look here:

Thanks, I will check this.

[mLipok]

No, it doesn't... The Error handler did the trick. :-)

You or I do not understand this.

So.
What error is showed in the SciTE output console ?