Page 1 of 1

Scripts

Posted: November 3rd, 2004, 8:56 am
by toothpaste
Sorry for being a noob and everything, but how would I go about writing a script that would right click until I tell it to stop? Would I just write

Code: Register to unlock hidden link

RMouseDown
RMouseUp
?
Also, could anybody tell me how I could find the coordinates of the cursor on screen please?

Posted: November 3rd, 2004, 8:57 am
by wyvernx
DI ( ie for soma) scripts are bugged ATM, admin is working on it.

Re: Scripts

Posted: November 3rd, 2004, 9:01 am
by acepower
cud of tolled that tooth :P

Re: Scripts

Posted: November 3rd, 2004, 9:08 am
by toothpaste
Bah.. How unfair :(
Ok, I guess I can deal with that, but how do I make my macros speed up? Sorry, search function has been removed from the forums.

Re: Scripts

Posted: November 3rd, 2004, 10:03 am
by pain
[quote="toothpaste";p="47583"]... how would I go about writing a script that would right click until I tell it to stop? Would I just write

Code: Register to unlock hidden link

RMouseDown
RMouseUp
?
Also, could anybody tell me how I could find the coordinates of the cursor on screen please?[/quote]

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

Re: Scripts

Posted: November 3rd, 2004, 11:18 am
by toothpaste
Great! Thanks, Pain.

Posted: November 3rd, 2004, 11:20 am
by wyvernx
search does work

Re: Scripts

Posted: November 3rd, 2004, 12:09 pm
by toothpaste
I thought the search function was removed because a skiddie had their way with it? Thanks for the info ^^;

Posted: November 7th, 2004, 3:06 pm
by j0n0
Were you make scripts oO

Re: Scripts

Posted: November 7th, 2004, 3:26 pm
by toothpaste
Pretty much any text editor.. I use Notepad. :p Just save the document as .vbs and you will have yourself a script for XU. Of course, however, the script needs to be written properly for it to function correctly.

Re: Scripts

Posted: November 30th, 2004, 8:07 am
by snyd
[quote="pain";p="47597"][quote="toothpaste";p="47583"]... how would I go about writing a script that would right click until I tell it to stop? Would I just write

Code: Register to unlock hidden link

RMouseDown
RMouseUp
?
Also, could anybody tell me how I could find the coordinates of the cursor on screen please?[/quote]

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[/quote]



I cant get this to work -_- Did u get it to work in soma Tooth?

And could u plz tell me exactly what to write in the vbs file? plz :/

ty :)

Posted: January 12th, 2005, 1:32 pm
by matiesthe1
ok i am a noob how do i get the scrip to run as a macro? i only had xu for bout 2days need all da help i can get xD ty