Leaderboard

hmm, just went to https://www.autoitscript.com/wiki/Arrays and see nothing wrong Edit: https://www.autoitscript.com/wiki/AutoIt_Snippets is messed up. @Zvend, thanks for bringing it up

Oh ... that we can do.... as that is merely putting the member into another group. Move done so should work now.

@DevNoob, Please do not cross post your question in multiple places! Your other post is removed. By the way: the same counts for soliciting for an answer by directly PMing members with the same question! Please read our forum rules on how we expect members to act around our forums. Thanks

I just uploaded, in the first post of this topic, a revised version of this player. A lot of improvements were made in maximized and fullscreen mode of video window and in graphical controls overlayed on video window. I also corrected the error in calculation of total and streamed lengths: I found that some files have number of frames instead of milliseconds as the length. I had to forcefully set the timer format to milliseconds before obtaining the length.

Try this : #include <Excel.au3> _movetosheet() Func _movetosheet() Local $oExcel =_Excel_Open() $datawb = _Excel_BookOpen($oExcel,@ScriptDir & "\Test.xls") $datawb.worksheets(1).select $mydata = _Excel_RangeRead($datawb, Default, Default ) For $i = UBound($mydata) - 1 To 1 Step -1 If Number($mydata[$i][3]) = 0 Then _ArrayDelete($mydata, $i) Next _ArrayDisplay($mydata) _Excel_BookClose($datawb) Local $oWorkbook = _Excel_BookNew($oExcel, 1) Local $sWorkbook = @ScriptDir & "\TestOut.xls" _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $mydata, "a1", Default, True) _Excel_BookSaveAs($oWorkbook, $sWorkbook, $xlWorkbookNormal, True) _Excel_BookClose($oWorkbook) _Excel_Close($oExcel) EndFunc ps. no need to put sleep everywhere

Oh no! Please use those >50 years old techniques more! I am always so impressed and surprised when examining/investigate such a piece of "gold" code😇 I played the "original" Sokoban in the 80s, it was fun at all! So thank you so much transferring the idea into AutoIt code!

StretchBlt has since been added to WinAPI, so in "proper" autoit... Func Loupe($aMouse_Pos) Local $iX, $iY _WinAPI_StretchBlt($hMagDC, 0, 0, 100, 100, $hDeskDC, $aMouse_Pos[0] - 5, $aMouse_Pos[1] - 5, 10, 10, $SRCCOPY) ; Original 10 x 10 expanded to 100 x 100 - 10x magnification $mColor = "0x" & Hex(PixelGetColor($aMouse_Pos[0], $aMouse_Pos[1]), 6) ; * <-------------- color converted to hexadecimal GUICtrlSetData($ColorLabel, $mColor) GUICtrlSetBkColor($ColorRec, $mColor) ; Keep Mag GUI on screen If $aMouse_Pos[0] < (@DesktopWidth - 120) Then $iX = $aMouse_Pos[0] + 20 Else $iX = $aMouse_Pos[0] - 120 EndIf If $aMouse_Pos[1] < (@DesktopHeight - 150) Then $iY = $aMouse_Pos[1] + 20 Else $iY = $aMouse_Pos[1] - 120 EndIf WinMove($hMag_GUI, "", $iX, $iY, 100, 100) WinMove($hColor_Win, "", $iX, $iY + 100) EndFunc ;==>Loupe

ListView max. limits: - max 259 Chars display in subitem (Windows' limit) - max 4096 Chars stored in subitem (AutoIt's limit) - max 4096 Chars get from subitem (AutoIt's limit) $text = "ListView max. limits:" & @CRLF & _ " - max 259 Chars display in subitem (Windows' limit)" & @CRLF & _ " - max 4096 Chars stored in subitem (AutoIt's limit)" & @CRLF & _ " - max 4096 Chars get from subitem (AutoIt's limit)" #AutoIt3Wrapper_UseX64=n #include <GUIConstants.au3> #include <GuiListView.au3> $Form1 = GUICreate("ListView max. limits", 400, 400) $ListView1 = GUICtrlCreateListView("#|Value", 2, 2, 396, 296) GUICtrlCreateLabel($text, 20, 308, 376, 90) GUISetState(@SW_SHOW) Add(250, 0) Add(260, 1) Add(270, 2) Add(300, 3) Add(500, 4) Add(1000, 5) Add(2000, 6) Add(4000, 7) Add(4090, 8) Add(4100, 9) _GUICtrlListView_SetColumnWidth($ListView1, 0, 50) _GUICtrlListView_SetColumnWidth($ListView1, 1, 300) While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then Exit WEnd Func Add($n, $i) GUICtrlCreateListViewItem($n & '|' & Generate($n), $ListView1) ConsoleWrite($n & ': ' & _GUICtrlListView_GetItemText($ListView1, $i, 1) & @CRLF) EndFunc Func Generate($len) $s = '1234567890' $ret = '' For $i = 1 To $len/10 $ret &= $s Next Return $ret EndFunc MSDN: https://docs.microsoft.com/en-us/windows/win32/api/commctrl/ns-commctrl-lvitema In AutoIt's GUIListView UDF there is 4096 max. buffer length (for subitem text) hardcoded for all _GUICtrlListView_xxx() functions.

As the code is public you could try to change it on your own. Just add on Keygen.au3 a new include (license.au3 uses this include already): #include <Crypt.au3> And on both, Keygen.au3 and license.au3 add a new function which acts as a wrapper for old _StringEncrypt() function: Func _StringEncrypt($fEncryptDecrypt, $sData, $sPassword) _Crypt_Startup() Local $sResult = "" If $fEncryptDecrypt = 1 Then $sResult = Hex(_Crypt_EncryptData($sData, $sPassword, $CALG_AES_256)) Else $sResult = BinaryToString(_Crypt_DecryptData("0x" & $sData, $sPassword, $CALG_AES_256)) EndIf _Crypt_Shutdown() Return $sResult EndFunc ;==>_StringEncrypt Note 1: The new encryption is not compatible with the encryption used in old _StringEncrypt(). Note 2: I don't use this UDF so I did not test it. Cheers, sahsanu