Schaffe es nicht C++ DLL unter .Net zunutzen :(

  • VB.NET

Es gibt 18 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Schaffe es nicht C++ DLL unter .Net zunutzen :(

    Hallo,

    Ich versuche jetzt schon länger die ImageSearchDLL.dll in .Net zunutzen aber leider scheitere ich.

    autohotkey.com/docs/commands/ImageSearch.htm

    Mein Code:

    VB.NET-Quellcode

    1. Public Declare Function ImageSearch Lib "ImageSearchDLL.dll" (ByVal OutputVarX As Integer, ByVal OutputVarY As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, ByVal ImageFile As String) As String


    Ne Exception taucht leider nicht auf nur steht im "Direktfenster" immer:

    Quellcode

    1. Eine Ausnahme (erste Chance) des Typs "System.AccessViolationException" ist in WindowsApplication1.exe aufgetreten.


    Hoffe jemand kann mir Helfen :I

    MFG.

    vbler.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „vbler“ ()

    Du kannst keinen .NET-String so an eine C++-DLL übergeben.
    Da fehlt so was wie <MarshalAs(UnmanagedType.LPStr)> .

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Public Class Form1
    3. <DllImport("ImageSearchDLL.dll")> _
    4. Friend Shared Function ImageSearch(ByVal OutputVarX As Integer, ByVal OutputVarY As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer, <MarshalAs(UnmanagedType.LPStr)> ImageFile As String) _
    5. As <MarshalAs(UnmanagedType.LPStr)> String
    6. End Function
    7. '...
    8. End Class
    Ob das UnmanagedType.LPStr das richtige ist, weiß ich nicht, da ich die C++-Deklaration der Funktion nicht kenne.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    mhh ich habe es jetzt mit einen Code ausdem Internet geschafft... aber leider damit es funktioniert muss ich immer den Fensternamen angeben aber will ich ja nicht weil ich das Image ja finden möchte egal im welchen fenster das ist.

    VB.NET-Quellcode

    1. Dim a As New AutoItX3Lib.AutoItX3
    2. Dim Bild2 = Bild
    3. Dim toleranz As Integer = 0
    4. If Not IO.File.Exists(Bild) Then
    5. MessageBox.Show("Die Datei " & Bild2 & "konnte nicht gefunden werden. Das Programm wird beendet.")
    6. End
    7. End If
    8. If toleranz > 0 Then Bild = "*" & toleranz & " " & Bild
    9. Dim x As String = ImageSearch(a.WinGetCaretPosX(), a.WinGetCaretPosY(), a.WinGetCaretPosX() + a.WinGetClientSizeWidth(FensterName), a.WinGetCaretPosY() + a.WinGetClientSizeHeight(FensterName), Bild)
    11. If x = "0" Then
    12. MessageBox.Show("Das Bild " & Bild2 & " konnte nicht auf dem Bildschirm gefunden werden. Das Programm wird beendet.")
    13. End
    14. Else
    15. Dim y = x.Split("|")
    16. If Mitte = True Then
    17. Return Point.Subtract(New Point(y(1), y(2)), New Size(y(3) \ -2, y(4) \ -2))
    18. Else
    19. Return New Point(y(1), y(2))
    20. End If
    21. End If
    22. End Function

    Gib Deinem Programm mal Option Strict On.
    Hast Du Dein Programm mit x86 kompiliert??
    Kannst Du die DLL mal dranhängen (als zip)?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    1.)

    VB.NET-Quellcode

    1. <DllImport("ImageSearchDLL.dll")> Public Function ImageSearch(ByVal x1 As Integer, ByVal y1 As Integer, ByVal right As Integer, ByVal bottom As Integer, ByVal findImage As String) As String
    2. End Function
    3. Function ImageSearch(ByVal Bild As String, ByVal FensterName As String, Optional ByVal Mitte As Boolean = True) As Point
    4. Dim a As New AutoItX3Lib.AutoItX3
    5. Dim Bild2 = Bild
    6. Dim toleranz As Integer = 0
    7. If Not IO.File.Exists(Bild) Then
    8. MessageBox.Show("Die Datei " & Bild2 & "konnte nicht gefunden werden. Das Programm wird beendet.")
    9. End
    10. End If
    11. If toleranz > 0 Then Bild = "*" & toleranz & " " & Bild
    12. Dim x As String = ImageSearch(a.WinGetCaretPosX(), a.WinGetCaretPosY(), a.WinGetCaretPosX() + a.WinGetClientSizeWidth(FensterName), a.WinGetCaretPosY() + a.WinGetClientSizeHeight(FensterName), Bild)
    14. If x = "0" Then
    15. MessageBox.Show("Das Bild " & Bild2 & " konnte nicht auf dem Bildschirm gefunden werden. Das Programm wird beendet.")
    16. End
    17. Else
    18. Dim y = x.Split(CChar("|"))
    19. If Mitte = True Then
    20. Return Point.Subtract(New Point(CInt(y(1)), CInt(y(2))), New Size(CInt(CLng(y(3)) \ -2), CInt(CLng(y(4)) \ -2)))
    21. Else
    22. Return New Point(CInt(y(1)), CInt(y(2)))
    23. End If
    24. End If
    25. End Function


    2.)CPU Any?!

    3.)ImageSearchDLL.zip

    vbler schrieb:

    VB.NET-Quellcode

    1. <DllImport("ImageSearchDLL.dll")> _
    2. Public Function ImageSearch(ByVal x1 As Integer, ByVal y1 As Integer, ByVal right As Integer, ByVal bottom As Integer, ByVal findImage As String) As String
    3. End Function
    Diese Deklaration ist falsch.
    Leider habe ich keine richtige gefunden, probieren hat auch nichts geholfen.
    Versuch mal, die richtige Deklaration aufzutreiben, wenn Du sie hast, melde Dich wieder. :S
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Bin mir jetzt zwar nicht zu 100% sicher aber sollten die ersten beiden Variablen nicht als ByRef declariert werden?
    The names of the variables in which to store the X and Y coordinates of the upper-left pixel of where the image was found on the screen (if no match is found, the variables are made blank). Coordinates are relative to the active window unless CoordMode was used to change that.

    Either or both of these parameters may be left blank, in which case ErrorLevel (see below) can be used to determine whether a match was found.

    Wulf schrieb:

    sollten die ersten beiden Variablen nicht als ByRef declariert werden?
    Auch das habe ich probiert, aber es reicht nicht.
    Ich hab auch diese beiden als IntPtr probiert, geht auch nicht.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    mhh, da die ImageSearchDLL oft in AutoIT genutzt wird habe ich nur einen AutoIT Code womit man die ImageSearchDLL in AutoIT nutzen kann.

    Brainfuck-Quellcode

    1. #include-once
    2. ; ------------------------------------------------------------------------------
    3. ;
    4. ; AutoIt Version: 3.0
    5. ; Language: English
    6. ; Description: Functions that assist with Image Search
    7. ; Require that the ImageSearchDLL.dll be loadable
    8. ;
    9. ; ------------------------------------------------------------------------------
    11. ;===============================================================================
    12. ;
    13. ; Description: Find the position of an image on the desktop
    14. ; Syntax: _ImageSearchArea, _ImageSearch
    15. ; Parameter(s):
    16. ; $findImage - the image to locate on the desktop
    17. ; $tolerance - 0 for no tolerance (0-255). Needed when colors of
    18. ; image differ from desktop. e.g GIF
    19. ; $resultPosition - Set where the returned x,y location of the image is.
    20. ; 1 for centre of image, 0 for top left of image
    21. ; $x $y - Return the x and y location of the image
    22. ;
    23. ; Return Value(s): On Success - Returns 1
    24. ; On Failure - Returns 0
    25. ;
    26. ; Note: Use _ImageSearch to search the entire desktop, _ImageSearchArea to specify
    27. ; a desktop region to search
    28. ;
    29. ;===============================================================================
    30. Func _ImageSearch($findImage,$resultPosition,ByRef $x, ByRef $y,$tolerance)
    31. return _ImageSearchArea($findImage,$resultPosition,0,0,@DesktopWidth,@DesktopHeight,$x,$y,$tolerance)
    32. EndFunc
    34. Func _ImageSearchArea($findImage,$resultPosition,$x1,$y1,$right,$bottom,ByRef $x, ByRef $y, $tolerance)
    35. ;MsgBox(0,"asd","" & $x1 & " " & $y1 & " " & $right & " " & $bottom)
    36. if $tolerance>0 then $findImage = "*" & $tolerance & " " & $findImage
    37. $result = DllCall("ImageSearchDLL.dll","str","ImageSearch","int",$x1,"int",$y1,"int",$right,"int",$bottom,"str",$findImage)
    39. ; If error exit
    40. if $result[0]="0" then return 0
    42. ; Otherwise get the x,y location of the match and the size of the image to
    43. ; compute the centre of search
    44. $array = StringSplit($result[0],"|")
    46. $x=Int(Number($array[2]))
    47. $y=Int(Number($array[3]))
    48. if $resultPosition=1 then
    49. $x=$x + Int(Number($array[4])/2)
    50. $y=$y + Int(Number($array[5])/2)
    51. endif
    52. return 1
    53. EndFunc
    55. ;===============================================================================
    56. ;
    57. ; Description: Wait for a specified number of seconds for an image to appear
    58. ;
    59. ; Syntax: _WaitForImageSearch, _WaitForImagesSearch
    60. ; Parameter(s):
    61. ; $waitSecs - seconds to try and find the image
    62. ; $findImage - the image to locate on the desktop
    63. ; $tolerance - 0 for no tolerance (0-255). Needed when colors of
    64. ; image differ from desktop. e.g GIF
    65. ; $resultPosition - Set where the returned x,y location of the image is.
    66. ; 1 for centre of image, 0 for top left of image
    67. ; $x $y - Return the x and y location of the image
    68. ;
    69. ; Return Value(s): On Success - Returns 1
    70. ; On Failure - Returns 0
    71. ;
    72. ;
    73. ;===============================================================================
    74. Func _WaitForImageSearch($findImage,$waitSecs,$resultPosition,ByRef $x, ByRef $y,$tolerance)
    75. $waitSecs = $waitSecs * 1000
    76. $startTime=TimerInit()
    77. While TimerDiff($startTime) < $waitSecs
    78. sleep(100)
    79. $result=_ImageSearch($findImage,$resultPosition,$x, $y,$tolerance)
    80. if $result > 0 Then
    81. return 1
    82. EndIf
    83. WEnd
    84. return 0
    85. EndFunc
    87. ;===============================================================================
    88. ;
    89. ; Description: Wait for a specified number of seconds for any of a set of
    90. ; images to appear
    91. ;
    92. ; Syntax: _WaitForImagesSearch
    93. ; Parameter(s):
    94. ; $waitSecs - seconds to try and find the image
    95. ; $findImage - the ARRAY of images to locate on the desktop
    96. ; - ARRAY[0] is set to the number of images to loop through
    97. ; ARRAY[1] is the first image
    98. ; $tolerance - 0 for no tolerance (0-255). Needed when colors of
    99. ; image differ from desktop. e.g GIF
    100. ; $resultPosition - Set where the returned x,y location of the image is.
    101. ; 1 for centre of image, 0 for top left of image
    102. ; $x $y - Return the x and y location of the image
    103. ;
    104. ; Return Value(s): On Success - Returns the index of the successful find
    105. ; On Failure - Returns 0
    106. ;
    107. ;
    108. ;===============================================================================
    109. Func _WaitForImagesSearch($findImage,$waitSecs,$resultPosition,ByRef $x, ByRef $y,$tolerance)
    110. $waitSecs = $waitSecs * 1000
    111. $startTime=TimerInit()
    112. While TimerDiff($startTime) < $waitSecs
    113. for $i = 1 to $findImage[0]
    114. sleep(100)
    115. $result=_ImageSearch($findImage[$i],$resultPosition,$x, $y,$tolerance)
    116. if $result > 0 Then
    117. return $i
    118. EndIf
    119. Next
    120. WEnd
    121. return 0
    122. EndFunc


    villeicht hilft das ja weiter...

    vbler schrieb:

    Quellcode

    1. $result = DllCall("ImageSearchDLL.dll","str","ImageSearch","int",$x1,"int",$y1,"int",$right,"int",$bottom,"str",$findImage)
    Diese Zeile ist interessant.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. <DllImport("ImageSearchDLL.dll")> Public Shared Function ImageSearch(ByRef x1 As Integer, ByRef y1 As Integer, ByVal right As Integer, ByVal bottom As Integer, ByVal findimage$) As String
    2. End Function



    So Funktionierts nicht wenn ich richtig gemacht habe..

    RodFromGermany schrieb:

    Du kannst keinen .NET-String so an eine C++-DLL übergeben.
    Da fehlt so was wie <MarshalAs(UnmanagedType.LPStr)> .
    Das hatten wir ja bereits ...
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Da müsstest Du vielleicht noch mal mit Frau Google reden. :S
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Weil Strings in einzelnen Programmiersprachen völlig unterschiedlich im Speicher abgelegt sind und entsprechend konvertiert werden müssen.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    habe jezt gegoogelt vllt hilfts es

    c-plusplus.de/forum/268793-full
    cplusplus.com/forum/beginner/26385/



    Ich glaube das hier kann helfen :


    pastebin.com/2WjBnnNk


    bzw dieser Code:

    VB.NET-Quellcode

    1. [ public static class IMGSearch
    2. {
    3. //[DllImport("ImageSearchDLL.dll", EntryPoint="ImageSearch")]
    4. [DllImport("Boxy")]
    5. public static extern string ImageSearch(int x1, int y1, int x2, int y2, string str);
    6. /// <summary>
    7. /// The main entry point for the application.
    8. /// </summary>
    9. [STAThread]
    10. static void Main2()
    11. {
    12. Application.EnableVisualStyles();
    13. Application.SetCompatibleTextRenderingDefault(false);
    14. Application.Run(new Form1());
    15. }
    17. public static int[] FindImage(int L, int T, int R, int B, string F)
    18. {
    19. int[] aRTN = new int[5];
    21. //MessageBox.Show(R.ToString());
    22. string rtn = ImageSearch(L, T, R, B, F);
    24. //MessageBox.Show(rtn);
    26. if (rtn == "0")
    27. {
    28. aRTN[0] = 0;
    29. return aRTN;
    30. }
    31. else
    32. {
    33. string[] coords = rtn.Split('|'); //split return value of imagesearch into array
    34. //int[] aRTN = new int[5]; //declare int array with enough elements
    35. aRTN[0] = int.Parse(coords[0]); //convert the string values into ints
    36. aRTN[1] = int.Parse(coords[1]);
    37. aRTN[2] = int.Parse(coords[2]);
    38. aRTN[3] = int.Parse(coords[3]);
    39. aRTN[4] = int.Parse(coords[4]);
    40. return aRTN;
    42. }
    43. }
    44. }



    Edit:

    Kommische Sache:

    Mein Code:

    Imports System.Runtime.InteropServices
    Imports System
    Public Class Form1

    VB.NET-Quellcode

    1. <DllImport("ImageSearchDLL.dll", EntryPoint:="ImageSearch")> Public Shared Function ImageSearch(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal str As String) As String
    2. End Function
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    4. Dim x1 As Integer
    5. Dim y1 As Integer
    6. Dim result As Integer = ImageSearch(x1, y1, Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, "C:\a.png")
    7. MsgBox(result)
    8. End Sub
    9. End Class


    Wenn das Image nicht gefunden wird kommt eine Messagebox wo 0 steht. Aber wenn das Image Gefunden wird... kommt ne Exception versteh ich nicht aber ist doch schonmal etwas xD


    VB.NET-Quellcode

    1. Informationen über das Aufrufen von JIT-Debuggen
    2. anstelle dieses Dialogfelds finden Sie am Ende dieser Meldung.
    4. ************** Ausnahmetext **************
    5. System.InvalidCastException: Ungültige Konvertierung von der Zeichenfolge 1|248|164|47|38 in Typ Integer. ---> System.FormatException: Die Eingabezeichenfolge hat das falsche Format.
    6. bei Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat)
    7. bei Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger(String Value)
    8. --- Ende der internen Ausnahmestapelüberwachung ---
    9. bei Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger(String Value)
    10. bei ImageSearchDLL.Form1.Form1_Load(Object sender, EventArgs e) in C:\Users\Wohnzimmer\documents\visual studio 2010\Projects\ImageSearchDLL\ImageSearchDLL\Form1.vb:Zeile 10.
    11. bei System.EventHandler.Invoke(Object sender, EventArgs e)
    12. bei System.Windows.Forms.Form.OnLoad(EventArgs e)
    13. bei System.Windows.Forms.Form.OnCreateControl()
    14. bei System.Windows.Forms.Control.CreateControl(Boolean fIgnoreVisible)
    15. bei System.Windows.Forms.Control.CreateControl()
    16. bei System.Windows.Forms.Control.WmShowWindow(Message& m)
    17. bei System.Windows.Forms.Control.WndProc(Message& m)
    18. bei System.Windows.Forms.ScrollableControl.WndProc(Message& m)
    19. bei System.Windows.Forms.ContainerControl.WndProc(Message& m)
    20. bei System.Windows.Forms.Form.WmShowWindow(Message& m)
    21. bei System.Windows.Forms.Form.WndProc(Message& m)
    22. bei System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
    23. bei System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
    24. bei System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)
    27. ************** Geladene Assemblys **************
    28. mscorlib
    29. Assembly-Version: 4.0.0.0.
    30. Win32-Version: 4.0.30319.17626 built by: FX45RCREL.
    31. CodeBase: file:///C:/Windows/Microsoft.NET/Framework/v4.0.30319/mscorlib.dll.
    32. ----------------------------------------
    33. ImageSearchDLL
    34. Assembly-Version: 1.0.0.0.
    35. Win32-Version: 1.0.0.0.
    36. CodeBase: file:///C:/Users/Wohnzimmer/Documents/Visual%20Studio%202010/Projects/ImageSearchDLL/ImageSearchDLL/bin/Debug/ImageSearchDLL.exe.
    37. ----------------------------------------
    38. Microsoft.VisualBasic
    39. Assembly-Version: 10.0.0.0.
    40. Win32-Version: 11.0.50501.17626 built by: FX45RCREL.
    41. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic/v4.0_10.0.0.0__b03f5f7f11d50a3a/Microsoft.VisualBasic.dll.
    42. ----------------------------------------
    43. System
    44. Assembly-Version: 4.0.0.0.
    45. Win32-Version: 4.0.30319.17626 built by: FX45RCREL.
    46. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System/v4.0_4.0.0.0__b77a5c561934e089/System.dll.
    47. ----------------------------------------
    48. System.Core
    49. Assembly-Version: 4.0.0.0.
    50. Win32-Version: 4.0.30319.17626 built by: FX45RCREL.
    51. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Core/v4.0_4.0.0.0__b77a5c561934e089/System.Core.dll.
    52. ----------------------------------------
    53. System.Windows.Forms
    54. Assembly-Version: 4.0.0.0.
    55. Win32-Version: 4.0.30319.17626 built by: FX45RCREL.
    56. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms/v4.0_4.0.0.0__b77a5c561934e089/System.Windows.Forms.dll.
    57. ----------------------------------------
    58. System.Drawing
    59. Assembly-Version: 4.0.0.0.
    60. Win32-Version: 4.0.30319.17626 built by: FX45RCREL.
    61. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Drawing/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Drawing.dll.
    62. ----------------------------------------
    63. System.Configuration
    64. Assembly-Version: 4.0.0.0.
    65. Win32-Version: 4.0.30319.17626 built by: FX45RCREL.
    66. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Configuration/v4.0_4.0.0.0__b03f5f7f11d50a3a/System.Configuration.dll.
    67. ----------------------------------------
    68. System.Xml
    69. Assembly-Version: 4.0.0.0.
    70. Win32-Version: 4.0.30319.17626 built by: FX45RCREL.
    71. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Xml/v4.0_4.0.0.0__b77a5c561934e089/System.Xml.dll.
    72. ----------------------------------------
    73. System.Runtime.Remoting
    74. Assembly-Version: 4.0.0.0.
    75. Win32-Version: 4.0.30319.17626 built by: FX45RCREL.
    76. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Runtime.Remoting/v4.0_4.0.0.0__b77a5c561934e089/System.Runtime.Remoting.dll.
    77. ----------------------------------------
    78. mscorlib.resources
    79. Assembly-Version: 4.0.0.0.
    80. Win32-Version: 4.0.30319.17626 built by: FX45RCREL.
    81. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/mscorlib.resources/v4.0_4.0.0.0_de_b77a5c561934e089/mscorlib.resources.dll.
    82. ----------------------------------------
    83. Microsoft.VisualBasic.resources
    84. Assembly-Version: 10.0.0.0.
    85. Win32-Version: 11.0.50501.17626 built by: FX45RCREL.
    86. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/Microsoft.VisualBasic.resources/v4.0_10.0.0.0_de_b03f5f7f11d50a3a/Microsoft.VisualBasic.resources.dll.
    87. ----------------------------------------
    88. System.Windows.Forms.resources
    89. Assembly-Version: 4.0.0.0.
    90. Win32-Version: 4.0.30319.17626 built by: FX45RCREL.
    91. CodeBase: file:///C:/Windows/Microsoft.Net/assembly/GAC_MSIL/System.Windows.Forms.resources/v4.0_4.0.0.0_de_b77a5c561934e089/System.Windows.Forms.resources.dll.
    92. ----------------------------------------
    94. ************** JIT-Debuggen **************
    95. Um das JIT-Debuggen (Just-In-Time) zu aktivieren, muss in der
    96. Konfigurationsdatei der Anwendung oder des Computers
    97. (machine.config) der jitDebugging-Wert im Abschnitt system.windows.forms festgelegt werden.
    98. Die Anwendung muss mit aktiviertem Debuggen kompiliert werden.
    100. Zum Beispiel:
    102. <configuration>
    103. <system.windows.forms jitDebugging="true" />
    104. </configuration>
    106. Wenn das JIT-Debuggen aktiviert ist, werden alle nicht behandelten
    107. Ausnahmen an den JIT-Debugger gesendet, der auf dem
    108. Computer registriert ist, und nicht in diesem Dialogfeld behandelt.

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „vbler“ ()

    Ich habe es erlich geschafft :O

    Hier der Code die AutoITLib ist nur drin um auf dir Koordis zu drücken...

    Danke an Alle :)


    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports System
    3. Imports AutoItX3Lib
    4. Public Class Form1
    5. <DllImport("ImageSearchDLL.dll", EntryPoint:="ImageSearch")> Public Shared Function ImageSearch(ByVal x1 As Integer, ByVal y1 As Integer, ByVal x2 As Integer, ByVal y2 As Integer, ByVal str As String) As String
    6. End Function
    9. Public Shared Function FindImage(ByVal L As Integer, ByVal T As Integer, ByVal R As Integer, ByVal B As Integer, ByVal F As String) As Integer()
    10. Dim aRTN As Integer() = New Integer(4) {}
    12. 'MessageBox.Show(R.ToString());
    13. Dim rtn As String = ImageSearch(L, T, R, B, F)
    15. ' MessageBox.Show(rtn)
    17. If rtn = "0" Then
    18. aRTN(0) = 0
    19. Return aRTN
    20. Else
    21. Dim coords As String() = rtn.Split("|"c)
    22. 'split return value of imagesearch into array
    23. 'int[] aRTN = new int[5]; //declare int array with enough elements
    24. aRTN(0) = Integer.Parse(coords(0))
    25. 'convert the string values into ints
    26. aRTN(1) = Integer.Parse(coords(1))
    27. aRTN(2) = Integer.Parse(coords(2))
    28. aRTN(3) = Integer.Parse(coords(3))
    29. aRTN(4) = Integer.Parse(coords(4))
    31. Return aRTN
    32. End If
    33. End Function
    35. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    36. Dim x1 As Integer
    37. Dim y1 As Integer
    39. Dim res() As Integer = FindImage(x1, y1, Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, "C:\as.png")
    41. Dim a As New AutoItX3Lib.AutoItX3
    42. a.MouseClick("LEFT", res(1), res(2))
    43. End Sub
    44. End Class



    Edit:

    Wie Man die DLL unter 64Bit nutzen könnt kann man hier nachlesen: [VB 2008] Altes Thema Neue Frage ( ImageSearchDLL Reloaded )

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „vbler“ ()

    Mit Option Strict On wärst Du bereits fertig. :D
    Wenn Du ImageSearch mit dem Returnwert String deklarierst, musst Du den Returnwert auch einem String zuweisen.
    Unsd pack den Code aus der Form_Load raus!

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. Dim result As String = ImageSearch(0, 0, Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, "C:\Temp\ImageSearch\Test.jpg")
    3. MessageBox.Show(result)
    4. End Sub
    Bilder

    • ImageSearch.jpg

      4,62 kB, 154×154, 1.037 mal angesehen
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende