Mouse Position Macro Builder The following macro simplifies and automates the generation of mouse positioning macros. Say 'mouse position macro' and the following dialog box allows the selection of a number of options. Once you are are happy with your settings DNS' Add New Command dialog is launched. The advanced script code to position and optionally click the mouse is generated and ready from naming.

Here is a screen shot of the Add New Command dialog with generated code using the settings from the dialog above.

MyCommand Name	mouse position macro
Description	Automagically generate mouse postion Advanced Scripting
Group	CodeGeneration
Availability	Global
Command Type	Advanced Scripting
Script
' Semiautomatically create a mouse position and/or click mouse advanced scripting macro ' tested in Dragon NaturallySpeaking 7.3 pro ' ' Position your mouse pointer, say "mouse position macro" ' Select click and positiong options from the dialog box ' the macro will be coded and ready for naming ' ' '(c)2005 Sean Wenzel All rights reserved. ' http://sean.wenzel.net/voicerecognition/ ' ' This code is released under the following license: ' ' http://www.gnu.org/copyleft/gpl.html ' ' the group to create the macro in Const MGROUP = "MyMouse" ' Declare data types and other structures ' ' structure to hold a point ' Public Type POINTAPI x As Long y As Long End Type ' API forward declarations ' get the current cursor position Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long ' ' Display a message in the Dragon status bar ' Function DragonMsg(s As String) EngineControl.DragonBar.ShowMessage showmessageNoBeep, s End Function Sub Main Dim p As POINTAPI Dim macro As String Dim s As String ' get current mouse position GetCursorPos( p ) ' create the options dialog Begin Dialog UserDialog 360,273,"Create mouse macro" ' %GRID:10,7,1,1 GroupBox 20,14,320,112,"Position is relative to",.GroupBox1 OptionGroup .Group1 OptionButton 40,35,230,14,"upper-left corner of screen",.opt0 OptionButton 40,56,280,14,"upper-left corner of active window",.opt1 OptionButton 40,77,270,14,"current pointer position",.opt2 OptionButton 40,98,280,14,"upper-left corner of the window interior",.opt5 GroupBox 20,133,190,112,"Click button",.GroupBox2 OptionGroup .Group2 OptionButton 40,154,160,14,"position mouse only ",.optClickNone OptionButton 40,175,150,14,"left click",.optClickLeft OptionButton 40,196,140,14,"right click",.optClickRight OptionButton 40,217,150,14,"middle click",.optClickMiddle GroupBox 220,133,120,63,"Click type",.GroupBox3 OptionGroup .Group3 OptionButton 230,154,90,14,"Single",.optClickSingle OptionButton 230,175,90,14,"Double",.optClickDouble OKButton 230,203,90,21 CancelButton 230,231,90,21 Text 20,252,110,14,"Coordinates are: ",.Text1 Text 140,252,90,14,Str(p.x)+", "+Str(p.y),.lblCoord End Dialog Dim dlg As UserDialog dlg.Group1 = 0 dlg.Group2 = 0 dlg.Group3 = 0 If Dialog(dlg) = -1 Then DragonMsg "Creating mouse macro... Position is: " + Str(p.x) + ", " + Str(p.y) ' build the advanced scripting macro macro = "SetMousePosition " ' position relative to... s = "0" Select Case dlg.Group1 Case 0 s = "0" Case 1 s = "1" Case 2 s = "2" Case 3 s = "5" End Select macro = macro + s + ", " + Str(p.x) + ", " + Str(p.y) ' click? If dlg.Group2 > 0 Then macro = macro + "{Enter}" Select Case dlg.Group2 Case 1 s = "1" Case 2 s = "2" Case 3 s = "4" End Select macro = macro + "ButtonClick " + s If dlg.Group3 = 0 Then macro = macro + ", 1" Else macro = macro + ", 2" End If End If HeardWord "add", "new", "command" Wait .05 HeardWord "Command Type" Wait .01 SendDragonKeys "{Down 3}" Wait .01 HeardWord "Script" Wait .01 SendDragonKeys macro Wait .01 HeardWord "Group" Wait .01 SendDragonKeys MGROUP Wait .01 HeardWord "MyCommand Name" DragonMsg "Provide a name and description for your macro." Else DragonMsg "Mouse position macro creation cancelled" End If End Sub Copy and paste the above code into the NaturallySpeaking® Add New Command dialog. Report criticism, praise, bugs or improvements using the feedback link on this website.