toothpaste";p="47583 (!empty($user->lang['WROTE'])) ? $user->lang['WROTE'] : ucwords(strtolower(str_replace('_', ' ', 'WROTE'))):
... how would I go about writing a script that would right click until I tell it to stop? Would I just write
(!empty($user->lang['CODE'])) ? $user->lang['CODE'] : ucwords(strtolower(str_replace('_', ' ', 'CODE'))):
RMouseDown
RMouseUp
?
Also, could anybody tell me how I could find the coordinates of the cursor on screen please?
Getting the cursor position is:
XUScriptHost.GetCursorPos(oX As Variant, oY As Variant)
And your script should look like this:
Dim PosX, PosY 'define Variables
Do
XUScriptHost.GetCursorPos(PosX, PosY) ' Get actual screen position
XUScriptHost.RMouseDown PosX, PosY ' click right mouse button
XUScriptHost.Sleep 300 ' wait for 300ms to get the system ready
XUScriptHost.RMouseUp PosX, PosY 'release right mouse button
XUScriptHost.Sleep 300 ' wait for 300ms to get the system ready
Loop
This script should run continously until you press F12 (which is the default exit key for the script launcher)
Regards,
Pain