Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #Requires AutoHotkey v2.0
- #SingleInstance Force
- ; Script AutoHotkey para escribir texto del portapapeles letra por letra
- ; Atajo: Ctrl + Shift + V
- ^+v:: {
- texto := Trim(A_Clipboard)
- ; Configuración de tiempos de espera
- esperaMin := 10 ; Tiempo mínimo de espera entre letras en ms
- esperaMax := 50 ; Tiempo máximo de espera entre letras en ms
- esperaLineaMin := 20 ; Tiempo mínimo de espera entre líneas en ms
- esperaLineaMax := 100 ; Tiempo máximo de espera entre líneas en ms
- ; Verificar si el portapapeles está vacío
- if (texto = "") {
- TrayTip("El portapapeles está vacío", "PegarEscribiendo", 1)
- return
- }
- ; Dividir el texto en líneas
- lineas := StrSplit(texto, "`n", "`r")
- ; Iterar sobre cada línea
- for _, linea in lineas {
- ; Espera aleatoria antes de enviar cada línea
- espera := Random(esperaMin, esperaMax)
- SetKeyDelay(espera)
- ; Enviar el texto de la línea actual
- SendText(linea)
- ; Enviar un salto de línea si no es la última línea
- if (A_Index < lineas.Length) {
- Sleep(esperaLineaMin)
- SetKeyDelay(esperaMax)
- SendText(" ")
- SendEvent("{Backspace}+{Enter}") ; Enviar Enter para nueva línea
- }
- ; Espera aleatoria después de cada línea
- espera := Random(esperaLineaMin, esperaLineaMax)
- Sleep(espera)
- }
- return
- }
- ; Mostrar notificación inicial
- TrayTip("Script cargado`nPresiona Ctrl + Shift + V para usarlo", "PegarEscribiendo", 1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
