在Mac OS X中移动光标（在Python和/或R中）

Question

Can someone please help me figure out how I can use a Python or R script to move the cursor in Mac OS X? The plan is to read a real time signal and based on the streamed value move the cursor up or down. Thanks for your help ... Thanks!

Answer 1

Well, R allows you to use C so it smells like cheating, but works:

library(inline)
move.cursor <- cfunction(c(x="numeric",y="numeric"),
  "CGWarpMouseCursorPosition(CGPointMake(asReal(x),asReal(y)));
   return R_NilValue;",
  "#include <ApplicationServices/ApplicationServices.h>",,"C",
  libargs="-framework AppKit")

then you move the cursor simply by calling move.cursor :

move.cursor(100, 100)

Answer 2

Also, in case someone wants to do the keyboard events, this is how it's done. Below is the codes for typing numbers:

which.key <- 1
eval(parse(text = paste("c.key <- 'CGEventRef e = CGEventCreateKeyboardEvent(NULL, (CGKeyCode)", which.key+17, ", true); CGEventPost(kCGSessionEventTap, e); CFRelease(e); return R_NilValue;'", sep = "")))

KeyPress <- cfunction(
    body = c.key,
    includes = "#include <ApplicationServices/ApplicationServices.h>",
    language = "C",
    libargs = "-framework AppKit")

KeyPress()