Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
- ; #Warn ; Enable warnings to assist with detecting common errors.
- SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
- SetWorkingDir %A_ScriptDir% ; Ensures a consistent starting directory.
- Difference = 50
- playDuration = 1500
- InputBox, minValue, Min number,,,150, 125
- If ErrorLevel {
- ExitApp
- }
- else if (minValue == "") {
- Msgbox, no min value variable
- Reload
- }
- else {
- ;Sleep, 500
- ;Msgbox, %value%\n %Range%
- InputBox, maxValue, Max number,,,150, 125
- If ErrorLevel {
- ExitApp
- }
- else if (maxValue == "") {
- Msgbox, no max value variable
- Reload
- }
- else {
- ;Msgbox, %minValue% `n%maxValue%
- }
- }
- Numpad7::
- Loop {
- if (minValue > maxValue)
- break
- if GetKeyState("F", "P")
- break
- ; Double left click to select all then sends the new value
- Mousemove, %inputX%, %inputY%
- Click, 2
- Send, % minValue
- ; Moves the mouse to the play button, plays the tone for the playDuration, stops and move back up to input box then repeat.
- Mousemove, %playX%, %playY%
- Click
- sleep, %playDuration%
- Mousemove, %playX%, %playY%
- Click
- minValue := minValue + Difference
- }
- return
- ; If you don't want to repress Numpad8 and 9 everytime the script starts, you can hardcode the values.
- ; Remove the ; infront of the clipboard command for Numpad8 and 9. This will copy the X and Y values directly to your clipboard
- ; After the X and Y saved to your clipboard, simply remove the variable names with the values
- ; inputX/Y is the inputbox that accepts the Frequency. playX/Y is just the play tone button.
- ; Example: Mousemove, %playX%, %playY% will instead look something like this: Mousemove, 966, 639
- Numpad8::
- MouseGetPos, inputX, inputY
- ;clipboard = %inputX%, %inputY%
- return
- Numpad9::
- MouseGetPos, playX, playY
- ;clipboard = %playX%, %playY%
- return
- `::Reload
- End::ExitApp
Advertisement
Add Comment
Please, Sign In to add comment