Bewegen Sie die Maus - VBScript und Excel-Makros

Gefunden ein Skript, das von Excel verwendet wird, bewegen Sie die Maus in VBScript. Das ist fast genau was ich Suche für mein Projekt, aber ich brauche zu verändern, ein kleines bisschen, um mir zu ermöglichen, geben Sie die Koordinaten in den code für Sie, mit der Maus spezifisch auf die Koordinaten, den code nutzt derzeit die aktuelle position der Maus und bewegt sich aus dieser position - ich muss in der Lage sein, um die Maus zu bewegen, um eine ABSOLUTE position, nicht eine RELATIVE.

Hier der VBS code:

Option Explicit
Dim Excel, GetMessagePos, x, y, Count, Position

Set Excel = WScript.CreateObject("Excel.Application")

GetMessagePos = Excel.ExecuteExcel4Macro( _
    "CALL(""user32"",""GetMessagePos"",""J"")")
x = CLng("&H" & Right(Hex(GetMessagePos), 4))
y = CLng("&H" & Left(Hex(GetMessagePos), (Len(Hex(GetMessagePos)) - 4)))

Position = "+ 180"
Position = "- 180"
Excel.ExecuteExcel4Macro ( _
    "CALL(""user32"",""SetCursorPos"",""JJJ""," & x & " " & Position & "," & y & " " & Position & ")")

WScript.Sleep (100)
WScript.Echo "Program Ended"

Nach dem code, der die position der Maus wird bewegt von der AKTUELLEN POSITION +180 dann -180. Ich brauche diesen code so verändert, ich kann sowohl die Positionen (in Variablennamen X und Y) und verwenden Sie diese zum einstellen der genauen position des Mauszeigers.

Ich habe Durcheinander herum mit Excel.ExecuteExcel4Macro Teil und überprüfte die Dokumentation für die Funktion ohne Erfolg. Bitte können Sie mir helfen? Danke 🙂

EDIT: ich bin mit VBScript, da das system Schaffe ich das GANZ gesperrt. Ich habe keine Möglichkeit, mit anderen Technologien-bar, also Hilfe würde geschätzt!

InformationsquelleAutor Jimbo | 2011-07-07

  1. 2

    Zuerst von allen, wenn Sie dies tun

    Position = "+ 180"
Position = "- 180"

    du bist die erste Einstellung Position "+180" und dann sofort überschrieben werden "-180". Es gibt keinen Sinn, das zu tun.

    Zur Beantwortung Ihrer Frage konkret, ersetzen Sie diesen Teil:

    x & " " & Position & "," & y & " " & Position

    mit so etwas wie dies:

    x & "," & y

    Vor, dass müssen Sie sagen, was die neuen Koordinaten des Cursors werden sollte, z.B.

    x = "111"
y = "222"

    Auch, all dies brauchen Sie nicht und löschen kann:

    GetMessagePos = Excel.ExecuteExcel4Macro( _
    "CALL(""user32"",""GetMessagePos"",""J"")")
x = CLng("&H" & Right(Hex(GetMessagePos), 4))
y = CLng("&H" & Left(Hex(GetMessagePos), (Len(Hex(GetMessagePos)) - 4)))

    Das ist, wo Sie den alten cursor-position, und Sie brauche das nicht, da Sie selbst sagen, die Sie nicht wollen, um eine relative position.

    Alles in allem sollte das Skript so Aussehen:

    Option Explicit
Dim Excel, x, y

Set Excel = WScript.CreateObject("Excel.Application")

x = "111"
y = "222"
Excel.ExecuteExcel4Macro ( _
    "CALL(""user32"",""SetCursorPos"",""JJJ""," & x & "," & y & ")")

WScript.Sleep (100)
WScript.Echo "Program Ended"
    Gut erklärt, das ist genau das was ich brauchte. Vielen Dank!

    InformationsquelleAutor Jean-François Corbett

Schreibe einen Kommentar