Leaderboard

Last updated 9/10/21 * Image may not represent current product Features Simple Integrated countermeasures against file and memory analysis based decompilers. Add basic types of resources into the interpreter or other types as raw data. Define multiple programs to execute pre and post build. Create and include pe version information. User defined patches that can be implemented globally on the interpreter and compiler or selectively. Handles its own basic macro's as well as environment variables in most fields for easier path finding. Drag and drop configs (script bound or separate) to the input edit box or to the icon to load them. Configuration settings can be copied to the clipboard or saved as config files or Au3 scripts. Settings can now be saved directly to an AutoIt3 script. Subsystem independant, can act as a gui or console tool. And much more. See next post for update information. A3C_97.16b.7z A3C_98_18_b.zip

We just upgraded our MySql servers and they now required SSL connections. Took me a couple days to dig out all the info I needed to make it work so I thought it may be useful for other people. I have added a new function, _EzmySql_SetOptions, and updated the DLLs to support SSL connections. For my servers, these are the options I needed to set before opening the connection to the database. If Not _EzMySql_Startup() Then MsgBox(262144, "Error Starting MySql", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg()) Exit EndIf If Not _EzMySql_SetOption($MYSQL_ENABLE_CLEARTEXT_PLUGIN, 1) Then MsgBox(262144, "Error setting Option", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg()) Exit EndIf If Not _EzMySql_SetOption($MYSQL_OPT_SSL_CA, $pathToCA) Then MsgBox(262144, "Error setting Option", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg()) Exit EndIf If Not _EzMySql_SetOption($MYSQL_OPT_SSL_CERT, $pathToCert) Then MsgBox(262144, "Error setting Option", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg()) Exit EndIf If Not _EzMySql_SetOption($MYSQL_OPT_SSL_KEY, $pathToKey) Then MsgBox(262144, "Error setting Option", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg()) Exit EndIf If Not _EzMySql_Open($dbip, $dbuser, $dbpw, "", $dbport) Then MsgBox(262144, "Error opening Database", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg()) Exit EndIf EZmySql.zip

My guess would be that this is a "tongue in cheek" way of asking whether it now also works for you.

so I put this together: and is ignored. I'm about to feel offended. Is a big forum

You can use _Excel_RangeFind to find all instances, basic example: #include <Array.au3> #include <Excel.au3> Local $aSentence[3] = ["I'd like this sentence to be red", "I'd like this sentence to be black", "I'd like this sentence to be red again"] Local $oExcel = _Excel_Open() Local $oWorkbook = _Excel_BookNew($oExcel) ;~ Begin Creating Dummy Data for Example For $i = 2 To 15 Step 2 _Excel_RangeWrite($oWorkbook, 1, "Some dummy data" & @LF & "More dummy data" & @LF & "End dummy data.", _Excel_ColumnToLetter($i-1) & Floor(Random(1,4))) _Excel_RangeWrite($oWorkbook, 1, $aSentence[0] & @LF & $aSentence[1] & @LF & $aSentence[2], _Excel_ColumnToLetter($i) & Floor(Random(1,4))) Next ;~ End Creating Dummy Data ;~ Find all text items named "I'd like this sentence to be red" Local $aFindAll = _Excel_RangeFind($oWorkbook, $aSentence[0]) If @error Then Exit MsgBox(4096, "Search Error", '"' & $aSentence[0] & '" not found.') ;~ Loop through the search results and change the color text For $i = 0 To UBound($aFindAll) - 1 Local $oCell = $oWorkbook.Worksheets(1).Range($aFindAll[$i][2]) ;~ $oCell.Characters(Start Character Index, Number of Characters from Start Character Index) $oCell.Characters(1,Stringlen($aSentence[0]) + 1).Font.Color = -16776961 $oCell.Characters(StringLen($aSentence[0] & @LF),Stringlen($aSentence[1]) + 1).Font.Color = 0x000000 $oCell.Characters(StringLen($aSentence[0] & @LF & $aSentence[1] & @LF),Stringlen($aSentence[2]) + 1).Font.Color = -16776961 Next

Here is more general example showing working with ADO directly without any includes: ; https://www.w3schools.com/asp/ado_intro.asp $objErr = ObjEvent("AutoIt.Error","MyErrFunc") $sServer = 'server1' $sDatabase = 'master' $sUID = 'admin' $sPWD = 'pwd' $DSN = 'DRIVER={SQL Server};SERVER=' & $sServer & ';DATABASE=' & $sDatabase & ';UID=' & $sUID &';PWD=' & $sPWD & ';' $oConn = ObjCreate ("ADODB.Connection") $oConn.ConnectionTimeout = 3 ; default is 15 s (must be supported by data provider DSN) $oConn.Open($DSN) If @error Then Exit ; simple select returns 1 value (1 column and 1 row: count() max() TOP 1) $value = $oConn.Execute('select max(col1) from admin.table').Fields(0).Value ConsoleWrite($value & @CRLF) ; simple SQL command INSERT/UPDATE/DELETE without return value $oConn.Execute('update admin.table set col1 = value where key = id') ; general SELECT returns more columns/rows $oRS = ObjCreate ("ADODB.Recordset") $oRS.CursorType = 2 $oRS.LockType = 3 $oRS.Open ('select * from admin.table', $oConn) If @error Then Exit If $oRS.RecordCount Then ; -1 While Not $oRS.EOF $value = $oRS.Fields(0).Value & ' | ' & $oRS.Fields(1).Value ; read only first and second column ConsoleWrite($value & @CRLF) $oRS.MoveNext WEnd EndIf ; execute stored procedure, doesn't support input params and result set Local $rowcount $oConn.Execute('admin.sp_my_procedure', $rowcount, 132) ; adCmdStoredProc=4 + adExecuteNoRecords=0x80 (128) $oRS.Close $oConn.Close MsgBox(64, 'OK', 'Finished') Func MyErrFunc() MsgBox(48, 'COM Error', $objErr.description) SetError(1) EndFunc

Hello, mLipok! Currently we show an open support ticket #19426 for the “off by one error” you were encountering. We believe this has been remediated, but we have not received confirmation from you regarding this matter. As is our policy, we close all tickets without activity for 24 hours. If this situation reoccurs, or you have any other difficulties, please feel free to open a new case. Thank You!