AutoItObject UDF

[doudou]

Perfect, Origo is playing lunatic again, clicked on "download" and after 3 min of waiting was presented with:

* warning: Invalid argument supplied for foreach() in /var/lib/origo-web/drupal/sites/all/modules/origo_home/origo_releases.inc on line 417.
    * warning: usort() [function.usort]: The argument should be an array in /var/lib/origo-web/drupal/sites/all/modules/origo_home/origo_releases.inc on line 432.
    * warning: array_reverse() [function.array-reverse]: The argument should be an array in /var/lib/origo-web/drupal/sites/all/modules/origo_home/origo_releases.inc on line 442.

[JRowe]

http://www.autoitscript.com/forum/index.php?app=downloads - This might be a more appropriate download location. I'm not sure how exactly it works, but I was able to upload a file that didn't count against my personal attachment quota.

[ProgAndy]

http://www.autoitscript.com/forum/index.php?app=downloads - This might be a more appropriate download location. I'm not sure how exactly it works, but I was able to upload a file that didn't count against my personal attachment quota.

Thanks to the stability of origo, I added our library there, too.

[doudou]

Thanks to the stability of origo, I added our library there, too.

Unfortunately Downloads section doesn't seem to be attended very well: it takes weeks before a submission is approved or rejected.

[trancexx]

Hm.

Btw, I must not forget to say thanks to doudou for acting very inspirational regarding _AutoItObject_DllStructCreate() function.

So, thanks mister

Edited May 5, 2010 by trancexx

[ProgAndy]

Unfortunately Downloads section doesn't seem to be attended very well: it takes weeks before a submission is approved or rejected.

OK. Added another mirror ...

[doudou]

Btw, I must not forget to say thanks to doudou for acting very inspirational regarding _AutoItObject_DllStructCreate() function.

So, thanks mister

Always a pleasure.

I managed to download the release now. One little feature in _AutoItObject_DllStructCreate() is missing - the easy way to get pointer to an element like $aioStruct.GetPtr($element). Shall I add it to the tracker?

[trancexx]

Shall I add it to the tracker?

You shall.

Funny?

[Yoriz]

Thanks for the update, not that i understand all the DLLStruct-Object part off it , but its great to be able to script in a oop like way.

[trancexx]

Thanks for the update, not that i understand all the DLLStruct-Object part off it , but its great to be able to script in a oop like way.

The beauty of it is that you need to know less than with normal DllStruct functions to comprehend more.

For example, classic code would be:

$tStructure = DllStructCreate("wchar String[44]")
DllStructSetData($tStructure, "String", "This is the text to write to the structure.")
$sReadData = DllStructGetData($tStructure, "String")

ConsoleWrite($sReadData & @CRLF)

And with AutoitObject:

$oStructure = _AutoItObject_DllStructCreate("wchar String[44]")
$oStructure.String = "This is the text to write to the structure."
$sReadData = $oStructure.String

ConsoleWrite($sReadData & @CRLF)

That's it.

[JRowe]

Trancexx - That is beautiful. Quite literally. I think it might be worthwhile to start using AutoIt OO with Au3Irrlicht. Thanks guys!

[jaberwacky]

I just wanted to say that I got my first oop script working! I did just shamelessly use oMsgBoxObject.au3 practically as a template though. Anyways, I'm kinda excited, I might celebrate. Five stars!

Okies here's my code so far ... don't know how useful something like this would be but meh, whatever:

expandcollapse popup

#AutoIt3Wrapper_AU3Check_Parameters=-w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -d

#include <AutoItObject.au3>
#include <GUIConstants.au3>

Global $oError = ObjEvent("Autoit.Error", "_myErrFunc")

_AutoItObject_StartUp()

Global $oObject = _GUICreator()

With $oObject
    .GUITitle = "HELLO!"
    .GUI()

    .ButtonText = "Click ME! =D"
    .ButtonTop = 100
    .ButtonLeft = 100
    Global $button = .Button()

    .ButtonText = "Click ME too!! =D"
    .ButtonTop = 150
    .ButtonLeft = 100
    Global $button1 = .Button()
EndWith

GUISetState()

While 1
    Sleep(50)

    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $button
            ToolTip("He's an imposter. I'm the real Dr. Livingston")
            Sleep(200)
        Case $button1
            ToolTip("NAHNAH Fooled you! =P")
            Sleep(200)
    EndSwitch
WEnd

$oObject = 0

Func _GUICreator()
    Local $oClassObject = _AutoItObject_Class()
    $oClassObject.Create()

    $oClassObject.AddMethod("GUI", "_GUI_Create")
    $oClassObject.AddProperty("GUITitle", $ELSCOPE_PUBLIC, "")
    $oClassObject.AddProperty("GUIWidth", $ELSCOPE_PUBLIC, -1)
    $oClassObject.AddProperty("GUIHeight", $ELSCOPE_PUBLIC, -1)
    $oClassObject.AddProperty("GUITop", $ELSCOPE_PUBLIC, -1)
    $oClassObject.AddProperty("GUILeft", $ELSCOPE_PUBLIC, -1)

    $oClassObject.AddMethod("Button", "_GUI_Button")
    $oClassObject.AddProperty("ButtonText", $ELSCOPE_PUBLIC, "")
    $oClassObject.AddProperty("ButtonLeft", $ELSCOPE_PUBLIC, -1)
    $oClassObject.AddProperty("ButtonTop", $ELSCOPE_PUBLIC, -1)
    $oClassObject.AddProperty("ButtonWidth", $ELSCOPE_PUBLIC, -1)
    $oClassObject.AddProperty("ButtonHeight", $ELSCOPE_PUBLIC, -1)

    Return $oClassObject.Object
EndFunc ;==>_GUICreator

Func _GUI_Create($oSelf)
    Local $title = $oSelf.GUITitle
    Local $width = $oSelf.GUIWidth
    Local $height = $oSelf.GUIHeight
    Local $top = $oSelf.GUITop
    Local $left = $oSelf.GUILeft

    GUICreate($title, $width, $height, $left, $top)
EndFunc ;==>_GUI_Create

Func _GUI_Button($oSelf)
    Local $btnText = $oSelf.ButtonText
    Local $btnLeft = $oSelf.ButtonLeft
    Local $btnTop = $oSelf.ButtonTop
    Local $btnWidth = $oSelf.ButtonWidth
    Local $btnHeight = $oSelf.ButtonHeight

    Return GUICtrlCreateButton($btnText, $btnLeft, $btnTop, $btnWidth, $btnHeight)
EndFunc ;==>_GUI_Button

Func _ErrFunc()
    ConsoleWrite("! COM Error ! Number: 0x" & Hex($oError.number, 8) & " ScriptLine: " & $oError.scriptline & " - " & $oError.windescription & @CRLF)
EndFunc ;==>_ErrFunc

Edited May 7, 2010 by jaberwocky6669

[ValeryVal]

You can find the new translation of AutoItObject Help into Russian on:

http://tech.groups.yahoo.com/group/autoitgroup/message/118

[trancexx]

You can find the new translation of AutoItObject Help into Russian on:

http://tech.groups.yahoo.com/group/autoitgroup/message/118

Ok, thank you Valery. I've updated the translations page.

[MvGulik]

whatever Edited February 7, 2011 by MvGulik

[ProgAndy]

ps: Why it this not working. Just wondering what I'm missing. (not fermiliar with (AutoIt) Com objects)

$self.propertie += 1

This is an AutoIt-limitation we cannot overcome, it is not implemented in the interpreter.

[MvGulik]

whatever Edited February 7, 2011 by MvGulik

[James]

ps: Why it this not working. Just wondering what I'm missing. (not fermiliar with (AutoIt) Com objects)

$self.propertie += 1

This is an AutoIt-limitation we cannot overcome, it is not implemented in the interpreter.

So does this mean that you'd have to do:

$self.propertie = $self.propertie + 1

?

James

[Kip]

So does this mean that you'd have to do:

$self.propertie = $self.propertie + 1

?

James

Yes.

[ProgAndy]

@MvGulik:

to question 1: Both create the same oObject.

to number 2: the parent must always be an object. The properties and functions of this object will be copied to the new one.

Edit: Personally, i don't need _AutoItObject_Class since it does only wrap _AutoItObject_Create and all _AutoItObject_Add... in object-style.

Edited June 30, 2010 by ProgAndy