Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 02/11/2022 in all areas

  1. Hi @gogloc, try this 😉 : Global $sFilePath = @DesktopDir & '\test.txt' Global $pwd = '' Global $digits = 15 Dim $aSpace[3] For $i = 1 To $digits $aSpace[0] = Chr(Random(65, 90, 1)) ; A-Z $aSpace[1] = Chr(Random(97, 122, 1)) ; a-z $aSpace[2] = Chr(Random(48, 57, 1)) ; 0-9 $pwd &= $aSpace[Random(0, 2, 1)] Next Run(@ComSpec & ' /K "echo Random Password !!!!!!!!!!!!!!!!!!! ("' & $digits & '" digits): "' & $pwd & '" > "' & $sFilePath & '"', '', @SW_SHOW) But why do you want to make it through the command line, when you're redirecting the output to a file anyway? You can write directly to an file without @ComSpec. Best regards Sven ________________ Stay innovative!
    1 point
  2. Latest update just released. See below for change log.
    1 point
  3. Hi @Danyfirex, I tried a bit with your fantastic UDF and wanted to use the angle. But it seems not to work. I only get values like this: '1.37102911403396e-311' I have no clue, what is going wrong, but I saw this can be a nullable double value. I don't know how to handle this. Maybe this is not a problem as yo declare $iAngle to 0, and if TextAngle is called with null in angle then it will not be assigned. BTW: To keep the angle in @extended your wrapper functions should look like this: Func _UWPOCR_GetText($sImageFilePathOrhBitmap, $sLanguageTagToUse = Default, $bUseOcrLine = False) Local $oErrorHandler = ObjEvent("AutoIt.Error", __UWPOCR_ErrorHandler) #forceref $oErrorHandler _UWPOCR_Log("_UWPOCR_GetText") Local $sRes = __UWPOCR_GetText($sImageFilePathOrhBitmap, $sLanguageTagToUse, $bUseOcrLine) Return SetError(@error, @extended, $sRes) EndFunc ;==>_UWPOCR_GetText Func _UWPOCR_GetWordsRectTo2DArray($sImageFilePathOrhBitmap, $sLanguageTagToUse = Default) Local $oErrorHandler = ObjEvent("AutoIt.Error", "__UWPOCR_ErrorHandler") _UWPOCR_Log("_UWPOCR_GetWordsRectTo2DArray") #forceref $oErrorHandler Local $aRes = __UWPOCR_GetText($sImageFilePathOrhBitmap, $sLanguageTagToUse, False, True) Return SetError(@error, @extended, $aRes) EndFunc ;==>_UWPOCR_GetWordsRectTo2DArray Edit: Forgot to say that @extended only can hold Int32 values, so you loose precision, when using it for the angle.
    1 point
  4. First try to implement this example into your script. and see what works for you ; at the top of your script set an array size that will match the number of controls you want to read Global $ARR[10] ; gui and controls creation .etc For $i = 1 To UBound($ARR) - 1 $ARR[$i] = GUICtrlRead(Eval("e_Edit" & $i)) Next _arraydisplay($ARR) Or otherwise use\run your controls straight from an array where you read the controls from $agui[$i][0] that keeps a control's id in example 1 till 4 #include <File.au3> #include <GuiEdit.au3> $hGui = GUICreate("Sqlite GUI test", 1150, 650, -1, -1) Local $VGui = '' _ & 'Ctrl|Placement|GUICtrlCreate|Name|' _ & @CRLF & 'id|, 130, 5, 500, 200|Edit|' _ & @CRLF & 'id|, 640, 5, 500, 200|Edit|' _ & @CRLF & 'id|, 130, 200, 500, 200|Edit|' _ & @CRLF & 'id|, 640, 200, 500, 200|Edit|' _ & @CRLF & 'id|, 131, 616, 75, 25|Button|Add' _ & @CRLF & 'id|, 208, 616, 75, 25|Button|Delete' _ & @CRLF & 'id|, 208, 616, 75, 25|Button|Delete2' _ & @CRLF & 'id|, 5, 5, 120, 30|Button|Mostra 1' _ & @CRLF & 'id|, 5, 45, 120, 30|Button|Mostra 2' Local $aGui[0][5] _ArrayAdd($aGui, $VGui) For $i = 1 To UBound($aGui) - 1 $aGui[$i][0] = Execute("GUICtrlCreate" & $aGui[$i][2] & '("' & ($aGui[$i][3] ? $aGui[$i][3] & '"' : '"') & $aGui[$i][1] & ")") Next For $i = 1 To 4 _GUICtrlEdit_SetText($aGui[$i][0], "test" & $i) Next GUISetState(@SW_SHOW) For $i = 1 To 4 $aGui[$i][4] = GUICtrlRead($aGui[$i][0]) Next _ArrayDisplay($aGui)
    1 point
×
×
  • Create New...