マウスの移動 - VBScriptおよびExcelマクロ

Question

Excelを使用してVBScriptでマウスを移動するスクリプトが見つかりました。これはほぼ私が私のプロジェクトのために探しているものですが、小さなコードを変更して、コードをマウスの特定の座標に移動させるコードを入力する必要があります。コードは現在、現在のマウス位置を使用し、その位置から移動します - マウスを絶対位置ではなく絶対位置に移動させる必要があります。コードによると、マウスの位置が、現在位置+180次いで-180だから移動し

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" 

：

ここVBSコードです。このコードを変更して、両方の位置（変数名XとY）を入れ、それらを使ってマウスポインタの正確な位置を設定することができます。

私はExcel.ExecuteExcel4Macroの部分を使いこなし、関数のドキュメントを無駄にチェックアウトしました。どうか助けてくれますか？ありがとう:)

編集：私はこれを作成しているシステムが非常にロックされているため、私はVBScriptを使用しています。私は他のテクノロジーバーを使用してこの方法を使用する方法がないので、助けていただければ幸いです！

Answer 1

まず第一に、あなたはこの

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

を行うときは、最初に「180」であることをPositionを設定し、その後すぐに、それは「-180」に上書きしています。それには何の意味もありません。

この部分を置き換える、より具体的にあなたの質問に答えるために：

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

このような何かを持つ：その前に

x & "," & y 

カーソルのどのような新しい座標言っているでしょう例えば、

また

x = "111" 
y = "222" 

、あなたが必要としないと削除することができ、このすべて：

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

古いカーソル位置を取得する場所だし、あなた自身にあなたドンを言うので、あなたはこれを必要としないこと相対的な位置を設定したい。

すべては、すべてのスクリプトで次のようになります。

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"