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

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