funciones con xdotool

' Gambas module file

Public Function xmouse(cadena As String) As String

  Dim x As String[]

  x = Split(cadena, " ")
  x[0] = Mid$(x[0], 3)
  Return x[0]

End

Public Function ymouse(cadena As String) As String

  Dim x As String[]

  x = Split(cadena, " ")
  x[1] = Mid$(x[1], 3)
  Return x[1]

End

Public Function ejecutar_comando(comando As String) As String

  Dim resultado As String
  'PRINT "Ejecutando: " & comando
  Shell comando To resultado
  If Len(resultado) = 0 Or resultado = "" Then
    resultado = "Nulo"
  End If
  'PRINT resultado
  Return resultado

End