Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 07/31/2017 in all areas

  1. ProgAndy

    AutoItObject UDF

    The AutoItObject team is proud to announce that the first version of our AutoItObject UDF is complete and ready to use. The project page is located at [currently missing] Please, report bugs and any other issues at our [currently missing], and not here. An overview of all the functions can be found in the online documentation [currently missing] or in the offline .chm documentation file which is included with the [currently missing]. If Origo has problems providing the download, the current version will be mirrored here The UDF requires the current AutoIt version v3.3.4.0! AutoItObject 1.2.8.2.exe AutoItObject 1.2.8.2.zip Please, leave your comments and experiences here. Regards, - trancexx - ProgAndy - monoceres - Kip Our work is published under the Artistic License 2.0 A copy of the FAQ to answer your most urgent questions right away: (can also be found at the online documentation: Some helper-functions: When using the Wrapper, this are some simple methods to get a return value from the resulting array. ; #FUNCTION# ==================================================================================================================== ; Name...........: _AIOResult ; Description ...: Returns the return value of the Call to a WraperObject function ; Syntax.........: _AIOResult(Const $aResult [, $vError=0] ) ; Parameters ....: $aResult - the resulting array ; $vError - [optional] value to be returned if result is no array (default: 0) ; Return values .: Success - Returnvalue ($aResult[0]) ; Failure - $vError, @error set to 1 ; Author ........: Prog@ndy ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........; ; Example .......; ; =============================================================================================================================== Func _AIOResult(Const $aResult, $vError=0) ; Author: Prog@ndy If IsArray($aResult) Then Return $aResult[0] Return SetError(1,0,$vError) EndFunc ; #FUNCTION# ==================================================================================================================== ; Name...........: _AIOParam ; Description ...: Returns the parameter value of the Call to a WraperObject function ; Syntax.........: _AIOParam(Const $aResult, $iParam, $vError=0) ; Parameters ....: $aResult - the resulting array ; $iParam - The parameterindex to return (0: result, 1: first parameter, 2: 2nd parameter, ...) ; $vError - [optional] value to be returned if result is no array (default: 0) ; Return values .: Success - Parameter value ; Failure - $vError, @error set to 1 ; Author ........: Prog@ndy ; Modified.......: ; Remarks .......: ; Related .......: ; Link ..........; ; Example .......; ; =============================================================================================================================== Func _AIOParam(Const $aResult, $iParam, $vError=0) ; Author: Prog@ndy If UBound($aResult)-1 < $iParam Then Return SetError(1,0,$vError) Return SetExtended($aResult[0], $aResult[$iParam]) EndFunc
    1 point
  2. Yes, see https://www.autoitscript.com/autoit3/docs/functions/ObjCreate.htm https://www.autoitscript.com/autoit3/docs/keywords/ForInNext.htm
    1 point
  3. xroot

    Roman (Again)

    Yes, overline characters are covered by Unicode. Here is a little test. global const $dbar = ChrW(0x33F) ;DOUBLE OVERLINE global const $bar = ChrW(0x305) ;OVERLINE Func I_Quit() Exit EndFunc Func To_Roman($iDec) local $roman = "" local $io[25][2] = [[1000000000,"M" & $dbar], _ [500000000,"D" & $dbar], _ [100000000,"C" & $dbar], _ [50000000,"L" & $dbar], _ [10000000,"X" & $dbar], _ [5000000,"V" & $dbar], _ [1000000,"M" & $bar], _ [500000,"D" & $bar], _ [100000,"C" & $bar], _ [50000,"L" & $bar], _ [10000,"X" & $bar], _ [5000,"V" & $bar], _ [1000,"M"], _ [900,"CM"], _ [500,"D"], _ [400,"CD"], _ [100,"C"], _ [90,"XC"], _ [50,"L"], _ [40,"XL"], _ [10,"X"], _ [9,"IX"], _ [5,"V"], _ [4,"IV"], _ [1,"I"]] For $i = 0 To Ubound($io) - 1 While $iDec >= $io[$i][0] $iDec -= $io[$i][0] $roman &= $io[$i][1] WEnd Next Return $roman EndFunc HotKeySet("{ESC}","I_Quit") local $iNumber = 3457898377 SplashTextOn("Roman Numbers For:" & $iNumber,To_Roman($iNumber),@DesktopWidth,60,-1,-1,-1,default,24) While True wEnd
    1 point
  4. I have been following this intently. What I want to know is, how to integrate this into an existing project. Lets say I want to display the convo inside a childGUI of some existing project? Skysnake
    1 point
  5. Skysnake

    Roman (Again)

    Some historical chatter... Do you know why letters I, V and X are used for the lower numbers? It works like this: Start with your left hand, palm out. Raise your little finger (outside finger), this means "1" Add the ring finger, two. Add the middle finger, three. Now, drop little and ring fingers, raise middle finger, index and thumb, four. Drop middle finger, what remains is five. Keep five on the left hand, and add the right thumb, six. Etc Two thumbs crossed means ten.
    1 point
  6. You are seeing the au3check error. When disable au3check and run this script: #AutoIt3Wrapper_Run_Au3Check=n Dim $Array = [1,2,3] $oDictionary = ObjCreate("Scripting.Dictionary") $oDictionary.Add("key", "value") $oDictionary.Item("key") = $Array ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $oDictionary.Item("key")[0] = ' & $oDictionary.Item("key")[0] & @CRLF ) ;### Debug Console ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $oDictionary.Item("key")[1] = ' & $oDictionary.Item("key")[1] & @CRLF ) ;### Debug Console ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $oDictionary.Item("key")[2] = ' & $oDictionary.Item("key")[2] & @CRLF ) ;### Debug Console $oDictionary.Item("key")[0] = 4 I get @@ Debug(6) : $oDictionary.Item("key")[0] = 1 @@ Debug(7) : $oDictionary.Item("key")[1] = 2 @@ Debug(8) : $oDictionary.Item("key")[2] = 3 "D:\Development\AutoIt3\programs\test\test.au3" (9) : ==> Illegal text at the end of statement (one statement per line).: $oDictionary.Item("key")[0] = 4 $oDictionary.Item("key")^ ERROR Does this work in VBS? Jos
    1 point
×
×
  • Create New...