Need a script

[AzGuL^ 0]

I need this script; I press keyboard button "G" then it triggers this;

presses keyboard button

presses with mouse on cord x;y

presses keyboard button

Just hit me with a script where I can change the button/coords, if it's possible. I may not loop it, just do the sequence when I get "G".

Thanks in advance.

Edited February 15, 2006 by AzGuL^

[cdkid 5]

ok, read the helpfile look at

HotKeySet()

Send()

MouseClick()

people will probably not write it for you but if you make some kind of effort to do it yourself and you have problems, people will help

~cdkid

[SmOke_N 212]

Just hit me with a script where I can change the button/coords, if it's possible. I may not loop it, just do the sequence when I get "G".

Can you get me a cheese burger while your at it?

[AzGuL^ 0]

ok, read the helpfile look at

HotKeySet()

Send()

MouseClick()

people will probably not write it for you but if you make some kind of effort to do it yourself and you have problems, people will help

~cdkid

Thanks for the fast response!

I now made this;

HotKeySet("^!g", "MyScript")

Func MyScript()
    Send(^!p)
    MouseClick(100,150)
    Send(^!p)
    Exit
EndFunc

But it tells me some error around the Send cmd I believe I didn't get how to send a key

EDIT; SmOke_N, haha so funny .. ?

Edited February 15, 2006 by AzGuL^

[Knight 2]

HotKeySet("{END}", "End")
HotKeySet("g", "Go")

$btn = InputBox("Btn", "What is the button to press?")
$x = InputBox("Mouse Click X", "What is the X coordinate for the mouse click?")
$y = InputBox("Mouse Click Y", "What is the Y coordinate for the mouse click?")

While 1
    Sleep(10)
WEnd

Func End()
    Exit
EndFunc

Func Go()
    Send($btn)
    MouseClick("left", $x, $y)
    Send($btn)
EndFunc

[=sinister= 1]

HotKeySet("{g}", "MyScript")

Func MyScript()
Send("{p}")
MouseClick("left", 100, 150, 2)
Send("{p}")
 Exit
EndFunc

Edited February 15, 2006 by =sinister=

[GaryFrost 18]

HotKeySet("^!g", "MyScript")

Func MyScript()
    Send("^!p")
    MouseClick(100,150)
    Send("^!p")
    Exit
EndFunc

I was going to say I wanted $10,000,000.00 but would settle for $1,000,000.00

[AzGuL^ 0]

Thanks to the ones who helped me it works now, BUT I would like it to be very rapid speed. Atm it likes run smooth if we say I got the mouse in the lower right corner it runs smooth up to the point where it needs to click. Is there some way to remove this delay so it executes the sequence within a few miliseconds?

This is my current code;

HotKeySet("{END}", "End")
HotKeySet("{DEL}", "Go")

While 1
    Sleep(1)
WEnd

Func End()
    Exit
EndFunc

Func Go()
    Send("P")
    MouseClick("left", 100, 150)
    Send("P")
EndFunc

[cdkid 5]

change

Func Go()
    Send("P")
    MouseClick("left", 100, 150)
    Send("P")
EndFunc

to

Func Go()
    Send("P")
    MouseClick("left", 100, 150, 0)
    Send("P")
EndFunc

the mouse should move instantaniously now

~cdkid

[AzGuL^ 0]

Nothing happens now :-/

[SmOke_N 212]

Had you bothered looking at MouseClick() in the helpfile?

MouseClick ( "button" [, x, y [, clicks [, speed ]]] )

MouseClick("left", 100, 150, 1, 1)

[mikeytown2 4]

Here is the complete code, give this a spin

Opt("SendKeyDelay", 0)
HotKeySet("{END}", "End")
HotKeySet("{DEL}", "Go")

While 1
    Sleep(1)
WEnd

Func End()
    Exit
EndFunc

Func Go()
    Send("P")
    MouseClick("left", 100, 150, 1, 0)
    Send("P")
EndFunc

Edited February 18, 2006 by mikeytown2

[AzGuL^ 0]

SmOke_N, thanks a TON, you actually helped me this time.

mikeytown2, thanks too!

Thanks all, this can be closed now, or whatever you do with topics which is "done". Thanks again !

Edited February 18, 2006 by AzGuL^

[cdkid 5]

Had you bothered looking at MouseClick() in the helpfile?

MouseClick ( "button" [, x, y [, clicks [, speed ]]] )

MouseClick("left", 100, 150, 1, 1)

>.< oops, forgot about the clicks param

--im an

~cdkid

[SmOke_N 212]

SmOke_N, thanks a TON, you actually helped me this time.

mikeytown2, thanks too!

Thanks all, this can be closed now, or whatever you do with topics which is "done". Thanks again !

I still want my cheese burger

[Valuater 131]

I still want my cheese burger

I will buy you one WHEN i get my $10.00 for helping that other newbie

lol

8)

Edited February 18, 2006 by Valuater