AutoIT Script unter Visual Basic parallel ausführen

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von musabe24.

    AutoIT Script unter Visual Basic parallel ausführen

    Hallo!
    Ich habe bereits eine Visual Basic Software geschrieben. Diese Software will ich nun wie folgt erweitern:
    Auf Knopfdruck soll demonstriert werden, was die Software so kann.
    Das wollte ich mit AutoIT lösen.
    Nun habe ich eine Visual Basic Software und einen AutoIT Script, der meine Software sozusagen "bedient".
    Mein Wunsch ist: Über die AutoIT Library für Visual Studio würde ich gerne meine AutoIT Software in meine Visual Basic Software einbinden.
    Doch dann habe ich das Problem, dass AutoIT meine Software bedient, meine Software aber auf die ganzen Mausklicks gar nicht reagiert.
    Ich denke das liegt daran, dass ich nur einen Prozess für Visual Basic und AutoIT habe. Somit kann Visual Basic erst wieder reagieren, wenn der AutoIT Script zuende geht.
    Gibt es dafür eine Abhilfe?

    Wäre dankbar für Eure Hilfe.

    Hier der Programmteil mit AutoIT:

    VB.NET-Quellcode

    1. Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
    2. Me.Close()
    4. Dim AutoIT As New AutoItX3Lib.AutoItX3
    6. AutoIT.AutoItSetOption("MouseCoordMode", 2)
    7. AutoIT.ControlFocus("Notizen", "", "[NAME:TextBoxNotiz]")
    8. AutoIT.Send("H")
    9. AutoIT.Sleep(100)
    10. AutoIT.Send("e")
    11. AutoIT.Sleep(100)
    12. AutoIT.Send("l")
    13. AutoIT.Sleep(100)
    14. AutoIT.Send("l")
    15. AutoIT.Sleep(100)
    16. AutoIT.Send("o")
    17. AutoIT.Sleep(100)
    18. AutoIT.Send(".")
    19. AutoIT.Sleep(500)
    21. Dim ContrPosX
    22. Dim ContrPosY
    24. ContrPosX = AutoIT.ControlGetPosX("Notizen", "Einstellungen", "[NAME:ButtonEinstellungen]")
    25. ContrPosY = AutoIT.ControlGetPosY("Notizen", "Einstellungen", "[NAME:ButtonEinstellungen]")
    26. AutoIT.MouseClick("left", ContrPosX + 61, ContrPosY + 10)
    28. AutoIT.Sleep(500)
    30. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "Rot", "[NAME:Button4]")
    31. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "Rot", "[NAME:Button4]")
    32. AutoIT.MouseClick("left", ContrPosX + 74, ContrPosY + 11)
    34. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "", "[NAME:TabControl1]")
    35. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "", "[NAME:TabControl1]")
    36. AutoIT.MouseClick("left", ContrPosX + 126, ContrPosY + 12)
    38. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "Benutzerdefiniert", "[NAME:Button7]")
    39. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "Benutzerdefiniert", "[NAME:Button7]")
    40. AutoIT.MouseClick("left", ContrPosX + 74, ContrPosY + 11)
    42. AutoIT.Sleep(500)
    44. ContrPosX = AutoIT.ControlGetPosX("Farbe", "", "[CLASS:Static; INSTANCE:2]")
    45. ContrPosY = AutoIT.ControlGetPosY("Farbe", "", "[CLASS:Static; INSTANCE:2]")
    46. AutoIT.MouseClick("left", ContrPosX + 196, ContrPosY + 121)
    48. ContrPosX = AutoIT.ControlGetPosX("Farbe", "OK", "[CLASS:Button; INSTANCE:2]")
    49. ContrPosY = AutoIT.ControlGetPosY("Farbe", "OK", "[CLASS:Button; INSTANCE:2]")
    50. AutoIT.MouseClick("left", ContrPosX + 34, ContrPosY + 13)
    52. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "", "[NAME:TabControl1]")
    53. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "", "[NAME:TabControl1]")
    54. AutoIT.MouseClick("left", ContrPosX + 179, ContrPosY + 10)
    56. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "Schrift 2", "[NAME:Button16]")
    57. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "Schrift 2", "[NAME:Button16]")
    58. AutoIT.MouseClick("left", ContrPosX + 49, ContrPosY + 10)
    60. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "benutzerdefiniert", "[NAME:Button20]")
    61. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "benutzerdefiniert", "[NAME:Button20]")
    62. AutoIT.MouseClick("left", ContrPosX + 48, ContrPosY + 12)
    64. AutoIT.Sleep(500)
    66. ContrPosX = AutoIT.ControlGetPosX("Schriftart", "", "[CLASS:ComboLBox; INSTANCE:3]")
    67. ContrPosY = AutoIT.ControlGetPosY("Schriftart", "", "[CLASS:ComboLBox; INSTANCE:3]")
    68. AutoIT.MouseClick("left", ContrPosX + 11, ContrPosY + 34)
    70. ContrPosX = AutoIT.ControlGetPosX("Schriftart", "OK", "[CLASS:Button; INSTANCE:5]")
    71. ContrPosY = AutoIT.ControlGetPosY("Schriftart", "OK", "[CLASS:Button; INSTANCE:5]")
    72. AutoIT.MouseClick("left", ContrPosX + 38, ContrPosY + 12)
    74. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "", "[NAME:TabControl1]")
    75. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "", "[NAME:TabControl1]")
    76. AutoIT.MouseClick("left", ContrPosX + 236, ContrPosY + 11)
    78. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "", "[NAME:TrackBar1]")
    79. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "", "[NAME:TrackBar1]")
    80. AutoIT.MouseClickDrag("left", ContrPosX + 299, ContrPosY + 12, ContrPosX + 242, ContrPosY + 11)
    82. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "", "[NAME:TabControl1]")
    83. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "", "[NAME:TabControl1]")
    84. AutoIT.MouseClick("left", ContrPosX + 294, ContrPosY + 10)
    86. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "Immer im Vordergrund", "[NAME:CheckBox1]")
    87. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "Immer im Vordergrund", "[NAME:CheckBox1]")
    88. AutoIT.MouseClick("left", ContrPosX + 5, ContrPosY + 8)
    90. AutoIT.WinActivate("Einstellungen")
    92. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "Schließen", "[NAME:Button14]")
    93. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "Schließen", "[NAME:Button14]")
    94. AutoIT.MouseClick("left", ContrPosX + 39, ContrPosY + 11)
    96. End Sub


    Ich weiß, das ist nicht wirklich professionell, aber ich mache das eigentlich nur nebenher und nur für mich. :D

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Danke für die Antwort!
    Das werde ich jetzt mal ausprobieren.

    Edit:

    So habe das Problem endlich gelöst durch erstellen eines neues Threads. Wieder mal was Neues dazugelernt. Falls jemand ein ähnliches Problem hat, hier meine Lösung:

    VB.NET-Quellcode

    1. ​ Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
    2. Me.Close()
    4. Dim NeuerThread As System.Threading.Thread
    5. NeuerThread = New System.Threading.Thread(AddressOf Me.Demonstrator)
    6. NeuerThread.Start()
    8. End Sub
    10. Private Sub Demonstrator()
    12. Dim AutoIT As New AutoItX3Lib.AutoItX3
    14. AutoIT.AutoItSetOption("MouseCoordMode", 2)
    15. AutoIT.ControlFocus("Notizen", "", "[NAME:TextBoxNotiz]")
    16. AutoIT.Send("H")
    17. AutoIT.Sleep(100)
    18. AutoIT.Send("e")
    19. AutoIT.Sleep(100)
    20. AutoIT.Send("l")
    21. AutoIT.Sleep(100)
    22. AutoIT.Send("l")
    23. AutoIT.Sleep(100)
    24. AutoIT.Send("o")
    25. AutoIT.Sleep(100)
    26. AutoIT.Send(".")
    27. AutoIT.Sleep(500)
    29. Dim ContrPosX
    30. Dim ContrPosY
    32. ContrPosX = AutoIT.ControlGetPosX("Notizen", "Einstellungen", "[NAME:ButtonEinstellungen]")
    33. ContrPosY = AutoIT.ControlGetPosY("Notizen", "Einstellungen", "[NAME:ButtonEinstellungen]")
    34. AutoIT.MouseClick("left", ContrPosX + 61, ContrPosY + 10)
    36. AutoIT.Sleep(500)
    38. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "Rot", "[NAME:Button4]")
    39. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "Rot", "[NAME:Button4]")
    40. AutoIT.MouseClick("left", ContrPosX + 74, ContrPosY + 11)
    42. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "", "[NAME:TabControl1]")
    43. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "", "[NAME:TabControl1]")
    44. AutoIT.MouseClick("left", ContrPosX + 126, ContrPosY + 12)
    46. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "Benutzerdefiniert", "[NAME:Button7]")
    47. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "Benutzerdefiniert", "[NAME:Button7]")
    48. AutoIT.MouseClick("left", ContrPosX + 74, ContrPosY + 11)
    50. AutoIT.Sleep(500)
    52. ContrPosX = AutoIT.ControlGetPosX("Farbe", "", "[CLASS:Static; INSTANCE:2]")
    53. ContrPosY = AutoIT.ControlGetPosY("Farbe", "", "[CLASS:Static; INSTANCE:2]")
    54. AutoIT.MouseClick("left", ContrPosX + 196, ContrPosY + 121)
    56. ContrPosX = AutoIT.ControlGetPosX("Farbe", "OK", "[CLASS:Button; INSTANCE:2]")
    57. ContrPosY = AutoIT.ControlGetPosY("Farbe", "OK", "[CLASS:Button; INSTANCE:2]")
    58. AutoIT.MouseClick("left", ContrPosX + 34, ContrPosY + 13)
    60. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "", "[NAME:TabControl1]")
    61. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "", "[NAME:TabControl1]")
    62. AutoIT.MouseClick("left", ContrPosX + 179, ContrPosY + 10)
    64. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "Schrift 2", "[NAME:Button16]")
    65. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "Schrift 2", "[NAME:Button16]")
    66. AutoIT.MouseClick("left", ContrPosX + 49, ContrPosY + 10)
    68. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "benutzerdefiniert", "[NAME:Button20]")
    69. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "benutzerdefiniert", "[NAME:Button20]")
    70. AutoIT.MouseClick("left", ContrPosX + 48, ContrPosY + 12)
    72. AutoIT.Sleep(500)
    74. ContrPosX = AutoIT.ControlGetPosX("Schriftart", "", "[CLASS:ComboLBox; INSTANCE:3]")
    75. ContrPosY = AutoIT.ControlGetPosY("Schriftart", "", "[CLASS:ComboLBox; INSTANCE:3]")
    76. AutoIT.MouseClick("left", ContrPosX + 11, ContrPosY + 34)
    78. ContrPosX = AutoIT.ControlGetPosX("Schriftart", "OK", "[CLASS:Button; INSTANCE:5]")
    79. ContrPosY = AutoIT.ControlGetPosY("Schriftart", "OK", "[CLASS:Button; INSTANCE:5]")
    80. AutoIT.MouseClick("left", ContrPosX + 38, ContrPosY + 12)
    82. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "", "[NAME:TabControl1]")
    83. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "", "[NAME:TabControl1]")
    84. AutoIT.MouseClick("left", ContrPosX + 236, ContrPosY + 11)
    86. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "", "[NAME:TrackBar1]")
    87. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "", "[NAME:TrackBar1]")
    88. AutoIT.MouseClickDrag("left", ContrPosX + 299, ContrPosY + 12, ContrPosX + 242, ContrPosY + 11)
    90. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "", "[NAME:TabControl1]")
    91. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "", "[NAME:TabControl1]")
    92. AutoIT.MouseClick("left", ContrPosX + 294, ContrPosY + 10)
    94. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "Immer im Vordergrund", "[NAME:CheckBox1]")
    95. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "Immer im Vordergrund", "[NAME:CheckBox1]")
    96. AutoIT.MouseClick("left", ContrPosX + 5, ContrPosY + 8)
    98. AutoIT.WinActivate("Einstellungen")
    100. ContrPosX = AutoIT.ControlGetPosX("Einstellungen", "Schließen", "[NAME:Button14]")
    101. ContrPosY = AutoIT.ControlGetPosY("Einstellungen", "Schließen", "[NAME:Button14]")
    102. AutoIT.MouseClick("left", ContrPosX + 39, ContrPosY + 11)
    104. End Sub


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

Facebook
Telefonspende