Search the Community

Dear members of the forum, I'm working on a project in which I have to use Image recognition technique. Due to client restrictions, I couldn't use AutoIt for this project. Is there a way to use this DLL "ImageSearchDLL.dll" (which is used to do image recognition steps in AutoIt) in VB.Net to achieve the same result? I have used this DLL few years before and got good results. If there is a latest version of this DLL and if you can share it, that will be helpful too. Any guidance is deeply appreciated.

This is a repost from http://www.d3scene.com/forum/development/82572-tutorial-use-autoit-vb-net.html that I came across today. I don't think it is cross posted here already doing a search for .NET related stuff here. Please move to appropriate forum if posted to wrong one (e.g. ActiveX/COM Help and Support (AutoItX) or General Help and Support). If already duplicated here, please delete. Thought it deserves a copy here w/o having users to register over at the source forum to see it. I've yet to personally try the example though, plan to soon. Perhaps a good idea to later on provide the C# version of code snippet for comparison purposes. Original post info modified for clarity: Imports AutoItX3Lib Public Class MainForm Dim AutoitCommand As New AutoItX3 Private Sub StartButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StartButton.Click AutoitCommand.Run("notepad.exe") AutoitCommand.WinWait("Untitled - Notepad") AutoitCommand.Send("This text sent to notepad by autoit functions{ENTER}Have Fun") AutoitCommand.Sleep(1000) AutoitCommand.WinKill("Untitled - Notepad") End End Sub End Class AutoItX3_x86.rar AutoItX3_x64.rar

Hi all, I need to use an autoit function named "_Word_DocRangeSet" in vb.net. Is it possible. I do know about the AutoItServer.au3 file by AutoItObject Team. So i am searching for another methods.

Hi all, Is it possible to use any autoit UDF in VB.NET ? If so, how ?.

Here is my vb .net code. This works from a console application, however this is not working while being called from an AutoIt script using DLLCall. Can someone tell me what I am doing wrong? Console Application: Module Module1 Sub Main() Dim strEncrypt As String = Decide("Encrypt", "Hello") Console.WriteLine("The encrypted value is: " & strEncrypt) Console.ReadLine() Dim strDecrypt As String = Decide("Decrypt", strEncrypt) Console.WriteLine("The decrypted value is: " & strDecrypt) Console.ReadLine() End Sub End Module VB.NET DLL Code Imports System.IO Imports System.Text Imports System.Security.Cryptography Public Class Crypto Private Shared DES As New TripleDESCryptoServiceProvider Private Shared MD5 As New MD5CryptoServiceProvider Private Shared Function MD5Hash(ByVal value As String) As Byte() Return MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(value)) End Function Private Shared Function Encrypt(ByVal stringToEncrypt As String, ByVal key As String) As String DES.Key = Crypto.MD5Hash(key) DES.Mode = CipherMode.ECB Dim Buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(stringToEncrypt) Return Convert.ToBase64String(DES.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length)) End Function Private Shared Function Decrypt(ByVal encryptedString As String, ByVal key As String) As String Try DES.Key = Crypto.MD5Hash(key) DES.Mode = CipherMode.ECB Dim Buffer As Byte() = Convert.FromBase64String(encryptedString) Return ASCIIEncoding.ASCII.GetString(DES.CreateDecryptor().TransformFinalBlock(Buffer, 0, Buffer.Length)) Catch ex As Exception 'MessageBox.Show("Invalid Key", "Decryption Failed", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) 'Console.WriteLine("Invalid Key - Decryption Failed") Return "ERROR" End Try End Function Public Shared Function Decide(ByVal strEncryptOrDecrypt As String, ByVal strParameter As String) As String Dim EncryptionKey As String = "Decryption String Goes Here!" If strEncryptOrDecrypt = "Encrypt" Then Dim strEncrypted As String = Crypto.Encrypt(strParameter, EncryptionKey) Return strEncrypted ElseIf strEncryptOrDecrypt = "Decrypt" Then Dim strDecrypted As String = Crypto.Decrypt(strParameter, EncryptionKey) Return strDecrypted Else Return "ERROR" End If End Function End Class AutoIt code: $myDll = @ScriptDir & "\Encryption.dll" $result = DllCall($myDll, "str", "Decide", "str", "Encrypt", "str", "Happy") MsgBox(0,"@Error", @error)