Advertisement
jsbsan

funciones con xdotool

May 29th, 2014
1,696
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ' Gambas module file
  2.  
  3. Public Function xmouse(cadena As String) As String
  4.  
  5.   Dim x As String[]
  6.  
  7.   x = Split(cadena, " ")
  8.   x[0] = Mid$(x[0], 3)
  9.   Return x[0]
  10.  
  11. End
  12.  
  13. Public Function ymouse(cadena As String) As String
  14.  
  15.   Dim x As String[]
  16.  
  17.   x = Split(cadena, " ")
  18.   x[1] = Mid$(x[1], 3)
  19.   Return x[1]
  20.  
  21. End
  22.  
  23. Public Function ejecutar_comando(comando As String) As String
  24.  
  25.   Dim resultado As String
  26.   'PRINT "Ejecutando: " & comando
  27.   Shell comando To resultado
  28.   If Len(resultado) = 0 Or resultado = "" Then
  29.     resultado = "Nulo"
  30.   End If
  31.   'PRINT resultado
  32.   Return resultado
  33.  
  34. End
Advertisement
RAW Paste Data Copied
Advertisement