AzKay Posted July 27, 2006 Posted July 27, 2006 Oke, heres my script #NoTrayIcon HotKeySet("{PGUP}", "_LeftClick") HotKeySet("{PGDN}", "_RightClick") While 1 Sleep(1000) WEnd Func _LeftClick() MouseClick("Left") EndFunc Func _RightClick() MouseClick("Right") EndFunc The thing is, If I hold down the button, its the hotkey, so it repeats, so, it doesnt let me drag, i cant move windows, scroll, etc. Anyway to fix this? The reason im using hotkeys, is, I also need it to "trap" the pg up & pg down, so, they dont to their usual functions. Thanks. And, If anyones wondering, why im doing this script. Its because clicking makes alot of noise at night. # MY LOVE FOR YOU... IS LIKE A TRUCK- #
Vivvic Posted July 27, 2006 Posted July 27, 2006 (edited) Umm I dont really know much about auto it, but ill give it a shot. >Somtheing like this (concept)< #NoTrayIcon HotKeySet("{PGUP}", "_LeftClick_Up") HotKeySet("{PGDN}", "_LeftClick_Down") HotKeySet("{HOME}", "_RightClick_Up") HotKeySet("{END}", "_RightClick_Down") While 1 Sleep(1000) WEnd Func _LeftClick_up() MouseUp("Left") EndFunc Func _LeftClick_Down() MouseDown("Left") EndFunc Func _RightClick_Up() MouseUp("Right") EndFunc Func _RightClick_Down() MouseDown("Right") EndFunc EDIT: Typo Edited July 27, 2006 by Vivvic [quote name='DaleHohm']You have a strange habit of posting error messages that don't match your code.[/quote][quote name='SmOke_N']Forget the learning... straight to the scripting :lol: (laugh.gif)[/quote]
AzKay Posted July 27, 2006 Author Posted July 27, 2006 Ah, but then, ive got 4 buttons to use xP # MY LOVE FOR YOU... IS LIKE A TRUCK- #
Vivvic Posted July 27, 2006 Posted July 27, 2006 (edited) Ok, heres another idea, wont work but might give you an idea. expandcollapse popup#NoTrayIcon ;HotKeySet("{PGUP}", "_LeftClick_Up") HotKeySet("{PGDN}", "_LeftClick");_Down") ----MABY TOGGLE---- ;HotKeySet("{HOME}", "_RightClick_Up") HotKeySet("{END}", "_RightClick");_Down") ----MABY TOGGLE---- While 1 If $Left = 1 MouseDown("left") Else MouseUp("Left") If $Right = 1 MouseDown("Right") Else MouseUP("Right") Sleep(10) WEnd Func _LeftClick() Global $Left = 1 EndFunc Func _RightClick() Global $Right = 1 EndFunc #comments-start Func _LeftClick_up() MouseUp("Left") EndFunc Func _LeftClick_Down() MouseDown("Left") EndFunc Func _RightClick_Up() MouseUp("Right") EndFunc Func _RightClick_Down() MouseDown("Right") EndFunc #Coments-end EDIT: Typo EDIT2: added comment Edited July 27, 2006 by Vivvic [quote name='DaleHohm']You have a strange habit of posting error messages that don't match your code.[/quote][quote name='SmOke_N']Forget the learning... straight to the scripting :lol: (laugh.gif)[/quote]
AzKay Posted July 27, 2006 Author Posted July 27, 2006 Havnt tested, but, Wouldnt that, just set $left to 1, then, it would stay on 1, no? # MY LOVE FOR YOU... IS LIKE A TRUCK- #
Vivvic Posted July 27, 2006 Posted July 27, 2006 Yeah, I know it wont work, it was just an idea to get you going, try and like, press once and makes variable 1 press again and makes it 0 or somthing, Im gonna go for a bit, will post if I get an idea. [quote name='DaleHohm']You have a strange habit of posting error messages that don't match your code.[/quote][quote name='SmOke_N']Forget the learning... straight to the scripting :lol: (laugh.gif)[/quote]
AzKay Posted July 27, 2006 Author Posted July 27, 2006 Hehe, oke, thanks for helping # MY LOVE FOR YOU... IS LIKE A TRUCK- #
AzKay Posted July 27, 2006 Author Posted July 27, 2006 Dont want it to drag, What im aiming for, is the exact same thing a mouse does. Except, instead of the 2 mouse buttons, it will be pg up and pg dn # MY LOVE FOR YOU... IS LIKE A TRUCK- #
Vivvic Posted July 27, 2006 Posted July 27, 2006 Is there a way to tell if a key is being presses? If so I think I got you a script. [quote name='DaleHohm']You have a strange habit of posting error messages that don't match your code.[/quote][quote name='SmOke_N']Forget the learning... straight to the scripting :lol: (laugh.gif)[/quote]
AzKay Posted July 27, 2006 Author Posted July 27, 2006 But, I cant use _IsPressed, Because, it doesnt "trap" the key. Unless youve got a script that makes it trap the key? # MY LOVE FOR YOU... IS LIKE A TRUCK- #
AzKay Posted July 27, 2006 Author Posted July 27, 2006 That reply was for vivvic XDI know, but vivvic said "If there is, ive got a script" # MY LOVE FOR YOU... IS LIKE A TRUCK- #
Vivvic Posted July 27, 2006 Posted July 27, 2006 Well there are a few bugs, but really not in mood to look for way to fix, hope this works for you expandcollapse popup#Include <C:/program files/autoit3/beta/include/Misc.au3> #NoTrayIcon #comments-start HotKeySet("{PGUP}", "_LeftClick_Up") HotKeySet("{PGDN}", "_LeftClick");_Down") ----MABY TOGGLE---- HotKeySet("{HOME}", "_RightClick_Up") HotKeySet("{END}", "_RightClick");_Down") ----MABY TOGGLE---- #comments-end While 1 #comments-start If $Left = 1 MouseDown("left") Else MouseUp("Left") If $Right = 1 MouseDown("Right") Else MouseUP("Right") #comments-end If _IsPressed(21) Then;Page UP MouseClickDrag ("Left") EndIf If _IsPressed(22) Then;Page Down MouseClickDrag ("Right") EndIf Sleep(10) WEnd #comments-start Func _LeftClick() Global $Left = 1 EndFunc Func _RightClick() Global $Right = 1 EndFunc Func _LeftClick_up() MouseUp("Left") EndFunc Func _LeftClick_Down() MouseDown("Left") EndFunc Func _RightClick_Up() MouseUp("Right") EndFunc Func _RightClick_Down() MouseDown("Right") EndFunc #Coments-end [quote name='DaleHohm']You have a strange habit of posting error messages that don't match your code.[/quote][quote name='SmOke_N']Forget the learning... straight to the scripting :lol: (laugh.gif)[/quote]
AzKay Posted July 27, 2006 Author Posted July 27, 2006 But I dont want to drag xD # MY LOVE FOR YOU... IS LIKE A TRUCK- #
Vivvic Posted July 27, 2006 Posted July 27, 2006 (edited) Then use this, it "should" act like a regular mouse (after errors are fixed {altho it would likely double click}) expandcollapse popup#Include <C:/program files/autoit3/beta/include/Misc.au3> #NoTrayIcon #comments-start HotKeySet("{PGUP}", "_LeftClick_Up") HotKeySet("{PGDN}", "_LeftClick");_Down") ----MABY TOGGLE---- HotKeySet("{HOME}", "_RightClick_Up") HotKeySet("{END}", "_RightClick");_Down") ----MABY TOGGLE---- #comments-end While 1 #comments-start If $Left = 1 MouseDown("left") Else MouseUp("Left") If $Right = 1 MouseDown("Right") Else MouseUP("Right") #comments-end If _IsPressed(21) Then;Page UP MouseClick("Left") MouseClickDrag ("Left") EndIf If _IsPressed(22) Then;Page Down MouseClick("Left") MouseClickDrag ("Right") EndIf Sleep(10) WEnd #comments-start Func _LeftClick() Global $Left = 1 EndFunc Func _RightClick() Global $Right = 1 EndFunc Func _LeftClick_up() MouseUp("Left") EndFunc Func _LeftClick_Down() MouseDown("Left") EndFunc Func _RightClick_Up() MouseUp("Right") EndFunc Func _RightClick_Down() MouseDown("Right") EndFunc #Coments-end EDIT: or another idea, make it mousedown on one _IFPressed() and then mouseup on the next_IFPressed() Edited July 27, 2006 by Vivvic [quote name='DaleHohm']You have a strange habit of posting error messages that don't match your code.[/quote][quote name='SmOke_N']Forget the learning... straight to the scripting :lol: (laugh.gif)[/quote]
NELyon Posted July 27, 2006 Posted July 27, 2006 _.`*_-_OFF_TOPIC_-_*`._ Just now read my guestbook, AzKay. Thanks for the first post _.`*_-_ON_TOPIC_-_*`_ I read somewhere there was a udf to handle different functions with 1 hotkey. You could make it if the hotley was pressed twice in succession, it could drag to.. do the draging.
upnorth Posted July 27, 2006 Posted July 27, 2006 expandcollapse popup#NoTrayIcon #include<misc.au3> Dim $right_state, $left_state, $user32 = DllOpen( 'user32') HotKeySet( '{PGUP}', '_LeftClick') HotKeySet( '{PGDN}', '_RightClick') ;HotKeySet( '{somekey}', 'quit') While 1 If $left_state And Not _IsPressed( 21, $user32) Then MouseUp( 'left') $left_state = False EndIf If $right_state And Not _IsPressed( 22, $user32) Then MouseUp( 'right') $right_state = False EndIf Sleep(100) WEnd Func _LeftClick() If $left_state Then Return MouseDown( 'left') $left_state = True EndFunc Func _RightClick() If $right_state Then Return MouseDown( 'right') $right_state = True EndFunc Func quit() Exit EndFunc Func OnAutoItExit() DllClose( $user32) EndFunc
AzKay Posted July 27, 2006 Author Posted July 27, 2006 Works, Nice. # MY LOVE FOR YOU... IS LIKE A TRUCK- #
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now