Pastebin
API
tools
faq
paste
Login
Sign up
Please fix the following errors:
New Paste
Syntax Highlighting
; <COMPILER: v1.0.48.5> #SingleInstance, Force #Persistent #InstallKeybdHook #UseHook, On FindClick(ImageFile="", Options="", ByRef FoundX="", ByRef FoundY="") { Static Cache , Center, Silent, Delim, Count, CharX, CharY, CharN, Sleep, Stay, Func, dx, d, m, x, y, o, n, k, r, e, a, w, t, f , ImageW, ImageH, LastX1, LastY1, ImageFilePath , LastOptions, LastImageFile, MonitorInfo, DxInfo , GuiHWND, GuiCommand, GuiTitle , Error, Message, Buttons, # := "`t", $ := "`r" GlobalSettingsLocation = %A_LineNumber% DefaultDirs = %A_AhkPath%\..\Graphics|%A_Desktop%|%A_ScriptDir%|%A_Temp%|C:\Dropbox\AutoHotkey\Graphics DefaultExts = png|bmp GuiA = 97 GuiB = 98 Literal := """" UseRGB = %False% ForumURL = http://www.autohotkey.com/board/topic/89592-findclick-2nd-edition DocumentationURL = https://www.cubby.com/pl/FindClick.pdf/_feba12f92a604faead036f157a95ba6b LastUpdate = November 16, 2013 If (ImageFile <> "") and (Asc(ImageFile) <> 62) { If (LastImageFile <> ImageFile) or (Options <> LastOptions) { If (Asc(Cache) = 62) SpecialLaunch := SubStr(Cache, 2, 1), Cache := SubStr(Cache, 3) If (LastImageFile <> "") Cache := LastImageFile A_Tab ImageFilePath A_Tab ImageW "|" ImageH "|" LastX1 "|" LastY1 "`n" Cache, LastImageFile := "" If (SpecialLaunch <> 3) { DefaultOptionsLocation := A_LineNumber , o := "", o_user := "*15" , a := "", a_user := "m100" , r := "", r_user := "A" , x := 0, x_user := "Abs" , y := 0, y_user := "Abs" , n := 1, n_user := 0 , e := "", e_user := 0.85 , w := "", w_user := "0,100" , dx := "", dx_user := True , k := "{Click}", k_user := "{RButton}" , Stay := False, Stay_user := True , Count := False, Count_user := True , d := "", d_user := "MousePos" , m := "Input", m_user := "ControlClick" , Sleep := 20, Sleep_user := 0 , t := "", t_user := "10%" , Silent := False, Silent_user := True , Center := True, Center_user := False , Delim := "`n", Delim_user := A_Tab , f := "x,y", f_user := "x y n" , Func := "", Func_user := "" , CharX := "x", CharX_user := "x" , CharY := "y", CharY_user := "y" , CharN := "n", CharN_user := "n" UserConfig_foo = r"Test Window" mControlClick UserConfig_log = dx"SaveTo=%A_Desktop%\FindClickDebug.txt" } @5 := 1, TempOptions := Options, Commands := "Center|Silent|Delim|Count|CharX|CharY|CharN|Sleep|Stay|Func|Err|dx|d|m|x|y|o|n|k|r|e|a|w|t|f" If SpecialLaunch and (SpecialLaunch <> 4) { OptionInfo = ( m SendMode for keystrokes What to give [Event|Play|Input|Default|ControlClick|First letter of any of these words] Description The send mode (or first letter thereof) to use for clicks, i.e. Input, Play, or Event. Specify ControlClick (or c) to use a controlclick instead of a simulated keystroke. If m is blank or the letter d (for default), the current SendMode will be used. -------------------------------------------------------------------------------- x X Offset What to give An integer Description This many pixels will be incremented to the click coordinates before clicking. A positive x value will click left of the image, a negative value will click to the right. This change will also show up in the string that is returned by the function and the coordinates stored in the ByRef variables. -------------------------------------------------------------------------------- y Y Offset What to give An integer Description This many pixels will be incremented to the click coordinates before clicking. A positive y value will click below the image, and a negative value will click above it. This change will also show up in the string that is returned by the function and the coordinates stored in the ByRef variables. -------------------------------------------------------------------------------- f Format of output string What to give Template string that includes the CharX and/or CharY and/or CharN characters. Description The given string represents a template into which image x-coordinate, y-coordinate, and instance number will be substituted. Each time an image is found, the CharX, CharY, and CharN characters will be replaced with these values. The final string is returned by the function. See the examples section of the documentation for an example. -------------------------------------------------------------------------------- Delim Delimiter for multiple images What to give Any character or characters Description If e is used and multiple images are found then each image's info is separated by this character(s) in the returned string. The format of the image info is determined by f. -------------------------------------------------------------------------------- Stay Do not restore mouse What to give True or False (1 or 0) Description Normally after any clicks executed by FindClick the mouse will be immediately returned to its initial location. If Stay is true then the mouse will NOT return to its original position after FindClick finishes. -------------------------------------------------------------------------------- o ImageSearch Options What to give Comma-delimited string of imagesearch options. Description The imagesearch options are the Optional parameters for ImageSearch, as shown in documentation. Use a comma to separate options. You may omit the asterisk (*). For example: oTransBlack,20 makes black transparent and allows 20 shades of variation. -------------------------------------------------------------------------------- n Number of clicks What to give Any number Description The number of times to click on each image. Indicate 0 (the default) to do no clicking whatsoever and just return the coordinates of the found image(s). In this sense, specifying just n is like saying "no clicking". Without clicks, the m, d, and k options are irrelevant, however, the x and y values will still be added to the output coordinates. -------------------------------------------------------------------------------- Sleep Sleep milliseconds What to give Any number of milliseconds Description Number of milliseconds to sleep between each click if n > 1 or e and multiple images found. -------------------------------------------------------------------------------- k Keystroke(s) What to give Key to send (in the same format as the AutoHotkey Send command) Description Indicate the keys to press (if any) when each image is found. k can include multiple keypresses and even non-mouse keys, for instance, ^{Space}. If ControlClick is in effect the format is different (see the ControlClick documentation) and a left click will be assumed if an incorrect k is given. -------------------------------------------------------------------------------- r Relative to Window Coords What to give Window Title criteria, or a window HWND Description The search area becomes the area of the given window instead of the entire screen area. This is useful when scanning for an element which only appears on a particular window – reducing the search area improves performance. Use of the s option in conjunction with r will apply these offsets to the window coordinates. -------------------------------------------------------------------------------- e Find Every Image What to give Positive fraction between 0 and 1 Description If this option is nonblank then FindClick will find (and click) EVERY instance found. This means that after any successful imagesearch execution the script will queue up a new call of imagesearch which represents the screen area left unsearched by the first call. (Note that this therefore makes FindClick slower for any use in which you don't expect to find more than one image.) The value of e signifies the overlap between search areas, in terms of the fraction of the image width and height. Overlap should normally be near 1 except if the image is uniform throughout, e.g. a 10x10 square image containing mostly white pixels. The t, d, and Count options all require the "find every image" ehavior as part of their execution and so using any of these other options implies e, however, you may still specify a custom value for e to change the overlap for these other behaviors. -------------------------------------------------------------------------------- a Search Area Modifications What to give x[,y,w,h] OR mn Description Region within which to search for the image. Indicate either of the following: 1) A comma-delimited list in the format x,y,w,h. List items may be blank or absent to leave that value unchanged. Coordinates are relative to the window if the a option is true. For w and h, use +/- to indicate a change to the normal endpoint (depending on a, either the edge of the screen or active window). For instance, s,,-300 will search the entire screen (or window if a is specified) except for the last 300 pixels of the right side – the width of the search area has been reduced by 300. 2) The letter m and then a number to search a square region centered at the cursor position and with a width and height twice that number. -------------------------------------------------------------------------------- w Wait until image is found What to give Number of milliseconds [, Number of milliseconds] Description If the image is not found, the function will wait this many milliseconds for it to appear before returning. You may add a comma and then a second number which indicates the delay in milliseconds between subsequent imagesearches. For example 2000,50 means the function will look for the image every 50ms until either the image is found or 2000ms elapse, for a maximum of 40 imagesearch operations. If omitted, this delay will be the smaller of either the wait time divided by 10 or 100ms. -------------------------------------------------------------------------------- t Image Tracking What to give A percent OR a number of pixels Description This option is used to improve performance if an image will be found nearby where its last location. By analogy it's like tracking the course of a thrown ball. The script will first search nearby the last found position and if it is not found there then the rest of the area will be searched. Indicate a percentage to search within that percentage of the search area in each direction – for instance, the string 20`% will first search a box that begins 20`% of the distance between the starting x position and the last found x position, and likewise for all four directions. On the other hand, indicating a number will simply search a box that many pixels from the last found area before searching the rest of the s area. Indicate 0 to search EXACTLY the last found location first. If t is negative (including -0) then it will ONLY search in the region requested, and will not go on to search the rest of the screen if the image is not found there. -------------------------------------------------------------------------------- Silent No Dialogs What to give True or False Description Instead of displaying an error dialog when an error prevents the function from executing properly (for instance, if the image file is not found), it will silently return a blank string and set the ErrorLevel to the error message. The errors concerned should not appear during normal execution and so Silent is generally not recommended. -------------------------------------------------------------------------------- Count Return found count What to give True or False Description If Count is true then the function will return the number of items found instead of their coordinates. e is assumed if absent. -------------------------------------------------------------------------------- dx Diagnostic Mode What to give Comma delimited list of diagnostic mode options (see below) Description Will illustrate where clicks take place with an on-screen display. Currently the comma-separated options aren't really working, sorry about that! -------------------------------------------------------------------------------- Center Start at center of image What to give True or False (1 or 0) Description If Center is true then clicks will occur at the center of the image, i.e. its found position plus half its width and half its height. The x and y options treat this as 0, 0 – for instance, by default an x of 2 will click 2 pixels to the right of the image center. Indicate false to instead start at the top left corner of the image. -------------------------------------------------------------------------------- Func Function Callout What to give The name of a function in the script Description Each time an image is found, instead of clicking on the image or executing keystrokes the given function will be called. The function must accept at least two parameters: the x-coordinate of the image will be passed in the first parameter, and the y-coordinate will be passed in the second parameter. Note that any thread settings such as CoordMode that are changed within the function will carry over to FindClick when the function is done. -------------------------------------------------------------------------------- d Direction Of Search What to give Left|Right|Bottom Description This setting attempts to emulate the mode of pixelsearch where you can search from right to left or top to bottom – for instance, specifying Bottom will find the image closest to the bottom of the search area. However, to accomplish this the script needs to first find every image and then choose the coordinate pair that is furthest in the requested direction, making it a time-consuming process. ) OptionInfo := RegExReplace(OptionInfo, "(?:`n|^)\K\s+"), OptionInfo := "`r" RegExReplace(OptionInfo, "\s*-{5,}\s*", "`r"), OptionInfo := RegExReplace(OptionInfo, "[ \t]{3,}|\t+", "`t") If (SpecialLaunch <> 3) Loop, Parse, Commands, | OptionInfo := RegExReplace(OptionInfo, "i)`r" A_LoopField "`t[^`n]+", "$0`nDefault`t" %A_ThisFunc%(">Escape<", %A_ThisFunc%(">ShowChars<", %A_LoopField%)) "`nUser Default`t" %A_ThisFunc%(">Escape<", %A_ThisFunc%(">ShowChars<", %A_LoopField%_user))) If SpecialLaunch in 2,3 Return OptionInfo DllCall("QueryPerformanceCounter", "Int64*", QPC) , TempCommands := Commands, VarSetCapacity(DxInfo, 2500) , DxInfo := A_TickCount A_Tab QPC "`r1:Initializing function" # . "q:" QPC # . "t:Function called at " A_Hour ":" A_Min ":" A_Sec "." A_MSec "`n`nThe following values were passed as parameters to the function:`n<table>ImageFile;%ImageFile%`nOptions;%Options%</table>`n`nThe following script settings were inherited from the current thread:`n<table>Thread Name;%A_ThisLabel%`nWorking Dir;%A_WorkingDir%`nBatch Lines;%A_BatchLines%`nTitle Match Mode;%A_TitleMatchMode%</table>" # . "c1:ImageFile:" %A_ThisFunc%(">Escape<", ImageFile) # . "c2:Options:" %A_ThisFunc%(">Escape<", Options) # . "c3:A_ThisLabel:" A_ThisLabel # . "c4:A_WorkingDir:" A_WorkingDir # . "c5:A_BatchLines:" A_BatchLines # . "c6:A_TitleMatchMode:" A_TitleMatchMode # . "l:" A_LineNumber - 1 # } If DxInfo DxInfo .= $ "2:Parsing options" # . "t:The information passed to " A_ThisFunc "() through the options parameter (2nd param) will now be parsed into individual script settings." # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "l:" A_LineNumber + 1 While (@5 := RegExMatch(TempOptions, "i)(?:^|\s)(?:!(\w+)|(\+|-)?(" Commands ")(" Literal "(?:[^" Literal "]|" Literal Literal ")*" Literal "(?= |$)|[^ ]*))", @, @5 + StrLen(@))) { If (@1 <> "") { TempOptions := SubStr(TempOptions, 1, @5 + StrLen(@)) A_Space UserConfig_%@1% SubStr(TempOptions, @5 + StrLen(@)) If DxInfo DxInfo .= $ "2:Loading user configuration: !" @1 # . "l:" DefaultOptionsLocation + 1 # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "c1:UserConfig:" @1 # . "c2:Options:" %A_ThisFunc%(">Escape<", TempOptions) # . "t:<table>User configuration;!%UserConfig%`nOptions string after modification;%Options%`n`nUser configurations can be found below the script options near the top of the code." # } Else If (@4 <> "") { If (InStr(@4, Literal) = 1) and (@4 <> Literal) and (SubStr(@4, 0, 1) = Literal) and (@4 := SubStr(@4, 2, -1)) StringReplace, @4, @4, %Literal%%Literal%, %Literal%, All %@3% := @4 } Else %@3% := @2 = "+" ? True : @2 = "-" ? False : %@3%_user If DxInfo { RegExMatch(OptionInfo, "i)`r" @3 "`t\K[^`n]+", @6) DxInfo .= $ "3:" @3 # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:<table>Option ID;" @3 "`nDescription;" (@5 = "" ? "UNKNOWN!" : @6) "`nNew value;%" @3 "%`nAssign type;" (@4 = "" ? "User default</table>`n`nUser default means that the option was indicated without a value so the value defaulted to this string" : "Custom string</table>`n`nCustom string means the user put a string after the option ID, so it now takes that value.") # . "l:" A_LineNumber - 2 # . "c1:" @3 ":" %A_ThisFunc%(">Escape<", %@3%) # StringReplace, TempCommands, TempCommands, |%@3%|, | } } If (SpecialLaunch = 4) Return If (dx <> "") If DxInfo { @ := "t:The remaining script settings take the following default values:`n`n<table>" , DxInfo .= $ "2:Other script settings" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "l:" DefaultOptionsLocation # Loop, Parse, TempCommands, | If (A_LoopField <> "") DxInfo .= "c" A_Index ":" A_LoopField ":" %A_ThisFunc%(">Escape<", %A_LoopField%) # , @ .= A_LoopField ";%" A_LoopField "%`n" DxInfo .= @ "</table>" } Else { Cache := ">>" Cache Return %A_ThisFunc%(ImageFile, Options) } LastOptions := Options, @ := LastImageFile, LastImageFile := ImageFile If DxInfo DxInfo .= $ "1:Preparing Image File" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:The image file that was specified for use with imagesearch must now be located on the hard drive, and its size must be measured." # . "l:" A_LineNumber + 1 If !(((ImageFile = @) and FileExist(ImageFilePath)) or %A_ThisFunc%(">ParseCache<", ImageFile)) { NewImage := True, ImageFilePath := "" If RegExMatch(ImageFile, "i)^\*(?:0x)?([0-9A-F]{2})([0-9A-F]{2})([0-9A-F]{2})(?:\D*(\d+)\D*(\d+).*?)?$", @) { ImageW := @4 ? @4 : 1, ImageH := @5 ? @5 : 1, Color := UseRGB ? @1 @2 @3 : @3 @2 @1 If DxInfo DxInfo .= $ "2:PixelSearch Set" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:The ImageFile parameter was recognized as a pixel color so the function will search for pixels of this color. The mechanism for this search however will remain ImageSearch.`n`n<table>Color;%Color%`nColor is RGB;%UseRGB%`nRegion Width;%ImageW%`nRegion Height;%ImageH%</table>" # . "l:" A_LineNumber - 2 # . "c1:Color:" Color # . "c2:UseRGB:" UseRGB # . "c3:ImageW:" ImageW # . "c4:ImageH:" ImageH # If !FileExist(ImageFilePath := A_Temp "\" A_ThisFunc "_" Color "_" ImageW "x" ImageH ".png") { If DxInfo DxInfo .= $ "2:Building image of color #" Color # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:A temporary png image will be created of the color specified. This is relatively time-consuming but only need be done once as long as the png file remains in the temporary folder.`n`nWindows Temp Dir: %A_Temp%" # . "c1:A_Temp:" A_Temp # . "l:" A_LineNumber - 2 # VarSetCapacity(Colors, ImageW * ImageH * 7) Loop % ImageW * ImageH Colors .= "|" Color %A_ThisFunc%(">MakeImage<", A_Temp "\" A_ThisFunc "_" Color "_" ImageW "x" ImageH "|png|" ImageW "|" ImageH Colors) } } Else { DefaultDirs := SubStr(RegExReplace(DefaultDirs "|", "\\*(?:\||^)+", Asc(ImageFile) = 92 ? "|" : "\|"), 2, -1), DefaultExts := SubStr(RegExReplace("|" DefaultExts "|", "\|\.*", "|."), 1, -2) If DxInfo DxInfo .= $ "2:ImageFile not seen before" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:Image file """ ImageFile """ has not been seen before by the function so it will now look through the default locations to find the full image path." # . "l:" GlobalSettingsLocation # . "d:2" Loop, Parse, DefaultDirs, | { ThisDir := A_LoopField If DxInfo DxInfo .= $ "3:" (A_Index = 1 ? "(Working Dir)" : SubStr(ThisDir, 1, -1)) # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:Directory #" A_Index " is:`n`n%ThisDir%`n`n(This can be specified at the top of the script in DefaultDirs.)" # . "c1:ThisDir:" %A_ThisFunc%(">Escape<", ThisDir) Loop, Parse, DefaultExts, | If FileExist(ThisDir ImageFile A_LoopField) { If InStr(FileExist(ImageFilePath := ThisDir ImageFile A_LoopField), "D") ImageFilePath := "" Else Break } Else If DxInfo DxInfo .= $ "4:" ImageFile A_LoopField # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:Trying file path:`n`n%ImageFilePath%`n`nFile does not exist." # . "c1:ImageFilePath:" %A_ThisFunc%(">Escape<", ThisDir ImageFile A_LoopField) # . "d:1" # . "l:" A_LineNumber - 6 If (ImageFilePath <> "") Break } If (ImageFilePath = "") { Error = File Not Found Message = Image file "%ImageFile%" not found. Buttons = &Create Image,&Debug,E&xit,&Help If (%A_ThisFunc%(">Error<") = "Create Image") %A_ThisFunc%(">>" ImageFile, Options) Return } Else If DxInfo DxInfo .= $ "4:Image file found" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:Trying file path:`n`n%ImageFilePath%`n`nImage file found!" # . "c1:ImageFilePath:" %A_ThisFunc%(">Escape<", ImageFilePath) # . "l:" A_LineNumber - 10 # . "d:1" If !%A_ThisFunc%(">ParseCache<", ImageFilePath) { If DxInfo DxInfo .= $ "2:Measuring width and height" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:The image dimensions will be measured by quickly creating an AutoHotkey GUI containing the image. This is a relatively CPU-intensive step but only need be done once per session - the information is stored in the cache for future calls with the same image.`n`n<table>Image Width;%ImageW%`nImage Height;%ImageH%</table>" Gui, %GuiA%:Add, Picture, Hwnd@, %ImageFilePath% WinGetPos, , , ImageW, ImageH, ahk_id %@% Gui, %GuiA%:Destroy If (ImageW = "") { Error = Image file type unsupported Message = Image file "%ImageFile%" appears to be of an unsupported filetype. Buttons = &View File,&Debug,E&xit,&Help If (%A_ThisFunc%(">Error<") = "View File") MsgBox, 262160, %A_ScriptName%: Error, Function not yet supported, sorry! Return } If DxInfo DxInfo .= "g:Add,Edit,+ReadOnly -VScroll w" (ImageW > 20 ? ImageW * 15 : 300) "," ImageFilePath ";-E0x20 +Caption +SysMenu;Add,Picture,+Border xp" (ImageW > 20 ? "" : "+" 150 - ImageW * 7.5) " y+10 w" ImageW * 15 " h-1," ImageFilePath ";Show,NA,Preview of image" # . "c1:ImageW:" %A_ThisFunc%(">Escape<", ImageW) # . "c2:ImageH:" %A_ThisFunc%(">Escape<", ImageH) # . "l:" A_LineNumber - 7 # . "d:5" } } } If (o <> "") { If DxInfo @ := o o := SubStr(RegExReplace(A_Space o, "[^\w-]+", " *"), 2) A_Space If DxInfo and (o <> @ A_Space) DxInfo .= $ "2:Refining imagesearch options" # . "t:The ImageSearch options (""o"" option) have been modified to fit the AutoHotkey ImageSearch command's format.`n`n<table>Given;%o_original%`nNow;%o%</table>" # . "l:" A_LineNumber - 2 # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "c1:o:" %A_ThisFunc%(">Escape<", SubStr(o, 1, -1)) # . "c2:o_original:" %A_ThisFunc%(">Escape<", @) # } If (Func <> "") { StringReplace, Func, Func, () If !IsFunc(Func) MsgBox, 262160, %A_ScriptName%: Error, Function %Func%() does not exist. Else n := 0 } If (r <> "") and RegExMatch(r, "i)^0x[0-9A-F]{5,8}$") { r := "ahk_id " r If DxInfo DxInfo .= $ "2:Refining WinTitle option" # . "t:The ""r"" option (relative to window) is a hexadecimal number, so it will be interpreted as a window handle and becomes ""%r%""." # . "l:" A_LineNumber - 2 # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "c1:r:" %A_ThisFunc%(">Escape<", r) # } If d If (InStr(d, "t") = 1) or (InStr(d, "u") = 1) { If DxInfo DxInfo .= $ "2:Ignoring d option" # . "t:The ""d"" (directional) option was given as ""%d%"" which will be ignored since the top image is the one that ImageSearch finds by default." # . "c1:d:" d # . "l:" A_LineNumber + 1 # . "q:" DllCall("QueryPerformanceCounter", "Int648", QPC) * QPC # d := "" } Else StringLower, d, d If (e = "") { If Count or d e := e_user Else If (t <> "") e := 0.99 If DxInfo and (e <> "") DxInfo .= $ "2:Overlap set to " e # . "t:Because an option that requires every image to be found was indicated (either ""t"", ""d"", or ""Count""), and because a custom value of ""e"" was not given, it defaults to %e%." # . "c1:e:" e # } If (InStr(m, "c") = 1) { If DxInfo @ := k If k Contains RButton k = Right Else If k Not In Left,Right,Middle,L,R,M,X1,X2,WheelUp,WU,WheelDown,WD,WheelLeft,WL,WheelRight,WR k = Left If DxInfo and (@ <> k) DxInfo .= $ "2;Correcting k option" # . "t:The ""k"" (keystrokes) option was given as ""%@%"" but has been corrected to ""%k%"" because ControlClick was indicated for the ""m"" (SendMode) option, and ControlClick has a different format than the Send command." # . "c1:k:" k # } } Else { If dx Cache := ">3" Cache, OptionInfo := %A_ThisFunc%(A_Space), TempCommands := Commands, DxStartMS := A_TickCount, VarSetCapacity(DxInfo, 2500) , DxInfo .= "1:Initializing function" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:Called at " A_Now # . "l:" A_LineNumber - 1 , DxStartQPC := QPC If DxInfo DxInfo .= $ "2:Restoring previous settings" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:The passed image file and options string is the same as the last time " A_ThisFunc "() was called. The script options have been preserved as static variables and are therefore not parsed. This helps with performance in the case of multiple consecutive searches for the same image. Reload the script to avoid this behavior." } If DxInfo DxInfo .= $ "1:Preparing other script settings" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:If additional options were specified, " A_ThisFunc "() may need to prepare certain settings relevant to these options before performing the imagesearch." # . "l:" A_LineNumber SysGet, MonitorCount, MonitorCount If (MonitorCount <> SubStr(MonitorInfo, 1, InStr(MonitorInfo, "`n") - 1)) { MonitorInfo := MonitorCount Loop %MonitorCount% { SysGet, @, Monitor, %A_Index% MonitorInfo .= "`n" @Left "," @Top ";" @Right - 1 "," @Bottom - 1 } } CoordMode, Pixel CoordMode, Mouse If (r <> "") { WinGetPos, Search1, Search2, Search3, Search4, %r% If (Search1 = "") or (Search3 <= 0) or (Search4 <= 0) { If (Search1 = "") { Error = Window Not Found Message = Window "%r%" was not found. } Else { Error = Window Invisible Message = Window "%r%" reported a negative width and/or height to AutoHotkey, meaning that it is probably not visible on the screen. } Buttons = &Debug,E&xit,&Help %A_ThisFunc%(">Error<") Return } Else If DxInfo DxInfo .= $ "2:Window """ r """ found" # . "t:The ""r"" param was given as:`n" r "`n`nThis window was found at the following coordinates:`n<table>X;" Search1 "`nY;" Search2 "`nW;" Search3 "`nH;" Search4 "</table>`n`nThis is the new search area." # . "l:" A_LineNumber - 1 # . "d:2" Search3 += Search1, Search4 += Search2 } If (a <> "") and (InStr(a, "m") <> 1) { If DxInfo @ := "The ""a"" (Search Area) parameter has been given as """ a """. It will be interpreted as follows:`n`n<table>X;1*`nY;2*`nW;3*`nH;4*</table>" If (r = "") If (MonitorCount > 1) { MouseGetPos, MouseX, MouseY Loop, Parse, MonitorInfo, `n If (A_Index > 1) { StringSplit, Search, A_LoopField, `,; If (MouseX >= Search1) and (MouseY >= Search2) and (MouseX <= Search3) and (MouseY <= Search4) Break } } Else Search1 := 0, Search2 := 0, Search3 := A_ScreenWidth - 1, Search4 := A_ScreenHeight - 1 Loop, Parse, a, |`, If A_LoopField is Number { Search%A_Index% := (A_LoopField >= 0 ? (A_Index & 1 ? Search1 : Search2) : (A_Index & 1 ? Search3 : Search4)) + A_LoopField If DxInfo StringReplace, @, @, %A_Index%*, % "Now = " Search%A_Index% } If DxInfo DxInfo .= $ "2:Modifying search area" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:" RegExReplace(@, ";\K\d\*", "Unchanged") # . "l:" A_LineNumber - 6 If (Search3 <= Search1) or (Search4 <= Search2) { Error = Search area is 0 Message = The search area requested using the "a" option resulted in an area of 0 pixels, thus the search will not be conducted. Buttons = &Debug,E&xit,&Help %A_ThisFunc%(">Error<") Return } } Found := 0 If (InStr(a, "m") <> 1) { SubRegions := ((a = "") and (r = "") ? SubStr(MonitorInfo, InStr(MonitorInfo, "`n") + 1) : Search1 "," Search2 ";" Search3 "," Search4) "`n" If (w <> "") SubRegionsW := SubRegions } If (t <> "") and (LastX1 <> "") and SubRegions { LastX2 := LastX1 + ImageW - 1, LastY2 := LastY1 + ImageH - 1 Loop, Parse, SubRegions, `n If (A_LoopField <> "") { StringSplit, @, A_LoopField, `,; If (LastX1 >= @1) and (LastX2 <= @3) and (LastY1 >= @2) and (LastY2 <= @4) { StringReplace, t, t, -, , UseErrorLevel @ := ErrorLevel StringReplace, SubRegions, SubRegions, %A_LoopField%`n If InStr(t, "%") LastX1 += (@1 - LastX1) * SubStr(t, 1, -1) / 100, LastY1 += (@2 - LastY1) * SubStr(t, 1, -1) / 100, LastX2 += (@3 - LastX2) * SubStr(t, 1, -1) / 100, LastY2 += (@4 - LastY2) * SubStr(t, 1, -1) / 100 Else If t Is Integer LastX1 -= t, LastY1 -= + t, LastX2 += t, LastY2 += t Else MsgBox, 262160, %A_ScriptName%: Error, Incorrect value of t given SubRegions := LastX1 "," LastY1 ";" LastX2 "," LastY2 ";P`n" . ( @ ? "" : (LastY1 > @2 ? @1 "," @2 ";" @3 "," LastY1 ";Q`n" : "") . (LastX1 > @1 ? @1 "," LastY1 ";" LastX1 "," LastY2 ";R`n" : "") . (@3 > LastX2 ? LastX2 "," LastY1 ";" @3 "," LastY2 ";S`n" : "") . (@4 > LastY2 ? @1 "," LastY2 ";" @3 "," @4 ";T`n" : "") . SubRegions ) Break } } LastX1 := LastY1 := "" } If (w <> "") { StringSplit, w, w, `, If (w2 = "") w2 := !w1 or (w1 > 1000) ? 100 : Floor(w1 / 10) If DxInfo DxInfo .= $ "2:Logging start time" # . "t:Since the ""w"" (wait until found) option was specified, the script stores the current time (%A_TickCount%) and will perform an ImageSearch command every %w2% milliseconds until the image is found" (w1 ? " or %w1% milliseconds elapse." : ".") # . "c1:w1:" w1 # . "c2:w2:" w2 # . "c3:A_TickCount:" A_TickCount # . "q:" DllCall("QueryperformanceCounter", "Int64*", QpC) * QPC # . "l:" A_LineNumber + 1 # If w1 w1 += A_TickCount } If DxInfo DxInfo .= $ "1:Searching for image" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:The actual ImageSearch portion of the script will now begin. This is generally the most CPU-intensive portion of the script." # . "l:" A_LineNumber + 1 Loop { If DxInfo @ := "" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:yyyy" # . "g:+.*Performing.*" # . "l:" A_LineNumber + 1 If (SubRegions <> "") { Search := SubStr(SubRegions, 1, InStr(SubRegions, "`n") - 1), SubRegions := SubStr(SubRegions, InStr(SubRegions, "`n") + 1) StringSplit, Search, Search, `,; If Search5 in A,B e1 := Floor(ImageW * e) Else If Search5 = C e1 := SubRegions = "" ? 0 : Floor(ImageW * e) Else If Search5 in P,R e1 := Floor(ImageW * e) Else e1 := 0 If Search5 in P,Q,R,S e2 := Floor(ImageH * e) Else e2 := 0 } Else If (InStr(a, "m") = 1) { MouseGetPos, Search1, Search2 If DxInfo @ .= $ "3:Retrieving mouse position" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:Since the ""a"" option (search area) was given as ""%a%"", the search area will become a square region " SubStr(a, 2) "*2=" SubStr(a, 2) * 2 " pixels wide around the mouse cursor.`n`nTo find this area, " A_ThisFunc " must now get the mouse position`n`n<table>X-pos;%MouseX%`nY-pos;%MouseY%</table>" # . "l:" A_LineNumber - 2 # . "d:2" # . "u:m" # . "c1:a:" a # . "c2:MouseX:" Search1 # . "c3:MouseY:" Search2 # . "g:Color,Red;Trans,200;Add,Picture,x1 y5 w30 h-1," A_WinDir "\Cursors\larrow.cur;Show,x" Search1 - 20 " y" Search2 - 20 " w40 h40 NA" Search3 := Search1 + SubStr(a, 2), Search4 := Search2 + SubStr(a, 2), Search1 -= SubStr(a, 2), Search2 -= SubStr(a, 2), e1 := 0, e2 := 0 } Else If (MostX <> "") FoundXOrig := MostX, FoundYOrig := MostY, SubRegions := "`n", ErrorLevel := False Else Break If (d = "") or (SubRegions <> "`n") { If DxInfo @ .= $ "3:Performing ImageSearch" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:The following line of code will execute:`n`n%Code_Orig%`n`nType of region: " (Search5 ? Search5 : "Normal") # . "l:" A_LineNumber + 2 # . "u:http://www.autohotkey.com/docs/imagesearch`no" # . "d:5" # . "c1:Code:ImageSearch, FoundX, FoundY, " Round(Search1) ", " Round(Search2) ", " Round(Search3) " + " e1 ", " Round(Search4) " + " e2 ", " o ImageFilePath # . "g:Color,FF9999,FF9999;Trans,80;Show,NA x" Search1 " y" Search2 " w" Search3 - Search1 + e1 + 1 " h" Search4 - Search2 + e2 + 1 ImageSearch, FoundXOrig, FoundYOrig, Search1, Search2, Search3 + e1, Search4 + e2, %o%%ImageFilePath% } If (ErrorLevel = 2) { If NewImage Return %A_ThisFunc%(ImageFile, Options) Error = File Not Found Message = AutoHotkey was unable to use the image "%ImageFile%" for searching. Buttons = &View File,&Debug,E&xit,&Help If (%A_ThisFunc%(">Error<") = "View File") MsgBox, 262160, %A_ScriptName%: Error, Function not yet supported, sorry! Return } Else If !ErrorLevel { If DxInfo DxInfo .= $ "2:" (SubRegions = "`n" ? "Selecting " d "-most Image" : "Search #" A_Index " - Success") @ . $ "3:Image Found at " FoundXOrig ", " FoundYOrig # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:The image was found at the coordinates (%FoundX%, %FoundY%). These coordinates are relative to the screen." # . "l:" A_LineNumber - 3 # . "d:5" # . "g:Color,Blue;Trans,80;Add,Progress,-0x20000 cRed x10 y10 w30 h30,100;Add,Progress,-0x20000 cRed x" 40 + ImageW " y10 w30 h30,100;Add,Progress,-0x20000 cRed x10 y" 40 + ImageH " w30 h30,100;Add,Progress,-0x20000 cRed x" 40 + ImageW " y" 40 + ImageH " w30 h30,100;Show,NA x" FoundXOrig - 40 " y" FoundYOrig - 40 " w" 80 + ImageW " h" 80 + ImageH # . "c1:FoundX:" FoundXOrig # . "c2:FoundY:" FoundYOrig If (d = "") or (SubRegions = "`n") { If !Found LastX1 := FoundXOrig, LastY1 := FoundYOrig Found += 1, Results .= Delim f, FoundX := FoundXOrig + Center * (ImageW - 1) // 2 + Floor(x), FoundY := FoundYOrig + Center * (ImageH - 1) // 2 + Floor(y) StringReplace, Results, Results, %CharX%, %FoundX%, All StringReplace, Results, Results, %CharY%, %FoundY%, All StringReplace, Results, Results, %CharN%, %Found%, All If n { If DxInfo DxInfo .= $ "3:Performing Clicks" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:yyyy" # . "l:" A_LineNumber - 2 # . "u:m`nn" # . "g:Color,Blue;Trans,80;Add,Progress,-0x20000 cRed x10 y10 w" 29 + (ImageW + 1) // 2 " h" 29 + (ImageH + 1) // 2 ",100;Add,Progress,-0x20000 cRed x+1 yp wp+" Mod(ImageW + 1, 2) " hp,100;Add,Progress,-0x20000 cRed x10 y+1 wp-" Mod(ImageW + 1, 2) " hp+" Mod(ImageH + 1, 2) ",100;Add,Progress,-0x20000 cRed x+1 yp wp+" Mod(ImageW + 1, 2) " hp,100;Show,NA x" FoundX - 39 - (ImageW + 1) // 2 " y" FoundY - 39 - (ImageH + 1) // 2 " w" 80 + ImageW " h" 80 + ImageH If (Found <> 1) Sleep %Sleep% If (InStr(m, "c") = 1) { If (Found = 1) { ControlDelay := A_ControlDelay SetControlDelay, -1 DetectHiddenWindows := A_DetectHiddenWindows DetectHiddenWindows, Off } WinGet, WinList, List Loop %WinList% { WinGetPos, @1, @2, @3, @4, % "ahk_id " WinList%A_Index% If (FoundX >= @1) and (FoundY >= @2) and (FoundX <= @1 + @3) and (FoundY <= @2 + @4) { Window := WinList%A_Index% WinGetPos, ClickX, ClickY, , , ahk_id %Window% Break } Else If (A_Index = WinList) { Error = ControlClick Error Message = %A_ThisFunc%() was unable to locate a window to use for a ControlClick keystroke. Buttons = &Debug,E&xit,&Help %A_ThisFunc%(">Error<") Return } } } Else { If (Found = 1) { CoordMode, Mouse MouseDelay := A_MouseDelay SetMouseDelay, -1 MouseGetPos, MouseX, MouseY If DxInfo DxInfo .= $ "4:Saving mouse coordinates" # . "l:" A_LineNumber - 1 # . "t:Setting A_MouseDelay temporarily to -1 (fastest speed.) Also storing the current mouse coordinates.`n`n<table>Mouse X-Coordinate;%MouseX%`nMouse Y-Coordinate;%MouseY%</table>" # . "c1:MouseX:" MouseX # . "c2:MouseY:" MouseY # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # } If DxInfo DxInfo .= $ "4:Moving mouse to " MouseX ", " MouseY # . "d:1" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "l:" A_LineNumber + 1 # . "t:yyyy" MouseMove, FoundX, FoundY, 0 } Loop % n * 2 - 1 { If DxInfo DxInfo .= $ "4:" (A_Index & 1 ? "Clicking" : "Sleeping") # . "t:The following line of code will execute:`n`n%Code_Orig%" # . (A_Index & 1 ? "g:-Performing Clicks" # : "") . "d:4" # . "l:" A_LineNumber - 14 # . "c1:Code:" %A_ThisFunc%(">Escape<", !(A_Index & 1) ? "Sleep, " Sleep : SubStr(m, 1, 1) = "i" ? "SendInput, " k : SubStr(m, 1, 1) = "c" ? "ControlClick, x" FoundX - ClickX " y" FoundY - ClickY ", ahk_id " Window ", , " k ", , NA" : SubStr(m, 1, 1) = "p" ? "SendPlay, " k : SubStr(m, 1, 1) = "e" ? "SendEvent, " k : "Send, " k) If !(A_Index & 1) Sleep %Sleep% Else If (SubStr(m, 1, 1) = "i") SendInput %k% Else If (SubStr(m, 1, 1) = "c") ControlClick, % "x" FoundX - ClickX " y" FoundY - ClickY, ahk_id %Window%, , %k%, , NA Else If (SubStr(m, 1, 1) = "p") SendPlay %k% Else If (SubStr(m, 1, 1) = "e") SendEvent %k% Else Send %k% } } Else If (Func <> "") %Func%(FoundX, FoundY) If d or (t <> "") Break } If (e <> "") { If (FoundXOrig + ImageW < Search3) and (FoundYOrig + ImageH < Search4) SubRegions := FoundXOrig + ImageW "," FoundYOrig ";" Search3 "," Search4 ";" "C`n" SubRegions If (FoundYOrig + ImageH < Search4) SubRegions := FoundXOrig "," FoundYOrig + ImageH ";" FoundXOrig + ImageW - 1 "," Search4 ";" "B`n" SubRegions If (FoundXOrig > Search1) and (FoundYOrig + ImageH < Search4) SubRegions := Search1 "," FoundYOrig + 1 ";" FoundXOrig - 1 "," Search4 ";" "A`n" SubRegions If DxInfo DxInfo .= $ "3:More regions queued" # . "t:Because the ""e"" option was indicated, " A_ThisFunc "() needs to continue searching the screen for other instances of the image.`nThe following regions remain to be searched:`n`n<table>Top Left;Bottom Right;Region Type`n" SubRegions "</table>`n`n(Each time an image is found, the remaining space must be split into up to 3 additional regions.)" # . "l:" A_LineNumber - 7 If d If (Asc(d) = 108) { If (MostX = "") or (FoundXOrig < MostX) MostX := FoundXOrig, MostY := FoundYOrig } Else If (Asc(d) = 114) { If (MostX = "") or (FoundXOrig > MostX) MostX := FoundXOrig, MostY := FoundYOrig } Else If (Asc(d) = 98) or (Asc(d) = 100) { If (MostX = "") or (FoundYOrig > MostY) MostX := FoundXOrig, MostY := FoundYOrig } Else { If (Dist1 = "") { If (Asc(d) = 109) MouseGetPos, Dist1, Dist2 Else StringSplit, Dist, d, |`, Dist1 -= Center * (ImageW - 1) // 2 + Floor(x), Dist2 -= Center * (ImageH - 1) // 2 + Floor(y) } If (MostX = "") or (Sqrt((FoundXOrig - Dist1)**2 + (FoundYOrig - Dist2)**2) < Sqrt((MostX - Dist1)**2 + (MostY - Dist2)**2)) MostX := FoundXOrig, MostY := FoundYOrig } } Else Break } Else If (w = "") or SubRegions or (w1 and (A_TickCount > w1)) { If DxInfo DxInfo .= $ "2:Search #" A_Index @ . $ "3:Image Not Found" # . "t:The image was not found in the given region.`n`n" (Results ? (SubRegions = "" ? "No more regions remain to be searched (""e"" option) so the script will now finish." : "Moving on to the next region:`n" SubStr(SubRegions, 1, InStr(SubRegions, "`n") - 1)) : w = "" ? "Because the ""w"" option (wait for an image to be found) was not used, the script will now finish." : w1 ? "The ""w"" option was indicated as " w " and " A_ThisFunc "() has continued to search for the image. However the wait time has now expired and the script will finish.") # . "g:Color,Red;Trans,80;Show,NA x" Search1 " y" Search2 " w" Search3 - Search1 + e1 + 1 " h" Search4 - Search2 + e2 + 1 # . "d:3" # . "l:" A_LineNumber - 2 } Else If Results { MsgBox, 262144, %A_ScriptName%: Alert, Problem! See line %a_linenumber% } Else If w2 { If DxInfo DxInfo .= $ "2:Search #" A_Index @ . "`r3:Sleeping" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:The ""w"" option (wait for an image to be found) was given as: %w%.`n`n<table>Total wait time;" SubStr(w, 1, InStr(w ",", ",") - 1) "`nSleep interval between searches;" (InStr(w, ",") ? SubStr(w, InStr(w, ",") + 1) "</table>" : "Not given</table>`n`nIf the sleep interval is not given then it will be assumed as either the total wait time divided by 10 or 100 milliseconds, whichever is smaller.") "`n`nSince no image has been found yet, the function now sleeps " w2 " milliseconds." # . "l:" A_LineNumber + 1 # . "c1:w:" w Sleep w2 SubRegions := SubRegionsW } } If DxInfo { DxInfo .= $ "1:Finishing" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:Cache contains:`n------------------------`n%TempCache%" # . "c1:TempCache:" %A_ThisFunc%(">Escape<", Cache) # . "l:" A_LineNumber } If Results and n If (InStr(m, "c") = 1) { SetControlDelay, %ControlDelay% DetectHiddenWindows, %DetectHiddenWindows% } Else { If !Stay MouseMove, MouseX, MouseY, 0 SetMouseDelay, %MouseDelay% If DxInfo DxInfo .= $ "2:" (Stay ? "LEAVING mouse" : "Returning mouse") # . "t:yyyy" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "g:Color,Red;Trans,200;Add,Picture,x1 y5 w30 h-1," A_WinDir "\Cursors\larrow.cur;Show,x" MouseX - 20 " y" MouseY - 20 " w40 h40 NA" # . "l:" A_LineNumber - 3 } If DxInfo DxInfo .= $ "2:Returned Value" # . "t:The function returns the following value:`n`n%Return%" # . "c1:Return:" %A_ThisFunc%(">Escape<", Count ? Found : Results ? SubStr(Results, StrLen(Delim) + 1) : False) # . "l:" A_LineNumber + 1 , %A_ThisFunc%(">Debug:", dx) ErrorLevel := False Return Count ? Found : Results ? SubStr(Results, StrLen(Delim) + 1) : False } Else If ImageFile = >ParseCache< { Loop, Parse, Cache, `n If InStr(A_Tab A_LoopField, A_Tab Options A_Tab) { StringSplit, @, A_LoopField, |%A_Tab% If FileExist(@2) { StringReplace, Cache, Cache, %A_LoopField%`n ImageFilePath := @2, ImageW := @3, ImageH := @4, LastX1 := @5, LastY1 := @6 If DxInfo DxInfo .= $ "2:Image file already used" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:This file has been used previously by " A_ThisFunc "() and the following attributes will not have to be measured again" # . "l:" A_LineNumber - 2 # . "d:1" , DxInfo .= $ "3:Image width" # . "t:" ImageW , DxInfo .= $ "3:Image height" # . "t:" ImageH Return True } } } Else If ImageFile = >GuiEvent< { If (A_GuiControl = "ErrorLevel") If (A_GuiEvent = "RightClick") @ := A_GuiEvent ":" A_EventInfo Else If A_GuiEvent Not In Normal,*,K Return DetectHiddenWindows, Off GuiCommand := @ <> "" ? @ : A_GuiControl <> "" ? A_GuiControl : A_ThisLabel = A_ThisFunc "Menu" ? A_ThisMenu : A_GuiEvent ? A_GuiEvent : A_ThisHotkey If (A_Gui = GuiB) { GuiControlGet, @, %GuiB%:, Edit1 If !ErrorLevel GuiCommand .= "`n" @ Gui, %GuiA%:-Disabled Gui, %GuiB%:Destroy } Else If GuiTitle WinSetTitle, ahk_id %GuiHWND%, , % SubStr(GuiTitle, 1, InStr(GuiTitle, ":") - 1) } Else If ImageFile = >Escape< { StringReplace, Options, Options, ``, ````, All StringReplace, Options, Options, %#%, ``#, All StringReplace, Options, Options, %$%, ``$, All Return Options } Else If (ImageFile = ">UnEscape<") { Options := RegExReplace(RegExReplace(Options, "(?<!``)``#", #), "(?<!``)``\$", $) StringReplace, Options, Options, ````, ``, All Return Options } Else If ImageFile = >ShowChars< { If (Options = "") Return "[EMPTY STRING]" Else If (Options = False) Return "[0 : FALSE]" Else If (Options = True) Return "[1 : TRUE]" StringReplace, Options, Options, `r, [CR], All StringReplace, Options, Options, `n, [NL], All StringReplace, Options, Options, %A_Space%, [_], All StringReplace, Options, Options, %A_Tab%, [ » ], All Invisible = 0,1,2,3,4,5,6,7,8,11,12,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,127 Loop, Parse, Invisible, `, StringReplace, Options, Options, % Chr(A_LoopField), [Chr%A_LoopField%], All Return Options } Else If ImageFile = >NewGui< { Loop, Parse, Options, `; If (A_Index = 1) { Gui, %A_LoopField%:Destroy Gui, %A_LoopField%:+LastFound ThisNum := A_LoopField, ThisHWND := WinExist() } Else { @2 := @3 := @4 := "" StringSplit, @, A_LoopField, `, If @1 in Trans,Region WinSet, %@1%, %@2%, ahk_id %ThisHWND% Else Gui, %ThisNum%:%@1%, %@2%, %@3%, % SubStr(A_LoopField, StrLen(@1 @2 @3) + 4) } Return ThisHWND } Else If ImageFile = >Table< { If RegExMatch(Options, "is)<table>\K.*?(?=</table>)", Table) While (3 > Cycle := A_Index) Loop, Parse, Table, `n { StringSplit, @, A_LoopField, `; Loop %@0% If (Cycle = 2) Output .= A_Index = @0 ? @%A_Index% "`n" : SubStr(@%A_Index% " ", 1, Max%A_Index%) " " Else If (Max%A_Index% < StrLen(@%A_Index%)) Max%A_Index% := StrLen(@%A_Index%) } StringReplace, Options, Options, <table>%Table%</table>, % SubStr(Output, 1, -1) Return Options } Else If ImageFile = >MakeImage< { Loop, Parse, Options, | If (A_Index = 5) Break Else Param%A_Index% := A_LoopField StringTrimLeft, Options, Options, StrLen(Param1 Param2 Param3 Param4) + 4 FileDelete, %Param1% If A_PtrSize Ptr := "UPtr", PtrA := "UPtr*", PtrSize := A_PtrSize Else Ptr := "UInt", PtrA := "UInt*", PtrSize := 4 If !DllCall("GetModuleHandle", "str", "gdiplus") DllCall("LoadLibrary", "str", "gdiplus") sOutput := Param1 "." Param2, VarSetCapacity(si, 16, 0), si := Chr(1), DllCall("gdiplus\GdiplusStartup", "uint*", pToken, "uint", &si, "uint", 0), DllCall("gdiplus\GdipCreateBitmapFromScan0", "int", Param3, "int", Param4, "int", 0, "int", 0x26200A, Ptr, 0, PtrA, pBitmap) Loop, Parse, Options, | DllCall("gdiplus\GdipBitmapSetPixel", Ptr, pBitmap, "int", Mod(A_Index - 1, Param3), "int", (A_Index - 1) // Param3, "int", "0xFF" A_LoopField) DllCall("gdiplus\GdipGetImageEncodersSize", "uint*", nCount, "uint*", nSize), VarSetCapacity(ci, nSize), DllCall("gdiplus\GdipGetImageEncoders", "uint", nCount, "uint", nSize, Ptr, &ci) Loop, %nCount% { If A_PtrSize @ := "StrGet", sString := %@%(NumGet(ci, (idx := (48 + 7 * A_PtrSize) * (A_Index - 1)) + 32 + 3 * A_PtrSize), "UTF-16") Else idx := 76 * (A_Index - 1), Address := NumGet(ci, idx + 44), char_count := DllCall("WideCharToMultiByte", "uint", 0, "uint", 0x400, "uint", Address, "int", -1, "uint", 0, "uint", 0, "uint", 0, "uint", 0), VarSetCapacity(sString, char_count), DllCall("WideCharToMultiByte", "uint", 0, "uint", 0x400, "uint", Address, "int", -1, "str", sString, "int", char_count, "uint", 0, "uint", 0) If InStr(sString, "*." Param2) { pCodec := &ci + idx Break } } If A_IsUnicode DllCall("gdiplus\GdipSaveImageToFile", Ptr, pBitmap, Ptr, &sOutput, Ptr, pCodec, "uint", 0) Else nSize := DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sOutput, "int", -1, Ptr, 0, "int", 0), VarSetCapacity(wOutput, nSize * 2), DllCall("MultiByteToWideChar", "uint", 0, "uint", 0, Ptr, &sOutput, "int", -1, Ptr, &wOutput, "int", nSize), VarSetCapacity(wOutput, -1), VarSetCapacity(wOutput), DllCall("gdiplus\GdipSaveImageToFile", Ptr, pBitmap, Ptr, &wOutput, Ptr, pCodec, "uint", 0) DllCall("gdiplus\GdipDisposeImage", Ptr, pBitmap), DllCall("gdiplus\GdiplusShutdown", Ptr, pToken) If (hModule := DllCall("GetModuleHandle", "str", "gdiplus", Ptr)) DllCall("FreeLibrary", Ptr, hModule) If !FileExist(Param1 "." Param2) { MsgBox, 262164, %A_ScriptName% - %A_ThisFunc%(): Trouble building file!, %A_ThisFunc%() had intended to build an image file using GDI+ to output to the following path:`n%Param1%.%Param2%`n`nThis procedure has failed, possibly for one of the following reasons:`n1) You do not have access to the file location in question.`n2) You are using a version of windows that doesn't support the GDI+ procedures the script needs.`n3) Berban has made a silly mistake (most likely answer).`n`nIf this error recurs, please report it on the AutoHotkey forums.`n`nVisit the forums now? IfMsgBox YES Run %ForumURL% } } Else If ImageFile = >Error< { ErrorLevel = %Error% - %Message% If !Silent If !DxInfo { Margins = 10 MsgBoxWidth = 250 ButtonWidth = 90 ControlHeight = 24 TextSize = 10 Loop, Parse, Buttons, CSV ButtonList .= ";Add,Button,g" A_ThisFunc "Close y+" Margins " x" Margins " w" ButtonWidth " h" ControlHeight "," A_LoopField WinWaitClose, % "ahk_id " %A_ThisFunc%(">NewGui<", GuiB . ";+AlwaysOnTop +Label" A_ThisFunc . ";Add,Picture,Icon132 x" Margins " y" Margins ",Shell32.dll" . ButtonList . ";Font,s" TextSize . ";Add,Text,x+" Margins " y" Margins " w" MsgBoxWidth - ButtonWidth - Margins "," Message . ";Show,w" MsgBoxWidth + Margins * 2 ",Error: " Error) GuiCommand := RegExReplace(GuiCommand, "(?<!&)&(?!&)") If GuiCommand = Help Run, %ForumURL% Else If GuiCommand = Debug @ := LastImageFile, LastImageFile := "" , %A_ThisFunc%(@, LastOptions " dx") Return GuiCommand, ErrorLevel := Error " - " Message } Else DxInfo .= $ "2:Error - " Error # . "t:" Message # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "l:" A_LineNumber - 5 , DxInfo .= $ "1:Finishing" # . "q:" DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC # . "t:Cache contains:`n------------------------`n" %A_ThisFunc%(">ShowChars<", Cache) , %A_ThisFunc%(">Debug:", dx) } Else If (InStr(ImageFile, ">Debug:") = 1) { DetectHiddenWindows := A_DetectHiddenWindows, WinDelay := A_WinDelay DetectHiddenWindows, On SetWinDelay, -1 DebugSettingsLocation = %A_LineNumber% TextBoxFontSize = 9 TextBoxFontFace = Lucida Console TreeViewFontSize = 10 TreeViewFontFace = Segoe UI Width = 350 ControlHeight = 30 TextBoxHeight = 200 TreeViewHeight = 250 PlayingText = Playing ButtonWidth = 60 Margins = 7 PlaySpeed = .3 ButtonFontSize = 10 ButtonFontFace = Segoe UI ButtonPlay = &Play ButtonPause = &Pause ButtonPrev = < ButtonNext = > MenuFile = &%A_ThisFunc% MenuFilePrev = &Previous Step MenuFileNext = &Next Step MenuFileStandard = Script &Menu MenuFileEdit = &Go to line MenuFileSave = &Save MenuFileExit = E&xit MenuCopy = &Clipboard MenuCopyStepName = Copy Step &Name MenuCopyStepText = Copy Step &Text MenuSettings = &Settings MenuSettingsCompactView = &Compact View MenuSettingsAlwaysOnTop = &Always On Top MenuSettingsShowGraphics = Show &Graphics MenuSettingsShowChars = Show &Whitespaces MenuSettingsWrapText = &Wrap Text MenuSettingsEdit = &Edit Debugger Settings MenuSettingsSkipSteps = Skip Unimportant Steps MenuSettingsAutoClose = Close When Finished MenuHelp = &Help MenuHelpDocs = &%A_ThisFunc% Documentation MenuHelpDebugger = &Debugger Help MenuHelpWhitespaceView = &Whitespace Viewer Help MenuHelpAbout = &About %A_ThisFunc% EditorPath = %A_AhkPath%\..\SciTE\SciTE.exe EditorCommand = -goto:`%LineNumber`% CompactView = %False% ShowChars = %True% ShowGraphics = %True% AlwaysOnTop = %False% WrapText = %True% PlaySpeed = 3 Playing = %False% SkipSteps = %True% StartAt = 1 SaveTo = AutoClose = %False% HotkeyPlay = Space HotkeyNext = . HotkeyPrev = , HotkeyCompactView = `` ShrinkByW = 50 ShrinkByH = 100 Menus = ( Standard File:Prev,Next,Play,,Standard,,Edit,Save,Exit Copy:StepName,StepText, Settings:CompactView,AlwaysOnTop,ShowGraphics,ShowChars,WrapText,SkipSteps,AutoClose,,Edit Help:Docs,Debugger,WhitespaceView,About, Bar:File,Copy,Settings,Help Context:File,Copy,Settings,Help ) Loop, Parse, Options, CSV If (A_LoopField = "Reset") LastImageFile := Cache := "" Else If RegExMatch(A_LoopField, "^([A-Za-z0-9_#$]+)=([\s\S]*)$", @) %@1% := @2 Else If (A_Index <> 1) MsgBox, 262160, %A_ScriptName% - %A_Thisfunc%(): Error, Poorly formatted Options param for diagnostic mode:`n%A_LoopField% If SaveTo { FileDelete, %SaveTo% StringReplace, DxInfo, DxInfo, `r, `r`n, All FileAppend, %DxInfo%, %SaveTo% Return DxInfo := "" } StringReplace, Menus, Menus, %A_Space%, , All StringReplace, Menus, Menus, %A_Tab%, , All MenuStandard := True, Hotkeys := "Play,Next,Prev,CompactView", Buttons := "Button1,Button2,Button3,Edit2" Menu, %A_ThisFunc%MenuStandard, Standard Loop, Parse, Menus, `n Loop, Parse, A_LoopField, :`, If (A_Index > 1) { Menu, %A_ThisFunc%Menu%ThisMenu%, Add, % (A_LoopField = "" ? "" : ThisMenu = "Bar" or ThisMenu = "Context" ? Menu%A_LoopField% : Menu%ThisMenu%%A_LoopField% = "" ? Button%A_LoopField% : Menu%ThisMenu%%A_LoopField%) (Hotkey%A_LoopField% = "" ? "" : A_Tab Hotkey%A_LoopField%), % Menu%A_LoopField% = "" ? A_ThisFunc "Menu" : ":" A_ThisFunc "Menu" A_LoopField If A_LoopField and %A_LoopField% Menu, %A_ThisFunc%Menu%ThisMenu%, Check, % Menu%ThisMenu%%A_LoopField% (Hotkey%A_LoopField% = "" ? "" : A_Tab Hotkey%A_LoopField%) } Else ThisMenu := A_LoopField GuiHWND := %A_ThisFunc%(">NewGui<", GuiA . ";+Label" A_ThisFunc (AlwaysOnTop ? " +AlwaysOnTop" : "") . ";Font,s" ButtonFontSize "," ButtonFontFace . ";Menu," A_ThisFunc "MenuBar" . ";Add,Button,g" A_ThisFunc "Close x" Margins " y" Margins " w" ButtonWidth " h" ControlHeight "," ButtonPrev . ";Add,Button,g" A_ThisFunc "Close x+" Margins " yp wp hp," ButtonPlay . ";Add,Button,g" A_ThisFunc "Close x+" Margins " yp wp hp +Default," ButtonNext . ";Font,s" TreeViewFontSize "," TreeViewFontFace . ";Add,TreeView,g" A_ThisFunc "Close vErrorLevel +AltSubmit x" Margins " y+" Margins " w" Width " h" TreeViewHeight . ";Font,s" TextBoxFontSize "," TextBoxFontFace . ";Add,Edit,+ReadOnly " (WrapText ? "+Wrap -HScroll" : "-Wrap +HScroll") " x" Margins " y+" Margins " w" Width " h" TextBoxHeight . ";Add,Edit,-VScroll +ReadOnly -Wrap x" ButtonWidth * 3 + Margins * 4 " y" Margins " w" Width - (Margins + ButtonWidth) * 3 " h" ControlHeight . ";Default") If (StrLen(ImageFile) > 7) { StringTrimLeft, ImageFile, ImageFile, 7 If !FileExist(ImageFile) { MsgBox, 262160, %A_ScriptName% - %A_ThisFunc%(): Error, Debug file "%ImageFile%" does not appear to exist. Return } Else FileRead, DxInfo, %ImageFile% } Else If (DxInfo = "") { MsgBox, 262160, %A_ScriptName% - %A_ThisFunc%(): Error, Improper use of the Diagnostic mode. Return } Else DxInfo := A_TickCount A_Tab DllCall("QueryPerformanceCounter", "Int64*", QPC) * QPC A_Tab DxInfo If StartAt Is Integer CurrentStep := StartAt Else RegExMatch(StartAt, "^(?:(?P<Occurence>\d+):)?(?P<Pattern>[\s\S]*)$", StartAt) Loop, Parse, DxInfo, `r, `n If (A_Index = 1) { StringSplit, @, A_LoopField, %A_Tab% QPC_Rate := (@1 - @3) / (@2 - @4), QPC_Final := @2 } Else { Items := A_Index - 1 Loop, Parse, A_LoopField, %A_Tab% If (A_Index = 1) { %Items%_Level := @1 := Asc(A_LoopField) = 43 ? @2 + 2 : Asc(A_LoopField) = 45 ? @2 : SubStr(A_LoopField, 1, 1), @2 := @1 - 1, %Items%_ID := TV%@1% := TV_Add(%Items%_Title := SubStr(A_LoopField, 3), TV%@2%) If !CurrentStep and RegExMatch(%Items%_Title, StartAtPattern) and !(--StartAtOccurence) CurrentStep := Items } Else If InStr(A_LoopField, ":") { @1 := SubStr(A_LoopField, 1, InStr(A_LoopField, ":") - 1), %Items%_%@1% := SubStr(A_LoopField, InStr(A_LoopField, ":") + 1) If @1 = g TV_Modify(%Items%_ID, "Bold") } } @ := Items + 1, %@%_q := QPC_Final, PreviousStep := 0, PlaySpeed := PlaySpeed / 20 Gui, %GuiA%:Show, % "w" Width + Margins * 2 " h" TreeViewHeight + TextBoxHeight + ControlHeight + Margins * 4 Hotkey, IfWinActive, ahk_id %GuiHWND% Loop, Parse, Hotkeys, `, If (Hotkey%A_LoopField% <> "") Hotkey, % Hotkey%A_LoopField%, %A_ThisFunc%Close, On Hotkey, IfWinActive If Playing TempGuiCommand := ButtonPlay, Playing := False If !CurrentStep CurrentStep := 1 Loop { If (A_Index <> 1) TempGuiCommand := GuiCommand GuiCommand := RightClick := "" If (TempGuiCommand = ButtonPlay) or (TempGuiCommand = ButtonPause) or (TempGuiCommand = HotkeyPlay) or (Playing and (TempGuiCommand = "ErrorLevel")) { Playing := !Playing ControlSetText, Button2, % Playing ? ButtonPause : ButtonPlay, ahk_id %GuiHWND% Menu, %A_ThisFunc%MenuFile, Rename, % (Playing ? ButtonPlay : ButtonPause) A_Tab HotkeyPlay, % (Playing ? ButtonPause : ButtonPlay) A_Tab HotkeyPlay } Else If (TempGuiCommand = MenuSettingsCompactView) or (TempGuiCommand = HotkeyCompactView) { If (TempGuiCommand = HotkeyCompactView) Menu, %A_ThisFunc%MenuSettings, % (CompactView := !CompactView) ? "Check" : "Uncheck", %MenuSettingsCompactView%%A_Tab%%HotkeyCompactView% Loop % n := 10 { GuiControl, %GuiA%:Move, ErrorLevel, % "x" Margins " y" Margins + (Margins + ControlHeight) * (n - (@ := CompactView ? A_Index : n - A_Index)) / n " w" Width - ShrinkByW * @ / n " h" TreeViewHeight - ShrinkByH * @ / n Gui, %GuiA%:Show, % "NA w" Width + Margins * 2 - ShrinkByW * @ / n " h" TreeViewHeight + Margins * 4 + TextBoxHeight + ControlHeight - (ShrinkByH + TextBoxHeight + Margins * 2 + ControlHeight) * @ / n } Loop, Parse, Buttons, `, GuiControl, %GuiA%:Move, %A_LoopField%, % CompactView ? "y-200" : "y" Margins } Else If (TempGuiCommand = ButtonPrev) or (TempGuiCommand = HotkeyPrev) or (TempGuiCommand = MenuFilePrev) CurrentStep -= CurrentStep = 1 ? 0 : 1 Else If (TempGuiCommand = "Normal") or (TempGuiCommand = MenuFileExit) { Gui, %GuiA%:Destroy Gui, %GuiB%:Destroy Hotkey, IfWinActive, ahk_id %GuiHWND% Loop, Parse, Hotkeys, `, If (Hotkey%A_LoopField% <> "") Hotkey, % Hotkey%A_LoopField%, Off Hotkey, IfWinActive Loop, Parse, Menus, `n Menu, % A_ThisFunc "Menu" SubStr(A_LoopField, 1, Instr(A_LoopField ":", ":") - 1), Delete DetectHiddenWindows, %DetectHiddenWindows% SetWinDelay, %WinDelay% Return GuiHWND := DxInfo := "" } Else If (TempGuiCommand = MenuSettingsAlwaysOnTop) WinSet, AlwaysOnTop, % AlwaysOnTop ? "On" : "Off", ahk_id %GuiHWND% Else If (TempGuiCommand = MenuSettingsWrapText) GuiControl, % GuiA ":" (WrapText ? "+Wrap" : "-Wrap"), Edit1 Else If (TempGuiCommand = MenuFileNext) or (TempGuiCommand = ButtonNext) or (TempGuiCommand = HotkeyNext) or ((TempGuiCommand = "") and Playing) { While (CurrentStep < Items) { CurrentStep += 1 If (TempGuiCommand <> "") or !Playing or (%CurrentStep%_d <> "") or !SkipSteps Break } If (CurrentStep = Items) and (TempGuiCommand = "") and Playing GuiCommand := InStr(Options, ",c,") ? "Normal" : ButtonPause } Else If (InStr(TempGuiCommand, A_ThisFunc "Menu") <> 1) { If (InStr(TempGuiCommand, "RightClick:") = 1) RightClick := True, TV_Modify(@ := SubStr(TempGuiCommand, 12)) Else @ := TV_GetSelection() Loop %Items% If (%A_Index%_ID = @) { CurrentStep := A_Index Break } } Else If (TempGuiCommand = A_ThisFunc "MenuCopy") Clipboard := A_ThisMenuItem = MenuCopyStepText ? CurrentStepText : A_ThisMenuItem = MenuCopyStepName ? CurrentStep " - " %CurrentStep%_Title : %A_ThisMenuItem%_Orig_ Else If (A_ThisMenuItem = MenuFileEdit LastLine) or (A_ThisMenuItem = MenuSettingsEdit) { LineNumber := A_ThisMenuItem = MenuSettingsEdit ? DebugSettingsLocation : %CurrentStep%_l Transform, @, Deref, %EditorCommand% Run, "%EditorPath%" "%A_LineFile%" %@% } Else If (A_ThisMenuItem = MenuFileSave) { Gui, %GuiA%:+OwnDialogs FileSelectFile, File, S, %A_ThisFunc%-dx-%A_Now%.txt If !ErrorLevel { FileDelete, %File% StringReplace, @, DxInfo, `r, `r`n, All FileAppend, %@%, %File% MsgBox, 262144, %A_ScriptName% - %A_ThisFunc%: Alert, Disgnostic file saved successfully. } Gui, %GuiA%:-OwnDialogs } Else If (TempGuiCommand = A_ThisFunc "MenuHelp") { If (A_ThisMenuItem = MenuHelpWhitespaceView) MsgBox, 262144, Whitespace Viewer Legend, If the "Show Whitespace" option is checked in the Settings menu, the following substitutions will be made for all non-visible characters:`n`n[EMPTY STRING]`ta blank/empty string`n[0 : FALSE]`t`t0 (`%false`%)`n[1 : TRUE]`t`t1 (`%true`%)`n[CR]`t`tcarriage return (``r)`n[NL]`t`tnewline (``n)`n[_]`t`tspace (`%A_Space`%)`n[ » ]`t`ttab (`%A_Tab`%)`n[Chr1], [Chr2], etc`tASCII character #1, #2, etc (these are non-visible characters)`n`nThese substitutions are not made when copying the contents of variables using the Clipboard menu. Else If (A_ThisMenuItem = MenuHelpAbout) MsgBox, 262144, About %A_ThisFunc%, FindClick() - ImageSearch utility. Created by berban.`n`nMade with AutoHotkey. Compatible with all versions.`n`nLast updated %LastUpdate%. Else If (A_ThisMenuItem = MenuHelpDocs) Run, %ForumURL% Else MsgBox, 262160, %A_ScriptName%: Error, This menu item currently doesn't do anything. Sorry about that. } Else { If (TempGuiCommand = A_ThisFunc "MenuSettings") { If (Settings = "") RegExMatch(Menus, "\bSettings:\K\S*", Settings) Loop, Parse, Settings, `, If (A_LoopField <> "") and (InStr(A_ThisMenuItem A_Tab, MenuSettings%A_LoopField% A_Tab) = 1) { Menu, %A_ThisFunc%MenuSettings, % (%A_LoopField% := !%A_LoopField%) ? "Check" : "Uncheck", %A_ThisMenuItem% Break } } GuiCommand := SubStr(A_ThisMenuItem, 1, InStr(A_ThisMenuItem A_Tab, A_Tab) - 1), PreviousStep := 0 } If (CurrentStep <> PreviousStep) { Loop, Parse, MenuCopyItems, `, If (A_LoopField <> "") { %A_LoopField%_ := %A_LoopField%_Orig_ := "" Menu, %A_ThisFunc%MenuCopy, Delete, %A_LoopField% } Loop, Parse, MenuHelpItems, `, If (A_LoopField <> "") Menu, %A_ThisFunc%MenuHelp, Delete, %A_LoopField% MenuCopyItems := MenuHelpItems := "" While (%CurrentStep%_c%A_Index% <> "") { @ := SubStr(%CurrentStep%_c%A_Index%, 1, InStr(%CurrentStep%_c%A_Index%, ":") - 1) , %@%_Orig_ := %A_ThisFunc%(">UnEscape<", SubStr(%CurrentStep%_c%A_Index%, InStr(%CurrentStep%_c%A_Index%, ":") + 1)) , %@%_ := ShowChars ? %A_ThisFunc%(">ShowChars<", %@%_Orig_) : %@%_Orig_ , MenuCopyItems .= @ "," Menu, %A_ThisFunc%MenuCopy, Add, %@%, %A_ThisFunc%Menu } Loop, Parse, %CurrentStep%_u, | If (A_LoopField <> "") { Menu, %A_ThisFunc%MenuHelp, Add, %A_LoopField%, %A_ThisFunc%Menu MenuHelpItems .= A_LoopField "," } PreviousStep := CurrentStep, @ := 0, CurrentStepText := %CurrentStep%_t Transform, CurrentStepText, Deref, % CurrentStepText := RegExReplace(CurrentStepText, "%([A-Za-z0-9_#@$?]+)%", "%$1_%") While InStr(CurrentStepText, "<table>") CurrentStepText := %A_ThisFunc%(">Table<", CurrentStepText) StringReplace, CurrentStepText, CurrentStepText, `n, `r`n, All GuiControl, %GuiA%:, Edit1, %CurrentStepText% If %CurrentStep%_q While (%@%_Level > %CurrentStep%_Level) or !%@%_q @ := CurrentStep + A_Index Menu, %A_ThisFunc%MenuFile, Rename, %MenuFileEdit%%LastLine%, ---- Menu, %A_ThisFunc%MenuFile, Rename, ----, % MenuFileEdit LastLine := A_Space %CurrentStep%_l Menu, %A_ThisFunc%MenuFile, % %CurrentStep%_l ? "Enable" : "Disable", %MenuFileEdit%%LastLine% ControlSetText, Edit2, % "Time (ms): " (%CurrentStep%_q ? Round((%@%_q - %CurrentStep%_q) * QPC_Rate, 3) : "") "`r`nLine No.: " %CurrentStep%_l, ahk_id %GuiHWND% Gui, %GuiB%:Destroy If (%CurrentStep%_g <> "") and ShowGraphics { @ := CurrentStep, @1 := Asc(%CurrentStep%_g) = 43 ? 1 : Asc(%CurrentStep%_g) = 45 ? -1 : 0 If @1 While !RegExMatch(%@%_Title, "is)^" SubStr(%CurrentStep%_g, 2) "$") and @ and (@ <= Items) @ += @1 If (%@%_g <> "") %A_ThisFunc%(">NewGui<", GuiB ";+ToolWindow -SysMenu -Caption +AlwaysOnTop +E0x20;" %@%_g) Else MsgBox, 262160, %A_ScriptName%: Error, Error with referenced graphics!!!! Fix me ben! } TempGuiCommand := GuiCommand, TV_Modify(%CurrentStep%_ID) If (TempGuiCommand = "") and Playing { While (GuiCommand = "") Sleep 1 If (GuiCommand = "ErrorLevel") GuiCommand := "" } } If RightClick Menu, %A_ThisFunc%MenuContext, Show If (GuiCommand = "") { WinSetTitle, ahk_id %GuiHWND%, , % GuiTitle := A_ThisFunc " Debugger" (Playing ? " - " PlayingText : "") ": " CurrentStep " - " %CurrentStep%_Title WinWaitClose, %GuiTitle% ahk_id %GuiHWND%, , Playing ? ((%CurrentStep%_d ? %CurrentStep%_d : 1) * PlaySpeed) : "" } } } Else If (GuiHWND = "") { CoordMode, Mouse, Screen CoordMode, Pixel, Screen CoordMode, Menu, Screen TempFile = %A_Temp%\%A_ThisFunc%Temp.png NewFilePlaceHolder = NewFile PauseHotkey = `` SquareSize = 19 SquaresWide = 22 SquaresHigh = 18 SquareSpacing = 2 ControlHeight = 20 Margins = 10 FontSize = 10 FontFace = Segoe UI SelectionColor = 0xFF0000 CurRegionColor = 0x0000FF CurRegionThickness = 3 DoubleTapToSelect = %True% PromptOnOverwrite = %True% RecycleOnOverwrite = %True% AutoJumpToFileName = %True% InputBoxWidth = 300 StartPaused = %False% AllowOffset = %False% DiagnosticMode = %True% DiagnosticModeOptions = Playing=0 CopyToClipboard = %False% CheckboxOffset = Allow O&ffset ButtonPause = &Pause ( %PauseHotkey% ) ButtonUnPause = Un&pause ( %PauseHotkey% ) ButtonTest = &Test ButtonSave = &Save ButtonBrowse = &Browse ButtonOther = &Other ButtonCancel = &Cancel ButtonAddOption = &Add option... ButtonJumpToFileName = &I CheckboxCopyToClipboard = Copy code to c&lipboard CheckboxDiagnosticMode = &Use diagnostic mode: ButtonInputBoxAdd = &Add ButtonInputBoxCancel = &Cancel ButtonInputBoxHelp = &Help CenterX := SquaresWide // 2, CenterY := SquaresHigh // 2, OffsetX := 0, OffsetY := 0, Cache := ">2" Cache, OptionInfo := SubStr(%A_ThisFunc%(A_Space), 2), WinDelay := A_WinDelay Loop, Parse, OptionInfo, `r { Loop, Parse, A_LoopField, `n { StringSplit, @, A_LoopField, %A_Tab% If (A_Index = 1) Item := @1, @1 := "Main" If (@2 <> "") StringReplace, @, @1, %A_Space%, , All OptionInfo_%Item%_%@% .= @2 = "" ? "`n`n" @1 : @2, @2 := "" } Menu, %A_ThisFunc%OptionInfo, Add, % Item A_Tab OptionInfo_%Item%_Main, %A_ThisFunc%Menu } OptionInfo := GuiTitle := "", LastPos := "x-300 y-300 w10 h10" Loop { If (FilePaths = "") { StringReplace, ImageFile, ImageFile, >, , UseErrorLevel AbsolutePath := (ErrorLevel - 1) * (ImageFile <> "") SplitPath, ImageFile, , @1, @2, @3, @4 If (@2 <> "") @2 := "." @2 Else If (DefaultExts <> "") @2 := "." SubStr(DefaultExts, 1, InStr(DefaultExts, "|") - 1) If (@3 = "") @3 := NewFilePlaceHolder FilePaths := "|" (@4 = "" ? "" : @1 "\" @3 @2 "|") If !AbsolutePath or (@4 = "") FilePaths .= RegExReplace(DefaultDirs, "\\?(\||$)", (@4 = "" ? "\" @1 : "") "\" @3 @2 "$1") While InStr(FilePaths, "\\") StringReplace, FilePaths, FilePaths, \\, \, All StringReplace, FilePaths, FilePaths, |\, |\\, All FilePaths := RegExReplace(FilePaths, "\\\K[^\\|]+\\\.\.\\") "|", Destination := SubStr(FilePaths, 2, InStr(FilePaths, "|", 0, 2) - 2) } StringReplace, TempFilePaths, FilePaths, |%Destination%|, |, All GuiCommand := A_Index <> 1 or StartPaused ? ButtonPause : ButtonUnpause , LastItem := 1 , VarSetCapacity(GuiHWND, 18000) , GuiHWND := GuiA . ";+AlwaysOnTop +Label" A_ThisFunc . ";Add,Progress,-0x20000 " LastPos " c" SelectionColor ",100;" While (SquaresHigh >= @ := A_Index) Loop % SquaresWide GuiHWND .= "Add,Progress,-0x20000 c" Color_%A_Index%_%@% " x" Margins + (SquareSize + SquareSpacing) * (A_Index - 1) " y" Margins + (SquareSize + SquareSpacing) * (@ - 1) " w" SquareSize + 1 " h" SquareSize + 1 ",100;" GuiHWND .= "Font,s" FontSize "," FontFace . ";Add,Text,x" Margins " y+" Margins + 4 " w" (@ := Ceil(((SquareSize + SquareSpacing) * SquaresWide - SquareSpacing - Margins * 4) / 5)) " h" ControlHeight ",Dimensions" . ";Add,Edit,+ReadOnly x+" Margins " yp-4 w" @ " hp," SquaresWide "x" SquaresHigh . ";Add,Text,x+" Margins " yp+4 w" @ " hp,Color (" (UseRGB ? "RGB" : "BGR") ")" . ";Add,Edit,+ReadOnly x+" Margins " yp-4 w" @ " hp," CurrentColor . ";Add,Text,x" Margins " y+" Margins + 4 " w" @ " hp,Mouse Pos" . ";Add,Edit,+ReadOnly x+" Margins " yp-4 w" @ " hp" . ";Add,CheckBox," (AllowOffset ? "Checked " : "") "x+" Margins " yp w" @ * 2 + Margins " hp," CheckboxOffset " (+0 +0)" . ";Add,Button,+Center g" A_ThisFunc "Close x" Margins * 5 + @ * 4 " yp-" Margins + ControlHeight " w" @ " h" ControlHeight * 2 + Margins "," ButtonPause . ";Add,GroupBox,x" Margins " y+" Margins " w" (SquareSize + SquareSpacing) * SquaresWide - SquareSpacing " h" ControlHeight * 2 + Margins * 4 "," A_ThisFunc " Options" . ";Add,Edit,xp+" Margins " yp+" Margins * 2 " w" (@ := Ceil(((SquareSize + SquareSpacing) * SquaresWide - SquareSpacing - Margins * 5) / 4)) * 3 + Margins * 2 " h" ControlHeight "," Options . ";Add,Button,g" A_ThisFunc "Close xp y+" Margins " w" @ " hp HwndGuiTitle," ButtonAddOption GuiHWND := %A_ThisFunc%(">NewGui<", GuiHWND . ";Add,Checkbox," (DiagnosticMode ? "+Checked " : "") "g" A_ThisFunc "Close x+" Margins " yp hp," CheckboxDiagnosticMode . ";Add,Edit," (DiagnosticMode ? "" : "+ReadOnly ") "x+" Margins " yp w" @ / 2 " hp," DiagnosticModeOptions . ";Add,Button,g" A_ThisFunc "Close x" Margins * 5 + @ * 3 " yp-" ControlHeight + Margins " w" @ " h" ControlHeight * 2 + Margins "," ButtonTest . ";Add,GroupBox,x" Margins " y+" Margins * 2 " w" (SquareSize + SquareSpacing) * SquaresWide - SquareSpacing " h" ControlHeight * 2 + Margins * 4 ",Output File" . ";Add," (AbsolutePath ? "DropDownList" : "ComboBox") ",g" A_ThisFunc "Close vErrorLevel +AltSubmit xp+" Margins " yp+" Margins * 2 " w" @ * 4 + Margins * 3 - (AbsolutePath ? 0 : Margins + ControlHeight) "," Destination "|" SubStr(TempFilePaths, 1, -1) . (AbsolutePath ? "" : ";Add,Button,g" A_ThisFunc "Close x+" Margins " yp w" ControlHeight " hp," ButtonJumpToFileName) . ";Add,Checkbox," (CopyToClipboard ? "+Checked " : "") "x" Margins * 2 " y+" Margins " hp," CheckboxCopyToClipboard . ";Add,Button,g" A_ThisFunc "Close xp+" @ * 2 + Margins * 2 " yp w" @ " hp" (AbsolutePath > 1 ? " +Disabled" : "") "," (AbsolutePath ? ButtonOther : ButtonBrowse) . ";Add,Button,+Default g" A_ThisFunc "Close x+" Margins " yp w" @ " hp," ButtonSave . ";Show,Hide w" (SquareSize + SquareSpacing) * SquaresWide - SquareSpacing + Margins * 2 " y" (GuiY = "" ? (A_ScreenHeight - Margins * 16 - ControlHeight * 4 - (SquareSize + SquareSpacing) * SquaresHigh + SquareSpacing) // 2 : GuiY " x" GuiX) "," A_ThisFunc " Screenshot Creator"), OptionsHWND := GuiTitle, GuiTitle := A_ThisFunc " Screenshot Creator:" Hotkey, IfWinExist, ahk_id %GuiHWND% Hotkey, ~LButton, %A_ThisFunc%Close, On Hotkey, %PauseHotkey%, %A_ThisFunc%Close, On Hotkey, IfWinExist Loop { TempGuiCommand := GuiCommand, GuiCommand := "" If (TempGuiCommand = "ErrorLevel") { GuiControlGet, @, %GuiA%:FocusV If (@ = "ErrorLevel") { ControlGetText, Destination, ComboBox1, ahk_id %GuiHWND% If AutoJumpToFileName and !AbsolutePath { GuiControlGet, ThisItem, %GuiA%:, ErrorLevel If (ThisItem < 100) and (ThisItem <> LastItem) GuiCommand := ButtonJumpToFileName, LastItem := ThisItem } } Else GuiControl, %GuiA%:Focus, ErrorLevel } Else If (TempGuiCommand = PauseHotkey) or (TempGuiCommand = ButtonUnpause) or (TempGuiCommand = ButtonPause) { If (TempGuiCommand <> ButtonPause) { Gui, %GuiA%:Show, % "NA h" Margins * 4 + 1 + ControlHeight * 2 + (SquareSize + SquareSpacing) * SquaresHigh - SquareSpacing ControlSetText, Button2, %ButtonPause%, ahk_id %GuiHWND% GuiControl, %GuiA%:, Edit2 WinSet, AlwaysOnTop, On, ahk_id %GuiHWND% If (A_Index <> 1) { ControlGet, AllowOffset, Checked, , Button1, ahk_id %GuiHWND% If AllowOffset and (MouseX <> "") { MouseGetPos, MouseX2, MouseY2 OffsetX := MouseX2 - MouseX, OffsetY := MouseY2 - MouseY } Else OffsetX := 0, OffsetY := 0 ControlSetText, Button1, % CheckboxOffset " (" (OffsetX < 0 ? "+" : "") 0 - OffsetX ", " (OffsetY < 0 ? "+" : "") 0 - OffsetY ")", ahk_id %GuiHWND% } If !WinExist("ahk_id " BoxHWND) BoxHWND := %A_ThisFunc%(">NewGui<", GuiB . ";Color," CurRegionColor . ";+ToolWindow -SysMenu -Caption +AlwaysOnTop +E0x20" . ";Show,NA x-100 y-100 w" SquaresWide + CurRegionThickness * 2 " h" SquaresHigh + CurRegionThickness * 2 . ";Trans,200" . ";Region,0-0 " SquaresWide + CurRegionThickness * 2 "-0 " SquaresWide + CurRegionThickness * 2 "-" SquaresHigh + CurRegionThickness * 2 " 0-" SquaresHigh + CurRegionThickness * 2 " 0-0 " CurRegionThickness "-" CurRegionThickness " " CurRegionThickness + SquaresWide "-" CurRegionThickness " " CurRegionThickness + SquaresWide "-" CurRegionThickness + SquaresHigh " " CurRegionThickness "-" CurRegionThickness + SquaresHigh " " CurRegionThickness "-" CurRegionThickness) If A_PtrSize Ptr := "UPtr", PtrA := "UPtr*" Else Ptr := "UInt", PtrA := "UInt*" If !DllCall("GetModuleHandle", "str", "gdiplus", Ptr) DllCall("LoadLibrary", "str", "gdiplus") VarSetCapacity(si, A_PtrSize = 8 ? 24 : 16, 0), si := Chr(1), DllCall("gdiplus\GdiplusStartup", PtrA, pToken, Ptr, &si, Ptr, 0) GuiCommand := "~LButton" While (GuiCommand = "~LButton") { MouseGetPos, MouseX, MouseY MouseX -= OffsetX, MouseY -= OffsetY Gui, %GuiB%:Show, % "NA x" MouseX - CenterX - CurRegionThickness " y" MouseY - CenterY - CurRegionThickness chdc := DllCall("CreateCompatibleDC", Ptr, False), hdc2 := chdc ? chdc : DllCall("GetDC", Ptr, False), VarSetCapacity(bi, 40, 0), NumPut(SquaresWide, bi, 4, "uint"), NumPut(SquaresHigh, bi, 8, "uint"), NumPut(40, bi, 0, "uint"), NumPut(1, bi, 12, "ushort"), NumPut(0, bi, 16, "uInt"), NumPut(32, bi, 14, "ushort"), hbm := DllCall("CreateDIBSection", Ptr, hdc2, Ptr, &bi, "uint", 0, PtrA, False, Ptr, 0, "uint", 0, Ptr) If !chdc DllCall("ReleaseDC", Ptr, False, Ptr, hdc2) obm := DllCall("SelectObject", Ptr, chdc, Ptr, hbm), hhdc := DllCall("GetDC", Ptr, False), DllCall("gdi32\BitBlt", Ptr, chdc, "int", 0, "int", 0, "int", SquaresWide, "int", SquaresHigh, Ptr, hhdc, "int", MouseX - CenterX, "int", MouseY - CenterY, "uint", 0x00CC0020), DllCall("ReleaseDC", Ptr, False, Ptr, hhdc), DllCall("gdiplus\GdipCreateBitmapFromHBITMAP", Ptr, hbm, Ptr, False, PtrA, pBitmap), DllCall("SelectObject", Ptr, chdc, Ptr, obm), DllCall("DeleteObject", Ptr, hbm), DllCall("DeleteDC", Ptr, hhdc), DllCall("DeleteDC", Ptr, chdc) While (SquaresHigh >= @ := A_Index) Loop %SquaresWide% { SetFormat, Integer, Hex DllCall("gdiplus\GdipBitmapGetPixel", Ptr, pBitmap, "int", CenterX + A_Index - Floor(SquaresWide / 2) - 1, "int", CenterY + @ - Floor(SquaresHigh / 2) - 1, "uint*", Color), Color := Color & 0x00ffffff SetFormat, Integer, Decimal GuiControl, % GuiA ":+c" SubStr(Color_%A_Index%_%@% := Color, 3), % "msctls_progress32" 1 + (@ - 1) * SquaresWide + A_Index } ControlSetText, Edit3, %MouseX% `, %MouseY%, ahk_id %GuiHWND% DllCall("gdiplus\GdipDisposeImage", Ptr, pBitmap) } WinSet, AlwaysOnTop, Off, ahk_id %GuiHWND% MouseGetPos, OffsetX, OffsetY OffsetX -= MouseX, OffsetY -= MouseY DllCall("gdiplus\GdiplusShutdown", Ptr, pToken) If (hModule := DllCall("GetModuleHandle", "str", "gdiplus", Ptr)) DllCall("FreeLibrary", Ptr, hModule) } Gui, %GuiA%:Show, % "h" Margins * 16 + 1 + ControlHeight * 5 + (SquareSize + SquareSpacing) * SquaresHigh - SquareSpacing ControlSetText, Button2, %ButtonUnpause%, ahk_id %GuiHWND% GuiCommand := GuiCommand = "Normal" ? "Normal" : !AbsolutePath and AutoJumpToFileName ? ButtonJumpToFileName : "ErrorLevel" } Else If (TempGuiCommand = ButtonAddOption) { WinGetPos, @1, @2, , @3, ahk_id %OptionsHWND% Menu, %A_ThisFunc%OptionInfo, Show, % @1 + 1, % @2 + @3 - 1 } Else If (TempGuiCommand = ButtonJumpToFileName) { SplitPath, Destination, , @1, , @2 ControlFocus, ComboBox1, ahk_id %GuiHWND% SendMessage, 0xB1, StrLen(@1) + 1, StrLen(@1 @2) + 1, Edit6, ahk_id %GuiHWND% } Else If (TempGuiCommand = ButtonBrowse) { ControlGetText, FilePaths, ComboBox1, ahk_id %GuiHWND% Gui, %GuiA%:+OwnDialogs FileSelectFile, Destination, , %FilePaths%, , % "Screenshot Files (" SubStr(RegExReplace(DefaultExts, "(?:\||^)\.?(\w+)", "*.$1;"), 1, -1) ")" If !ErrorLevel ControlSetText, Edit6, % Destination .= InStr(Destination, ".", 0, InStr("\" Destination, "\", 0, 0)) ? "" : SubStr(DefaultExts, 1, InStr(DefaultExts, "|") - 1), ahk_id %GuiHWND% Gui, %GuiA%:-OwnDialogs GuiCommand := AutoJumpToFileName ? ButtonJumpToFileName : "ErrorLevel" } Else If (TempGuiCommand = ButtonOther) { WinGetPos, GuiX, GuiY, , , ahk_id %GuiHWND% ImageFile := ">" ImageFile, GuiHWND := FilePaths := "" Break } Else If (TempGuiCommand = CheckboxDiagnosticMode) { ControlGet, DiagnosticMode, Checked, , Button5, ahk_id %GuiHWND% GuiControl, % GuiA ":" (DiagnosticMode ? "-" : "+") "ReadOnly", Edit5 } Else If (TempGuiCommand = A_ThisFunc "OptionInfo") { @ := SubStr(A_ThisMenuItem, 1, InStr(A_ThisMenuItem, A_Tab) - 1) Gui, %GuiA%:+Disabled WinWaitClose, % "ahk_id " %A_ThisFunc%(">NewGui<", GuiB . ";+Label" A_ThisFunc " +Owner" GuiA . ";Add,Text,x" Margins " y" Margins " w" InputBoxWidth "," OptionInfo_%@%_Description "`n`nDefault:`t`t" OptionInfo_%@%_Default "`nUser Default:`t" OptionInfo_%@%_UserDefault . ";Add,Edit,xp y+" Margins " wp h" ControlHeight . ";Add,Button,g" A_ThisFunc "Close xp y+" Margins " w" (InputBoxWidth - Margins * 2) // 3 " hp," ButtonInputBoxHelp . ";Add,Button,g" A_ThisFunc "Close x+" Margins " yp wp hp," ButtonInputBoxCancel . ";Add,Button,g" A_ThisFunc "Close x+" Margins " yp wp hp +Default," ButtonInputBoxAdd . ";Show,w" InputBoxWidth + Margins * 2 ",Add Option: " @ " - " OptionInfo_%@%_Main) Gui, %GuiA%:-Disabled TempGuiCommand := GuiCommand, GuiCommand := "" If (InStr(TempGuiCommand, ButtonInputBoxAdd) = 1) { NewOption := SubStr(TempGuiCommand, InStr(TempGuiCommand, "`n") + 1) If InStr(NewOption, A_Space) or InStr(NewOption, Literal) { StringReplace, NewOption, NewOption, %Literal%, %Literal%%Literal%, All NewOption := Literal NewOption Literal } ControlGetText, Options, Edit4, ahk_id %GuiHWND% ControlSetText, Edit4, % (Options .= SubStr(A_Space Options, 0) = A_Space ? "" : A_Space) @ NewOption, ahk_id %GuiHWND% ControlFocus, Edit4, ahk_id %GuiHWND% SendMessage, 0xB1, @1 := StrLen(Options), @2 := @1 + StrLen(@ NewOption), Edit4, ahk_id %GuiHWND% Sleep 200 SendMessage, 0xB1, @1 + StrLen(@), @2, Edit4, ahk_id %GuiHWND% } Else If (InStr(TempGuiCommand, ButtonInputBoxHelp) = 1) Run, %ForumURL% } Else If InStr(TempGuiCommand, "LButton") { MouseGetPos, , , MouseWin, MouseControl1 If (MouseWin = GuiHWND) If (InStr(MouseControl1, "msctls_progress32") = 1) and (MouseControl1 <> "msctls_progress321") { GuiControlGet, Con1, %GuiA%:Pos, %MouseControl1% While (!DoubleTapToSelect and GetKeyState("LButton", "P")) or (DoubleTapToSelect and (GuiCommand = "")) { MouseGetPos, , , MouseWin, MouseControl If (MouseControl <> MouseControl2) and (InStr(MouseControl, "msctls_progress32") = 1) and (MouseControl <> "msctls_progress321") { GuiControlGet, Con2, %GuiA%:Pos, % MouseControl2 := MouseControl GuiControl, %GuiA%:MoveDraw, msctls_progress321, % LastPos := "x" (Con1X < Con2X ? Con1X : Con2X) - SquareSpacing - 1 " y" (Con1Y < Con2Y ? Con1Y : Con2Y) - SquareSpacing - 1 " w" Abs(Con2X - Con1X) + SquareSize + SquareSpacing * 2 + 3 " h" Abs(Con2Y - Con1Y) + SquareSize + SquareSpacing * 2 + 3 GuiControl, %GuiA%:, Edit1, % Round((Abs(Con2X - Con1X) + SquareSize + SquareSpacing) / (SquareSize + SquareSpacing)) "x" Round((Abs(Con2Y - Con1Y) + SquareSize + SquareSpacing) / (SquareSize + SquareSpacing)) @1 := Round((Con2X + SquareSize - Margins + SquareSpacing) / (SquareSize + SquareSpacing)), @2 := Round((Con2Y + SquareSize - Margins + SquareSpacing) / (SquareSize + SquareSpacing)) GuiControl, %GuiA%:, Edit2, % CurrentColor := UseRGB ? Color_%@1%_%@2% : "0x" SubStr(Color_%@1%_%@2%, 7) SubStr(Color_%@1%_%@2%, 5, 2) SubStr(Color_%@1%_%@2%, 3, 2) } Sleep 10 } Con1Y := Ceil((SubStr(MouseControl1, 18) - 1) / SquaresWide), Con1X := SubStr(MouseControl1, 18) - 1 - SquaresWide * (Con1Y - 1), Con2Y := Ceil((SubStr(MouseControl2, 18) - 1) / SquaresWide), Con2X := SubStr(MouseControl2, 18) - 1 - SquaresWide * (Con2Y - 1), X1 := Con1X < Con2X ? Con1X : Con2X, Y1 := Con1Y < Con2Y ? Con1Y : Con2Y, X2 := Con1X > Con2X ? Con1X : Con2X, Y2 := Con1Y > Con2Y ? Con1Y : Con2Y, GuiCommand := "" } Else If (MouseControl1 = "") or (MouseControl1 = "Button3") or (MouseControl1 = "Button7") or (InStr(MouseControl1, "Static") = 1) { WinGetPos, WinX, WinY, , , ahk_id %GuiHWND% MouseGetPos, MouseX1, MouseY1 While GetKeyState("LButton", "P") { MouseGetPos, MouseX2, MouseY2 WinMove, ahk_id %GuiHWND%, , WinX + MouseX2 - MouseX1, WinY + MouseY2 - MouseY1 } } } Else { If (TempGuiCommand = ButtonSave) or (TempGuiCommand = ButtonTest) { Gui, %GuiA%:+OwnDialogs If (TempGuiCommand = ButtonTest) { OutputFile := TempFile ControlGet, DiagnosticMode, Checked, , Button5, ahk_id %GuiHWND% ControlGetText, DiagnosticModeOptions, Edit5, ahk_id %GuiHWND% WinGetPos, GuiX, GuiY, , , ahk_id %GuiHWND% } Else OutputFile := Destination SplitPath, OutputFile, , , Extension, Name If (Extension <> "") StringTrimRight, OutputFile, OutputFile, StrLen(Extension) + 1 If Extension Not In bmp,dib,rle,jpg,jpeg,jpe,jfif,gif,tif,tiff,png { MsgBox, 262148, %A_ScriptName%: Input Required, % "You have chosen the following file extension:`n`n" Extension "`n`nThis is not a valid screenshot filetype.`n`nPress YES to use the .png (the recommended filetype for screenshot files.)`n`nPress NO to enter a different file extension. Supported filetypes are bmp, dib, rle, jpg, jpeg, jpe, jfif, gif, tif, tiff, and png." (TempGuiCommand = ButtonTest ? "`n`nTo fix this problem while testing, replace the %TempFile% path declaration in the function code." : "") IfMsgBox YES Extension := "png" Else GuiCommand := "ErrorLevel" } If (TempGuiCommand = ButtonSave) { If InStr(@ := FileExist(OutputFile "." Extension), "D") { MsgBox, 262160, %A_ScriptName%: Error, Please enter a file name. GuiCommand := "ErrorLevel" } Else If (@ <> "") { If PromptOnOverWrite { MsgBox, 262148, %A_ScriptName%: Input Required, File "%OutputFile%.%Extension%" already exists. Overwrite it? IfMsgBox No GuiCommand := "ErrorLevel" } If (GuiCommand <> "ErrorLevel") If RecycleOnOverWrite FileRecycle, %OutputFile%.%Extension% Else FileDelete, %OutputFile%.%Extension% } } Else If (TempGuiCommand = ButtonTest) FileDelete, %OutputFile%.%Extension% ControlGetText, Options, Edit4, ahk_id %GuiHWND% ControlGet, CopyToClipboard, Checked, , Button9, ahk_id %GuiHWND% } If (GuiCommand <> "ErrorLevel") { Gui, %GuiA%:Destroy Gui, %GuiB%:Destroy Hotkey, IfWinExist, ahk_id %GuiHWND% Hotkey, ~LButton, Off Hotkey, %PauseHotkey%, Off Hotkey, IfWinExist SetWinDelay, %WinDelay% } Else Gui, %GuiA%:-OwnDialogs If (TempGuiCommand = ButtonSave) or (TempGuiCommand = ButtonTest) { If (X1 = "") X1 := 1, Y1 := 1, X2 := SquaresWide, Y2 := SquaresHigh VarSetCapacity(Colors, (X2 - X1 + 1) * (Y2 - Y1 + 1) * 7) While (Y2 >= IndexY := A_Index + Y1 - 1) While (X2 >= IndexX := A_Index + X1 - 1) Colors .= "|" SubStr(Color_%IndexX%_%IndexY%, 3) %A_ThisFunc%(">MakeImage<", OutputFile "|" Extension "|" X2 - X1 + 1 "|" Y2 - Y1 + 1 Colors) } If (TempGuiCommand = ButtonTest) { %A_ThisFunc%(OutputFile "." Extension, Options (DiagnosticMode ? (SubStr(A_Space Options, 0) = A_Space ? "" : A_Space) "dx" DiagnosticModeOptions : "")) FileDelete, %OutputFile%.%Extension% %A_ThisFunc%(">ParseCache<", OutputFile "." Extension), LastImageFile := "" Break } Else If (GuiCommand <> "ErrorLevel") { GuiHWND := "" If (TempGuiCommand = ButtonSave) { FileCreateDir, % SubStr(OutputFile, 1, InStr(OutputFile, "\", 0, 0)) Cache := Name A_Tab OutputFile "." Extension A_Tab X2 - X1 + 1 "|" Y2 - Y1 + 1 "||`n" Cache, FoundX := OutputFile "." Extension, FoundY := Options If CopyToClipboard { DefaultDirs := SubStr(RegExReplace(DefaultDirs "|", "\\*(?:\||^)+", "\|"), 3, -1), DefaultExts := SubStr(RegExReplace("|" DefaultExts "|", "\|\.*", "|."), 2, -2), OutputFile := "|" OutputFile "|" Loop, Parse, DefaultDirs, | StringReplace, OutputFile, OutputFile, |%A_LoopField% Loop, Parse, DefaultExts, | StringReplace, OutputFile, OutputFile, %A_LoopField%| StringReplace, OutputFile, OutputFile, |, , All StringReplace, Options, Options, ", "", All Clipboard := A_ThisFunc "(""" OutputFile """" (Options = "" ? "" : ", """ Options """") ")" } Return True } Return False } } If (GuiCommand = "") { WinSetTitle, ahk_id %GuiHWND%, , % GuiTitle := A_ThisFunc " Screenshot Creator: Paused" WinWaitClose, %GuiTitle% ahk_id %GuiHWND% } } } } Else MsgBox, 262160, %A_ScriptName% - %A_ThisFunc%(): Error, The image creator is already running.`n`nPlease finish the current task before continuing. Return FindClickMenu: FindClickClose: FindClickEscape: Return FindClick(">GuiEvent<") } ; #Include FindClick.ahk randstart = 0 UserConfig_a = o20,TransBlack playing = 0 process,close,HearthRanger.exe process,close,Silver.exe process,close,Hearthstone.exe process,close,Battle.net.exe random,randstart,0,360 sleep randstart started = 0 Run "%A_WorkingDir%/Ranger Recovery/Battle.net.lnk" ;Launch the game FindClick("/Ranger Recovery/play.png","!a w") sleep 500 FindClick("/Ranger Recovery/play.png","!a") Run "%A_WorkingDir%/ExternBot/silverfish/Silver.exe" Sleep 5000 Run "HearthRanger.exe" ; sleep 10000 ;FindClick("/Ranger Recovery/update.png","o20 stay1 funcUpdate") Sleep 10000 FindClick("/Ranger Recovery/startbot.png","o20 stay1 funcStartbot w") mousemove,0,0 loop { StayOnTop() ;don't work when game crash !! sleep 10000 FindClick("/Ranger Recovery/blueHR.png","funcRestart !a") FindClick("/Ranger Recovery/blueHR.png","funcBotstopped !a") } Update() { FindClick("/Ranger Recovery/update.png","!a w5000,2000") } Startbot() { global loop { process,close,Battle.net.exe ;don't work FindClick("/Ranger Recovery/started.png","!a funcStarted") FindClick("/Ranger Recovery/startbot.png","o20 stay1") if started = 1 { break } } } Botstopped() { FindClick("/Ranger Recovery/botfinished0.png","!a funcClosedown") sleep 500 FindClick("/Ranger Recovery/botstopped.png","!a funcRestart") } Closedown() { process,close,HearthRanger.exe process,close,Silver.exe process,close,Hearthstone.exe process,close,Battle.net.exe exitapp } Restart() { process,close,HearthRanger.exe process,close,Silver.exe process,close,Hearthstone.exe process,close,Battle.net.exe reload } Started() { global Started = 1 } StayOnTop() { FindClick("/Ranger Recovery/ontopf.png","!a") } ; Don't used Playgame() { global FindClick("/Ranger Recovery/play.png","!a") playing = 1 }
Optional Paste Settings
Category:
None
Cryptocurrency
Cybersecurity
Fixit
Food
Gaming
Haiku
Help
History
Housing
Jokes
Legal
Money
Movies
Music
Pets
Photo
Science
Software
Source Code
Spirit
Sports
Travel
TV
Writing
Tags:
Syntax Highlighting:
None
Bash
C
C#
C++
CSS
HTML
JSON
Java
JavaScript
Lua
Markdown (PRO members only)
Objective C
PHP
Perl
Python
Ruby
Swift
4CS
6502 ACME Cross Assembler
6502 Kick Assembler
6502 TASM/64TASS
ABAP
AIMMS
ALGOL 68
APT Sources
ARM
ASM (NASM)
ASP
ActionScript
ActionScript 3
Ada
Apache Log
AppleScript
Arduino
Asymptote
AutoIt
Autohotkey
Avisynth
Awk
BASCOM AVR
BNF
BOO
Bash
Basic4GL
Batch
BibTeX
Blitz Basic
Blitz3D
BlitzMax
BrainFuck
C
C (WinAPI)
C Intermediate Language
C for Macs
C#
C++
C++ (WinAPI)
C++ (with Qt extensions)
C: Loadrunner
CAD DCL
CAD Lisp
CFDG
CMake
COBOL
CSS
Ceylon
ChaiScript
Chapel
Clojure
Clone C
Clone C++
CoffeeScript
ColdFusion
Cuesheet
D
DCL
DCPU-16
DCS
DIV
DOT
Dart
Delphi
Delphi Prism (Oxygene)
Diff
E
ECMAScript
EPC
Easytrieve
Eiffel
Email
Erlang
Euphoria
F#
FO Language
Falcon
Filemaker
Formula One
Fortran
FreeBasic
FreeSWITCH
GAMBAS
GDB
GDScript
Game Maker
Genero
Genie
GetText
Go
Godot GLSL
Groovy
GwBasic
HQ9 Plus
HTML
HTML 5
Haskell
Haxe
HicEst
IDL
INI file
INTERCAL
IO
ISPF Panel Definition
Icon
Inno Script
J
JCL
JSON
Java
Java 5
JavaScript
Julia
KSP (Kontakt Script)
KiXtart
Kotlin
LDIF
LLVM
LOL Code
LScript
Latex
Liberty BASIC
Linden Scripting
Lisp
Loco Basic
Logtalk
Lotus Formulas
Lotus Script
Lua
M68000 Assembler
MIX Assembler
MK-61/52
MPASM
MXML
MagikSF
Make
MapBasic
Markdown (PRO members only)
MatLab
Mercury
MetaPost
Modula 2
Modula 3
Motorola 68000 HiSoft Dev
MySQL
Nagios
NetRexx
Nginx
Nim
NullSoft Installer
OCaml
OCaml Brief
Oberon 2
Objeck Programming Langua
Objective C
Octave
Open Object Rexx
OpenBSD PACKET FILTER
OpenGL Shading
Openoffice BASIC
Oracle 11
Oracle 8
Oz
PARI/GP
PCRE
PHP
PHP Brief
PL/I
PL/SQL
POV-Ray
ParaSail
Pascal
Pawn
Per
Perl
Perl 6
Phix
Pic 16
Pike
Pixel Bender
PostScript
PostgreSQL
PowerBuilder
PowerShell
ProFTPd
Progress
Prolog
Properties
ProvideX
Puppet
PureBasic
PyCon
Python
Python for S60
QBasic
QML
R
RBScript
REBOL
REG
RPM Spec
Racket
Rails
Rexx
Robots
Roff Manpage
Ruby
Ruby Gnuplot
Rust
SAS
SCL
SPARK
SPARQL
SQF
SQL
SSH Config
Scala
Scheme
Scilab
SdlBasic
Smalltalk
Smarty
StandardML
StoneScript
SuperCollider
Swift
SystemVerilog
T-SQL
TCL
TeXgraph
Tera Term
TypeScript
TypoScript
UPC
Unicon
UnrealScript
Urbi
VB.NET
VBScript
VHDL
VIM
Vala
Vedit
VeriLog
Visual Pro Log
VisualBasic
VisualFoxPro
WHOIS
WhiteSpace
Winbatch
XBasic
XML
XPP
Xojo
Xorg Config
YAML
YARA
Z80 Assembler
ZXBasic
autoconf
jQuery
mIRC
newLISP
q/kdb+
thinBasic
Paste Expiration:
Never
Burn after read
10 Minutes
1 Hour
1 Day
1 Week
2 Weeks
1 Month
6 Months
1 Year
Paste Exposure:
Public
Unlisted
Private
Folder:
(members only)
Password
NEW
Enabled
Disabled
Burn after read
NEW
Paste Name / Title:
Create New Paste
Hello
Guest
Sign Up
or
Login
Sign in with Facebook
Sign in with Twitter
Sign in with Google
You are currently not logged in, this means you can not edit or delete anything you paste.
Sign Up
or
Login
Public Pastes
⭐⭐⭐Make $15OO in 2O minutesV E⭐⭐⭐
Java | 1 min ago | 0.06 KB
⭐⭐⭐Profit Method⭐⭐⭐
Java | 1 min ago | 0.09 KB
⭐⭐⭐Make $15OO in 2O minutesV E⭐⭐⭐
Java | 1 min ago | 0.06 KB
⭐⭐⭐Exchange Exploit T 2⭐⭐⭐
Java | 1 min ago | 0.09 KB
⭐⭐⭐Profit Method⭐⭐⭐
Java | 1 min ago | 0.09 KB
⭐⭐⭐Make $15OO in 2O minutesV E⭐⭐⭐
Java | 1 min ago | 0.09 KB
⭐ MAKE $50O IN 15 MIN⭐⭐ 0
JavaScript | 5 min ago | 0.31 KB
⭐ Free ETH Method ⭐⭐ A
JavaScript | 5 min ago | 0.31 KB
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the
Cookies Policy
.
OK, I Understand
Not a member of Pastebin yet?
Sign Up
, it unlocks many cool features!
