Advertisement
Guest User

Untitled

a guest
Dec 30th, 2018
142
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #cs ----------------------------------------------------------------------------
  2.  
  3.  AutoIt Version: 3.3.12.0
  4.  Author:         myName
  5.  
  6.  Script Function:
  7.     Template AutoIt script.
  8.  
  9. #ce ----------------------------------------------------------------------------
  10.  
  11. ; Script Start - Add your code below here
  12.  
  13.  
  14.  
  15.  
  16. ;Definimos, establecemos, que la tecla "d" comenzará nuestro BOT
  17. ;Indicamos, Señalamos que la funcion se va a llamar comenzar
  18. HotKeySet("{d}","comenzar")
  19.  
  20.  
  21. ;Definimos, establecemos, que la tecla "1" terminará nuestro BOT
  22. ;Indicamos, Señalamos que la funcion se va a llamar terminar
  23. HotKeySet("{1}","terminar")
  24.  
  25.  
  26. #region --- Au3Recorder generated code Start (v3.3.9.5 KeyboardLayout=0000040A)  ---
  27.  
  28. #region --- Internal functions Au3Recorder Start ---
  29. Func _Au3RecordSetup()
  30. Opt('WinWaitDelay',100)
  31. Opt('WinDetectHiddenText',1)
  32. Opt('MouseCoordMode',0)
  33. Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
  34. If $aResult[1] <> '0000040A' Then
  35.   MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(0000040A->' & $aResult[1] & ')')
  36. EndIf
  37.  
  38. EndFunc
  39.  
  40. Func _WinWaitActivate($title,$text,$timeout=0)
  41.     WinWait($title,$text,$timeout)
  42.     If Not WinActive($title,$text) Then WinActivate($title,$text)
  43.     WinWaitActive($title,$text,$timeout)
  44. EndFunc
  45.  
  46.  
  47. ;---------//////AQUÍ VA LA INTERFAZ GRÁFICA DEL PROGRAMA ALGO SENCILLO////------------
  48. ;Lo que dice include son simplemente librerías para poder
  49. ;comenzar a dibujar los botones, etc.
  50. #include <GUIConstantsEx.au3>
  51. #include <StaticConstants.au3>
  52. #include <WindowsConstants.au3>
  53.  
  54. #Region ### START Koda GUI section ### Form=
  55. ;Aquí comenzamos a dibujar la interfaz, botones, labels(texto en el formulario, ventana)
  56. $TuBot = GUICreate("TuBot", 234, 166, 192, 124)
  57.  
  58. ;Establecemos el color de fondo del formulario
  59. GUISetBkColor(0xA6CAF0)
  60.  
  61. ;Creamos un label y elegimos su fuente
  62. $Label1 = GUICtrlCreateLabel("C: Comenzar BOT", 16, 32, 173, 28)
  63. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  64.  
  65.  
  66. ;Creamos otro label y elegimos su fuente
  67. $Label2 = GUICtrlCreateLabel("T:Terminar BOT", 16, 96, 155, 28)
  68. GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
  69.  
  70. ;Con este estado indicamos que se mostraran todos los componentes en el formulario o ventana
  71. GUISetState(@SW_SHOW)
  72. #EndRegion ### END Koda GUI section ###
  73.  
  74. While 1
  75.     $nMsg = GUIGetMsg()
  76.     Switch $nMsg
  77.         Case $GUI_EVENT_CLOSE
  78.             Exit
  79.  
  80.     EndSwitch
  81. WEnd
  82. ;--------//////AQUÍ TERMINA NUESTRA INTERFAZ GRÁFICA /////---------------------------
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90.  
  91. ;Aquí nuestra función comenzar, es Activada, LLAMADA, cuando apretamos la tecla "c"
  92. Func comenzar()
  93. ;Aqui colocaremos todo lo grabado
  94.  
  95. ;Invocamos la funcion definida arriba
  96. _AU3RecordSetup()
  97. #endregion --- Internal functions Au3Recorder End ---
  98.  
  99. ;Invocamos esta otra definida arriba
  100. _WinWaitActivate("Reciente - Mi Taringa! - Google Chrome","")
  101. MouseClick("left",185,243,1)
  102. MouseClick("left",182,241,1)
  103. Send("{SHIFTDOWN}e{SHIFTUP}stamos{SPACE}shouteando.")
  104. MouseClick("left",654,295,1)
  105. MouseClick("left",337,361,1)
  106. MouseClick("left",270,256,1)
  107. MouseClick("left",270,256,1)
  108. #endregion --- Au3Recorder generated code End ---
  109.  
  110. EndFunc
  111.  
  112. ;Aquí nuestra función terminar, es Activada, LLAMADA, cuando apretamos la tecla "t"
  113. Func terminar()
  114.    exit
  115.    EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement