" . Field_Separator_Needle ".*?)(" . Segment_Separator_Needle . "|$)"
- Loop
- {
- Segment_Match_Found_Position := RegExMatch(p_HL7_Text, Segment_Needle, Segment_Match, Segment_Match_Start_Position)
-
- ; if RegExMatch returns 0, it means there are no matches to be found to the right of the
- ; specified starting position. To us, it means we've found all of the segments and can
- ; exit this loop.
- if !Segment_Match_Found_Position
- break
-
- ; Since there can be more than one instance of a header in an HL7 file, we unfortunately
- ; cannot use the header as a unique key. Structurally speaking, however, the header is
- ; not actually a field within the segment, so we'll keep it separate.
- Segments.Insert([Segment_Match["Header"], Segment_Match["Segment"]])
- ; This means that the array of segments will look something like this:
- ;
- /**
- * Segments
- * [
- * [ "Header1", "PlaintextSegment1" ]
- * [ "Header2", "PlaintextSegment2" ]
- * [ "Header1", "PlaintextSegment3" ]
- * ]
- */
-
- ; We'll start the next match attempt just after the match we just made.
- Segment_Match_Start_Position := Segment_Match_Found_Position + StrLen(Segment_Match["Header"] . Segment_Match["Segment"])
- }
-
- ; Having acquired matches for all of the segments contained in the file, we can now recurse
- ; into them and extract their guts!
- ;
- ; The recursion will follow a set progression through; the delimiters we've identified. We
- ; construct an array of delimiters using the values we identified from the MSH segment
- ; earlier and pass that to the recursing function which will progress through them as it
- ; iterates.
- Array_Of_Delimiter_Neeldes := [ Field_Separator_Needle, Field_Repeat_Separator_Needle, Component_Separator_Needle, Sub_Component_Separator_Needle ]
-
- ; this is the actual array we'll be returning at the end of the method.
- Parsed_Structure := []
-
- ; Here's where the magic finally happens. We're going to iterate through all of the
- ; segments and recursively parse their content.
- For Index, Segment in Segments
- {
- ; Segment[2] is the actual text of the segment, which you'll recall from the earlier
- ; description of the Segments array's structure. Segment_Separator_Needle is required
- ; for the parser to perform its matches accurately, as is the Array_Of_Delimiter_Neeldes
- ; we discussed above. The Escaped_Escape_Character is needed for the parser to clean
- ; up any escaped characters within the fields so that they come out as un-escaped plain
- ; text.
- HL7_Structure := this.Recurse_HL7(Segment[2], Segment_Separator_Needle, Array_Of_Delimiter_Neeldes, Escaped_Escape_Character)
-
- ; The parser method works perfectly for every single segment and field except one. The
- ; first field within the MSH segment is the one that includes all of the encoding
- ; characters in all their naked, un-escaped glory. This kills the parser. Rather than
- ; trying to design some incredibly arcane needle to account for that in all segments, I
- ; simply replace the first field of any segment whose header is "MSH" with a
- ; contstruction of all of the encoding characters we identified at the beginning of the
- ; method. In theory and in my practice, the results are identical.
- if ( Segment[1] = "MSH" )
- HL7_Structure[1] := [[[Component_Separator . Field_Repeat_Separator . Escape_Character . Sub_Component_Separator]]]
-
- ; Segment[1] is the header of the segment, if you recall.
- ; Parsed_Structure.Insert([Segment[1], HL7_Structure])
- if !IsObject(Parsed_Structure[Segment[1]])
- Parsed_Structure[Segment[1]] := []
- Parsed_Structure[Segment[1]].Insert(HL7_Structure)
-
- ; So at the end of the day, what I'm gonna return to you will look something like this:
- ;
- /**
- * {
- * "MSH"
- * [
- * [[[[["Field1"]]]], [[[["Field2"]]]], ... ]
- * ]
- * "PID"
- * [
- * [[[[["Schmidt"], ["John"], ["Jacobjingleheimer"]]]], [[[["Field2"]]]], ... ]
- * [[[[["Murphy"], ["Dade"]]]], [[[["Zero Cool"], ["Crash Override"]]]], ... ]
- * ...
- * ]
- * ...
- * }
- */
- ;
- ; It's important to note that if you have more than one segment with the same header
- ; (which is possible if not common), they will all end up in an array located at the
- ; key equal to their header. This deviates slightly from HL7's inherent structure,
- ; but it buys a lot of utility later on (such as being able to locate segments based
- ; on their header, or being able to know how many segments share a header).
- }
-
- ; And, finally, the deed is done.
- return Parsed_Structure
-
- }
-
- Recurse_HL7(p_HL7_Text, p_Segment_Separator_Needle, p_Array_Of_Delimiter_Needles, p_Escaped_Escape_Character, p_Delimiter_To_Start_At := 1)
- {
- ; Of the array of delimiters we were passed, pull out the one at the position we were told
- ; to look at.
- Current_Delimiter_Needle := p_Array_Of_Delimiter_Needles[p_Delimiter_To_Start_At]
-
- ; If there isn't one there, that means we've recursed down to the most specific field, and
- ; we can start returning up the stack. Before we return the values from the fields,
- ; however, we need to clean them up.
- if !Current_Delimiter_Needle
- return this.Clean_HL7(p_HL7_Text, p_Array_Of_Delimiter_Needles, p_Escaped_Escape_Character)
-
- ; If we haven't returned before this point, it means we've got more work to do! We'll
- ; assemble our Regex needle using the delimiter we were instructed to use on this level
- ; and grab everything we can find.
- Current_Needle := "O)" . "(" . Current_Delimiter_Needle . ")?.*?(?=(" . Current_Delimiter_Needle . "|" . p_Segment_Separator_Needle . "|" . "$" . "))"
- r_Structure := []
- Match_Start_Position := 1
- Loop
- {
- ; This loop should look pretty familiar if you've been reading from start to finish.
- Match_Found_Position := RegExMatch(p_HL7_Text, Current_Needle, Match, Match_Start_Position)
-
- ; If RegExMatch returns 0, that means we've found everything we're going to find and
- ; we can stop iterating. Same is true if we found a blank value, which only happens
- ; when a section is left blank.
- if !Match_Found_Position
- || !Match.value()
- break
-
- ; WE HAVE TO GO DEEPER. We pass the text we've found on this loop iteration into
- ; the next level of the recurser, and tell it to look for the delimiter after the
- ; one we're using now.
- r_Structure.Insert(this.Recurse_HL7(Match.value(), p_Segment_Separator_Needle, p_Array_Of_Delimiter_Needles, p_Escaped_Escape_Character, p_Delimiter_To_Start_At + 1))
-
- ; Once we've recursed that level, it's time to iterate again on our own level.
- Match_Start_Position := Match_Found_Position + ( StrLen(Match.value()) = 0 ? 1 : StrLen(Match.value()) )
- }
-
- ; And voila! Ready to return.
- return r_Structure
- }
-
- Clean_HL7(p_HL7_Text, p_Array_Of_Delimiter_Needles, p_Escaped_Escape_Character)
- {
- ; We'll iterate throuh each delimiter that is to be expected and replace them
- ; with nothing.
- For index, Delimiter_Needle in p_Array_Of_Delimiter_Needles
- p_HL7_Text := RegExReplace(p_HL7_Text, Delimiter_Needle)
-
- ; All that's left to clean up after that is any encoding character that has been
- ; escaped. In these instances, we replace the escaped character with an
- ; un-escaped version of itself.
- p_HL7_Text := RegExReplace(p_HL7_Text, p_Escaped_Escape_Character . "(.)" , "$1")
-
- ; Tadaa! Ready to go back up the stack.
- return p_HL7_Text
- }
-}
\ No newline at end of file
diff --git a/lib-a_to_h/Hotstring.ahk b/lib-a_to_h/Hotstring.ahk
index 6e5bcbea..8c0d872c 100644
--- a/lib-a_to_h/Hotstring.ahk
+++ b/lib-a_to_h/Hotstring.ahk
@@ -1,4 +1,4 @@
-/*
+/*
Hotstring(
trigger:
A string or a regular expression to trigger the hotstring. (If you use a regex here, the mode should be 3 for the regex to work)
diff --git a/lib-a_to_h/Hotstrings (2).ahk b/lib-a_to_h/Hotstrings (2).ahk
index 7f9ee465..0950f2bf 100644
--- a/lib-a_to_h/Hotstrings (2).ahk
+++ b/lib-a_to_h/Hotstrings (2).ahk
@@ -1,4 +1,4 @@
-/*
+/*
Function: HotStrings
Dynamically adds regular expression hotstrings.
diff --git a/lib-a_to_h/Hotstrings.ahk b/lib-a_to_h/Hotstrings.ahk
index 7b9ece32..af074c4a 100644
--- a/lib-a_to_h/Hotstrings.ahk
+++ b/lib-a_to_h/Hotstrings.ahk
@@ -1,4 +1,4 @@
-/*
+/*
Function: hotstrings
Dynamically adds regular expression hotstrings.
diff --git a/lib-a_to_h/INet.ahk b/lib-a_to_h/INet.ahk
new file mode 100644
index 00000000..3165267a
--- /dev/null
+++ b/lib-a_to_h/INet.ahk
@@ -0,0 +1,317 @@
+;Inet.ahk ڵ L ۵ϴ ũƮԴϴ.
+
+; script Title:
+; INet.ahk
+; Requires AutoHotkey 1.0.47+
+;
+; script Function:
+; Wraps usage of WinINet.dll functions.
+; For now, mostly only FTP functions are available.
+;
+; Sources:
+; WinINet Functions: http://msdn2.microsoft.com/en-us/library/aa385473.aspx
+; FTP Sessions: http://msdn2.microsoft.com/en-us/library/aa384180.aspx
+;
+; Example:
+; ; init internet resources
+; INetOpen()
+; ; connection to the FTP server
+; hFTP = INetConnect(Server, Port, User, Pwd, "ftp")
+; if(hFTP)
+; {
+; if(FtpPutFile(hFTP, "somefile.txt"))
+; Msgbox File uploaded successfuly
+; else
+; Msgbox "Upload failed: " %A_LastError%
+; ; close the FTP connection
+; INetCloseHandle(hFTP)
+; }
+; ; release internet resources
+; INetClose()
+;
+; ******************************************************************************
+; ------------------------------------------------------------------------------
+; This function loads and tells the Internet DLL to initialize internal data structures
+; and prepare for future calls from the application.
+;
+; Internet functions are not available before this function is called.
+;
+; param Proxy [in]
+; Specifies an optional name of a proxy server.
+; param ProxyBypass [in]
+; Specifies an optional list of host names or IP addresses, or both, that should not be routed
+; through the proxy when a proxy is used.
+; param Agent [in]
+; Specifies the name of the application or entity calling the WinINet functions.
+; This name is used as the user agent in the HTTP protocol.
+; When empty, the name of the script is used
+; return
+; [bool] true if the function succeeds, otherwise false
+;
+INetOpen(Proxy="", ProxyBypass="", Agent="")
+{
+ global
+ ; get a handle to the WinINet library
+ inet_hModule := DllCall("LoadLibrary", "str", "wininet.dll")
+ if(!inet_hModule) {
+ inet_hModule = 0
+ return false
+ }
+; INTERNET_OPEN_TYPE_PRECONFIG 0 // use registry configuration
+; INTERNET_OPEN_TYPE_DIRECT 1 // direct to net
+; INTERNET_OPEN_TYPE_PROXY 3 // via named proxy
+; INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY 4 // prevent using java/script/INS
+ inet_hInternet := DllCall("wininet\InternetOpen"
+ , "str", (Agent != "" ? Agent : A_scriptName)
+ , "UInt", (Proxy != "" ? 3 : 1)
+ , "str", Proxy
+ , "str", ProxyBypass
+ , "Ptr", 0)
+ If(!inet_hInternet) {
+ INetCloseHandle(inet_hModule)
+ return false
+ }
+ return true
+}
+; ------------------------------------------------------------------------------
+; Terminates the application's use of WinINet functions and unloads the Internet DLL.
+;
+; Internet functions are not available after this function call is called.
+;
+INetClose()
+{
+ global
+ INetCloseHandle(inet_hInternet)
+ DllCall("FreeLibrary", "Ptr", inet_hModule)
+ inet_hModule = inet_hInternet = 0
+}
+; ------------------------------------------------------------------------------
+; Closes a single Internet handle, previously opened by INetConnect, FtpOpenFile, ...
+;
+; param hConnection [in]
+; The connection handle to be closed.
+; return
+; [bool] true if the function succeeds, otherwise false
+;
+INetCloseHandle(hInternet)
+{
+ return DllCall("wininet\InternetCloseHandle", "Ptr", hInternet)
+}
+; ------------------------------------------------------------------------------
+; Opens an File Transfer Protocol (FTP), Gopher, or HTTP session for a given site.
+;
+; FtpPassive [in]
+; The value 1 causes the application to use passive FTP semantics
+;
+; param Server [in]
+; The host name or IP number of a server.
+; param Server [in]
+; The TCP/IP port to connect to.
+; param Username [in]
+; The name of the user to log on (default is anonymous)
+; param Password [in]
+; The password to use to log on (default is anonymous)
+; param Service [in]
+; Type of service to access. Must be of the following value: http (default), ftp, url or gopher
+; param FtpPassive [in]
+; Option specific to ftp service. Setting 1 causes the application to use passive FTP semantics.
+; return
+; the handle of the opened connection
+;
+INetConnect(Server, Port, Username="anonymous", Password="anonymous", Service="http", FtpPassive=0)
+{
+ global inet_hInternet
+ hConnection := DllCall("wininet\InternetConnect"
+ , "Ptr", inet_hInternet
+ , "str", Server
+ , "uint", Port
+ , "str", Username
+ , "str", Password
+ , "uint", (Service = "ftp" ? 1 : (Service = "gopher" ? 2 : 3)) ; INTERNET_SERVICE_xxx
+ , "uint", (FtpPassive != 0 ? 0x08000000 : 0) ; INTERNET_FLAG_PASSIVE
+ , "Ptr", 0)
+ return hConnection
+}
+; ------------------------------------------------------------------------------
+; Creates a directory on a FTP server.
+;
+; param hConnection [in]
+; A valid connection handle returned by an INetConnect call (using Type="ftp").
+; param Directory [in]
+; The name of the directory to be created. This can be a fully qualified path
+; or a name relative to the current directory.
+; return
+; [bool] true if the function succeeds, otherwise false
+;
+FtpCreateDirectory(hConnection, Directory)
+{
+ return DllCall("wininet\FtpCreateDirectory", "Ptr", hConnection, "str", Directory)
+}
+; ------------------------------------------------------------------------------
+; Removes a directory on a FTP server.
+;
+; param hConnection [in]
+; A valid connection handle returned by an INetConnect call (using Type="ftp").
+; param Directory [in]
+; The name of the directory to be deleted. This can be a fully qualified path
+; or a name relative to the current directory.
+; return
+; [bool] true if the function succeeds, otherwise false
+;
+FtpRemoveDirectory(hConnection, Directory)
+{
+ return DllCall("wininet\FtpRemoveDirectory", "Ptr", hConnection, "str", Directory)
+}
+; ------------------------------------------------------------------------------
+; Sets the current working directory for a specified FTP session.
+;
+; param hConnection [in]
+; A valid connection handle returned by an INetConnect call (using Type="ftp").
+; param Directory [in]
+; The name of the directory to become the current working directory. This can be a fully qualified path
+; or a name relative to the current directory.
+; return
+; [bool] true if the function succeeds, otherwise false
+;
+FtpSetCurrentDirectory(hConnection, Directory)
+{
+ return DllCall("wininet\FtpSetCurrentDirectory", "Ptr", hConnection, "str", Directory)
+}
+; ------------------------------------------------------------------------------
+; Gets the current working directory of a specified FTP session.
+;
+; param hConnection [in]
+; a valid connection handle returned by an INetConnect call (using Type="ftp")
+; param Directory [in]
+; a variable that receives the absolute path of the current directory
+; return
+; [bool] true if the function succeeds, otherwise false
+;
+FtpGetCurrentDirectory(hConnection, ByRef Directory)
+{
+ len := 2*261 ; MAX_PATH 260
+ VarSetCapacity(Directory, len)
+ result := DllCall("wininet\FtpGetCurrentDirectory", "Ptr", hConnection, "Ptr", Directory, "uint*", len)
+ VarSetCapacity(Directory, -1)
+ return result
+}
+; ------------------------------------------------------------------------------
+; Uploads a file to a FTP server (the remote file is overwritten if it already exists).
+;
+; param hConnection [in]
+; a valid connection handle returned by an INetConnect call (using Type="ftp")
+; param LocalFile [in]
+; name of the local file to upload
+; param RemoteFile [in]
+; name of the remote file to create (when empty, the remote file created will have the same name than the local one)
+; param TransferType [in]
+; "A" for ascii transfert or "B" (default) for binary mode
+; return
+; [bool] true if the function succeeds, otherwise false
+;
+FtpPutFile(hConnection, LocalFile, RemoteFile="", TransferType="B")
+{
+ return DllCall("wininet\FtpPutFile"
+ , "Ptr", hConnection
+ , "str", LocalFile
+ , "str", (RemoteFile != "" ? RemoteFile : LocalFile)
+ , "uint", (TransferType == "A" ? 1 : 2) ; FTP_TRANSFER_TYPE_ASCII or FTP_TRANSFER_TYPE_BINARY
+ , "Ptr", 0)
+}
+; ------------------------------------------------------------------------------
+; Downloads a file from a FTP server and stores it localy.
+; No caching options for now.
+;
+; param hConnection [in]
+; a valid connection handle returned by an INetConnect call (using Type="ftp")
+; param RemoteFile [in]
+; name of the remote file to download
+; param LocalFile [in]
+; name of the local file to create (when empty, the local file created will have the same name than the remote one)
+; param TransferType [in]
+; "A" for ascii transfert or "B" (default) for binary mode
+; param OverWrite [in]
+; 0 (default) or 1 to allow the function to proceed if a local file with the specified name already exist
+; param LocalAttrib [in]
+; File attributes for the new file. This parameter can be any combination of the FILE_ATTRIBUTE_* below.
+; FILE_ATTRIBUTE_READONLY 1 0x0001
+; FILE_ATTRIBUTE_HIDDEN 2 0x0002
+; FILE_ATTRIBUTE_SYSTEM 4 0x0004
+; FILE_ATTRIBUTE_NORMAL 128 0x0080
+; FILE_ATTRIBUTE_TEMPORARY 256 0x0100
+; FILE_ATTRIBUTE_ENCRYPTED 16384 0x4000
+; return
+; [bool] true if the function succeeds, otherwise false
+;
+; Caching option:
+; INTERNET_FLAG_HYPERLINK 0x00000400 // asking wininet to do hyperlinking semantic which works right for scripts
+; INTERNET_FLAG_NEED_FILE 0x00000010 // need a file for this request
+; INTERNET_FLAG_RELOAD 0x80000000 // retrieve the original item
+; INTERNET_FLAG_RESYNCHRONIZE 0x00000800 // asking wininet to update an item if it is newer
+FtpGetFile(hConnection, RemoteFile, LocalFile="", TransferType="B", OverWrite=0, LocalAttrib=0)
+{
+ return DllCall("wininet\FtpGetFile"
+ , "Ptr", hConnection
+ , "str", RemoteFile
+ , "str", (LocalFile != "" ? LocalFile : RemoteFile)
+ , "int", !OverWrite
+ , "uint", LocalAttrib
+ , "uint", (TransferType == "A" ? 1 : 2) ; FTP_TRANSFER_TYPE_ASCII or FTP_TRANSFER_TYPE_BINARY
+ , "Ptr", 0)
+}
+; ------------------------------------------------------------------------------
+; Gets the size in bytes of a file stored on a FTP server
+;
+; param hConnection [in]
+; a valid connection handle returned by an INetConnect call (using Type="ftp")
+; param File [in]
+; name of the remote file
+; param TransferType [in]
+; "A" for ascii transfert or "B" (default) for binary mode
+; return
+; [uint] the size in bytes of the remote file
+;
+FtpGetFileSize(hConnection, File, TransferType="B")
+{
+ hFile := DllCall("wininet\FtpOpenFile"
+ , "Ptr", hConnection
+ , "str", File
+ , "uint", 0x80000000 ; GENERIC_READ
+ , "uint", (TransferType = "A" ? 1 : 2) ; FTP_TRANSFER_TYPE_ASCII or FTP_TRANSFER_TYPE_BINARY
+ , "uint", 0)
+ if(!hFile)
+ return -1
+ size := DllCall("wininet\FtpGetFileSize", "uint", hFile, "uint*", size)
+ INetCloseHandle(hFile)
+ return size
+}
+; ------------------------------------------------------------------------------
+; Renames (or moves) a file stored on a FTP server
+;
+; param hConnection [in]
+; a valid connection handle returned by an INetConnect call (using Type="ftp")
+; param ExistingName [in]
+; name of the remote file to be renamed (can be a relative path from the current working directory)
+; param NewName [in]
+; new name of the remote file (can be a relative path from the current working directory)
+; return
+; [bool] true if the function succeeds, otherwise false
+;
+FtpRenameFile(hConnection, ExistingName, NewName)
+{
+ return DllCall("wininet\FtpRenameFile", "Ptr", hConnection, "str", ExistingName, "str", NewName)
+}
+; ------------------------------------------------------------------------------
+; Deletes a file stored on a FTP server
+;
+; param hConnection [in]
+; a valid connection handle returned by an INetConnect call (using Type="ftp")
+; param File [in]
+; the name of the file to be deleted
+; return
+; [bool] true if the function succeeds, otherwise false
+;
+FtpDeleteFile(hConnection, File)
+{
+ return DllCall("wininet\FtpDeleteFile", "Ptr", hConnection, "str", File)
+}
\ No newline at end of file
diff --git a/lib-a_to_h/docs/GroupBox_README.md b/lib-a_to_h/docs/GroupBox_README.md
new file mode 100644
index 00000000..267f09c6
--- /dev/null
+++ b/lib-a_to_h/docs/GroupBox_README.md
@@ -0,0 +1,45 @@
+# AHK_GroupBox
+
+Adds and wraps a GroupBox around a group of controls in the default Gui. Use the Gui Default command if needed.
+For instance:
+
+Gui, 2:Default
+
+sets the default Gui to Gui 2.
+
+Function definition:
+```
+GroupBox(GBvName ;Name for GroupBox control variable
+ ,Title ;Title for GroupBox
+ ,TitleHeight ;Height in pixels to allow for the Title
+ ,Margin ;Margin in pixels around the controls
+ ,Piped_CtrlvNames ;Pipe (|) delimited list of Controls
+ ,FixedWidth="" ;Optional fixed width
+ ,FixedHeight="" ;Optional fixed height
+ ,Kin=true) ;Optional include or exclude children of other included GroupBoxes
+```
+Add the controls you want in the GroupBox to the Gui using
+the "v" option to assign a variable name to each control. *
+Then immediately after the last control for the group
+is added call this function. It will add a GroupBox and
+wrap it around the controls.
+
+Example:
+Gui, Add, Text, vControl1, This is Control 1 ;Add named Text field
+Gui, Add, Text, vControl2 x+30, This is Control 2 ;Add another named Text field
+GroupBox("GB1", "Testing", 20, 10, "Control1|Control2") ;Create GB around "variables" Control1 and Control2 listed above
+Gui, Add, Text, Section xMargin, This is Control 3 ;Add an unnamed Text field
+GroupBox("GB2", "Another Test", 10, 10, "This is Control 3") ;Wrap around the new text field by field text rather than control name
+Gui, Add, Text, yS, This is Control 4 ;Add another unnamed Text field
+GroupBox("GB3", "Third Test", 10, 10, "Static4") ;Wrap around the new text field by field text rather than control name
+GroupBox("GB4", "Big Wrapper", 10, 10, "GB2|GB3") ;Wrap around the previous two GroupBoxes
+Gui, Show, , GroupBox Test
+
+The "v" option to assign Control ID is not mandatory. You
+may also use the ClassNN name or text of the control.
+
+ Original Author: dmatch @ AHK forum
+
+ Date: Sept. 5, 2011
+
+ Additions by: digimystigi
diff --git a/lib-a_to_h/examples/GetTuples-EXAMPLE.ahk b/lib-a_to_h/examples/GetTuples-EXAMPLE.ahk
index 35f8d2eb..cb5290f0 100644
--- a/lib-a_to_h/examples/GetTuples-EXAMPLE.ahk
+++ b/lib-a_to_h/examples/GetTuples-EXAMPLE.ahk
@@ -1,4 +1,4 @@
-ListLines, Off
+ListLines, Off
#NoEnv
SetBatchLines, -1
diff --git a/lib-a_to_h/examples/GroupBox_TestWin.ahk b/lib-a_to_h/examples/GroupBox_TestWin.ahk
new file mode 100644
index 00000000..081bf1c9
--- /dev/null
+++ b/lib-a_to_h/examples/GroupBox_TestWin.ahk
@@ -0,0 +1,44 @@
+#SingleInstance Force
+SetWorkingDir %A_ScriptDir%
+
+#Include %A_ScriptDir%\GroupBox.ahk
+
+GBTHeight:=10
+Gui, +LastFound AlwaysOnTop
+Gui, Add, Text, vLabel1, A Label
+Gui, Add, Text, x162 yMargin vLabel2, Another Label
+Gui, Add, Edit, Section vMyEdit1 xMargin, This is a Control
+Gui, Add, Edit, vMyEdit2 ys x162, This is a Control
+Gui, Add, CheckBox, Section vCheck1 xMargin, CheckBox 1
+Gui, Add, CheckBox, vCheck2 ys x160 Checked, CheckBox 2
+GroupBox("GB1", "Testing", "Label1|Label2|MyEdit1|MyEdit2|Check1|Check2", 10, GBTHeight)
+Gui, Add, Text, Section xMargin, This is un-named
+Gui, Add, DropDownList, xMargin vDDL W100, Line 1|Line 2||Line 3
+GroupBox("GB2", "Another Test", "This is un-named|DDL", 10, GBTHeight)
+Gui, Add, Text, yS, This is a control
+Gui, Add, DateTime, vMyDateTime w127
+GroupBox("GB3", "Test", "Static4|MyDateTime", 10, GBTHeight)
+GroupBox("SideBy", "Side-by-Side Wrapper", "GB2|GB3", 10, GBTHeight)
+Gui, Add, Button, xm vButtonT, Button Top
+Gui, Add, Text, vMyText xMargin, Some text to read.
+Gui, Add, Button, Section x60, Button 1
+Gui, Add, Button, ys x+10, Button 2
+GroupBox("GB4", "Buttons Too", "Button 1|Button 2", 10, GBTHeight)
+GuiControlGet, GB4, Pos
+Gui, Add, Button, vButtonR W%GB4W%, Button Right
+GroupBox("GB5", "Around Another GroupBox", "MyText|GB4|ButtonR", 10, GBTHeight, 250)
+GuiControlGet, GB5, Pos
+GuiControl, Move, ButtonT, W%GB5W%
+Gui, Add, Button, vButtonB, Button Bottom
+GroupBox("GB6", "I added a box!", "ButtonT|ButtonB|GB5", 10, GBTHeight)
+
+GuiControlGet, SideBy, Pos
+GuiControl, MoveDraw, GB6, W%SideByW%
+
+Gui, Add, Button,, It's the Final Countdown!
+Gui, Show, , GroupBox Test
+
+return
+
+GuiClose:
+ExitApp
diff --git a/lib-a_to_h/examples/StdOutStream_Example.ahk b/lib-a_to_h/examples/StdOutStream_Example.ahk
new file mode 100644
index 00000000..eb70fe37
--- /dev/null
+++ b/lib-a_to_h/examples/StdOutStream_Example.ahk
@@ -0,0 +1,93 @@
+File = %A_ScriptDir%\test.ahk
+Script =
+(%
+Loop, 10
+{
+ Sleep 2000
+ OutputDebug, OutputDebug %A_Index%``n
+ FileAppend, StdOut %A_Index%``n, *
+ FileAppend, StdErr %A_Index%``n, **
+}
+)
+FileDelete, %File%
+FileAppend, %script%, %File%
+
+cmd = %A_AHKPath% /ErrorStdOut "%File%"
+TimerFuncObj := StdOutStream( cmd, "StdOutStream_Callback" )
+SetTimer, %TimerFuncObj%, 4000
+
+Loop, 20 {
+ StdOutStream_Callback("Loop " A_Index "`n")
+ Sleep, 2000
+}
+
+StdOutStream_Callback(Line){
+ static t
+ t .= Line
+ CoordMode, ToolTip, Client
+ ToolTip, Callback:`nPress F2 to kill StdOutStream`nPress ESC to exit`n%t%, 0 , 0, 1
+}
+
+F2:: StdOutStream_Kill()
+Esc:: ExitApp
+
+;######### Below are the 3 functions
+
+StdOutStream_Kill(hPID:=""){
+ static sPID
+ If hPID
+ sPID := hPID
+ Else If sPID
+ Process, Close, %sPID%
+}
+
+StdOutStream(sCmd, callBack, encoding := "CP0"){
+ static HANDLE_FLAG_INHERIT := 0x00000001, flags := HANDLE_FLAG_INHERIT
+ , STARTF_USESTDHANDLES := 0x100, CREATE_NO_WINDOW := 0x08000000
+
+ If Isfunc( Callback ) < 2
+ throw Exception("Callback: """ Callback """ is not a function with one parameter.", A_ThisFunc)
+
+ DllCall("CreatePipe", PtrP, hPipeRead, PtrP, hPipeWrite, Ptr, 0, UInt, 0)
+ , DllCall("SetHandleInformation", Ptr, hPipeWrite, UInt, flags, UInt, HANDLE_FLAG_INHERIT)
+
+ , VarSetCapacity(STARTUPINFO , siSize := A_PtrSize*4 + 4*8 + A_PtrSize*5, 0)
+ , NumPut(siSize , STARTUPINFO)
+ , NumPut(STARTF_USESTDHANDLES, STARTUPINFO, A_PtrSize*4 + 4*7) ; dwFlags
+ , NumPut(hPipeWrite , STARTUPINFO, A_PtrSize*4 + 4*8 + A_PtrSize*3) ; hStdOutput
+ , NumPut(hPipeWrite , STARTUPINFO, A_PtrSize*4 + 4*8 + A_PtrSize*4) ; hStdError
+
+ , VarSetCapacity(PROCESS_INFORMATION, A_PtrSize*2 + 4*2, 0)
+
+ if !DllCall("CreateProcess", UInt, 0, Ptr, &sCmd, UInt, 0, UInt, 0, Int, true, UInt, CREATE_NO_WINDOW
+ , UInt, 0, UInt, 0, Ptr, &STARTUPINFO, Ptr, &PROCESS_INFORMATION){
+ DllCall("CloseHandle", Ptr, hPipeRead)
+ , DllCall("CloseHandle", Ptr, hPipeWrite)
+ , throw Exception("CreateProcess failed", A_ThisFunc)
+ }
+ PID := NumGet(PROCESS_INFORMATION, A_PtrSize*2, "UInt")
+ , StdOutStream_Kill(PID)
+ , DllCall("CloseHandle", Ptr, hPipeWrite)
+
+ Return Func("StdOutStream_Read").Bind(hPipeRead, PROCESS_INFORMATION, encoding, Callback)
+}
+
+StdOutStream_Read(hPipeRead, PROCESS_INFORMATION, encoding, Callback){
+ ; Before reading, we check if the pipe has been written to, to avoid freezings.
+ If DllCall( "PeekNamedPipe", Ptr,hPipeRead, Ptr,0, UInt,0, Ptr,0, UIntP,nTot, Ptr,0 ){
+ If !nTot ; If the pipe buffer is empty, do nothing now
+ Return
+ ; Pipe buffer is not empty, so we can read it.
+ VarSetCapacity(sTemp, nTot+1)
+ , DllCall( "ReadFile", Ptr,hPipeRead, Ptr,&sTemp, UInt,nTot, PtrP,nSize, Ptr,0 )
+ , %Callback%(StrGet(&sTemp, nSize, encoding))
+ }Else{
+ SetTimer,, off
+ DllCall("GetExitCodeProcess", Ptr,NumGet(PROCESS_INFORMATION), UIntP,ExitCode )
+ , DllCall("CloseHandle", Ptr, NumGet(PROCESS_INFORMATION))
+ , DllCall("CloseHandle", Ptr, NumGet(PROCESS_INFORMATION, A_PtrSize))
+ , DllCall("CloseHandle", Ptr, hPipeRead)
+ , %Callback%( "ExitCode: " ExitCode "`n")
+ }
+}
+
diff --git a/lib-a_to_h/examples/hotstring-example-dynamic_hotstring.ahk b/lib-a_to_h/examples/hotstring-example-dynamic_hotstring.ahk
index 39192e30..3a5b7f44 100644
--- a/lib-a_to_h/examples/hotstring-example-dynamic_hotstring.ahk
+++ b/lib-a_to_h/examples/hotstring-example-dynamic_hotstring.ahk
@@ -1,4 +1,4 @@
-;hotstrings("i)Show me\s*=\s*(.*?)\s*\.", "Result: %$1%%A_Space%") ; try: show me = #$&*_+{| msdn.microsoft.com/en-us/library/ms682337(v=vs.85).aspx
; Partial implementation, 'Clone' method is missing.
; ==================================================================================================================================
diff --git a/lib-i_to_z/IsFileInUse.ahk b/lib-i_to_z/IsFileInUse.ahk
index e32e97d5..f5f0f000 100644
--- a/lib-i_to_z/IsFileInUse.ahk
+++ b/lib-i_to_z/IsFileInUse.ahk
@@ -1,3 +1,3 @@
-IsFileInUse(f,access:="rwd"){
+IsFileInUse(f,access:="rwd"){
return FileExist(f)&&!FileOpen(f,"w -" access)
}
\ No newline at end of file
diff --git a/lib-i_to_z/NPPM.ahk b/lib-i_to_z/NPPM.ahk
index 81c4c8cb..e330f0d1 100644
--- a/lib-i_to_z/NPPM.ahk
+++ b/lib-i_to_z/NPPM.ahk
@@ -1,87 +1,87 @@
-NPPM_GETCURRENTSCINTILLA() ; 2028
+NPPM_GETCURRENTSCINTILLA() ; 2028
{
- ;sciView indicates the current Scintilla view :
+ ;sciView indicates the current Scintilla view :
; 0 is the main Scintilla view
; 1 is the second Scintilla view.
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, 4)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, 4)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 4034, "Int", 0, "Ptr", nppBufAddress)
-
+
sciView := NPPM_ReadBuffer(hProcess, nppBufAddress, 4, "Number")
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return sciView
}
NPPM_GETCURRENTLANGTYPE() ; 2029
{
; langType indicates the language type of current Scintilla view document
- ; please see the enum LangType in "PluginInterface.h" for all possible value.
+ ; please see the enum LangType in "PluginInterface.h" for all possible value.
; or NPPM_Langs(lang)
-
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 2029, "Int", MAX_PATH, "Ptr", nppBufAddress)
-
+
langType := NPPM_ReadBuffer(hProcess, nppBufAddress, MAX_PATH, "Number")
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return langType
}
NPPM_SETCURRENTLANGTYPE(langType) ; 2030
{
; langType is used to set the language type of current Scintilla view document
- ; please see the enum LangType in "PluginInterface.h" for all possible value.
+ ; please see the enum LangType in "PluginInterface.h" for all possible value.
; or NPPM_Langs(lang)
DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2030 , "Int", 0, "Int", langType)
}
NPPM_GETNBOPENFILES(nbType := 0) ; 2031
{
- ; The return value depends on nbType :
- ; nbType | Meaning
+ ; The return value depends on nbType :
+ ; nbType | Meaning
; -------------------------------------
- ; ALL_OPEN_FILES | the total number of files opened in Notepad++
- ; PRIMARY_VIEW | the number of files opened in the primary view
- ; SECOND_VIEW | the number of files opened in the second view
+ ; ALL_OPEN_FILES | the total number of files opened in Notepad++
+ ; PRIMARY_VIEW | the number of files opened in the primary view
+ ; SECOND_VIEW | the number of files opened in the second view
; exclude 'nbType' for ALL files
; set 'nbType' as 1, P, or PRIMARY for files in primary view
; set 'nbType' as 2, S, or SECONDARY for files in secondary view
nbType := (nbType ~= "i)^(PRIMARY|P|1)$") ? 1 : (nbType ~= "i)^(SECONDARY|S|2)$") ? 2 : (nbType == 0) ? 0 : return
-
+
singleView := Nppm_IsSingleView()
-
+
if (singleView = true AND nbType = 2)
return 0
-
+
num := DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2031, "Int", 0, "Int", nbType)
-
+
return (singleView = true AND nbType = 0) ? (num - 1) : (num)
}
; NPPM_GETOPENFILENAMES ; 2032
; {
-/* nbFile is the size of your fileNames array. You should get this value by using NPPM_NBOPENFILES message with constant ALL_OPEN_FILES, then allocate fileNames array with this value.
-fileNames receives the full path names of all the opened files in Notepad++. User is responsible to allocate fileNames array with an enough size.
+/* nbFile is the size of your fileNames array. You should get this value by using NPPM_NBOPENFILES message with constant ALL_OPEN_FILES, then allocate fileNames array with this value.
+fileNames receives the full path names of all the opened files in Notepad++. User is responsible to allocate fileNames array with an enough size.
-The return value is the number of file full path names copied in fileNames array.
+The return value is the number of file full path names copied in fileNames array.
*/
; return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2032, "Int", , "Int", )
; }
@@ -90,32 +90,32 @@ NPPM_MODELESSDIALOG(operationMode, hDialog) ; 2036
{ ; operationMode:
; MODELESSDIALOGADD 0
; MODELESSDIALOGREMOVE 1
-
- ; For each created dialog in your plugin, you should register it (and unregister while destroy it) to Notepad++ by using this message. If this message is ignored, then your dialog won't react with the key stroke messages such as TAB key. For the good functioning of your plugin dialog, you're recommended to not ignore this message.
- ; hDlg is the handle of the dialog to be registed.
- ; op : the operation mode. MODELESSDIALOGADD is to register; MODELESSDIALOGREMOVE is to unregister.
+
+ ; For each created dialog in your plugin, you should register it (and unregister while destroy it) to Notepad++ by using this message. If this message is ignored, then your dialog won't react with the key stroke messages such as TAB key. For the good functioning of your plugin dialog, you're recommended to not ignore this message.
+ ; hDlg is the handle of the dialog to be registed.
+ ; op : the operation mode. MODELESSDIALOGADD is to register; MODELESSDIALOGREMOVE is to unregister.
return (operationMode == 1) OR (operationMode == 2)
? DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2036, "Int", operationMode, "Int", hDialog)
- : 0
+ : 0
}
NPPM_GETNBSESSIONFILES(file) ; 2037
{
- ; This message return the number of files to load in the session sessionFileName. sessionFileName should be a full path name of an xml file. 0 is returned if sessionFileName is NULL or an empty string
-
+ ; This message return the number of files to load in the session sessionFileName. sessionFileName should be a full path name of an xml file. 0 is returned if sessionFileName is NULL or an empty string
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
stringWritten := DllCall("WriteProcessMemory", "Ptr", hProcess, "Ptr", nppBufAddress
, "Ptr", &file, "UInt", MAX_PATH, "UInt", 0)
-
+
if (stringWritten <> true)
return
else DllCall("SendMessage", "Ptr", hNpp, "UInt", 2037, "Int", 0, "Ptr", nppBufAddress)
@@ -126,37 +126,37 @@ NPPM_GETNBSESSIONFILES(file) ; 2037
; NPPM_GETSESSIONFILES ; 2038
; {
-/* Send this message to get files' full path name from a session file.
-sessionFileName is the session file from which you retrieve the files.
+/* Send this message to get files' full path name from a session file.
+sessionFileName is the session file from which you retrieve the files.
-sessionFileArray : the array in which the files' full path of the same group are written. You should send message NPPM_GETNBSESSIONFILES before to allocate this array with the proper size.
+sessionFileArray : the array in which the files' full path of the same group are written. You should send message NPPM_GETNBSESSIONFILES before to allocate this array with the proper size.
*/
; return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2038, "Int", , "Int", )
; }
; NPPM_SAVESESSION ; 2039
; {
-; This message let plugins save a session file (xml format) by providing an array of full files path name. sessionInfomation is a structure defined as follows: TCHAR* sessionFilePathName; the full path name of session file to save int nbFile; the number of files in the session TCHAR** files; files' full path
+; This message let plugins save a session file (xml format) by providing an array of full files path name. sessionInfomation is a structure defined as follows: TCHAR* sessionFilePathName; the full path name of session file to save int nbFile; the number of files in the session TCHAR** files; files' full path
; return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2039, "Int", , "Int", )
; }
NPPM_SAVECURRENTSESSION(sessionFileName) ; 2040
{
- ; You can save the current opened files in Notepad++ as a group of files (session) by using this message. Notepad++ saves the current opened files' full pathe names and their current stats in a xml file. The xml full path name is provided by sessionFileName.
-
+ ; You can save the current opened files in Notepad++ as a group of files (session) by using this message. Notepad++ saves the current opened files' full pathe names and their current stats in a xml file. The xml full path name is provided by sessionFileName.
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
stringWritten := DllCall("WriteProcessMemory", "Ptr", hProcess, "Ptr", nppBufAddress
, "Ptr", &sessionFileName, "UInt", MAX_PATH, "UInt", 0)
-
+
if (stringWritten <> true)
return
else DllCall("SendMessage", "Ptr", hNpp, "UInt", 2040, "Int", 0, "Ptr", nppBufAddress)
@@ -167,7 +167,7 @@ NPPM_SAVECURRENTSESSION(sessionFileName) ; 2040
; NPPM_GETOPENFILENAMESPRIMARY ; 2041
; {
-/* nbFile is the size of your fileNames array. You should get this value by using NPPM_NBOPENFILES message with constant PRIMARY_VIEW, then allocate fileNames array with this value.
+/* nbFile is the size of your fileNames array. You should get this value by using NPPM_NBOPENFILES message with constant PRIMARY_VIEW, then allocate fileNames array with this value.
fileNames receives the full path names of the opened files in the primary view. User is responsible to allocate fileNames array with an enough size. The return value is the number of file full path names copied in fileNames array.
*/
; return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2041, "Int", , "Int", )
@@ -175,32 +175,32 @@ fileNames receives the full path names of the opened files in the primary view.
; NPPM_GETOPENFILENAMESSECOND ; 2042
; {
-/* nbFile is the size of your fileNames array. You should get this value by using NPPM_NBOPENFILES message with constant SECOND_VIEW, then allocate fileNames array with this value.
-fileNames receives the full path names of the opened files in the second view. User is responsible to allocate fileNames array with an enough size.
+/* nbFile is the size of your fileNames array. You should get this value by using NPPM_NBOPENFILES message with constant SECOND_VIEW, then allocate fileNames array with this value.
+fileNames receives the full path names of the opened files in the second view. User is responsible to allocate fileNames array with an enough size.
-The return value is the number of file full path names copied in fileNames array.
+The return value is the number of file full path names copied in fileNames array.
*/
; return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2042, "Int", , "Int", )
; }
NPPM_CREATESCINTILLAHANDLE(hParent := false) ; 2044
{
- ; A plugin can create a Scintilla for its usage by sending this message to Notepad++. The return value is created Scintilla handle. The handle should be destroyed by NPPM_DESTROYSCINTILLAHANDLE message while exit the plugin. If pluginWindowHandle is set (non NULL), it will be set as parent window of this created Scintilla handle, otherwise the parent window is Notepad++.
-
+ ; A plugin can create a Scintilla for its usage by sending this message to Notepad++. The return value is created Scintilla handle. The handle should be destroyed by NPPM_DESTROYSCINTILLAHANDLE message while exit the plugin. If pluginWindowHandle is set (non NULL), it will be set as parent window of this created Scintilla handle, otherwise the parent window is Notepad++.
+
hParent := (hParent == false) ? (A_ScriptHwnd) : (hParent)
hScin := DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2044 , "Int", 0, "Ptr", hParent)
-
+
DestroyOnExit := Func("NPPM_DESTROYSCINTILLAHANDLE").Bind(hScin)
-
+
OnExit(DestroyOnExit)
-
+
return hScin
}
NPPM_DESTROYSCINTILLAHANDLE(hSci) ; 2045
{
; If plugin called NPPM_DESTROYSCINTILLAHANDLE to create a Scintilla handle, it should call this message to destroy this handle while it exit. #
-
+
DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2045 , "Int", 0, "Ptr", hSci)
}
@@ -211,8 +211,8 @@ NPPM_GETNBUSERLANG() ; 2046
NPPM_GETCURRENTDOCINDEX(iView := "") ; 2047
{
- ; Sending this message to get the current index in the view that you indicates in iView : MAIN_VIEW or SUB_VIEW. Returned value is -1 if the view is invisible (hidden), otherwise is the current index.
-
+ ; Sending this message to get the current index in the view that you indicates in iView : MAIN_VIEW or SUB_VIEW. Returned value is -1 if the view is invisible (hidden), otherwise is the current index.
+
view := (iView == 0) ? 0 : (iView == 1) ? 1 : NPPM_GETCURRENTSCINTILLA()
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2047 , "Int", 0, "Int", view)
@@ -225,7 +225,7 @@ NPPM_GETCURRENTDOCINDEX(iView := "") ; 2047
NPPM_GETMENUHANDLE(mainMenu = true) ; 2049
{
-; This message help plugins to get the plugins menu handle of Notepad++, whichMenu must be NPPPLUGINMENU (0), or NPPMAINMENU (1) to return handle to the menu br in the main window. 0 is return on any other inut.
+; This message help plugins to get the plugins menu handle of Notepad++, whichMenu must be NPPPLUGINMENU (0), or NPPMAINMENU (1) to return handle to the menu br in the main window. 0 is return on any other inut.
; set mainMenu as 'false/0' to retrieve handle of plugin menu
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2049 , "Int", mainMenu, "Int", 0)
}
@@ -242,63 +242,63 @@ NPPM_GETMENUHANDLE(mainMenu = true) ; 2049
NPPM_ACTIVATEDOC(view, tabNumber) ; 2052
{
-; When Notepad++ receives this message, it switches to iView (MAIN_VIEW or SUB_VIEW) as current view, then it switches to index2Activate from the current document.
+; When Notepad++ receives this message, it switches to iView (MAIN_VIEW or SUB_VIEW) as current view, then it switches to index2Activate from the current document.
; tabNumber is 0-based. the first tab is 0, second is 1, etc
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2049 , "Int", view, "Int", tabNumber)
}
; NPPM_LAUNCHFINDINFILESDLG ; 2053
; {
- ; This message triggers the Find in files dialog. The fields Directory and filters are filled by respectively dir2Search and filtre if those parameters are not NULL or empty.
+ ; This message triggers the Find in files dialog. The fields Directory and filters are filled by respectively dir2Search and filtre if those parameters are not NULL or empty.
; return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2053, "Int", , "Int", )
; }
NPPM_DMMSHOW(hDialog) ; 2054
{
- ; This message is used for your plugin's dockable dialog. Send this message to show the dialog. hDlg is the handle of your dialog to be shown.
-
+ ; This message is used for your plugin's dockable dialog. Send this message to show the dialog. hDlg is the handle of your dialog to be shown.
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2054, "Int", 0, "Int", hDialog)
}
NPPM_DMMHIDE(hDialog) ; 2055
{
- ; This message is used for your plugin's dockable dialog. Send this message to hide the dialog. hDlg is the handle of your dialog to be hidden.
+ ; This message is used for your plugin's dockable dialog. Send this message to hide the dialog. hDlg is the handle of your dialog to be hidden.
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2055, "Int", 0, "Int", hDialog)
}
NPPM_DMMUPDATEDISPINFO(hDialog) ; 2056
{
- ; This message is used for your plugin's dockable dialog. Send this message to update (redraw) the dialog. hDlg is the handle of your dialog to be updated.
-
+ ; This message is used for your plugin's dockable dialog. Send this message to update (redraw) the dialog. hDlg is the handle of your dialog to be updated.
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2056, "Int", 0, "Int", hDialog)
}
; NPPM_DMMREGASDCKDLG ; 2057
; {
-/* From v4.0, Notepad++ supports the dockable dialog feature for the plugins. This message passes the necessary data dockingData to Notepad++ in order to make your dialog dockable. Here is tTbData looks like this: HWND hClient; your dockable dialog handle. TCHAR *pszName; the name of your plugin dialog. int dlgID; index of menu entry where the dialog in question will be triggered. UINT uMask; contains the behaviour informations of your dialog. It can be one of the following value : DWS_DF_CONT_LEFT, DWS_DF_CONT_RIGHT, DWS_DF_CONT_TOP, DWS_DF_CONT_BOTTOM and DWS_DF_FLOATING combined (optional) with DWS_ICONTAB, DWS_ICONBAR and DWS_ADDINFO. HICON hIconTab; handle to the icon to display on the dialog's tab TCHAR *pszAddInfo; pointer to a string joined to the caption using " - ", if not NULL RECT rcFloat; Used internally, do not set int iPrevCont; Used internally, do not set const TCHAR *pszModuleName; the name of your plugin module (with extension .dll).
-Minimum informations you need to fill out before sending it by NPPM_DMMREGASDCKDLG message is hClient, pszName, dlgID, uMask and pszModuleName. Notice that rcFloat and iPrevCont shouldn't be filled. They are used internally.
+/* From v4.0, Notepad++ supports the dockable dialog feature for the plugins. This message passes the necessary data dockingData to Notepad++ in order to make your dialog dockable. Here is tTbData looks like this: HWND hClient; your dockable dialog handle. TCHAR *pszName; the name of your plugin dialog. int dlgID; index of menu entry where the dialog in question will be triggered. UINT uMask; contains the behaviour informations of your dialog. It can be one of the following value : DWS_DF_CONT_LEFT, DWS_DF_CONT_RIGHT, DWS_DF_CONT_TOP, DWS_DF_CONT_BOTTOM and DWS_DF_FLOATING combined (optional) with DWS_ICONTAB, DWS_ICONBAR and DWS_ADDINFO. HICON hIconTab; handle to the icon to display on the dialog's tab TCHAR *pszAddInfo; pointer to a string joined to the caption using " - ", if not NULL RECT rcFloat; Used internally, do not set int iPrevCont; Used internally, do not set const TCHAR *pszModuleName; the name of your plugin module (with extension .dll).
+Minimum informations you need to fill out before sending it by NPPM_DMMREGASDCKDLG message is hClient, pszName, dlgID, uMask and pszModuleName. Notice that rcFloat and iPrevCont shouldn't be filled. They are used internally.
*/
; return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2057, "Int", , "Int", )
; }
NPPM_LOADSESSION(sessionFileName) ; 2058
{
- ; Open all files of same session in Notepad++ via a xml format session file sessionFileName.
-
+ ; Open all files of same session in Notepad++ via a xml format session file sessionFileName.
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
stringWritten := DllCall("WriteProcessMemory", "Ptr", hProcess, "Ptr", nppBufAddress
, "Ptr", &sessionFileName, "UInt", MAX_PATH, "UInt", 0)
-
+
if (stringWritten <> true)
return
else DllCall("SendMessage", "Ptr", hNpp, "UInt", 2058, "Int", 0, "Ptr", nppBufAddress)
@@ -314,8 +314,8 @@ NPPM_LOADSESSION(sessionFileName) ; 2058
NPPM_RELOADFILE(file, confirm := false) ; 2060
{
- ; This Message reloads the file indicated in filePathName2Reload. If withAlert is TRUE, then an alert message box will be launched.
-
+ ; This Message reloads the file indicated in filePathName2Reload. If withAlert is TRUE, then an alert message box will be launched.
+
if (confirm <> true) AND (confirm <> false)
return
@@ -323,14 +323,14 @@ NPPM_RELOADFILE(file, confirm := false) ; 2060
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
stringWritten := DllCall("WriteProcessMemory", "Ptr", hProcess, "Ptr", nppBufAddress
, "Ptr", &file, "UInt", MAX_PATH, "UInt", 0)
-
+
if (stringWritten <> true)
return
else DllCall("SendMessage", "Ptr", hNpp, "UInt", 2060, "Int", confirm, "Ptr", nppBufAddress)
@@ -338,23 +338,23 @@ NPPM_RELOADFILE(file, confirm := false) ; 2060
NPPM_CloseBuffer(hProcess, nppBufAddress)
return
}
-
+
NPPM_SWITCHTOFILE(file) ; 2061
{
- ; When this message is received, Notepad++ switches to the document which matches with the given filePathName2switch.
-
+ ; When this message is received, Notepad++ switches to the document which matches with the given filePathName2switch.
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
stringWritten := DllCall("WriteProcessMemory", "Ptr", hProcess, "Ptr", nppBufAddress
, "Ptr", &file, "UInt", MAX_PATH, "UInt", 0)
-
+
if (stringWritten <> true)
return
else DllCall("SendMessage", "Ptr", hNpp, "UInt", 2061, "Int", 0, "Ptr", nppBufAddress)
@@ -365,31 +365,31 @@ NPPM_SWITCHTOFILE(file) ; 2061
NPPM_SAVECURRENTFILE() ; 2062
{
- ; Send this message to Notepad++ to save the current document.
+ ; Send this message to Notepad++ to save the current document.
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2062, "Int", 0, "Int", 0)
}
NPPM_SAVECURRENTFILEAS(file, saveAsCopy := false) ; 2062
{
- ; Performs a Save As (wParam == 0) or Save a Copy As (wParam == 1) on the current buffer, outputting to filename.
-
+ ; Performs a Save As (wParam == 0) or Save a Copy As (wParam == 1) on the current buffer, outputting to filename.
+
; set saveAsCopy to 'true' to 'Save a Copy As', otherwise 'Save As' is default
if (saveAsCopy <> true) AND (saveAsCopy <> false)
return
-
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
stringWritten := DllCall("WriteProcessMemory", "Ptr", hProcess, "Ptr", nppBufAddress
, "Ptr", &file, "UInt", MAX_PATH, "UInt", 0)
-
+
if (stringWritten <> true)
return
else DllCall("SendMessage", "Ptr", hNpp, "UInt", 2102, "Int", saveAsCopy, "Ptr", nppBufAddress)
@@ -400,14 +400,14 @@ NPPM_SAVECURRENTFILEAS(file, saveAsCopy := false) ; 2062
NPPM_SAVEALLFILES() ; 2063
{
- ; Send this message to Notepad++ to save all opened document.
+ ; Send this message to Notepad++ to save all opened document.
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2063, "Int", 0, "Int", 0)
}
NPPM_SETMENUITEMCHECK(cmdID, bool) ; 2064
{
- ; Use this message to set/remove the check on menu item. cmdID is the command ID which corresponds to the menu item.
-
+ ; Use this message to set/remove the check on menu item. cmdID is the command ID which corresponds to the menu item.
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2064, "UInt", cmdID, "Int", bool)
}
@@ -418,14 +418,14 @@ NPPM_SETMENUITEMCHECK(cmdID, bool) ; 2064
NPPM_GETWINDOWSVERSION() ; 2066
{
- ; The return value is windows version of enum winVer. The possible value is WV_UNKNOWN, WV_WIN32S, WV_95, WV_98, WV_ME, WV_NT, WV_W2K, WV_XP, WV_S2003, WV_XPX64 and WV_VISTA
-
+ ; The return value is windows version of enum winVer. The possible value is WV_UNKNOWN, WV_WIN32S, WV_95, WV_98, WV_ME, WV_NT, WV_W2K, WV_XP, WV_S2003, WV_XPX64 and WV_VISTA
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2066, "Int", 0, "Int", 0)
}
; NPPM_DMMGETPLUGINHWNDBYNAME ; 2067
; {
- ; This message returns the dialog handle corresponds to the windowName and moduleName. You may need this message if you want to communicate with another plugin "dockable" dialog, by knowing its name and its plugin module name. If moduleName is NULL, then return value is NULL. If windowName is NULL, then the first found window handle which matches with the moduleName will be returned.
+ ; This message returns the dialog handle corresponds to the windowName and moduleName. You may need this message if you want to communicate with another plugin "dockable" dialog, by knowing its name and its plugin module name. If moduleName is NULL, then return value is NULL. If windowName is NULL, then the first found window handle which matches with the moduleName will be returned.
;return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2067, "Int", , "Int", )
; }
@@ -443,47 +443,47 @@ NPPM_GETPLUGINSCONFIGDIR() ; 2070
{
; string receives the directory path of plugin config files.
; User is responsible to allocate (or use automatic variable) a buffer with an enough size.
- ; MAX_PATH is suggested to use.
-
+ ; MAX_PATH is suggested to use.
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 2070, "Int", MAX_PATH, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, MAX_PATH)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
; NPPM_MSGTOPLUGIN ; 2071
; {
-/* This message allows the communication between 2 plugins.
-For example, plugin X can execute a command of plugin Y if plugin X knows the command ID and the file name of plugin Y. destModuleName is the complete module name (with the extesion .dll) of plugin with which you want to communicate (plugin Y). communicationInfo is a poniter of structure type :
- long internalMsg; an integer defined by plugin Y, known by plugin X, identifying the message being sent. TCHAR * srcModuleName; the complete module name (with the extesion .dll) of caller(plugin X). void * info; defined by plugin, the informations to be exchanged between X and Y. It's a void pointer so it should be defined by plugin Y and known by plugin X.
-The returned value is TRUE if Notepad++ found the plugin by its module name (destModuleName), and pass the info (communicationInfo) to the module. The returned value is FALSE if no plugin with such name is found.
+/* This message allows the communication between 2 plugins.
+For example, plugin X can execute a command of plugin Y if plugin X knows the command ID and the file name of plugin Y. destModuleName is the complete module name (with the extesion .dll) of plugin with which you want to communicate (plugin Y). communicationInfo is a poniter of structure type :
+ long internalMsg; an integer defined by plugin Y, known by plugin X, identifying the message being sent. TCHAR * srcModuleName; the complete module name (with the extesion .dll) of caller(plugin X). void * info; defined by plugin, the informations to be exchanged between X and Y. It's a void pointer so it should be defined by plugin Y and known by plugin X.
+The returned value is TRUE if Notepad++ found the plugin by its module name (destModuleName), and pass the info (communicationInfo) to the module. The returned value is FALSE if no plugin with such name is found.
*/
; return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2071, "Int", , "Int", )
; }
NPPM_MENUCOMMAND(cmdID) ; 2072
{
- ; This message allows plugins to call all the Notepad++ menu commands.
- ; commandID are the command ID used in Notepad++. All the command ID are defined in menuCmdID.h.`
+ ; This message allows plugins to call all the Notepad++ menu commands.
+ ; commandID are the command ID used in Notepad++. All the command ID are defined in menuCmdID.h.`
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2072, "Int", 0, "Int", cmdID)
}
NPPM_TRIGGERTABBARCONTEXTMENU(view, tabNumber) ; 2073
{
- ; This message switches to iView (MAIN_VIEW or SUB_VIEW) as current view, and it switchs to index2Activate from the current document. Finally it triggers the tabbar context menu for the current document.
+ ; This message switches to iView (MAIN_VIEW or SUB_VIEW) as current view, and it switchs to index2Activate from the current document. Finally it triggers the tabbar context menu for the current document.
; Tabs are 0-based
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2073, "Int", view, "Int", tabNumber)
}
@@ -491,62 +491,62 @@ NPPM_TRIGGERTABBARCONTEXTMENU(view, tabNumber) ; 2073
NPPM_GETNPPVERSION() ; 2074
{
/* You can get Notepad++ version via this message. The return value is made up of 2 parts : the major version (the high word) and minor version (the low word).
-For example, the 4.7.5 version will be :
- HIWORD(version) == 4 LOWORD(version) == 75 Note that this message is supported by the v4.7 or higher version. Earlier versions return 0.
+For example, the 4.7.5 version will be :
+ HIWORD(version) == 4 LOWORD(version) == 75 Note that this message is supported by the v4.7 or higher version. Earlier versions return 0.
*/
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2074, "Int", 0, "Int", 0)
}
NPPM_HIDETABBAR() ; 2075
{
- ; If hideOrNot == TRUE, then this message will hide the tabbar, otherwise it makes tabbar shown. The returned value is the previous status before this operation.
-
+ ; If hideOrNot == TRUE, then this message will hide the tabbar, otherwise it makes tabbar shown. The returned value is the previous status before this operation.
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2075, "Int", 0, "Int", bool)
}
NPPM_ISTABBARHIDDEN() ; 2076
{
- ; By sending this message, a plugin is able to tell the current status of tabbar from the returned value: TRUE if the tabbar is hidden, FALSE otherwise.
-
+ ; By sending this message, a plugin is able to tell the current status of tabbar from the returned value: TRUE if the tabbar is hidden, FALSE otherwise.
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2076, "Int", 0, "Int", 0)
}
NPPM_GETPOSFROMBUFFERID(hBuf, view) ; 2081
{
- ; Get 0-based document position from given buffer ID, which is held in the 30 lowest bits of the return value on success.
- ; If bufferID doesn't exist, -1 is returned. Otherwise, the index part is valid, and bit 30 indicates which view has the buffer (clear for main view, set for sub view).
-
+ ; Get 0-based document position from given buffer ID, which is held in the 30 lowest bits of the return value on success.
+ ; If bufferID doesn't exist, -1 is returned. Otherwise, the index part is valid, and bit 30 indicates which view has the buffer (clear for main view, set for sub view).
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2081, "Ptr", hBuf, "Int", view)
}
NPPM_GETFULLPATHFROMBUFFERID(hBuf) ; 2082
{
- ; Get full path file name from a given buffer ID.
- ; Return -1 if the bufferID non existing, otherwise the number of TCHAR copied/to copy. User should call it with fullFilePath be NULL to get the number of TCHAR (not including the nul character), allocate fullFilePath with the return values + 1, then call it again to get full path file name
+ ; Get full path file name from a given buffer ID.
+ ; Return -1 if the bufferID non existing, otherwise the number of TCHAR copied/to copy. User should call it with fullFilePath be NULL to get the number of TCHAR (not including the nul character), allocate fullFilePath with the return values + 1, then call it again to get full path file name
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 2082, "Ptr", hBuf, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, MAX_PATH)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
NPPM_GETBUFFERIDFROMPOS(tabIndex, view) ; 2083
{
- ; Get document buffer ID from given position.
- ; position is 0 based index, view should be MAIN_VIEW or SUB_VIEW. Return value : 0 if given position is invalid, otherwise the document buffer ID.
+ ; Get document buffer ID from given position.
+ ; position is 0 based index, view should be MAIN_VIEW or SUB_VIEW. Return value : 0 if given position is invalid, otherwise the document buffer ID.
; tabIndex is 0-based
; view = 0 for main, 1 for secondary
@@ -555,15 +555,15 @@ NPPM_GETBUFFERIDFROMPOS(tabIndex, view) ; 2083
NPPM_GETCURRENTBUFFERID() ; 2084
{
- ; Returns active document buffer ID
+ ; Returns active document buffer ID
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2084, "Int", 0, "Int", 0)
}
NPPM_RELOADBUFFERID(hBuf, confirm := false) ; 2085
{
- ;Reload the document by given buffer ID.
- ; if doAlertOrNot is TRUE, then a message box will display to ask user to reload the document, otherwise document will be loaded without asking user.
-
+ ;Reload the document by given buffer ID.
+ ; if doAlertOrNot is TRUE, then a message box will display to ask user to reload the document, otherwise document will be loaded without asking user.
+
; set confirm to 'true' to enable the confirmation dialog
return (confirm <> true) AND (confirm <> false)
? 0
@@ -572,32 +572,32 @@ NPPM_RELOADBUFFERID(hBuf, confirm := false) ; 2085
NPPM_GETBUFFERLANGTYPE(hBuf) ; 2088
{
- ; Get document's language type from given buffer ID.
- ; Returns value : if error -1, otherwise language type (see LangType). [in] int bufferID
+ ; Get document's language type from given buffer ID.
+ ; Returns value : if error -1, otherwise language type (see LangType). [in] int bufferID
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2088, "Ptr", hBuf, "Int", 0)
}
NPPM_SETBUFFERLANGTYPE(hBuf, langType) ; 2089
{
- ; Set language type of given buffer ID's document.
- ; Returns TRUE on success, FALSE otherwise. L_USER and L_EXTERNAL are not supported.
+ ; Set language type of given buffer ID's document.
+ ; Returns TRUE on success, FALSE otherwise. L_USER and L_EXTERNAL are not supported.
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2089, "Ptr", hBuf, "Int", langType)
}
NPPM_GETBUFFERENCODING(hBuf) ; 2090
{
- ; Get document's encoding from given buffer ID.
- ; Returns value : if error -1, otherwise encoding number. enum UniMode - uni8Bit 0, uniUTF8 1, uni16BE 2, uni16LE 3, uniCookie 4, uni7Bit 5, uni16BE_NoBOM 6, uni16LE_NoBOM 7
+ ; Get document's encoding from given buffer ID.
+ ; Returns value : if error -1, otherwise encoding number. enum UniMode - uni8Bit 0, uniUTF8 1, uni16BE 2, uni16LE 3, uniCookie 4, uni7Bit 5, uni16BE_NoBOM 6, uni16LE_NoBOM 7
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2090, "Ptr", hBuf, "Int", 0)
}
NPPM_SETBUFFERENCODING(hBuf, encoding) ; 2091
{
- ; Set given buffer ID's document encoding.
- ; Can only be done on new, unedited files
+ ; Set given buffer ID's document encoding.
+ ; Can only be done on new, unedited files
; Encoding choices: uni8Bit=0, uniUTF8=1, uni16BE=2, uni16LE=3, uniCookie=4
; uni7Bit=5, uni16BE_NoBOM=6, uni16LE_NoBOM=7
@@ -606,8 +606,8 @@ NPPM_SETBUFFERENCODING(hBuf, encoding) ; 2091
NPPM_GETBUFFERFORMAT(hBuf) ; 2092
{
- ; Get document's format from given buffer ID.
- ; Returns value : if error -1, otherwise document's format (see formatType).
+ ; Get document's format from given buffer ID.
+ ; Returns value : if error -1, otherwise document's format (see formatType).
; 0 = windows, 1 = macos, 2 = unix
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2092, "Ptr", hBuf, "Int", 0)
@@ -615,8 +615,8 @@ NPPM_GETBUFFERFORMAT(hBuf) ; 2092
NPPM_SETBUFFERFORMAT(hBuf, format) ; 2093
{
- ; Set format of given buffer ID's document.
- ; Returns TRUE on success, FALSE otherwise
+ ; Set format of given buffer ID's document.
+ ; Returns TRUE on success, FALSE otherwise
; 0 = windows, 1 = macos, 2 = unix
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2093, "Ptr", hBuf, "Int", format)
@@ -624,53 +624,53 @@ NPPM_SETBUFFERFORMAT(hBuf, format) ; 2093
NPPM_HIDETOOLBAR(bool) ; 2094
{
- ; If hideOrNot == TRUE, then this message will hide the toolbar, otherwises it makes tabbar shown. The returned value is the previous staus before this operation.
-
+ ; If hideOrNot == TRUE, then this message will hide the toolbar, otherwises it makes tabbar shown. The returned value is the previous staus before this operation.
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2094, "Int", 0, "Int", bool)
}
NPPM_ISTOOLBARHIDDEN() ; 2095
{
- ; Via this message plugin is able to know the current status of toolbar.
- ; TRUE if the toolbar is hidden, FALSE otherwise.
+ ; Via this message plugin is able to know the current status of toolbar.
+ ; TRUE if the toolbar is hidden, FALSE otherwise.
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2095, "Int", 0, "Int", 0)
}
NPPM_HIDEMENU(bool) ; 2096
{
- ; If hideOrNot == TRUE, then this message will hide the menu bar, otherwises it makes tabbar shown. The returned value is the previous staus before this operation.
-
+ ; If hideOrNot == TRUE, then this message will hide the menu bar, otherwises it makes tabbar shown. The returned value is the previous staus before this operation.
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2096, "Int", 0, "Int", bool)
}
NPPM_ISMENUHIDDEN() ; 2097
{
- ; Via this message plugin is able to know the current status of menu bar.
- ; TRUE if the menbar is hidden, FALSE otherwise.
+ ; Via this message plugin is able to know the current status of menu bar.
+ ; TRUE if the menbar is hidden, FALSE otherwise.
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2097, "Int", 0, "Int", 0)
}
NPPM_HIDESTATUSBAR(bool) ; 2098
{
- ; If hideOrNot == TRUE, then this message will hide the status bar, otherwises it makes tabbar shown. The returned value is the previous staus before this operation.
-
+ ; If hideOrNot == TRUE, then this message will hide the status bar, otherwises it makes tabbar shown. The returned value is the previous staus before this operation.
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2098, "Int", 0, "Int", bool)
}
NPPM_ISSTATUSBARHIDDEN() ; 2099
{
- ; Via this message plugin is able to know the current status of status bar.
- ; TRUE if the status bar is hidden, FALSE otherwise.
+ ; Via this message plugin is able to know the current status of status bar.
+ ; TRUE if the status bar is hidden, FALSE otherwise.
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2099, "Int", 0, "Int", 0)
}
; NPPM_GETSHORTCUTBYCMDID ; 2100
; {
- ; Get your plugin command current mapped shortcut into sk via cmdID. You may need it after getting NPPN_READY notification.
- ; Returned value : TRUE if this function call is successful and shorcut is enable, otherwise FALSE
+ ; Get your plugin command current mapped shortcut into sk via cmdID. You may need it after getting NPPN_READY notification.
+ ; Returned value : TRUE if this function call is successful and shorcut is enable, otherwise FALSE
; return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2100, "Int", , "Int", )
; }
@@ -683,14 +683,14 @@ NPPM_DOOPEN(file) ; 2101
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
stringWritten := DllCall("WriteProcessMemory", "Ptr", hProcess, "Ptr", nppBufAddress
, "Ptr", &file, "UInt", MAX_PATH, "UInt", 0)
-
+
if (stringWritten <> true)
return
else DllCall("SendMessage", "Ptr", hNpp, "UInt", 2101, "Int", 0, "Ptr", nppBufAddress)
@@ -701,96 +701,96 @@ NPPM_DOOPEN(file) ; 2101
NPPM_GETCURRENTNATIVELANGENCODING() ; 2103
{
- ; Returns the code page associated with the current localisation of Notepad++. As of v6.6.6, returned values are 1252 (ISO 8859-1), 437 (OEM US) or 950 (Big5).
-
+ ; Returns the code page associated with the current localisation of Notepad++. As of v6.6.6, returned values are 1252 (ISO 8859-1), 437 (OEM US) or 950 (Big5).
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2103, "Int", 0, "Int", 0)
}
NPPM_ALLOCATESUPPORTED() ; 2104
{
- ; Returns TRUE if NPPM_ALLOCATECMDID is supported. Use it to identify if subclassing is necessary.
-
+ ; Returns TRUE if NPPM_ALLOCATECMDID is supported. Use it to identify if subclassing is necessary.
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2104, "Int", 0, "Int", 0)
}
; NPPM_ALLOCATECMDID ; 2105
; {
- ; Allows a plugin to obtain a number of consecutive meni item IDs for creating menus dynamically, with the guarantee of these IDs not clashing with any other plugin's. Returns 0 on failure, nonzero on success.
+ ; Allows a plugin to obtain a number of consecutive meni item IDs for creating menus dynamically, with the guarantee of these IDs not clashing with any other plugin's. Returns 0 on failure, nonzero on success.
; return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2105, "Int", , "Int", )
; }
; NPPM_ALLOCATEMARKER ; 2106
; {
- ; Allows a plugin to obtain a number of consecutive arker IDs dynamically, with the guarantee of these IDs not clashing with any other plugin's. Returns 0 on failure, nonzero on success.
+ ; Allows a plugin to obtain a number of consecutive arker IDs dynamically, with the guarantee of these IDs not clashing with any other plugin's. Returns 0 on failure, nonzero on success.
; return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2106, "Int", , "Int", )
; }
NPPM_GETLANGUAGENAME(langType) ; 2107
{
- ; Returns the number of characters needed or copied. If lParam is null, size of the language name is copied. Use this to allocate a buffer to pass as lParam and get the language name copied therein. The terminating \0 isn't counted in the returned length.
-
+ ; Returns the number of characters needed or copied. If lParam is null, size of the language name is copied. Use this to allocate a buffer to pass as lParam and get the language name copied therein. The terminating \0 isn't counted in the returned length.
+
hNpp := Nppm_Hwnd()
size := DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2107, "Int", langType, "Int", 0)
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, size)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, size)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2107, "Int", langType, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, size)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
NPPM_GETLANGUAGEDESC(langType) ; 2108
{
- ; Returns the number of characters needed or copied. If lParam is null, size of the language name is copied. Use this to allocate a buffer to pass as lParam and get the language description copied therein. The terminating \0 isn't counted in the returned length.
-
+ ; Returns the number of characters needed or copied. If lParam is null, size of the language name is copied. Use this to allocate a buffer to pass as lParam and get the language description copied therein. The terminating \0 isn't counted in the returned length.
+
hNpp := Nppm_Hwnd()
size := DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2108, "Int", langType, "Int", 0)
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, size)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, size)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2108, "Int", langType, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, size)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
NPPM_SHOWDOCSWITCHER(bool) ; 2109
{
- ; Shows document switcher if lparam is true, hide it if false.
-
+ ; Shows document switcher if lparam is true, hide it if false.
+
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2109, "Int", 0, "Int", bool)
}
NPPM_ISDOCSWITCHERSHOWN() ; 2110
{
- ; Returns 0 if the document switcher is not currently shown, else non zero.
+ ; Returns 0 if the document switcher is not currently shown, else non zero.
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2110, "Int", 0, "Int", 0)
}
NPPM_GETAPPDATAPLUGINSALLOWED() ; 2111
{
- ; Returns true if loading plugins from %APPDATA is allowed, else returns false.
+ ; Returns true if loading plugins from %APPDATA is allowed, else returns false.
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2111, "Int", 0, "Int", 0)
}
NPPM_GETCURRENTVIEW() ; 2112
{
- ; Returns 0 when primary view is active, and 1 instead if secondary view is.
+ ; Returns 0 when primary view is active, and 1 instead if secondary view is.
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 2112, "Int", 0, "Int", 0)
}
@@ -826,14 +826,14 @@ NPPM_SAVEFILE(file) ; 2118
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
stringWritten := DllCall("WriteProcessMemory", "Ptr", hProcess, "Ptr", nppBufAddress
, "Ptr", &file, "UInt", MAX_PATH, "UInt", 0)
-
+
if (stringWritten <> true)
return
else DllCall("SendMessage", "Ptr", hNpp, "UInt", 2118, "Int", 0, "Ptr", nppBufAddress)
@@ -850,25 +850,25 @@ NPPM_DISABLEAUTOUPDATE() ; 2119
NPPM_GETFULLCURRENTPATH() ; 4025
{
- ; string receives the full path of current Scintilla view document.
+ ; string receives the full path of current Scintilla view document.
; User is responsible to allocate (or use automatic variable) a buffer with an enough size.
- ; MAX_PATH is suggested to use.
-
+ ; MAX_PATH is suggested to use.
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 4025, "Int", MAX_PATH, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, MAX_PATH)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
@@ -876,23 +876,23 @@ NPPM_GETCURRENTDIRECTORY() ; 4026
{
; string receives the directory path of current Scintilla view document.
; User is responsible to allocate (or use automatic variable) a buffer with an enough size.
- ; MAX_PATH is suggested to use.
-
+ ; MAX_PATH is suggested to use.
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 4026, "Int", MAX_PATH, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, MAX_PATH)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
@@ -900,23 +900,23 @@ NPPM_GETFILENAME() ; 4027
{
; string receives the file name of current Scintilla view document.
; User is responsible to allocate (or use automatic variable) a buffer with an enough size.
- ; MAX_PATH is suggested to use.
-
+ ; MAX_PATH is suggested to use.
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 4027, "Int", MAX_PATH, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, MAX_PATH)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
@@ -926,17 +926,17 @@ NPPM_GETFILENAMEATCURSOR() ; 4035
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 4035, "Int", MAX_PATH, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, MAX_PATH)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
@@ -944,23 +944,23 @@ NPPM_GETNAMEPART() ; 4028
{
; string receives the part of name (without extension) of current Scintilla view document.
; User is responsible to allocate (or use automatic variable) a buffer with an enough size.
- ; MAX_PATH is suggested to use.
-
+ ; MAX_PATH is suggested to use.
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 4028, "Int", MAX_PATH, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, MAX_PATH)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
@@ -968,23 +968,23 @@ NPPM_GETEXTPART() ; 4029
{
; string receives the part of extension of current Scintilla view document.
; User is responsible to allocate (or use automatic variable) a buffer with an enough size.
- ; MAX_PATH is suggested to use.
-
+ ; MAX_PATH is suggested to use.
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 4029, "Int", MAX_PATH, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, MAX_PATH)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
@@ -992,23 +992,23 @@ NPPM_GETCURRENTWORD() ; 4030
{
; string receives the word on which cursor is currently of current Scintilla view document.
; User is responsible to allocate (or use automatic variable) a buffer with an enough size.
- ; MAX_PATH is suggested to use.
-
+ ; MAX_PATH is suggested to use.
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 4030, "Int", MAX_PATH, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, MAX_PATH)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
@@ -1016,38 +1016,38 @@ NPPM_GETNPPDIRECTORY() ; 4031
{
; string receives the full path of directory where located Notepad++ binary.
; User is responsible to allocate (or use automatic variable) a buffer with an enough size.
- ; MAX_PATH is suggested to use.
-
+ ; MAX_PATH is suggested to use.
+
MAX_PATH := 260 * (A_IsUnicode ? 2 : 1)
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 4031, "Int", MAX_PATH, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, MAX_PATH)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
NPPM_GETCURRENTLINE() ; 4032
{
- ; Returns the caret current position 0-based line
-
+ ; Returns the caret current position 0-based line
+
; Line numbers are zero-based
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 4032 , "Int", 0, "Int", 0)
}
NPPM_GETCURRENTCOLUMN() ; 4033
{
- ; Returns the caret current position 0-based column
-
+ ; Returns the caret current position 0-based column
+
; Column numbers are zero-based
return DllCall("SendMessage", "Ptr", Nppm_Hwnd(), "UInt", 4033 , "Int", 0, "Int", 0)
}
@@ -1058,22 +1058,22 @@ NPPM_GETNPPFULLFILEPATH() ; 4034
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, MAX_PATH)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", hNpp, "UInt", 4034, "Int", MAX_PATH, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, MAX_PATH)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
Nppm_HWND(Title := "Notepad++"){
- return DllCall("FindWindow", "Str", Title, "Int", 0, "Ptr")
+ return DllCall("FindWindow", "Str", Title, "Int", 0, "Ptr")
}
;functions:
@@ -1112,23 +1112,23 @@ SCI_LINELENGTH(Line){
SCI_GETSELTEXT(){ ;2161
; SCI_GETSELTEXT(, char *text NUL-terminated) ? int
; This copies the currently selected text and a terminating 0 byte to the text buffer. The buffer size should be determined by calling with a NULL pointer for the text argument SCI_GETSELTEXT(0,0). This allows for rectangular and discontiguous selections as well as simple selections. See Multiple Selection for information on how multiple and rectangular selections and virtual space are copied.
-
+
BufferSize := DllCall("SendMessage", "Ptr", SCI_HWND(), "UInt", 2161 , "UInt", 0 , "UInt", 0)
BufferSize := BufferSize * (A_IsUnicode ? 2 : 1)
-
+
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, BufferSize)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, BufferSize)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
DllCall("SendMessage", "Ptr", SCI_HWND(), "UInt", 2161, "Int", 0, "Ptr", nppBufAddress)
-
+
string := NPPM_ReadBuffer(hProcess, nppBufAddress, BufferSize, "Text")
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
-
+
return string
}
SCI_REPLACESEL(text){ ;2170
@@ -1136,18 +1136,18 @@ SCI_REPLACESEL(text){ ;2170
; The currently selected text between the anchor and the current position is replaced by the 0 terminated text string. If the anchor and current position are the same, the text is inserted at the caret position. The caret is positioned after the inserted text and the caret is scrolled into view.
Output := NPPM_ConvertToUTF8(Text, BufferSize)
-
+
hNpp := Nppm_Hwnd()
- openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, BufferSize)
+ openProcSuccess := NPPM_OpenBuffer(hProcess, nppBufAddress, BufferSize)
if (WinExist("ahk_id " . hNpp) == 0) OR (openProcSuccess == 0)
return
-
+
NPPM_WriteProcessMemory(hProcess, nppBufAddress, Output, BufferSize)
-
+
DllCall("SendMessage", "Ptr", SCI_HWND(), "UInt", 2170, "Int", 0, "Ptr", nppBufAddress)
-
+
NPPM_CloseBuffer(hProcess, nppBufAddress)
}
@@ -1162,13 +1162,13 @@ SCI_REPLACESEL(text){ ;2170
NPPM_Langs(lang)
{ ;??? make langs static
- langs := { "TEXT" : 0, "PYTHON" : 22, "MATLAB" : 44, "AVS" : 66
+ langs := { "TEXT" : 0, "PYTHON" : 22, "MATLAB" : 44, "AVS" : 66
, "PHP" : 1, "LUA" : 23, "HASKELL" : 45, "BLITZBASIC" : 67
- , "C" : 2, "TEX" : 24, "INNO" : 46, "PUREBASIC" : 68
+ , "C" : 2, "TEX" : 24, "INNO" : 46, "PUREBASIC" : 68
, "CPP" : 3, "FORTRAN" : 25, "SEARCHRESULT" : 47, "FREEBASIC" : 69
, "CS" : 4, "BASH" : 26, "CMAKE" : 48, "CSOUND" : 70
, "OBJC" : 5, "FLASH" : 27, "YAML" : 49, "ERLANG" : 71
- , "JAVA" : 6, "NSIS" : 28, "COBOL" : 50, "ESCRIPT" : 72
+ , "JAVA" : 6, "NSIS" : 28, "COBOL" : 50, "ESCRIPT" : 72
, "RC" : 7, "TCL" : 29, "GUI4CLI" : 51, "FORTH" : 73
, "HTML" : 8, "LISP" : 30, "D" : 52, "LATEX" : 74
, "XML" : 9, "SCHEME" : 31, "POWERSHELL" : 53, "MMIXAL" : 75
@@ -1198,8 +1198,8 @@ Nppm_OpenBuffer(ByRef hProcess, ByRef nppBufAddress, nppBufBytes)
, "Int" , false
, "UInt", NppPID
, "Ptr")
-
- ; Allocate a remote buffer in N++'s memory space
+
+ ; Allocate a remote buffer in N++'s memory space
nppBufAddress := DllCall("VirtualAllocEx"
, "UInt", hProcess
, "Int" , 0
@@ -1208,7 +1208,7 @@ Nppm_OpenBuffer(ByRef hProcess, ByRef nppBufAddress, nppBufBytes)
, "Int" , PAGE_READWRITE := 0x4
, "Ptr" )
}
- return hProcess AND nppBufAddress ? true : false
+ return hProcess AND nppBufAddress ? true : false
}
NPPM_ConvertToUTF8(Text, ByRef BufferSize){
@@ -1233,7 +1233,7 @@ Nppm_ReadBuffer(ByRef hProcess, ByRef nppBufAddress, bytesToRead, isType := "")
{
; Ensure there's enough space allocated in a local buffer
VarSetCapacity(stringFromNpp, bytesToRead, 0)
-
+
; Fill local buffer 'stringFromNpp' with 'bytesToRead' number of bytes from remote buffer 'nppBufAddress'
DllCall("ReadProcessMemory", "Ptr", hProcess, "Ptr", nppBufAddress, "Ptr", &stringFromNpp, "UInt", bytesToRead, "UInt", 0)
@@ -1244,7 +1244,7 @@ Nppm_ReadBuffer(ByRef hProcess, ByRef nppBufAddress, bytesToRead, isType := "")
; Resize var to fit the size of its contents because the value will likely be less than bytesToRead
VarSetCapacity(stringFromNpp, -1)
-
+
return stringFromNpp
}
@@ -1272,7 +1272,7 @@ PIDfromHwnd(Hwnd){
}
Nppm_PID(TimeOutInSec := 1){
- Process, Wait, Notepad++.exe, %TimeOutInSec%
+ Process, Wait, Notepad++.exe, %TimeOutInSec%
return ErrorLevel ;PID or 0 when timed out
}
diff --git a/lib-i_to_z/NetGetControl.ahk b/lib-i_to_z/NetGetControl.ahk
index addc4055..c9399e5a 100644
--- a/lib-i_to_z/NetGetControl.ahk
+++ b/lib-i_to_z/NetGetControl.ahk
@@ -1,4 +1,4 @@
-;#include
+;#include
#include %A_ScriptDir%\RemoteScintilla.ahk
listAccChildProperty(hwnd){
COM_AccInit()
@@ -17,8 +17,8 @@ listAccChildProperty(hwnd){
. COM_Invoke(pacc,"accKeyboardShortcut",0) "`n"
. COM_Invoke(pacc,"accRole",0) "`n"
. COM_Invoke(pacc,"accState",0) "`n"
-
-
+
+
Loop, % COM_AccessibleChildren(pacc, COM_Invoke(pacc,"accChildCount"), varChildren)
If NumGet(varChildren,16*(A_Index-1),"Ushort")=3 && idChild:=NumGet(varChildren,16*A_Index-8)
sResult .="[" A_Index "]`n"
@@ -26,13 +26,13 @@ listAccChildProperty(hwnd){
. "Value:`t`t" COM_Invoke(pacc,"accValue",idChild) "`n"
. "Description:`t" COM_Invoke(pacc,"accDescription",idChild) "`n"
. COM_Invoke(pacc,"accParent",idChild) "`n"
-
+
Else If paccChild:=NumGet(varChildren,16*A_Index-8) {
sResult .="[" A_Index "]`n"
. "Name:`t`t" COM_Invoke(paccChild,"accName",0) "`n"
. "Value:`t`t" COM_Invoke(paccChild,"accValue",0) "`n"
. "Description:`t" COM_Invoke(paccChild,"accDescription",0) "`n"
- if a_index=3
+ if a_index=3
{
numput(1,var,"UInt")
COM_Invoke(pacc,"accSelect",1,paccChild)
@@ -43,8 +43,8 @@ listAccChildProperty(hwnd){
}
COM_AccTerm()
- return sResult
-}
+ return sResult
+}
getControlNameByHwnd(winHwnd,controlHwnd){
bufSize=1024
@@ -64,7 +64,7 @@ getControlNameByHwnd(winHwnd,controlHwnd){
}
; search by control name
-; return hwnd
+; return hwnd
getByControlName(winHwnd,name){
winget,controlList,controlListhwnd,ahk_id %winHwnd%
arr:=[]
@@ -79,7 +79,7 @@ getByControlName(winHwnd,name){
return []
if !(otherMem:=DllCall("VirtualAllocEx", "Ptr", hProcess, "Ptr", 0, "PTR", bufSize, "UInt", 0x3000, "UInt", 0x0004, "Ptr"))
return []
-
+
loop,parse,controlList,`n
{
SendMessage,%getName%,%bufSize%,%otherMem%,,ahk_id %a_loopfield%
@@ -91,7 +91,7 @@ getByControlName(winHwnd,name){
arr.insert(a_loopfield)
,var1:=""
}
-
+
DllCall("VirtualFreeEx","Ptr", hProcess,"UInt",otherMem,"UInt", 0, "UInt", 0x8000)
DllCall("CloseHandle","Ptr",hProcess)
return arr
@@ -108,7 +108,7 @@ controlGetText(hwnd){
}
return Text
}
-
+
WinGetClass,class,ahk_id %hwnd%
if (class="scintilla") {
hwnd:=new RemoteScintilla(hwnd)
@@ -127,7 +127,7 @@ winGetClass(hwnd){
getNetAcc(winHwnd,controlName,classNN,shift=0,acc=true,name="",text=""){
if acc
return acc_objectfromwindow(getNetControl2(winHwnd,text,controlName,name,classNN,"","","",shift)[1])
- else
+ else
return getNetControl2(winHwnd,text,controlName,name,classNN,"","","",shift)[1]
}
@@ -143,28 +143,28 @@ getNetAcc(winHwnd,controlName,classNN,shift=0,acc=true,name="",text=""){
getNetControl2(winHwnd,text="",controlName="",accName="",classNN="",accHelp="",accRole="",style="",shift=0, result=""){
if !isobject(result)
result:=[]
-
+
if isobject(winHwnd){
-
+
for k,v in winHwnd
result:=getNetControl2(v,text,controlName,accName,classNN,accHelp,accRole,style,shift,result)
return result
}
-
+
winget,list,controllisthwnd,ahk_id %winHwnd%
arr:=[],controlArr:=[]
- loop,parse,list,`n
+ loop,parse,list,`n
{
controlArr.insert(a_loopfield)
if (text="" || instr(controlgettext(a_loopfield),text)) && (classNN="" || instr(winGetClass(a_loopfield),classNN)) && (controlName="" || getControlNameByHwnd(winHwnd,a_loopfield)=controlName) && (accName="" || instr((acc:=acc_objectfromwindow(a_loopfield)).accName,accName)) && (accHelp="" || instr(acc.accHelp,accHelp)) && (accRole="" || instr(acc.accRole,accRole)) && (!style || DllCall("GetWindowLong",UInt,a_loopfield,Int,-16)=style)
arr[a_index]:=a_loopfield
}
;~ result:=[]
-
+
for k,v in arr
if (r:=controlArr[k+shift])
result.insert(r)
-
+
return result
}
@@ -185,12 +185,12 @@ getNetControlGlobal(text="",controlName="",accName="",classNN="",accHelp="",accR
}
return [ret,win]
}
-
+
; search for specific control
; return hwnd
getNetControl(winHwnd,controlName="",accName="",classNN="",accHelp=""){
winget,list,controllisthwnd,ahk_id %winHwnd%
-
+
bufSize=1024
winget,processID,pid,ahk_id %winHwnd%
VarSetCapacity(var1,bufSize)
@@ -210,17 +210,17 @@ getNetControl(winHwnd,controlName="",accName="",classNN="",accHelp=""){
{
SendMessage,%getName%,%bufSize%,%otherMem%,,ahk_id %a_loopfield%
DllCall("ReadProcessMemory","UInt",hProcess,"UInt",otherMem,"Str",var1,"UInt",bufSize,"UInt *",0)
-
+
;~ acc:=acc_objectfromwindow2(a_loopfield)
-
+
;~ if !DllCall(AccessibleObjectFromWindowProc, "Ptr", a_loopfield, "UInt", idObject&=0xFFFFFFFF, "Ptr", -VarSetCapacity(IID,16)+NumPut(idObject==0xFFFFFFF0?0x46000000000000C0:0x719B3800AA000C81,NumPut(idObject==0xFFFFFFF0?0x0000000000020400:0x11CF3C3D618736E0,IID,"Int64"),"Int64"), "Ptr*", pacc)
;~ acc:=ComObjEnwrap(9,pacc,1)
;~ else
;~ acc:=""
-
-
-
-
+
+
+
+
;&&(accParentHwnd=""||acc_windowfromobject(acc.accParent)=accParentHwnd)
if ((var1&&var1=controlName)&&(accName=""||(acc:=Acc_ObjectFromWindow(a_loopfield)).accName=accName)){
WinGetClass,cl,ahk_id %a_loopfield%
@@ -229,20 +229,20 @@ getNetControl(winHwnd,controlName="",accName="",classNN="",accHelp=""){
break
}
}
-
+
var1:=""
}
-
+
DllCall("VirtualFreeEx","Ptr", hProcess,"UInt",otherMem,"UInt", 0, "UInt", 0x8000)
DllCall("CloseHandle","Ptr",hProcess)
DllCall("FreeLibrary", "Ptr", hModule)
return ret
-
+
}
;~ clipboard:=getControlDescription(0x27048E,0x680532)
;~ clipboard:=getControlDescription(0x3e0784,0x380CA4)
getControlDescription(winHwnd,controlHwnd){
- return "getNetControl2(RisState[2],""" controlgettext(controlHwnd) """,""" getControlNameByHwnd(winHwnd,controlHwnd) """,""" (acc:=acc_objectfromwindow(controlHwnd)).accName """,""" winGetClass(controlHwnd) """,""" acc.accHelp """,""" acc.accRole """,""" DllCall("GetWindowLong",UInt,controlHwnd,Int,-16) """,0)"
+ return "getNetControl2(RisState[2],""" controlgettext(controlHwnd) """,""" getControlNameByHwnd(winHwnd,controlHwnd) """,""" (acc:=acc_objectfromwindow(controlHwnd)).accName """,""" winGetClass(controlHwnd) """,""" acc.accHelp """,""" acc.accRole """,""" DllCall("GetWindowLong",UInt,controlHwnd,Int,-16) """,0)"
}
diff --git a/lib-i_to_z/ObjRegisterActive.ahk b/lib-i_to_z/ObjRegisterActive.ahk
index afef3155..6c640a71 100644
--- a/lib-i_to_z/ObjRegisterActive.ahk
+++ b/lib-i_to_z/ObjRegisterActive.ahk
@@ -1,9 +1,9 @@
-/*
+/*
ObjRegisterActive(Object, CLSID, Flags:=0)
-
+
Registers an object as the active object for a given class ID.
Requires AutoHotkey v1.1.17+; may crash earlier versions.
-
+
Object:
Any AutoHotkey object.
CLSID:
@@ -14,7 +14,7 @@
0 (ACTIVEOBJECT_STRONG)
1 (ACTIVEOBJECT_WEAK)
Defaults to 0.
-
+
Related:
http://goo.gl/KJS4Dp - RegisterActiveObject
http://goo.gl/no6XAS - ProgID
diff --git a/lib-i_to_z/Progress_Lib.ahk b/lib-i_to_z/Progress_Lib.ahk
index 72b9a737..99d08f2f 100644
--- a/lib-i_to_z/Progress_Lib.ahk
+++ b/lib-i_to_z/Progress_Lib.ahk
@@ -1,4 +1,4 @@
-;------------------------------------------------------------------------------------------------------------------------------------
+;------------------------------------------------------------------------------------------------------------------------------------
;Function: Progress_Add
;Parameters: Gui = Gui Number
; Position = The progressbar's position within the gui, x y w h, like the standard controls
diff --git a/lib-i_to_z/Progress_Struct.ahk b/lib-i_to_z/Progress_Struct.ahk
new file mode 100644
index 00000000..b5a49dad
--- /dev/null
+++ b/lib-i_to_z/Progress_Struct.ahk
@@ -0,0 +1,640 @@
+Progress_Struct(){
+ static MAX_PROGRESS_WINDOWS,SplashType,g_Progress
+ if !MAX_PROGRESS_WINDOWS
+ MAX_PROGRESS_WINDOWS:=10,SplashType:="int width;int height;int bar_pos;int margin_x;int margin_y;int text1_height;int object_width;int object_height;HWND hwnd;int pic_type;union{HBITMAP pic_bmp;HICON pic_icon};HWND hwnd_bar;HWND hwnd_text1;HWND hwnd_text2;HFONT hfont1;HFONT hfont2;HBRUSH hbrush;COLORREF color_bk;COLORREF color_text"
+ ,g_Progress:=Struct("Progress_Struct(SplashType)[" MAX_PROGRESS_WINDOWS "]")
+ return g_progress
+}
+Progress_OnMessage(wParam,lParam,msg,hwnd){
+ static MAX_PROGRESS_WINDOWS,SW_SHOWNOACTIVATE,WM_SETTEXT,WS_DISABLED,WS_POPUP,WS_CAPTION,WS_EX_TOPMOST,COORD_UNSPECIFIED
+ ,WS_SIZEBOX,WS_MINIMIZEBOX,WS_MAXIMIZEBOX,WS_SYSMENU,LOGPIXELSY,IMAGE_BITMAP,FW_DONTCARE,CLR_DEFAULT,CLR_NONE,DEFAULT_GUI_FONT,IMAGE_ICON,SS_LEFT
+ ,FW_SEMIBOLD,DEFAULT_CHARSET,OUT_TT_PRECIS,CLIP_DEFAULT_PRECIS,PROOF_QUALITY,FF_DONTCARE,DT_CALCRECT,DT_WORDBREAK,DT_EXPANDTABS,SPI_GETWORKAREA,IDI_MAIN,LR_SHARED,ICON_SMALL,ICON_BIG
+ ,WS_CHILD,WS_VISIBLE,SS_NOPREFIX,SS_CENTER,SS_LEFTNOWORDWRAP,PBM_GETPOS,PBM_SETPOS,PBM_SETRANGE,PBM_SETRANGE32,PROGRESS_CLASS,WS_EX_CLIENTEDGE,PBS_SMOOTH,WM_PAINT,WM_SIZE
+ ,PBM_SETBARCOLOR,PBM_SETBKCOLOR,WM_SETFONT,SRCCOPY,DI_NORMAL,COLOR_BTNFACE,WM_ERASEBKGND,WM_CTLCOLORSTATIC,Black,Silver,Gray,White,Maroon,Red
+ ,Purple,Fuchsia,Green,Lime,Olive,Yellow,Navy,Blue,Teal,Aqua,Default,g_Progress,RECT,client_rect,draw_rect,main_rect,work_rect
+ if !MAX_PROGRESS_WINDOWS
+ MAX_PROGRESS_WINDOWS:=10,SW_SHOWNOACTIVATE:=4,WM_SETTEXT:=12
+ ,WS_DISABLED:=134217728,WS_POPUP:=2147483648,WS_CAPTION:=12582912,WS_EX_TOPMOST:=8,COORD_UNSPECIFIED:=(-2147483647 - 1)
+ ,WS_SIZEBOX:=262144,WS_MINIMIZEBOX:=131072,WS_MAXIMIZEBOX:=65536,WS_SYSMENU:=524288,LOGPIXELSY:=90,IMAGE_BITMAP:=0
+ ,FW_DONTCARE:=0,CLR_DEFAULT:=4278190080,CLR_NONE:=4294967295,DEFAULT_GUI_FONT:=17,IMAGE_ICON:=1,SS_LEFT:=0
+ ,FW_SEMIBOLD:=600, DEFAULT_CHARSET:=1, OUT_TT_PRECIS:=4, CLIP_DEFAULT_PRECIS:=0, PROOF_QUALITY:=2,FF_DONTCARE:=0
+ ,DT_CALCRECT:=1024, DT_WORDBREAK:=16, DT_EXPANDTABS:=64,SPI_GETWORKAREA:=48,IDI_MAIN:=159,LR_SHARED:=32768,ICON_SMALL:=0,ICON_BIG:=1
+ ,WS_CHILD:=1073741824,WS_VISIBLE:=268435456,SS_NOPREFIX:=0x80,SS_CENTER:=1,SS_LEFTNOWORDWRAP:=12,PBM_GETPOS:=1032,PBM_SETPOS:=1026
+ ,PBM_SETRANGE:=1025,PBM_SETRANGE32:=1030,PROGRESS_CLASS:="msctls_progress32",WS_EX_CLIENTEDGE:=512,PBS_SMOOTH:=1,WM_PAINT:=15,WM_SIZE:=5
+ ,PBM_SETBARCOLOR:=1033,PBM_SETBKCOLOR:=8193,WM_SETFONT:=48,SRCCOPY:=13369376,DI_NORMAL:=3,COLOR_BTNFACE:=15,WM_ERASEBKGND:=20,WM_CTLCOLORSTATIC:=312
+ ,Black:=0,Silver:=0xC0C0C0,Gray:=0x808080,White:=0xFFFFFF,Maroon:=0x000080,Red:=0x0000FF
+ ,Purple:=0x800080,Fuchsia:=0xFF00FF,Green:=0x008000,Lime:=0x00FF00,Olive:=0x008080
+ ,Yellow:=0x00FFFF,Navy:=0x800000,Blue:=0xFF0000,Teal:=0x808000,Aqua:=0xFFFF00,Default:=CLR_DEFAULT
+ ,g_Progress:=Progress_Struct(),RECT:="LONG left,LONG top,LONG right,LONG bottom",client_rect:=Struct(RECT), draw_rect:=Struct(RECT), main_rect:=Struct(RECT), work_rect:=Struct(RECT)
+ Loop % MAX_PROGRESS_WINDOWS
+ if (g_Progress[i:=A_Index].hwnd == hwnd)
+ break
+ if (i == MAX_PROGRESS_WINDOWS){ ; It's not a progress window either.
+ ; Let DefWindowProc() handle it (should probably never happen since currently the only
+ ; other type of window is SplashText, which never receive this msg?)
+ Return
+ }
+ splash := g_Progress[i]
+ If (msg=WM_SIZE){
+ new_width := lParam & 0xFFFF
+ new_height := (lParam>>16) & 0xFFFF
+ if (new_width != splash.width || new_height != splash.height)
+ {
+ GetClientRect(splash.hwnd, client_rect[])
+ control_width := client_rect.right - (splash.margin_x * 2)
+ bar_y := splash.margin_y + (splash.text1_height ? (splash.text1_height + splash.margin_y) : 0)
+ sub_y := bar_y + splash.object_height + (splash.object_height ? splash.margin_y : 0) ; Calculate the Y position of each control in the window.
+ ; The Y offset for each control should match those used in Splash():
+ if (new_width != splash.width)
+ {
+ if (splash.hwnd_text1) ; This control doesn't exist if the main text was originally blank.
+ MoveWindow(splash.hwnd_text1, splash.margin_x, splash.margin_y, control_width, splash.text1_height, FALSE)
+ if (splash.hwnd_bar)
+ MoveWindow(splash.hwnd_bar, splash.margin_x, bar_y, control_width, splash.object_height, FALSE)
+ splash.width := new_width
+ }
+ ; Move the window EVEN IF new_height == splash.height because otherwise the text won't
+ ; get re-centered when only the width of the window changes:
+ MoveWindow(splash.hwnd_text2, splash.margin_x, sub_y, control_width, (client_rect.bottom - client_rect.top) - sub_y, FALSE) ; Negative height seems handled okay.
+ ; Specifying true for "repaint" in MoveWindow() is not always enough refresh the text correctly,
+ ; so this is done instead:
+ InvalidateRect(splash.hwnd, client_rect[], TRUE)
+ ; If the user resizes the window, have that size retained (remembered) until the script
+ ; explicitly changes it or the script destroys the window.
+ splash.height := new_height
+ }
+ return 0 ; i.e. completely handled here.
+ } else if (msg=WM_CTLCOLORSTATIC){
+ if (!splash.hbrush && splash.color_text == CLR_DEFAULT) ; Let DWP handle it.
+ Return DefWindowProc(hWnd, Msg, wParam, lParam)
+ ; Since we're processing this msg and not DWP, must set background color unconditionally,
+ ; otherwise plain white will likely be used:
+ SetBkColor(wParam, splash.hbrush ? splash.color_bk : GetSysColor(COLOR_BTNFACE))
+ if (splash.color_text != CLR_DEFAULT)
+ SetTextColor(wParam, splash.color_text)
+ ; Always return a real HBRUSH so that Windows knows we altered the HDC for it to use:
+ return splash.hbrush ? splash.hbrush : GetSysColorBrush(COLOR_BTNFACE)
+ } else if (msg=WM_ERASEBKGND){
+ if (splash.pic_bmp) ; And since there is a pic, its object_width/height should already be valid.
+ {
+ ypos := splash.margin_y + (splash.text1_height ? (splash.text1_height + splash.margin_y) : 0)
+ if (splash.pic_type == IMAGE_BITMAP)
+ {
+ hdc := CreateCompatibleDC(wParam)
+ ,hbmpOld := SelectObject(hdc, splash.pic_bmp)
+ ,BitBlt(wParam, splash.margin_x, ypos, splash.object_width, splash.object_height, hdc, 0, 0, SRCCOPY)
+ ,SelectObject(hdc, hbmpOld)
+ ,DeleteDC(hdc)
+ }
+ else ; IMAGE_ICON
+ DrawIconEx(wParam, splash.margin_x, ypos, splash.pic_icon, splash.object_width, splash.object_height, 0, 0, DI_NORMAL)
+ ; Prevent "flashing" by erasing only the part that hasn't already been drawn:
+ ExcludeClipRect(wParam, splash.margin_x, ypos, splash.margin_x + splash.object_width, ypos + splash.object_height)
+ ,hrgn := CreateRectRgn(0, 0, 1, 1)
+ ,GetClipRgn(wParam, hrgn)
+ ,FillRgn(wParam, hrgn, splash.hbrush ? splash.hbrush : GetSysColorBrush(COLOR_BTNFACE))
+ ,DeleteObject(hrgn)
+ return 1
+ }
+ ; Otherwise, it's a Progress window (or a SplashImage window with no picture):
+ if (splash.hbrush){ ; Let DWP handle it.
+ GetClipBox(hdc, client_rect[])
+ ,FillRect(hdc, client_rect[], splash.hbrush)
+ }
+ }
+ ;~ DllCall("InvalidateRect","PTR",splash.hwnd,"PTR", NULL,"Int", TRUE)
+ return DefWindowProc(hWnd, Msg, wParam, lParam) ;ret
+}
+Progress(aOptions:="",aSubText:="", aMainText:="", aTitle:="",aFontName:=""){
+ static MAX_SPLASHIMAGE_WINDOWS:=10,MAX_PROGRESS_WINDOWS:=10,SW_SHOWNOACTIVATE:=4,WM_SETTEXT:=12
+ ,WS_DISABLED:=134217728,WS_POPUP:=2147483648,WS_CAPTION:=12582912,WS_EX_TOPMOST:=8,COORD_UNSPECIFIED:=(-2147483647 - 1)
+ ,WS_SIZEBOX:=262144,WS_MINIMIZEBOX:=131072,WS_MAXIMIZEBOX:=65536,WS_SYSMENU:=524288,LOGPIXELSX:=88,LOGPIXELSY:=90,IMAGE_BITMAP:=0
+ ,FW_DONTCARE:=0,CLR_NONE:=4294967295,DEFAULT_GUI_FONT:=17,IMAGE_ICON:=1,CLR_DEFAULT:=4278190080
+ ,SPLASH_DEFAULT_WIDTH:=MulDiv(300, GetDeviceCaps(hdc:=GetDC(),LOGPIXELSX),96),rel:=ReleaseDC(0, hdc)
+ , FW_SEMIBOLD:=600, DEFAULT_CHARSET:=1, OUT_TT_PRECIS:=4, CLIP_DEFAULT_PRECIS:=0, PROOF_QUALITY:=2,FF_DONTCARE:=0,SS_LEFT:=0
+ ,DT_CALCRECT:=1024, DT_WORDBREAK:=16, DT_EXPANDTABS:=64,SPI_GETWORKAREA:=48,IDI_MAIN:=159,LR_SHARED:=32768,ICON_SMALL:=0,ICON_BIG:=1
+ ,WS_CHILD:=1073741824,WS_VISIBLE:=268435456,SS_NOPREFIX:=0x80,SS_CENTER:=1,SS_LEFTNOWORDWRAP:=12,PBM_GETPOS:=1032,PBM_SETPOS:=1026
+ ,PBM_SETRANGE:=1025,PBM_SETRANGE32:=1030,PROGRESS_CLASS:="msctls_progress32",WS_EX_CLIENTEDGE:=512,PBS_SMOOTH:=1,WM_PAINT:=15,WM_SIZE:=5
+ ,PBM_SETBARCOLOR:=1033,PBM_SETBKCOLOR:=8193,WM_SETFONT:=48,SRCCOPY:=13369376,DI_NORMAL:=3,COLOR_BTNFACE:=15,WM_ERASEBKGND:=20,WM_CTLCOLORSTATIC:=312
+ ,Black:=0,Silver:=0xC0C0C0,Gray:=0x808080,White:=0xFFFFFF,Maroon:=0x000080,Red:=0x0000FF
+ ,Purple:=0x800080,Fuchsia:=0xFF00FF,Green:=0x008000,Lime:=0x00FF00,Olive:=0x008080
+ ,Yellow:=0x00FFFF,Navy:=0x800000,Blue:=0xFF0000,Teal:=0x808000,Aqua:=0xFFFF00,Default:=CLR_DEFAULT
+ ,CStringW:="UInt m_sNull,PTR m_pData,bool m_bDirty"
+ ,Script:="PTR **mVar,**mLazyVar;int mVarCount,mVarCountMax,mLazyVarCount;PTR *mFirstGroup,*mLastGroup;int mCurrentFuncOpenBlockCount;bool mNextLineIsFunctionBody;int mClassObjectCount;PTR *mClassObject[5];TCHAR mClassName[256];PTR *mUnresolvedClasses;PTR *mClassProperty;LPTSTR mClassPropertyDef;int mCurrFileIndex;UINT mCombinedLineNumber;bool mNoHotkeyLabels,mMenuUseErrorLevel;PTR mNIC;PTR *mFirstLine,*mLastLine,*mFirstStaticLine,*mLastStaticLine;PTR *mFirstLabel,*mLastLabel;PTR **mFunc;int mFuncCount,mFuncCountMax;PTR *mTempLine;PTR *mTempLabel;PTR *mTempFunc;PTR *mCurrLine;PTR *mPlaceholderLabel;TCHAR mThisMenuItemName[261],mThisMenuName[261];LPTSTR mThisHotkeyName,mPriorHotkeyName;HWND mNextClipboardViewer;bool mOnClipboardChangeIsRunning;PTR *mOnClipboardChangeFunc,*mOnExitFunc;int mExitReason;PTR *mFirstTimer,*mLastTimer;UINT mTimerCount,mTimerEnabledCount;PTR *mFirstMenu,*mLastMenu;UINT mMenuCount;DWORD mThisHotkeyStartTime,mPriorHotkeyStartTime;TCHAR mEndChar;BYTE mThisHotkeyModifiersLR;LPTSTR mFileSpec,mFileDir,mFileName,mOurEXE,mOurEXEDir,mMainWindowTitle;bool mIsReadyToExecute,mAutoExecSectionIsRunning,mIsRestart,mErrorStdOut;PTR *mIncludeLibraryFunctionsThenExit;int mUninterruptedLineCountMax,mUninterruptibleTime;DWORD mLastPeekTime;Progress(CStringW) mRunAsUser,mRunAsPass,mRunAsDomain;HICON mCustomIcon,mCustomIconSmall;LPTSTR mCustomIconFile;bool mIconFrozen;LPTSTR mTrayIconTip;UINT mCustomIconNumber;PTR *mTrayMenu"
+ ,g_script:=Struct(Script,A_ScriptStruct)
+ ,g_Progress:=Progress_Struct()
+ ,tm:=Struct("LONG tmHeight;LONG tmAscent;LONG tmDescent;LONG tmInternalLeading;LONG tmExternalLeading;LONG tmAveCharWidth;LONG tmMaxCharWidth;LONG tmWeight;LONG tmOverhang;LONG tmDigitizedAspectX;LONG tmDigitizedAspectY;WCHAR tmFirstChar;WCHAR tmLastChar;WCHAR tmDefaultChar;WCHAR tmBreakChar;BYTE tmItalic;BYTE tmUnderlined;BYTE tmStruckOut;BYTE tmPitchAndFamily;BYTE tmCharSet") ;TEXTMETRICW
+ ,iconinfo:=Struct("BOOL fIcon;DWORD xHotspot;DWORD yHotspot;HBITMAP hbmMask;HBITMAP hbmColor") ;ICONINFO
+ ,RECT:="LONG left,LONG top,LONG right,LONG bottom",client_rect:=Struct(RECT), draw_rect:=Struct(RECT), main_rect:=Struct(RECT), work_rect:=Struct(RECT)
+ ,bmp:=Struct("LONG bmType;LONG bmWidth;LONG bmHeight;LONG bmWidthBytes;WORD bmPlanes;WORD bmBitsPixel;LPVOID bmBits") ;BITMAP
+ ,initGui:=Gui("SPLASH_GUI_Init:Show","HIDE") Gui("SPLASH_GUI_Init:Destroy") ; required to init ahk_class AutoHotkeyGUI
+ ,_ttoi:=DynaCall("msvcrt\_wtoi","t==t")
+ ErrorLevel := 0 ; Set default
+ window_index := 1 ; Set the default window to operate upon (the first).
+ turn_off := false
+ show_it_only := false
+ bar_pos_has_been_set := false
+ options_consist_of_bar_pos_only := false
+ if !InStr(aOptions, ":")
+ options := aOptions
+ else
+ {
+ window_index := SubStr(aOptions,1,InStr(aOptions,":")-1)
+ if (window_index < 0 || window_index >= MAX_PROGRESS_WINDOWS){
+ MsgBox,0,Error in Function %A_ThisFunc%,% "Max window number is " MAX_PROGRESS_WINDOWS "."
+ ErrorLevel:=-1
+ return
+ }
+ options:=SubStr(aOptions,InStr(aOptions,":")+1)
+ }
+ options := LTrim(options) ; Added in v1.0.38.04 per someone's suggestion.
+ if (options="Off")
+ turn_off := true
+ else if (options="Show")
+ show_it_only := true
+ else
+ {
+ ; Allow floats at runtime for flexibility (i.e. in case aOptions was in a variable reference).
+ ; But still use ATOI for the conversion:
+ if (options+0!="") ; Negatives are allowed as of v1.0.25.
+ {
+ bar_pos := options+0
+ bar_pos_has_been_set := true
+ options_consist_of_bar_pos_only := true
+ }
+ ; else leave it set to the default.
+ }
+ splash := g_Progress[window_index]
+ ; In case it's possible for the window to get destroyed by other means (WinClose?).
+ ; Do this only after the above options were set so that the each window's settings
+ ; will be remembered until such time as "Command, Off" is used:
+ if (splash.hwnd && !IsWindow(splash.hwnd))
+ OnMessage(WM_ERASEBKGND,splash.hwnd,"Progress_OnMessage",0)
+ ,OnMessage(WM_CTLCOLORSTATIC,splash.hwnd,"Progress_OnMessage",0)
+ ,OnMessage(WM_SIZE,splash.hwnd,"Progress_OnMessage",0),splash.hwnd := 0
+ if (show_it_only)
+ {
+ if (splash.hwnd && !IsWindowVisible(splash.hwnd))
+ ShowWindow(splash.hwnd, SW_SHOWNOACTIVATE) ; See bottom of this function for comments on SW_SHOWNOACTIVATE.
+ ; else for simplicity, do nothing.
+ return
+ }
+
+ if (!turn_off && splash.hwnd && (options_consist_of_bar_pos_only || aOptions="")) ; The "modify existing window" mode is in effect.
+ {
+ ; If there is an existing window, just update its bar position and text.
+ ; If not, do nothing since we don't have the original text of the window to recreate it.
+ ; Since this is our thread's window, it shouldn't be necessary to use SendMessageTimeout()
+ ; since the window cannot be hung since by definition our thread isn't hung. Also, setting
+ ; a text item from non-blank to blank is not supported so that elements can be omitted from an
+ ; update command without changing the text that's in the window. The script can specify %a_space%
+ ; to explicitly make an element blank.
+ if (bar_pos_has_been_set && splash.bar_pos != bar_pos) ; Avoid unnecessary redrawing.
+ {
+ splash.bar_pos := bar_pos
+ if (splash.hwnd_bar)
+ SendMessage_(splash.hwnd_bar, PBM_SETPOS, bar_pos, 0)
+ }
+ ; SendMessage() vs. SetWindowText() is used for controls so that tabs are expanded.
+ ; For simplicity, the hwnd_text1 control is not expanded dynamically if it is currently of
+ ; height zero. The user can recreate the window if a different height is needed.
+ if (aMainText!="" && splash.hwnd_text1)
+ SendMessage_(splash.hwnd_text1, WM_SETTEXT, 0, &aMainText)
+ if (aSubText!="")
+ SendMessage_(splash.hwnd_text2, WM_SETTEXT, 0, &aSubText)
+ if (aTitle!="")
+ SetWindowText(splash.hwnd, aTitle) ; Use the simple method for parent window titles.
+ return
+ }
+
+ if (splash.hwnd)
+ OnMessage(WM_ERASEBKGND,splash.hwnd,"Progress_OnMessage",0)
+ ,OnMessage(WM_CTLCOLORSTATIC,splash.hwnd,"Progress_OnMessage",0)
+ ,OnMessage(WM_SIZE,splash.hwnd,"Progress_OnMessage",0)
+ ; Otherwise, destroy any existing window first:
+ if (splash.hwnd)
+ DestroyWindow(splash.hwnd)
+ if (splash.hfont1) ; Destroy font only after destroying the window that uses it.
+ DeleteObject(splash.hfont1)
+ if (splash.hfont2)
+ DeleteObject(splash.hfont2)
+ if (splash.hbrush)
+ DeleteObject(splash.hbrush)
+ if (splash.pic_bmp)
+ {
+ if (splash.pic_type == IMAGE_BITMAP)
+ DeleteObject(splash.pic_bmp)
+ else
+ DestroyIcon(splash.pic_icon)
+ }
+ splash.Fill() ; Set the above and all other fields to zero.
+
+ if (turn_off)
+ return
+ ; Otherwise, the window needs to be created or recreated.
+
+ if (aTitle="") ; Provide default title.
+ aTitle := A_ScriptName ? A_ScriptName : ""
+
+ ; Since there is often just one progress/splash window, and it defaults to always-on-top,
+ ; it seems best to default owned to be true so that it doesn't get its own task bar button:
+ owned := true ; Whether this window is owned by the main window.
+ centered_main := true ; Whether the main text is centered.
+ centered_sub := true ; Whether the sub text is centered.
+ initially_hidden := false ; Whether the window should kept hidden (for later showing by the script).
+ style := WS_DISABLED|WS_POPUP|WS_CAPTION ; WS_CAPTION implies WS_BORDER
+ exstyle := WS_EX_TOPMOST
+ xpos := COORD_UNSPECIFIED
+ ypos := COORD_UNSPECIFIED
+ range_min := 0, range_max := 0 ; For progress bars.
+ font_size1 := 0 ; 0 is the flag to "use default size".
+ font_size2 := 0
+ font_weight1 := FW_DONTCARE ; Flag later logic to use default.
+ font_weight2 := FW_DONTCARE ; Flag later logic to use default.
+ bar_color := CLR_DEFAULT
+ splash.color_bk := CLR_DEFAULT
+ splash.color_text := CLR_DEFAULT
+ splash.height := COORD_UNSPECIFIED
+ splash.width := SPLASH_DEFAULT_WIDTH
+ splash.object_height := 20
+ splash.object_width := COORD_UNSPECIFIED ; Currently only used for SplashImage, not Progress.
+ splash.margin_x := 10
+ splash.margin_y := 5
+ cp:=(&aOptions)-2
+ while (""!=cp_:=StrGet(cp:=cp+2,1)){
+ ;for (cp2, cp = options; cp!=""; ++cp)
+ If (cp_="a"){ ; Non-Always-on-top. Synonymous with A0 in early versions.
+ ; Decided against this enforcement. In the enhancement mentioned below is ever done (unlikely),
+ ; it seems that A1 can turn always-on-top on and A0 or A by itself can turn it off:
+ ; if (cp[1] == '0') ; The zero is required to allow for future enhancement: modify attrib. of existing window.
+ exstyle &= ~WS_EX_TOPMOST
+ } else if (cp_="b"){ ; Borderless and/or Titleless
+ style &= ~WS_CAPTION
+ if (StrGet(cp+2,1) = "1")
+ style |= WS_BORDER
+ else if (StrGet(cp+2,1) = "2")
+ style |= WS_DLGFRAME
+ } else if (cp_="c"){ ; Colors
+ if (""=SubStr(cp+2,1)) ; Avoids out-of-bounds when the loop's own ++cp is done.
+ continue
+ cp+=2 ; Always increment to omit the next char from consideration by the next loop iteration.
+ If InStr("btw",cp_:=StrGet(cp,1)){
+ ; 'B': ; Bar color.
+ ; 'T': ; Text color.
+ ; 'W': ; Window/Background color.
+ color_str:=StrGet(cp+2,32)
+ If (space_pos:=InStr(color_str," ")) ^ (tab_pos:=InStr(color_str,A_Tab))
+ StrPut("",(&color_str)+(space_pos&&space_pos 6)
+ color_str:=SubStr(color_str,1,6)+0 ; Shorten to exactly 6 chars, which happens if no space/tab delimiter is present.
+ color := ((Color_str&255)<<16) + (((Color_str>>8)&255)<<8) + (Color_str>>16)
+ ; if color_str does not contain something hex-numeric, black (0x00) will be assumed,
+ ; which seems okay given how rare such a problem would be.
+ }
+ if (cp_="b"){
+ bar_color := color
+ } else if (cp_="t"){
+ splash.color_text := color
+ } else if (cp_="w"){
+ splash.color_bk := color
+ splash.hbrush := CreateSolidBrush(color) ; Used for window & control backgrounds.
+ }
+ ; Skip over the color string to avoid interpreting hex digits or color names as option letters:
+ cp += StrLen(color_str)+2
+ } else {
+ ; default:
+ centered_sub := (StrGet(cp,1) != "")
+ centered_main := (StrGet(cp+2,1) != "0")
+ }
+ } else if (cp_="F"){
+ if (""=SubStr(cp+2,1)) ; Avoids out-of-bounds when the loop's own ++cp is done.
+ continue
+ cp+=2 ; Always increment to omit the next char from consideration by the next loop iteration.
+ If ("m"=cp_:=StrGet(cp,1)) {
+ if ((font_size1 := _ttoi[cp + 2]) < 0)
+ font_size1 := 0
+ } else if (cp_="s"){
+ if ((font_size2 := _ttoi[cp + 2]) < 0)
+ font_size2 := 0
+ }
+ }else if (cp_="M"){ ; Movable and (optionally) resizable.
+ style &= ~WS_DISABLED
+ if (StrGet(cp + 2,1) = "1")
+ style |= WS_SIZEBOX
+ if (StrGet(cp + 2,1) = "2")
+ style |= WS_SIZEBOX|WS_MINIMIZEBOX|WS_MAXIMIZEBOX|WS_SYSMENU
+ } else if (cp_="p"){ ; Starting position of progress bar [v1.0.25]
+ bar_pos := _ttoi[cp + 2]
+ bar_pos_has_been_set := true
+ } else if (cp_="r"){ ; Range of progress bar [v1.0.25]
+ if (""=SubStr(cp+2,1)) ; Ignore it because we don't want cp to ever poto the NULL terminator due to the loop's increment.
+ continue
+ range_min := _ttoi[cp + 2] ; Increment cp to poit to range_min.
+ if (cp < cp2 := cp+(InStr(StrGet(cp), "-")-1)*2) ; +1 to omit the min's minus sign, if it has one.
+ {
+ cp := cp2
+ if (""=SubStr(cp+2,1)) ; Ignore it because we don't want cp to ever poto the NULL terminator due to the loop's increment.
+ continue
+ range_max := _ttoi[cp + 2] ; Increment cp to poit to range_max, which can be negative as in this example: R-100--50
+ }
+ } else if (cp_="t"){ ; Give it a task bar button by making it a non-owned window.
+ owned := false
+ ; For options such as W, X and Y:
+ ; Use atoi() vs. ATOI() to avoid interpreting something like 0x01B as hex when in fact
+ ; the B was meant to be an option letter:
+ } else if (cp_="w"){
+ if (""=SubStr(cp+2,1)) ; Avoids out-of-bounds when the loop's own ++cp is done.
+ continue
+ cp+= 2 ; Always increment to omit the next char from consideration by the next loop iteration.
+ if ("m"=cp_:=StrGet(cp,1)){
+ if ((font_weight1 := _ttoi[cp + 2]) < 0)
+ font_weight1 := 0
+ break
+ } else if (cp_="s"){
+ if ((font_weight2:=_ttoi[cp + 2]) < 0)
+ font_weight2 := 0
+ } else
+ splash.width := _ttoi[cp]
+ } else if (cp_="h"){
+ if (StrGet(cp,4)="Hide"){ ; Hide vs. Hidden is debatable.
+ initially_hidden := true
+ cp+= 2*3 ; +3 vs. +4 due to the loop's own ++cp.
+ } else ; Allow any width/height to be specified so that the window can be "rolled up" to its title bar:
+ splash.height := _ttoi[cp + 2]
+ } else if (cp_="x"){
+ xpos := _ttoi[cp + 2]
+ } else if (cp_="y"){
+ ypos := _ttoi[cp + 2]
+ } else if (cp_="z"){
+ if (""=SubStr(cp+2,1)) ; Avoids out-of-bounds when the loop's own ++cp is done.
+ continue
+ cp+=2 ; Always increment to omit the next char from consideration by the next loop iteration.
+ If InStr("bh",cp_:=StrGet(cp,1)){
+ splash.object_height := _ttoi[cp + 2] ; Allow it to be zero or negative to omit the object.
+ ;} else if (cp_="w"){
+ ; else for Progress, don't allow width to be changed since a zero would omit the bar.
+ } else if (cp_="x"){
+ splash.margin_x := _ttoi[cp + 2]
+ } else if (cp_="y"){
+ splash.margin_y := _ttoi[cp + 2]
+ }
+ ; Otherwise: Ignore other characters, such as the digits that occur after the P/X/Y option letters.
+ } ; switch()
+ } ; for()
+
+ hdc := CreateDC("DISPLAY", 0, 0, 0)
+ pixels_per_point_y := GetDeviceCaps(hdc,LOGPIXELSY)
+
+ ; Get name and size of default font.
+ hfont_default := GetStockObject(DEFAULT_GUI_FONT)
+ hfont_old := SelectObject(hdc, hfont_default)
+ VarSetCapacity(default_font_name,65*A_IsUnicode)
+ GetTextFace(hdc, 65 - 1, &default_font_name)
+ VarSetCapacity(default_font_name,-1)
+ GetTextMetrics(hdc, tm[])
+ default_gui_font_height := tm.tmHeight
+
+ ; If both are zero or less, reset object height/width for maintainability and sizing later.
+ ; However, if one of them is -1, the caller is asking for that dimension to be auto-calc'd
+ ; to "keep aspect ratio" with the the other specified dimension:
+ if ( splash.object_height < 1 && splash.object_height != COORD_UNSPECIFIED
+ && splash.object_width < 1 && splash.object_width != COORD_UNSPECIFIED
+ || !splash.object_height || !splash.object_width )
+ splash.object_height := splash.object_width := 0
+
+ ; If width is still unspecified -- which should only happen if it's a SplashImage window with
+ ; no image, or there was a problem getting the image above -- set it to be the default.
+ if (splash.width == COORD_UNSPECIFIED)
+ splash.width := SPLASH_DEFAULT_WIDTH
+ ; Similarly, object_height is set to zero if the object is not present:
+ if (splash.object_height == COORD_UNSPECIFIED)
+ splash.object_height := 0
+
+ ; Lay out client area. If height is COORD_UNSPECIFIED, use a temp value for now until
+ ; it can be later determined.
+ client_rect.Fill(), draw_rect.Fill()
+ SetRect(client_rect[], 0, 0, splash.width, splash.height == COORD_UNSPECIFIED ? 500 : splash.height)
+
+ ; Create fonts based on specified posizes. A zero value for font_size1 & 2 are correctly handled
+ ; by CreateFont():
+ if (aMainText!="")
+ {
+ ; If a zero size is specified, it should use the default size. But the default brought about
+ ; by passing a zero here is not what the system uses as a default, so instead use a font size
+ ; that is 25% larger than the default size (since the default size itself is used for aSubtext).
+ ; On a typical system, the default GUI font's posize is 8, so this will make it 10 by default.
+ ; Also, it appears that changing the system's font size in Control Panel -> Display -> Appearance
+ ; does not affect the reported default font size. Thus, the default is probably 8/9 for most/all
+ ; XP systems and probably other OSes as well.
+ ; By specifying PROOF_QUALITY the nearest matching font size should be chosen, which should avoid
+ ; any scaling artifacts that might be caused if default_gui_font_height is not 8.
+ if ( !(splash.hfont1 := CreateFont(font_size1 ? - MulDiv(font_size1, pixels_per_point_y, 72) : (1.25 * default_gui_font_height)
+ , 0, 0, 0, font_weight1 ? font_weight1 : FW_SEMIBOLD, 0, 0, 0, DEFAULT_CHARSET, OUT_TT_PRECIS
+ , CLIP_DEFAULT_PRECIS, PROOF_QUALITY, FF_DONTCARE, aFontName!="" ? aFontName : default_font_name)) )
+ ; Call it again with default font in case above failed due to non-existent aFontName.
+ ; Update: I don't think this actually does any good, at least on XP, because it appears
+ ; that CreateFont() does not fail merely due to a non-existent typeface. But it is kept
+ ; in case it ever fails for other reasons:
+ splash.hfont1 := CreateFont(font_size1 ? - MulDiv(font_size1, pixels_per_point_y, 72) : (1.25 * default_gui_font_height)
+ , 0, 0, 0, font_weight1 ? font_weight1 : FW_SEMIBOLD, 0, 0, 0, DEFAULT_CHARSET, OUT_TT_PRECIS
+ , CLIP_DEFAULT_PRECIS, PROOF_QUALITY, FF_DONTCARE, default_font_name)
+ ; To avoid showing a runtime error, fall back to the default font if other font wasn't created:
+ SelectObject(hdc, splash.hfont1 ? splash.hfont1 : hfont_default)
+ ; Calc height of text by taking into account font size, number of lines, and space between lines:
+ draw_rect[] := client_rect
+ draw_rect.left += splash.margin_x
+ draw_rect.right -= splash.margin_x
+ splash.text1_height := DrawText(hdc, aMainText, -1, draw_rect[], DT_CALCRECT | DT_WORDBREAK | DT_EXPANDTABS)
+ }
+ ; else leave the above fields set to the zero defaults.
+
+ if (font_size2 || font_weight2 || aFontName)
+ if ( !(splash.hfont2 := CreateFont(-MulDiv(font_size2, pixels_per_point_y, 72), 0, 0, 0
+ , font_weight2, 0, 0, 0, DEFAULT_CHARSET, OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS
+ , PROOF_QUALITY, FF_DONTCARE, aFontName!="" ? aFontName : default_font_name)) )
+ ; Call it again with default font in case above failed due to non-existent aFontName.
+ ; Update: I don't think this actually does any good, at least on XP, because it appears
+ ; that CreateFont() does not fail merely due to a non-existent typeface. But it is kept
+ ; in case it ever fails for other reasons:
+ if (font_size2 || font_weight2)
+ splash.hfont2 := CreateFont(-MulDiv(font_size2, pixels_per_point_y, 72), 0, 0, 0
+ , font_weight2, 0, 0, 0, DEFAULT_CHARSET, OUT_TT_PRECIS, CLIP_DEFAULT_PRECIS
+ , PROOF_QUALITY, FF_DONTCARE, default_font_name)
+ ; else leave it NULL so that hfont_default will be used.
+
+ ; The font(s) will be deleted the next time this window is destroyed or recreated,
+ ; or by the g_script destructor.
+
+ bar_y := splash.margin_y + (splash.text1_height ? (splash.text1_height + splash.margin_y) : 0)
+ sub_y := bar_y + splash.object_height + (splash.object_height ? splash.margin_y : 0) ; Calculate the Y position of each control in the window.
+
+ if (splash.height == COORD_UNSPECIFIED)
+ {
+ ; Since the window height was not specified, determine what it should be based on the height
+ ; of all the controls in the window:
+ if (aSubText!="")
+ {
+ SelectObject(hdc, splash.hfont2 ? splash.hfont2 : hfont_default)
+ ; Calc height of text by taking into account font size, number of lines, and space between lines:
+ ; Reset unconditionally because the previous DrawText() sometimes alters the rect:
+ draw_rect[] := client_rect
+ draw_rect.left += splash.margin_x
+ draw_rect.right -= splash.margin_x
+ subtext_height := DrawText(hdc, aSubText, -1, draw_rect[], DT_CALCRECT | DT_WORDBREAK)
+ }
+ else
+ subtext_height := 0
+ ; For the below: sub_y was previously calc'd to be the top of the subtext control.
+ ; Also, splash.margin_y is added because the text looks a little better if the window
+ ; doesn't end immediately beneath it:
+ splash.height := subtext_height + sub_y + splash.margin_y
+ client_rect.bottom := splash.height
+ }
+
+ SelectObject(hdc, hfont_old) ; Necessary to avoid memory leak.
+ if !DeleteDC(hdc){
+ ErrorLevel := -1
+ return ; Force a failure to detect bugs such as hdc still having a created handle inside.
+ }
+ ; Based on the client area determined above, expand the main_rect to include title bar, borders, etc.
+ ; If the window has a border or caption this also changes top & left *slightly* from zero.
+ main_rect[] := client_rect
+ AdjustWindowRectEx(main_rect[], style, FALSE, exstyle)
+ main_width := main_rect.right - main_rect.left ; main.left might be slightly less than zero.
+ main_height := main_rect.bottom - main_rect.top ; main.top might be slightly less than zero.
+
+ work_rect.Fill()
+ SystemParametersInfo(SPI_GETWORKAREA, 0, work_rect[], 0) ; Get desktop rect excluding task bar.
+ work_width := work_rect.right - work_rect.left ; Note that "left" won't be zero if task bar is on left!
+ work_height := work_rect.bottom - work_rect.top ; Note that "top" won't be zero if task bar is on top!
+
+ ; Seems best (and easier) to unconditionally restrict window size to the size of the desktop,
+ ; since most users would probably want that. This can be overridden by using WinMove afterward.
+ if (main_width > work_width)
+ main_width := work_width
+ if (main_height > work_height)
+ main_height := work_height
+
+ ; Centering doesn't currently handle multi-monitor systems explicitly, since those calculations
+ ; require API functions that don't exist in Win95/NT (and thus would have to be loaded
+ ; dynamically to allow the program to launch). Therefore, windows will likely wind up
+ ; being centered across the total dimensions of all monitors, which usually results in
+ ; half being on one monitor and half in the other. This doesn't seem too terrible and
+ ; might even be what the user wants in some cases (i.e. for really big windows).
+ ; See comments above for why work_rect.left and top are added in (they aren't always zero).
+ if (xpos = COORD_UNSPECIFIED)
+ xpos := work_rect.left + ((work_width - main_width) // 2) ; Don't use splash.width.
+ if (ypos = COORD_UNSPECIFIED)
+ ypos := work_rect.top + ((work_height - main_height) // 2) ; Don't use splash.width.
+
+ ; CREATE Main Splash Window
+ ; It seems best to make this an unowned window for two reasons:
+ ; 1) It will get its own task bar icon then, which is usually desirable for cases where
+ ; there are several progress/splash windows or the window is monitoring something.
+ ; 2) The progress/splash window won't prevent the main window from being used (owned windows
+ ; prevent their owners from ever becoming active).
+ ; However, it seems likely that some users would want the above to be configurable,
+ ; so now there is an option to change this behavior.
+ dialog_owner := 0 ;THREAD_DIALOG_OWNER ; Resolve macro only once to reduce code size.
+ splash.hwnd := CreateWindowEx(exstyle, "AutoHotkeyGUI", aTitle, style, xpos, ypos
+ ; v1.0.35.01: For flexibility, allow these windows to be owned by GUIs via +OwnDialogs.
+ , main_width, main_height, owned ? (dialog_owner ? dialog_owner : A_ScriptHwnd) : 0
+ , 0, A_ModuleHandle, 0)
+ OnMessage(WM_ERASEBKGND,splash.hwnd,"Progress_OnMessage")
+ ,OnMessage(WM_CTLCOLORSTATIC,splash.hwnd,"Progress_OnMessage")
+ ,OnMessage(WM_SIZE,splash.hwnd,"Progress_OnMessage")
+ if !(splash.hwnd){
+ ErrorLevel:=-1
+ return ; No error msg since so rare.
+ }
+
+ if ((style & WS_SYSMENU) || !owned)
+ {
+ ; Setting the small icon puts it in the upper left corner of the dialog window.
+ ; Setting the big icon makes the dialog show up correctly in the Alt-Tab menu (but big seems to
+ ; have no effect unless the window is unowned, i.e. it has a button on the task bar).
+
+ ; L17: Use separate big/small icons for best results.
+ if (g_script.mCustomIcon)
+ {
+ big_icon := g_script.mCustomIcon
+ small_icon := g_script.mCustomIconSmall ; Should always be non-NULL when mCustomIcon is non-NULL.
+ }
+ else
+ big_icon := small_icon := LoadImage(A_ModuleHandle, IDI_MAIN & 0xFFFF, IMAGE_ICON, 0, 0, LR_SHARED) ; Use LR_SHARED to conserve memory (since the main icon is loaded for so many purposes).
+
+ if (style & WS_SYSMENU)
+ SendMessage_(splash.hwnd, WM_SETICON, ICON_SMALL, small_icon)
+ if (!owned)
+ SendMessage_(splash.hwnd, WM_SETICON, ICON_BIG, big_icon)
+ }
+
+ ; Update client rect in case it was resized due to being too large (above) or in case the OS
+ ; auto-resized it for some reason. These updated values are also used by SPLASH_CALC_CTRL_WIDTH
+ ; to position the static text controls so that text will be centered properly:
+ GetClientRect(splash.hwnd, client_rect[])
+ splash.height := client_rect.bottom
+ splash.width := client_rect.right
+ control_width := client_rect.right - (splash.margin_x * 2)
+
+ ; CREATE Main label
+ if (aMainText!="")
+ {
+ splash.hwnd_text1 := CreateWindowEx(0, "static", aMainText
+ , WS_CHILD|WS_VISIBLE|SS_NOPREFIX|(centered_main ? SS_CENTER : SS_LEFT)
+ , splash.margin_x, splash.margin_y, control_width, splash.text1_height, splash.hwnd, 0, A_ModuleHandle, 0)
+ SendMessage_(splash.hwnd_text1, WM_SETFONT, (splash.hfont1 ? splash.hfont1 : hfont_default), ((1 & 0xffff) | (0 & 0xffff) << 16) & 0xFFFF)
+ }
+
+ if (splash.object_height > 0) ; Progress window
+ {
+ ; CREATE Progress control (always starts off at its default position as determined by OS/common controls):
+ if (splash.hwnd_bar := CreateWindowEx(WS_EX_CLIENTEDGE, PROGRESS_CLASS, "", WS_CHILD|WS_VISIBLE|PBS_SMOOTH
+ , splash.margin_x, bar_y, control_width, splash.object_height, splash.hwnd, 0, 0, 0))
+ {
+ if (range_min || range_max) ; i.e. if both are zero, leave it at the default range, which is 0-100.
+ {
+ if (range_min > -1 && range_min < 0x10000 && range_max > -1 && range_max < 0x10000)
+ ; Since the values fall within the bounds for Win95/NT to support, use the old method
+ ; in case Win95/NT lacks MSIE 3.0:
+ SendMessage_(splash.hwnd_bar, PBM_SETRANGE, 0, (range_min & 0xffff) | (range_max & 0xffff) << 16 & 0xFFFF)
+ else
+ SendMessage_(splash.hwnd_bar, PBM_SETRANGE32, range_min, range_max)
+ }
+
+
+ if (bar_color != CLR_DEFAULT)
+ {
+ ; Remove visual styles so that specified color will be obeyed:
+ DllCall("MySetWindowTheme","PTR",splash.hwnd_bar,"WStr", "","WStr", "")
+ SendMessage_(splash.hwnd_bar, PBM_SETBARCOLOR, 0, bar_color) ; Set color.
+ }
+ if (splash.color_bk != CLR_DEFAULT)
+ SendMessage_(splash.hwnd_bar, PBM_SETBKCOLOR, 0, splash.color_bk) ; Set color.
+ if (bar_pos_has_been_set) ; Note that the window is not yet visible at this stage.
+ ; This happens when the window doesn't exist and a command such as the following is given:
+ ; Progress, 50 [, ...]. As of v1.0.25, it also happens via the new 'P' option letter:
+ SendMessage_(splash.hwnd_bar, PBM_SETPOS, bar_pos, 0)
+ else ; Ask the control its starting/default position in case a custom range is in effect.
+ bar_pos := SendMessage_(splash.hwnd_bar, PBM_GETPOS, 0, 0)
+ splash.bar_pos := bar_pos ; Save the current position to avoid redraws when future positions are identical to current.
+ }
+ }
+
+ ; CREATE Sub label
+ if (splash.hwnd_text2 := CreateWindowEx(0, "static", aSubText
+ , WS_CHILD|WS_VISIBLE|SS_NOPREFIX|(centered_sub ? SS_CENTER : SS_LEFT)
+ , splash.margin_x, sub_y, control_width, (client_rect.bottom - client_rect.top) - sub_y, splash.hwnd, 0, A_ModuleHandle, 0))
+ SendMessage_(splash.hwnd_text2, WM_SETFONT, (splash.hfont2 ? splash.hfont2 : hfont_default), ((1 & 0xffff) | (0 & 0xffff) << 16) & 0xFFFF)
+ ; Show it without activating it. Even with options that allow the window to be activated (such
+ ; as movable), it seems best to do this to prevent changing the current foreground window, which
+ ; is usually desirable for progress/splash windows since they should be seen but not be disruptive:
+ if (!initially_hidden)
+ ShowWindow(splash.hwnd, SW_SHOWNOACTIVATE)
+ return
+}
\ No newline at end of file
diff --git a/lib-i_to_z/ReFormatTime.ahk b/lib-i_to_z/ReFormatTime.ahk
index 776da57d..01ee3bdf 100644
--- a/lib-i_to_z/ReFormatTime.ahk
+++ b/lib-i_to_z/ReFormatTime.ahk
@@ -1,4 +1,4 @@
-; function by skan. Added Trim for A_LoopField to remove spaces
+; function by skan. Added Trim for A_LoopField to remove spaces
ReFormatTime( Time, Format, Delimiters ) {
StringSplit F,Format, %A_Space%
Loop, Parse, Time, %Delimiters%
diff --git a/lib-i_to_z/RelToAbs.ahk b/lib-i_to_z/RelToAbs.ahk
index 07476f41..a9b9cdd3 100644
--- a/lib-i_to_z/RelToAbs.ahk
+++ b/lib-i_to_z/RelToAbs.ahk
@@ -1,4 +1,4 @@
-RelToAbs(d1, d2, s = "\") {
+RelToAbs(d1, d2, s = "\") {
d0 := SubStr(d1, 1, len := InStr(d1, s, "", InStr(d1, s . s) + 2) - 1)
, d1 := SubStr(d1, len + 1), off := 0
Loop, 2
diff --git a/lib-i_to_z/ResolveHostname.ahk b/lib-i_to_z/ResolveHostname.ahk
index 39c864dd..1a5eb091 100644
--- a/lib-i_to_z/ResolveHostname.ahk
+++ b/lib-i_to_z/ResolveHostname.ahk
@@ -2,8 +2,7 @@
; DNS Name Resolution – Gets IP address from hostname
; ===============================================================================================================================
-ResolveHostname(hostname)
-{
+ResolveHostname(hostname) {
hWS2_32 := DllCall("LoadLibrary", "str", "ws2_32.dll", "ptr")
VarSetCapacity(WSADATA, 394 + (A_PtrSize - 2) + A_PtrSize, 0)
if (DllCall("ws2_32\WSAStartup", "ushort", 0x0202, "ptr", &WSADATA) != 0)
diff --git a/lib-i_to_z/ReverseLookup.ahk b/lib-i_to_z/ReverseLookup.ahk
index 06eef46a..64274eff 100644
--- a/lib-i_to_z/ReverseLookup.ahk
+++ b/lib-i_to_z/ReverseLookup.ahk
@@ -2,8 +2,7 @@
; Reverse lookup – Gets hostname by IP address
; ===============================================================================================================================
-ReverseLookup(ipaddr)
-{
+ReverseLookup(ipaddr) {
hWS2_32 := DllCall("LoadLibrary", "str", "ws2_32.dll", "ptr")
VarSetCapacity(WSADATA, 394 + (A_PtrSize - 2) + A_PtrSize, 0)
if (DllCall("ws2_32\WSAStartup", "ushort", 0x0202, "ptr", &WSADATA) != 0)
@@ -20,6 +19,6 @@ ReverseLookup(ipaddr)
; ===============================================================================================================================
-MsgBox % ReverseLookup("8.8.8.8") ; ==> google-public-dns-a.google.com
+;MsgBox % ReverseLookup("8.8.8.8") ; ==> google-public-dns-a.google.com
ExitApp
\ No newline at end of file
diff --git a/lib-i_to_z/RunGetStdout.ahk b/lib-i_to_z/RunGetStdout.ahk
new file mode 100644
index 00000000..4181385c
--- /dev/null
+++ b/lib-i_to_z/RunGetStdout.ahk
@@ -0,0 +1,49 @@
+RunGetStdOut(sCmd, sEncoding := "CP0", sDir := "", ByRef nExitCode := 0, Callback := "") {
+ DllCall("CreatePipe", "Ptr*", hStdOutRd, "Ptr*", hStdOutWr, "Ptr", 0, "UInt", 0)
+ DllCall("SetHandleInformation", "Ptr", hStdOutWr, "UInt", 1, "UInt", 1)
+
+ ; STARTUPINFO
+ NumPut(VarSetCapacity(si, A_PtrSize == 4 ? 68 : 104, 0), si, 0, "UInt")
+ NumPut(0x100, si, A_PtrSize == 4 ? 44 : 60, "UInt") ; dwFlags: STARTF_USESTDHANDLES
+ NumPut(hStdOutWr, si, A_PtrSize == 4 ? 60 : 88, "Ptr" ) ; hStdOutput
+ NumPut(hStdOutWr, si, A_PtrSize == 4 ? 64 : 96, "Ptr" ) ; hStdError
+
+ ; PROCESS_INFORMATION
+ VarSetCapacity(pi, A_PtrSize == 4 ? 16 : 24, 0)
+ ; CREATE_NO_WINDOW = 0x08000000
+ If (!DllCall("CreateProcess", "Ptr", 0, "Ptr", &sCmd, "Ptr", 0, "Ptr", 0, "Int", True
+ , "UInt", 0x08000000, "Ptr", 0, "Ptr", sDir ? &sDir : 0, "Ptr", &si, "Ptr", &pi)) {
+ DllCall("CloseHandle", "Ptr", hStdOutWr)
+ DllCall("CloseHandle", "Ptr", hStdOutRd)
+ Return ""
+ }
+
+ DllCall("CloseHandle", "Ptr", hStdOutWr) ; The write pipe must be closed before reading the stdout.
+
+ sOutput := ""
+ While (1) {
+ ; Before reading, we check if the pipe has been written to, so we avoid freezings.
+ If (!DllCall("PeekNamedPipe", "Ptr", hStdOutRd, "Ptr", 0, "UInt", 0, "Ptr", 0, "UInt*", nTot, "Ptr", 0)) {
+ Break
+ }
+
+ If (!nTot) { ; If the pipe buffer is empty, sleep and continue checking.
+ Sleep 100
+ Continue
+ }
+
+ ; Pipe buffer is not empty, so we can read it.
+ VarSetCapacity(sTemp, nTot + 1)
+ DllCall("ReadFile", "Ptr", hStdOutRd, "Ptr", &sTemp, "UInt", nTot, "Ptr*", nSize, "Ptr", 0)
+ sOutput .= sStdOut := StrGet(&sTemp, nSize, sEncoding)
+ If (Callback != "") {
+ %Callback%(sStdOut)
+ }
+ }
+
+ DllCall("GetExitCodeProcess", "Ptr", NumGet(pi, 0), "UInt*", nExitCode)
+ DllCall("CloseHandle", "Ptr", NumGet(pi, 0)) ; hProcess
+ DllCall("CloseHandle", "Ptr", NumGet(pi, A_PtrSize)) ; hThread
+ DllCall("CloseHandle", "Ptr", hStdOutRd)
+ Return sOutput
+}
diff --git a/lib-i_to_z/SpecialListviewFunctions.ahk b/lib-i_to_z/SpecialListviewFunctions.ahk
deleted file mode 100644
index 263d4ba1..00000000
--- a/lib-i_to_z/SpecialListviewFunctions.ahk
+++ /dev/null
@@ -1,478 +0,0 @@
-CompileList(Find, Criteria, Col, LV, ColumnList) {
- /*
- Find: What do you want to be in "Criteria" Column? (All means ALL)
- Criteria: What Column do you want to find "Find"?
- Col: What Column will do you want to build list of if "Find" is found?
- LV: Which ListView? (Name)
- ColumnList: ALWAYS ColumnList
- */
- ;~ Gui, 1: Default
- Gui, ListView, %LV%
- loop, parse, ColumnList, `|
- {
- if (A_Loopfield = Col)
- ;~ {
- A := A_Index
- ;~ break
- ;~ }
- ;~ }
- ;~ loop, parse, ColumnList, `|
- ;~ {
- if (A_Loopfield = Criteria)
- ;~ {
- B := A_Index
- ;~ break
- ;~ }
- }
- ;~ MsgBox, % Find . " / " . Criteria . " " . B . " / " . Col . " " . A . " / " . LV . " / " . ColumnList
- NList=
- RowNumber = 0
- Gui, ListView, %LV%
- Ttl := LV_GetCount()
- Loop %Ttl%
- {
- LV_GetText(Text, A_Index, B)
- ;~ MsgBox, %Text%
- if (Find = "NonBlank" and Text <> "")
- Text := "NonBlank"
-
- if (Text <> Find and Find <> "All" and Find <> "NONE")
- Continue
- if (Text = "" and Find = "NONE")
- {
- LV_GetText(Found, A_Index, A)
- if (NList = "")
- NList .= Found
- else
- NList .= "|" . Found
- Continue
- }
- LV_GetText(Found, A_Index, A)
- if (NList = "")
- NList .= Found
- else
- NList .= "|" . Found
- }
- Sort, NList, D| U
- ;~ MsgBox, %NList%
- Return NList
-}
-
-Search(ByRef SRow,SearchFor,Col,LV) {
- ;~ Returns Row Number according to parameters
- ;~ SRow: Starting row (if set to same variable as returned, can be made into a search loop)
- ;~ SearchFor: Criteria to be searched for (PCRE options and Wild cards supported, see https://autohotkey.com/docs/misc/RegEx-QuickRef.htm
- ;~ SearchFor syntax for finding label names is "A)[LabelName]-+")
- ;~ Col: Column NUMBER to be searched (Can be ALL)
- ;~ LV: Grid to be searched
- StringReplace, SearchFor, SearchFor, `*, `., All
- Gui, Listview, %LV%
- Ttl := LV_GetCount()
- TtlC := LV_GetCount("Column")
- SearchLoop:
- Loop
- {
- SRow +=1
- if (SRow > Ttl)
- Break, SearchLoop
- if(Col = "All")
- {
- Loop, %TtlC%
- {
- LV_GetText(SText, SRow, A_Index)
- ;~ OLD WAY (no wildcard support)
- ;~ if (SText = SearchFor)
- ;~ Break, SearchLoop
- FoundPos := RegExMatch(SText, SearchFor)
- if FoundPos
- Break, SearchLoop
- }
- }
- else
- {
- LV_GetText(SText, SRow, Col)
- ;~ MsgBox, %SText% %SearchFor%
- Clipboard := SearchFor
- FoundPos := RegExMatch(SText, SearchFor)
- if FoundPos
- Break, SearchLoop
- ;~ OLD WAY (no wildcard support)
- ;~ if (SText = SearchFor)
- ;~ Break, SearchLoop
- }
- }
- ;~ if (SText <> SearchFor)
- if not FoundPos
- SRow := 0
-Return SRow
-}
-
-DblSearch(Criteria, Column, Criteria2, Column2, LV) {
- ;~ Returns RowNumber that meets both Criteria explicitly, does not have support for wildcards yet.
- ;~ Criteria: Literal, complete phrase you want to find in %Column%
- ;~ Column: Literal, complete, NAME of column you want to search for %Criteria%
- ;~ Criteria2: Same as %Criteria% but in relation to %Column2%
- ;~ Column2: Same as %Column% but in relation to %Criteria2%
- ;~ LV: Which grid (ListView) you want to find results in
- ;~ ColumnList: Complete "|" Separated list of Column Names in %LV%
- TtlC := LV_GetCount("Column")
- Loop, %TtlC%
- {
- LV_GetText(Name, 0, A_Index)
- If (Name = Column)
- A := A_Index
- else if (Name = Column2)
- B := A_Index
- if (A <> "" and B <> "")
- Break
- }
- If (A = "" or B = "" or A = 0 or B = 0)
- ;~ Give better MsgBox when MsgBox app working
- MsgBox, Column(s) not Found in %LV%!`n Parameters Given:`n`tColumn:`t%Column%`n`tColumn2:`t%Column2%
-;~ OLD WAY OF ASSOCIATING COLUMN NAME WITH COLUMN NUMBER, Uses 6th Parameter (ColumnList)
-;~ {
- ;~ loop, parse, ColumnList, `|
- ;~ {
- ;~ if (A_Loopfield = Column)
- ;~ {
- ;~ A := A_Index
- ;~ break
- ;~ }
- ;~ }
- ;~ loop, parse, ColumnList, `|
- ;~ {
- ;~ if (A_Loopfield = Column2)
- ;~ {
- ;~ B := A_Index
- ;~ break
- ;~ }
- ;~ }
-;~ }
-
- RowNumber = 0
- Gui, ListView, %LV%
- Ttl := LV_GetCount()
- Loop %Ttl%
- {
- LV_GetText(Text, A_Index, A)
- LV_GetText(Text2, A_Index, B)
- if (Text = Criteria and Text2 = Criteria2)
- Found := A_Index
- }
- ;~ if (Found = "")
- ;~ Found := 0
- Return Found
-}
-
-TripSearch(Criteria, Column, Criteria2, Column2, Criteria3, Column3, LV) {
- ;~ Returns RowNumber that meets both Criteria explicitly, does not have support for wildcards yet.
- ;~ Criteria: Literal, complete phrase you want to find in %Column%
- ;~ Column: Literal, complete, NAME of column you want to search for %Criteria%
- ;~ Criteria2: Same as %Criteria% but in relation to %Column2%
- ;~ Column2: Same as %Column% but in relation to %Criteria2%
- ;~ LV: Which grid (ListView) you want to find results in
- ;~ ColumnList: Complete "|" Separated list of Column Names in %LV%
- TtlC := LV_GetCount("Column")
- Loop, %TtlC%
- {
- LV_GetText(Name, 0, A_Index)
- If (Name = Column)
- A := A_Index
- else if (Name = Column2)
- B := A_Index
- else if (Name = Column3)
- C := A_Index
- if (A <> "" and B <> "" and C <> "")
- Break
- }
- If (A = "" or B = "" or A = 0 or B = 0 or C = "" or C = 0)
- ;~ Give better MsgBox when MsgBox app working
- MsgBox, Column(s) not Found in %LV%!`n Parameters Given:`n`tColumn:`t%Column%`n`tColumn2:`t%Column2%n`tColumn3:`t%Column3%
-;~ OLD WAY OF ASSOCIATING COLUMN NAME WITH COLUMN NUMBER, Uses 6th Parameter (ColumnList)
-;~ {
- ;~ loop, parse, ColumnList, `|
- ;~ {
- ;~ if (A_Loopfield = Column)
- ;~ {
- ;~ A := A_Index
- ;~ break
- ;~ }
- ;~ }
- ;~ loop, parse, ColumnList, `|
- ;~ {
- ;~ if (A_Loopfield = Column2)
- ;~ {
- ;~ B := A_Index
- ;~ break
- ;~ }
- ;~ }
-;~ }
-
- RowNumber = 0
- Gui, ListView, %LV%
- Ttl := LV_GetCount()
- Loop %Ttl%
- {
- LV_GetText(Text, A_Index, A)
- LV_GetText(Text2, A_Index, B)
- LV_GetText(Text3, A_Index, C)
- if (Text = Criteria and Text2 = Criteria2 and Text3 = Criteria3)
- Found := A_Index
- }
- ;~ if (Found = "")
- ;~ Found := 0
- Return Found
-}
-
-CleanArchive(Directory,ArNum) {
- ;~ Keeps the number of archived inventories below the value defined in the ini (Default is 100)
- ;~ See "Archived File Name Explanation.txt" in the archive folder for more info and how to change that value if so desired.
- Files := ""
- Loop %Directory%\*.csv
- TtlA := A_Index
- if (TtlA > ArNum)
- {
- TtlA -= ArNum
- Loop %Directory%\*.csv
- Files .= A_LoopFileLongPath . "|"
- Sort, Files, D| \
- Loop, parse, files, |
- {
- if (A_Index <= TtlA)
- FileDelete, %A_Loopfield%
- else
- Break
- }
- }
- return
-}
-
-GrabView(SelCols,LV,Issue) {
- /*
- Returns "," separated list from current view based on criteria WITH HEADERS, commas are ~
- SelCols: Which Columns to grab, formatted 1|2|5|8
- LV: Which Listview, "ScanGuiAdd", "Inventory", "OHInventory" or "TIInventory"
- Issue: "YES" will only collect Checked Items, "NO" grabs all
- */
-
- Grid := ""
- Gui, 1: Default
- Gui, ListView, %LV%
- Ttl := LV_GetCount()
- Ttl += 1
- Loop, Parse, SelCols, |
- TtlC := A_Index
- RowNumber := 0
- Loop, %Ttl%
- {
- if (Issue = "YES" and A_Index <> 1)
- {
- RowNumber := LV_GetNext(RowNumber, "Checked")
- If Not RowNumber
- Break
- }
- Loop, Parse, SelCols, | ;Parse through Selected Column Headers (SelCols)
- {
- LV_GetText(Text, RowNumber, A_Loopfield)
- StringReplace, Text, Text, `,, `~, ALL
- GridRow .= Text
- if (A_Index <> TtlC)
- GridRow .= "`,"
- }
- Grid .= GridRow
- GridRow=
- if (RowNumber <> Ttl)
- Grid .= "`n"
- if (Issue = "No")
- RowNumber += 1
- }
- Return Grid
-}
-
-CompileItemLists(M,C,List) { ;(MasterIssueList,CompiledList,Desired Thing to be listed("SI"[Serialized Items] {or "ILM"[Issuable Location Models]} or "QI"[Quantified Items])
-
-;~ C := "StartMe"
-C := ""
-Loop, parse, M, `n, `r
-{
- Loop, parse, A_Loopfield, csv
- {
- if (A_Index = 1)
- I := A_Loopfield ;Item
- if (A_Index = 4)
- M := A_Loopfield ;Model
- if (A_Index = 7)
- S := A_Loopfield ;Serial Number
- }
- If(List = "SI")
- {
- if (S <> "" and I <> "Issuable Location")
- C .= I . "`,"
- ;~ C .= "`n" . Item
- }
- /*
- If (List = "ILM")
- {
- if (I = "Issuable Location")
- C.Push(M)
- ;~ C .= "`n" . Item
- }
- */
- If (List = "QI")
- {
- if (S = "")
- C .= I . "`,"
- ;~ C .= "`n" . Item
- }
-}
-StringReplace, C, C, `n,,1
-Sort, C, U D`,
-Return C
-}
-
-CompileSerialLists(M,P,C,SLorQ) { ;(MasterIssueList, ParseList(ItemList), CompiledList, Serialized, Labeled or Quantified)
-
- ;~ XMLAddSerials DELETEME
-Loop, Parse, P, csv
-{
- DI := A_Loopfield ;Desired Item
- Loop, parse, M, `n, `r
- {
- If (A_Loopfield = "")
- Break
- Loop, parse, A_Loopfield, csv
- {
- if (A_Index = 1)
- I := A_Loopfield ;Item
- if (A_Index = 3)
- L := A_Loopfield ;Label
- if (A_Index = 4)
- Mo := A_Loopfield ;Model
- if (A_Index = 6)
- Q := A_Loopfield ;Qty
- if (A_Index = 7)
- S := A_Loopfield ;Serial Number
- }
-
- If (I <> DI)
- Continue
-
- C .= "`n"
-
- if (SLorQ = "S")
- C .= I . "|" . L . "|" . S
- if (SLorQ = "L")
- C .= Mo . "|" . S
- if (SLorQ = "Q")
- {
- if (S = "")
- C .= I . "|" . Mo . "|" . Q
- }
- }
-}
-StringReplace, C, C, `n,
-Sort, C
-Return C
-}
-
-LV_SubitemHitTest(HLV) {
- ; https://autohotkey.com/board/topic/80265-solved-which-column-is-clicked-in-listview/
- ; To run this with AHK_Basic change all DllCall types "Ptr" to "UInt", please.
- ; HLV - ListView's HWND
- /*
-typedef struct _LVHITTESTINFO {
- POINT pt;
- UINT flags;
- int iItem;
- int iSubItem;
- int iGroup;
-} LVHITTESTINFO, *LPLVHITTESTINFO;
-*/
- Static LVM_SUBITEMHITTEST := 0x1039
- VarSetCapacity(POINT, 8, 0)
- ; Get the current cursor position in screen coordinates
- DllCall("User32.dll\GetCursorPos", "Ptr", &POINT)
- ; Convert them to client coordinates related to the ListView
- DllCall("User32.dll\ScreenToClient", "Ptr", HLV, "Ptr", &POINT)
- ; Create a LVHITTESTINFO structure (see below)
- VarSetCapacity(LVHITTESTINFO, 24, 0)
- ; Store the relative mouse coordinates
- NumPut(NumGet(POINT, 0, "Int"), LVHITTESTINFO, 0, "Int")
- NumPut(NumGet(POINT, 4, "Int"), LVHITTESTINFO, 4, "Int")
- ; Send a LVM_SUBITEMHITTEST to the ListView
- SendMessage, LVM_SUBITEMHITTEST, 0, &LVHITTESTINFO, , ahk_id %HLV%
- ; If no item was found on this position, the return value is -1
- If (ErrorLevel = -1)
- Return 0
- ; Get the corresponding subitem (column)
- Subitem := NumGet(LVHITTESTINFO, 16, "Int") + 1
- Return Subitem
-}
-
-ActiveControlIsOfClass(Class) {
- ControlGetFocus, FocusedControl, A
- ControlGet, FocusedControlHwnd, Hwnd,, %FocusedControl%, A
- WinGetClass, FocusedControlClass, ahk_id %FocusedControlHwnd%
- return (FocusedControlClass=Class)
-}
-
-LetterArray(Begin,End) {
- ;~ Returns Array of letters at sequential index points, i.e. Columns[1] retrieves the first letter and so on
- ;~ Begin: First letter to Add to Array
- ;~ End: Last letter to add
- ;~ lowercase parameters ok
- ;~ reverse order letters ok (Means Array := LetterArray("c","a") returns, Array = [C,B,A])
- ;~ Only Handles A-Z right now will work later on AA and up
- Min := Asc(upper(Begin))
- Max := Asc(upper(End))
- Reverse := "NO"
- if (Min > Max)
- {
- Reverse := "Yes"
- tmp := Min
- Min := Max
- Max := tmp
- }
- if Max not between 65 and 90
- msgbox, Invalid parameters, Begin and End must only be single letters (in quotes if not using variables)
- Count := Max - Min + 1
- ;~ MsgBox, %Count%
- Letters := []
- loop %Count%
- {
- AsciiCode := A_Index + Min - 1 ;ASCII code for "A" is 65 for reference
- Letter := Chr(AsciiCode)
- Letters.Push(Letter) ;adds letter to array with index = A_Index, so if Begin was "A" then Letters[1] = "A" and Letters[2] = "B"...
- }
-
- if (Reverse = "NO")
- Return Letters
-
- ReverseLetters := []
- Index := Count
- loop %Count%
- {
- Letter := Letters[Index]
- ReverseLetters.Push(Letter)
- Index -= 1
- }
- Return ReverseLetters
-
-
-}
-
-Upper(string) {
- StringUpper, STRING, String
- return STRING
-}
-
-hasValue(haystack, needle) {
- if(!isObject(haystack))
- return false
- if(haystack.Length()==0)
- return false
- for k,v in haystack
- if(v==needle)
- return true
- return false
-}
\ No newline at end of file
diff --git a/lib-i_to_z/Sql_FormatSQL.ahk b/lib-i_to_z/Sql_FormatSQL.ahk
index 98df4bbc..e5ef6e03 100644
--- a/lib-i_to_z/Sql_FormatSQL.ahk
+++ b/lib-i_to_z/Sql_FormatSQL.ahk
@@ -1,4 +1,4 @@
-FormatSQL(ByRef fnText,fnAllowFormatAlterationsSql := 0)
+FormatSQL(ByRef fnText,fnAllowFormatAlterationsSql := 0)
{
; function description
; MsgBox fnText: %fnText%`nfnAllowFormatAlterationsSql: %fnAllowFormatAlterationsSql%`n
diff --git a/lib-i_to_z/Text-to-Speech.ahk b/lib-i_to_z/Text-to-Speech.ahk
new file mode 100644
index 00000000..73d82ad1
--- /dev/null
+++ b/lib-i_to_z/Text-to-Speech.ahk
@@ -0,0 +1,133 @@
+
+TTS(oVoice, command, param1="", param2="") {
+ ; by Learning one. For AHK_L. Thanks: jballi, Sean, Frankie.
+ ; AHK forum location: www.autohotkey.com/forum/topic57773.html
+ ; Read more: msdn.microsoft.com/en-us/library/ms723602(v=VS.85).aspx, www.autohotkey.com/forum/topic45471.html, www.autohotkey.com/forum/topic83162.html
+ ; https://autohotkey.com/board/topic/53429-function-easy-text-to-speech/#entry372022
+ static CommandList := "ToggleSpeak,Speak,SpeakWait,Pause,Stop,SetRate,SetVolume,SetPitch,SetVoice,GetVoices,GetStatus,GetCount,SpeakToFile"
+ if command not in %CommandList%
+ {
+ MsgBox, 16, TTS() error, "%command%" is not valid command.
+ return
+ }
+ if command = ToggleSpeak ; speak or stop speaking
+ {
+ Status := oVoice.Status.RunningState
+ if Status = 1 ; finished
+ oVoice.Speak(param1,0x1) ; speak asynchronously
+ Else if Status = 0 ; paused
+ {
+ oVoice.Resume
+ oVoice.Speak("",0x1|0x2) ; stop
+ oVoice.Speak(param1,0x1) ; speak asynchronously
+ }
+ Else if Status = 2 ; reading
+ oVoice.Speak("",0x1|0x2) ; stop
+ }
+ Else if command = Speak ; speak asynchronously
+ {
+ Status := oVoice.Status.RunningState
+ if Status = 0 ; paused
+ oVoice.Resume
+ oVoice.Speak("",0x1|0x2) ; stop
+ oVoice.Speak(param1,0x1) ; speak asynchronously
+ }
+ Else if command = SpeakWait ; speak synchronously
+ {
+ Status := oVoice.Status.RunningState
+ if Status = 0 ; paused
+ oVoice.Resume
+ oVoice.Speak("",0x1|0x2) ; stop
+ oVoice.Speak(param1,0x0) ; speak synchronously
+ }
+ Else if command = Pause ; Pause toggle
+ {
+ Status := oVoice.Status.RunningState
+ if Status = 0 ; paused
+ oVoice.Resume
+ else if Status = 2 ; reading
+ oVoice.Pause
+ }
+ Else if command = Stop
+ {
+ Status := oVoice.Status.RunningState
+ if Status = 0 ; paused
+ oVoice.Resume
+ oVoice.Speak("",0x1|0x2) ; stop
+ }
+ Else if command = SetRate
+ oVoice.Rate := param1 ; rate (reading speed): param1 from -10 to 10. 0 is default.
+ Else if command = SetVolume
+ oVoice.Volume := param1 ; volume (reading loudness): param1 from 0 to 100. 100 is default
+ Else if command = SetPitch ; http://msdn.microsoft.com/en-us/library/ms717077(v=vs.85).aspx
+ oVoice.Speak("",0x20) ; pitch : param1 from -10 to 10. 0 is default.
+ Else if command = SetVoice
+ {
+ Loop, % oVoice.GetVoices.Count
+ {
+ Name := oVoice.GetVoices.Item(A_Index-1).GetAttribute("Name") ; 0 based
+ If (Name = param1)
+ {
+ DoesVoiceExist := 1
+ break
+ }
+ }
+ if !DoesVoiceExist
+ {
+ MsgBox,64,, Voice "%param1%" does not exist.
+ return
+ }
+ While !(oVoice.Status.RunningState = 1)
+ Sleep, 20
+ oVoice.Voice := oVoice.GetVoices("Name=" param1).Item(0) ; set voice to param1
+ }
+ Else if command = GetVoices
+ {
+ param1 := (param1 = "") ? "`n" : param1 ; param1 as delimiter
+ Loop, % oVoice.GetVoices.Count
+ {
+ Name := oVoice.GetVoices.Item(A_Index-1).GetAttribute("Name") ; 0 based
+ VoiceList .= Name param1
+ }
+ Return RTrim(VoiceList,param1)
+ }
+ Else if command = GetStatus
+ {
+ Status := oVoice.Status.RunningState
+ if Status = 0 ; paused
+ Return "paused"
+ Else if Status = 1 ; finished
+ Return "finished"
+ Else if Status = 2 ; reading
+ Return "reading"
+ }
+ Else if command = GetCount
+ return oVoice.GetVoices.Count
+ Else if command = SpeakToFile ; param1 = TextToSpeak, param2 = OutputFilePath
+ {
+ oldAOS := oVoice.AudioOutputStream
+ oldAAOFCONS := oVoice.AllowAudioOutputFormatChangesOnNextSet
+ oVoice.AllowAudioOutputFormatChangesOnNextSet := 1
+
+ SpStream := ComObjCreate("SAPI.SpFileStream")
+ FileDelete, % param2 ; OutputFilePath
+ SpStream.Open(param2, 3)
+ oVoice.AudioOutputStream := SpStream
+ TTS(oVoice, "SpeakWait", param1)
+ SpStream.Close()
+ oVoice.AudioOutputStream := oldAOS
+ oVoice.AllowAudioOutputFormatChangesOnNextSet := oldAAOFCONS
+ }
+}
+ TTS_CreateVoice(VoiceName="", VoiceRate="", VoiceVolume="", VoicePitch="") { ; by Learning one. For AHK_L.
+ oVoice := ComObjCreate("SAPI.SpVoice")
+ if !(VoiceName = "")
+ TTS(oVoice, "SetVoice", VoiceName)
+ if VoiceRate between -10 and 10
+ oVoice.Rate := VoiceRate ; rate (reading speed): from -10 to 10. 0 is default.
+ if VoiceVolume between 0 and 100
+ oVoice.Volume := VoiceVolume ; volume (reading loudness): from 0 to 100. 100 is default
+ if VoicePitch between -10 and 10
+ TTS(oVoice, "SetPitch", VoicePitch) ; pitch: from -10 to 10. 0 is default.
+ return oVoice
+}
diff --git a/lib-i_to_z/WinGetPidList.ahk b/lib-i_to_z/WinGetPidList.ahk
index 6159ea87..e800823d 100644
--- a/lib-i_to_z/WinGetPidList.ahk
+++ b/lib-i_to_z/WinGetPidList.ahk
@@ -1,4 +1,4 @@
-WinGetPidList(WinTitle:="",WinText:="",ExcludeTitle:="",ExcludeText:=""){
+WinGetPidList(WinTitle:="",WinText:="",ExcludeTitle:="",ExcludeText:=""){
static p,i,EnumProcesses
if !EnumProcesses
i:=VarSetCapacity(p,4096),EnumProcesses:=DynaCall(DllCall("GetProcAddress","PTR",DllCall("LoadLibrary","STR","psapi","PTR"),"AStr","EnumProcesses","PTR"),"tuiui",&p,4096,getvar(i))
diff --git a/lib-i_to_z/WinSock2.ahk b/lib-i_to_z/WinSock2.ahk
index be65df4b..f1fe85ee 100644
--- a/lib-i_to_z/WinSock2.ahk
+++ b/lib-i_to_z/WinSock2.ahk
@@ -1,4 +1,4 @@
-;http://www.autohotkey.com/forum/topic35575.html
+;http://www.autohotkey.com/forum/topic35575.html
/*
WS2.ahk / StdLib WinSock IPv4 Library for AHK
@@ -24,6 +24,20 @@ WS2_SendDataEx, WS2_SendNumber
http://www.autohotkey.com/forum/viewtopic.php?p=285164#285164
*/
+/*
+; WS2 OnMessage - This function defines, whatever should happen when
+; a Message is received on the socket.
+; Expected Parameter:
+; Ws2_Socket => Socket returned from WS2_Connect() Call
+; UDF => An UserDefinedFunction to which the received
+; Data will be passed to
+; Optional Parameter:
+; WindowMessage => A number indicating upon which WM_Message to react
+;
+; Returns -1 on error, 0 on success
+*/
+
+WS2_Connect(lpszUrl) {
; WS2 Connect - This establishes a connection to a named resource
; The parameter is to be passed in an URI:Port manner.
; Returns the socket upon successfull connection, otherwise it
@@ -33,7 +47,6 @@ WS2_SendDataEx, WS2_SendNumber
; Usage-Example:
; Pop3_Socket := WS2_Connect("mail.isp.com:110")
; See the Doc for more Information.
-WS2_Connect(lpszUrl) {
Global
@@ -89,17 +102,6 @@ WS2_Connect(lpszUrl) {
}
}
-; WS2 OnMessage - This function defines, whatever should happen when
-; a Message is received on the socket.
-; Expected Parameter:
-; Ws2_Socket => Socket returned from WS2_Connect() Call
-; UDF => An UserDefinedFunction to which the received
-; Data will be passed to
-; Optional Parameter:
-; WindowMessage => A number indicating upon which WM_Message to react
-;
-; Returns -1 on error, 0 on success
-
WS2_AsyncSelect(Ws2_Socket,UDF,WindowMessage="") {
Global __WSA_ErrMsg
If ( ( StrLen(Ws2_Socket)=0 )
@@ -137,9 +139,9 @@ WS2_SendNumber(WS2_Socket, Num, Type="UInt") {
}
}
+WS2_CleanUp() {
; WS2 Cleanup - This needs to be called whenever Your Script exits
; Usually this is invoked by some OnExit, Label subroutines.
-WS2_CleanUp() {
DllCall("Ws2_32\WSACleanup")
}
@@ -149,10 +151,10 @@ WS2_Disconnect(WS2_Socket) {
MsgBox, 16, %A_ScriptName%: CloseSocket-Error, % __WSA_ErrMsg
}
+__WSA_ScriptInit() {
; WS2 ScriptInit - for internal use only
; Initializes neccessary variables for this Script.
-__WSA_ScriptInit()
-{
+
; CONTANTS
; We're working with version 2 of Winsock
@@ -178,10 +180,9 @@ __WSA_ScriptInit()
return 1
}
+__WSA_Startup(){
; WS2 Startup - for internal use only
; Initializes the Winsock 2 Adapter
-__WSA_Startup()
-{
Global WSAData, __WSA_ErrMsg, __WSA_WSVersion
; It's a good idea, to have a __WSA_ErrMsg Container, so any Error Msgs
@@ -207,10 +208,9 @@ __WSA_Startup()
Return 1
}
+__WSA_Socket(){
; WS2 Socket Descriptor - for internal use only
; Sets type and neccessary structures for a successfull connection
-__WSA_Socket()
-{
Global __WSA_ErrMsg, __WSA_SocketProtocol, __WSA_SocketType, __WSA_SocketAF
; Supposed to return a descriptor referencing the new socket
@@ -229,10 +229,9 @@ __WSA_Socket()
}
+__WSA_Connect(){
; WS2 Connection call - for internal use only
; Establishes a connection to a foreign IP at the specified port
-__WSA_Connect()
-{
Global __WSA_ErrMsg, __WSA_Port, __WSA_Socket, __WSA_InetAddr, __WSA_SocketAF
; Generate socketaddr structure for the connect()
@@ -258,16 +257,15 @@ __WSA_Connect()
Return 1
}
-
/*
This code based originally upon an example by DarviK
http://www.autohotkey.com/forum/topic8871.html
and on the modifcations by Tasman
http://www.autohotkey.com/forum/viewtopic.php?t=9937
*/
+
+__WSA_GetHostByName(url){
; Resolves canonical domainname to IP
-__WSA_GetHostByName(url)
-{
Global __WSA_ErrMsg
; gethostbyname returns information about a domainname into a Hostent Structure
; http://msdn.microsoft.com/en-us/library/ms738524(VS.85).aspx
@@ -289,13 +287,12 @@ __WSA_GetHostByName(url)
return result
}
+__WSA_GetLastError(txt=1){
; Return the last Error with a lil bit o' text if neccessary
; Note: the txt variable is set to 0 when checking for received content
;
; Changes contributed by Lexikos
; http://www.autohotkey.com/forum/viewtopic.php?p=285164#285164
-__WSA_GetLastError(txt=1)
-{
err := DllCall("Ws2_32\WSAGetLastError")
if txt {
VarSetCapacity(txt, 1024) ; "Limit" to 1024 chars.
@@ -306,7 +303,74 @@ __WSA_GetLastError(txt=1)
return err
}
+__WSA_ErrLookUp(sNumber) {
+; Lookup Winsock ErrCode - for internal use only
+; This list is form http://www.sockets.com
+WSA_ErrorList =
+(LTrim Join`n
+ 10004 - Interrupted system call
+ 10009 - Bad file number
+ 10013 - Permission denied
+ 10014 - Bad address
+ 10022 - Invalid argument
+ 10024 - Too many open files
+ 10035 - Operation would block
+ 10036 - Operation now in progress
+ 10037 - Operation already in progress
+ 10038 - Socket operation on non-socket
+ 10039 - D estination address required
+ 10040 - Message too long
+ 10041 - Protocol wrong type for socket
+ 10042 - Bad protocol option
+ 10043 - Protocol not supported
+ 10044 - Socket type not supported
+ 10045 - Operation not supported on socket
+ 10046 - Protocol family not supported
+ 10047 - Address family not supported by protocol family
+ 10048 - Address already in use
+ 10049 - Can't assign requested address
+ 10050 - Network is down
+ 10051 - Network is unreachable
+ 10052 - Net dropped connection or reset
+ 10053 - Software caused connection abort
+ 10054 - Connection reset by peer
+ 10055 - No buffer space available
+ 10056 - Socket is already connected
+ 10057 - Socket is not connected
+ 10058 - Can't send after socket shutdown
+ 10059 - Too many references, can't splice
+ 10060 - Connection timed out
+ 10061 - Connection refused
+ 10062 - Too many levels of symbolic links
+ 10063 - File name too long
+ 10064 - Host is down
+ 10065 - No Route to Host
+ 10066 - Directory not empty
+ 10067 - Too many processes
+ 10068 - Too many users
+ 10069 - Disc Quota Exceeded
+ 10070 - Stale NFS file handle
+ 10091 - Network SubSystem is unavailable
+ 10092 - WINSOCK DLL Version out of range
+ 10093 - Successful WSASTARTUP not yet performed
+ 10071 - Too many levels of remote in path
+ 11001 - Host not found
+ 11002 - Non-Authoritative Host not found
+ 11003 - Non-Recoverable errors: FORMERR, REFUSED, NOTIMP
+ 11004 - Valid name, no data record of requested type
+ 11004 - No address, look for MX record
+)
+ ExNr := 0, ExErr := "Sorry, but no definition available."
+ Loop,Parse,WSA_ErrorList,`n
+ {
+ RegExMatch(A_LoopField,"(?P\d+) - (?P.*)",Ex)
+ if (sNumber = ExNr)
+ break
+ }
+Return ExNr " means " ExErr "`n"
+}
+__WSA_AsyncSelect(__WSA_Socket, UDF, __WSA_NotificationMsg=0x5000,__WSA_DataReceiver="__WSA_recv"){
; WS2 AsyncSelect - for internal use only
; Sets up an Notification Handler for Receiving Messages
; Expected Parameters: Socket from Initialisation
@@ -315,9 +379,6 @@ __WSA_GetLastError(txt=1)
; wm_* processor function.
; default __WSA_ReceiveData
; Returns -1 on Error, 0 on success
-__WSA_AsyncSelect(__WSA_Socket, UDF, __WSA_NotificationMsg=0x5000
- ,__WSA_DataReceiver="__WSA_recv")
-{
Global
__WSA_UDF := UDF
@@ -338,13 +399,12 @@ __WSA_AsyncSelect(__WSA_Socket, UDF, __WSA_NotificationMsg=0x5000
Return Result
}
+__WSA_recv(wParam, lParam){
; WS2 Receive - for internal use only
; Triggers upon Notification Handler when Receiving Messages
;
; Changes contributed by Lexikos
; http://www.autohotkey.com/forum/viewtopic.php?p=285164#285164
-__WSA_recv(wParam, lParam)
-{
Global __WSA_UDF, __WSA_ErrMsg
; __WSA_UDF containes the name of the UserDefinedFunction to call when the event
; has been triggered and text may be processed (allthough the reveived text might
@@ -389,13 +449,12 @@ __WSA_recv(wParam, lParam)
return 1
}
+__WSA_send(__WSA_Socket, __WSA_Data, __WSA_DataLen){
; WSA Send - for internal use only
; Users are encouraged to use the WS2_SendData() Function
;
; Changes contributed by Lexikos
; http://www.autohotkey.com/forum/viewtopic.php?p=285164#285164
-__WSA_send(__WSA_Socket, __WSA_Data, __WSA_DataLen)
-{
Global __WSA_ErrMsg
Result := DllCall("Ws2_32\send"
@@ -408,10 +467,9 @@ __WSA_send(__WSA_Socket, __WSA_Data, __WSA_DataLen)
Return Result
}
+__WSA_CloseSocket(__WSA_Socket){
; Closes Open Socket - for internal use only
; Returns 0 on success
-__WSA_CloseSocket(__WSA_Socket)
-{
Global __WSA_ErrMsg
Result := DllCall("Ws2_32\closesocket"
@@ -422,10 +480,9 @@ __WSA_CloseSocket(__WSA_Socket)
Return result
}
+__WSA_GetThisScriptHandle(){
; GetThisScriptHandle - for internal use only
; Returns the handle of the executing script
-__WSA_GetThisScriptHandle()
-{
HiddenWindowsSave := A_DetectHiddenWindows
@@ -436,12 +493,11 @@ __WSA_GetThisScriptHandle()
Return ScriptMainWindowId
}
+__WinINet_InternetCrackURL(lpszUrl,arrayName="URL"){
; WinINet InternetCrackURL - for internal use only
; v 0.1 / (w) 25.07.2008 by derRaphael / zLib-Style release
; This routine was originally posted here:
; http://www.autohotkey.com/forum/viewtopic.php?p=209957#209957
-__WinINet_InternetCrackURL(lpszUrl,arrayName="URL")
-{
local hModule, offset_name_length
hModule := DllCall("LoadLibrary", "Str", "WinINet.Dll")
diff --git a/lib-i_to_z/WinVer.ahk b/lib-i_to_z/WinVer.ahk
new file mode 100644
index 00000000..22526172
--- /dev/null
+++ b/lib-i_to_z/WinVer.ahk
@@ -0,0 +1,11 @@
+; Return the current Window Version
+; [Used in FileExtensionToggle, HiddenFilesToggle.ahk, SnippingShortcut.ahk]
+
+
+WinVer()
+{
+ RegRead, Version, HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion, CurrentVersion
+ Return Version
+}
+
+; If Windows Vista/2008 or later (v 6.0)
\ No newline at end of file
diff --git a/lib-i_to_z/WindowShellEvent.ahk b/lib-i_to_z/WindowShellEvent.ahk
index d8020c79..3e81344e 100644
--- a/lib-i_to_z/WindowShellEvent.ahk
+++ b/lib-i_to_z/WindowShellEvent.ahk
@@ -1,4 +1,4 @@
-; http://msdn.microsoft.com/zh-tw/library/windows/desktop/ms644989(v=vs.85).aspx
+; http://msdn.microsoft.com/zh-tw/library/windows/desktop/ms644989(v=vs.85).aspx
; wParam = 4 or 32772 -> window activated
; wParam = 1 -> window created
; lParam = hwnd
diff --git a/lib-i_to_z/ZipFile.ahk b/lib-i_to_z/ZipFile.ahk
index c59d07af..4cfb78be 100644
--- a/lib-i_to_z/ZipFile.ahk
+++ b/lib-i_to_z/ZipFile.ahk
@@ -1,4 +1,4 @@
-
+
/* Class: ZipFile
* Wrapper for Windows shell ZIP function
* Version:
@@ -14,7 +14,7 @@
* GitHub - http://goo.gl/Ur0wg5
* Forum topic - http://goo.gl/rx6cNm
*/
-
+
class ZipFile
{
/* Constructor: __New
@@ -36,10 +36,10 @@ class ZipFile
static header ; magic number(empty ZIP file)
if !VarSetCapacity(header)
VarSetCapacity(header, 22, 0), NumPut(0x06054b50, header, 0, "UInt") ; 'PK' Chr(5) Chr(6)
-
+
if !fzip := FileOpen(this.Path, "w")
throw Exception("Failed to create ZIP file.", -1, this.Path)
-
+
fzip.RawWrite(header, 22), fzip := "" ; close
}
; Check if valid ZIP file ??
@@ -89,9 +89,9 @@ class ZipFile
FileMove %ZipPath%, % TmpFolder.Path
ZipPath := TmpFolder.Path . "\" . fso.GetFileName(ZipPath) ; update the ZIP path
}
-
+
dest := sApp.NameSpace(IsPack ? ZipPath : %AbsPath%(arg))
-
+
; Destination is not empty, this causes a problem when checking if the
; MoveHere/CopyHere routine has completed, so we create a temporary dump
; location, Pack() or Unpack() into it, then move the item(s) back to the
@@ -199,7 +199,7 @@ class ZipFile
}
else fso := ComObjCreate("Scripting.FileSystemObject")
try fso.MoveFile(this.Path . "\*", dest), fso.MoveFolder(this.Path . "\*", dest)
-
+
this.Folder.Delete(true) ; http://goo.gl/b5p7DT
}
}
diff --git a/lib-i_to_z/matrix.ahk b/lib-i_to_z/matrix.ahk
deleted file mode 100644
index 22f92a14..00000000
--- a/lib-i_to_z/matrix.ahk
+++ /dev/null
@@ -1,1003 +0,0 @@
-/**
-* AHK static Matrix calculations
-* by IsNull 2012
-*
-* Gauss/Pivot Strategies implemented by horst/Babba
-*/
-class MatrixStatic
-{
- /**
- * Calculates the determinant (scalar) of the given Matrix
- *
- * Implementation Note:
- * The given matrix will be reduced by laplace expansion
- * until the matrix dimension is (2,2). The determinant of
- * the 2,2 matrix is then directly calculated
- */
- Det(m){
-
- det := 0
-
- colCnt := MatrixStatic.ColumnCount(m)
- if(!MatrixStatic.IsSquare(m) || colCnt < 2)
- throw new Exception("The matrix must be squared and its dimensions must be greater or equal than (2,2)!")
-
- if(colCnt == 2){
- ; a 2,2 Matrix, we can calculate the determinant directly
- det := m[1,1] * m[2,2] - m[2,1] * m[1,2]
- }else{
- ; Laplace expansion
- ; @see: http://en.wikipedia.org/wiki/Laplace_expansion
-
- i := 1 ;row
- k := 1 ;col
- det := 0
- curVal := 0 ; current Value where [i,k] is pointing at
- Loop, % colCnt
- {
- k := A_index
-
- curVal := m[i,k]
-
- if(curVal != 0) ; we can skip coz multiplication by zero
- {
- laplace := MatrixStatic.ExtractLaplace(m, [i,k]) ; extract a sub matrix by laplace
- cofactor := curVal * (((-1)**(i+k)) * MatrixStatic.Det(laplace))
- det += cofactor
- }
- }
- }
-
- return det
- }
-
- /**
- * Extract the sub-matrix, by laplace expansion
- *
- * m - Matrix (n,n) source matrix
- * pnt - Point [row,col] coord origin of Laplace
- *
- * returns Laplace-Matrix of [pnt]
- *
- * @see: http://en.wikipedia.org/wiki/Laplace_expansion
- */
- ExtractLaplace(m, pnt){
- laplace := {}
-
- colCnt := MatrixStatic.ColumnCount(m)
- rowCnt := MatrixStatic.RowCount(m)
-
-
- pntRow := pnt[1]
- pntCol := pnt[2]
-
- laplaceRow := 1
- laplaceCol := 1
- bincRow := false
-
- irow := 1
- Loop, % colCnt
- {
- irow := a_index
- bincRow := false
- laplaceCol := 1
- Loop, % colCnt
- {
- icol := a_index
-
- if(pntCol != icol && pntRow != irow) ; // omit values in the range of the laplace origin
- {
- laplace[laplaceRow, laplaceCol] := m[irow, icol]
- laplaceCol++
- bincRow := true
- }
- }
- if(bincRow)
- laplaceRow++
- }
-
- return laplace
- }
-
-
-
- /**
- * Multiply each element in the matrix whith the given scalar
- */
- MultiplyScalar(A, n){
- add := {}
-
- isColVector := (MatrixStatic.RowCount(A) == 1)
-
- loop % MatrixStatic.RowCount(A)
- {
- rowi := a_index
- Loop, % MatrixStatic.ColumnCount(A)
- {
- if(isColVector)
- add[a_index] := A[A_Index] * n
- else
- add[rowi,a_index] := A[rowi,A_Index] * n
- }
- }
- return add
- }
-
- /**
- * Addition of A and B
- */
- Add(A, B){
- if(MatrixStatic.ColumnCount(A) != MatrixStatic.ColumnCount(B)
- || MatrixStatic.RowCount(A) != MatrixStatic.RowCount(B))
- {
- throw Exception("Matrix Addition Error: All dimensions must agree!")
- }
-
- add := {}
-
- isColVector := (MatrixStatic.RowCount(A) == 1)
-
- loop % MatrixStatic.RowCount(A)
- {
- rowi := a_index
- Loop, % MatrixStatic.ColumnCount(A)
- {
- if(isColVector)
- add[a_index] := A[A_Index] + B[A_Index]
- else
- add[rowi,a_index] := A[rowi,A_Index] + B[rowi,A_Index]
- }
- }
- return add
- }
-
- /**
- * Subtraction of B from A
- */
- Sub(A, B){
- if(MatrixStatic.ColumnCount(A) != MatrixStatic.ColumnCount(B)
- || MatrixStatic.RowCount(A) != MatrixStatic.RowCount(B))
- {
- throw Exception("Matrix Addition Error: All dimensions must agree!")
- }
-
- add := {}
-
- isColVector := (MatrixStatic.RowCount(A) == 1)
-
- loop % MatrixStatic.RowCount(A)
- {
- rowi := a_index
- Loop, % MatrixStatic.ColumnCount(A)
- {
- if(isColVector)
- add[a_index] := A[A_Index] - B[A_Index]
- else
- add[rowi,a_index] := A[rowi,A_Index] - B[rowi,A_Index]
- }
- }
- return add
- }
-
- /*
- * Inverts the given Matrix
- * so that: A * inv(A) = I
- */
- Inverse(A){
- if(!MatrixStatic.IsSquare(A))
- throw Exception("Only square matrices have an inverse! Your given matrix is not square.")
-
- size := MatrixStatic.ColumnCount(A)
- identity := MatrixStatic.Eye(size)
-
- inverse := MatrixStatic.Gauss(A, identity)
- return inverse
- }
-
-
- /*
- * Multiplies Matrix A with B.
- *
- * Note that A*B != B*A
- */
- Multiply(A, B){
- mul := {}
- if(MatrixStatic.ColumnCount(A) != MatrixStatic.RowCount(B))
- {
- throw Exception("Matrix Multiplication Error: Inner dimensions must agree!")
- }
-
- Loop, % MatrixStatic.RowCount(A)
- {
- rowi := A_index
- Loop, % MatrixStatic.ColumnCount(B)
- {
- aRow := MatrixStatic.RangeRow(A, rowi)
- bCol := MatrixStatic.RangeCol(B, A_index)
- bColT := MatrixStatic.Transpose(bCol)
-
- mul[rowi,A_index] := MatrixStatic.dotP(aRow,bColT)
- }
- }
- return mul
- }
-
- /*
- * Dot-Product (scalar product)
- */
- dotP(v1,v2){
- dotp := 0
- Loop, % v1.MaxIndex()
- dotp += v1[A_index] * v2[A_index]
- return dotp
- }
-
- /**
- * Returns the Column-Vector at the given index
- */
- RangeCol(m, colIndex){
- col := {}
-
- Loop, % MatrixStatic.RowCount(m)
- {
- rowi := A_index
- col[rowi,1] := m[rowi,colIndex]
- }
-
- return col
- }
-
- /*
- * Returns the Row-Vector at the given index
- */
- RangeRow(m, rowIndex){
- return MatrixStatic.Clone(m[rowIndex])
- }
-
- /*
- * Returns a transposed Matrix of the given
- */
- Transpose(m){
- mt := {} ; transposed matrix
- i := 0
- for each, row in m
- {
- i := A_index
-
- if(MatrixStatic.ColumnCount(m) == 1){
- mt[i] := row[1]
- }else{
- if(IsObject(row))
- {
- for each, item in row
- mt[A_index,i] := item
- }else{
- mt[i,1] := row
- }
- }
- }
- return mt
- }
-
- IsSquare(m){
- return IsObject(m) && MatrixStatic.ColumnCount(m) == MatrixStatic.RowCount(m)
- }
-
- /**
- * Returns the count of columns in the given Matrix
- */
- ColumnCount(m){
- return IsObject(m[1]) ? m[1].MaxIndex() : m.MaxIndex()
- }
-
- /**
- * Returns the count of rows in the given Matrix
- */
- RowCount(m){
- return IsObject(m[1]) ? m.MaxIndex() : 1
- }
-
- /**
- * Clones the given Matrix
- */
- Clone(m){
- mc := {}
- for each, row in m
- {
- if(IsObject(row))
- {
- rIndex := A_index
- for each, item in row
- mc[rIndex,A_index] := item
- }else
- mc[A_index] := row
- }
- return mc
- }
-
- /*
- * Generates an quadratic identity matrix with a size of [n]
- */
- Eye(n){
- eye := {}
- loop, % n
- {
- ri := A_Index
- loop, % n
- eye[ri,A_index] := (ri == a_index) ? 1 : 0
- }
-
- return eye
- }
-
- Zeros(n){
- return this.Fill(n, 0)
- }
-
- /*
- * Generates an quadratic matrix with a size of [n]
- * and each element set to [fillNum]
- */
- Fill(n, fillNum){
- filled := {}
- loop, % n
- {
- ri := A_Index
- loop, % n
- filled[ri,A_index] := fillNum
- }
-
- return filled
- }
-
- /**
- * Checks if the given two matrices are equal
- */
- Equals(m,m2){
- equal := false
-
- mRowCnt := MatrixStatic.RowCount(m)
- mColCnt := MatrixStatic.ColumnCount(m)
-
- if(mRowCnt == MatrixStatic.RowCount(m2)
- && mColCnt == MatrixStatic.ColumnCount(m2)){
-
- equal := true
- isColVector := (mRowCnt == 1)
-
-
- loop % mRowCnt
- {
- rowi := a_index
- Loop, % mColCnt
- {
- if(isColVector)
- {
- MsgBox "it is" %rowi% %A_Index%
- if(m[A_Index] != m2[A_Index])
- {
- equal := false
- break, 2 ; break the outer loop
- }
- }else{
- if(m[rowi,A_Index] != m2[rowi,A_Index])
- {
- equal := false
- break, 2 ; break the outer loop
- }
- }
- }
- }
- }
- return equal
- }
-
- /*
- * Returns a console/msgbox friendly string. Useful for debugging
- */
- ToString(m, colDel=" ", rowDel="`n"){
-
- if(!IsObject(m))
- {
- ;~ prnt := "No Matrix!"
- }else{
- ;~ prnt := "(" MatrixStatic.RowCount(m) "," MatrixStatic.ColumnCount(m) ") Matrix:`n---------`n"
-
- if(MatrixStatic.RowCount(m) != 1)
- {
- for each, row in m
- {
- for each, item in row
- prnt .= item colDel
- if each
- prnt:=substr(prnt,1,(-1)*strlen(colDel))
- prnt .= rowDel
- }
- if each
- prnt:=substr(prnt,1,(-1)*strlen(rowDel))
-
- }else{
- for each, val in m
- prnt .= val colDel
- if each
- prnt:=substr(prnt,1,(-1)*strlen(colDel))
-
- ;~ prnt .= rowDel
- }
- ;~ prnt .= "---------"
- }
-
- return prnt
- }
-
- /**
- * Gets the mirror matrix for the straight line mirror y;
- * y := m*x + b
- *
- *
- * if b is NOT zero, you must move the vertices first with v = (0,-b)
- * 1. move vertices along v = (0,-b) | --> move the mirror axis to the origin
- * 2. mirror with the matrix returned by this function |---> newVertex = M * vertex
- * 3. move vertices back along -v = (0,b) | --> move the vertices back
- */
- Mirror2D(m){
- angle := this.Mirror2DByAngle(ATan(m))
- }
-
- /**
- * Gets the mirror matrix for the straight line intersection the origin (0,0)
- * angle = angle to x axis, in radians
- */
- Mirror2DByAngle(angle){
- angle *= 2
- c := cos(angle)
- s := sin(angle)
-
- M := [[c, s]
- ,[s,-c]]
-
- return M
- }
-
- Rotate2D(angle){
- c := cos(angle)
- s := sin(angle)
-
- R := [[c,-s]
- ,[s, c]]
-
- return R
- }
-
- Rotate3DZ(angle){
- c := cos(angle)
- s := sin(angle)
-
- R := [[c,-s, 0]
- ,[s, c, 0]
- ,[0, 0, 1]]
-
- return R
- }
-
- Rotate3DY(angle){
- c := cos(angle)
- s := sin(angle)
-
- R := [[ c, 0, s]
- ,[ 0, 1, 0]
- ,[-s, 0, c]]
-
- return R
- }
-
- Rotate3DX(angle){
- c := cos(angle)
- s := sin(angle)
-
- R := [[ 1, 0, 0]
- ,[ 0, c,-s]
- ,[ 0, s, c]]
-
- return R
- }
-
- Mirror3D(axis){
-
- m1 := (axis == 1 || axis = "x") ? -1 : 1
- m2 := (axis == 2 || axis = "y") ? -1 : 1
- m3 := (axis == 3 || axis = "z") ? -1 : 1
-
- M := [[ m1, 0, 0]
- ,[ 0, m2, 0]
- ,[ 0, 0, m3]]
-
- return M
- }
-
-
-
-
- /*
- * Given a matrix a and an (optional) index pair i,
- * MatrixStatic.Pivot returns an index pair of a pivot located below and to the right of i if it finds some.
- *
- */
- Pivot(a, i="")
- {
- colnum:=a[1].maxindex()
- rownum:=a.maxindex()
-
- if(i == "")
- i1 := i2 := 1
- else
- {
- i1 := i[1] + 1
- i2 := i[2] + 1
- }
-
- p2 := i2
- while (p2 <= colnum)
- {
- p1 := i1
- x := abs(a[i1,p2])
-
- while (i1 + a_index <= rownum){
- y := abs(a[i1+a_index, p2])
- if(y > x)
- {
- x := y
- p1 := i1+a_index
- }
- }
- if(x)
- return [p1,p2]
- else
- p2++
- }
- }
-
-
- ;=========================================================================
-
-
- /***************************************
- *
- * Given matrices a and (optional) b (b is allowed to be a vector), mat_rowechtrafo reduces a to row echelon form.
- * On b the same (only a-dependent) operations take place.
- ****************************************
- */
- ToRowEchelonForm(aorig, b=""){
-
- a := MatrixStatic.Clone(aorig)
-
- rownum := a.maxindex()
- colnum := a[1].maxindex()
-
-
- b_is_2d := IsObject(b[1])
-
- if (b_is_2d)
- colnum_b := b[1].maxindex()
-
- k := 1
- while(k < rownum){
- pivot := MatrixStatic.Pivot(a, pivot)
- p1 := pivot[1]
- p2 := pivot[2]
-
- if (!pivot)
- break
-
- if (p1 != k){
- swap := a[k]
- a[k] := a[p1]
- a[p1] := swap
- swap := b[k]
- b[k] := b[p1]
- b[p1] := swap
-
- pivot[1] := p1 := k
- }
-
- l1 := p1 + 1
- while(l1 <= rownum){
- l2 := p2 + 1
- fact := a[l1,p2] / a[p1,p2]
-
-
- while(l2 <= colnum){
- a[l1,l2] -= fact * a[p1,l2]
- l2 += 1
- }
- a[l1,p2] := 0
-
- if (b_is_2d)
- while (a_index <= colnum_b)
- b[l1,a_index] -= fact * b[p1,a_index]
- else
- b[l1] -= fact * b[p1]
- l1++
- }
- k++
- }
- return a
- }
-
-
- ;=========================================================================
-
- /**
- * Given a matrix a in row echelon form and a vector b (b is allowed to be a matrix), mat_RowEchSol returns a solution if it finds one.
- * In case b is matrix, mat_RowEchSol interprets the columns of b to be vectors and searches solutions to those vectors. If a solution to the ith column is found, it is inserted in the output array as ith column. Otherwise the output array lacks the ith column.
- */
- RowEchelonSolve(a, b, pivot_row2col=""){
-
- rownum := a.maxindex()
- colnum := a[1].maxindex()
-
- if (!pivot_row2col){
- pivot_row2col := {}
- while (pivot := MatrixStatic.Pivot(a,pivot))
- pivot_row2col[pivot[1]] := pivot[2]
- }
-
- rnk := pivot_row2col.maxindex()
- if (rnk="")
- rnk := 0
-
-
- if (!IsObject(b[1])){
- j1 := rownum
- while(j1 >= 1){
- if (b[j1] != 0)
- {
- if (j1 <= rnk)
- break
- else
- return
- }
- j1--
- }
-
- sol_vec:={}
- loop, % colnum
- sol_vec[a_index] := 0
-
- while (rnk>=1)
- {
- sol_vec[pivot_row2col[rnk]] := b[rnk] / a[rnk,pivot_row2col[rnk]]
- while (a_index= 1){
- if (b[j1,j2] != 0){
- if (j1 <= rnk){
- valid_ix[some_index] := j2
- some_index += 1
- }
- break
- }
- j1--
- }
- }
-
- rnk_BkUp := rnk
- sol_vec := {}
-
- for count,i2 in valid_ix
- {
- loop, % colnum
- sol_vec[a_index,i2] := 0
-
- rnk := rnk_BkUP
- while(rnk >= 1){
- sol_vec[pivot_row2col[rnk],i2] := b[rnk,i2] / a[rnk,pivot_row2col[rnk]]
- while(a_index < rnk)
- b[a_index,i2] -= a[a_index,pivot_row2col[rnk]] * sol_vec[pivot_row2col[rnk],i2]
- rnk--
- }
- }
- }
- return sol_vec
- }
-
-
- /**
- * Gauss solve the System Ax = B.
- * The System A is first transformed into row echolon form (gaussian elimination)
- * Afterwards, the System is solved by substitiution.
- *
- * returns x, the solution of Ax = B
- */
- Gauss(A, B)
- {
- workerB := this.Clone(B)
- rowechelon := MatrixStatic.ToRowEchelonForm(A, workerB)
- return MatrixStatic.RowEchelonSolve(rowechelon, workerB)
- }
-
-}
-
-/**
-* AHK Matrix class
-*
-*/
-class Matrix extends MatrixStatic
-{
- __new(m)
- {
- this.Prototype(m)
- }
-
- /**
- * Calculates the determinant (scalar) of the given Matrix
- *
- * Implementation Note:
- * The given matrix will be reduced by laplace expansion
- * until the matrix dimension is (2,2). The determinant of
- * the 2,2 matrix is then directly calculated
- */
- Det(m=0){
- if (this != Matrix)
- m := this
- return base.Det(m)
- }
-
-
-
- /**
- * Multiply each element in this matrix whith the given scalar [n] and returns the new matrix
- */
- MultiplyScalar(m, n=0){
-
- if (this != Matrix)
- {
- n := m
- m := this
- }
-
- return new Matrix(base.MultiplyScalar(m, n))
- }
-
- /**
- * Add the given matrix to this one and return the new matrix
- */
- Add(m, B=0){
-
- if (this != Matrix)
- {
- B := m
- m := this
- }
-
- return new Matrix(base.Add(m, B))
- }
-
- /**
- * Subtract B from this matrix and returns the new matrix
- */
- Sub(B){
-
- if (this != Matrix)
- {
- B := m
- m := this
- }
-
- return new Matrix(base.Sub(m, B))
- }
-
- /*
- * Returns the Inverse of this Matrix
- * so that: A * inv(A) = I
- */
- Inverse(A=0){
- if (this != Matrix)
- A := this
- return new Matrix(base.Inverse(A))
- }
-
-
- /*
- * Multiplies this Matrix with B from right and returns the new matrix
- *
- */
- MultiplyRight(B){
- return new Matrix(base.Multiply(this, B))
- }
-
- /*
- * Multiplies this Matrix with B from left and returns the new matrix
- *
- */
- MultiplyLeft(B){
- return new Matrix(base.Multiply(B, this))
- }
-
-
- /**
- * Returns the Column-Vector at the given index
- */
- RangeCol(m, colIndex=0){
-
- if (this != Matrix)
- {
- colIndex := m
- m := this
- }
-
- return new Matrix(base.RangeCol(m, colIndex))
- }
-
- /*
- * Returns the Row-Vector at the given index
- */
- RangeRow(m,rowIndex=0){
-
- if (this != Matrix)
- {
- rowIndex := m
- m := this
- }
-
- return new Matrix(base.RangeRow(m, rowIndex))
- }
-
- /*
- * Returns a transposed Matrix of this matrix
- */
- Transpose(m=0){
- if (this != Matrix)
- m := this
- return new Matrix(base.Transpose(m))
- }
-
- IsSquare(m=0){
- if (this != Matrix)
- m := this
- return base.IsSquare(m)
- }
-
- /**
- * Returns the count of columns in the given Matrix
- */
- ColumnCount(m=0){
- if (this != Matrix)
- m := this
- return base.ColumnCount(m)
- }
-
- /**
- * Returns the count of rows in the given Matrix
- */
- RowCount(m=0){
- if (this != Matrix)
- m := this
- return base.RowCount(m)
- }
-
- /**
- * Clones the given Matrix
- */
- Clone(m=0){
- if (this != Matrix)
- m := this
- return new Matrix(m)
- }
-
- Prototype(m){
- for each, row in m
- {
- if(IsObject(row))
- {
- rIndex := A_index
- for each, item in row
- this[rIndex,A_index] := item
- }else
- this[A_index] := row
- }
- return mc
- }
-
-
- Equals(m,m2=0){
- if (this != Matrix)
- {
- m2 := m
- m := this
- }
- return base.Equals(m,m2)
- }
-
- /*
- * Returns a console/msgbox friendly string. Useful for debugging
- */
- ToString(m=0, colDel=" ", rowDel="`n"){
- if (this != Matrix)
- m := this
- return base.ToString(m, colDel, rowDel)
- }
-
- /*
- * Generates an quadratic identity matrix with a size of [n]
- */
- Eye(n){
- return new Matrix(base.Eye(n))
- }
-
- Zeros(n){
- return new Matrix(base.Zeros(n))
- }
-
- /*
- * Generates an quadratic matrix with a size of [n]
- * and each element set to [fillNum]
- */
- Fill(n, fillNum){
- return new Matrix(base.Fill(n, fillNum))
- }
-
-
- Mirror2D(m){
- return new Matrix(base.Mirror2D(m))
- }
-
- /**
- * Gets the mirror matrix for the straight line intersection the origin (0,0)
- * angle = angle to x axis, in radians
- */
- Mirror2DByAngle(angle){
- return new Matrix(base.Mirror2DByAngle(angle))
- }
-
- Rotate2D(angle){
- return new Matrix(base.Rotate2D(angle))
- }
-
- Rotate3DZ(angle){
- return new Matrix(base.Rotate3DZ(angle))
- }
-
- Rotate3DY(angle){
- return new Matrix(base.Rotate3DY(angle))
- }
-
- Rotate3DX(angle){
- return new Matrix(base.Rotate3DX(angle))
- }
-
- Mirror3D(axis){
- return new Matrix(base.Mirror3D(axis))
- }
-
- Gauss(A, B=""){
- if(B="")
- {
- B := A
- A := this
- }
- return new Matrix(base.Gauss(A,B))
- }
-
- ToRowEchelonForm(a, b=""){
- if (this != Matrix)
- {
- b := a
- a := this
- }
- return base.ToRowEchelonForm(a, b)
- }
-}
\ No newline at end of file
diff --git a/lib-i_to_z/processes.ahk b/lib-i_to_z/processes.ahk
new file mode 100644
index 00000000..b43dca35
--- /dev/null
+++ b/lib-i_to_z/processes.ahk
@@ -0,0 +1,206 @@
+;-----------------------------------------------------------------------------
+; assoc_query_app(p_ext)
+;
+; Returns the associated application fullpath for the given file extension
+;
+; Example:
+; app_name := assoc_query_app("txt")
+; Msgbox % app_name ; returns C:\WINDOWS\system32\NOTEPAD.EXE
+;-----------------------------------------------------------------------------
+assoc_query_app(p_ext){
+ ext_name := "." p_ext ;ASSOCSTR_EXECUTABLE
+ DllCall("shlwapi.dll\AssocQueryStringW", "uint", 0, "uint", 2, "uint", &ext_name, "uint", 0, "uint", 0, "uint*", iLength)
+ VarSetCapacity(app_name, iLength * 2, 0)
+ DllCall("shlwapi.dll\AssocQueryStringW", "uint", 0, "uint", 2, "uint", &ext_name, "uint", 0, "str", app_name, "uint*", iLength)
+ Return app_name
+}
+/*
+ find_process(p_exe_name:="", p_exe_param:="", p_exclude_string:="")
+
+ Parameters:
+ p_exe_name - Finds string anywhere in executable name (path not included).
+ p_exe_param - Finds string anywhere in process' commandline (parameters).
+ p_exclude_string - Comma delimited list of excluded executables. Looks for
+ each string in the list anywhere in the executable name.
+
+ Notes: p_exclude_string will take precedence over the other 2 parameters.
+ All searches are case insensitive.
+
+ Returns:
+ array - field 1 - integer - total found
+ - field 2 - string - listing of process details
+ Examples:
+ ; find all running processes
+ found := find_process()
+
+ ; find all processes that have "hotkey" in their executable's name (ie autohotkey.exe)
+ found := find_process("hotkey")
+
+ ; find all processes that have "myscript" in their runtime command line
+ found := find_process(, "myscript")
+
+ ; find all processes that have "hot" in their name and "myscript" in their runtime command line
+ found := find_process("hot", "myscript")
+
+ ; find all processes that don't have "chrome" or "svchost"
+ found := find_process(,,"chrome, svchost")
+
+ ; find all processes that have "host" in their executable's name but
+ ; don't have "chrome" or "svchost" in their executable's name.
+ ; (ie: sihost.exe, tashostw.exe... will be returned but not svchost.exe)
+ found := find_process("host",,"chrome, svchost")
+
+ if found[1]
+ OutputDebug, % found[2]
+ else
+ MsgBox, 48,, % "Nothing Found.", 5
+*/
+;----------------------------------------------------------------------
+find_process(p_exe_name:="", p_exe_param:="", p_exclude_string:=""){
+ exe_name := trim(p_exe_name)
+ exe_param := trim(p_exe_param)
+ exclude_list := StrSplit(p_exclude_string, ",", A_Space)
+
+ results := get_process_list()
+ write_string := ""
+ total := 0
+ For index, proc_field in results
+ {
+
+ display := False
+ if exe_name and not exe_param
+ display := instr(proc_field[1], exe_name)
+ else if not exe_name and exe_param
+ display := instr(proc_field[2], exe_param)
+ else if exe_name and exe_param
+ display := instr(proc_field[1], exe_name) and instr(proc_field[2], exe_param)
+ else
+ display := True
+
+ for i, j in exclude_list
+ {
+ if instr(proc_field[1], j)
+ {
+ display := False
+ break
+ }
+ }
+
+ if display
+ {
+ total++
+ write_string .= "`r`n"
+ write_string .= " proc_id: " proc_field[4] "`n"
+ write_string .= "exe_path: " proc_field[3] "`n"
+ write_string .= "exe_name: " proc_field[1] "`n"
+ write_string .= "cmd_line: " proc_field[2] "`n"
+ }
+ }
+ returncode := [total, write_string]
+ Return %returncode%
+}
+
+get_process_list(){
+ results := []
+ process_list := ComObjGet( "winmgmts:" ).ExecQuery("Select * from Win32_Process")
+ For item in process_list
+ {
+ parameters := StrReplace(item.Commandline, item.ExecutablePath)
+ parameters := StrReplace(parameters, """", "")
+ parameters := trim(parameters)
+ results.push([item.Name
+ , parameters
+ , item.ExecutablePath
+ , item.ProcessId])
+ }
+ Return results
+}
+;------------------------------------------------------
+;
+; Starts DBGp's debugger if it isn't already running
+; Returns True if started. False if not started
+;
+;------------------------------------------------------
+start_dbgp(){
+ WinGetTitle, win_title, A
+ undocked_DBGp_win_title := "DBGp ahk_class #32770 ahk_exe notepad++.exe"
+
+ undocked := WinExist(undocked_DBGp_win_title)
+ ControlGet, is_visible, Visible,,TNppDockingForm11, %win_title%
+ if not undocked and not is_visible
+ {
+ WinMenuSelectItem, %win_title%,, Plugins, DBGp, Debugger
+ Sleep 10
+ }
+
+ ; repostions breakpoints panel
+ RunWait, C:\Users\Mark\Desktop\Misc\AutoHotkey Scripts\MyScripts\NPP\Misc\DBGp Reposition Breakponts Panel.ahk
+
+ undocked := WinExist(undocked_DBGp_win_title)
+ ControlGet, is_visible, Visible,,TNppDockingForm11, %win_title%
+ Return (undocked or is_visible)
+}
+;------------------------------------------------------
+;
+; Retrieves a list of running processes via COM.
+;
+;------------------------------------------------------
+get_running_processes1(){
+ Gui, Add, ListView, x2 y0 w400 h500, Process Name|Command Line
+ for process in ComObjGet("winmgmts:").ExecQuery("Select * from Win32_Process")
+ LV_Add("", process.Name, process.CommandLine)
+ Gui, Show,, Process List
+Return
+}
+;------------------------------------------------------
+;
+; Retrieves a list of running processes via DllCall.
+;
+;------------------------------------------------------
+get_running_processes2(){
+ ; Example #4: Retrieves a list of running processes via DllCall then shows them in a MsgBox.
+
+ d := " | " ; string separator
+ s := 4096 ; size of buffers and arrays (4 KB)
+
+ Process, Exist ; sets ErrorLevel to the PID of this running script
+ ; Get the handle of this script with PROCESS_QUERY_INFORMATION (0x0400)
+ h := DllCall("OpenProcess", "UInt", 0x0400, "Int", false, "UInt", ErrorLevel, "Ptr")
+ ; Open an adjustable access token with this process (TOKEN_ADJUST_PRIVILEGES = 32)
+ DllCall("Advapi32.dll\OpenProcessToken", "Ptr", h, "UInt", 32, "PtrP", t)
+ VarSetCapacity(ti, 16, 0) ; structure of privileges
+ NumPut(1, ti, 0, "UInt") ; one entry in the privileges array...
+ ; Retrieves the locally unique identifier of the debug privilege:
+ DllCall("Advapi32.dll\LookupPrivilegeValue", "Ptr", 0, "Str", "SeDebugPrivilege", "Int64P", luid)
+ NumPut(luid, ti, 4, "Int64")
+ NumPut(2, ti, 12, "UInt") ; enable this privilege: SE_PRIVILEGE_ENABLED = 2
+ ; Update the privileges of this process with the new access token:
+ r := DllCall("Advapi32.dll\AdjustTokenPrivileges", "Ptr", t, "Int", false, "Ptr", &ti, "UInt", 0, "Ptr", 0, "Ptr", 0)
+ DllCall("CloseHandle", "Ptr", t) ; close this access token handle to save memory
+ DllCall("CloseHandle", "Ptr", h) ; close this process handle to save memory
+
+ hModule := DllCall("LoadLibrary", "Str", "Psapi.dll") ; increase performance by preloading the library
+ s := VarSetCapacity(a, s) ; an array that receives the list of process identifiers:
+ c := 0 ; counter for process idendifiers
+ DllCall("Psapi.dll\EnumProcesses", "Ptr", &a, "UInt", s, "UIntP", r)
+ Loop, % r // 4 ; parse array for identifiers as DWORDs (32 bits):
+ {
+ id := NumGet(a, A_Index * 4, "UInt")
+ ; Open process with: PROCESS_VM_READ (0x0010) | PROCESS_QUERY_INFORMATION (0x0400)
+ h := DllCall("OpenProcess", "UInt", 0x0010 | 0x0400, "Int", false, "UInt", id, "Ptr")
+ if !h
+ continue
+ VarSetCapacity(n, s, 0) ; a buffer that receives the base name of the module:
+ e := DllCall("Psapi.dll\GetModuleBaseName", "Ptr", h, "Ptr", 0, "Str", n, "UInt", A_IsUnicode ? s//2 : s)
+ if !e ; fall-back method for 64-bit processes when in 32-bit mode:
+ if e := DllCall("Psapi.dll\GetProcessImageFileName", "Ptr", h, "Str", n, "UInt", A_IsUnicode ? s//2 : s)
+ SplitPath n, n
+ DllCall("CloseHandle", "Ptr", h) ; close process handle to save memory
+ if (n && e) ; if image is not null add to list:
+ l .= n . d, c++
+ }
+ DllCall("FreeLibrary", "Ptr", hModule) ; unload the library to free memory
+ ; Sort, l, C ; uncomment this line to sort the list alphabetically
+ ; MsgBox, 0, %c% Processes, %l%
+ Return, %l%
+}
\ No newline at end of file
diff --git a/lib-i_to_z/translate.ahk b/lib-i_to_z/translate.ahk
new file mode 100644
index 00000000..1fb15f06
--- /dev/null
+++ b/lib-i_to_z/translate.ahk
@@ -0,0 +1,137 @@
+GoogleTranslate(str, from := "auto", to := 0) {
+ ret := Array(str, "Unknown Error", "")
+ static JS := GetJScripObject(), _ := JS.( GetJScript() ) := JS.("delete ActiveXObject; delete GetObject;")
+ if(!to){
+ to := GetISOLanguageCode() ; Assign the system (OS) language to "to"
+ }
+
+ if(from = to) {
+ ret.InsertAt(2, "Target language matches source language")
+ Return ret
+ }
+
+ request := SendRequest(JS, str, from, to, proxy := "")
+ response := request[1]
+ url := request[2]
+ json := response.responsetext
+ if(!json) {
+ ret.InsertAt(2, response.status . ": " . response.statustext)
+ ret.InsertAt(3, url)
+ Return ret ; Return the original, untranslated string
+ }
+ if(InStr(json, "document.getElementById('captcha-form')")){
+ ret.InsertAt(2, "Spam detected")
+ ret.InsertAt(3, url)
+ Return ret
+ }
+ oJSON := JS.("(" . json . ")")
+ trans:=""
+ if !IsObject(oJSON[1]) {
+ Loop % oJSON[0].length
+ trans .= oJSON[0][A_Index - 1][0]
+ }
+ else {
+ MainTransText := oJSON[0][0][0]
+ trans:=""
+ Loop % oJSON[1].length {
+ trans .= "`n+"
+ obj := oJSON[1][A_Index-1][1]
+ Loop % obj.length {
+ txt := obj[A_Index - 1]
+ trans .= (MainTransText = txt ? "" : "`n" txt)
+ }
+ }
+ }
+ if(!IsObject(oJSON[1])){
+ MainTransText := trans := Trim(trans, ",+`n ")
+ } else {
+ trans := MainTransText . "`n+`n" . Trim(trans, ",+`n ")
+ }
+ ; from := oJSON[2]
+ trans := Trim(trans, ",+`n ")
+
+ ret.InsertAt(1, trans)
+ ret.InsertAt(2, "Success")
+ ret.InsertAt(3, url)
+ Return ret
+}
+
+SendRequest(JS, str, from_lang, to_lang, proxy) {
+ url := "https translate.google.com /translate_a/single?client=webapp" Broken Link for safety
+ . "&sl=" . from_lang . "&tl=" . to_lang . "&hl=" . to_lang . "&tk=" . JS.("tk").(str) . "&q=" . URIEncode(str)
+ . "&dt=at&dt=bd&dt=ex&dt=ld&dt=md&dt=qca&dt=rw&dt=rm&dt=ss&dt=t&dt=gt&ie=UTF-8&oe=UTF-8&otf=1&ssel=0&tsel=0&kc=1"
+ ComObjError(false)
+ http := ComObjCreate("WinHttp.WinHttpRequest.5.1")
+ ; http.SetProxy(2, proxy)
+ http.open( "GET", url, 1 )
+ ; http.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded;charset=utf-8")
+ http.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:69.0) Gecko/20100101 Firefox/69.0")
+ http.SetRequestHeader("Host", "translate.google.com")
+ http.SetRequestHeader("Referer", "https translate.google.com /") Broken Link for safety
+ http.send() ; "q=" . URIEncode(str))
+ http.WaitForResponse(-1)
+ Return Array(http,url)
+}
+
+URIEncode(str, encoding := "UTF-8") {
+ VarSetCapacity(var, StrPut(str, encoding))
+ StrPut(str, &var, encoding)
+ urlstr:=""
+ While code := NumGet(Var, A_Index - 1, "UChar") {
+ bool := (code > 0x7F || code < 0x30 || code = 0x3D)
+ UrlStr .= bool ? "%" . Format("{:02X}", code) : Chr(code)
+ }
+ Return UrlStr
+}
+
+GetJScript() {
+ script =
+ (
+ var TKK = ((function() {
+ var a = 561666268;
+ var b = 1526272306;
+ return 406398 + '.' + (a + b);
+ })());
+ function b(a, b) {
+ for (var d = 0; d < b.length - 2; d += 3) {
+ var c = b.charAt(d + 2),
+ c = "a" <= c ? c.charCodeAt(0) - 87 : Number(c),
+ c = "+" == b.charAt(d + 1) ? a >>> c : a << c;
+ a = "+" == b.charAt(d) ? a + c & 4294967295 : a ^ c
+ }
+ return a
+ }
+ function tk(a) {
+ for (var e = TKK.split("."), h = Number(e[0]) || 0, g = [], d = 0, f = 0; f < a.length; f++) {
+ var c = a.charCodeAt(f);
+ 128 > c ? g[d++] = c : (2048 > c ? g[d++] = c >> 6 | 192 : (55296 == (c & 64512) && f + 1 < a.length && 56320 == (a.charCodeAt(f + 1) & 64512) ?
+ (c = 65536 + ((c & 1023) << 10) + (a.charCodeAt(++f) & 1023), g[d++] = c >> 18 | 240,
+ g[d++] = c >> 12 & 63 | 128) : g[d++] = c >> 12 | 224, g[d++] = c >> 6 & 63 | 128), g[d++] = c & 63 | 128)
+ }
+ a = h;
+ for (d = 0; d < g.length; d++) a += g[d], a = b(a, "+-a^+6");
+ a = b(a, "+-3^+b+-f");
+ a ^= Number(e[1]) || 0;
+ 0 > a && (a = (a & 2147483647) + 2147483648);
+ a `%= 1E6;
+ return a.toString() + "." + (a ^ h)
+ }
+ )
+ Return script
+}
+
+GetJScripObject() {
+ static doc
+ doc := ComObjCreate("htmlfile")
+ doc.write("")
+ Return ObjBindMethod(doc.parentWindow, "eval")
+}
+
+GetISOLanguageCode(lang := 0) {
+ LanguageCodeArray := { 0436: "af", 041c: "sq", 0401: "ar", 0801: "ar", 0c01: "ar", 1001: "ar", 1401: "ar", 1801: "ar", 1c01: "ar", 2001: "ar", 2401: "ar", 2801: "ar", 2c01: "ar", 3001: "ar", 3401: "ar", 3801: "ar", 3c01: "ar", 042c: "az", 082c: "az", 042d: "eu", 0423: "be", 0402: "bg", 0403: "ca", 0404: "zh-CN", 0804: "zh-CN", 0c04: "zh-CN", 1004: "zh-CN", 1404: "zh-CN", 041a: "hr", 0405: "cs", 0406: "da", 0413: "nl", 0813: "nl", 0409: "en", 0809: "en", 0c09: "en", 1009: "en", 1409: "en", 1809: "en", 1c09: "en", 2009: "en", 2409: "en", 2809: "en", 2c09: "en", 3009: "en", 3409: "en", 0425: "et", 040b: "fi", 040c: "fr", 080c: "fr", 0c0c: "fr", 100c: "fr", 140c: "fr", 180c: "fr", 0437: "ka", 0407: "de", 0807: "de", 0c07: "de", 1007: "de", 1407: "de", 0408: "el", 040d: "iw", 0439: "hi", 040e: "hu", 040f: "is", 0421: "id", 0410: "it", 0810: "it", 0411: "ja", 0412: "ko", 0426: "lv", 0427: "lt", 042f: "mk", 043e: "ms", 083e: "ms", 0414: "no", 0814: "no", 0415: "pl", 0416: "pt", 0816: "pt", 0418: "ro", 0419: "ru", 081a: "sr", 0c1a: "sr", 041b: "sk", 0424: "sl", 040a: "es", 080a: "es", 0c0a: "es", 100a: "es", 140a: "es", 180a: "es", 1c0a: "es", 200a: "es", 240a: "es", 280a: "es", 2c0a: "es", 300a: "es", 340a: "es", 380a: "es", 3c0a: "es", 400a: "es", 440a: "es", 480a: "es", 4c0a: "es", 500a: "es", 0441: "sw", 041d: "sv", 081d: "sv", 0449: "ta", 041e: "th", 041f: "tr", 0422: "uk", 0420: "ur", 042a: "vi" }
+ if(lang) {
+ return LanguageCodeArray[lang]
+ } else {
+ return LanguageCodeArray[A_Language]
+ }
+}
\ No newline at end of file
diff --git a/lib-i_to_z/ws.ahk b/lib-i_to_z/ws.ahk
index f9252d73..3bf57643 100644
--- a/lib-i_to_z/ws.ahk
+++ b/lib-i_to_z/ws.ahk
@@ -3,76 +3,75 @@ Title: Socket Lib (Netzwerk) + HowTo
Author: Bentschi
Website: http://de.autohotkey.com/forum/viewtopic.php?p=62765#62765
-WS_Startup(version=2.0) Started Winsock 2.0 oder höher
-WS_Shutdown() Beendet Winsock
-WS_Socket(protocol="TCP", ipversion="IPv4") Erstellt einen Socket (eine neue Verbindung)
-WS_CloseSocket(byref socket) Beendet einen Socket
-WS_GetSocketInfo(socket, byref af, byref maxsockaddr, byref minsockaddr, byref type, byref protocol) Ermittelt die informationen die automatisch bei Socket() gesetzt werden.
-WS_Listen(socket, backlog=32) Erlaubt eine eingehende verbindung
-WS_Bind(socket, ip, port) Bindet den Socket an eine Adresse oder einen Host
-WS_Accept(socket, byref out_ip, byref out_port) Nimmt eine eingehende verbindung an.
-WS_Connect(socket, ip, port) Verbindet zu einer Adresse
-WS_RecvFrom(socket, byref out_ip, byref out_port, byref message, len=1024, flags=0) Wartet bis eine Nachricht eintrifft und ließt diese.
-WS_Recv(socket, byref message, len=1024, flags=0) Wartet bis eine Nachricht eintrifft und ließt diese.
-WS_RecvBinary(socket, byref pbuffer, len, flags=0) Wartet bis eine Nachricht eintrifft und ließt diese (binär).
-WS_RecvFile(socket, file, flags=0) Speichert eine eingehende Nachricht in eine Datei.
-WS_SendTo(socket, ip, port, message, len=0, flags=0) Sendet eine Nachricht.
-WS_Send(socket, message, len=0, flags=0) Sendet eine Nachricht.
-WS_SendBinary(socket, buffer, len=0, flags=0) Sendet eine Nachricht (Binär).
-WS_SendFile(socket, file, flags=0) Sendet den Inhalt einer Datei.
-WS_GetAddressFromString(hostname_or_ip) 05.12.2010 - Ersetzt durch WS_GetAddrInfo()
-WS_GetAddrInfo(socket, hostname_or_ip, port, byref sockaddr, byref sockaddrlen) Konvertiert einen Hostnamen zu einer IP und gibt die struktur sockaddr zurück.
-WS_EnableBroadcast(socket) Erlaubt Broadcast für UDP
-WS_MessageSize(socket) Ermittelt die größe in bytes einer Nachricht am eingang.
-WS_HandleEvents(socket, events="READ ACCEPT CONNECT CLOSE") Events die in Callbacks bearbeited werden sollen.
-WS_Log(str, type=0) Schreibt den Log
-WS_GetLog() Giebt den Log zurück und löscht den Buffer.
-WS_GetConsoleInput() Erlaubt die Benutzereingabe, wenn die Konsole verwendet wird.
-
-
-Callbacks:
-============================
-WS_OnRead(socket) Wird ausgeführt wenn WS_HandleEvents() mit "READ" aufgerufen wird und Daten zum lesen vorhanden sind
-WS_OnAccept(socket) Wird ausgeführt wenn WS_HandleEvents() mit "ACCEPT" aufgerufen wird und eine eingehende Verbindung vorhanden ist.
-WS_OnConnect(socket) Wird ausgeführt wenn WS_HandleEvents() mit "CONNECT" aufgerufen wird und der Socket bereits verbunden ist.
-WS_OnClose(socket) Wird ausgeführt wenn WS_HandleEvents() mit "CLOSE" aufgerufen wird und die Verbindung unterbrochen wird.
-
-
-Interne Funktionen:
-============================
-WS_Proc(wParam, lParam, msg, hwnd) Ist ein Callback, das die Informationen an WS_DefProc oder WS_On... weiterleitet.
-WS_DefProc(socket, event) Ist ein Callback das die Standartaktion für WS_HandleEvents() ausführt
-
-
-Globale Variablen:
-============================
-WS_NOLOG Schreibt keinen Log
-WS_LOGTOCONSOLE Zeigt den Log in einer Konsole an.
-WS_LASTRECVMESSAGE Enthält die zulezt gelesene Nachricht, wenn WS_OnRead() definiert wurde, aber nicht existiert oder 0 (false) zurückgiebt.
-WS_LASTACCEPTEDSOCKET Enthält den Socket der letzten akzeptierten Verbindung, wenn WS_OnAccept() definiert wurde, aber nicht existiert oder 0 (false) zurückgiebt.
-WS_LASTACCEPTEDIP Enthält die IP-Adresse der letzten akzeptierten Verbindung, wenn WS_OnAccept() definiert wurde, aber nicht existiert oder 0 (false) zurückgiebt.
-WS_LASTACCEPTEDPORT Enthält den Port der letzten akzeptierten Verbindung, wenn WS_OnAccept() definiert wurde, aber nicht existiert oder 0 (false) zurückgiebt.
-WS_LASTCONNECTEDSOCKET Enthält den Socket der neuesten Verbindung, wenn WS_OnConnect() definiert wurde, aber nicht existiert oder 0 (false) zurückgiebt.
-WS_LASTCLOSEDSOCKET Enthält den zulezt geschlossenen Socket, wenn WS_OnClose() definiert wurde, aber nicht existiert oder 0 (false) zurückgiebt.
-
-
-Hinweise:
-============================
-- Die in WS_HandleEvents() definierten Callbacks müssen nicht im script existieren.
-In diesem Fall übernimmt WS_DefProc() eine Standardaktion.
-WS_DefProc() wird ebenso aufgerufen, wenn eines der Callbacks 0 (false) zurückgiebt.
-
-- Anstelle von den Parametern "ip" kann auch ein Hostname verwendet werden. (bsp: "www.someurl.com")
-ACHTUNG: Der Hostname darf kein "http://", "ftp://" oder sonstige Protokollinformationen enthalten.
-Andernfalls kann auch eine der folgenen IP-Addressen (für IPv4) verwendet werden:
-"0.0.0.0" für INADDR_ANY bzw. ADDR_ANY
-"127.0.0.1" für INADDR_LOOPBACK bzw. ADDR_LOOPBACK
-"255.255.255.255" für INADDR_BROADCAST bzw. ADDR_BROADCAST
-"255.255.255.255" für INADDR_NONE bzw. ADDR_NONE
+WS_Startup(version=2.0) Started Winsock 2.0 oder höher
+WS_Shutdown() Beendet Winsock
+WS_Socket(protocol="TCP", ipversion="IPv4") Erstellt einen Socket (eine neue Verbindung)
+WS_CloseSocket(byref socket) Beendet einen Socket
+WS_GetSocketInfo(socket, byref af, byref maxsockaddr, byref minsockaddr, byref type, byref protocol) Ermittelt die informationen die automatisch bei Socket() gesetzt werden.
+WS_Listen(socket, backlog=32) Erlaubt eine eingehende verbindung
+WS_Bind(socket, ip, port) Bindet den Socket an eine Adresse oder einen Host
+WS_Accept(socket, byref out_ip, byref out_port) Nimmt eine eingehende verbindung an.
+WS_Connect(socket, ip, port) Verbindet zu einer Adresse
+WS_RecvFrom(socket, byref out_ip, byref out_port, byref message, len=1024, flags=0) Wartet bis eine Nachricht eintrifft und ließt diese.
+WS_Recv(socket, byref message, len=1024, flags=0) Wartet bis eine Nachricht eintrifft und ließt diese.
+WS_RecvBinary(socket, byref pbuffer, len, flags=0) Wartet bis eine Nachricht eintrifft und ließt diese (binär).
+WS_RecvFile(socket, file, flags=0) Speichert eine eingehende Nachricht in eine Datei.
+WS_SendTo(socket, ip, port, message, len=0, flags=0) Sendet eine Nachricht.
+WS_Send(socket, message, len=0, flags=0) Sendet eine Nachricht.
+WS_SendBinary(socket, buffer, len=0, flags=0) Sendet eine Nachricht (Binär).
+WS_SendFile(socket, file, flags=0) Sendet den Inhalt einer Datei.
+WS_GetAddressFromString(hostname_or_ip) 05.12.2010 - Ersetzt durch WS_GetAddrInfo()
+WS_GetAddrInfo(socket, hostname_or_ip, port, byref sockaddr, byref sockaddrlen) Konvertiert einen Hostnamen zu einer IP und gibt die struktur sockaddr zurück.
+WS_EnableBroadcast(socket) Erlaubt Broadcast für UDP
+WS_MessageSize(socket) Ermittelt die größe in bytes einer Nachricht am eingang.
+WS_HandleEvents(socket, events="READ ACCEPT CONNECT CLOSE") Events die in Callbacks bearbeited werden sollen.
+WS_Log(str, type=0) Schreibt den Log
+WS_GetLog() Giebt den Log zurück und löscht den Buffer.
+WS_GetConsoleInput() Erlaubt die Benutzereingabe, wenn die Konsole verwendet wird.
+
+
+Callbacks:
+============================
+WS_OnRead(socket) Wird ausgeführt wenn WS_HandleEvents() mit "READ" aufgerufen wird und Daten zum lesen vorhanden sind
+WS_OnAccept(socket) Wird ausgeführt wenn WS_HandleEvents() mit "ACCEPT" aufgerufen wird und eine eingehende Verbindung vorhanden ist.
+WS_OnConnect(socket) Wird ausgeführt wenn WS_HandleEvents() mit "CONNECT" aufgerufen wird und der Socket bereits verbunden ist.
+WS_OnClose(socket) Wird ausgeführt wenn WS_HandleEvents() mit "CLOSE" aufgerufen wird und die Verbindung unterbrochen wird.
+
+
+Interne Funktionen:
+============================
+WS_Proc(wParam, lParam, msg, hwnd) Ist ein Callback, das die Informationen an WS_DefProc oder WS_On... weiterleitet.
+WS_DefProc(socket, event) Ist ein Callback das die Standartaktion für WS_HandleEvents() ausführt
+
+
+Globale Variablen:
+============================
+WS_NOLOG Schreibt keinen Log
+WS_LOGTOCONSOLE Zeigt den Log in einer Konsole an.
+WS_LASTRECVMESSAGE Enthält die zulezt gelesene Nachricht, wenn WS_OnRead() definiert wurde, aber nicht existiert oder 0 (false) zurückgiebt.
+WS_LASTACCEPTEDSOCKET Enthält den Socket der letzten akzeptierten Verbindung, wenn WS_OnAccept() definiert wurde, aber nicht existiert oder 0 (false) zurückgiebt.
+WS_LASTACCEPTEDIP Enthält die IP-Adresse der letzten akzeptierten Verbindung, wenn WS_OnAccept() definiert wurde, aber nicht existiert oder 0 (false) zurückgiebt.
+WS_LASTACCEPTEDPORT Enthält den Port der letzten akzeptierten Verbindung, wenn WS_OnAccept() definiert wurde, aber nicht existiert oder 0 (false) zurückgiebt.
+WS_LASTCONNECTEDSOCKET Enthält den Socket der neuesten Verbindung, wenn WS_OnConnect() definiert wurde, aber nicht existiert oder 0 (false) zurückgiebt.
+WS_LASTCLOSEDSOCKET Enthält den zulezt geschlossenen Socket, wenn WS_OnClose() definiert wurde, aber nicht existiert oder 0 (false) zurückgiebt.
+
+
+Hinweise:
+============================
+- Die in WS_HandleEvents() definierten Callbacks müssen nicht im script existieren.
+In diesem Fall übernimmt WS_DefProc() eine Standardaktion.
+WS_DefProc() wird ebenso aufgerufen, wenn eines der Callbacks 0 (false) zurückgiebt.
+
+- Anstelle von den Parametern "ip" kann auch ein Hostname verwendet werden. (bsp: "www.someurl.com")
+ACHTUNG: Der Hostname darf kein "http://", "ftp://" oder sonstige Protokollinformationen enthalten.
+Andernfalls kann auch eine der folgenen IP-Addressen (für IPv4) verwendet werden:
+"0.0.0.0" für INADDR_ANY bzw. ADDR_ANY
+"127.0.0.1" für INADDR_LOOPBACK bzw. ADDR_LOOPBACK
+"255.255.255.255" für INADDR_BROADCAST bzw. ADDR_BROADCAST
+"255.255.255.255" für INADDR_NONE bzw. ADDR_NONE
*/
-WS_HandleEvents(socket, events="READ ACCEPT CONNECT CLOSE")
-{
+WS_HandleEvents(socket, events="READ ACCEPT CONNECT CLOSE"){
static FD_READ := 1, FD_ACCEPT := 8, FD_CONNECT := 16, FD_CLOSE := 32
static msg := 0xB93D
Ptr := (A_PtrSize) ? "uptr" : "uint"
@@ -100,8 +99,7 @@ WS_HandleEvents(socket, events="READ ACCEPT CONNECT CLOSE")
return 1
}
-WS_Proc(wParam, lParam, msg, hwnd)
-{
+WS_Proc(wParam, lParam, msg, hwnd){
static FD_READ := 1, FD_ACCEPT := 8, FD_CONNECT := 16, FD_CLOSE := 32
event := lParam & 0xFFFF
error := lParam >> 16
@@ -142,8 +140,7 @@ WS_Proc(wParam, lParam, msg, hwnd)
return 1
}
-WS_DefProc(socket, event)
-{
+WS_DefProc(socket, event){
global WS_LASTRECVMESSAGE, WS_LASTACCEPTEDSOCKET, WS_LASTACCEPTEDIP, WS_LASTACCEPTEDPORT
global WS_LASTCONNECTEDSOCKET, WS_LASTCLOSEDSOCKET
@@ -179,8 +176,7 @@ WS_DefProc(socket, event)
return 1
}
-WS_MessageSize(socket)
-{
+WS_MessageSize(socket){
static FIONREAD := 0x4004667F
Ptr := (A_PtrSize) ? "uptr" : "uint"
@@ -190,8 +186,7 @@ WS_MessageSize(socket)
return NumGet(argp, 0, "int")
}
-WS_EnableBroadcast(socket) ;(UDP only!)
-{
+WS_EnableBroadcast(socket) { ;(UDP only!)
static SOL_SOCKET := 0xFFFF
static SO_BROADCAST := 0x0020
static IPPROTO_UDP := 17
@@ -221,8 +216,7 @@ WS_EnableBroadcast(socket) ;(UDP only!)
return 1
}
-WS_GetAddrInfo(socket, hostname_or_ip, port, byref sockaddr, byref sockaddrlen)
-{
+WS_GetAddrInfo(socket, hostname_or_ip, port, byref sockaddr, byref sockaddrlen){
static AF_INET := 2, AF_INET6 := 23
static ADDR_ANY := 0xFFFFFFFF, ADDR_NONE := 0
static addr
@@ -256,8 +250,7 @@ WS_GetAddrInfo(socket, hostname_or_ip, port, byref sockaddr, byref sockaddrlen)
return 1
}
-WS_Send(socket, message, len=0, flags=0)
-{
+WS_Send(socket, message, len=0, flags=0){
static MSG_DONTROUTE := 4, MSG_OOB := 1
Ptr := (A_PtrSize) ? "uptr" : "uint"
@@ -273,7 +266,7 @@ WS_Send(socket, message, len=0, flags=0)
else if (A_LoopField="MSG_OOB")
fl |= MSG_OOB
}
-
+
WS_Log(A_ThisFunc "(" socket ", message, " len ", " flags ")", 3)
result := DllCall("ws2_32\send", Ptr, socket, AStr, message, "int", len, "int", fl, "int")
if (result=-1)
@@ -285,8 +278,7 @@ WS_Send(socket, message, len=0, flags=0)
return result
}
-WS_SendBinary(socket, pbuffer, len, flags=0)
-{
+WS_SendBinary(socket, pbuffer, len, flags=0){
static MSG_DONTROUTE := 4, MSG_OOB := 1
Ptr := (A_PtrSize) ? "uptr" : "uint"
@@ -300,7 +292,7 @@ WS_SendBinary(socket, pbuffer, len, flags=0)
else if (A_LoopField="MSG_OOB")
fl |= MSG_OOB
}
-
+
WS_Log(A_ThisFunc "(" socket ", message, " len ", " flags ")", 3)
result := DllCall("ws2_32\send", Ptr, socket, Ptr, pbuffer, "int", len, "int", fl, "int")
if (result=-1)
@@ -312,8 +304,7 @@ WS_SendBinary(socket, pbuffer, len, flags=0)
return result
}
-WS_SendFile(socket, file, flags=0)
-{
+WS_SendFile(socket, file, flags=0){
static MSG_DONTROUTE := 4, MSG_OOB := 1
static GENERIC_READ := 0x80000000, OPEN_EXISTING := 3
@@ -328,7 +319,7 @@ WS_SendFile(socket, file, flags=0)
else if (A_LoopField="MSG_OOB")
fl |= MSG_OOB
}
-
+
if ((hFile := DllCall("CreateFile", Ptr, &file, "uint", GENERIC_READ, "uint", 0, Ptr, 0, "uint", OPEN_EXISTING, "uint", 0, Ptr, 0, Ptr))=0)
{
WS_Log("[ERROR] Can't open the file!", 1)
@@ -361,8 +352,7 @@ WS_SendFile(socket, file, flags=0)
return result
}
-WS_SendTo(socket, ip, port, message, len=0, flags=0)
-{
+WS_SendTo(socket, ip, port, message, len=0, flags=0){
static MSG_DONTROUTE := 4, MSG_OOB := 1
Ptr := (A_PtrSize) ? "uptr" : "uint"
@@ -378,7 +368,7 @@ WS_SendTo(socket, ip, port, message, len=0, flags=0)
else if (A_LoopField="MSG_OOB")
fl |= MSG_OOB
}
-
+
WS_Log(A_ThisFunc "(" socket ", " ip ", " port ", message, " len ", " flags ")", 3)
if (!WS_GetAddrInfo(socket, ip, port, sockaddr, sockaddrlen))
@@ -396,10 +386,9 @@ WS_SendTo(socket, ip, port, message, len=0, flags=0)
return result
}
-WS_Recv(socket, byref message, len=0, flags=0)
-{
+WS_Recv(socket, byref message, len=0, flags=0){
static MSG_PEEK := 2, MSG_OOB := 1, MSG_WAITALL := 8
-
+
Ptr := (A_PtrSize) ? "uptr" : "uint"
fl := 0
Loop, parse, flags, % " "
@@ -431,10 +420,9 @@ WS_Recv(socket, byref message, len=0, flags=0)
return result
}
-WS_RecvBinary(socket, byref pbuffer, len, flags=0)
-{
+WS_RecvBinary(socket, byref pbuffer, len, flags=0){
static MSG_PEEK := 2, MSG_OOB := 1, MSG_WAITALL := 8
-
+
Ptr := (A_PtrSize) ? "uptr" : "uint"
fl := 0
Loop, parse, flags, % " "
@@ -461,8 +449,7 @@ WS_RecvBinary(socket, byref pbuffer, len, flags=0)
return result
}
-WS_RecvFile(socket, file, flags=0)
-{
+WS_RecvFile(socket, file, flags=0){
static MSG_PEEK := 2, MSG_OOB := 1, MSG_WAITALL := 8
static GENERIC_WRITE := 0x40000000, CREATE_ALWAYS := 2
@@ -507,10 +494,9 @@ WS_RecvFile(socket, file, flags=0)
return result
}
-WS_RecvFrom(socket, byref out_ip, byref out_port, byref message, len=0, flags=0)
-{
+WS_RecvFrom(socket, byref out_ip, byref out_port, byref message, len=0, flags=0){
static MSG_PEEK := 2, MSG_OOB := 1, MSG_WAITALL := 8
-
+
Ptr := (A_PtrSize) ? "uptr" : "uint"
fl := 0
Loop, parse, flags, % " "
@@ -568,8 +554,7 @@ WS_RecvFrom(socket, byref out_ip, byref out_port, byref message, len=0, flags=0)
return result
}
-WS_Connect(socket, ip, port)
-{
+WS_Connect(socket, ip, port){
static AF_INET := 2, AF_INET6 := 23
WS_Log(A_ThisFunc "(" socket ", " ip ", " port ")", 3)
@@ -591,8 +576,7 @@ WS_Connect(socket, ip, port)
return 1
}
-WS_Accept(socket, byref out_ip, byref out_port)
-{
+WS_Accept(socket, byref out_ip, byref out_port){
static AF_INET := 2, AF_INET6 := 23
WS_Log(A_ThisFunc "(" socket ")", 3)
@@ -636,8 +620,7 @@ WS_Accept(socket, byref out_ip, byref out_port)
return newsocket
}
-WS_Bind(socket, ip, port)
-{
+WS_Bind(socket, ip, port){
static AF_INET := 2, AF_INET6 := 23
WS_Log(A_ThisFunc "(" socket ", " ip ", " port ")", 3)
@@ -660,8 +643,7 @@ WS_Bind(socket, ip, port)
return 1
}
-WS_Listen(socket, backlog=32)
-{
+WS_Listen(socket, backlog=32){
WS_Log(A_ThisFunc "(" socket ", " backlog ")", 3)
Ptr := (A_PtrSize) ? "uptr" : "uint"
if (DllCall("ws2_32\listen", Ptr, socket, "int", backlog)!=0)
@@ -673,8 +655,7 @@ WS_Listen(socket, backlog=32)
return 1
}
-WS_GetSocketInfo(socket, byref af, byref maxsockaddr, byref minsockaddr, byref type, byref protocol)
-{
+WS_GetSocketInfo(socket, byref af, byref maxsockaddr, byref minsockaddr, byref type, byref protocol){
static SOL_SOCKET := 0xFFFF
static SO_PROTOCOL_INFOA := 0x2004
@@ -696,8 +677,7 @@ WS_GetSocketInfo(socket, byref af, byref maxsockaddr, byref minsockaddr, byref t
return result
}
-WS_Socket(protocol="TCP", ipversion="IPv4")
-{
+WS_Socket(protocol="TCP", ipversion="IPv4"){
static AF_INET := 2, AF_INET6 := 23
static SOCK_STREAM := 1, SOCK_DGRAM := 2
static IPPROTO_TCP := 6, IPPROTO_UDP := 17
@@ -723,12 +703,11 @@ WS_Socket(protocol="TCP", ipversion="IPv4")
return socket
}
-WS_CloseSocket(byref socket)
-{
+WS_CloseSocket(byref socket){
WS_Log(A_ThisFunc "(" socket ")", 3)
sPtr := (A_PtrSize) ? A_PtrSize : 4
Ptr := (A_PtrSize) ? "uptr" : "uint"
-
+
if (DllCall("ws2_32\closesocket", Ptr, socket, "int")!=0)
{
WS_Log("[ERROR] Can't close this Socket!", 1)
@@ -739,8 +718,7 @@ WS_CloseSocket(byref socket)
return 1
}
-WS_Startup(version = "2.0")
-{
+WS_Startup(version = "2.0"){
WS_Log(A_ThisFunc "(" version ")", 3)
sPtr := (A_PtrSize) ? A_PtrSize : 4
Ptr := (A_PtrSize) ? "uptr" : "uint"
@@ -752,7 +730,7 @@ WS_Startup(version = "2.0")
return 0
}
WS_Log("Winsock Library loaded. (Handle: " hWS ")")
-
+
VarSetCapacity(WSAData, 394+sPtr, 0)
if (instr(version, "."))
{
@@ -779,8 +757,7 @@ WS_Startup(version = "2.0")
return 1
}
-WS_Shutdown()
-{
+WS_Shutdown(){
WS_Log(A_ThisFunc "()", 3)
Ptr := (A_PtrSize) ? "uptr" : "uint"
@@ -805,12 +782,11 @@ WS_Shutdown()
return 1
}
-WS_Log(str, type=0)
-{
+WS_Log(str, type=0){
global WS_NOLOG, WS_LOGTOCONSOLE
static log, cmd, stdout
Ptr := (A_PtrSize) ? "uptr" : "uint"
-
+
if (WS_NOLOG=1)
return 0
@@ -863,8 +839,7 @@ WS_Log(str, type=0)
return 1
}
-WS_GetConsoleInput()
-{
+WS_GetConsoleInput(){
global WS_LOGTOCONSOLE
if (!WS_LOGTOCONSOLE)
return 0
@@ -884,7 +859,6 @@ WS_GetConsoleInput()
return msg
}
-WS_GetLog()
-{
+WS_GetLog(){
return WS_Log("")
}
\ No newline at end of file
diff --git a/more libs/AFC/CControl.ahk b/more libs/AFC/CControl.ahk
index e1e523c7..af80a9c2 100644
--- a/more libs/AFC/CControl.ahk
+++ b/more libs/AFC/CControl.ahk
@@ -2,7 +2,7 @@
; GUI Control Wrapper Base Class
;
-#include
+#include %A_ScriptDir%\CWindow.ahk
/*!
Class: CControl
@@ -16,7 +16,7 @@ class CControl
{
; Overriden:
static __CtrlName := "INVALID"
-
+
/*!
Constructor: (oGui, value := "", options := "")
Creates a control.
@@ -27,74 +27,74 @@ class CControl
options - (Optional) Options (including positioning) to apply to the control.
See the AutoHotkey help file for more details.
*/
-
+
__New(oGui, value := "", options := "")
{
this.__Handle := oGui._InternalAdd(this, options, value)
this.__GuiPtr := &oGui
}
-
+
__Gui()
{
return Object(this.__GuiPtr)
}
-
+
_InternalGuiControl(cmd := "", value := "")
{
this.__Gui()._InternalGuiControl(this.__Handle, cmd, value)
}
-
+
_InternalGuiControlGet(cmd := "", value := "")
{
return this.__Gui()._InternalGuiControlGet(this.__Handle, cmd, value)
}
-
+
/*!
Method: SetOptions(options)
Adds and/or removes options. Equivalent to `GuiControl, +/-Option1 +/-Option2...`.
Parameters:
options - See "Options and styles for controls" in the AutoHotkey documentation for more details.
*/
-
+
SetOptions(options)
{
this._InternalGuiControl(options)
}
-
+
/*!
Method: Move(pos)
Moves and/or resizes the control. Equivalent to `GuiControl, Move`.
Parameters:
pos - As in `GuiControl, Move`.
*/
-
+
Move(pos)
{
this._InternalGuiControl("Move", pos)
}
-
+
/*!
Method: MoveDraw(pos)
Moves and/or resizes the control (avoids painting artifacts). Equivalent to `GuiControl, MoveDraw`.
Parameters:
pos - As in `GuiControl, MoveDraw`.
*/
-
+
MoveDraw(pos)
{
this._InternalGuiControl("MoveDraw", pos)
}
-
+
/*!
Method: Focus()
Sets keyboard focus to the control. Equivalent to `GuiControl, Focus`.
*/
-
+
Focus()
{
this._InternalGuiControl("Focus")
}
-
+
/*!
Method: Choose(n)
In the case of an appropriate control type, this method sets the selection
@@ -102,12 +102,12 @@ class CControl
Parameters:
n - The item position or leading text part.
*/
-
+
Choose(n)
{
this._InternalGuiControl("Choose", n)
}
-
+
/*!
Method: ChooseString(text)
In the case of an appropriate control type, this method sets the selection
@@ -115,12 +115,12 @@ class CControl
Parameters:
text - The text to match.
*/
-
+
ChooseString(text)
{
this._InternalGuiControl("Choose", text)
}
-
+
/*!
Method: OnEvent(oCtrl, guiEvent, eventInfo)
Called when an event related to the control is triggered (equivalent to g-labels).
@@ -130,15 +130,15 @@ class CControl
eventInfo - The value of `A_EventInfo` when the event was fired.
Remarks:
The hidden `this` parameter contains a reference to the window object the control belongs to.
-
+
Several control classes capture this event in order to separate the different kinds of
events the control can fire. Examples of this include `CCtrlListView` and `CCtrlTreeView`.
If otherwise indicated by the presence of other event handlers in the corresponding control
class' documentation, control classes do not capture this event.
-
+
**Note**: This is an event handler; in order to receive events override it in your class.
*/
-
+
; Property getters
class __Get extends CPropImpl
{
@@ -150,7 +150,7 @@ class CControl
{
return this._InternalGuiControlGet()
}
-
+
/*!
Property: Text [get/set]
Represents the text of the control. Equivalent to `GuiControl(Get)`'s `Text` sub-command.
@@ -159,7 +159,7 @@ class CControl
{
return this._InternalGuiControlGet("", "Text")
}
-
+
/*!
Property: Enabled [get/set]
Specifies whether the user can interact with the control (if `false` the control is "grayed-out").
@@ -168,7 +168,7 @@ class CControl
{
return this._InternalGuiControlGet("Enabled")
}
-
+
/*!
Property: Visible [get/set]
Specifies whether the control is visible. Equivalent to `GuiControlGet, ov, Visible`.
@@ -177,7 +177,7 @@ class CControl
{
return this._InternalGuiControlGet("Visible")
}
-
+
/*!
Property: Focused [get]
This property is `true` when the control has keyboard focus.
@@ -186,7 +186,7 @@ class CControl
{
return this.__Gui().GetFocusedControl() == this
}
-
+
/*!
Property: Position [get]
Retrieves a control's position and size. Logical equivalent of `GuiControlGet, ov, Pos`.
@@ -200,7 +200,7 @@ class CControl
return { x: px, y: py, w: pw, h: ph }
}
}
-
+
; Property setters
class __Set extends CPropImpl
{
@@ -209,19 +209,19 @@ class CControl
this._InternalGuiControl("", v)
return v
}
-
+
Text(v)
{
this._InternalGuiControl("Text", v)
return v
}
-
+
Enabled(v)
{
this._InternalGuiControl(v ? "Enable" : "Disable")
return !!v
}
-
+
Visible(v)
{
this._InternalGuiControl(v ? "Show" : "Hide")
diff --git a/more libs/AFC/CCtrlButton.ahk b/more libs/AFC/CCtrlButton.ahk
index 7290b159..00c5f5c4 100644
--- a/more libs/AFC/CCtrlButton.ahk
+++ b/more libs/AFC/CCtrlButton.ahk
@@ -2,7 +2,7 @@
; GUI Button Control Wrapper Class
;
-#include
+#include %A_ScriptDir%\CControl.ahk
/*!
Class: CCtrlButton
diff --git a/lib-a_to_h/examples/AFC_Example-HelloWorld.ahk b/more libs/AFC/examples/AFC_Example-HelloWorld.ahk
similarity index 100%
rename from lib-a_to_h/examples/AFC_Example-HelloWorld.ahk
rename to more libs/AFC/examples/AFC_Example-HelloWorld.ahk
diff --git a/lib-a_to_h/examples/AFC_Example-ManyControls.ahk b/more libs/AFC/examples/AFC_Example-ManyControls.ahk
similarity index 100%
rename from lib-a_to_h/examples/AFC_Example-ManyControls.ahk
rename to more libs/AFC/examples/AFC_Example-ManyControls.ahk
diff --git a/lib-a_to_h/examples/AFC_Example-ParentChildScrollable.ahk b/more libs/AFC/examples/AFC_Example-ParentChildScrollable.ahk
similarity index 100%
rename from lib-a_to_h/examples/AFC_Example-ParentChildScrollable.ahk
rename to more libs/AFC/examples/AFC_Example-ParentChildScrollable.ahk
diff --git a/lib-a_to_h/examples/AFC_Example-ProgressBar.ahk b/more libs/AFC/examples/AFC_Example-ProgressBar.ahk
similarity index 100%
rename from lib-a_to_h/examples/AFC_Example-ProgressBar.ahk
rename to more libs/AFC/examples/AFC_Example-ProgressBar.ahk
diff --git a/lib-a_to_h/examples/AFC_Example-TabControl.ahk b/more libs/AFC/examples/AFC_Example-TabControl.ahk
similarity index 100%
rename from lib-a_to_h/examples/AFC_Example-TabControl.ahk
rename to more libs/AFC/examples/AFC_Example-TabControl.ahk
diff --git a/lib-a_to_h/examples/AFC_background.png b/more libs/AFC/examples/AFC_background.png
similarity index 100%
rename from lib-a_to_h/examples/AFC_background.png
rename to more libs/AFC/examples/AFC_background.png
diff --git a/more libs/ImportTypeLib/Lib/ITL_FormatException.ahk b/more libs/ImportTypeLib/Lib/ITL_FormatException.ahk
index 54d7fea1..397e5448 100644
--- a/more libs/ImportTypeLib/Lib/ITL_FormatException.ahk
+++ b/more libs/ImportTypeLib/Lib/ITL_FormatException.ahk
@@ -1,4 +1,4 @@
-ITL_FormatException(msg, detail, error, hr = "", special = false, special_msg = "")
+ITL_FormatException(msg, detail, error, hr = "", special = false, special_msg = "")
{
static NL := "`n`t"
return [ msg
diff --git a/more libs/Mini_Framwork/Framework/src/System/MfSetFormatNumberType.ahk b/more libs/Mini_Framwork/Framework/src/System/MfSetFormatNumberType.ahk
index 6250bcdc..1b9b2027 100644
--- a/more libs/Mini_Framwork/Framework/src/System/MfSetFormatNumberType.ahk
+++ b/more libs/Mini_Framwork/Framework/src/System/MfSetFormatNumberType.ahk
@@ -1,4 +1,4 @@
-;{ License
+;{ License
/* This file is part of Mini-Framework For AutoHotkey.
*
* Mini-Framework is free software: you can redistribute it and/or modify
diff --git a/msOffice/Excel/Borders_and_other_formatting.ahk b/msOffice/Excel/Borders_and_other_formatting.ahk
index d465b96b..c2fb57c6 100644
--- a/msOffice/Excel/Borders_and_other_formatting.ahk
+++ b/msOffice/Excel/Borders_and_other_formatting.ahk
@@ -1,4 +1,4 @@
-; This script copies example data from an object into a SafeArray. The SafeArray is then assigned to a Range in Excel.
+; This script copies example data from an object into a SafeArray. The SafeArray is then assigned to a Range in Excel.
; Some formatting is then added such as bold text, column widths and borders.
; Constants
diff --git a/msOffice/Outlook/collectedOutlookFunctions.ahk b/msOffice/Outlook/collectedOutlookFunctions.ahk
new file mode 100644
index 00000000..a6435a30
--- /dev/null
+++ b/msOffice/Outlook/collectedOutlookFunctions.ahk
@@ -0,0 +1,480 @@
+; functions to use with outlook - more examples than real useable functions
+
+
+OutlookConnect() {
+ try olApp := ComObjActive("Outlook.Application")
+ catch
+ throw Exception("Unable to connect to Outlook.")
+ return olApp
+}
+
+OutlookSendMail(to, cc, subject, text, ImageAttachment) {
+
+ ; References:
+ ; - https://autohotkey.com/boards/viewtopic.php?f=5&t=28166 -- This thread shows more examples of HtmlBody, and also has links
+ ; to the WinClip() method.
+ ; - https://www.mrexcel.com/forum/excel-questions/708544-visual-basic-applications-copy-excel-into-outlook.html#post3496819 --
+ ; This post shows a VBA example that uses the Word editor; Word is usually the editor that is used internally by Outlook to
+ ; compose emails. HtmlBody is also used in another post in this thread.
+ ; - https://autohotkey.com/boards/viewtopic.php?p=119403#p119403 -- This post also uses the Word editor. It pastes a chart from
+ ; Excel into the email; the same process can be used for images.
+
+ ; Constants
+ olMailItem := 0
+ olByValue := 1
+
+ SplitPath, ImageAttachment, ImageName ; Get the file name from the path.
+
+ olApp := OutlookConnect() ; Create an application object.
+ olMail := olApp.CreateItem(olMailItem) ; Create a new email.
+ olMail.To := to
+ olMail.CC := cc
+ olMail.Subject := subject
+ olMail.Body := text
+ olMail.Attachments.Add(ImageAttachement, olByValue, 0) ; Add an attachment.
+ olMail.HTMLBody := olMail.HTMLBody "
Embedded Image:
" ; Include the image in the body of the email.
+ . "![](cid:" ImageName ")
"
+ . "
Best regards,
Someone"
+ olMail.Display
+ ;~ olMail.Send
+
+}
+
+OutlookRestricted() {
+
+ ; This script loops through all undread messages in the inbox and asks the user if they want to reply.
+
+ ; Constants
+ olFolderInbox := 6
+
+ olApp := OutlookConnect() ; Create an application object.
+ for ThisItem, in olApp.Session.GetDefaultFolder(olFolderInbox).Items.Restrict("[Unread] = true")
+ {
+ MsgBox, 4,, % "Do you want to reply?`n`nSubject: " ThisItem.Subject "`nSent on: " ThisItem.SentOn "`n"
+ . "Body:`n" SubStr(ThisItem.Body, 1, 100) ; Display max. 100 characters from the body.
+ . (StrLen(ThisItem.Body) > 100 ? "..." : "") ; Add "..." if the body is longer than 100 characters.
+ IfMsgBox, Yes
+ {
+ ThisReply := ThisItem.Reply()
+ ThisReply.Body := "Hello world!"
+ ThisReply.Display()
+ }
+ }
+
+return
+}
+
+;-------- from https://github.com/mslonik/Autohotkey-scripts/blob/d2114a65c2615b5e48cd86cbf175152f78405444/MicrosoftOutlook/Outlook.ahk
+AddAttachments() {
+
+
+ global oOutlook, ClipSaved, ClipVar
+ ClipSaved := Clipboard
+ Clipboard := ""
+ oOutlook := ComObjActive("Outlook.Application")
+ myInspector := oOutlook.Application.ActiveInspector
+ VarType := ComObjType(myInspector, "Name")
+ if (VarType = "_Inspector")
+ {
+ myItem := myInspector.CurrentItem
+ myAttachments := myItem.Attachments
+ FileSelectFile, files, M3 ; M3 = Multiselect existing files.
+ Loop, parse, files, `n
+ {
+ if (A_Index = 1)
+ {
+ path := A_LoopField
+ }
+ else if (A_Index = 2)
+ {
+ fullpath = %path%\%A_LoopField%
+ myAttachments.Add(fullpath)
+ ClipVar := % fullpath
+ Clipboard := ClipVar
+ }
+ else
+ {
+ fullpath = %path%\%A_LoopField%
+ myAttachments.Add(fullpath)
+ ClipVar := % Clipboard . "
" . fullpath
+ Clipboard := ClipVar
+ }
+ }
+ ClipVar := Clipboard
+ HText := myItem.HTMLBody
+ AText = %ClipVar%
+ HText = %AText%%HText%
+ myItem.HTMLBody := HText
+ }
+ oOutlook := ""
+ Clipboard := ClipSaved
+}
+
+SaveAttachments() {
+ global oOutlook, ClipSaved, ClipVar
+ ClipSaved := Clipboard
+ ClipVar := ""
+ Clipboard := "Deleted attachments: `"
+ oOutlook := ComObjActive("Outlook.Application")
+ myInspector := oOutlook.Application.ActiveInspector
+ VarType := ComObjType(myInspector, "Name")
+ if (VarType = "_Inspector")
+ {
+ myItem := myInspector.CurrentItem
+ myAttachments := myItem.Attachments
+
+ MsgBox, 4, ,Czy chcesz zapisać i usunąć załączniki?
+ IfMsgBox No
+ return
+
+ cnt := myAttachments.Count
+ if (cnt < 1)
+ {
+ MsgBox, Brak załączników w wiadomości.
+ return
+ }
+ i := cnt
+
+ while (i > 0)
+ {
+ AttachmentName := myAttachments.Item(i).FileName
+ path := "C:\temp1\Załączniki\"
+ if !FileExist(path)
+ FileCreateDir, % path
+ path = %path%%AttachmentName%
+ myAttachments.Item(i).SaveAsFile(path)
+ i := i-1
+ }
+ k := 1
+ while (k <= cnt)
+ {
+ AttachmentName := myAttachments.Item(k).FileName
+ ClipVar = % Clipboard . " `" . AttachmentName
+ Clipboard := ClipVar
+ if (k != cnt)
+ {
+ ClipVar = %Clipboard%,
+ Clipboard := ClipVar
+ }
+ k := k+1
+ }
+ ClipVar = % Clipboard . "
" . "Attachments saved in location C:\temp1\Załączniki." . "
"
+ Clipboard := ClipVar
+
+ ClipVar := Clipboard
+ try
+ myInspector.CommandBars.ExecuteMso("EditMessage")
+
+ HText := myItem.HTMLBody
+ AText = %ClipVar%
+ HText = %AText%%HText%
+ myItem.HTMLBody := HText
+
+ j := cnt
+ while(j > 0)
+ {
+ myAttachments.Remove(j)
+ j := j-1
+ }
+ myItem.Save
+ myItem.Close(0)
+ }
+ oOutlook := ""
+ Clipboard := ClipSaved
+}
+
+DeleteAttachments() {
+
+ global oOutlook, ClipSaved, ClipVar
+ oOutlook := ComObjActive("Outlook.Application")
+ myInspector := oOutlook.Application.ActiveInspector
+ VarType := ComObjType(myInspector, "Name")
+ ClipSaved := Clipboard
+ Clipboard := ""
+ ClipVar := ""
+ if (VarType = "_Inspector")
+ {
+ myItem := myInspector.CurrentItem
+ myAttachments := myItem.Attachments
+ i := 1
+
+ MsgBox, 4, ,Czy chcesz usunąć załączniki?
+ IfMsgBox No
+ return
+
+ cnt := myAttachments.Count
+
+ if (cnt < 1)
+ {
+ MsgBox, Brak załączników w wiadomości.
+ return
+ }
+
+ Clipboard := "Deleted attachments: `"
+
+ while (i <= cnt)
+ {
+ AttachmentName := myAttachments.Item(i).FileName
+ ClipVar = % Clipboard . " `" . AttachmentName
+ Clipboard := ClipVar
+ if (i != cnt)
+ {
+ ClipVar = %Clipboard%,
+ Clipboard := ClipVar
+ }
+ i := i+1
+ }
+
+ ClipVar := Clipboard
+ try
+ myInspector.CommandBars.ExecuteMso("EditMessage")
+
+ HText := myItem.HTMLBody
+ AText = %ClipVar%
+ HText = %AText%%HText%
+ myItem.HTMLBody := HText
+
+ j := cnt
+ while(j > 0)
+ {
+ myAttachments.Remove(j)
+ j := j-1
+ }
+ myItem.Save
+ myItem.Close(0)
+ }
+ oOutlook := ""
+ Clipboard := ClipSaved
+}
+
+;https://github.com/CfKu/autohotkey/blob/2d045c15f4f9c798876da768a6b668e0631ff4c3/apps/ms_outlook.ahk
+AppointmentsBack() {
+
+ olMail := 43
+ olAppointment := 26
+ olSelection := 74
+ olMeetingRequest := 53
+ olFree := 0
+ olMeetingDeclined := 4
+ olMeetingTentative := 2
+ olMeetingResponseNegative := 55
+ olMeetingResponsePositive := 56
+ olMeetingResponseTentative := 57
+
+ ; evtl.1 send decline (prevent from deleting), 2. change free, no reminder, 3. delete manually
+ try {
+ ; get current selected olMeetingRequest
+ selection := ComObjActive("Outlook.Application").ActiveExplorer.Selection
+ if selection.Count == 1 {
+ selected_item := selection.Item(1)
+ appointment_item := ""
+ ; proceed if olMeetingRequest
+ if selected_item.Class == olMeetingRequest {
+ appointment_item := selected_item.GetAssociatedAppointment(True)
+ ; proceed if selected appointment in calendar
+ } else if (selected_item.Class == olAppointment) {
+ appointment_item := selected_item
+ }
+
+ if (appointment_item != "") {
+ appointment_item.Subject := "CfK-DECLINED: " appointment_item.Subject
+ appointment_item.BusyStatus := olFree
+ appointment_item.ReminderSet := False
+ appointment_item.Save()
+ }
+ }
+ }
+
+return
+}
+
+AddTravelTimeToAppointment() {
+
+ olAppointmentItem := 1
+ olAppointment := 26
+
+ ; try {
+ app := ComObjActive("Outlook.Application")
+ ; get current selected olMeetingRequest
+ selection := app.ActiveExplorer.Selection
+ if selection.Count == 1 {
+ selected_item := selection.Item(1)
+ ; proceed if olAppointment
+ if selected_item.Class == olAppointment {
+ InputBox, travel_time, Travel time in minutes, Please enter the travel time in minutes., , 200, 150
+ ; if entered something, continue
+ if (!ErrorLevel) {
+ ; cast string to integer
+ travel_time := travel_time + 0
+ ; WORKAROUND (split datetime string), in ahk_v2 DateParse() or DateAdd()
+ ; 1234567890123456789
+ ; DateTime Format: dd.MM.yyyy hh:mm:ss
+ selected_start_date := selected_item.Start
+ start_dd := SubStr(selected_start_date, 1, 2)
+ start_Mon := SubStr(selected_start_date, 4, 2)
+ start_yyyy := SubStr(selected_start_date, 7, 4)
+ start_hh := SubStr(selected_start_date, 12, 2)
+ start_min := SubStr(selected_start_date, 15, 2)
+ start_ss := SubStr(selected_start_date, 18, 2)
+ before_start_date_ahk := start_yyyy . start_Mon . start_dd . start_hh . start_min . start_ss
+ before_start_date_ahk += -1 * travel_time, minutes
+ FormatTime, before_start_date, %before_start_date_ahk%, dd.MM.yyyy hh:mm:ss
+
+ ; BEFORE
+ item_before := app.CreateItem(olAppointmentItem)
+ item_before.Start := before_start_date
+ item_before.Duration := travel_time
+ item_before.Subject := "TRAVEL TIME | " selected_item.Subject
+ item_before.BusyStatus := selected_item.BusyStatus
+ item_before.Categories := selected_item.Categories
+ item_before.Sensitivity := selected_item.Sensitivity
+ item_before.ReminderSet := True
+ item_before.ReminderMinutesBeforeStart := 0
+ item_before.Save()
+
+ ; AFTER
+ item_after := app.CreateItem(olAppointmentItem)
+ item_after.Start := selected_item.End
+ item_after.Duration := travel_time
+ item_after.Subject := "TRAVEL TIME | " selected_item.Subject
+ item_after.BusyStatus := selected_item.BusyStatus
+ item_after.Categories := selected_item.Categories
+ item_after.Sensitivity := selected_item.Sensitivity
+ item_after.ReminderSet := True
+ item_after.ReminderMinutesBeforeStart := 0
+ item_after.Save()
+ }
+ }
+ }
+ ; }
+
+ return
+}
+;--------
+
+objOL := ComObjActive("Outlook.Application").ActiveInspector.CurrentItem
+Sub := objOL.Subject
+
+; https://github.com/omsai/andorian-hotkeys/blob/978bbc875816913b26db11057f7d693f02ca07f1/lib/common.ahk
+get_contact_name_from_outlook_subject() {
+ _MailItems := ComObjActive("Outlook.Application").ActiveExplorer.Selection
+ _MailItem := _MailItems.Item(1)
+ _contact_name := _MailItem.SenderName
+ if (_contact_name = "")
+ {
+ global NONE_VALUE
+ return NONE_VALUE ; No match found
+ }
+ else
+ return _contact_name
+}
+
+get_contact_email_from_outlook_subject() {
+
+ _MailItems := ComObjActive("Outlook.Application").ActiveExplorer.Selection
+ _MailItem := _MailItems.Item(1)
+ _contact_type := _MailItem.SenderEmailType
+ _contact_email := _MailItem.SenderEmailAddress
+ if (_contact_type = "EX")
+ {
+ _Recipient := _MailItem.Application.Session.CreateRecipient(_MailItem.SenderEmailAddress)
+ _contact_alias := _Recipient.AddressEntry.GetExchangeUser().Alias
+ _contact_email = %_contact_alias%@andor.com
+ }
+ else {
+ if (_contact_email = "")
+ {
+ global NONE_VALUE
+ _contact_email := NONE_VALUE ; No match found
+ }
+ }
+ return _contact_email
+}
+
+; from https://github.com/AshetynW/AHK_Outlook_Inbox_Parser/blob/c328441167f0482f0e386c25f164c2c881643422/outlookEmailParse.ahk
+display_unread() {
+
+ oOutlook := ComObjActive("Outlook.Application") ; Initial com
+
+ ; Open the inbox folder
+ oNameSpace := oOutlook.GetNamespace("MAPI") ; This just has to be here
+ ; folder := oNameSpace.GetDefaultFolder(olFolderInbox := 6)
+ folder := oNameSpace.GetDefaultFolder(6) ;.folders("CHANGEME") ; As it sits, this line will search through all unread inbox emails for Outlook. You can uncomment and change the folder name to search through specific folders if an account has a "rule" set up.
+
+ ; Loop through items in the inbox folder
+ ; oldest first
+ For item In folder.Items
+ If (item.Class = (olMail := 43 )) And (item.UnRead)
+ {
+ item.Display() ; Open the first unread
+ SetTitleMatchMode, 2
+ Loop
+ {
+ ifwinexist, Message (HTML) ; Wait until the message is open to continue
+ break
+ }
+
+ Winwait, Message (HTML)
+
+ ; below are the outlook object's elements such as the sender's name and the subject lines.
+ objOL := ComObjActive("Outlook.Application").ActiveInspector.CurrentItem
+ From := objOL.SenderName
+ To := objOL.To ; From
+ CC := objOL.CC ; CC'd on it
+ BCC := objOL.BCC ; Blind CC'd on it
+ Subject := objOL.Subject ; Subject
+ Body := objOL.Body ;The actual message
+ CreationTime := objOL.CreationTime ; Useful for date-specific stuff
+ Msgbox %FROM% %to% %CC% %BCC% %CreationTime% %Subject% %Body%
+
+}
+}
+
+; https://github.com/MrSimonC/Everyday-Helper/blob/5bddbc1a11bb7bd874c1e95be8c70d92dafb4f05/general%20functions.ahk
+Email(Send, To, Subject, BodyClearText, BodyHTML="", BodyFormat=2, From="", CC="", Bcc="", ReplyRecipients="", FlagText="", ReminderTFalse=False, ReminderDateTime="", Importance=1, ReadReceipt=False, DeferredDeliveryDateTime="", AccountToSendFrom="") { ;Sends an email. Returns: True/False.
+
+ /*
+ ;use ComObjActive if Outlook is always Open, but check with:
+ If !WinExist("ahk_class rctrl_renwnd32") ;if Outlook is closed, Exit
+ Return False
+ */
+ Item := ComObjCreate(OutlookPIDName).CreateItem(olMailItem:=0) ;olMailItem:=0=="0". Will work even with outlook closed. .14 is Outlook 2010 on Windows 7
+ Item.To := To
+ Item.Subject := Subject
+ If BodyClearText != ;default signature is kept if you don't change the .Body property
+ Item.Body := BodyClearText
+ If BodyHTML !=
+ Item.HTMLBody := BodyHTML
+ Item.BodyFormat := BodyFormat ;1=plain text, 2=html, 3=rich text
+ Item.SentOnBehalfOfName := From ;sets the "From" field. "" is ok as Outlook just uses default account
+ Item.CC := CC ;== Recipient1 := sacComObjectReply.Recipients.Add("a@a.com") then Recipient1.Type := 2 ;To=1 Cc=2 Bcc=3
+ Item.BCC := Bcc
+ Item.FlagRequest := FlagText ;sets follow up flag *for recipients*! very cool. "" is ok
+ Item.ReplyRecipientNames := ReplyRecipients ;sac, depreciated, should use Item.ReplyRecipients.Add("simon crouch")
+ If ReminderDateTime !=
+ Item.ReminderTime := ReminderDateTime
+ Item.ReminderSet := ReminderTFalse
+ Item.ReadReceiptRequested := ReadReceipt
+ Item.Importance := Importance ;2=high, 1=med, 0=low
+ If DeferredDeliveryDateTime !=
+ Item.DeferredDeliveryTime := DeferredDeliveryDateTime
+ If AccountToSendFrom !=
+ Item.SendUsingAccount := Item.Application.Session.Accounts.Item(AccountToSendFrom) ;sac- this took me ages. You can also use a #
+ If Send
+ Item.Send
+ Else
+ Item.Display
+ Return True
+}
+
+;---------
+
+olEmail := ComObjActive("Outlook.Application").ActiveWindow.CurrentItem ; Expects an Email to be open
+olEmail.MarkAsTask(2) ; olMarkThisWeek := 2
+olEmail.TaskDueDate := DatePlusDays(3)
+olEmail.FlagRequest := "Call " olEmail.SenderName
+olEmail.ReminderSet := true
+olEmail.ReminderTime := DatePlusDays(2)
+olEmail.Save
+
+
diff --git a/msOffice/PowerPoint/BulletFormat.ahk b/msOffice/PowerPoint/BulletFormat.ahk
new file mode 100644
index 00000000..de545d13
--- /dev/null
+++ b/msOffice/PowerPoint/BulletFormat.ahk
@@ -0,0 +1,39 @@
+; This script will change bullets to a check marks in the selected row(s) of text.
+
+; Usage:
+; - With PowerPoint active select text that is part of an existing bullet(s).
+; - Press Ctrl+1.
+; - The bullet on the selected line(s) will be changed to a check mark.
+
+#IfWinActive ahk_class PPTFrameClass
+
+^1:: ; Ctrl+1 hotkey
+ ; Gets a reference to the active Powerpoint application object.
+ pptApp := ComObjActive("Powerpoint.Application")
+
+ ; If text is not selected return.
+ if (pptApp.ActiveWindow.Selection.Type != 3) ; ppSelectionText = 3
+ return
+
+ ; Get the existing bullet format object from the selected text range.
+ MyBulletFormat := pptApp.ActiveWindow.Selection.TextRange.ParagraphFormat.Bullet
+
+ ; Change the bullet type to unnumbered
+ MyBulletFormat.Type := 1 ; ppBulletUnnumbered = 1
+
+ ; BulletFormat.Character - Returns or sets the Unicode character value that is used for bullets in the specified text.
+ MyBulletFormat.Character := 0x2713 ; Unicode Character 'CHECK MARK' (U+2713)
+
+ ; Or use a Wingdings check mark.
+ ;~ MyBulletFormat.Character := 252
+ ;~
+ ;~ ; Set the font.
+ ;~ MyBulletFormat.Font.Name := "Wingdings"
+return
+
+#If ; Turn off context sensitive hotkeys.
+Esc::ExitApp ; Press escape to exit this script
+
+; References:
+; https://autohotkey.com/board/topic/149354-ppt-change-bullets-script/#entry732175
+; BulletFormat Object (PowerPoint) - https://msdn.microsoft.com/en-us/library/office/ff745570.aspx
diff --git a/msOffice/PowerPoint/Find_and_replace_on_all_slides.ahk b/msOffice/PowerPoint/Find_and_replace_on_all_slides.ahk
new file mode 100644
index 00000000..37d2bdc6
--- /dev/null
+++ b/msOffice/PowerPoint/Find_and_replace_on_all_slides.ahk
@@ -0,0 +1,22 @@
+; This script replaces the text "abc" with "xyz" on every slide in the active presentation.
+
+ppApp := ComObjActive("Powerpoint.Application")
+ppFindReplace(ppApp, "abc", "xyz")
+return
+
+ppFindReplace(ppApp, sFindMe, sSwapme) {
+ for osld, in ppApp.ActivePresentation.Slides ; For each slide in the active presentation...
+ for oshp, in osld.Shapes ; For each shape on the slide...
+ If (oshp.HasTextFrame) ; If the shape has a text frame...
+ If (oshp.TextFrame.HasText) { ; If the textframe has text...
+ otext := oshp.TextFrame.TextRange ; Get an object represting the range of text.
+ otemp := otext.Replace(sFindMe, sSwapme, , 0, 0) ; Replace the first item.
+ while (otemp != "") { ; Repeat until there are no more items to replace. (Until otemp is blank.)
+ iNewStart := otemp.Start + otemp.Length ; Calculate where the next search should start.
+ otemp := otext.Replace(sFindMe, sSwapme, iNewStart, 0, 0) ; Replace again.
+ }
+ }
+}
+
+; References
+; https://stackoverflow.com/questions/9811723/find-and-replace-text-in-powerpoint-2010-from-excel-2010-with-vba/9812463#9812463
diff --git a/msOffice/PowerPoint/Set_line_spacing.ahk b/msOffice/PowerPoint/Set_line_spacing.ahk
new file mode 100644
index 00000000..532a62bb
--- /dev/null
+++ b/msOffice/PowerPoint/Set_line_spacing.ahk
@@ -0,0 +1,32 @@
+; This script changes the line spacing of selected text.
+
+#IfWinActive ahk_class PPTFrameClass
+
+^1::
+ ; Gets a reference to the active Powerpoint application object.
+ pptApp := ComObjActive("Powerpoint.Application")
+
+ ; If text is not selected return.
+ if (pptApp.ActiveWindow.Selection.Type != 3) ; ppSelectionText = 3
+ {
+ MsgBox, 0x10, Error, No textbox text detected!
+ pptApp := ""
+ return
+ }
+
+ ; Get a ParagraphFormat object for the selected text.
+ oPrgphFrmt := pptApp.ActiveWindow.Selection.TextRange.ParagraphFormat
+
+ ; LineRuleWithin determines whether line spacing between base lines is set to a specific number of points or lines.
+ ; msoFalse (0) - Line spacing is set to a specific number of points.
+ ; msoTrue (-1) - Line spacing is set to a specific number of lines.
+ oPrgphFrmt.LineRuleWithin := -1 ; Set spacing units to lines (not points)
+
+ oPrgphFrmt.SpaceWithin := 0.5 ; Set spacing of selected text to 0.5 lines.
+
+ ; Clear variables containing COM objects.
+ pptApp := "", oPrgphFrmt := ""
+return
+
+#If
+Esc::ExitApp ; Press Escape to exit this script.
diff --git a/classes/class_OfficeInfo.ahk b/msOffice/more/class_OfficeInfo.ahk
similarity index 100%
rename from classes/class_OfficeInfo.ahk
rename to msOffice/more/class_OfficeInfo.ahk
diff --git a/msOffice/more/class_OfficeManager.ahk b/msOffice/more/class_OfficeManager.ahk
new file mode 100644
index 00000000..72d6aa2b
--- /dev/null
+++ b/msOffice/more/class_OfficeManager.ahk
@@ -0,0 +1,8 @@
+class OfficeManager{
+ Path := ""
+ p := ""
+ __New(){
+ this.p := new Properties()
+ this.Path := this.p.getProperty("officepath")
+ }
+}
\ No newline at end of file
diff --git a/msOffice/more/class_OutlookExt.ahk b/msOffice/more/class_OutlookExt.ahk
new file mode 100644
index 00000000..bce393bb
--- /dev/null
+++ b/msOffice/more/class_OutlookExt.ahk
@@ -0,0 +1,141 @@
+class Outlook extends OfficeManager{
+
+ ExeName := ""
+ Outlook := ""
+ Mail := ""
+ flag := false
+ iqp := ""
+ folder := ""
+ sendimage := ""
+ __New(){
+ base.__New()
+ this.ExeName := this.p.getProperty("outlookexe")
+ location = %A_ScriptDir%\..\..\Lib\Properties\images.properties
+ i := new Properties(location)
+
+ this.sendimage := i.getProperty("OutSendmail")
+ this.iqp := new IQP()
+ }
+
+ Run(){
+ ;this.log.Write("run outlook")
+ Process, Exist, % this.ExeName
+ If(!ErrorLevel)
+ {
+ FileWrite("|OUTLOOK| outlook wasn't running '")
+ this.Outlook := ComObjCreate("Outlook.Application")
+ this.folder := this.Outlook.GetNameSpace("MAPI").GetDefaultFolder(6)
+ this.folder.Display
+ }
+ Else
+ {
+ FileWrite("|OUTLOOK| outlook was running ")
+ this.Outlook := ComObjActive("Outlook.Application")
+ If !WinExist("ahk_class rctrl_renwnd32")
+ {
+ this.folder := this.Outlook.GetNameSpace("MAPI").GetDefaultFolder(6)
+ this.folder.Display
+ }
+ }
+
+ WinWait ahk_class rctrl_renwnd32
+ WinActivate, ahk_class rctrl_renwnd32
+ WinShow, ahk_class rctrl_renwnd32
+ WinMaximize ahk_class rctrl_renwnd32
+ }
+
+ WriteMail(recepient = "", subject = "" , body = ""){
+ FileWrite("|OUTLOOK| begin writting mail => recepient{" . recepient . "} subject{" . subject . "} body{" . body . "}")
+ this.Mail := this.Outlook.Application.CreateItem(0)
+ this.Mail.display
+ this.Mail.Recipients.Add(recepient)
+ this.Mail.Subject := subject
+ this.Mail.body := body
+
+ }
+
+ AddAttachment(location = "",filename = ""){
+ FileWrite("|OUTLOOK| add attachment {" location . "\" . filename . "}")
+ path := location . "\" . filename
+ this.Mail.Attachments.Add(path)
+ }
+
+ SendMail(){
+ FileWrite("|OUTLOOK| send mail ")
+ SetTitleMatchMode, RegEx
+ WinWait Message
+ WinActivate, Message
+ Sleep 500
+ found := false
+ while !found {
+ found := findSearchImg(A_ScriptDir . "\" . this.sendimage)
+ }
+ if(found){
+ clickSearchImg(A_ScriptDir . "\" . this.sendimage)
+ }
+ WinWaitClose, Message
+ }
+
+ SendMailWithAttachment(){
+ FileWrite("|OUTLOOK| send mail with attachments")
+ SetTitleMatchMode, RegEx
+ WinWait Message
+ WinActivate, Message
+ Sleep 500
+ while !found {
+ found := findSearchImg(A_ScriptDir . "\" . this.sendimage)
+ }
+ if(found){
+ clickSearchImg(A_ScriptDir . "\" . this.sendimage)
+ }
+ iqpoo := new IQP()
+ iqpoo.WaitIsReady()
+ Send {Enter}
+ WinWaitClose, Classification
+ }
+
+ WaitForMailBySubject(box = "", subject = "")
+ {
+ FileWrite("|OUTLOOK| waiting for mail .. ")
+ Inbox := this.folder
+ while Inbox.items(1).Subject <> subject{
+ Sleep 10
+ ToolTip wait or mail
+ }
+ FileWrite("|OUTLOOK| mail found ")
+ this.Mail := Inbox.items(1)
+ this.Mail.display
+ }
+ CloseMail(){
+ FileWrite("|OUTLOOK| close mail viewer ")
+ this.Mail.Close()
+ }
+
+ Close(){
+ FileWrite("|OUTLOOK| close Application ")
+ this.Outlook.Application.Quit()
+ WinWaitClose ahk_class rctrl_renwnd32
+ }
+ BrowseMailBySubject(box = "" , subject = "")
+ {
+ FileWrite("|OUTLOOK| looking for mail by subject {" . subject . "}")
+ this.flag := false
+ if(box = "Inbox")
+ Box := this.Outlook.folders(1)
+ for Mail in Box.items {
+ if (Mail.subject = subject){
+ this.Mail := Mail
+ this.flag := true
+ }
+ }
+ if(!flag)
+ MsgBox % subject . "not found"
+ }
+ ;TODO verif if file exist
+ SaveAttachement(newname = "", location = ""){
+ FileWrite("|OUTLOOK| saving attachment {" . location . "\" . newname . "}")
+ path := location . "\" . newname
+ MsgBox % path
+ this.Mail.Attachments(1).SaveAsFile(path)
+ }
+}
\ No newline at end of file