Ich hab mich mal rangesetzt und folgendes gebastelt:
Ein Programm namens "NumbPad",
damit kann man:
- die Maus nach oben, unten, links und rechts steuern
- linken Mausclick senden
- rechten Mausclick senden
############### Steuerung ###############
Numpad 7 = Mausklick links
Numpad 8 = Maus nach oben ziehen
Numpad 9 = Mausklick rechts
Numpad 4 = Maus nach links ziehen
Numpad 5 = Maus ins Zentrum des Bildschirms ziehen
Numpad 2 = Maus nach unten ziehen
########################################
####################### Anmerkung #######################
Ich versuche noch das Ganze, mit einem Joystick zu steuren.
( Funktioniert hiermit nicht. ) Also d.h. ich bastel an einer neuen Version
########################################################
Das ist erst die 1.0 Version also Ein paar Funktionen kommen noch dazu.
Quellcode im Spoiler:
Spoiler anzeigen
#include <Misc.au3>
[/autoit] [autoit][/autoit] [autoit]MsgBox(64,"NumbPad 1.0","Willkommen bei NumbPad 1.0")
MsgBox(64,"NumbPad 1.0","Numpad 7 = Mausklick links,Numpad 9 = Mausklick rechts, Numpad 8 = Maus nach oben,Numpad 5 = Maus zum Zentrum, Numpad 4 = Maus nach links,Numpad 6 = Maus nach rechts, Numpad 2 = Maus nach unten")
MsgBox(64,"NumbPad 1.0","Maus wird ins Zentrum platziert...")
WinActivate("Desktop")
[/autoit] [autoit][/autoit] [autoit]$pos = MouseGetPos()
$DesktopHeightMiddle = @DesktopHeight / 2
$DesktopWidthMiddle = @DesktopWidth / 2
MouseMove($DesktopWidthMiddle,$DesktopHeightMiddle)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]HotKeySet("{NUMPAD7}","_mouseleft")
HotKeySet("{NUMPAD8}","_up")
HotKeySet("{NUMPAD9}","_mouseright")
HotKeySet("{NUMPAD4}","_left")
HotKeySet("{NUMPAD5}","_center")
HotKeySet("{NUMPAD6}","_right")
HotKeySet("{NUMPAD2}","_down")
WEnd
[/autoit] [autoit][/autoit] [autoit]Func _mouseleft()
MouseClick("left")
EndFunc
Func _mouseright()
MouseClick("right")
EndFunc
Func _up()
$pos = MouseGetPos()
$MouseMoveUp = MouseMove(($pos[0]),($pos[1]-50),100000000)
EndFunc
Func _left()
$pos = MouseGetPos()
$MouseMoveLeft = MouseMove(($pos[0]-50),($pos[1]),100000000)
EndFunc
Func _center()
$pos = MouseGetPos()
$MouseMoveCenter = MouseMove($DesktopWidthMiddle,$DesktopHeightMiddle)
EndFunc
Func _right()
$pos = MouseGetPos()
$MouseMoveRight = MouseMove(($pos[0]+50),($pos[1]),100000000)
EndFunc
Func _down()
$pos = MouseGetPos()
$MouseMoveRight = MouseMove(($pos[0]),($pos[1]+50),100000000)
EndFunc
Bitte nicht streng bewerten, dass ist das erste Programm das ich hochlade.
Download:
autoit.de/wcf/attachment/11682/