au3 0.0.1-x86-mingw32

data/ext/parts/filedir.c

@@ -0,0 +1,121 @@
+/*
+*This file is part of au3. 
+*Copyright � 2009 Marvin G�lker
+*
+*au3 is published under the same terms as Ruby. 
+*See http://www.ruby-lang.org/en/LICENSE.txt
+*
+*=filedir.c
+*Methods that deal with file and directory management. 
+*/
+
+VALUE method_add_drive_map(int argc, VALUE argv[], VALUE self)
+{
+  wchar_t username[1000];
+  wchar_t password[1000];
+  int flags = 0;
+  wchar_t buffer[1000];
+  char err[60];
+  
+  //Argumentanzahl pr�fen
+  check_for_arg_error(argc, 2, 5);
+  
+  //Optionale Argumente zuweisen
+  if (argc >= 3)
+    flags = NUM2INT(argv[2]);
+  if (argc >= 4)
+    wcscpy(username, rstr_to_wstr(argv[3]));
+  if (argc >= 5)
+    wcscpy(password, rstr_to_wstr(argv[4]));
+  
+  //AutoItX-Aufruf durchf�hren
+  AU3_DriveMapAdd(rstr_to_wstr(argv[0]), rstr_to_wstr(argv[1]), flags, username, password, buffer, 1000);
+  
+  //Auf Fehler pr�fen
+  switch (AU3_error())
+  {
+    case 1:
+    {
+      rb_raise(Au3Error, "Unknown error occured while mapping network drive!");
+      break;
+    }
+    case 2:
+    {
+      rb_raise(Au3Error, "Access denied!");
+      break;
+    }
+    case 3:
+    {
+      sprintf(err, "Device '%s' is already assigned!", StringValuePtr(argv[0]));
+      rb_raise(Au3Error, err);
+      break;
+    }
+    case 4:
+    {
+      sprintf(err, "Invalid device name '%s'!", StringValuePtr(argv[0]));
+      rb_raise(Au3Error, err);
+      break;
+    }
+    case 5:
+    {
+      sprintf(err, "Invalid remote share '%s'!", StringValuePtr(argv[1]));
+      rb_raise(Au3Error, err);
+      break;
+    }
+    case 6:
+    {
+      rb_raise(Au3Error, "The password is incorrect!");
+      break;
+    }
+  }
+  
+  //Return returned string
+  return wstr_to_rstr(buffer);
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_delete_drive_map(VALUE self, VALUE device)
+{
+  if (AU3_DriveMapDel(rstr_to_wstr(device)))
+    return Qtrue;
+  else
+    return Qfalse;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_get_drive_map(VALUE self, VALUE device)
+{
+  wchar_t buffer[1000];
+  char err[100];
+  AU3_DriveMapGet(rstr_to_wstr(device), buffer, 1000);
+  
+  if (AU3_error() == 1)
+  {
+    sprintf(err, "Failed to retrieve information about device '%s'!", StringValuePtr(device));
+    rb_raise(Au3Error, err);
+  }
+  
+  return wstr_to_rstr(buffer);
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_delete_ini_entry(VALUE self, VALUE filename, VALUE section, VALUE key)
+{
+  if (AU3_IniDelete(rstr_to_wstr(filename), rstr_to_wstr(section), rstr_to_wstr(key)))
+    return Qtrue;
+  else
+    return Qfalse;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_read_ini_entry(VALUE self, VALUE filename, VALUE section, VALUE key, VALUE def)
+{
+  wchar_t buffer[10000];
+  AU3_IniRead(rstr_to_wstr(filename), rstr_to_wstr(section), rstr_to_wstr(key), rstr_to_wstr(def), buffer, 10000);
+  return wstr_to_rstr(buffer);
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_write_ini_entry(VALUE self, VALUE filename, VALUE section, VALUE key, VALUE value)
+{
+  if (AU3_IniWrite(rstr_to_wstr(filename), rstr_to_wstr(section), rstr_to_wstr(key), rstr_to_wstr(value)))
+    return value;
+  else
+    rb_raise(Au3Error, "Cannot open file for write access!");
+  return Qfalse;
+}

data/ext/parts/graphic.c

@@ -0,0 +1,51 @@
+/*
+*This file is part of au3. 
+*Copyright � 2009 Marvin G�lker
+*
+*au3 is published under the same terms as Ruby. 
+*See http://www.ruby-lang.org/en/LICENSE.txt
+*
+*=graphic.c
+*This file contains graphical related methods. 
+*/
+
+VALUE method_pixel_checksum(int argc, VALUE argv[], VALUE self)
+{
+  int step = 1;
+  unsigned long result;
+  
+  check_for_arg_error(argc, 4, 5);
+  
+  if (argc == 5)
+    step = FIX2INT(argv[4]);
+  
+  result = AU3_PixelChecksum(FIX2INT(argv[0]), FIX2INT(argv[1]), FIX2INT(argv[2]), FIX2INT(argv[3]), step);
+  return NUM2INT(result);
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_get_pixel_color(VALUE self, VALUE x, VALUE y)
+{
+  return INT2NUM(AU3_PixelGetColor(FIX2INT(x), FIX2INT(y)));
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_search_for_pixel(int argc, VALUE argv[], VALUE self)
+{
+  int shade_var = 0;
+  int step = 1;
+  int result[2];
+  LPPOINT presult = (LPPOINT) result;
+  
+  //This function doesn't work correctly. 
+  rb_raise(rb_eNotImpError, "This function isn't yet implemented.");
+  
+  check_for_arg_error(argc, 5, 7);
+  
+  if (argc >= 6)
+    shade_var = FIX2INT(argv[5]);
+  if (argc >= 7)
+    step = FIX2INT(argv[6]);
+  
+  AU3_PixelSearch(FIX2INT(argv[0]), FIX2INT(argv[1]), FIX2INT(argv[2]), FIX2INT(argv[3]), NUM2INT(argv[4]), shade_var, step, presult);
+  
+  return rb_ary_new3(2, INT2FIX(result[0]), INT2FIX(result[1]));
+}

data/ext/parts/keyboard.c

@@ -0,0 +1,29 @@
+/*
+*This file is part of au3. 
+*Copyright � 2009 Marvin G�lker
+*
+*au3 is published under the same terms as Ruby. 
+*See http://www.ruby-lang.org/en/LICENSE.txt
+*
+*=keyboard.c
+*This file describes the bridge to the keyboard control 
+*function of AutoItX. 
+*/
+
+VALUE method_send_keys(int argc, VALUE argv[], VALUE self)
+{
+  VALUE rstr;
+  LPCWSTR flag = to_wchar_t("");
+  
+  check_for_arg_error(argc, 1, 2);
+  
+  if (argc == 2)
+  {
+    rstr = rb_funcall(argv[1], rb_intern("to_s"), 0);
+    flag = rstr_to_wstr(rstr);
+  }
+  
+  AU3_Send(rstr_to_wstr(argv[0]), *flag);
+  
+  return Qnil;
+}

data/ext/parts/misc.c

@@ -0,0 +1,107 @@
+/*
+*This file is part of au3. 
+*Copyright � 2009 Marvin G�lker
+*
+*au3 is published under the same terms as Ruby. 
+*See http://www.ruby-lang.org/en/LICENSE.txt
+*
+*=misc.c
+*Miscellaneous methods that can't be categorized. 
+*/
+
+VALUE method_last_error(VALUE self)
+{
+  return INT2FIX(AU3_error());
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_set_option(VALUE self, VALUE option, VALUE value)
+{
+  return INT2NUM(AU3_AutoItSetOption(rstr_to_wstr(option), NUM2INT(value)));
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_input_blocked(VALUE self)
+{
+  return rb_ivar_get(self, rb_intern("@input_blocked"));
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_block_input(VALUE self, VALUE block)
+{
+  int b = 1;
+  VALUE blocked = Qtrue;
+  if (TYPE(block) == T_FALSE || TYPE(block) == T_NIL)
+  {
+    b = 0;
+    blocked = Qfalse;
+  }
+  AU3_BlockInput(b);
+  rb_ivar_set(self, rb_intern("@input_blocked"), blocked);
+  return blocked;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_open_cd_tray(VALUE self, VALUE drive)
+{
+  return ((AU3_CDTray(rstr_to_wstr(drive), to_wchar_t("open")) == 1) ? Qtrue : Qfalse);
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_close_cd_tray(VALUE self, VALUE drive)
+{
+  return ((AU3_CDTray(rstr_to_wstr(drive), to_wchar_t("closed")) == 1) ? Qtrue : Qfalse);
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_is_admin(VALUE self)
+{
+  if (AU3_IsAdmin() == 0)
+    return Qfalse;
+  else
+    return Qtrue;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+//This method seems to have been removed. 
+/*VALUE method_download_file(VALUE self, VALUE url, VALUE target)
+{
+  if (AU3_URLDownloadToFile(to_wchar_t(StringValuePtr(url)), to_wchar_t(StringValuePtr(target))))
+    return Qtrue;
+  else
+    return Qfalse;
+}*/
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_set_cliptext(VALUE self, VALUE text)
+{
+  AU3_ClipPut(rstr_to_wstr(text));
+  return Qnil;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_get_cliptext(VALUE self)
+{
+  wchar_t cliptext[10000];
+  AU3_ClipGet(cliptext, 10000);
+  if (AU3_error() == 1)
+    return rb_str_new2("");
+  else
+    return rb_str_new2(to_char(cliptext));
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_tool_tip(int argc, VALUE argv[], VALUE self)
+{
+  int x = AU3_INTDEFAULT;
+  int y = AU3_INTDEFAULT;
+  
+  if (argc == 3)
+  {
+    x = NUM2INT(argv[1]);
+    y = NUM2INT(argv[2]);
+  }
+  else if (argc == 2)
+    rb_raise(rb_eArgError, "Wrong number of arguments. You must specify a Y value.");
+  else
+    check_for_arg_error(argc, 1, 3);
+  
+  AU3_ToolTip(rstr_to_wstr(argv[0]), x, y);
+  return Qnil;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_msleep(VALUE self, VALUE msecs)
+{
+  AU3_Sleep(NUM2INT(msecs));
+  return Qnil;
+}

data/ext/parts/mouse.c

@@ -0,0 +1,130 @@
+/*
+*This file is part of au3. 
+*Copyright � 2009 Marvin G�lker
+*
+*au3 is published under the same terms as Ruby. 
+*See http://www.ruby-lang.org/en/LICENSE.txt
+*
+*=mouse.c
+*Functions to control the mouse. 
+*/
+
+VALUE method_mouse_click(int argc, VALUE argv[], VALUE self)
+{
+  LPCWSTR button = to_wchar_t("Primary");
+  int x = AU3_INTDEFAULT;
+  int y = AU3_INTDEFAULT;
+  int clicks = 1;
+  int speed = 10;
+  char err[100];
+  
+  check_for_arg_error(argc, 0, 5);
+  
+  if (argc >= 1)
+    x = FIX2INT(argv[0]);
+  if (argc >= 2)
+    y = FIX2INT(argv[1]);
+  if (argc >= 3)
+    button = rstr_to_wstr(argv[2]);
+  if (argc >= 4)
+    clicks = FIX2INT(argv[3]);
+  if (argc >= 5)
+    speed = FIX2INT(argv[4]);
+  
+  AU3_MouseClick(button, x, y, clicks, speed);
+  
+  if (AU3_error() == 1)
+  {
+    sprintf(err, "Could not find mouse button '%s'!", to_char(button));
+    rb_raise(Au3Error, err);
+  }
+  
+  return Qnil;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_drag_mouse(int argc, VALUE argv[], VALUE self)
+{
+  LPCWSTR button = to_wchar_t("Primary");
+  int speed = 10;
+  char err[100];
+  
+  check_for_arg_error(argc, 4, 6);
+  
+  if (argc >= 5)
+    button = rstr_to_wstr(argv[4]);
+  if (argc >= 6)
+    speed = FIX2INT(argv[6]);
+  
+  AU3_MouseClickDrag(button, FIX2INT(argv[0]), FIX2INT(argv[1]), FIX2INT(argv[2]), FIX2INT(argv[3]), speed);
+  
+  if (AU3_error() == 1)
+  {
+    sprintf(err, "Could not find mouse button '%s'!", to_char(button));
+    rb_raise(Au3Error, err);
+  }
+  
+  return Qnil;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_hold_mouse_down(int argc, VALUE argv[], VALUE self)
+{
+  LPCWSTR button = to_wchar_t("Primary");
+  check_for_arg_error(argc, 0, 1);
+  if (argc == 1)
+    button = rstr_to_wstr(argv[0]);
+  AU3_MouseDown(button);
+  return Qnil;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_cursor_id(VALUE self)
+{
+  return INT2FIX(AU3_MouseGetCursor());
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_cursor_pos(VALUE self)
+{
+  int x = AU3_MouseGetPosX();
+  int y = AU3_MouseGetPosY();
+  return rb_ary_new3(2, INT2NUM(x), INT2NUM(y));
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_move_mouse(int argc, VALUE argv[], VALUE self)
+{
+  int speed = -1;
+  check_for_arg_error(argc, 2, 3);
+  if (argc == 3)
+    speed = INT2FIX(argv[2]);
+  AU3_MouseMove(NUM2INT(argv[0]), NUM2INT(argv[1]), speed);
+  return Qnil;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_release_mouse(int argc, VALUE argv[], VALUE self)
+{
+  LPCWSTR button = to_wchar_t("Primary");
+  check_for_arg_error(argc, 0, 1);
+  if (argc == 1)
+    button = rstr_to_wstr(argv[0]);
+  AU3_MouseUp(button);
+  return Qnil;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_mouse_wheel(int argc, VALUE argv[], VALUE self)
+{
+  int clicks = 5;
+  char err[100];
+  
+  check_for_arg_error(argc, 1, 2);
+  
+  if (argc == 2)
+    clicks = FIX2INT(argv[1]);
+  
+  AU3_MouseWheel(rstr_to_wstr(argv[0]), clicks);
+  
+  if (AU3_error() == 1)
+  {
+    sprintf(err, "Unrecognized mouse wheel direction '%s'!", StringValuePtr(argv[0]));
+    rb_raise(Au3Error, err);
+  }
+  
+  return Qnil;
+}

data/ext/parts/process.c

@@ -0,0 +1,143 @@
+/*
+*This file is part of au3. 
+*Copyright � 2009 Marvin G�lker
+*
+*au3 is published under the same terms as Ruby. 
+*See http://www.ruby-lang.org/en/LICENSE.txt
+*
+*=process.c
+*Functions to manipulate Windows processes. 
+*/
+
+VALUE method_close_process(VALUE self, VALUE pid)
+{
+  LPCWSTR proc = rstr_to_wstr(rb_funcall(pid, rb_intern("to_s"), 0));
+  AU3_ProcessClose(proc);
+  return Qnil;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_process_exists(VALUE self, VALUE pid)
+{
+  long result;
+  LPCWSTR proc = rstr_to_wstr(rb_funcall(pid, rb_intern("to_s"), 0));
+  
+  if (result = AU3_ProcessExists(proc))
+    return INT2NUM(result);
+  else
+    return Qfalse;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_set_process_priority(VALUE self, VALUE pid, VALUE priority)
+{
+  LPCWSTR proc = rstr_to_wstr(rb_funcall(pid, rb_intern("to_s"), 0));
+  char err[100];
+  
+  AU3_ProcessSetPriority(proc, FIX2INT(priority));
+  
+  switch (AU3_error())
+  {
+    case 1:
+    {
+      sprintf(err, "Failed to set process priority of process %s!", to_char(proc));
+      rb_raise(Au3Error, err);
+    }
+    case 2:
+    {
+      sprintf(err, "Unsupported priority %i!", FIX2INT(priority));
+      rb_raise(Au3Error, err);
+    }
+  }
+  
+  return FIX2INT(priority);
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_wait_for_process(int argc, VALUE argv[], VALUE self)
+{
+  int timeout = 0;
+  LPCWSTR proc = rstr_to_wstr(rb_funcall(argv[0], rb_intern("to_s"), 0));
+  check_for_arg_error(argc, 1, 2);
+  if (argc == 2)
+    timeout = NUM2INT(argv[1]);
+  return AU3_ProcessWait(proc, timeout) ? Qtrue : Qfalse;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_wait_for_process_close(int argc, VALUE argv[], VALUE self)
+{
+  int timeout = 0;
+  LPCWSTR proc = rstr_to_wstr(rb_funcall(argv[0], rb_intern("to_s"), 0));
+  check_for_arg_error(argc, 1, 2);
+  if (argc == 2)
+    timeout = NUM2INT(argv[1]);
+  return AU3_ProcessWaitClose(proc, timeout) ? Qtrue : Qfalse;
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_run(int argc, VALUE argv[], VALUE self)
+{
+  LPCWSTR dir = to_wchar_t("");
+  int flag = 1;
+  long int pid;
+  check_for_arg_error(argc, 1, 3);
+  
+  if (argc >= 2)
+    dir = rstr_to_wstr(argv[1]);
+  if (argc >= 3)
+  {
+    if (TYPE(argv[2]) == T_FALSE || TYPE(argv[2]) == T_NIL)
+      flag = 0;
+    else
+      flag = 1;
+  }
+  pid = AU3_Run(rstr_to_wstr(argv[0]), dir, flag);
+  
+  //Gebe false bei Fehlschlag zur�ck
+  if (AU3_error())
+    return Qfalse;
+  else
+    return INT2NUM(pid);
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_run_as_set(int argc, VALUE argv[], VALUE self)
+{
+  int flag = 1;
+  
+  check_for_arg_error(argc, 3, 4);
+  
+  if (argc == 4)
+    flag = FIX2INT(argv[3]);
+  
+  if (AU3_RunAsSet(rstr_to_wstr(argv[0]), rstr_to_wstr(argv[1]), rstr_to_wstr(argv[2]), flag))
+    return Qtrue;
+  else
+    rb_raise(rb_eNotImpError, "The method 'run_as_set' is not implemented on your system!");
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_run_and_wait(int argc, VALUE argv[], VALUE self)
+{
+  LPCWSTR dir = to_wchar_t("");
+  int flag = 1;
+  long int exitcode;
+  long int err;
+  check_for_arg_error(argc, 1, 3);
+  
+  if (argc >= 2)
+    dir = rstr_to_wstr(argv[1]);
+  if (argc >= 3)
+  {
+    if (TYPE(argv[2]) == T_FALSE || TYPE(argv[2]) == T_NIL)
+      flag = 0;
+    else
+      flag = 1;
+  }
+  exitcode = AU3_RunWait(rstr_to_wstr(argv[0]), dir, flag);
+  
+  //Gebe den korrekten Exitstatus zur�ck
+  if (err = AU3_error())
+    return LONG2NUM(err);
+  else
+    return LONG2NUM(exitcode);
+}
+//------------------------------------------------------------------------------------------------------------------------------------------
+VALUE method_shutdown(VALUE self, VALUE code)
+{
+  return (INT2NUM(AU3_Shutdown(FIX2INT(code))) == 0 ? Qfalse : Qtrue);
+}