https://www.autoitscript.com/w/api.php?action=feedcontributions&feedformat=atom&user=Spudw2k
AutoIt Wiki - User contributions [en]
2026-05-14T13:40:00Z
User contributions
MediaWiki 1.43.6
https://www.autoitscript.com/w/index.php?title=Snippets_(_Internet_)&diff=13656
Snippets ( Internet )
2017-06-30T05:16:00Z
<p>Spudw2k: Undo revision 13655 by Spudw2k (talk)</p>
<hr />
<div>__TOC__<br />
<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== Auto-Check For User To Update ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 4920-valuater<br />
| AuthorName = Valuater<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Auto-Check For User To Update<br />
<br />
Global $Udif, $QT_web = "www.XPCleanMenu.HostRocket.com"<br />
Call("Set_Updater")<br />
<br />
;test<br />
$Uask = MsgBox(68, "Update Notification", " Your last update was more than " & $Udif & " days ago." & @CRLF & @CRLF & "Would you like to check for new updates now?")<br />
<br />
If $Uask = 6 Then MsgBox(0, "", "Success. The update was ran.")<br />
<br />
Func Set_Updater()<br />
If Not FileExists(@SystemDir & "\UpDate.dat") Then<br />
FileWrite(@SystemDir & "\UpDate.dat", @YDAY)<br />
Else<br />
$Uold = FileReadLine(@SystemDir & "\UpDate.dat", 1)<br />
<br />
If $Uold >=320 Then<br />
FileDelete(@SystemDir & "\UpDate.dat")<br />
Return<br />
EndIf<br />
<br />
$Udif = @YDAY - $Uold<br />
<br />
If $Udif >= 45 Then<br />
$Uask = MsgBox(68, "UpDate Notification", " Your last UpDate was more than " & $Udif & " days ago " & @CRLF & @CRLF & "Would you like to check for new updates now? " & @CRLF & @CRLF)<br />
<br />
If $Uask = 6 Then<br />
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web)<br />
WinWaitActive("")<br />
EndIf<br />
<br />
FileDelete(@SystemDir & "\UpDate.dat")<br />
<br />
FileWrite(@SystemDir & "\UpDate.dat", @YDAY)<br />
EndIf<br />
EndIf<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _GetIEVersion ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Check IE Version.<br />
ConsoleWrite(_GetIEVersion() & @CRLF)<br />
<br />
Func _GetIEVersion()<br />
Return StringRegExpReplace(RegRead('HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\', 'Version'), '^(\d+\.\d+).*', '$1')<br />
EndFunc ;==>_GetIEVersion<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _GetTimeOnline ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
| Desc = Retrieve the current time from TimeAPI.org. Ideal if your Windows clock is out of sync.<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Retrieve the current time from TimeAPI.org. Ideal if your Windows clock is out of sync.<br />
ConsoleWrite(_GetTimeOnline(0) & @CRLF) ; TimeZone UTC.<br />
<br />
; #FUNCTION# ====================================================================================================================<br />
; Name ..........: _GetTimeOnline<br />
; Description ...: Retrieve the current date and time from TimeAPI.org.<br />
; Syntax ........: _GetTimeOnline($iTimeZone)<br />
; Parameters ....: $iTimeZone - An integer value of the timezone .<br />
; 0 - UTC (Universal Time)<br />
; 1 - EST (Eastern Time)<br />
; 2 - CST (Central Time)<br />
; 3 - MST (Mountain Time)<br />
; 4 - PST (Pacific Time)<br />
; 5 - AKST (Alaska Time)<br />
; 6 - HAST (Hawaii-Aleutian Time)<br />
; Return values .: Success: Returns the current Date and Time in the format YYYY/MM/DD HH:MM:SS<br />
; Failure: Sets @error to non-zero and returns the same format as a successful return but using the system time.<br />
; Author ........: guinness<br />
; Link ..........: According to http://www.programmableweb.com/api/timeapi, this is for non-commercial use.<br />
; Example .......: Yes<br />
; ===============================================================================================================================<br />
Func _GetTimeOnline($iTimeZone)<br />
Local $aTimeZone[7] = ['utc', 'est', 'cst', 'mst', 'pst', 'akst', 'hast']<br />
<br />
Local $sRead = BinaryToString(InetRead('http://www.timeapi.org/' & $aTimeZone[$iTimeZone] & '/now?format=\Y/\m/\d%20\H:\M:\S'))<br />
<br />
If @error Then<br />
Return SetError(1, 0, @YEAR & '/' & @MON & '/' & @MDAY & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)<br />
EndIf<br />
<br />
Return $sRead<br />
EndFunc ;==>_GetTimeOnline<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _HTML_StripTags ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 25246-robjong<br />
| AuthorName = Robjong<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
MsgBox(4096, "", _HTML_StripTags("This should be # - (&#35;)"))<br />
<br />
; Strip HTML tags from HTML syntax. By Robjong.<br />
Func _HTML_StripTags($sHTMLData) ; http://www.autoitscript.com/forum/topic/...tml-data/page__view__findpost_<br />
If $sHTMLData = "" Then Return SetError(1, 0, $sHTMLData)<br />
<br />
Local $oHTML = ObjCreate("HTMLFILE")<br />
<br />
If @error Then Return SetError(1, 0, $sHTMLData)<br />
<br />
$oHTML.Open()<br />
$oHTML.Write($sHTMLData)<br />
<br />
Return SetError(0, 0, $oHTML.Body.InnerText)<br />
EndFunc ;==>_HTML_StripTags<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _InetGetOutOfProcess ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_InetGetOutOfProcess('http://google.com', @TempDir & '\Google.tmp') & @CRLF)<br />
<br />
; Download a file by spawning a new AutoIt process.<br />
Func _InetGetOutOfProcess($sURL, $sFilePath, $iOptions = 0)<br />
Return RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteLine ' & '"Exit InetGet(""' & $sURL & '"", ""' & $sFilePath & '"", ' & $iOptions & ', 0)"') > 0<br />
EndFunc ;==>_InetGetOutOfProcess<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsInternetConnected ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite("Internet Is Connected" & " = " & _IsInternetConnected() & @CRLF) ; ( Returns "True" Or "False" )<br />
<br />
Func _IsInternetConnected()<br />
Local $aReturn = DllCall('connect.dll', 'long', 'IsInternetConnected')<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 0<br />
EndFunc ;==>_IsInternetConnected<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 30100-jguinch<br />
| AuthorName = jguinch<br />
| Desc = Checks to see if a string is a valid IP address.<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
;Checks to see if a string is a valid IP address.<br />
<br />
If _IsIP("127.0.0.1") Then Msgbox(0, "", "Valid IP address.")<br />
<br />
Func _IsIP($ip)<br />
Return StringRegExp ($ip, "^(?:(25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)\.){3}(?1)$")<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 20477-mrcreator<br />
| AuthorName = MrCreatoR<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Array.au3><br />
<br />
Local Const $sString = @IPAddress2 & ":8080" ;8080 is port value (for example)<br />
<br />
Local Const $GetValidIp = _IsValidIP($sString, ":")<br />
<br />
ConsoleWrite($GetValidIp)<br />
<br />
Local $IPsArray = _StringToIPArray('99.77.88.255 567567567 text 155.99.66.6 some more text ' & @IPAddress1 & ',' & @IPAddress2)<br />
<br />
_ArrayDisplay($IPsArray)<br />
<br />
Func _IsValidIP($sString, Const $sDelim = "")<br />
If Not StringInStr($sString, ".") Then Return 0<br />
<br />
If $sDelim <> "" Then $sString = StringLeft($sString, StringInStr($sString, $sDelim) - 1)<br />
<br />
If StringLen($sString) > 15 Then Return 0<br />
<br />
Local $Dot_Split = StringSplit($sString, ".")<br />
<br />
Local $iUbound = UBound($Dot_Split) - 1<br />
<br />
If $iUbound <> 4 Then Return 0<br />
<br />
For $i = 1 To $iUbound<br />
If $Dot_Split[$i] = "" Then Return 0<br />
If StringRegExp($Dot_Split[$i], '[^0-9]') Or Number($Dot_Split[$i]) > 255 Then Return 0<br />
Next<br />
<br />
If $sDelim <> "" Then Return $sString<br />
Return 1<br />
EndFunc<br />
<br />
Func _StringToIPArray($sString)<br />
Local $avArray = StringRegExp($sString, '([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)', 3)<br />
Local $avRetArr[1], $iUbound<br />
<br />
For $i = 0 To UBound($avArray)-1<br />
If _IsValidIP($avArray[$i]) Then<br />
$iUbound = UBound($avRetArr)<br />
ReDim $avRetArr[$iUbound+1]<br />
$avRetArr[$iUbound] = $avArray[$i]<br />
EndIf<br />
Next<br />
<br />
If $iUbound = 0 Then Return SetError(1, 0, 0)<br />
<br />
$avRetArr[0] = $iUbound<br />
Return $avRetArr<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidSubnetMask ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
Local $aSubnetMaskIP1[] = [255,255,255,0]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsValidSubnetMask($aSubnetMaskIP1) & @CRLF)<br />
<br />
Local $aSubnetMaskIP2[] = [255,248,0,0]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsValidSubnetMask($aSubnetMaskIP2) & @CRLF)<br />
<br />
Local $aSubnetMaskIP3[] = [255,255,255,1]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsValidSubnetMask($aSubnetMaskIP3) & @CRLF)<br />
<br />
Func _IsValidSubnetMask($aIP)<br />
If Not UBound($aIP)=4 Then Return SetError(1,0,False) ;Validate Input (4 element array)<br />
<br />
Local $hIP = "", $sHex = "", $iSubnetDec = 0, $bIsValid = False ;Define Local Variables<br />
For $iX = 0 To 3 ;Convert Subnetmask into Hex<br />
$sHex &= Hex($aIP[$iX], 2)<br />
Next<br />
<br />
$hIP &= Dec($sHex, 2) ;Convert SubnetHex into Dec<br />
<br />
For $iX = 0 To 32 ;Validate Subnet mask congruity with bit logic<br />
If (((2 ^ 32) - 1) - ((2 ^ $iX) - 1)) = $hIP Then<br />
$bIsValid = True<br />
ExitLoop<br />
EndIf<br />
Next<br />
<br />
Return $bIsValid<br />
EndFunc ;==>_IsValidSubnetMask<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidURL ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 44525-jscript<br />
| AuthorName = JScript<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
;Author: JScript - Snippet Version No. = 1.0<br />
;Snippet was Created Using AutoIt Version = 3.3.8.1, Creation Date = 22/05/12.<br />
<br />
ConsoleWrite("Is Valid URL? " & _IsValidURL("http:www.autoitscript.com") & @CRLF)<br />
ConsoleWrite("Is Valid URL? " & _IsValidURL("www.autoitscript.com") & @CRLF)<br />
<br />
Func _IsValidURL($sPath)<br />
Local Const $sRet = DllCall("Shlwapi.dll", "BOOL", "PathIsURL", "str", $sPath)<br />
Return $sRet[0]<br />
EndFunc ;==>_IsValidURL<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _Toggle_Images ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 8730-big-daddy<br />
| AuthorName = big_daddy<br />
| Desc = Toggle Internet Images On/Off<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Toggle Internet Images On/Off<br />
<br />
#include <IE.au3><br />
<br />
Opt("WinTitleMatchMode", 2)<br />
<br />
_Toggle_Images(1)<br />
Global Const $oIE = _IECreate ()<br />
<br />
_IENavigate ($oIE, "http:\\www.google.com")<br />
<br />
While WinExists("Internet Explorer")<br />
Sleep(250)<br />
WEnd<br />
_Toggle_Images()<br />
<br />
Func _Toggle_Images($On_Off=0)<br />
If $On_Off == 0 Then<br />
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "yes")<br />
Else<br />
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "no")<br />
EndIf<br />
EndFunc ;==>_Toggle_Images()<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _Tracert ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_Tracert("www.duckduckgo.com") & @CRLF)<br />
<br />
Func _Tracert(Const $sURL)<br />
; -d = Do Not Resolve Host & -h Is The Number Of Hops.<br />
Local Const $sData = _RunStdOutRead('tracert -d -h 1 ' & $sURL, @SystemDir)<br />
<br />
Local Const $aReturn = StringRegExp($sData, '\[([\d.]{7,15})\]', 3)<br />
<br />
If @error Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
Return $aReturn[0]<br />
EndFunc ;==>_Tracert<br />
<br />
Func _RunStdOutRead($sCommand, $sWorkingDirectory = @SystemDir)<br />
Local Const $iPID = Run(@ComSpec & ' /c ' & $sCommand, $sWorkingDirectory, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sOutput = ''<br />
<br />
While 1<br />
$sOutput &= StdoutRead($iPID)<br />
<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Return $sOutput<br />
EndFunc ;==>_RunStdOutRead<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _ValidIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 58912-brewmannh<br />
| AuthorName = BrewManNH<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Array.au3> ; This is only needed for the _ArrayDisplay function used in the example below, and is not needed for the _ValidIP function<br />
<br />
; IPv4 validation script<br />
Global Const $IPAddress = "192.168.2.1"<br />
<br />
Global Const $Return = _ValidIP($IPAddress)<br />
<br />
If $Return < 0 Then<br />
Switch @error<br />
Case 1<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 1 - IP address starts with an invalid number = 0, 127 , 169 or is > 239")<br />
Case 2<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 2 - one of the octets of the IP address is out of the range 0-255 or contains invalid characters")<br />
Case 3<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 3 - IP Address is not a valid dotted IP address (ex. valid address 190.40.100.20)")<br />
Case 4<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 4 - Last octet is either 0 or 255")<br />
EndSwitch<br />
Else<br />
MsgBox(48, "", $IPAddress & " is a valid Class " & $Return[5] & " IP address")<br />
_ArrayDisplay($Return)<br />
EndIf<br />
<br />
; FUNCTION# ===========================================================================================================<br />
; Name...........: _ValidIP<br />
; Description ...: Verifies whether an IP address is a valid IPv4 address or not<br />
; Syntax.........: _ValidIP($sIP)<br />
; Parameters ....: $sIP - IP address to validate<br />
;<br />
; Return values .: Success - Array containing split IP Address, IP address in Hex, and the Class of the IP address<br />
; array[0] - [3] = the IP address split into octets<br />
; array[4] = IP address in Hex<br />
; array[5] = Class of the IP address [A through D]<br />
; Failure - -1, sets @error<br />
; |1 - IP address starts with an invalid number = 0, 127 , 169 or is > 239<br />
; |2 - one of the octets of the IP address is out of the range 0-255 or contains invalid characters<br />
; |3 - IP Address is not a valid dotted IP address (ex. valid address 190.40.100.20)<br />
; |4 - Last octet ends in 0 or 255 which are invalid for an IP address<br />
; Author ........: BrewManNH<br />
; Modified.......:<br />
; Remarks .......: This will accept an IP address that is 4 octets long, and contains only numbers and falls within<br />
; valid IP address values. Class A networks can't start with 0 or 127. 169.xx.xx.xx is reserved and is<br />
; invalid and any address that starts above 239, ex. 240.xx.xx.xx is reserved. The address range<br />
; 224-239 1s reserved as well for Multicast groups but can be a valid IP address range if you're using<br />
; it as such. Any IP address ending in 0 or 255 is also invalid for an IP<br />
; Related .......:<br />
; Link ..........:<br />
; Example .......: Yes<br />
; =====================================================================================================================<br />
Func _ValidIP($sIP)<br />
Local $adIPAddressInfo[6]<br />
<br />
Local $aArray = StringSplit($sIP, ".", 2)<br />
<br />
If Not IsArray($aArray) Or UBound($aArray) <> 4 Then Return SetError(3, 0, -1)<br />
<br />
Local $dString = "0x"<br />
<br />
If $aArray[0] <= 0 Or $aArray[0] > 239 Or $aArray[0] = 127 Or $aArray[0] = 169 Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
For $I = 0 To 3<br />
If $I < 3 Then<br />
If $aArray[$I] < 0 Or $aArray[$I] > 255 Or Not StringIsDigit($aArray[$I]) Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
Else<br />
If Not StringIsDigit($aArray[$I]) Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
<br />
If $aArray[$I] < 1 Or $aArray[$I] > 254 Then<br />
Return SetError(4, 0, -1)<br />
EndIf<br />
EndIf<br />
<br />
$dString &= StringRight(Hex($aArray[$I]), 2)<br />
<br />
$adIPAddressInfo[$I] = $aArray[$I]<br />
Next<br />
<br />
$adIPAddressInfo[4] = $dString<br />
<br />
Switch $aArray[0]<br />
Case 1 To 126<br />
$adIPAddressInfo[5] = "A"<br />
Return $adIPAddressInfo<br />
Case 128 To 191<br />
$adIPAddressInfo[5] = "B"<br />
Return $adIPAddressInfo<br />
Case 192 To 223<br />
$adIPAddressInfo[5] = "C"<br />
Return $adIPAddressInfo<br />
Case 224 To 239<br />
$adIPAddressInfo[5] = "D"<br />
Return $adIPAddressInfo<br />
EndSwitch<br />
EndFunc ;==>_ValidIP<br />
</syntaxhighlight></div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_Internet_)&diff=13655
Snippets ( Internet )
2017-06-30T05:15:29Z
<p>Spudw2k: Undo revision 13654 by Spudw2k (talk)</p>
<hr />
<div>__TOC__<br />
<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== Auto-Check For User To Update ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 4920-valuater<br />
| AuthorName = Valuater<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Auto-Check For User To Update<br />
<br />
Global $Udif, $QT_web = "www.XPCleanMenu.HostRocket.com"<br />
Call("Set_Updater")<br />
<br />
;test<br />
$Uask = MsgBox(68, "Update Notification", " Your last update was more than " & $Udif & " days ago." & @CRLF & @CRLF & "Would you like to check for new updates now?")<br />
<br />
If $Uask = 6 Then MsgBox(0, "", "Success. The update was ran.")<br />
<br />
Func Set_Updater()<br />
If Not FileExists(@SystemDir & "\UpDate.dat") Then<br />
FileWrite(@SystemDir & "\UpDate.dat", @YDAY)<br />
Else<br />
$Uold = FileReadLine(@SystemDir & "\UpDate.dat", 1)<br />
<br />
If $Uold >=320 Then<br />
FileDelete(@SystemDir & "\UpDate.dat")<br />
Return<br />
EndIf<br />
<br />
$Udif = @YDAY - $Uold<br />
<br />
If $Udif >= 45 Then<br />
$Uask = MsgBox(68, "UpDate Notification", " Your last UpDate was more than " & $Udif & " days ago " & @CRLF & @CRLF & "Would you like to check for new updates now? " & @CRLF & @CRLF)<br />
<br />
If $Uask = 6 Then<br />
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web)<br />
WinWaitActive("")<br />
EndIf<br />
<br />
FileDelete(@SystemDir & "\UpDate.dat")<br />
<br />
FileWrite(@SystemDir & "\UpDate.dat", @YDAY)<br />
EndIf<br />
EndIf<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _GetIEVersion ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Check IE Version.<br />
ConsoleWrite(_GetIEVersion() & @CRLF)<br />
<br />
Func _GetIEVersion()<br />
Return StringRegExpReplace(RegRead('HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\', 'Version'), '^(\d+\.\d+).*', '$1')<br />
EndFunc ;==>_GetIEVersion<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _GetTimeOnline ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
| Desc = Retrieve the current time from TimeAPI.org. Ideal if your Windows clock is out of sync.<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Retrieve the current time from TimeAPI.org. Ideal if your Windows clock is out of sync.<br />
ConsoleWrite(_GetTimeOnline(0) & @CRLF) ; TimeZone UTC.<br />
<br />
; #FUNCTION# ====================================================================================================================<br />
; Name ..........: _GetTimeOnline<br />
; Description ...: Retrieve the current date and time from TimeAPI.org.<br />
; Syntax ........: _GetTimeOnline($iTimeZone)<br />
; Parameters ....: $iTimeZone - An integer value of the timezone .<br />
; 0 - UTC (Universal Time)<br />
; 1 - EST (Eastern Time)<br />
; 2 - CST (Central Time)<br />
; 3 - MST (Mountain Time)<br />
; 4 - PST (Pacific Time)<br />
; 5 - AKST (Alaska Time)<br />
; 6 - HAST (Hawaii-Aleutian Time)<br />
; Return values .: Success: Returns the current Date and Time in the format YYYY/MM/DD HH:MM:SS<br />
; Failure: Sets @error to non-zero and returns the same format as a successful return but using the system time.<br />
; Author ........: guinness<br />
; Link ..........: According to http://www.programmableweb.com/api/timeapi, this is for non-commercial use.<br />
; Example .......: Yes<br />
; ===============================================================================================================================<br />
Func _GetTimeOnline($iTimeZone)<br />
Local $aTimeZone[7] = ['utc', 'est', 'cst', 'mst', 'pst', 'akst', 'hast']<br />
<br />
Local $sRead = BinaryToString(InetRead('http://www.timeapi.org/' & $aTimeZone[$iTimeZone] & '/now?format=\Y/\m/\d%20\H:\M:\S'))<br />
<br />
If @error Then<br />
Return SetError(1, 0, @YEAR & '/' & @MON & '/' & @MDAY & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)<br />
EndIf<br />
<br />
Return $sRead<br />
EndFunc ;==>_GetTimeOnline<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _HTML_StripTags ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 25246-robjong<br />
| AuthorName = Robjong<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
MsgBox(4096, "", _HTML_StripTags("This should be # - (&#35;)"))<br />
<br />
; Strip HTML tags from HTML syntax. By Robjong.<br />
Func _HTML_StripTags($sHTMLData) ; http://www.autoitscript.com/forum/topic/...tml-data/page__view__findpost_<br />
If $sHTMLData = "" Then Return SetError(1, 0, $sHTMLData)<br />
<br />
Local $oHTML = ObjCreate("HTMLFILE")<br />
<br />
If @error Then Return SetError(1, 0, $sHTMLData)<br />
<br />
$oHTML.Open()<br />
$oHTML.Write($sHTMLData)<br />
<br />
Return SetError(0, 0, $oHTML.Body.InnerText)<br />
EndFunc ;==>_HTML_StripTags<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _InetGetOutOfProcess ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_InetGetOutOfProcess('http://google.com', @TempDir & '\Google.tmp') & @CRLF)<br />
<br />
; Download a file by spawning a new AutoIt process.<br />
Func _InetGetOutOfProcess($sURL, $sFilePath, $iOptions = 0)<br />
Return RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteLine ' & '"Exit InetGet(""' & $sURL & '"", ""' & $sFilePath & '"", ' & $iOptions & ', 0)"') > 0<br />
EndFunc ;==>_InetGetOutOfProcess<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsInternetConnected ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite("Internet Is Connected" & " = " & _IsInternetConnected() & @CRLF) ; ( Returns "True" Or "False" )<br />
<br />
Func _IsInternetConnected()<br />
Local $aReturn = DllCall('connect.dll', 'long', 'IsInternetConnected')<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 0<br />
EndFunc ;==>_IsInternetConnected<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 30100-jguinch<br />
| AuthorName = jguinch<br />
| Desc = Checks to see if a string is a valid IP address.<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
;Checks to see if a string is a valid IP address.<br />
<br />
If _IsIP("127.0.0.1") Then Msgbox(0, "", "Valid IP address.")<br />
<br />
Func _IsIP($ip)<br />
Return StringRegExp ($ip, "^(?:(25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)\.){3}(?1)$")<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 20477-mrcreator<br />
| AuthorName = MrCreatoR<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Array.au3><br />
<br />
Local Const $sString = @IPAddress2 & ":8080" ;8080 is port value (for example)<br />
<br />
Local Const $GetValidIp = _IsValidIP($sString, ":")<br />
<br />
ConsoleWrite($GetValidIp)<br />
<br />
Local $IPsArray = _StringToIPArray('99.77.88.255 567567567 text 155.99.66.6 some more text ' & @IPAddress1 & ',' & @IPAddress2)<br />
<br />
_ArrayDisplay($IPsArray)<br />
<br />
Func _IsValidIP($sString, Const $sDelim = "")<br />
If Not StringInStr($sString, ".") Then Return 0<br />
<br />
If $sDelim <> "" Then $sString = StringLeft($sString, StringInStr($sString, $sDelim) - 1)<br />
<br />
If StringLen($sString) > 15 Then Return 0<br />
<br />
Local $Dot_Split = StringSplit($sString, ".")<br />
<br />
Local $iUbound = UBound($Dot_Split) - 1<br />
<br />
If $iUbound <> 4 Then Return 0<br />
<br />
For $i = 1 To $iUbound<br />
If $Dot_Split[$i] = "" Then Return 0<br />
If StringRegExp($Dot_Split[$i], '[^0-9]') Or Number($Dot_Split[$i]) > 255 Then Return 0<br />
Next<br />
<br />
If $sDelim <> "" Then Return $sString<br />
Return 1<br />
EndFunc<br />
<br />
Func _StringToIPArray($sString)<br />
Local $avArray = StringRegExp($sString, '([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)', 3)<br />
Local $avRetArr[1], $iUbound<br />
<br />
For $i = 0 To UBound($avArray)-1<br />
If _IsValidIP($avArray[$i]) Then<br />
$iUbound = UBound($avRetArr)<br />
ReDim $avRetArr[$iUbound+1]<br />
$avRetArr[$iUbound] = $avArray[$i]<br />
EndIf<br />
Next<br />
<br />
If $iUbound = 0 Then Return SetError(1, 0, 0)<br />
<br />
$avRetArr[0] = $iUbound<br />
Return $avRetArr<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidSubnetMask ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
Local $aSubnetMaskIP1[] = [255,255,255,0]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsSubnetMaskValid($aSubnetMaskIP1) & @CRLF)<br />
<br />
Local $aSubnetMaskIP2[] = [255,248,0,0]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsSubnetMaskValid($aSubnetMaskIP2) & @CRLF)<br />
<br />
Local $aSubnetMaskIP3[] = [255,255,255,1]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsSubnetMaskValid($aSubnetMaskIP3) & @CRLF)<br />
<br />
Func _IsSubnetMaskValid($aIP)<br />
If Not UBound($aIP)=4 Then Return SetError(1,0,False) ;Validate Input (4 element array)<br />
<br />
Local $hIP = "", $sHex = "", $iSubnetDec = 0, $bIsValid = False ;Define Local Variables<br />
For $iX = 0 To 3 ;Convert Subnetmask into Hex<br />
$sHex &= Hex($aIP[$iX], 2)<br />
Next<br />
<br />
$hIP &= Dec($sHex, 2) ;Convert SubnetHex into Dec<br />
<br />
For $iX = 0 To 32 ;Validate Subnet mask congruity with bit logic<br />
If (((2 ^ 32) - 1) - ((2 ^ $iX) - 1)) = $hIP Then<br />
$bIsValid = True<br />
ExitLoop<br />
EndIf<br />
Next<br />
<br />
Return $bIsValid<br />
EndFunc ;==>_IPSubnetMaskIsValid<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidURL ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 44525-jscript<br />
| AuthorName = JScript<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
;Author: JScript - Snippet Version No. = 1.0<br />
;Snippet was Created Using AutoIt Version = 3.3.8.1, Creation Date = 22/05/12.<br />
<br />
ConsoleWrite("Is Valid URL? " & _IsValidURL("http:www.autoitscript.com") & @CRLF)<br />
ConsoleWrite("Is Valid URL? " & _IsValidURL("www.autoitscript.com") & @CRLF)<br />
<br />
Func _IsValidURL($sPath)<br />
Local Const $sRet = DllCall("Shlwapi.dll", "BOOL", "PathIsURL", "str", $sPath)<br />
Return $sRet[0]<br />
EndFunc ;==>_IsValidURL<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _Toggle_Images ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 8730-big-daddy<br />
| AuthorName = big_daddy<br />
| Desc = Toggle Internet Images On/Off<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Toggle Internet Images On/Off<br />
<br />
#include <IE.au3><br />
<br />
Opt("WinTitleMatchMode", 2)<br />
<br />
_Toggle_Images(1)<br />
Global Const $oIE = _IECreate ()<br />
<br />
_IENavigate ($oIE, "http:\\www.google.com")<br />
<br />
While WinExists("Internet Explorer")<br />
Sleep(250)<br />
WEnd<br />
_Toggle_Images()<br />
<br />
Func _Toggle_Images($On_Off=0)<br />
If $On_Off == 0 Then<br />
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "yes")<br />
Else<br />
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "no")<br />
EndIf<br />
EndFunc ;==>_Toggle_Images()<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _Tracert ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_Tracert("www.duckduckgo.com") & @CRLF)<br />
<br />
Func _Tracert(Const $sURL)<br />
; -d = Do Not Resolve Host & -h Is The Number Of Hops.<br />
Local Const $sData = _RunStdOutRead('tracert -d -h 1 ' & $sURL, @SystemDir)<br />
<br />
Local Const $aReturn = StringRegExp($sData, '\[([\d.]{7,15})\]', 3)<br />
<br />
If @error Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
Return $aReturn[0]<br />
EndFunc ;==>_Tracert<br />
<br />
Func _RunStdOutRead($sCommand, $sWorkingDirectory = @SystemDir)<br />
Local Const $iPID = Run(@ComSpec & ' /c ' & $sCommand, $sWorkingDirectory, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sOutput = ''<br />
<br />
While 1<br />
$sOutput &= StdoutRead($iPID)<br />
<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Return $sOutput<br />
EndFunc ;==>_RunStdOutRead<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _ValidIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 58912-brewmannh<br />
| AuthorName = BrewManNH<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Array.au3> ; This is only needed for the _ArrayDisplay function used in the example below, and is not needed for the _ValidIP function<br />
<br />
; IPv4 validation script<br />
Global Const $IPAddress = "192.168.2.1"<br />
<br />
Global Const $Return = _ValidIP($IPAddress)<br />
<br />
If $Return < 0 Then<br />
Switch @error<br />
Case 1<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 1 - IP address starts with an invalid number = 0, 127 , 169 or is > 239")<br />
Case 2<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 2 - one of the octets of the IP address is out of the range 0-255 or contains invalid characters")<br />
Case 3<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 3 - IP Address is not a valid dotted IP address (ex. valid address 190.40.100.20)")<br />
Case 4<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 4 - Last octet is either 0 or 255")<br />
EndSwitch<br />
Else<br />
MsgBox(48, "", $IPAddress & " is a valid Class " & $Return[5] & " IP address")<br />
_ArrayDisplay($Return)<br />
EndIf<br />
<br />
; FUNCTION# ===========================================================================================================<br />
; Name...........: _ValidIP<br />
; Description ...: Verifies whether an IP address is a valid IPv4 address or not<br />
; Syntax.........: _ValidIP($sIP)<br />
; Parameters ....: $sIP - IP address to validate<br />
;<br />
; Return values .: Success - Array containing split IP Address, IP address in Hex, and the Class of the IP address<br />
; array[0] - [3] = the IP address split into octets<br />
; array[4] = IP address in Hex<br />
; array[5] = Class of the IP address [A through D]<br />
; Failure - -1, sets @error<br />
; |1 - IP address starts with an invalid number = 0, 127 , 169 or is > 239<br />
; |2 - one of the octets of the IP address is out of the range 0-255 or contains invalid characters<br />
; |3 - IP Address is not a valid dotted IP address (ex. valid address 190.40.100.20)<br />
; |4 - Last octet ends in 0 or 255 which are invalid for an IP address<br />
; Author ........: BrewManNH<br />
; Modified.......:<br />
; Remarks .......: This will accept an IP address that is 4 octets long, and contains only numbers and falls within<br />
; valid IP address values. Class A networks can't start with 0 or 127. 169.xx.xx.xx is reserved and is<br />
; invalid and any address that starts above 239, ex. 240.xx.xx.xx is reserved. The address range<br />
; 224-239 1s reserved as well for Multicast groups but can be a valid IP address range if you're using<br />
; it as such. Any IP address ending in 0 or 255 is also invalid for an IP<br />
; Related .......:<br />
; Link ..........:<br />
; Example .......: Yes<br />
; =====================================================================================================================<br />
Func _ValidIP($sIP)<br />
Local $adIPAddressInfo[6]<br />
<br />
Local $aArray = StringSplit($sIP, ".", 2)<br />
<br />
If Not IsArray($aArray) Or UBound($aArray) <> 4 Then Return SetError(3, 0, -1)<br />
<br />
Local $dString = "0x"<br />
<br />
If $aArray[0] <= 0 Or $aArray[0] > 239 Or $aArray[0] = 127 Or $aArray[0] = 169 Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
For $I = 0 To 3<br />
If $I < 3 Then<br />
If $aArray[$I] < 0 Or $aArray[$I] > 255 Or Not StringIsDigit($aArray[$I]) Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
Else<br />
If Not StringIsDigit($aArray[$I]) Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
<br />
If $aArray[$I] < 1 Or $aArray[$I] > 254 Then<br />
Return SetError(4, 0, -1)<br />
EndIf<br />
EndIf<br />
<br />
$dString &= StringRight(Hex($aArray[$I]), 2)<br />
<br />
$adIPAddressInfo[$I] = $aArray[$I]<br />
Next<br />
<br />
$adIPAddressInfo[4] = $dString<br />
<br />
Switch $aArray[0]<br />
Case 1 To 126<br />
$adIPAddressInfo[5] = "A"<br />
Return $adIPAddressInfo<br />
Case 128 To 191<br />
$adIPAddressInfo[5] = "B"<br />
Return $adIPAddressInfo<br />
Case 192 To 223<br />
$adIPAddressInfo[5] = "C"<br />
Return $adIPAddressInfo<br />
Case 224 To 239<br />
$adIPAddressInfo[5] = "D"<br />
Return $adIPAddressInfo<br />
EndSwitch<br />
EndFunc ;==>_ValidIP<br />
</syntaxhighlight></div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_Internet_)&diff=13654
Snippets ( Internet )
2017-06-30T05:14:33Z
<p>Spudw2k: </p>
<hr />
<div>__TOC__<br />
<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== Auto-Check For User To Update ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 4920-valuater<br />
| AuthorName = Valuater<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Auto-Check For User To Update<br />
<br />
Global $Udif, $QT_web = "www.XPCleanMenu.HostRocket.com"<br />
Call("Set_Updater")<br />
<br />
;test<br />
$Uask = MsgBox(68, "Update Notification", " Your last update was more than " & $Udif & " days ago." & @CRLF & @CRLF & "Would you like to check for new updates now?")<br />
<br />
If $Uask = 6 Then MsgBox(0, "", "Success. The update was ran.")<br />
<br />
Func Set_Updater()<br />
If Not FileExists(@SystemDir & "\UpDate.dat") Then<br />
FileWrite(@SystemDir & "\UpDate.dat", @YDAY)<br />
Else<br />
$Uold = FileReadLine(@SystemDir & "\UpDate.dat", 1)<br />
<br />
If $Uold >=320 Then<br />
FileDelete(@SystemDir & "\UpDate.dat")<br />
Return<br />
EndIf<br />
<br />
$Udif = @YDAY - $Uold<br />
<br />
If $Udif >= 45 Then<br />
$Uask = MsgBox(68, "UpDate Notification", " Your last UpDate was more than " & $Udif & " days ago " & @CRLF & @CRLF & "Would you like to check for new updates now? " & @CRLF & @CRLF)<br />
<br />
If $Uask = 6 Then<br />
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web)<br />
WinWaitActive("")<br />
EndIf<br />
<br />
FileDelete(@SystemDir & "\UpDate.dat")<br />
<br />
FileWrite(@SystemDir & "\UpDate.dat", @YDAY)<br />
EndIf<br />
EndIf<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _GetIEVersion ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Check IE Version.<br />
ConsoleWrite(_GetIEVersion() & @CRLF)<br />
<br />
Func _GetIEVersion()<br />
Return StringRegExpReplace(RegRead('HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\', 'Version'), '^(\d+\.\d+).*', '$1')<br />
EndFunc ;==>_GetIEVersion<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _GetTimeOnline ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
| Desc = Retrieve the current time from TimeAPI.org. Ideal if your Windows clock is out of sync.<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Retrieve the current time from TimeAPI.org. Ideal if your Windows clock is out of sync.<br />
ConsoleWrite(_GetTimeOnline(0) & @CRLF) ; TimeZone UTC.<br />
<br />
; #FUNCTION# ====================================================================================================================<br />
; Name ..........: _GetTimeOnline<br />
; Description ...: Retrieve the current date and time from TimeAPI.org.<br />
; Syntax ........: _GetTimeOnline($iTimeZone)<br />
; Parameters ....: $iTimeZone - An integer value of the timezone .<br />
; 0 - UTC (Universal Time)<br />
; 1 - EST (Eastern Time)<br />
; 2 - CST (Central Time)<br />
; 3 - MST (Mountain Time)<br />
; 4 - PST (Pacific Time)<br />
; 5 - AKST (Alaska Time)<br />
; 6 - HAST (Hawaii-Aleutian Time)<br />
; Return values .: Success: Returns the current Date and Time in the format YYYY/MM/DD HH:MM:SS<br />
; Failure: Sets @error to non-zero and returns the same format as a successful return but using the system time.<br />
; Author ........: guinness<br />
; Link ..........: According to http://www.programmableweb.com/api/timeapi, this is for non-commercial use.<br />
; Example .......: Yes<br />
; ===============================================================================================================================<br />
Func _GetTimeOnline($iTimeZone)<br />
Local $aTimeZone[7] = ['utc', 'est', 'cst', 'mst', 'pst', 'akst', 'hast']<br />
<br />
Local $sRead = BinaryToString(InetRead('http://www.timeapi.org/' & $aTimeZone[$iTimeZone] & '/now?format=\Y/\m/\d%20\H:\M:\S'))<br />
<br />
If @error Then<br />
Return SetError(1, 0, @YEAR & '/' & @MON & '/' & @MDAY & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)<br />
EndIf<br />
<br />
Return $sRead<br />
EndFunc ;==>_GetTimeOnline<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _HTML_StripTags ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 25246-robjong<br />
| AuthorName = Robjong<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
MsgBox(4096, "", _HTML_StripTags("This should be # - (&#35;)"))<br />
<br />
; Strip HTML tags from HTML syntax. By Robjong.<br />
Func _HTML_StripTags($sHTMLData) ; http://www.autoitscript.com/forum/topic/...tml-data/page__view__findpost_<br />
If $sHTMLData = "" Then Return SetError(1, 0, $sHTMLData)<br />
<br />
Local $oHTML = ObjCreate("HTMLFILE")<br />
<br />
If @error Then Return SetError(1, 0, $sHTMLData)<br />
<br />
$oHTML.Open()<br />
$oHTML.Write($sHTMLData)<br />
<br />
Return SetError(0, 0, $oHTML.Body.InnerText)<br />
EndFunc ;==>_HTML_StripTags<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _InetGetOutOfProcess ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_InetGetOutOfProcess('http://google.com', @TempDir & '\Google.tmp') & @CRLF)<br />
<br />
; Download a file by spawning a new AutoIt process.<br />
Func _InetGetOutOfProcess($sURL, $sFilePath, $iOptions = 0)<br />
Return RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteLine ' & '"Exit InetGet(""' & $sURL & '"", ""' & $sFilePath & '"", ' & $iOptions & ', 0)"') > 0<br />
EndFunc ;==>_InetGetOutOfProcess<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsInternetConnected ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite("Internet Is Connected" & " = " & _IsInternetConnected() & @CRLF) ; ( Returns "True" Or "False" )<br />
<br />
Func _IsInternetConnected()<br />
Local $aReturn = DllCall('connect.dll', 'long', 'IsInternetConnected')<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 0<br />
EndFunc ;==>_IsInternetConnected<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 30100-jguinch<br />
| AuthorName = jguinch<br />
| Desc = Checks to see if a string is a valid IP address.<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
;Checks to see if a string is a valid IP address.<br />
<br />
If _IsIP("127.0.0.1") Then Msgbox(0, "", "Valid IP address.")<br />
<br />
Func _IsIP($ip)<br />
Return StringRegExp ($ip, "^(?:(25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)\.){3}(?1)$")<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 20477-mrcreator<br />
| AuthorName = MrCreatoR<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Array.au3><br />
<br />
Local Const $sString = @IPAddress2 & ":8080" ;8080 is port value (for example)<br />
<br />
Local Const $GetValidIp = _IsValidIP($sString, ":")<br />
<br />
ConsoleWrite($GetValidIp)<br />
<br />
Local $IPsArray = _StringToIPArray('99.77.88.255 567567567 text 155.99.66.6 some more text ' & @IPAddress1 & ',' & @IPAddress2)<br />
<br />
_ArrayDisplay($IPsArray)<br />
<br />
Func _IsValidIP($sString, Const $sDelim = "")<br />
If Not StringInStr($sString, ".") Then Return 0<br />
<br />
If $sDelim <> "" Then $sString = StringLeft($sString, StringInStr($sString, $sDelim) - 1)<br />
<br />
If StringLen($sString) > 15 Then Return 0<br />
<br />
Local $Dot_Split = StringSplit($sString, ".")<br />
<br />
Local $iUbound = UBound($Dot_Split) - 1<br />
<br />
If $iUbound <> 4 Then Return 0<br />
<br />
For $i = 1 To $iUbound<br />
If $Dot_Split[$i] = "" Then Return 0<br />
If StringRegExp($Dot_Split[$i], '[^0-9]') Or Number($Dot_Split[$i]) > 255 Then Return 0<br />
Next<br />
<br />
If $sDelim <> "" Then Return $sString<br />
Return 1<br />
EndFunc<br />
<br />
Func _StringToIPArray($sString)<br />
Local $avArray = StringRegExp($sString, '([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)', 3)<br />
Local $avRetArr[1], $iUbound<br />
<br />
For $i = 0 To UBound($avArray)-1<br />
If _IsValidIP($avArray[$i]) Then<br />
$iUbound = UBound($avRetArr)<br />
ReDim $avRetArr[$iUbound+1]<br />
$avRetArr[$iUbound] = $avArray[$i]<br />
EndIf<br />
Next<br />
<br />
If $iUbound = 0 Then Return SetError(1, 0, 0)<br />
<br />
$avRetArr[0] = $iUbound<br />
Return $avRetArr<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidSubnetMask ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
Local $aSubnetMaskIP1[] = [255,255,255,0]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsValidSubnetMask($aSubnetMaskIP1) & @CRLF)<br />
<br />
Local $aSubnetMaskIP2[] = [255,248,0,0]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsValidSubnetMask($aSubnetMaskIP2) & @CRLF)<br />
<br />
Local $aSubnetMaskIP3[] = [255,255,255,1]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsValidSubnetMask($aSubnetMaskIP3) & @CRLF)<br />
<br />
Func _IsValidSubnetMask($aIP)<br />
If Not UBound($aIP)=4 Then Return SetError(1,0,False) ;Validate Input (4 element array)<br />
<br />
Local $hIP = "", $sHex = "", $iSubnetDec = 0, $bIsValid = False ;Define Local Variables<br />
For $iX = 0 To 3 ;Convert Subnetmask into Hex<br />
$sHex &= Hex($aIP[$iX], 2)<br />
Next<br />
<br />
$hIP &= Dec($sHex, 2) ;Convert SubnetHex into Dec<br />
<br />
For $iX = 0 To 32 ;Validate Subnet mask congruity with bit logic<br />
If (((2 ^ 32) - 1) - ((2 ^ $iX) - 1)) = $hIP Then<br />
$bIsValid = True<br />
ExitLoop<br />
EndIf<br />
Next<br />
<br />
Return $bIsValid<br />
EndFunc ;==>_IsValidSubnetMask<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidURL ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 44525-jscript<br />
| AuthorName = JScript<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
;Author: JScript - Snippet Version No. = 1.0<br />
;Snippet was Created Using AutoIt Version = 3.3.8.1, Creation Date = 22/05/12.<br />
<br />
ConsoleWrite("Is Valid URL? " & _IsValidURL("http:www.autoitscript.com") & @CRLF)<br />
ConsoleWrite("Is Valid URL? " & _IsValidURL("www.autoitscript.com") & @CRLF)<br />
<br />
Func _IsValidURL($sPath)<br />
Local Const $sRet = DllCall("Shlwapi.dll", "BOOL", "PathIsURL", "str", $sPath)<br />
Return $sRet[0]<br />
EndFunc ;==>_IsValidURL<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _Toggle_Images ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 8730-big-daddy<br />
| AuthorName = big_daddy<br />
| Desc = Toggle Internet Images On/Off<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Toggle Internet Images On/Off<br />
<br />
#include <IE.au3><br />
<br />
Opt("WinTitleMatchMode", 2)<br />
<br />
_Toggle_Images(1)<br />
Global Const $oIE = _IECreate ()<br />
<br />
_IENavigate ($oIE, "http:\\www.google.com")<br />
<br />
While WinExists("Internet Explorer")<br />
Sleep(250)<br />
WEnd<br />
_Toggle_Images()<br />
<br />
Func _Toggle_Images($On_Off=0)<br />
If $On_Off == 0 Then<br />
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "yes")<br />
Else<br />
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "no")<br />
EndIf<br />
EndFunc ;==>_Toggle_Images()<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _Tracert ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_Tracert("www.duckduckgo.com") & @CRLF)<br />
<br />
Func _Tracert(Const $sURL)<br />
; -d = Do Not Resolve Host & -h Is The Number Of Hops.<br />
Local Const $sData = _RunStdOutRead('tracert -d -h 1 ' & $sURL, @SystemDir)<br />
<br />
Local Const $aReturn = StringRegExp($sData, '\[([\d.]{7,15})\]', 3)<br />
<br />
If @error Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
Return $aReturn[0]<br />
EndFunc ;==>_Tracert<br />
<br />
Func _RunStdOutRead($sCommand, $sWorkingDirectory = @SystemDir)<br />
Local Const $iPID = Run(@ComSpec & ' /c ' & $sCommand, $sWorkingDirectory, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sOutput = ''<br />
<br />
While 1<br />
$sOutput &= StdoutRead($iPID)<br />
<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Return $sOutput<br />
EndFunc ;==>_RunStdOutRead<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _ValidIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 58912-brewmannh<br />
| AuthorName = BrewManNH<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Array.au3> ; This is only needed for the _ArrayDisplay function used in the example below, and is not needed for the _ValidIP function<br />
<br />
; IPv4 validation script<br />
Global Const $IPAddress = "192.168.2.1"<br />
<br />
Global Const $Return = _ValidIP($IPAddress)<br />
<br />
If $Return < 0 Then<br />
Switch @error<br />
Case 1<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 1 - IP address starts with an invalid number = 0, 127 , 169 or is > 239")<br />
Case 2<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 2 - one of the octets of the IP address is out of the range 0-255 or contains invalid characters")<br />
Case 3<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 3 - IP Address is not a valid dotted IP address (ex. valid address 190.40.100.20)")<br />
Case 4<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 4 - Last octet is either 0 or 255")<br />
EndSwitch<br />
Else<br />
MsgBox(48, "", $IPAddress & " is a valid Class " & $Return[5] & " IP address")<br />
_ArrayDisplay($Return)<br />
EndIf<br />
<br />
; FUNCTION# ===========================================================================================================<br />
; Name...........: _ValidIP<br />
; Description ...: Verifies whether an IP address is a valid IPv4 address or not<br />
; Syntax.........: _ValidIP($sIP)<br />
; Parameters ....: $sIP - IP address to validate<br />
;<br />
; Return values .: Success - Array containing split IP Address, IP address in Hex, and the Class of the IP address<br />
; array[0] - [3] = the IP address split into octets<br />
; array[4] = IP address in Hex<br />
; array[5] = Class of the IP address [A through D]<br />
; Failure - -1, sets @error<br />
; |1 - IP address starts with an invalid number = 0, 127 , 169 or is > 239<br />
; |2 - one of the octets of the IP address is out of the range 0-255 or contains invalid characters<br />
; |3 - IP Address is not a valid dotted IP address (ex. valid address 190.40.100.20)<br />
; |4 - Last octet ends in 0 or 255 which are invalid for an IP address<br />
; Author ........: BrewManNH<br />
; Modified.......:<br />
; Remarks .......: This will accept an IP address that is 4 octets long, and contains only numbers and falls within<br />
; valid IP address values. Class A networks can't start with 0 or 127. 169.xx.xx.xx is reserved and is<br />
; invalid and any address that starts above 239, ex. 240.xx.xx.xx is reserved. The address range<br />
; 224-239 1s reserved as well for Multicast groups but can be a valid IP address range if you're using<br />
; it as such. Any IP address ending in 0 or 255 is also invalid for an IP<br />
; Related .......:<br />
; Link ..........:<br />
; Example .......: Yes<br />
; =====================================================================================================================<br />
Func _ValidIP($sIP)<br />
Local $adIPAddressInfo[6]<br />
<br />
Local $aArray = StringSplit($sIP, ".", 2)<br />
<br />
If Not IsArray($aArray) Or UBound($aArray) <> 4 Then Return SetError(3, 0, -1)<br />
<br />
Local $dString = "0x"<br />
<br />
If $aArray[0] <= 0 Or $aArray[0] > 239 Or $aArray[0] = 127 Or $aArray[0] = 169 Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
For $I = 0 To 3<br />
If $I < 3 Then<br />
If $aArray[$I] < 0 Or $aArray[$I] > 255 Or Not StringIsDigit($aArray[$I]) Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
Else<br />
If Not StringIsDigit($aArray[$I]) Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
<br />
If $aArray[$I] < 1 Or $aArray[$I] > 254 Then<br />
Return SetError(4, 0, -1)<br />
EndIf<br />
EndIf<br />
<br />
$dString &= StringRight(Hex($aArray[$I]), 2)<br />
<br />
$adIPAddressInfo[$I] = $aArray[$I]<br />
Next<br />
<br />
$adIPAddressInfo[4] = $dString<br />
<br />
Switch $aArray[0]<br />
Case 1 To 126<br />
$adIPAddressInfo[5] = "A"<br />
Return $adIPAddressInfo<br />
Case 128 To 191<br />
$adIPAddressInfo[5] = "B"<br />
Return $adIPAddressInfo<br />
Case 192 To 223<br />
$adIPAddressInfo[5] = "C"<br />
Return $adIPAddressInfo<br />
Case 224 To 239<br />
$adIPAddressInfo[5] = "D"<br />
Return $adIPAddressInfo<br />
EndSwitch<br />
EndFunc ;==>_ValidIP<br />
</syntaxhighlight></div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_Internet_)&diff=13653
Snippets ( Internet )
2017-06-30T05:09:14Z
<p>Spudw2k: </p>
<hr />
<div>__TOC__<br />
<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== Auto-Check For User To Update ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 4920-valuater<br />
| AuthorName = Valuater<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Auto-Check For User To Update<br />
<br />
Global $Udif, $QT_web = "www.XPCleanMenu.HostRocket.com"<br />
Call("Set_Updater")<br />
<br />
;test<br />
$Uask = MsgBox(68, "Update Notification", " Your last update was more than " & $Udif & " days ago." & @CRLF & @CRLF & "Would you like to check for new updates now?")<br />
<br />
If $Uask = 6 Then MsgBox(0, "", "Success. The update was ran.")<br />
<br />
Func Set_Updater()<br />
If Not FileExists(@SystemDir & "\UpDate.dat") Then<br />
FileWrite(@SystemDir & "\UpDate.dat", @YDAY)<br />
Else<br />
$Uold = FileReadLine(@SystemDir & "\UpDate.dat", 1)<br />
<br />
If $Uold >=320 Then<br />
FileDelete(@SystemDir & "\UpDate.dat")<br />
Return<br />
EndIf<br />
<br />
$Udif = @YDAY - $Uold<br />
<br />
If $Udif >= 45 Then<br />
$Uask = MsgBox(68, "UpDate Notification", " Your last UpDate was more than " & $Udif & " days ago " & @CRLF & @CRLF & "Would you like to check for new updates now? " & @CRLF & @CRLF)<br />
<br />
If $Uask = 6 Then<br />
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web)<br />
WinWaitActive("")<br />
EndIf<br />
<br />
FileDelete(@SystemDir & "\UpDate.dat")<br />
<br />
FileWrite(@SystemDir & "\UpDate.dat", @YDAY)<br />
EndIf<br />
EndIf<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _GetIEVersion ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Check IE Version.<br />
ConsoleWrite(_GetIEVersion() & @CRLF)<br />
<br />
Func _GetIEVersion()<br />
Return StringRegExpReplace(RegRead('HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\', 'Version'), '^(\d+\.\d+).*', '$1')<br />
EndFunc ;==>_GetIEVersion<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _GetTimeOnline ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
| Desc = Retrieve the current time from TimeAPI.org. Ideal if your Windows clock is out of sync.<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Retrieve the current time from TimeAPI.org. Ideal if your Windows clock is out of sync.<br />
ConsoleWrite(_GetTimeOnline(0) & @CRLF) ; TimeZone UTC.<br />
<br />
; #FUNCTION# ====================================================================================================================<br />
; Name ..........: _GetTimeOnline<br />
; Description ...: Retrieve the current date and time from TimeAPI.org.<br />
; Syntax ........: _GetTimeOnline($iTimeZone)<br />
; Parameters ....: $iTimeZone - An integer value of the timezone .<br />
; 0 - UTC (Universal Time)<br />
; 1 - EST (Eastern Time)<br />
; 2 - CST (Central Time)<br />
; 3 - MST (Mountain Time)<br />
; 4 - PST (Pacific Time)<br />
; 5 - AKST (Alaska Time)<br />
; 6 - HAST (Hawaii-Aleutian Time)<br />
; Return values .: Success: Returns the current Date and Time in the format YYYY/MM/DD HH:MM:SS<br />
; Failure: Sets @error to non-zero and returns the same format as a successful return but using the system time.<br />
; Author ........: guinness<br />
; Link ..........: According to http://www.programmableweb.com/api/timeapi, this is for non-commercial use.<br />
; Example .......: Yes<br />
; ===============================================================================================================================<br />
Func _GetTimeOnline($iTimeZone)<br />
Local $aTimeZone[7] = ['utc', 'est', 'cst', 'mst', 'pst', 'akst', 'hast']<br />
<br />
Local $sRead = BinaryToString(InetRead('http://www.timeapi.org/' & $aTimeZone[$iTimeZone] & '/now?format=\Y/\m/\d%20\H:\M:\S'))<br />
<br />
If @error Then<br />
Return SetError(1, 0, @YEAR & '/' & @MON & '/' & @MDAY & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)<br />
EndIf<br />
<br />
Return $sRead<br />
EndFunc ;==>_GetTimeOnline<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _HTML_StripTags ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 25246-robjong<br />
| AuthorName = Robjong<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
MsgBox(4096, "", _HTML_StripTags("This should be # - (&#35;)"))<br />
<br />
; Strip HTML tags from HTML syntax. By Robjong.<br />
Func _HTML_StripTags($sHTMLData) ; http://www.autoitscript.com/forum/topic/...tml-data/page__view__findpost_<br />
If $sHTMLData = "" Then Return SetError(1, 0, $sHTMLData)<br />
<br />
Local $oHTML = ObjCreate("HTMLFILE")<br />
<br />
If @error Then Return SetError(1, 0, $sHTMLData)<br />
<br />
$oHTML.Open()<br />
$oHTML.Write($sHTMLData)<br />
<br />
Return SetError(0, 0, $oHTML.Body.InnerText)<br />
EndFunc ;==>_HTML_StripTags<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _InetGetOutOfProcess ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_InetGetOutOfProcess('http://google.com', @TempDir & '\Google.tmp') & @CRLF)<br />
<br />
; Download a file by spawning a new AutoIt process.<br />
Func _InetGetOutOfProcess($sURL, $sFilePath, $iOptions = 0)<br />
Return RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteLine ' & '"Exit InetGet(""' & $sURL & '"", ""' & $sFilePath & '"", ' & $iOptions & ', 0)"') > 0<br />
EndFunc ;==>_InetGetOutOfProcess<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsInternetConnected ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite("Internet Is Connected" & " = " & _IsInternetConnected() & @CRLF) ; ( Returns "True" Or "False" )<br />
<br />
Func _IsInternetConnected()<br />
Local $aReturn = DllCall('connect.dll', 'long', 'IsInternetConnected')<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 0<br />
EndFunc ;==>_IsInternetConnected<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 30100-jguinch<br />
| AuthorName = jguinch<br />
| Desc = Checks to see if a string is a valid IP address.<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
;Checks to see if a string is a valid IP address.<br />
<br />
If _IsIP("127.0.0.1") Then Msgbox(0, "", "Valid IP address.")<br />
<br />
Func _IsIP($ip)<br />
Return StringRegExp ($ip, "^(?:(25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)\.){3}(?1)$")<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 20477-mrcreator<br />
| AuthorName = MrCreatoR<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Array.au3><br />
<br />
Local Const $sString = @IPAddress2 & ":8080" ;8080 is port value (for example)<br />
<br />
Local Const $GetValidIp = _IsValidIP($sString, ":")<br />
<br />
ConsoleWrite($GetValidIp)<br />
<br />
Local $IPsArray = _StringToIPArray('99.77.88.255 567567567 text 155.99.66.6 some more text ' & @IPAddress1 & ',' & @IPAddress2)<br />
<br />
_ArrayDisplay($IPsArray)<br />
<br />
Func _IsValidIP($sString, Const $sDelim = "")<br />
If Not StringInStr($sString, ".") Then Return 0<br />
<br />
If $sDelim <> "" Then $sString = StringLeft($sString, StringInStr($sString, $sDelim) - 1)<br />
<br />
If StringLen($sString) > 15 Then Return 0<br />
<br />
Local $Dot_Split = StringSplit($sString, ".")<br />
<br />
Local $iUbound = UBound($Dot_Split) - 1<br />
<br />
If $iUbound <> 4 Then Return 0<br />
<br />
For $i = 1 To $iUbound<br />
If $Dot_Split[$i] = "" Then Return 0<br />
If StringRegExp($Dot_Split[$i], '[^0-9]') Or Number($Dot_Split[$i]) > 255 Then Return 0<br />
Next<br />
<br />
If $sDelim <> "" Then Return $sString<br />
Return 1<br />
EndFunc<br />
<br />
Func _StringToIPArray($sString)<br />
Local $avArray = StringRegExp($sString, '([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)', 3)<br />
Local $avRetArr[1], $iUbound<br />
<br />
For $i = 0 To UBound($avArray)-1<br />
If _IsValidIP($avArray[$i]) Then<br />
$iUbound = UBound($avRetArr)<br />
ReDim $avRetArr[$iUbound+1]<br />
$avRetArr[$iUbound] = $avArray[$i]<br />
EndIf<br />
Next<br />
<br />
If $iUbound = 0 Then Return SetError(1, 0, 0)<br />
<br />
$avRetArr[0] = $iUbound<br />
Return $avRetArr<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidSubnetMask ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
Local $aSubnetMaskIP1[] = [255,255,255,0]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsSubnetMaskValid($aSubnetMaskIP1) & @CRLF)<br />
<br />
Local $aSubnetMaskIP2[] = [255,248,0,0]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsSubnetMaskValid($aSubnetMaskIP2) & @CRLF)<br />
<br />
Local $aSubnetMaskIP3[] = [255,255,255,1]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsSubnetMaskValid($aSubnetMaskIP3) & @CRLF)<br />
<br />
Func _IsSubnetMaskValid($aIP)<br />
If Not UBound($aIP)=4 Then Return SetError(1,0,False) ;Validate Input (4 element array)<br />
<br />
Local $hIP = "", $sHex = "", $iSubnetDec = 0, $bIsValid = False ;Define Local Variables<br />
For $iX = 0 To 3 ;Convert Subnetmask into Hex<br />
$sHex &= Hex($aIP[$iX], 2)<br />
Next<br />
<br />
$hIP &= Dec($sHex, 2) ;Convert SubnetHex into Dec<br />
<br />
For $iX = 0 To 32 ;Validate Subnet mask congruity with bit logic<br />
If (((2 ^ 32) - 1) - ((2 ^ $iX) - 1)) = $hIP Then<br />
$bIsValid = True<br />
ExitLoop<br />
EndIf<br />
Next<br />
<br />
Return $bIsValid<br />
EndFunc ;==>_IPSubnetMaskIsValid<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidURL ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 44525-jscript<br />
| AuthorName = JScript<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
;Author: JScript - Snippet Version No. = 1.0<br />
;Snippet was Created Using AutoIt Version = 3.3.8.1, Creation Date = 22/05/12.<br />
<br />
ConsoleWrite("Is Valid URL? " & _IsValidURL("http:www.autoitscript.com") & @CRLF)<br />
ConsoleWrite("Is Valid URL? " & _IsValidURL("www.autoitscript.com") & @CRLF)<br />
<br />
Func _IsValidURL($sPath)<br />
Local Const $sRet = DllCall("Shlwapi.dll", "BOOL", "PathIsURL", "str", $sPath)<br />
Return $sRet[0]<br />
EndFunc ;==>_IsValidURL<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _Toggle_Images ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 8730-big-daddy<br />
| AuthorName = big_daddy<br />
| Desc = Toggle Internet Images On/Off<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Toggle Internet Images On/Off<br />
<br />
#include <IE.au3><br />
<br />
Opt("WinTitleMatchMode", 2)<br />
<br />
_Toggle_Images(1)<br />
Global Const $oIE = _IECreate ()<br />
<br />
_IENavigate ($oIE, "http:\\www.google.com")<br />
<br />
While WinExists("Internet Explorer")<br />
Sleep(250)<br />
WEnd<br />
_Toggle_Images()<br />
<br />
Func _Toggle_Images($On_Off=0)<br />
If $On_Off == 0 Then<br />
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "yes")<br />
Else<br />
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "no")<br />
EndIf<br />
EndFunc ;==>_Toggle_Images()<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _Tracert ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_Tracert("www.duckduckgo.com") & @CRLF)<br />
<br />
Func _Tracert(Const $sURL)<br />
; -d = Do Not Resolve Host & -h Is The Number Of Hops.<br />
Local Const $sData = _RunStdOutRead('tracert -d -h 1 ' & $sURL, @SystemDir)<br />
<br />
Local Const $aReturn = StringRegExp($sData, '\[([\d.]{7,15})\]', 3)<br />
<br />
If @error Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
Return $aReturn[0]<br />
EndFunc ;==>_Tracert<br />
<br />
Func _RunStdOutRead($sCommand, $sWorkingDirectory = @SystemDir)<br />
Local Const $iPID = Run(@ComSpec & ' /c ' & $sCommand, $sWorkingDirectory, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sOutput = ''<br />
<br />
While 1<br />
$sOutput &= StdoutRead($iPID)<br />
<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Return $sOutput<br />
EndFunc ;==>_RunStdOutRead<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _ValidIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 58912-brewmannh<br />
| AuthorName = BrewManNH<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Array.au3> ; This is only needed for the _ArrayDisplay function used in the example below, and is not needed for the _ValidIP function<br />
<br />
; IPv4 validation script<br />
Global Const $IPAddress = "192.168.2.1"<br />
<br />
Global Const $Return = _ValidIP($IPAddress)<br />
<br />
If $Return < 0 Then<br />
Switch @error<br />
Case 1<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 1 - IP address starts with an invalid number = 0, 127 , 169 or is > 239")<br />
Case 2<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 2 - one of the octets of the IP address is out of the range 0-255 or contains invalid characters")<br />
Case 3<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 3 - IP Address is not a valid dotted IP address (ex. valid address 190.40.100.20)")<br />
Case 4<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 4 - Last octet is either 0 or 255")<br />
EndSwitch<br />
Else<br />
MsgBox(48, "", $IPAddress & " is a valid Class " & $Return[5] & " IP address")<br />
_ArrayDisplay($Return)<br />
EndIf<br />
<br />
; FUNCTION# ===========================================================================================================<br />
; Name...........: _ValidIP<br />
; Description ...: Verifies whether an IP address is a valid IPv4 address or not<br />
; Syntax.........: _ValidIP($sIP)<br />
; Parameters ....: $sIP - IP address to validate<br />
;<br />
; Return values .: Success - Array containing split IP Address, IP address in Hex, and the Class of the IP address<br />
; array[0] - [3] = the IP address split into octets<br />
; array[4] = IP address in Hex<br />
; array[5] = Class of the IP address [A through D]<br />
; Failure - -1, sets @error<br />
; |1 - IP address starts with an invalid number = 0, 127 , 169 or is > 239<br />
; |2 - one of the octets of the IP address is out of the range 0-255 or contains invalid characters<br />
; |3 - IP Address is not a valid dotted IP address (ex. valid address 190.40.100.20)<br />
; |4 - Last octet ends in 0 or 255 which are invalid for an IP address<br />
; Author ........: BrewManNH<br />
; Modified.......:<br />
; Remarks .......: This will accept an IP address that is 4 octets long, and contains only numbers and falls within<br />
; valid IP address values. Class A networks can't start with 0 or 127. 169.xx.xx.xx is reserved and is<br />
; invalid and any address that starts above 239, ex. 240.xx.xx.xx is reserved. The address range<br />
; 224-239 1s reserved as well for Multicast groups but can be a valid IP address range if you're using<br />
; it as such. Any IP address ending in 0 or 255 is also invalid for an IP<br />
; Related .......:<br />
; Link ..........:<br />
; Example .......: Yes<br />
; =====================================================================================================================<br />
Func _ValidIP($sIP)<br />
Local $adIPAddressInfo[6]<br />
<br />
Local $aArray = StringSplit($sIP, ".", 2)<br />
<br />
If Not IsArray($aArray) Or UBound($aArray) <> 4 Then Return SetError(3, 0, -1)<br />
<br />
Local $dString = "0x"<br />
<br />
If $aArray[0] <= 0 Or $aArray[0] > 239 Or $aArray[0] = 127 Or $aArray[0] = 169 Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
For $I = 0 To 3<br />
If $I < 3 Then<br />
If $aArray[$I] < 0 Or $aArray[$I] > 255 Or Not StringIsDigit($aArray[$I]) Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
Else<br />
If Not StringIsDigit($aArray[$I]) Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
<br />
If $aArray[$I] < 1 Or $aArray[$I] > 254 Then<br />
Return SetError(4, 0, -1)<br />
EndIf<br />
EndIf<br />
<br />
$dString &= StringRight(Hex($aArray[$I]), 2)<br />
<br />
$adIPAddressInfo[$I] = $aArray[$I]<br />
Next<br />
<br />
$adIPAddressInfo[4] = $dString<br />
<br />
Switch $aArray[0]<br />
Case 1 To 126<br />
$adIPAddressInfo[5] = "A"<br />
Return $adIPAddressInfo<br />
Case 128 To 191<br />
$adIPAddressInfo[5] = "B"<br />
Return $adIPAddressInfo<br />
Case 192 To 223<br />
$adIPAddressInfo[5] = "C"<br />
Return $adIPAddressInfo<br />
Case 224 To 239<br />
$adIPAddressInfo[5] = "D"<br />
Return $adIPAddressInfo<br />
EndSwitch<br />
EndFunc ;==>_ValidIP<br />
</syntaxhighlight></div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_Internet_)&diff=13652
Snippets ( Internet )
2017-06-30T04:43:46Z
<p>Spudw2k: </p>
<hr />
<div>__TOC__<br />
<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== Auto-Check For User To Update ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 4920-valuater<br />
| AuthorName = Valuater<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Auto-Check For User To Update<br />
<br />
Global $Udif, $QT_web = "www.XPCleanMenu.HostRocket.com"<br />
Call("Set_Updater")<br />
<br />
;test<br />
$Uask = MsgBox(68, "Update Notification", " Your last update was more than " & $Udif & " days ago." & @CRLF & @CRLF & "Would you like to check for new updates now?")<br />
<br />
If $Uask = 6 Then MsgBox(0, "", "Success. The update was ran.")<br />
<br />
Func Set_Updater()<br />
If Not FileExists(@SystemDir & "\UpDate.dat") Then<br />
FileWrite(@SystemDir & "\UpDate.dat", @YDAY)<br />
Else<br />
$Uold = FileReadLine(@SystemDir & "\UpDate.dat", 1)<br />
<br />
If $Uold >=320 Then<br />
FileDelete(@SystemDir & "\UpDate.dat")<br />
Return<br />
EndIf<br />
<br />
$Udif = @YDAY - $Uold<br />
<br />
If $Udif >= 45 Then<br />
$Uask = MsgBox(68, "UpDate Notification", " Your last UpDate was more than " & $Udif & " days ago " & @CRLF & @CRLF & "Would you like to check for new updates now? " & @CRLF & @CRLF)<br />
<br />
If $Uask = 6 Then<br />
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $QT_web)<br />
WinWaitActive("")<br />
EndIf<br />
<br />
FileDelete(@SystemDir & "\UpDate.dat")<br />
<br />
FileWrite(@SystemDir & "\UpDate.dat", @YDAY)<br />
EndIf<br />
EndIf<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _GetIEVersion ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Check IE Version.<br />
ConsoleWrite(_GetIEVersion() & @CRLF)<br />
<br />
Func _GetIEVersion()<br />
Return StringRegExpReplace(RegRead('HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\', 'Version'), '^(\d+\.\d+).*', '$1')<br />
EndFunc ;==>_GetIEVersion<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _GetTimeOnline ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
| Desc = Retrieve the current time from TimeAPI.org. Ideal if your Windows clock is out of sync.<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Retrieve the current time from TimeAPI.org. Ideal if your Windows clock is out of sync.<br />
ConsoleWrite(_GetTimeOnline(0) & @CRLF) ; TimeZone UTC.<br />
<br />
; #FUNCTION# ====================================================================================================================<br />
; Name ..........: _GetTimeOnline<br />
; Description ...: Retrieve the current date and time from TimeAPI.org.<br />
; Syntax ........: _GetTimeOnline($iTimeZone)<br />
; Parameters ....: $iTimeZone - An integer value of the timezone .<br />
; 0 - UTC (Universal Time)<br />
; 1 - EST (Eastern Time)<br />
; 2 - CST (Central Time)<br />
; 3 - MST (Mountain Time)<br />
; 4 - PST (Pacific Time)<br />
; 5 - AKST (Alaska Time)<br />
; 6 - HAST (Hawaii-Aleutian Time)<br />
; Return values .: Success: Returns the current Date and Time in the format YYYY/MM/DD HH:MM:SS<br />
; Failure: Sets @error to non-zero and returns the same format as a successful return but using the system time.<br />
; Author ........: guinness<br />
; Link ..........: According to http://www.programmableweb.com/api/timeapi, this is for non-commercial use.<br />
; Example .......: Yes<br />
; ===============================================================================================================================<br />
Func _GetTimeOnline($iTimeZone)<br />
Local $aTimeZone[7] = ['utc', 'est', 'cst', 'mst', 'pst', 'akst', 'hast']<br />
<br />
Local $sRead = BinaryToString(InetRead('http://www.timeapi.org/' & $aTimeZone[$iTimeZone] & '/now?format=\Y/\m/\d%20\H:\M:\S'))<br />
<br />
If @error Then<br />
Return SetError(1, 0, @YEAR & '/' & @MON & '/' & @MDAY & ' ' & @HOUR & ':' & @MIN & ':' & @SEC)<br />
EndIf<br />
<br />
Return $sRead<br />
EndFunc ;==>_GetTimeOnline<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _HTML_StripTags ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 25246-robjong<br />
| AuthorName = Robjong<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
MsgBox(4096, "", _HTML_StripTags("This should be # - (&#35;)"))<br />
<br />
; Strip HTML tags from HTML syntax. By Robjong.<br />
Func _HTML_StripTags($sHTMLData) ; http://www.autoitscript.com/forum/topic/...tml-data/page__view__findpost_<br />
If $sHTMLData = "" Then Return SetError(1, 0, $sHTMLData)<br />
<br />
Local $oHTML = ObjCreate("HTMLFILE")<br />
<br />
If @error Then Return SetError(1, 0, $sHTMLData)<br />
<br />
$oHTML.Open()<br />
$oHTML.Write($sHTMLData)<br />
<br />
Return SetError(0, 0, $oHTML.Body.InnerText)<br />
EndFunc ;==>_HTML_StripTags<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _InetGetOutOfProcess ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_InetGetOutOfProcess('http://google.com', @TempDir & '\Google.tmp') & @CRLF)<br />
<br />
; Download a file by spawning a new AutoIt process.<br />
Func _InetGetOutOfProcess($sURL, $sFilePath, $iOptions = 0)<br />
Return RunWait('"' & @AutoItExe & '" /AutoIt3ExecuteLine ' & '"Exit InetGet(""' & $sURL & '"", ""' & $sFilePath & '"", ' & $iOptions & ', 0)"') > 0<br />
EndFunc ;==>_InetGetOutOfProcess<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsInternetConnected ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite("Internet Is Connected" & " = " & _IsInternetConnected() & @CRLF) ; ( Returns "True" Or "False" )<br />
<br />
Func _IsInternetConnected()<br />
Local $aReturn = DllCall('connect.dll', 'long', 'IsInternetConnected')<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 0<br />
EndFunc ;==>_IsInternetConnected<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 30100-jguinch<br />
| AuthorName = jguinch<br />
| Desc = Checks to see if a string is a valid IP address.<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
;Checks to see if a string is a valid IP address.<br />
<br />
If _IsIP("127.0.0.1") Then Msgbox(0, "", "Valid IP address.")<br />
<br />
Func _IsIP($ip)<br />
Return StringRegExp ($ip, "^(?:(25[0-5]|2[0-4]\d|1\d{2}|[1-9]?\d)\.){3}(?1)$")<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsSubnetMaskValid ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
Local $aSubnetMaskIP1[] = [255,255,255,0]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsSubnetMaskValid($aSubnetMaskIP1) & @CRLF)<br />
<br />
Local $aSubnetMaskIP2[] = [255,248,0,0]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsSubnetMaskValid($aSubnetMaskIP2) & @CRLF)<br />
<br />
Local $aSubnetMaskIP3[] = [255,255,255,1]<br />
ConsoleWrite("Is SubnetMask Valid: " & _IsSubnetMaskValid($aSubnetMaskIP3) & @CRLF)<br />
<br />
Func _IsSubnetMaskValid($aIP)<br />
If Not UBound($aIP)=4 Then Return SetError(1,0,False) ;Validate Input (4 element array)<br />
<br />
Local $hIP = "", $sHex = "", $iSubnetDec = 0, $bIsValid = False ;Define Local Variables<br />
For $iX = 0 To 3 ;Convert Subnetmask into Hex<br />
$sHex &= Hex($aIP[$iX], 2)<br />
Next<br />
<br />
$hIP &= Dec($sHex, 2) ;Convert SubnetHex into Dec<br />
<br />
For $iX = 0 To 32 ;Validate Subnet mask congruity with bit logic<br />
If (((2 ^ 32) - 1) - ((2 ^ $iX) - 1)) = $hIP Then<br />
$bIsValid = True<br />
ExitLoop<br />
EndIf<br />
Next<br />
<br />
Return $bIsValid<br />
EndFunc ;==>_IPSubnetMaskIsValid<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 20477-mrcreator<br />
| AuthorName = MrCreatoR<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Array.au3><br />
<br />
Local Const $sString = @IPAddress2 & ":8080" ;8080 is port value (for example)<br />
<br />
Local Const $GetValidIp = _IsValidIP($sString, ":")<br />
<br />
ConsoleWrite($GetValidIp)<br />
<br />
Local $IPsArray = _StringToIPArray('99.77.88.255 567567567 text 155.99.66.6 some more text ' & @IPAddress1 & ',' & @IPAddress2)<br />
<br />
_ArrayDisplay($IPsArray)<br />
<br />
Func _IsValidIP($sString, Const $sDelim = "")<br />
If Not StringInStr($sString, ".") Then Return 0<br />
<br />
If $sDelim <> "" Then $sString = StringLeft($sString, StringInStr($sString, $sDelim) - 1)<br />
<br />
If StringLen($sString) > 15 Then Return 0<br />
<br />
Local $Dot_Split = StringSplit($sString, ".")<br />
<br />
Local $iUbound = UBound($Dot_Split) - 1<br />
<br />
If $iUbound <> 4 Then Return 0<br />
<br />
For $i = 1 To $iUbound<br />
If $Dot_Split[$i] = "" Then Return 0<br />
If StringRegExp($Dot_Split[$i], '[^0-9]') Or Number($Dot_Split[$i]) > 255 Then Return 0<br />
Next<br />
<br />
If $sDelim <> "" Then Return $sString<br />
Return 1<br />
EndFunc<br />
<br />
Func _StringToIPArray($sString)<br />
Local $avArray = StringRegExp($sString, '([0-9]+\.[0-9]+\.[0-9]+\.[0-9]+)', 3)<br />
Local $avRetArr[1], $iUbound<br />
<br />
For $i = 0 To UBound($avArray)-1<br />
If _IsValidIP($avArray[$i]) Then<br />
$iUbound = UBound($avRetArr)<br />
ReDim $avRetArr[$iUbound+1]<br />
$avRetArr[$iUbound] = $avArray[$i]<br />
EndIf<br />
Next<br />
<br />
If $iUbound = 0 Then Return SetError(1, 0, 0)<br />
<br />
$avRetArr[0] = $iUbound<br />
Return $avRetArr<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _IsValidURL ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 44525-jscript<br />
| AuthorName = JScript<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
;Author: JScript - Snippet Version No. = 1.0<br />
;Snippet was Created Using AutoIt Version = 3.3.8.1, Creation Date = 22/05/12.<br />
<br />
ConsoleWrite("Is Valid URL? " & _IsValidURL("http:www.autoitscript.com") & @CRLF)<br />
ConsoleWrite("Is Valid URL? " & _IsValidURL("www.autoitscript.com") & @CRLF)<br />
<br />
Func _IsValidURL($sPath)<br />
Local Const $sRet = DllCall("Shlwapi.dll", "BOOL", "PathIsURL", "str", $sPath)<br />
Return $sRet[0]<br />
EndFunc ;==>_IsValidURL<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _Toggle_Images ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 8730-big-daddy<br />
| AuthorName = big_daddy<br />
| Desc = Toggle Internet Images On/Off<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Toggle Internet Images On/Off<br />
<br />
#include <IE.au3><br />
<br />
Opt("WinTitleMatchMode", 2)<br />
<br />
_Toggle_Images(1)<br />
Global Const $oIE = _IECreate ()<br />
<br />
_IENavigate ($oIE, "http:\\www.google.com")<br />
<br />
While WinExists("Internet Explorer")<br />
Sleep(250)<br />
WEnd<br />
_Toggle_Images()<br />
<br />
Func _Toggle_Images($On_Off=0)<br />
If $On_Off == 0 Then<br />
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "yes")<br />
Else<br />
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Display Inline Images", "REG_SZ", "no")<br />
EndIf<br />
EndFunc ;==>_Toggle_Images()<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _Tracert ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_Tracert("www.duckduckgo.com") & @CRLF)<br />
<br />
Func _Tracert(Const $sURL)<br />
; -d = Do Not Resolve Host & -h Is The Number Of Hops.<br />
Local Const $sData = _RunStdOutRead('tracert -d -h 1 ' & $sURL, @SystemDir)<br />
<br />
Local Const $aReturn = StringRegExp($sData, '\[([\d.]{7,15})\]', 3)<br />
<br />
If @error Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
Return $aReturn[0]<br />
EndFunc ;==>_Tracert<br />
<br />
Func _RunStdOutRead($sCommand, $sWorkingDirectory = @SystemDir)<br />
Local Const $iPID = Run(@ComSpec & ' /c ' & $sCommand, $sWorkingDirectory, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sOutput = ''<br />
<br />
While 1<br />
$sOutput &= StdoutRead($iPID)<br />
<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Return $sOutput<br />
EndFunc ;==>_RunStdOutRead<br />
</syntaxhighlight><br />
<br />
[[#top | Return To Contents]]<br />
<br />
== _ValidIP ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 58912-brewmannh<br />
| AuthorName = BrewManNH<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Array.au3> ; This is only needed for the _ArrayDisplay function used in the example below, and is not needed for the _ValidIP function<br />
<br />
; IPv4 validation script<br />
Global Const $IPAddress = "192.168.2.1"<br />
<br />
Global Const $Return = _ValidIP($IPAddress)<br />
<br />
If $Return < 0 Then<br />
Switch @error<br />
Case 1<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 1 - IP address starts with an invalid number = 0, 127 , 169 or is > 239")<br />
Case 2<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 2 - one of the octets of the IP address is out of the range 0-255 or contains invalid characters")<br />
Case 3<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 3 - IP Address is not a valid dotted IP address (ex. valid address 190.40.100.20)")<br />
Case 4<br />
MsgBox(64, "", "Error in IP address: " & $IPAddress & @LF & "Error code is: 4 - Last octet is either 0 or 255")<br />
EndSwitch<br />
Else<br />
MsgBox(48, "", $IPAddress & " is a valid Class " & $Return[5] & " IP address")<br />
_ArrayDisplay($Return)<br />
EndIf<br />
<br />
; FUNCTION# ===========================================================================================================<br />
; Name...........: _ValidIP<br />
; Description ...: Verifies whether an IP address is a valid IPv4 address or not<br />
; Syntax.........: _ValidIP($sIP)<br />
; Parameters ....: $sIP - IP address to validate<br />
;<br />
; Return values .: Success - Array containing split IP Address, IP address in Hex, and the Class of the IP address<br />
; array[0] - [3] = the IP address split into octets<br />
; array[4] = IP address in Hex<br />
; array[5] = Class of the IP address [A through D]<br />
; Failure - -1, sets @error<br />
; |1 - IP address starts with an invalid number = 0, 127 , 169 or is > 239<br />
; |2 - one of the octets of the IP address is out of the range 0-255 or contains invalid characters<br />
; |3 - IP Address is not a valid dotted IP address (ex. valid address 190.40.100.20)<br />
; |4 - Last octet ends in 0 or 255 which are invalid for an IP address<br />
; Author ........: BrewManNH<br />
; Modified.......:<br />
; Remarks .......: This will accept an IP address that is 4 octets long, and contains only numbers and falls within<br />
; valid IP address values. Class A networks can't start with 0 or 127. 169.xx.xx.xx is reserved and is<br />
; invalid and any address that starts above 239, ex. 240.xx.xx.xx is reserved. The address range<br />
; 224-239 1s reserved as well for Multicast groups but can be a valid IP address range if you're using<br />
; it as such. Any IP address ending in 0 or 255 is also invalid for an IP<br />
; Related .......:<br />
; Link ..........:<br />
; Example .......: Yes<br />
; =====================================================================================================================<br />
Func _ValidIP($sIP)<br />
Local $adIPAddressInfo[6]<br />
<br />
Local $aArray = StringSplit($sIP, ".", 2)<br />
<br />
If Not IsArray($aArray) Or UBound($aArray) <> 4 Then Return SetError(3, 0, -1)<br />
<br />
Local $dString = "0x"<br />
<br />
If $aArray[0] <= 0 Or $aArray[0] > 239 Or $aArray[0] = 127 Or $aArray[0] = 169 Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
For $I = 0 To 3<br />
If $I < 3 Then<br />
If $aArray[$I] < 0 Or $aArray[$I] > 255 Or Not StringIsDigit($aArray[$I]) Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
Else<br />
If Not StringIsDigit($aArray[$I]) Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
<br />
If $aArray[$I] < 1 Or $aArray[$I] > 254 Then<br />
Return SetError(4, 0, -1)<br />
EndIf<br />
EndIf<br />
<br />
$dString &= StringRight(Hex($aArray[$I]), 2)<br />
<br />
$adIPAddressInfo[$I] = $aArray[$I]<br />
Next<br />
<br />
$adIPAddressInfo[4] = $dString<br />
<br />
Switch $aArray[0]<br />
Case 1 To 126<br />
$adIPAddressInfo[5] = "A"<br />
Return $adIPAddressInfo<br />
Case 128 To 191<br />
$adIPAddressInfo[5] = "B"<br />
Return $adIPAddressInfo<br />
Case 192 To 223<br />
$adIPAddressInfo[5] = "C"<br />
Return $adIPAddressInfo<br />
Case 224 To 239<br />
$adIPAddressInfo[5] = "D"<br />
Return $adIPAddressInfo<br />
EndSwitch<br />
EndFunc ;==>_ValidIP<br />
</syntaxhighlight></div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_AutoIt_Array_)&diff=13609
Snippets ( AutoIt Array )
2017-03-03T07:30:06Z
<p>Spudw2k: /* _DynEnumArray */</p>
<hr />
<div>__TOC__<br />
<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== _1Dto2DArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
#include <Array.au3><br />
<br />
Global $aArray_1D[2] = ["Data", "Data"]<br />
_ArrayDisplay($aArray_1D)<br />
_1Dto2DArray($aArray_1D)<br />
_ArrayDisplay($aArray_1D)<br />
<br />
Global $aArray_1D[10] = ["Data", "Data", "Data", "Data", "Data", "Data", "Data", "Data", "Data", "Data"]<br />
_ArrayDisplay($aArray_1D)<br />
_1Dto2DArray($aArray_1D, 9)<br />
_ArrayDisplay($aArray_1D)<br />
<br />
Func _1Dto2DArray(ByRef $aArray, Const $iAdditionalColumns = 1)<br />
Local Const $iSize = UBound($aArray, 1)<br />
<br />
Local $aReturn[$iSize][$iAdditionalColumns + 1]<br />
<br />
For $A = 0 To $iSize - 1<br />
$aReturn[$A][0] = $aArray[$A]<br />
Next<br />
<br />
$aArray = $aReturn<br />
<br />
Return $aReturn<br />
EndFunc ;==>_1Dto2DArray<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArrayAddEx ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
#include <Array.au3><br />
<br />
Example_1()<br />
Example_2()<br />
<br />
Func Example_1()<br />
Local $aArray_1[1] = ["Data_0"], $iBegin<br />
<br />
$iBegin = TimerInit() ; Start the timer.<br />
For $i = 1 To 5000<br />
_ArrayAdd($aArray_1, "Data_" & $i)<br />
Next<br />
$iBegin = TimerDiff($iBegin) ; End the timer and find the difference from start to finish.<br />
ConsoleWrite("_ArrayAdd from Array.au3 >> " & $iBegin & @CRLF)<br />
_ArrayDisplay($aArray_1)<br />
EndFunc ;==>Example_1<br />
<br />
Func Example_2()<br />
Local $aArray_2[1] = ["Data_0"], $iBegin, $iDimension, $iCount<br />
<br />
$iBegin = TimerInit() ; Start the timer.<br />
For $i = 1 To 5000<br />
_ArrayAddEx($aArray_2, "Data_" & $i, $iDimension, $iCount) ; $iDimension is the overall size of the array & $iCount is the last index number, because regarding the overall size +1 as the next item will give false results as we're increasing the size of the array not by 1 but multiplying 2.<br />
Next<br />
$iBegin = TimerDiff($iBegin) ; End the timer and find the difference from start to finish.<br />
ConsoleWrite("_ArrayAddEx by guinness >> " & $iBegin & @CRLF)<br />
ReDim $aArray_2[$iCount] ; Remove the empty rows.<br />
_ArrayDisplay($aArray_2)<br />
EndFunc ;==>Example_2<br />
<br />
Func _ArrayAddEx(ByRef $aArray, $sData, ByRef $iDimension, ByRef $iCount) ; Taken from Array.au3 and modified by guinness to reduce the use of ReDim.<br />
If IsArray($aArray) = 0 Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
If UBound($aArray, 0) <> 1 Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
<br />
If $iCount = 0 Then<br />
$iCount = UBound($aArray, 1)<br />
EndIf<br />
<br />
$iCount += 1<br />
If ($iCount + 1) >= $iDimension Then<br />
$iDimension = (UBound($aArray, 1) + 1) * 2<br />
ReDim $aArray[$iDimension]<br />
EndIf<br />
$aArray[$iCount - 1] = $sData<br />
Return $iCount - 1<br />
EndFunc ;==>_ArrayAddEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArrayEmpty ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
|Desc=Creates Empty 1D & 2D Array's<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
#include <Array.au3><br />
<br />
Global $aMain[11] = [10]<br />
_ArrayEmpty($aMain)<br />
_ArrayDisplay($aMain, "Empty 1D Array.")<br />
<br />
Global $aMainEx[11][3] = [[10]]<br />
_ArrayEmpty($aMainEx)<br />
_ArrayDisplay($aMainEx, "Empty 2D Array.")<br />
<br />
Func _ArrayEmpty(ByRef $aArray)<br />
Switch UBound($aArray, 0) ; Dimension, 1D or 2D array are supported.<br />
Case 1<br />
Local $aEmpty1D[1]<br />
$aArray = $aEmpty1D<br />
<br />
Case 2<br />
; Edit by DatMCEyeBall - Instead of emptying the array to [1][$x] we empty it to [$x][$y]<br />
; where $x is the 1st dimensions size and $y the 2nd.<br />
; Previous code was: Local $aEmpty2D[1][UBound($aArray, 2)]<br />
; This way we preserve the arrays' original size.<br />
Local $aEmpty2D[UBound($aArray, 1)][UBound($aArray, 2)]<br />
$aArray = $aEmpty2D<br />
EndSwitch<br />
EndFunc ;==>_ArrayEmpty<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArrayGet ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=31965-progandy<br />
|AuthorName=ProgAndy<br />
|Desc=Easy access for nested arrays up to 20 nested dimensions (including multidimensional arrays)<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
Global $b[2] = ["a", "b"]<br />
Global $a[3][2] = [[0, -1], [$b, "x"], [1, -2]]<br />
<br />
Global $c[5] = [11, 22, 33, 44, 55]<br />
<br />
MsgBox(0, "", _ArrayGet($a, 1, 0, 1) & " # " & @error)<br />
<br />
; #FUNCTION# ====================================================================================================================<br />
; Name ..........: _ArrayGet<br />
; Description ...: Gets a value from a nested multidimensional array<br />
; Syntax ........: _ArrayGet(Byref $aArray, $i1[, $i2 = 0[, $i3 = 0[, $i4 = 0[, $i5 = 0[, $i6 = 0[, $i7 = 0[, $i8 = 0[,<br />
; $i9 = 0[, $i10 = 0[, $i11 = 0[, $i12 = 0[, $i13 = 0[, $i14 = 0[, $i15 = 0[, $i16 = 0[, $i17 = 0[,<br />
; $i18 = 0[, $i19 = 0[, $i20 = 0]]]]]]]]]]]]]]]]]]])<br />
; Parameters ....: $aArray - [in/out] An array of unknowns.<br />
; $i1 - first array index.<br />
; $i2 - [optional] second array index.<br />
; $i3 - [optional] third array index.<br />
; $i4 - [optional] fourth array index.<br />
; $i5 - [optional] fifth array index.<br />
; $i6 - [optional] sixth array index.<br />
; $i7 - [optional] seventh array index.<br />
; $i8 - [optional] eighth array index.<br />
; $i9 - [optional] ninth array index.<br />
; $i10 - [optional] 10th array index.<br />
; $i11 - [optional] 11th array index.<br />
; $i12 - [optional] 12th array index.<br />
; $i13 - [optional] 13th array index.<br />
; $i14 - [optional] 14th array index.<br />
; $i15 - [optional] 15th array index.<br />
; $i16 - [optional] 16th array index.<br />
; $i17 - [optional] 17th array index.<br />
; $i18 - [optional] 18th array index.<br />
; $i19 - [optional] 19th array index.<br />
; $i20 - [optional] 20th array index.<br />
; Return values .: Success: Value at the specified index<br />
; Error: Nothing, Sets @error to:<br />
; |1 - Trying to acces non-array as array<br />
; |2 - Not enough dimensions for the last accessed array<br />
; |3 - Index out of bounds for a dimension<br />
; @extended contains the dimension in error (according to parameter list)<br />
; Author ........: ProgAndy<br />
; Modified ......:<br />
; Remarks .......:<br />
; Related .......:<br />
; Link ..........:<br />
; Example .......: No<br />
; ===============================================================================================================================<br />
Func _ArrayGet(ByRef $aArray, $i1, $i2=0, $i3=0, $i4=0, $i5=0, $i6=0, $i7=0, $i8=0, $i9=0, $i10=0, $i11=0, $i12=0, $i13=0, $i14=0, $i15=0, $i16=0, $i17=0, $i18=0, $i19=0, $i20=0)<br />
#forceref $i1, $i2, $i3, $i4, $i5, $i6, $i7, $i8, $i9, $i10, $i11, $i12, $i13, $i14, $i15, $i16, $i17, $i18, $i19, $i20<br />
; ProgAndy<br />
Local $NULL<br />
If Not IsArray($aArray) Then Return SetError(1, 1, $NULL)<br />
Local $iDims = UBound($aArray, 0)<br />
If @NumParams <= $iDims Then Return SetError(2, @NumParams, $NULL)<br />
Local $sAccess = "$aArray"<br />
For $i = 1 To $iDims<br />
Local $iIndex = Int(Eval("i" & $i))<br />
If $iIndex >= UBound($aArray, $i) Then Return SetError(3, $i, $NULL)<br />
$sAccess &= '[' & $iIndex & ']'<br />
Next<br />
If @NumParams-1 > $iDims Then ; Still indices left<br />
For $i = $iDims+1 To @NumParams-1<br />
$sAccess &= ", $i" & $i<br />
Next<br />
Local $vResult = Execute("_ArrayGet(" & $sAccess & ")")<br />
If @error Then SetError(@error, @extended+$iDims)<br />
Return $vResult<br />
Else ;<br />
Return Execute($sAccess)<br />
EndIf<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArraySet ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=31965-progandy<br />
|AuthorName=ProgAndy<br />
|Desc=Easy access for nested arrays up to 20 nested dimensions (including multidimensional arrays)<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
Global $b[2] = ['a', 'b'<br />
Global $a[3][2] = [[0, -1], [$b, "x"], [1, -2]]<br />
<br />
Global $c[5] = [11, 22, 33, 44, 55]<br />
<br />
_ArraySet($a, $c, 1, 0, 0)<br />
<br />
; #FUNCTION# ====================================================================================================================<br />
; Name ..........: _ArraySet<br />
; Description ...: Sets a value from a nested multidimensional array<br />
; Syntax ........: _ArraySet(Byref $aArray, $vValue, $i1[, $i2 = 0[, $i3 = 0[, $i4 = 0[, $i5 = 0[, $i6 = 0[, $i7 = 0[, $i8 = 0[,<br />
; $i9 = 0[, $i10 = 0[, $i11 = 0[, $i12 = 0[, $i13 = 0[, $i14 = 0[, $i15 = 0[, $i16 = 0[, $i17 = 0[,<br />
; $i18 = 0[, $i19 = 0[, $i20 = 0]]]]]]]]]]]]]]]]]]])<br />
; Parameters ....: $aArray - [in/out] An array of unknowns.<br />
; $vValue - value to set at specified index.<br />
; $i1 - first array index.<br />
; $i2 - [optional] second array index.<br />
; $i3 - [optional] third array index.<br />
; $i4 - [optional] fourth array index.<br />
; $i5 - [optional] fifth array index.<br />
; $i6 - [optional] sixth array index.<br />
; $i7 - [optional] seventh array index.<br />
; $i8 - [optional] eighth array index.<br />
; $i9 - [optional] ninth array index.<br />
; $i10 - [optional] 10th array index.<br />
; $i11 - [optional] 11th array index.<br />
; $i12 - [optional] 12th array index.<br />
; $i13 - [optional] 13th array index.<br />
; $i14 - [optional] 14th array index.<br />
; $i15 - [optional] 15th array index.<br />
; $i16 - [optional] 16th array index.<br />
; $i17 - [optional] 17th array index.<br />
; $i18 - [optional] 18th array index.<br />
; $i19 - [optional] 19th array index.<br />
; $i20 - [optional] 20th array index.<br />
; Return values .: Success: True<br />
; Error: False, Sets @error to:<br />
; |1 - Trying to acces non-array as array<br />
; |2 - Not enough dimensions for the last accessed array<br />
; |3 - Index out of bounds for a dimension<br />
; |all: - @extended contains the dimension in error (according to parameter list)<br />
; Author ........: ProgAndy<br />
; Modified ......:<br />
; Remarks .......:<br />
; Related .......:<br />
; Link ..........:<br />
; Example .......: No<br />
; ===============================================================================================================================<br />
Func _ArraySet(ByRef $aArray, Const $vValue, $i1, $i2=0, $i3=0, $i4=0, $i5=0, $i6=0, $i7=0, $i8=0, $i9=0, $i10=0, $i11=0, $i12=0, $i13=0, $i14=0, $i15=0, $i16=0, $i17=0, $i18=0, $i19=0, $i20=0)<br />
; ProgAndy<br />
Local Const $NULL = False<br />
<br />
If Not IsArray($aArray) Then Return SetError(1, 1, $NULL)<br />
<br />
Local $iDims = UBound($aArray, 0)<br />
<br />
If @NumParams-2 < $iDims Then Return SetError(2, @NumParams-1, $NULL)<br />
<br />
Local $sAccess = "$aArray"<br />
<br />
For $i = 1 To $iDims<br />
Local $iIndex = Int(Eval("i" & $i))<br />
If $iIndex >= UBound($aArray, $i) Then Return SetError(3, $i, $NULL)<br />
$sAccess &= '[' & $iIndex & ']'<br />
Next<br />
<br />
If @NumParams-2 > $iDims Then<br />
$sAccess &= ", $vValue"<br />
For $i = $iDims+1 To @NumParams-2<br />
$sAccess &= ", $i" & $i<br />
Next<br />
Local $fSuccess = Execute("_ArraySet(" & $sAccess & ")")<br />
If @error Then SetError(@error, @extended+$iDims)<br />
Return $fSuccess<br />
EndIf<br />
<br />
Switch $iDims<br />
Case 1<br />
$aArray[$i1] = $vValue<br />
Case 2<br />
$aArray[$i1][$i2] = $vValue<br />
Case 3<br />
$aArray[$i1][$i2][$i3] = $vValue<br />
Case 4<br />
$aArray[$i1][$i2][$i3][$i4] = $vValue<br />
Case 5<br />
$aArray[$i1][$i2][$i3][$i4][$i5] = $vValue<br />
Case 6<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6] = $vValue<br />
Case 7<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7] = $vValue<br />
Case 8<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8] = $vValue<br />
Case 9<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9] = $vValue<br />
Case 10<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10] = $vValue<br />
Case 11<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11] = $vValue<br />
Case 12<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12] = $vValue<br />
Case 13<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13] = $vValue<br />
Case 14<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14] = $vValue<br />
Case 15<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15] = $vValue<br />
Case 16<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16] = $vValue<br />
Case 17<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16][$i17] = $vValue<br />
Case 18<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16][$i17][$i18] = $vValue<br />
Case 19<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16][$i17][$i18][$i19] = $vValue<br />
Case 20<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16][$i17][$i18][$i19][$i20] = $vValue<br />
EndSwitch<br />
<br />
Return True<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArrayLength ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
Global $aArray[2][50]<br />
ConsoleWrite(_ArrayLength($aArray, 2) & @CRLF) ;= > 10 - Total items<br />
ConsoleWrite(_ArrayLength($aArray, 1) & @CRLF) ;= > 5 - Columns<br />
ConsoleWrite(_ArrayLength($aArray, 0) & @CRLF) ;= > 2 - Rows<br />
<br />
ConsoleWrite(@CRLF)<br />
<br />
Global $aArray[2]<br />
ConsoleWrite(_ArrayLength($aArray, 2) & @CRLF) ;= > 2 - Total items<br />
ConsoleWrite(_ArrayLength($aArray, 1) & @CRLF) ;= > 1 - Columns<br />
ConsoleWrite(_ArrayLength($aArray, 0) & @CRLF) ;= > 2 - Rows<br />
<br />
Func _ArrayLength($aArray, $iType = 1)<br />
Local $iDim = UBound($aArray, 0)<br />
<br />
If $iDim < 0 Or $iDim > 2 Then ; If not a 1D or 2D Array, then return -1 and set @error to non-zero.<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
Switch $iType<br />
Case 2<br />
If $iDim = 2 Then<br />
Return UBound($aArray, 2) * UBound($aArray, 1)<br />
Else<br />
Return UBound($aArray, 1)<br />
EndIf<br />
<br />
Case 1<br />
If $iDim = 2 Then<br />
Return UBound($aArray, 2)<br />
Else<br />
Return 1<br />
EndIf<br />
<br />
Case Else<br />
Return UBound($aArray, 1)<br />
EndSwitch<br />
EndFunc ;==>_ArrayLength<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArraySortNum ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=4813-smoke-n<br />
|AuthorName=SmOke_N<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
; ArraySortNum(ByRef $nArray, $Ascending = 0, $Start = 1)<br />
; Sorts arrays based on TRUE Numerical Order, including Decimals<br />
<br />
#include <Array.au3><br />
<br />
; Example sort Array created with StringSplit.<br />
Global $avArray = StringSplit("6,8,10,4,2,13,12,129,106.1,106.4", ",")<br />
<br />
_ArraySortNum($avArray, 1)<br />
_ArrayDisplay($avArray, "Sorted Desc starting at 1")<br />
<br />
Func _ArraySortNum(ByRef $nArray, $Ascending = 0, $Start = 1)<br />
For $i = $Start To UBound($nArray) - 2<br />
Local $SE = $i<br />
<br />
If $Ascending = 0 Then<br />
For $x = $i To UBound($nArray) - 1<br />
If Number($nArray[$SE]) < Number($nArray[$x]) Then $SE = $x<br />
Next<br />
Else<br />
For $x = $i To UBound($nArray) - 1<br />
If Number($nArray[$SE]) > Number($nArray[$x]) Then $SE = $x<br />
Next<br />
EndIf<br />
<br />
Local $HLD = $nArray[$i]<br />
<br />
$nArray[$i] = $nArray[$SE]<br />
<br />
$nArray[$SE] = $HLD<br />
Next<br />
EndFunc ;==>_ArraySortNum<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _AssocArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=31149-milesahead<br />
|AuthorName=MilesAhead<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
; use Scripting.Dictionary object for simple associative arrays<br />
; with string keys. Key comparisons are case insensitive.<br />
<br />
Global $myArray<br />
$myArray = _AssocArray()<br />
If @error Then<br />
MsgBox(0x1010,"_AssocArray() Error", "Error Creating Associative Array!")<br />
Exit<br />
EndIf<br />
<br />
$myArray("AntiqueWhite") = 0xFAEBD7<br />
$myArray("Black") = 0x000000<br />
$myArray("Blue") = 0x0000FF<br />
$myArray("Brown") = 0xA52A2A<br />
$myArray("CadetBlue") = 0x5F9EA0<br />
$myArray("Chocolate") = 0xD2691E<br />
$myArray("Coral") = 0xFF7F50<br />
<br />
MsgBox(0x1040,"","Hex for Chocolate Color is: 0x" & Hex($myArray("Chocolate"),6))<br />
_AssocArrayDestroy($myArray)<br />
<br />
Func _AssocArray()<br />
Local $aArray = ObjCreate("Scripting.Dictionary")<br />
<br />
If @error Then<br />
Return SetError(1, 0, 0)<br />
EndIf<br />
<br />
$aArray.CompareMode = 1<br />
<br />
Return $aArray<br />
EndFunc ;==>_AssocArray<br />
<br />
Func _AssocArrayDestroy(ByRef $aArray)<br />
If Not IsObj($aArray) Then<br />
Return False<br />
EndIf<br />
$aArray.RemoveAll()<br />
$aArray = 0<br />
Return True<br />
EndFunc ;==>_AssocArrayDestroy<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _DynEnumArray ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
Func _DynEnumArray($aArrayToEnum)<br />
Local $aDims[1][2]=[["ElementIdx","ElementCount"]] ;Create an Array to Track Dimensions and Elements<br />
For $iX = 1 to UBound($aArrayToEnum,0)<br />
ReDim $aDims[$iX+1][2]<br />
$aDims[$iX][0]=0<br />
$aDims[$iX][1]=UBound($aArrayToEnum,$iX)<br />
Next<br />
Do ;Loop Through Array Elements<br />
$sArray = "$aArrayToEnum"<br />
For $iX = 1 to UBound($aDims)-1<br />
$sArray &= "[" & $aDims[$iX][0] & "]"<br />
Next<br />
ConsoleWrite($sArray & " " & Execute($sArray) & @CRLF) ;Output Subscript and Value<br />
<br />
$aDims[UBound($aDims)-1][0] += 1 ;Increment Last Dimension Element<br />
For $iY = UBound($aDims)-2 To 1 Step -1 ;Increment Dimension Element<br />
If $aDims[$iY+1][0] = $aDims[$iY+1][1] Then<br />
$aDims[$iY+1][0]=0<br />
$aDims[$iY][0]+=1<br />
EndIf<br />
Next<br />
<br />
Until $aDims[1][0]=$aDims[1][1]<br />
Return ConsoleWrite(@CRLF)<br />
EndFunc<br />
<br />
;Demos<br />
Local $aArray[5]=["Never","Gonna","Give","You","Up"]<br />
_DynEnumArray($aArray)<br />
<br />
Local $aArray[6][2]=[["Penn", "Teller"],["Gilbert", "Sullivan"],["Sonny", "Cher"],["Stone", "Parker"],["Fischbacher", "Horn"],["Plant", "Page"]]<br />
_DynEnumArray($aArray)<br />
<br />
Local $aArray[2][3][2]=[[["All","Your"],["Base","Are"],["Belong","To Us"]],[["Is","This"],["The","Way"],["Back","Home"]]]<br />
_DynEnumArray($aArray)<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _FuncListToArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=52-geosoft<br />
|AuthorName=GEOSoft<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
$aFlist = _FuncListToArray(@ScriptFullPath)<br />
If NOT @Error Then<br />
For $i = 0 To Ubound($aFlist) -1<br />
MsgBox(0, "TEST", $aFlist[$i], 2)<br />
Next<br />
EndIf<br />
<br />
Func _FuncListToArray($sStr)<br />
If FileExists($sStr) Then $sStr = FileRead($sStr)<br />
Local $sRegEx = "(?i)(?m:^|\n)\s*Func\s+(\w+)\s*\("<br />
$aRegEx = StringRegExp($sStr, $sRegEx, 3)<br />
If IsArray($aRegEx) Then Return $aRegEx<br />
Return SetError(1)<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== Identify Duplicate Values In Arrays ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=1967-garyfrost<br />
|AuthorName=GaryFrost<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
; Identify Duplicate Values In Arrays<br />
#include <Array.au3><br />
<br />
Global $a1[3] = [1, 2, 3], $a2[5] = [5, 6, 7, 8, 9], $a3[2] = [3, 5]<br />
Global $a_a[4] = [3, $a1, $a2, $a3]<br />
MsgBox(0, "Dupes?", _SearchForDupes($a_a))<br />
<br />
Func _SearchForDupes($a_arrays, $i_ReturnType = 0)<br />
Local $Dupes[1] = [0]<br />
<br />
If $a_arrays[0] < 2 Then Return ''<br />
<br />
For $i = 1 To $a_a[0] - 1<br />
For $j = $i + 1 To $a_a[0]<br />
_FindDupe($a_a[$i], $a_a[$j], $Dupes)<br />
Next<br />
Next<br />
<br />
If $Dupes[0] = 0 Then Return ''<br />
<br />
_ArraySort($Dupes)<br />
<br />
If Not $i_ReturnType Then<br />
Local $s_return = ''<br />
<br />
For $x = 1 To $Dupes[0]<br />
$s_return &= $Dupes[$x] & ','<br />
Next<br />
Return StringTrimRight($s_return, 1)<br />
Else<br />
Return $Dupes<br />
EndIf<br />
EndFunc ;==>_SearchForDupes<br />
<br />
Func _FindDupe(ByRef $a_array01, ByRef $a_array02, ByRef $Dupes)<br />
Local $found = False<br />
<br />
For $i = 0 To UBound($a_array01) - 1<br />
For $j = 0 To UBound($a_array02) - 1<br />
If $a_array01[$i] = $a_array02[$j] Then<br />
$found = False<br />
<br />
For $x = 1 To $Dupes[0]<br />
If $Dupes[$x] = $a_array01[$i] Then<br />
$found = True<br />
ExitLoop<br />
EndIf<br />
Next<br />
<br />
If Not $found Then<br />
$Dupes[0] += 1<br />
ReDim $Dupes[$Dupes[0] + 1]<br />
$Dupes[$Dupes[0]] = $a_array01[$i]<br />
EndIf<br />
EndIf<br />
Next<br />
Next<br />
EndFunc ;==>_FindDupe<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _Is1DArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit">Local $sString = 'String'<br />
Local $a1DArray[2] = [1, 'Row_1']<br />
Local $a2DArray[2][2] = [[1],['Row_1: Col_1', 'Row_1: Col_2']]<br />
<br />
ConsoleWrite('Is the variable $sString a 1D Array?: ' & _Is1DArray($sString) & @CRLF)<br />
ConsoleWrite('Is the variable $a1DArray a 1D Array?: ' & _Is1DArray($a1DArray) & @CRLF)<br />
ConsoleWrite('Is the variable $a2DArray a 1D Array?: ' & _Is1DArray($a2DArray) & @CRLF)<br />
<br />
; Check if a variable is a 1D Array.<br />
Func _Is1DArray(ByRef Const $aArray)<br />
Return UBound($aArray) And (UBound($aArray, 0) = 1)<br />
EndFunc ;==>_Is1DArray<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _Is2DArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
|Desc=Check if a variable is a 2D Array.<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit">Local $sString = 'String'<br />
Local $a1DArray[2] = [1, 'Row_1']<br />
Local $a2DArray[2][2] = [[1],['Row_1: Col_1', 'Row_1: Col_2']]<br />
<br />
ConsoleWrite('Is the variable $sString a 1D Array?: ' & _Is2DArray($sString) & @CRLF)<br />
ConsoleWrite('Is the variable $a1DArray a 1D Array?: ' & _Is2DArray($a1DArray) & @CRLF)<br />
ConsoleWrite('Is the variable $a2DArray a 1D Array?: ' & _Is2DArray($a2DArray) & @CRLF)<br />
<br />
; Check if a variable is a 2D Array.<br />
Func _Is2DArray(ByRef Const $aArray)<br />
Return UBound($aArray) And (UBound($aArray, 0) = 2)<br />
EndFunc ;==>_Is2DArray<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsInBounds ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit">#include <Constants.au3><br />
<br />
Local $aArray[5] = ['Item_1', 'Item_2', 'Item_3', 'Item_4', 'Item_5']<br />
<br />
ConsoleWrite(_IsInBounds($aArray, 1) & @CRLF) ; Returns True as the Array has 5 items.<br />
ConsoleWrite(_IsInBounds($aArray, 5) & @CRLF) ; Returns False as the Array has 5 items but starts from the 0th index not 1st.<br />
ConsoleWrite(_IsInBounds($aArray, 0) & @CRLF) ; Returns True.<br />
<br />
If _IsInBounds($aArray, 4) Then<br />
MsgBox($MB_SYSTEMMODAL, '', 'Position 4 contains the value: "' & $aArray[4] & '"')<br />
EndIf<br />
<br />
Func _IsInBounds(ByRef Const $aArray, $iIndex)<br />
Local $iDim = UBound($aArray, 0)<br />
If $iDim < 0 Or $iDim > 2 Then ; If not a 1D or 2D Array, then return -1 and set @error to non-zero.<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $iIndex < UBound($aArray, 1)<br />
EndFunc ;==>_IsInBounds</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _MultiFileListToArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=4920-valuater<br />
|AuthorName=Valuater<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
; Multiple File List to Array<br />
<br />
$Files_List = _MultiFileListToArray(@ScriptDir, "*.txt|*.ini")<br />
<br />
; for display only<br />
$GUI = GUICreate(" _MultiFileListToArray - DEMO")<br />
$Edit1 = GUICtrlCreateEdit("", 50, 50, 300, 300)<br />
For $x = 1 To UBound($Files_List) - 1<br />
GUICtrlSetData(-1, $Files_List[$x] & @CRLF, 1)<br />
Next<br />
GUISetState()<br />
<br />
While GUIGetMsg() <> -3<br />
WEnd<br />
; end display only<br />
<br />
Func _MultiFileListToArray($sPath, $sFilter = "*", $iFlag = 0)<br />
Local $hSearch, $sFile, $asFileList[1], $sCount<br />
If Not FileExists($sPath) Then Return SetError(1, 1, "")<br />
If (StringInStr($sFilter, "\")) Or (StringInStr($sFilter, "/")) Or (StringInStr($sFilter, ":")) Or (StringInStr($sFilter, ">")) Or (StringInStr($sFilter, "<")) Or (StringStripWS($sFilter, 8) = "") Then Return SetError(2, 2, "")<br />
$sFilter = (StringSplit($sFilter, "|"))<br />
If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")<br />
For $sCount = 1 To $sFilter[0]<br />
$hSearch = FileFindFirstFile($sPath & "\" & $sFilter[$sCount])<br />
If $hSearch = -1 Then<br />
If $sCount = $sFilter[0] Then Return SetError(4, 4, $asFileList)<br />
ContinueLoop<br />
EndIf<br />
While 1<br />
$sFile = FileFindNextFile($hSearch)<br />
If @error Then<br />
SetError(0)<br />
ExitLoop<br />
EndIf<br />
If $iFlag = 1 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") <> 0 Then ContinueLoop<br />
If $iFlag = 2 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") = 0 Then ContinueLoop<br />
ReDim $asFileList[UBound($asFileList) + 1]<br />
$asFileList[0] = $asFileList[0] + 1<br />
$asFileList[UBound($asFileList) - 1] = $sFile<br />
WEnd<br />
FileClose($hSearch)<br />
Next<br />
Return $asFileList<br />
EndFunc ;==>_MultiFileListToArray<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== Return Min or Max Number From One or Two Arrays ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=1967-garyfrost<br />
|AuthorName=GaryFrost<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
#include <Array.au3><br />
<br />
Func _MinMaxa($a_nums01, $MaxFlag = 0, $a_nums02 = 0)<br />
If Not IsArray($a_nums01) Then<br />
SetError(1)<br />
Return (0)<br />
EndIf<br />
<br />
If @NumParams = 3 Then<br />
If Not IsArray($a_nums02) Then<br />
SetError(3)<br />
Return (0)<br />
EndIf<br />
EndIf<br />
<br />
Local $idx<br />
<br />
For $idx = 0 To UBound($a_nums01) - 1<br />
If StringIsFloat($a_nums01[$idx]) Or StringIsInt($a_nums01[$idx]) Then<br />
$a_nums01[$idx] = Number($a_nums01[$idx])<br />
Else<br />
SetError(2)<br />
Return (0)<br />
EndIf<br />
Next<br />
<br />
_ArraySort($a_nums01, $MaxFlag)<br />
<br />
If @NumParams = 3 Then<br />
For $idx = 0 To UBound($a_nums02) - 1<br />
If StringIsFloat($a_nums02[$idx]) Or StringIsInt($a_nums02[$idx]) Then<br />
$a_nums02[$idx] = Number($a_nums02[$idx])<br />
Else<br />
SetError(4)<br />
Return (0)<br />
EndIf<br />
Next<br />
<br />
_ArraySort($a_nums02, $MaxFlag)<br />
<br />
If $MaxFlag Then<br />
If Number($a_nums01[0]) > Number($a_nums02[0]) Then<br />
Return $a_nums01[0]<br />
Else<br />
Return $a_nums02[0]<br />
EndIf<br />
Else<br />
If Number($a_nums01[0]) < Number($a_nums02[0]) Then<br />
Return $a_nums01[0]<br />
Else<br />
Return $a_nums02[0]<br />
EndIf<br />
EndIf<br />
EndIf<br />
<br />
Return $a_nums01[0]<br />
EndFunc ;==>_MinMaxa<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]</div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_AutoIt_Array_)&diff=13570
Snippets ( AutoIt Array )
2017-01-06T20:56:10Z
<p>Spudw2k: /* _DynEnumArray */</p>
<hr />
<div>__TOC__<br />
<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== _1Dto2DArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
#include <Array.au3><br />
<br />
Global $aArray_1D[2] = ["Data", "Data"]<br />
_ArrayDisplay($aArray_1D)<br />
_1Dto2DArray($aArray_1D)<br />
_ArrayDisplay($aArray_1D)<br />
<br />
Global $aArray_1D[10] = ["Data", "Data", "Data", "Data", "Data", "Data", "Data", "Data", "Data", "Data"]<br />
_ArrayDisplay($aArray_1D)<br />
_1Dto2DArray($aArray_1D, 9)<br />
_ArrayDisplay($aArray_1D)<br />
<br />
Func _1Dto2DArray(ByRef $aArray, Const $iAdditionalColumns = 1)<br />
Local Const $iSize = UBound($aArray, 1)<br />
<br />
Local $aReturn[$iSize][$iAdditionalColumns + 1]<br />
<br />
For $A = 0 To $iSize - 1<br />
$aReturn[$A][0] = $aArray[$A]<br />
Next<br />
<br />
$aArray = $aReturn<br />
<br />
Return $aReturn<br />
EndFunc ;==>_1Dto2DArray<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArrayAddEx ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
#include <Array.au3><br />
<br />
Example_1()<br />
Example_2()<br />
<br />
Func Example_1()<br />
Local $aArray_1[1] = ["Data_0"], $iBegin<br />
<br />
$iBegin = TimerInit() ; Start the timer.<br />
For $i = 1 To 5000<br />
_ArrayAdd($aArray_1, "Data_" & $i)<br />
Next<br />
$iBegin = TimerDiff($iBegin) ; End the timer and find the difference from start to finish.<br />
ConsoleWrite("_ArrayAdd from Array.au3 >> " & $iBegin & @CRLF)<br />
_ArrayDisplay($aArray_1)<br />
EndFunc ;==>Example_1<br />
<br />
Func Example_2()<br />
Local $aArray_2[1] = ["Data_0"], $iBegin, $iDimension, $iCount<br />
<br />
$iBegin = TimerInit() ; Start the timer.<br />
For $i = 1 To 5000<br />
_ArrayAddEx($aArray_2, "Data_" & $i, $iDimension, $iCount) ; $iDimension is the overall size of the array & $iCount is the last index number, because regarding the overall size +1 as the next item will give false results as we're increasing the size of the array not by 1 but multiplying 2.<br />
Next<br />
$iBegin = TimerDiff($iBegin) ; End the timer and find the difference from start to finish.<br />
ConsoleWrite("_ArrayAddEx by guinness >> " & $iBegin & @CRLF)<br />
ReDim $aArray_2[$iCount] ; Remove the empty rows.<br />
_ArrayDisplay($aArray_2)<br />
EndFunc ;==>Example_2<br />
<br />
Func _ArrayAddEx(ByRef $aArray, $sData, ByRef $iDimension, ByRef $iCount) ; Taken from Array.au3 and modified by guinness to reduce the use of ReDim.<br />
If IsArray($aArray) = 0 Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
If UBound($aArray, 0) <> 1 Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
<br />
If $iCount = 0 Then<br />
$iCount = UBound($aArray, 1)<br />
EndIf<br />
<br />
$iCount += 1<br />
If ($iCount + 1) >= $iDimension Then<br />
$iDimension = (UBound($aArray, 1) + 1) * 2<br />
ReDim $aArray[$iDimension]<br />
EndIf<br />
$aArray[$iCount - 1] = $sData<br />
Return $iCount - 1<br />
EndFunc ;==>_ArrayAddEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArrayEmpty ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
|Desc=Creates Empty 1D & 2D Array's<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
#include <Array.au3><br />
<br />
Global $aMain[11] = [10]<br />
_ArrayEmpty($aMain)<br />
_ArrayDisplay($aMain, "Empty 1D Array.")<br />
<br />
Global $aMainEx[11][3] = [[10]]<br />
_ArrayEmpty($aMainEx)<br />
_ArrayDisplay($aMainEx, "Empty 2D Array.")<br />
<br />
Func _ArrayEmpty(ByRef $aArray)<br />
Switch UBound($aArray, 0) ; Dimension, 1D or 2D array are supported.<br />
Case 1<br />
Local $aEmpty1D[1]<br />
$aArray = $aEmpty1D<br />
<br />
Case 2<br />
; Edit by DatMCEyeBall - Instead of emptying the array to [1][$x] we empty it to [$x][$y]<br />
; where $x is the 1st dimensions size and $y the 2nd.<br />
; Previous code was: Local $aEmpty2D[1][UBound($aArray, 2)]<br />
; This way we preserve the arrays' original size.<br />
Local $aEmpty2D[UBound($aArray, 1)][UBound($aArray, 2)]<br />
$aArray = $aEmpty2D<br />
EndSwitch<br />
EndFunc ;==>_ArrayEmpty<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArrayGet ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=31965-progandy<br />
|AuthorName=ProgAndy<br />
|Desc=Easy access for nested arrays up to 20 nested dimensions (including multidimensional arrays)<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
Global $b[2] = ["a", "b"]<br />
Global $a[3][2] = [[0, -1], [$b, "x"], [1, -2]]<br />
<br />
Global $c[5] = [11, 22, 33, 44, 55]<br />
<br />
MsgBox(0, "", _ArrayGet($a, 1, 0, 1) & " # " & @error)<br />
<br />
; #FUNCTION# ====================================================================================================================<br />
; Name ..........: _ArrayGet<br />
; Description ...: Gets a value from a nested multidimensional array<br />
; Syntax ........: _ArrayGet(Byref $aArray, $i1[, $i2 = 0[, $i3 = 0[, $i4 = 0[, $i5 = 0[, $i6 = 0[, $i7 = 0[, $i8 = 0[,<br />
; $i9 = 0[, $i10 = 0[, $i11 = 0[, $i12 = 0[, $i13 = 0[, $i14 = 0[, $i15 = 0[, $i16 = 0[, $i17 = 0[,<br />
; $i18 = 0[, $i19 = 0[, $i20 = 0]]]]]]]]]]]]]]]]]]])<br />
; Parameters ....: $aArray - [in/out] An array of unknowns.<br />
; $i1 - first array index.<br />
; $i2 - [optional] second array index.<br />
; $i3 - [optional] third array index.<br />
; $i4 - [optional] fourth array index.<br />
; $i5 - [optional] fifth array index.<br />
; $i6 - [optional] sixth array index.<br />
; $i7 - [optional] seventh array index.<br />
; $i8 - [optional] eighth array index.<br />
; $i9 - [optional] ninth array index.<br />
; $i10 - [optional] 10th array index.<br />
; $i11 - [optional] 11th array index.<br />
; $i12 - [optional] 12th array index.<br />
; $i13 - [optional] 13th array index.<br />
; $i14 - [optional] 14th array index.<br />
; $i15 - [optional] 15th array index.<br />
; $i16 - [optional] 16th array index.<br />
; $i17 - [optional] 17th array index.<br />
; $i18 - [optional] 18th array index.<br />
; $i19 - [optional] 19th array index.<br />
; $i20 - [optional] 20th array index.<br />
; Return values .: Success: Value at the specified index<br />
; Error: Nothing, Sets @error to:<br />
; |1 - Trying to acces non-array as array<br />
; |2 - Not enough dimensions for the last accessed array<br />
; |3 - Index out of bounds for a dimension<br />
; @extended contains the dimension in error (according to parameter list)<br />
; Author ........: ProgAndy<br />
; Modified ......:<br />
; Remarks .......:<br />
; Related .......:<br />
; Link ..........:<br />
; Example .......: No<br />
; ===============================================================================================================================<br />
Func _ArrayGet(ByRef $aArray, $i1, $i2=0, $i3=0, $i4=0, $i5=0, $i6=0, $i7=0, $i8=0, $i9=0, $i10=0, $i11=0, $i12=0, $i13=0, $i14=0, $i15=0, $i16=0, $i17=0, $i18=0, $i19=0, $i20=0)<br />
#forceref $i1, $i2, $i3, $i4, $i5, $i6, $i7, $i8, $i9, $i10, $i11, $i12, $i13, $i14, $i15, $i16, $i17, $i18, $i19, $i20<br />
; ProgAndy<br />
Local $NULL<br />
If Not IsArray($aArray) Then Return SetError(1, 1, $NULL)<br />
Local $iDims = UBound($aArray, 0)<br />
If @NumParams <= $iDims Then Return SetError(2, @NumParams, $NULL)<br />
Local $sAccess = "$aArray"<br />
For $i = 1 To $iDims<br />
Local $iIndex = Int(Eval("i" & $i))<br />
If $iIndex >= UBound($aArray, $i) Then Return SetError(3, $i, $NULL)<br />
$sAccess &= '[' & $iIndex & ']'<br />
Next<br />
If @NumParams-1 > $iDims Then ; Still indices left<br />
For $i = $iDims+1 To @NumParams-1<br />
$sAccess &= ", $i" & $i<br />
Next<br />
Local $vResult = Execute("_ArrayGet(" & $sAccess & ")")<br />
If @error Then SetError(@error, @extended+$iDims)<br />
Return $vResult<br />
Else ;<br />
Return Execute($sAccess)<br />
EndIf<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArraySet ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=31965-progandy<br />
|AuthorName=ProgAndy<br />
|Desc=Easy access for nested arrays up to 20 nested dimensions (including multidimensional arrays)<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
Global $b[2] = ['a', 'b'<br />
Global $a[3][2] = [[0, -1], [$b, "x"], [1, -2]]<br />
<br />
Global $c[5] = [11, 22, 33, 44, 55]<br />
<br />
_ArraySet($a, $c, 1, 0, 0)<br />
<br />
; #FUNCTION# ====================================================================================================================<br />
; Name ..........: _ArraySet<br />
; Description ...: Sets a value from a nested multidimensional array<br />
; Syntax ........: _ArraySet(Byref $aArray, $vValue, $i1[, $i2 = 0[, $i3 = 0[, $i4 = 0[, $i5 = 0[, $i6 = 0[, $i7 = 0[, $i8 = 0[,<br />
; $i9 = 0[, $i10 = 0[, $i11 = 0[, $i12 = 0[, $i13 = 0[, $i14 = 0[, $i15 = 0[, $i16 = 0[, $i17 = 0[,<br />
; $i18 = 0[, $i19 = 0[, $i20 = 0]]]]]]]]]]]]]]]]]]])<br />
; Parameters ....: $aArray - [in/out] An array of unknowns.<br />
; $vValue - value to set at specified index.<br />
; $i1 - first array index.<br />
; $i2 - [optional] second array index.<br />
; $i3 - [optional] third array index.<br />
; $i4 - [optional] fourth array index.<br />
; $i5 - [optional] fifth array index.<br />
; $i6 - [optional] sixth array index.<br />
; $i7 - [optional] seventh array index.<br />
; $i8 - [optional] eighth array index.<br />
; $i9 - [optional] ninth array index.<br />
; $i10 - [optional] 10th array index.<br />
; $i11 - [optional] 11th array index.<br />
; $i12 - [optional] 12th array index.<br />
; $i13 - [optional] 13th array index.<br />
; $i14 - [optional] 14th array index.<br />
; $i15 - [optional] 15th array index.<br />
; $i16 - [optional] 16th array index.<br />
; $i17 - [optional] 17th array index.<br />
; $i18 - [optional] 18th array index.<br />
; $i19 - [optional] 19th array index.<br />
; $i20 - [optional] 20th array index.<br />
; Return values .: Success: True<br />
; Error: False, Sets @error to:<br />
; |1 - Trying to acces non-array as array<br />
; |2 - Not enough dimensions for the last accessed array<br />
; |3 - Index out of bounds for a dimension<br />
; |all: - @extended contains the dimension in error (according to parameter list)<br />
; Author ........: ProgAndy<br />
; Modified ......:<br />
; Remarks .......:<br />
; Related .......:<br />
; Link ..........:<br />
; Example .......: No<br />
; ===============================================================================================================================<br />
Func _ArraySet(ByRef $aArray, Const $vValue, $i1, $i2=0, $i3=0, $i4=0, $i5=0, $i6=0, $i7=0, $i8=0, $i9=0, $i10=0, $i11=0, $i12=0, $i13=0, $i14=0, $i15=0, $i16=0, $i17=0, $i18=0, $i19=0, $i20=0)<br />
; ProgAndy<br />
Local Const $NULL = False<br />
<br />
If Not IsArray($aArray) Then Return SetError(1, 1, $NULL)<br />
<br />
Local $iDims = UBound($aArray, 0)<br />
<br />
If @NumParams-2 < $iDims Then Return SetError(2, @NumParams-1, $NULL)<br />
<br />
Local $sAccess = "$aArray"<br />
<br />
For $i = 1 To $iDims<br />
Local $iIndex = Int(Eval("i" & $i))<br />
If $iIndex >= UBound($aArray, $i) Then Return SetError(3, $i, $NULL)<br />
$sAccess &= '[' & $iIndex & ']'<br />
Next<br />
<br />
If @NumParams-2 > $iDims Then<br />
$sAccess &= ", $vValue"<br />
For $i = $iDims+1 To @NumParams-2<br />
$sAccess &= ", $i" & $i<br />
Next<br />
Local $fSuccess = Execute("_ArraySet(" & $sAccess & ")")<br />
If @error Then SetError(@error, @extended+$iDims)<br />
Return $fSuccess<br />
EndIf<br />
<br />
Switch $iDims<br />
Case 1<br />
$aArray[$i1] = $vValue<br />
Case 2<br />
$aArray[$i1][$i2] = $vValue<br />
Case 3<br />
$aArray[$i1][$i2][$i3] = $vValue<br />
Case 4<br />
$aArray[$i1][$i2][$i3][$i4] = $vValue<br />
Case 5<br />
$aArray[$i1][$i2][$i3][$i4][$i5] = $vValue<br />
Case 6<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6] = $vValue<br />
Case 7<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7] = $vValue<br />
Case 8<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8] = $vValue<br />
Case 9<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9] = $vValue<br />
Case 10<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10] = $vValue<br />
Case 11<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11] = $vValue<br />
Case 12<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12] = $vValue<br />
Case 13<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13] = $vValue<br />
Case 14<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14] = $vValue<br />
Case 15<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15] = $vValue<br />
Case 16<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16] = $vValue<br />
Case 17<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16][$i17] = $vValue<br />
Case 18<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16][$i17][$i18] = $vValue<br />
Case 19<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16][$i17][$i18][$i19] = $vValue<br />
Case 20<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16][$i17][$i18][$i19][$i20] = $vValue<br />
EndSwitch<br />
<br />
Return True<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArrayLength ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
Global $aArray[2][50]<br />
ConsoleWrite(_ArrayLength($aArray, 2) & @CRLF) ;= > 10 - Total items<br />
ConsoleWrite(_ArrayLength($aArray, 1) & @CRLF) ;= > 5 - Columns<br />
ConsoleWrite(_ArrayLength($aArray, 0) & @CRLF) ;= > 2 - Rows<br />
<br />
ConsoleWrite(@CRLF)<br />
<br />
Global $aArray[2]<br />
ConsoleWrite(_ArrayLength($aArray, 2) & @CRLF) ;= > 2 - Total items<br />
ConsoleWrite(_ArrayLength($aArray, 1) & @CRLF) ;= > 1 - Columns<br />
ConsoleWrite(_ArrayLength($aArray, 0) & @CRLF) ;= > 2 - Rows<br />
<br />
Func _ArrayLength($aArray, $iType = 1)<br />
Local $iDim = UBound($aArray, 0)<br />
<br />
If $iDim < 0 Or $iDim > 2 Then ; If not a 1D or 2D Array, then return -1 and set @error to non-zero.<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
Switch $iType<br />
Case 2<br />
If $iDim = 2 Then<br />
Return UBound($aArray, 2) * UBound($aArray, 1)<br />
Else<br />
Return UBound($aArray, 1)<br />
EndIf<br />
<br />
Case 1<br />
If $iDim = 2 Then<br />
Return UBound($aArray, 2)<br />
Else<br />
Return 1<br />
EndIf<br />
<br />
Case Else<br />
Return UBound($aArray, 1)<br />
EndSwitch<br />
EndFunc ;==>_ArrayLength<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArraySortNum ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=4813-smoke-n<br />
|AuthorName=SmOke_N<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
; ArraySortNum(ByRef $nArray, $Ascending = 0, $Start = 1)<br />
; Sorts arrays based on TRUE Numerical Order, including Decimals<br />
<br />
#include <Array.au3><br />
<br />
; Example sort Array created with StringSplit.<br />
Global $avArray = StringSplit("6,8,10,4,2,13,12,129,106.1,106.4", ",")<br />
<br />
_ArraySortNum($avArray, 1)<br />
_ArrayDisplay($avArray, "Sorted Desc starting at 1")<br />
<br />
Func _ArraySortNum(ByRef $nArray, $Ascending = 0, $Start = 1)<br />
For $i = $Start To UBound($nArray) - 2<br />
Local $SE = $i<br />
<br />
If $Ascending = 0 Then<br />
For $x = $i To UBound($nArray) - 1<br />
If Number($nArray[$SE]) < Number($nArray[$x]) Then $SE = $x<br />
Next<br />
Else<br />
For $x = $i To UBound($nArray) - 1<br />
If Number($nArray[$SE]) > Number($nArray[$x]) Then $SE = $x<br />
Next<br />
EndIf<br />
<br />
Local $HLD = $nArray[$i]<br />
<br />
$nArray[$i] = $nArray[$SE]<br />
<br />
$nArray[$SE] = $HLD<br />
Next<br />
EndFunc ;==>_ArraySortNum<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _AssocArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=31149-milesahead<br />
|AuthorName=MilesAhead<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
; use Scripting.Dictionary object for simple associative arrays<br />
; with string keys. Key comparisons are case insensitive.<br />
<br />
Global $myArray<br />
$myArray = _AssocArray()<br />
If @error Then<br />
MsgBox(0x1010,"_AssocArray() Error", "Error Creating Associative Array!")<br />
Exit<br />
EndIf<br />
<br />
$myArray("AntiqueWhite") = 0xFAEBD7<br />
$myArray("Black") = 0x000000<br />
$myArray("Blue") = 0x0000FF<br />
$myArray("Brown") = 0xA52A2A<br />
$myArray("CadetBlue") = 0x5F9EA0<br />
$myArray("Chocolate") = 0xD2691E<br />
$myArray("Coral") = 0xFF7F50<br />
<br />
MsgBox(0x1040,"","Hex for Chocolate Color is: 0x" & Hex($myArray("Chocolate"),6))<br />
_AssocArrayDestroy($myArray)<br />
<br />
Func _AssocArray()<br />
Local $aArray = ObjCreate("Scripting.Dictionary")<br />
<br />
If @error Then<br />
Return SetError(1, 0, 0)<br />
EndIf<br />
<br />
$aArray.CompareMode = 1<br />
<br />
Return $aArray<br />
EndFunc ;==>_AssocArray<br />
<br />
Func _AssocArrayDestroy(ByRef $aArray)<br />
If Not IsObj($aArray) Then<br />
Return False<br />
EndIf<br />
$aArray.RemoveAll()<br />
$aArray = 0<br />
Return True<br />
EndFunc ;==>_AssocArrayDestroy<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _DynEnumArray ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
Func _DynEnumArray($arr)<br />
Local $arrDims[1][2]=[["ElementIdx","ElementCount"]] ;Create an Array to Track Dimensions and Elements<br />
For $x = 1 to UBound($arr,0)<br />
ReDim $arrDims[$x+1][2]<br />
$arrDims[$x][0]=0<br />
$arrDims[$x][1]=UBound($arr,$x)<br />
Next<br />
Do ;Loop Through Array Elements<br />
$var = "$arr"<br />
For $x = 1 to UBound($arrDims)-1<br />
$var &= "[" & $arrDims[$x][0] & "]"<br />
Next<br />
ConsoleWrite($var & " " & Execute($var) & @CRLF) ;Output Subscript and Value<br />
<br />
$arrDims[UBound($arrDims)-1][0] += 1 ;Increment Last Dimension Element<br />
For $y = UBound($arrDims)-2 To 1 Step -1 ;Increment Dimension Element<br />
If $arrDims[$y+1][0] = $arrDims[$y+1][1] Then<br />
$arrDims[$y+1][0]=0<br />
$arrDims[$y][0]+=1<br />
EndIf<br />
Next<br />
<br />
Until $arrDims[1][0]=$arrDims[1][1]<br />
Return ConsoleWrite(@CRLF)<br />
EndFunc<br />
<br />
;Demos<br />
Local $arr[5]=["Never","Gonna","Give","You","Up"]<br />
_DynEnumArray($arr)<br />
<br />
Local $arr[6][2]=[["Penn", "Teller"],["Gilbert", "Sullivan"],["Sonny", "Cher"],["Stone", "Parker"],["Fischbacher", "Horn"],["Plant", "Page"]]<br />
_DynEnumArray($arr)<br />
<br />
Local $arr[2][3][2]=[[["All","Your"],["Base","Are"],["Belong","To Us"]],[["Is","This"],["The","Way"],["Back","Home"]]]<br />
_DynEnumArray($arr)<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _FuncListToArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=52-geosoft<br />
|AuthorName=GEOSoft<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
$aFlist = _FuncListToArray(@ScriptFullPath)<br />
If NOT @Error Then<br />
For $i = 0 To Ubound($aFlist) -1<br />
MsgBox(0, "TEST", $aFlist[$i], 2)<br />
Next<br />
EndIf<br />
<br />
Func _FuncListToArray($sStr)<br />
If FileExists($sStr) Then $sStr = FileRead($sStr)<br />
Local $sRegEx = "(?i)(?m:^|\n)\s*Func\s+(\w+)\s*\("<br />
$aRegEx = StringRegExp($sStr, $sRegEx, 3)<br />
If IsArray($aRegEx) Then Return $aRegEx<br />
Return SetError(1)<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== Identify Duplicate Values In Arrays ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=1967-garyfrost<br />
|AuthorName=GaryFrost<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
; Identify Duplicate Values In Arrays<br />
#include <Array.au3><br />
<br />
Global $a1[3] = [1, 2, 3], $a2[5] = [5, 6, 7, 8, 9], $a3[2] = [3, 5]<br />
Global $a_a[4] = [3, $a1, $a2, $a3]<br />
MsgBox(0, "Dupes?", _SearchForDupes($a_a))<br />
<br />
Func _SearchForDupes($a_arrays, $i_ReturnType = 0)<br />
Local $Dupes[1] = [0]<br />
<br />
If $a_arrays[0] < 2 Then Return ''<br />
<br />
For $i = 1 To $a_a[0] - 1<br />
For $j = $i + 1 To $a_a[0]<br />
_FindDupe($a_a[$i], $a_a[$j], $Dupes)<br />
Next<br />
Next<br />
<br />
If $Dupes[0] = 0 Then Return ''<br />
<br />
_ArraySort($Dupes)<br />
<br />
If Not $i_ReturnType Then<br />
Local $s_return = ''<br />
<br />
For $x = 1 To $Dupes[0]<br />
$s_return &= $Dupes[$x] & ','<br />
Next<br />
Return StringTrimRight($s_return, 1)<br />
Else<br />
Return $Dupes<br />
EndIf<br />
EndFunc ;==>_SearchForDupes<br />
<br />
Func _FindDupe(ByRef $a_array01, ByRef $a_array02, ByRef $Dupes)<br />
Local $found = False<br />
<br />
For $i = 0 To UBound($a_array01) - 1<br />
For $j = 0 To UBound($a_array02) - 1<br />
If $a_array01[$i] = $a_array02[$j] Then<br />
$found = False<br />
<br />
For $x = 1 To $Dupes[0]<br />
If $Dupes[$x] = $a_array01[$i] Then<br />
$found = True<br />
ExitLoop<br />
EndIf<br />
Next<br />
<br />
If Not $found Then<br />
$Dupes[0] += 1<br />
ReDim $Dupes[$Dupes[0] + 1]<br />
$Dupes[$Dupes[0]] = $a_array01[$i]<br />
EndIf<br />
EndIf<br />
Next<br />
Next<br />
EndFunc ;==>_FindDupe<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _Is1DArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit">Local $sString = 'String'<br />
Local $a1DArray[2] = [1, 'Row_1']<br />
Local $a2DArray[2][2] = [[1],['Row_1: Col_1', 'Row_1: Col_2']]<br />
<br />
ConsoleWrite('Is the variable $sString a 1D Array?: ' & _Is1DArray($sString) & @CRLF)<br />
ConsoleWrite('Is the variable $a1DArray a 1D Array?: ' & _Is1DArray($a1DArray) & @CRLF)<br />
ConsoleWrite('Is the variable $a2DArray a 1D Array?: ' & _Is1DArray($a2DArray) & @CRLF)<br />
<br />
; Check if a variable is a 1D Array.<br />
Func _Is1DArray(ByRef Const $aArray)<br />
Return UBound($aArray) And (UBound($aArray, 0) = 1)<br />
EndFunc ;==>_Is1DArray<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _Is2DArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
|Desc=Check if a variable is a 2D Array.<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit">Local $sString = 'String'<br />
Local $a1DArray[2] = [1, 'Row_1']<br />
Local $a2DArray[2][2] = [[1],['Row_1: Col_1', 'Row_1: Col_2']]<br />
<br />
ConsoleWrite('Is the variable $sString a 1D Array?: ' & _Is2DArray($sString) & @CRLF)<br />
ConsoleWrite('Is the variable $a1DArray a 1D Array?: ' & _Is2DArray($a1DArray) & @CRLF)<br />
ConsoleWrite('Is the variable $a2DArray a 1D Array?: ' & _Is2DArray($a2DArray) & @CRLF)<br />
<br />
; Check if a variable is a 2D Array.<br />
Func _Is2DArray(ByRef Const $aArray)<br />
Return UBound($aArray) And (UBound($aArray, 0) = 2)<br />
EndFunc ;==>_Is2DArray<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsInBounds ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit">#include <Constants.au3><br />
<br />
Local $aArray[5] = ['Item_1', 'Item_2', 'Item_3', 'Item_4', 'Item_5']<br />
<br />
ConsoleWrite(_IsInBounds($aArray, 1) & @CRLF) ; Returns True as the Array has 5 items.<br />
ConsoleWrite(_IsInBounds($aArray, 5) & @CRLF) ; Returns False as the Array has 5 items but starts from the 0th index not 1st.<br />
ConsoleWrite(_IsInBounds($aArray, 0) & @CRLF) ; Returns True.<br />
<br />
If _IsInBounds($aArray, 4) Then<br />
MsgBox($MB_SYSTEMMODAL, '', 'Position 4 contains the value: "' & $aArray[4] & '"')<br />
EndIf<br />
<br />
Func _IsInBounds(ByRef Const $aArray, $iIndex)<br />
Local $iDim = UBound($aArray, 0)<br />
If $iDim < 0 Or $iDim > 2 Then ; If not a 1D or 2D Array, then return -1 and set @error to non-zero.<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $iIndex < UBound($aArray, 1)<br />
EndFunc ;==>_IsInBounds</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _MultiFileListToArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=4920-valuater<br />
|AuthorName=Valuater<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
; Multiple File List to Array<br />
<br />
$Files_List = _MultiFileListToArray(@ScriptDir, "*.txt|*.ini")<br />
<br />
; for display only<br />
$GUI = GUICreate(" _MultiFileListToArray - DEMO")<br />
$Edit1 = GUICtrlCreateEdit("", 50, 50, 300, 300)<br />
For $x = 1 To UBound($Files_List) - 1<br />
GUICtrlSetData(-1, $Files_List[$x] & @CRLF, 1)<br />
Next<br />
GUISetState()<br />
<br />
While GUIGetMsg() <> -3<br />
WEnd<br />
; end display only<br />
<br />
Func _MultiFileListToArray($sPath, $sFilter = "*", $iFlag = 0)<br />
Local $hSearch, $sFile, $asFileList[1], $sCount<br />
If Not FileExists($sPath) Then Return SetError(1, 1, "")<br />
If (StringInStr($sFilter, "\")) Or (StringInStr($sFilter, "/")) Or (StringInStr($sFilter, ":")) Or (StringInStr($sFilter, ">")) Or (StringInStr($sFilter, "<")) Or (StringStripWS($sFilter, 8) = "") Then Return SetError(2, 2, "")<br />
$sFilter = (StringSplit($sFilter, "|"))<br />
If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")<br />
For $sCount = 1 To $sFilter[0]<br />
$hSearch = FileFindFirstFile($sPath & "\" & $sFilter[$sCount])<br />
If $hSearch = -1 Then<br />
If $sCount = $sFilter[0] Then Return SetError(4, 4, $asFileList)<br />
ContinueLoop<br />
EndIf<br />
While 1<br />
$sFile = FileFindNextFile($hSearch)<br />
If @error Then<br />
SetError(0)<br />
ExitLoop<br />
EndIf<br />
If $iFlag = 1 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") <> 0 Then ContinueLoop<br />
If $iFlag = 2 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") = 0 Then ContinueLoop<br />
ReDim $asFileList[UBound($asFileList) + 1]<br />
$asFileList[0] = $asFileList[0] + 1<br />
$asFileList[UBound($asFileList) - 1] = $sFile<br />
WEnd<br />
FileClose($hSearch)<br />
Next<br />
Return $asFileList<br />
EndFunc ;==>_MultiFileListToArray<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== Return Min or Max Number From One or Two Arrays ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=1967-garyfrost<br />
|AuthorName=GaryFrost<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
#include <Array.au3><br />
<br />
Func _MinMaxa($a_nums01, $MaxFlag = 0, $a_nums02 = 0)<br />
If Not IsArray($a_nums01) Then<br />
SetError(1)<br />
Return (0)<br />
EndIf<br />
<br />
If @NumParams = 3 Then<br />
If Not IsArray($a_nums02) Then<br />
SetError(3)<br />
Return (0)<br />
EndIf<br />
EndIf<br />
<br />
Local $idx<br />
<br />
For $idx = 0 To UBound($a_nums01) - 1<br />
If StringIsFloat($a_nums01[$idx]) Or StringIsInt($a_nums01[$idx]) Then<br />
$a_nums01[$idx] = Number($a_nums01[$idx])<br />
Else<br />
SetError(2)<br />
Return (0)<br />
EndIf<br />
Next<br />
<br />
_ArraySort($a_nums01, $MaxFlag)<br />
<br />
If @NumParams = 3 Then<br />
For $idx = 0 To UBound($a_nums02) - 1<br />
If StringIsFloat($a_nums02[$idx]) Or StringIsInt($a_nums02[$idx]) Then<br />
$a_nums02[$idx] = Number($a_nums02[$idx])<br />
Else<br />
SetError(4)<br />
Return (0)<br />
EndIf<br />
Next<br />
<br />
_ArraySort($a_nums02, $MaxFlag)<br />
<br />
If $MaxFlag Then<br />
If Number($a_nums01[0]) > Number($a_nums02[0]) Then<br />
Return $a_nums01[0]<br />
Else<br />
Return $a_nums02[0]<br />
EndIf<br />
Else<br />
If Number($a_nums01[0]) < Number($a_nums02[0]) Then<br />
Return $a_nums01[0]<br />
Else<br />
Return $a_nums02[0]<br />
EndIf<br />
EndIf<br />
EndIf<br />
<br />
Return $a_nums01[0]<br />
EndFunc ;==>_MinMaxa<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]</div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_AutoIt_Array_)&diff=13569
Snippets ( AutoIt Array )
2017-01-06T20:53:48Z
<p>Spudw2k: </p>
<hr />
<div>__TOC__<br />
<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== _1Dto2DArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
#include <Array.au3><br />
<br />
Global $aArray_1D[2] = ["Data", "Data"]<br />
_ArrayDisplay($aArray_1D)<br />
_1Dto2DArray($aArray_1D)<br />
_ArrayDisplay($aArray_1D)<br />
<br />
Global $aArray_1D[10] = ["Data", "Data", "Data", "Data", "Data", "Data", "Data", "Data", "Data", "Data"]<br />
_ArrayDisplay($aArray_1D)<br />
_1Dto2DArray($aArray_1D, 9)<br />
_ArrayDisplay($aArray_1D)<br />
<br />
Func _1Dto2DArray(ByRef $aArray, Const $iAdditionalColumns = 1)<br />
Local Const $iSize = UBound($aArray, 1)<br />
<br />
Local $aReturn[$iSize][$iAdditionalColumns + 1]<br />
<br />
For $A = 0 To $iSize - 1<br />
$aReturn[$A][0] = $aArray[$A]<br />
Next<br />
<br />
$aArray = $aReturn<br />
<br />
Return $aReturn<br />
EndFunc ;==>_1Dto2DArray<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArrayAddEx ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
#include <Array.au3><br />
<br />
Example_1()<br />
Example_2()<br />
<br />
Func Example_1()<br />
Local $aArray_1[1] = ["Data_0"], $iBegin<br />
<br />
$iBegin = TimerInit() ; Start the timer.<br />
For $i = 1 To 5000<br />
_ArrayAdd($aArray_1, "Data_" & $i)<br />
Next<br />
$iBegin = TimerDiff($iBegin) ; End the timer and find the difference from start to finish.<br />
ConsoleWrite("_ArrayAdd from Array.au3 >> " & $iBegin & @CRLF)<br />
_ArrayDisplay($aArray_1)<br />
EndFunc ;==>Example_1<br />
<br />
Func Example_2()<br />
Local $aArray_2[1] = ["Data_0"], $iBegin, $iDimension, $iCount<br />
<br />
$iBegin = TimerInit() ; Start the timer.<br />
For $i = 1 To 5000<br />
_ArrayAddEx($aArray_2, "Data_" & $i, $iDimension, $iCount) ; $iDimension is the overall size of the array & $iCount is the last index number, because regarding the overall size +1 as the next item will give false results as we're increasing the size of the array not by 1 but multiplying 2.<br />
Next<br />
$iBegin = TimerDiff($iBegin) ; End the timer and find the difference from start to finish.<br />
ConsoleWrite("_ArrayAddEx by guinness >> " & $iBegin & @CRLF)<br />
ReDim $aArray_2[$iCount] ; Remove the empty rows.<br />
_ArrayDisplay($aArray_2)<br />
EndFunc ;==>Example_2<br />
<br />
Func _ArrayAddEx(ByRef $aArray, $sData, ByRef $iDimension, ByRef $iCount) ; Taken from Array.au3 and modified by guinness to reduce the use of ReDim.<br />
If IsArray($aArray) = 0 Then<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
If UBound($aArray, 0) <> 1 Then<br />
Return SetError(2, 0, -1)<br />
EndIf<br />
<br />
If $iCount = 0 Then<br />
$iCount = UBound($aArray, 1)<br />
EndIf<br />
<br />
$iCount += 1<br />
If ($iCount + 1) >= $iDimension Then<br />
$iDimension = (UBound($aArray, 1) + 1) * 2<br />
ReDim $aArray[$iDimension]<br />
EndIf<br />
$aArray[$iCount - 1] = $sData<br />
Return $iCount - 1<br />
EndFunc ;==>_ArrayAddEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArrayEmpty ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
|Desc=Creates Empty 1D & 2D Array's<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
#include <Array.au3><br />
<br />
Global $aMain[11] = [10]<br />
_ArrayEmpty($aMain)<br />
_ArrayDisplay($aMain, "Empty 1D Array.")<br />
<br />
Global $aMainEx[11][3] = [[10]]<br />
_ArrayEmpty($aMainEx)<br />
_ArrayDisplay($aMainEx, "Empty 2D Array.")<br />
<br />
Func _ArrayEmpty(ByRef $aArray)<br />
Switch UBound($aArray, 0) ; Dimension, 1D or 2D array are supported.<br />
Case 1<br />
Local $aEmpty1D[1]<br />
$aArray = $aEmpty1D<br />
<br />
Case 2<br />
; Edit by DatMCEyeBall - Instead of emptying the array to [1][$x] we empty it to [$x][$y]<br />
; where $x is the 1st dimensions size and $y the 2nd.<br />
; Previous code was: Local $aEmpty2D[1][UBound($aArray, 2)]<br />
; This way we preserve the arrays' original size.<br />
Local $aEmpty2D[UBound($aArray, 1)][UBound($aArray, 2)]<br />
$aArray = $aEmpty2D<br />
EndSwitch<br />
EndFunc ;==>_ArrayEmpty<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArrayGet ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=31965-progandy<br />
|AuthorName=ProgAndy<br />
|Desc=Easy access for nested arrays up to 20 nested dimensions (including multidimensional arrays)<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
Global $b[2] = ["a", "b"]<br />
Global $a[3][2] = [[0, -1], [$b, "x"], [1, -2]]<br />
<br />
Global $c[5] = [11, 22, 33, 44, 55]<br />
<br />
MsgBox(0, "", _ArrayGet($a, 1, 0, 1) & " # " & @error)<br />
<br />
; #FUNCTION# ====================================================================================================================<br />
; Name ..........: _ArrayGet<br />
; Description ...: Gets a value from a nested multidimensional array<br />
; Syntax ........: _ArrayGet(Byref $aArray, $i1[, $i2 = 0[, $i3 = 0[, $i4 = 0[, $i5 = 0[, $i6 = 0[, $i7 = 0[, $i8 = 0[,<br />
; $i9 = 0[, $i10 = 0[, $i11 = 0[, $i12 = 0[, $i13 = 0[, $i14 = 0[, $i15 = 0[, $i16 = 0[, $i17 = 0[,<br />
; $i18 = 0[, $i19 = 0[, $i20 = 0]]]]]]]]]]]]]]]]]]])<br />
; Parameters ....: $aArray - [in/out] An array of unknowns.<br />
; $i1 - first array index.<br />
; $i2 - [optional] second array index.<br />
; $i3 - [optional] third array index.<br />
; $i4 - [optional] fourth array index.<br />
; $i5 - [optional] fifth array index.<br />
; $i6 - [optional] sixth array index.<br />
; $i7 - [optional] seventh array index.<br />
; $i8 - [optional] eighth array index.<br />
; $i9 - [optional] ninth array index.<br />
; $i10 - [optional] 10th array index.<br />
; $i11 - [optional] 11th array index.<br />
; $i12 - [optional] 12th array index.<br />
; $i13 - [optional] 13th array index.<br />
; $i14 - [optional] 14th array index.<br />
; $i15 - [optional] 15th array index.<br />
; $i16 - [optional] 16th array index.<br />
; $i17 - [optional] 17th array index.<br />
; $i18 - [optional] 18th array index.<br />
; $i19 - [optional] 19th array index.<br />
; $i20 - [optional] 20th array index.<br />
; Return values .: Success: Value at the specified index<br />
; Error: Nothing, Sets @error to:<br />
; |1 - Trying to acces non-array as array<br />
; |2 - Not enough dimensions for the last accessed array<br />
; |3 - Index out of bounds for a dimension<br />
; @extended contains the dimension in error (according to parameter list)<br />
; Author ........: ProgAndy<br />
; Modified ......:<br />
; Remarks .......:<br />
; Related .......:<br />
; Link ..........:<br />
; Example .......: No<br />
; ===============================================================================================================================<br />
Func _ArrayGet(ByRef $aArray, $i1, $i2=0, $i3=0, $i4=0, $i5=0, $i6=0, $i7=0, $i8=0, $i9=0, $i10=0, $i11=0, $i12=0, $i13=0, $i14=0, $i15=0, $i16=0, $i17=0, $i18=0, $i19=0, $i20=0)<br />
#forceref $i1, $i2, $i3, $i4, $i5, $i6, $i7, $i8, $i9, $i10, $i11, $i12, $i13, $i14, $i15, $i16, $i17, $i18, $i19, $i20<br />
; ProgAndy<br />
Local $NULL<br />
If Not IsArray($aArray) Then Return SetError(1, 1, $NULL)<br />
Local $iDims = UBound($aArray, 0)<br />
If @NumParams <= $iDims Then Return SetError(2, @NumParams, $NULL)<br />
Local $sAccess = "$aArray"<br />
For $i = 1 To $iDims<br />
Local $iIndex = Int(Eval("i" & $i))<br />
If $iIndex >= UBound($aArray, $i) Then Return SetError(3, $i, $NULL)<br />
$sAccess &= '[' & $iIndex & ']'<br />
Next<br />
If @NumParams-1 > $iDims Then ; Still indices left<br />
For $i = $iDims+1 To @NumParams-1<br />
$sAccess &= ", $i" & $i<br />
Next<br />
Local $vResult = Execute("_ArrayGet(" & $sAccess & ")")<br />
If @error Then SetError(@error, @extended+$iDims)<br />
Return $vResult<br />
Else ;<br />
Return Execute($sAccess)<br />
EndIf<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArraySet ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=31965-progandy<br />
|AuthorName=ProgAndy<br />
|Desc=Easy access for nested arrays up to 20 nested dimensions (including multidimensional arrays)<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
Global $b[2] = ['a', 'b'<br />
Global $a[3][2] = [[0, -1], [$b, "x"], [1, -2]]<br />
<br />
Global $c[5] = [11, 22, 33, 44, 55]<br />
<br />
_ArraySet($a, $c, 1, 0, 0)<br />
<br />
; #FUNCTION# ====================================================================================================================<br />
; Name ..........: _ArraySet<br />
; Description ...: Sets a value from a nested multidimensional array<br />
; Syntax ........: _ArraySet(Byref $aArray, $vValue, $i1[, $i2 = 0[, $i3 = 0[, $i4 = 0[, $i5 = 0[, $i6 = 0[, $i7 = 0[, $i8 = 0[,<br />
; $i9 = 0[, $i10 = 0[, $i11 = 0[, $i12 = 0[, $i13 = 0[, $i14 = 0[, $i15 = 0[, $i16 = 0[, $i17 = 0[,<br />
; $i18 = 0[, $i19 = 0[, $i20 = 0]]]]]]]]]]]]]]]]]]])<br />
; Parameters ....: $aArray - [in/out] An array of unknowns.<br />
; $vValue - value to set at specified index.<br />
; $i1 - first array index.<br />
; $i2 - [optional] second array index.<br />
; $i3 - [optional] third array index.<br />
; $i4 - [optional] fourth array index.<br />
; $i5 - [optional] fifth array index.<br />
; $i6 - [optional] sixth array index.<br />
; $i7 - [optional] seventh array index.<br />
; $i8 - [optional] eighth array index.<br />
; $i9 - [optional] ninth array index.<br />
; $i10 - [optional] 10th array index.<br />
; $i11 - [optional] 11th array index.<br />
; $i12 - [optional] 12th array index.<br />
; $i13 - [optional] 13th array index.<br />
; $i14 - [optional] 14th array index.<br />
; $i15 - [optional] 15th array index.<br />
; $i16 - [optional] 16th array index.<br />
; $i17 - [optional] 17th array index.<br />
; $i18 - [optional] 18th array index.<br />
; $i19 - [optional] 19th array index.<br />
; $i20 - [optional] 20th array index.<br />
; Return values .: Success: True<br />
; Error: False, Sets @error to:<br />
; |1 - Trying to acces non-array as array<br />
; |2 - Not enough dimensions for the last accessed array<br />
; |3 - Index out of bounds for a dimension<br />
; |all: - @extended contains the dimension in error (according to parameter list)<br />
; Author ........: ProgAndy<br />
; Modified ......:<br />
; Remarks .......:<br />
; Related .......:<br />
; Link ..........:<br />
; Example .......: No<br />
; ===============================================================================================================================<br />
Func _ArraySet(ByRef $aArray, Const $vValue, $i1, $i2=0, $i3=0, $i4=0, $i5=0, $i6=0, $i7=0, $i8=0, $i9=0, $i10=0, $i11=0, $i12=0, $i13=0, $i14=0, $i15=0, $i16=0, $i17=0, $i18=0, $i19=0, $i20=0)<br />
; ProgAndy<br />
Local Const $NULL = False<br />
<br />
If Not IsArray($aArray) Then Return SetError(1, 1, $NULL)<br />
<br />
Local $iDims = UBound($aArray, 0)<br />
<br />
If @NumParams-2 < $iDims Then Return SetError(2, @NumParams-1, $NULL)<br />
<br />
Local $sAccess = "$aArray"<br />
<br />
For $i = 1 To $iDims<br />
Local $iIndex = Int(Eval("i" & $i))<br />
If $iIndex >= UBound($aArray, $i) Then Return SetError(3, $i, $NULL)<br />
$sAccess &= '[' & $iIndex & ']'<br />
Next<br />
<br />
If @NumParams-2 > $iDims Then<br />
$sAccess &= ", $vValue"<br />
For $i = $iDims+1 To @NumParams-2<br />
$sAccess &= ", $i" & $i<br />
Next<br />
Local $fSuccess = Execute("_ArraySet(" & $sAccess & ")")<br />
If @error Then SetError(@error, @extended+$iDims)<br />
Return $fSuccess<br />
EndIf<br />
<br />
Switch $iDims<br />
Case 1<br />
$aArray[$i1] = $vValue<br />
Case 2<br />
$aArray[$i1][$i2] = $vValue<br />
Case 3<br />
$aArray[$i1][$i2][$i3] = $vValue<br />
Case 4<br />
$aArray[$i1][$i2][$i3][$i4] = $vValue<br />
Case 5<br />
$aArray[$i1][$i2][$i3][$i4][$i5] = $vValue<br />
Case 6<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6] = $vValue<br />
Case 7<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7] = $vValue<br />
Case 8<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8] = $vValue<br />
Case 9<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9] = $vValue<br />
Case 10<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10] = $vValue<br />
Case 11<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11] = $vValue<br />
Case 12<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12] = $vValue<br />
Case 13<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13] = $vValue<br />
Case 14<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14] = $vValue<br />
Case 15<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15] = $vValue<br />
Case 16<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16] = $vValue<br />
Case 17<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16][$i17] = $vValue<br />
Case 18<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16][$i17][$i18] = $vValue<br />
Case 19<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16][$i17][$i18][$i19] = $vValue<br />
Case 20<br />
$aArray[$i1][$i2][$i3][$i4][$i5][$i6][$i7][$i8][$i9][$i10][$i11][$i12][$i13][$i14][$i15][$i16][$i17][$i18][$i19][$i20] = $vValue<br />
EndSwitch<br />
<br />
Return True<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArrayLength ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
Global $aArray[2][50]<br />
ConsoleWrite(_ArrayLength($aArray, 2) & @CRLF) ;= > 10 - Total items<br />
ConsoleWrite(_ArrayLength($aArray, 1) & @CRLF) ;= > 5 - Columns<br />
ConsoleWrite(_ArrayLength($aArray, 0) & @CRLF) ;= > 2 - Rows<br />
<br />
ConsoleWrite(@CRLF)<br />
<br />
Global $aArray[2]<br />
ConsoleWrite(_ArrayLength($aArray, 2) & @CRLF) ;= > 2 - Total items<br />
ConsoleWrite(_ArrayLength($aArray, 1) & @CRLF) ;= > 1 - Columns<br />
ConsoleWrite(_ArrayLength($aArray, 0) & @CRLF) ;= > 2 - Rows<br />
<br />
Func _ArrayLength($aArray, $iType = 1)<br />
Local $iDim = UBound($aArray, 0)<br />
<br />
If $iDim < 0 Or $iDim > 2 Then ; If not a 1D or 2D Array, then return -1 and set @error to non-zero.<br />
Return SetError(1, 0, -1)<br />
EndIf<br />
<br />
Switch $iType<br />
Case 2<br />
If $iDim = 2 Then<br />
Return UBound($aArray, 2) * UBound($aArray, 1)<br />
Else<br />
Return UBound($aArray, 1)<br />
EndIf<br />
<br />
Case 1<br />
If $iDim = 2 Then<br />
Return UBound($aArray, 2)<br />
Else<br />
Return 1<br />
EndIf<br />
<br />
Case Else<br />
Return UBound($aArray, 1)<br />
EndSwitch<br />
EndFunc ;==>_ArrayLength<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _ArraySortNum ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=4813-smoke-n<br />
|AuthorName=SmOke_N<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
; ArraySortNum(ByRef $nArray, $Ascending = 0, $Start = 1)<br />
; Sorts arrays based on TRUE Numerical Order, including Decimals<br />
<br />
#include <Array.au3><br />
<br />
; Example sort Array created with StringSplit.<br />
Global $avArray = StringSplit("6,8,10,4,2,13,12,129,106.1,106.4", ",")<br />
<br />
_ArraySortNum($avArray, 1)<br />
_ArrayDisplay($avArray, "Sorted Desc starting at 1")<br />
<br />
Func _ArraySortNum(ByRef $nArray, $Ascending = 0, $Start = 1)<br />
For $i = $Start To UBound($nArray) - 2<br />
Local $SE = $i<br />
<br />
If $Ascending = 0 Then<br />
For $x = $i To UBound($nArray) - 1<br />
If Number($nArray[$SE]) < Number($nArray[$x]) Then $SE = $x<br />
Next<br />
Else<br />
For $x = $i To UBound($nArray) - 1<br />
If Number($nArray[$SE]) > Number($nArray[$x]) Then $SE = $x<br />
Next<br />
EndIf<br />
<br />
Local $HLD = $nArray[$i]<br />
<br />
$nArray[$i] = $nArray[$SE]<br />
<br />
$nArray[$SE] = $HLD<br />
Next<br />
EndFunc ;==>_ArraySortNum<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _AssocArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=31149-milesahead<br />
|AuthorName=MilesAhead<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
; use Scripting.Dictionary object for simple associative arrays<br />
; with string keys. Key comparisons are case insensitive.<br />
<br />
Global $myArray<br />
$myArray = _AssocArray()<br />
If @error Then<br />
MsgBox(0x1010,"_AssocArray() Error", "Error Creating Associative Array!")<br />
Exit<br />
EndIf<br />
<br />
$myArray("AntiqueWhite") = 0xFAEBD7<br />
$myArray("Black") = 0x000000<br />
$myArray("Blue") = 0x0000FF<br />
$myArray("Brown") = 0xA52A2A<br />
$myArray("CadetBlue") = 0x5F9EA0<br />
$myArray("Chocolate") = 0xD2691E<br />
$myArray("Coral") = 0xFF7F50<br />
<br />
MsgBox(0x1040,"","Hex for Chocolate Color is: 0x" & Hex($myArray("Chocolate"),6))<br />
_AssocArrayDestroy($myArray)<br />
<br />
Func _AssocArray()<br />
Local $aArray = ObjCreate("Scripting.Dictionary")<br />
<br />
If @error Then<br />
Return SetError(1, 0, 0)<br />
EndIf<br />
<br />
$aArray.CompareMode = 1<br />
<br />
Return $aArray<br />
EndFunc ;==>_AssocArray<br />
<br />
Func _AssocArrayDestroy(ByRef $aArray)<br />
If Not IsObj($aArray) Then<br />
Return False<br />
EndIf<br />
$aArray.RemoveAll()<br />
$aArray = 0<br />
Return True<br />
EndFunc ;==>_AssocArrayDestroy<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _DynEnumArray ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
Func _DynEnumArray($arr)<br />
Local $arrDims[1][2]=[["ElementIdx","ElementCount"]] ;Create an Array to Track Dimensions and Elements<br />
For $x = 1 to UBound($arr,0)<br />
ReDim $arrDims[$x+1][2]<br />
$arrDims[$x][0]=0<br />
$arrDims[$x][1]=UBound($arr,$x)<br />
Next<br />
Do ;Loop Through Array Elements<br />
$var = "$arr"<br />
For $x = 1 to UBound($arrDims)-1<br />
$var &= "[" & $arrDims[$x][0] & "]"<br />
Next<br />
ConsoleWrite($var & " " & Execute($var) & @CRLF) ;Output Subscript and Value<br />
<br />
$arrDims[UBound($arrDims)-1][0] += 1 ;Increment Last Dimension Element<br />
For $y = UBound($arrDims)-2 To 1 Step -1 ;Increment Dimension Element<br />
If $arrDims[$y+1][0] = $arrDims[$y+1][1] Then<br />
$arrDims[$y+1][0]=0<br />
$arrDims[$y][0]+=1<br />
EndIf<br />
Next<br />
<br />
Until $arrDims[1][0]=$arrDims[1][1]<br />
Return ConsoleWrite(@CRLF)<br />
EndFunc<br />
<br />
;Demos<br />
Local $arr[5]=["Never","Gonna","Give","You","Up"]<br />
_DynEnumArray($arr)<br />
<br />
Local $arr[6][2]=[["Penn", "Teller"],["Gilbert", "Sullivan"],["Sonny", "Cher"],["Stone", "Parker"],["Fischbacher", "Horn"],["Plant", "Page"]]<br />
_DynEnumArray($arr)<br />
<br />
Local $arr[2][3][2]=[[["All","Your"],["Base","Are"],["Belong","To Us"]],[["Is","This"],["The","Way"],["Back","Home"]]]<br />
_DynEnumArray($arr)<br />
<br />
;Added 64 dimension array for fun. *Note this causes known bug in Au3Check - http://www.autoitscript.com/trac/autoit/ticket/2333<br />
Local $arr[1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][1][3]=[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[1,2,3]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]<br />
_DynEnumArray($arr)<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _FuncListToArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=52-geosoft<br />
|AuthorName=GEOSoft<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
$aFlist = _FuncListToArray(@ScriptFullPath)<br />
If NOT @Error Then<br />
For $i = 0 To Ubound($aFlist) -1<br />
MsgBox(0, "TEST", $aFlist[$i], 2)<br />
Next<br />
EndIf<br />
<br />
Func _FuncListToArray($sStr)<br />
If FileExists($sStr) Then $sStr = FileRead($sStr)<br />
Local $sRegEx = "(?i)(?m:^|\n)\s*Func\s+(\w+)\s*\("<br />
$aRegEx = StringRegExp($sStr, $sRegEx, 3)<br />
If IsArray($aRegEx) Then Return $aRegEx<br />
Return SetError(1)<br />
EndFunc<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== Identify Duplicate Values In Arrays ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=1967-garyfrost<br />
|AuthorName=GaryFrost<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
; Identify Duplicate Values In Arrays<br />
#include <Array.au3><br />
<br />
Global $a1[3] = [1, 2, 3], $a2[5] = [5, 6, 7, 8, 9], $a3[2] = [3, 5]<br />
Global $a_a[4] = [3, $a1, $a2, $a3]<br />
MsgBox(0, "Dupes?", _SearchForDupes($a_a))<br />
<br />
Func _SearchForDupes($a_arrays, $i_ReturnType = 0)<br />
Local $Dupes[1] = [0]<br />
<br />
If $a_arrays[0] < 2 Then Return ''<br />
<br />
For $i = 1 To $a_a[0] - 1<br />
For $j = $i + 1 To $a_a[0]<br />
_FindDupe($a_a[$i], $a_a[$j], $Dupes)<br />
Next<br />
Next<br />
<br />
If $Dupes[0] = 0 Then Return ''<br />
<br />
_ArraySort($Dupes)<br />
<br />
If Not $i_ReturnType Then<br />
Local $s_return = ''<br />
<br />
For $x = 1 To $Dupes[0]<br />
$s_return &= $Dupes[$x] & ','<br />
Next<br />
Return StringTrimRight($s_return, 1)<br />
Else<br />
Return $Dupes<br />
EndIf<br />
EndFunc ;==>_SearchForDupes<br />
<br />
Func _FindDupe(ByRef $a_array01, ByRef $a_array02, ByRef $Dupes)<br />
Local $found = False<br />
<br />
For $i = 0 To UBound($a_array01) - 1<br />
For $j = 0 To UBound($a_array02) - 1<br />
If $a_array01[$i] = $a_array02[$j] Then<br />
$found = False<br />
<br />
For $x = 1 To $Dupes[0]<br />
If $Dupes[$x] = $a_array01[$i] Then<br />
$found = True<br />
ExitLoop<br />
EndIf<br />
Next<br />
<br />
If Not $found Then<br />
$Dupes[0] += 1<br />
ReDim $Dupes[$Dupes[0] + 1]<br />
$Dupes[$Dupes[0]] = $a_array01[$i]<br />
EndIf<br />
EndIf<br />
Next<br />
Next<br />
EndFunc ;==>_FindDupe<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _Is1DArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit">Local $sString = 'String'<br />
Local $a1DArray[2] = [1, 'Row_1']<br />
Local $a2DArray[2][2] = [[1],['Row_1: Col_1', 'Row_1: Col_2']]<br />
<br />
ConsoleWrite('Is the variable $sString a 1D Array?: ' & _Is1DArray($sString) & @CRLF)<br />
ConsoleWrite('Is the variable $a1DArray a 1D Array?: ' & _Is1DArray($a1DArray) & @CRLF)<br />
ConsoleWrite('Is the variable $a2DArray a 1D Array?: ' & _Is1DArray($a2DArray) & @CRLF)<br />
<br />
; Check if a variable is a 1D Array.<br />
Func _Is1DArray(ByRef Const $aArray)<br />
Return UBound($aArray) And (UBound($aArray, 0) = 1)<br />
EndFunc ;==>_Is1DArray<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _Is2DArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
|Desc=Check if a variable is a 2D Array.<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit">Local $sString = 'String'<br />
Local $a1DArray[2] = [1, 'Row_1']<br />
Local $a2DArray[2][2] = [[1],['Row_1: Col_1', 'Row_1: Col_2']]<br />
<br />
ConsoleWrite('Is the variable $sString a 1D Array?: ' & _Is2DArray($sString) & @CRLF)<br />
ConsoleWrite('Is the variable $a1DArray a 1D Array?: ' & _Is2DArray($a1DArray) & @CRLF)<br />
ConsoleWrite('Is the variable $a2DArray a 1D Array?: ' & _Is2DArray($a2DArray) & @CRLF)<br />
<br />
; Check if a variable is a 2D Array.<br />
Func _Is2DArray(ByRef Const $aArray)<br />
Return UBound($aArray) And (UBound($aArray, 0) = 2)<br />
EndFunc ;==>_Is2DArray<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsInBounds ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=35302-guinness<br />
|AuthorName=guinness<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit">#include <Constants.au3><br />
<br />
Local $aArray[5] = ['Item_1', 'Item_2', 'Item_3', 'Item_4', 'Item_5']<br />
<br />
ConsoleWrite(_IsInBounds($aArray, 1) & @CRLF) ; Returns True as the Array has 5 items.<br />
ConsoleWrite(_IsInBounds($aArray, 5) & @CRLF) ; Returns False as the Array has 5 items but starts from the 0th index not 1st.<br />
ConsoleWrite(_IsInBounds($aArray, 0) & @CRLF) ; Returns True.<br />
<br />
If _IsInBounds($aArray, 4) Then<br />
MsgBox($MB_SYSTEMMODAL, '', 'Position 4 contains the value: "' & $aArray[4] & '"')<br />
EndIf<br />
<br />
Func _IsInBounds(ByRef Const $aArray, $iIndex)<br />
Local $iDim = UBound($aArray, 0)<br />
If $iDim < 0 Or $iDim > 2 Then ; If not a 1D or 2D Array, then return -1 and set @error to non-zero.<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $iIndex < UBound($aArray, 1)<br />
EndFunc ;==>_IsInBounds</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _MultiFileListToArray ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=4920-valuater<br />
|AuthorName=Valuater<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
; Multiple File List to Array<br />
<br />
$Files_List = _MultiFileListToArray(@ScriptDir, "*.txt|*.ini")<br />
<br />
; for display only<br />
$GUI = GUICreate(" _MultiFileListToArray - DEMO")<br />
$Edit1 = GUICtrlCreateEdit("", 50, 50, 300, 300)<br />
For $x = 1 To UBound($Files_List) - 1<br />
GUICtrlSetData(-1, $Files_List[$x] & @CRLF, 1)<br />
Next<br />
GUISetState()<br />
<br />
While GUIGetMsg() <> -3<br />
WEnd<br />
; end display only<br />
<br />
Func _MultiFileListToArray($sPath, $sFilter = "*", $iFlag = 0)<br />
Local $hSearch, $sFile, $asFileList[1], $sCount<br />
If Not FileExists($sPath) Then Return SetError(1, 1, "")<br />
If (StringInStr($sFilter, "\")) Or (StringInStr($sFilter, "/")) Or (StringInStr($sFilter, ":")) Or (StringInStr($sFilter, ">")) Or (StringInStr($sFilter, "<")) Or (StringStripWS($sFilter, 8) = "") Then Return SetError(2, 2, "")<br />
$sFilter = (StringSplit($sFilter, "|"))<br />
If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 3, "")<br />
For $sCount = 1 To $sFilter[0]<br />
$hSearch = FileFindFirstFile($sPath & "\" & $sFilter[$sCount])<br />
If $hSearch = -1 Then<br />
If $sCount = $sFilter[0] Then Return SetError(4, 4, $asFileList)<br />
ContinueLoop<br />
EndIf<br />
While 1<br />
$sFile = FileFindNextFile($hSearch)<br />
If @error Then<br />
SetError(0)<br />
ExitLoop<br />
EndIf<br />
If $iFlag = 1 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") <> 0 Then ContinueLoop<br />
If $iFlag = 2 And StringInStr(FileGetAttrib($sPath & "\" & $sFile), "D") = 0 Then ContinueLoop<br />
ReDim $asFileList[UBound($asFileList) + 1]<br />
$asFileList[0] = $asFileList[0] + 1<br />
$asFileList[UBound($asFileList) - 1] = $sFile<br />
WEnd<br />
FileClose($hSearch)<br />
Next<br />
Return $asFileList<br />
EndFunc ;==>_MultiFileListToArray<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== Return Min or Max Number From One or Two Arrays ==<br />
<br />
{{Snippet Header<br />
|AuthorURL=1967-garyfrost<br />
|AuthorName=GaryFrost<br />
}}<br />
<br />
<syntaxhighlight lang = "autoit"><br />
#include <Array.au3><br />
<br />
Func _MinMaxa($a_nums01, $MaxFlag = 0, $a_nums02 = 0)<br />
If Not IsArray($a_nums01) Then<br />
SetError(1)<br />
Return (0)<br />
EndIf<br />
<br />
If @NumParams = 3 Then<br />
If Not IsArray($a_nums02) Then<br />
SetError(3)<br />
Return (0)<br />
EndIf<br />
EndIf<br />
<br />
Local $idx<br />
<br />
For $idx = 0 To UBound($a_nums01) - 1<br />
If StringIsFloat($a_nums01[$idx]) Or StringIsInt($a_nums01[$idx]) Then<br />
$a_nums01[$idx] = Number($a_nums01[$idx])<br />
Else<br />
SetError(2)<br />
Return (0)<br />
EndIf<br />
Next<br />
<br />
_ArraySort($a_nums01, $MaxFlag)<br />
<br />
If @NumParams = 3 Then<br />
For $idx = 0 To UBound($a_nums02) - 1<br />
If StringIsFloat($a_nums02[$idx]) Or StringIsInt($a_nums02[$idx]) Then<br />
$a_nums02[$idx] = Number($a_nums02[$idx])<br />
Else<br />
SetError(4)<br />
Return (0)<br />
EndIf<br />
Next<br />
<br />
_ArraySort($a_nums02, $MaxFlag)<br />
<br />
If $MaxFlag Then<br />
If Number($a_nums01[0]) > Number($a_nums02[0]) Then<br />
Return $a_nums01[0]<br />
Else<br />
Return $a_nums02[0]<br />
EndIf<br />
Else<br />
If Number($a_nums01[0]) < Number($a_nums02[0]) Then<br />
Return $a_nums01[0]<br />
Else<br />
Return $a_nums02[0]<br />
EndIf<br />
EndIf<br />
EndIf<br />
<br />
Return $a_nums01[0]<br />
EndFunc ;==>_MinMaxa<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]</div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_Windows_Users_)&diff=12948
Snippets ( Windows Users )
2015-04-01T17:19:50Z
<p>Spudw2k: /* _GetLocalAdmins */</p>
<hr />
<div>__TOC__<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== Add User Accounts ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 2709-mhz<br />
| AuthorName = MHz<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
_NetUser('Jack', 'pw_abc')<br />
_NetUser('Jill', 'pw_def')<br />
<br />
; Add User Accounts<br />
Func _NetUser($sName, $sPassword = '', $sGroupName = 'Administrators', $iAutoLogon = 0)<br />
; Creates user accounts. Only 1 user can have autologon, if set.<br />
If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $sName) Then<br />
RunWait(@ComSpec & ' /c ' & _<br />
'Net User ' & $sName & ' ' & $sPassword & ' /add &&' & _<br />
'Net LocalGroup ' & $sGroupName & ' ' & $sName & ' /add &' & _<br />
'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE)<br />
If $iAutoLogon Then<br />
Local $sRegKey = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'<br />
RegWrite($sRegKey, 'DefaultUserName', 'Reg_sz', $sName)<br />
RegWrite($sRegKey, 'DefaultPassword', 'Reg_sz', $sPassword)<br />
RegWrite($sRegKey, 'AutoAdminLogon', 'Reg_sz', 1)<br />
EndIf<br />
EndIf<br />
EndFunc ;==>_NetUser<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLogonTime ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Get the last date and time the user logged on.<br />
<br />
#include <Date.au3><br />
<br />
ConsoleWrite(_GetLogonTime() & @LF)<br />
<br />
Func _GetLogonTime($sUserName = @UserName, $sComputerName = ".") ; Idea by trancexx: http://www.autoitscript.com/forum/topic/113611-if-isadmin-not-detected-as-admin/<br />
Local $aRet = DllCall("netapi32.dll", "long", "NetUserGetInfo", "wstr", $sComputerName, "wstr", $sUserName, "dword", 11, "ptr*", 0)<br />
If @error Or $aRet[0] Then Return SetError(1, 0, False)<br />
Local $sHours = DllStructGetData(DllStructCreate("ptr;ptr;ptr;ptr;dword;dword;dword;ptr;ptr;dword;dword;dword;dword;ptr;dword;ptr;dword;dword;byte;dword", $aRet[4]), 18)<br />
DllCall("netapi32.dll", "long", "NetApiBufferFree", "ptr", $aRet[4])<br />
Return _DateAdd("h", "-" & $sHours, _NowCalc())<br />
EndFunc ;==>_GetLogonTime<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetUserFullName ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite('Current user''s full name is: ' & _GetUserFullName() & @CRLF)<br />
<br />
; Get the full name of the current user. May be blank if you haven't set a full name.<br />
Func _GetUserFullName()<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2'), $sReturn = ''<br />
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount', 'WQL')<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.FullName<br />
Next<br />
EndIf<br />
EndFunc ;==>_GetUserFullName<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLocalUsers ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_GetLocalUsers() & @CRLF)<br />
<br />
;Retrieve Local Machine Users<br />
Func _GetLocalUsers($sHost = @ComputerName)<br />
Local $sUsers = ""<br />
Local $oColUsers = ObjGet("WinNT://" & $sHost & "")<br />
If Not IsObj($oColUsers) Then Return 0<br />
Dim $aFilter[1] = ["user"]<br />
$oColUsers.Filter = $aFilter<br />
For $oUser In $oColUsers<br />
$sUsers &= $oUser.name & @CR<br />
Next<br />
$sUsers = StringTrimRight($sUsers,1)<br />
$oColUsers = 0<br />
$aFilter = 0<br />
Return $sUsers<br />
EndFunc ;==>_GetLocalUsers</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLocalAdmins ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_GetLocalAdmins() & @CRLF)<br />
<br />
;Retrieve Members of the Local Administrators Group<br />
Func _GetLocalAdmins($sHost = @ComputerName)<br />
Local $sAdminUsers = ""<br />
Local $oColGroups = ObjGet("WinNT://" & $sHost & "")<br />
If Not IsObj($oColGroups) Then Return 0<br />
Local Const $bAdminGroupSID = "0x01020000000000052000000020020000"<br />
Local $aFilter[1] = ["group"]<br />
$oColGroups.Filter = $aFilter<br />
For $oGroup In $oColGroups<br />
If $oGroup.objectSID = $bAdminGroupSID Then<br />
For $oUser In $oGroup.Members<br />
$sAdminUsers &= $oUser.Name & @CR<br />
Next<br />
$sAdminUsers = StringTrimRight($sAdminUsers,1)<br />
EndIf<br />
Next<br />
$oColGroups = 0<br />
$aFlter = 0<br />
Return $sAdminUsers<br />
EndFunc ;==>_GetLocalAdmins</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsAdminEnabled ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsAdminEnabled() & @CRLF)<br />
<br />
Func _IsAdminEnabled() ; By Rover and guinness<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Administrator"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.Disabled = False<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsAdminEnabled<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsAdminEnabledEx ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_IsAdminEnabledEx() & @CRLF)<br />
<br />
; Check if the Administrator account is enabled. Using 'net user' and reading the Standard Stream Output.<br />
Func _IsAdminEnabledEx()<br />
Local $iPID = Run(@ComSpec & ' /c net user Administrator', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 'Yes'<br />
EndFunc ;==>_IsAdminEnabledEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsGuestEnabled ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsGuestEnabled() & @CRLF)<br />
Func _IsGuestEnabled() ; By Rover and guinness<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Guest"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.Disabled = False<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsGuestEnabled<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsGuestEnabledEx ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_IsGuestEnabledEx() & @CRLF)<br />
<br />
; Check if the Guest account is enabled. Idea by Chimaera.<br />
Func _IsGuestEnabledEx()<br />
Local $iPID = Run(@ComSpec & ' /c net user Guest', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 'Yes'<br />
EndFunc ;==>_IsGuestEnabledEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsPasswordExpired ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsPasswordExpired() & @CRLF)<br />
<br />
Func _IsPasswordExpired($sComputerName = @UserName)<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount Where Name = "' & $sComputerName & '"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.PasswordExpires<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsPasswordExpired<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _SetWorkGroupName ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 44525-jscript<br />
| AuthorName = JScript<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
$sNewWorkgroupName = "HOMEOS"<br />
_SetWorkGroupName($sNewWorkgroupName)<br />
<br />
Func _SetWorkGroupName($sGroupName)<br />
Local $aRet = DllCall("Netapi32.dll", "long", "NetJoinDomain", "int", 0, "wstr", $sGroupName, "int", 0, "int", 0, "int", 0, "dword", 0x00000040)<br />
Return $aRet[0]<br />
EndFunc ;==>_SetWorkGroupName<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _WhoAmI ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_WhoAmI() & @CRLF)<br />
<br />
; Displays the username and domain for the currently logged in user.<br />
Func _WhoAmI()<br />
Local $iPID = Run(@ComSpec & ' /c whoami', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
Return StringRegExpReplace(StringUpper($sReturn), '\n|\r', '')<br />
EndFunc ;==>_WhoAmI<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]</div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_Windows_Users_)&diff=12947
Snippets ( Windows Users )
2015-04-01T17:18:31Z
<p>Spudw2k: /* _GetLocalUsers */</p>
<hr />
<div>__TOC__<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== Add User Accounts ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 2709-mhz<br />
| AuthorName = MHz<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
_NetUser('Jack', 'pw_abc')<br />
_NetUser('Jill', 'pw_def')<br />
<br />
; Add User Accounts<br />
Func _NetUser($sName, $sPassword = '', $sGroupName = 'Administrators', $iAutoLogon = 0)<br />
; Creates user accounts. Only 1 user can have autologon, if set.<br />
If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $sName) Then<br />
RunWait(@ComSpec & ' /c ' & _<br />
'Net User ' & $sName & ' ' & $sPassword & ' /add &&' & _<br />
'Net LocalGroup ' & $sGroupName & ' ' & $sName & ' /add &' & _<br />
'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE)<br />
If $iAutoLogon Then<br />
Local $sRegKey = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'<br />
RegWrite($sRegKey, 'DefaultUserName', 'Reg_sz', $sName)<br />
RegWrite($sRegKey, 'DefaultPassword', 'Reg_sz', $sPassword)<br />
RegWrite($sRegKey, 'AutoAdminLogon', 'Reg_sz', 1)<br />
EndIf<br />
EndIf<br />
EndFunc ;==>_NetUser<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLogonTime ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Get the last date and time the user logged on.<br />
<br />
#include <Date.au3><br />
<br />
ConsoleWrite(_GetLogonTime() & @LF)<br />
<br />
Func _GetLogonTime($sUserName = @UserName, $sComputerName = ".") ; Idea by trancexx: http://www.autoitscript.com/forum/topic/113611-if-isadmin-not-detected-as-admin/<br />
Local $aRet = DllCall("netapi32.dll", "long", "NetUserGetInfo", "wstr", $sComputerName, "wstr", $sUserName, "dword", 11, "ptr*", 0)<br />
If @error Or $aRet[0] Then Return SetError(1, 0, False)<br />
Local $sHours = DllStructGetData(DllStructCreate("ptr;ptr;ptr;ptr;dword;dword;dword;ptr;ptr;dword;dword;dword;dword;ptr;dword;ptr;dword;dword;byte;dword", $aRet[4]), 18)<br />
DllCall("netapi32.dll", "long", "NetApiBufferFree", "ptr", $aRet[4])<br />
Return _DateAdd("h", "-" & $sHours, _NowCalc())<br />
EndFunc ;==>_GetLogonTime<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetUserFullName ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite('Current user''s full name is: ' & _GetUserFullName() & @CRLF)<br />
<br />
; Get the full name of the current user. May be blank if you haven't set a full name.<br />
Func _GetUserFullName()<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2'), $sReturn = ''<br />
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount', 'WQL')<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.FullName<br />
Next<br />
EndIf<br />
EndFunc ;==>_GetUserFullName<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLocalUsers ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_GetLocalUsers() & @CRLF)<br />
<br />
;Retrieve Local Machine Users<br />
Func _GetLocalUsers($sHost = @ComputerName)<br />
Local $sUsers = ""<br />
Local $oColUsers = ObjGet("WinNT://" & $sHost & "")<br />
If Not IsObj($oColUsers) Then Return 0<br />
Dim $aFilter[1] = ["user"]<br />
$oColUsers.Filter = $aFilter<br />
For $oUser In $oColUsers<br />
$sUsers &= $oUser.name & @CR<br />
Next<br />
$sUsers = StringTrimRight($sUsers,1)<br />
$oColUsers = 0<br />
$aFilter = 0<br />
Return $sUsers<br />
EndFunc ;==>_GetLocalUsers</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLocalAdmins ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_GetLocalAdmins() & @CRLF)<br />
<br />
;Retrieve Members of the Local Administrators Group<br />
Func _GetLocalAdmins($sHost = @ComputerName)<br />
Local $sAdminUsers = ""<br />
Local $cGroups = ObjGet("WinNT://" & $sHost & "")<br />
If Not IsObj($cGroups) Then Return 0<br />
Local Const $bAdminGroupSID = "0x01020000000000052000000020020000"<br />
Local $aFilter[1] = ["group"]<br />
$cGroups.Filter = $aFilter<br />
For $oGroup In $cGroups<br />
If $oGroup.objectSID = $bAdminGroupSID Then<br />
For $oUser In $oGroup.Members<br />
$sAdminUsers &= $oUser.Name & @CR<br />
Next<br />
$sAdminUsers = StringTrimRight($sAdminUsers,1)<br />
EndIf<br />
Next<br />
$cGroups = 0<br />
$aFlter = 0<br />
Return $sAdminUsers<br />
EndFunc ;==>_GetLocalAdmins</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsAdminEnabled ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsAdminEnabled() & @CRLF)<br />
<br />
Func _IsAdminEnabled() ; By Rover and guinness<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Administrator"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.Disabled = False<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsAdminEnabled<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsAdminEnabledEx ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_IsAdminEnabledEx() & @CRLF)<br />
<br />
; Check if the Administrator account is enabled. Using 'net user' and reading the Standard Stream Output.<br />
Func _IsAdminEnabledEx()<br />
Local $iPID = Run(@ComSpec & ' /c net user Administrator', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 'Yes'<br />
EndFunc ;==>_IsAdminEnabledEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsGuestEnabled ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsGuestEnabled() & @CRLF)<br />
Func _IsGuestEnabled() ; By Rover and guinness<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Guest"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.Disabled = False<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsGuestEnabled<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsGuestEnabledEx ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_IsGuestEnabledEx() & @CRLF)<br />
<br />
; Check if the Guest account is enabled. Idea by Chimaera.<br />
Func _IsGuestEnabledEx()<br />
Local $iPID = Run(@ComSpec & ' /c net user Guest', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 'Yes'<br />
EndFunc ;==>_IsGuestEnabledEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsPasswordExpired ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsPasswordExpired() & @CRLF)<br />
<br />
Func _IsPasswordExpired($sComputerName = @UserName)<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount Where Name = "' & $sComputerName & '"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.PasswordExpires<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsPasswordExpired<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _SetWorkGroupName ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 44525-jscript<br />
| AuthorName = JScript<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
$sNewWorkgroupName = "HOMEOS"<br />
_SetWorkGroupName($sNewWorkgroupName)<br />
<br />
Func _SetWorkGroupName($sGroupName)<br />
Local $aRet = DllCall("Netapi32.dll", "long", "NetJoinDomain", "int", 0, "wstr", $sGroupName, "int", 0, "int", 0, "int", 0, "dword", 0x00000040)<br />
Return $aRet[0]<br />
EndFunc ;==>_SetWorkGroupName<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _WhoAmI ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_WhoAmI() & @CRLF)<br />
<br />
; Displays the username and domain for the currently logged in user.<br />
Func _WhoAmI()<br />
Local $iPID = Run(@ComSpec & ' /c whoami', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
Return StringRegExpReplace(StringUpper($sReturn), '\n|\r', '')<br />
EndFunc ;==>_WhoAmI<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]</div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_Windows_Users_)&diff=12946
Snippets ( Windows Users )
2015-04-01T17:17:10Z
<p>Spudw2k: /* _GetLocalAdmins */</p>
<hr />
<div>__TOC__<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== Add User Accounts ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 2709-mhz<br />
| AuthorName = MHz<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
_NetUser('Jack', 'pw_abc')<br />
_NetUser('Jill', 'pw_def')<br />
<br />
; Add User Accounts<br />
Func _NetUser($sName, $sPassword = '', $sGroupName = 'Administrators', $iAutoLogon = 0)<br />
; Creates user accounts. Only 1 user can have autologon, if set.<br />
If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $sName) Then<br />
RunWait(@ComSpec & ' /c ' & _<br />
'Net User ' & $sName & ' ' & $sPassword & ' /add &&' & _<br />
'Net LocalGroup ' & $sGroupName & ' ' & $sName & ' /add &' & _<br />
'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE)<br />
If $iAutoLogon Then<br />
Local $sRegKey = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'<br />
RegWrite($sRegKey, 'DefaultUserName', 'Reg_sz', $sName)<br />
RegWrite($sRegKey, 'DefaultPassword', 'Reg_sz', $sPassword)<br />
RegWrite($sRegKey, 'AutoAdminLogon', 'Reg_sz', 1)<br />
EndIf<br />
EndIf<br />
EndFunc ;==>_NetUser<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLogonTime ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Get the last date and time the user logged on.<br />
<br />
#include <Date.au3><br />
<br />
ConsoleWrite(_GetLogonTime() & @LF)<br />
<br />
Func _GetLogonTime($sUserName = @UserName, $sComputerName = ".") ; Idea by trancexx: http://www.autoitscript.com/forum/topic/113611-if-isadmin-not-detected-as-admin/<br />
Local $aRet = DllCall("netapi32.dll", "long", "NetUserGetInfo", "wstr", $sComputerName, "wstr", $sUserName, "dword", 11, "ptr*", 0)<br />
If @error Or $aRet[0] Then Return SetError(1, 0, False)<br />
Local $sHours = DllStructGetData(DllStructCreate("ptr;ptr;ptr;ptr;dword;dword;dword;ptr;ptr;dword;dword;dword;dword;ptr;dword;ptr;dword;dword;byte;dword", $aRet[4]), 18)<br />
DllCall("netapi32.dll", "long", "NetApiBufferFree", "ptr", $aRet[4])<br />
Return _DateAdd("h", "-" & $sHours, _NowCalc())<br />
EndFunc ;==>_GetLogonTime<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetUserFullName ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite('Current user''s full name is: ' & _GetUserFullName() & @CRLF)<br />
<br />
; Get the full name of the current user. May be blank if you haven't set a full name.<br />
Func _GetUserFullName()<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2'), $sReturn = ''<br />
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount', 'WQL')<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.FullName<br />
Next<br />
EndIf<br />
EndFunc ;==>_GetUserFullName<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLocalUsers ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_GetLocalUsers() & @CRLF)<br />
<br />
;Retrieve Local Machine Users<br />
Func _GetLocalUsers($host = @ComputerName)<br />
Local $Users = ""<br />
Local $colUsers = ObjGet("WinNT://" & $host & "")<br />
If Not IsObj($colUsers) Then Return 0<br />
Dim $filter[1] = ["user"]<br />
$colUsers.Filter = $filter<br />
For $objUser In $colUsers<br />
$Users &= $objUser.name & @CR<br />
Next<br />
$Users = StringTrimRight($Users,1)<br />
$colUsers = 0<br />
$filter = 0<br />
Return $Users<br />
EndFunc ;==>_GetLocalUsers</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLocalAdmins ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_GetLocalAdmins() & @CRLF)<br />
<br />
;Retrieve Members of the Local Administrators Group<br />
Func _GetLocalAdmins($sHost = @ComputerName)<br />
Local $sAdminUsers = ""<br />
Local $cGroups = ObjGet("WinNT://" & $sHost & "")<br />
If Not IsObj($cGroups) Then Return 0<br />
Local Const $bAdminGroupSID = "0x01020000000000052000000020020000"<br />
Local $aFilter[1] = ["group"]<br />
$cGroups.Filter = $aFilter<br />
For $oGroup In $cGroups<br />
If $oGroup.objectSID = $bAdminGroupSID Then<br />
For $oUser In $oGroup.Members<br />
$sAdminUsers &= $oUser.Name & @CR<br />
Next<br />
$sAdminUsers = StringTrimRight($sAdminUsers,1)<br />
EndIf<br />
Next<br />
$cGroups = 0<br />
$aFlter = 0<br />
Return $sAdminUsers<br />
EndFunc ;==>_GetLocalAdmins</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsAdminEnabled ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsAdminEnabled() & @CRLF)<br />
<br />
Func _IsAdminEnabled() ; By Rover and guinness<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Administrator"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.Disabled = False<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsAdminEnabled<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsAdminEnabledEx ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_IsAdminEnabledEx() & @CRLF)<br />
<br />
; Check if the Administrator account is enabled. Using 'net user' and reading the Standard Stream Output.<br />
Func _IsAdminEnabledEx()<br />
Local $iPID = Run(@ComSpec & ' /c net user Administrator', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 'Yes'<br />
EndFunc ;==>_IsAdminEnabledEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsGuestEnabled ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsGuestEnabled() & @CRLF)<br />
Func _IsGuestEnabled() ; By Rover and guinness<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Guest"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.Disabled = False<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsGuestEnabled<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsGuestEnabledEx ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_IsGuestEnabledEx() & @CRLF)<br />
<br />
; Check if the Guest account is enabled. Idea by Chimaera.<br />
Func _IsGuestEnabledEx()<br />
Local $iPID = Run(@ComSpec & ' /c net user Guest', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 'Yes'<br />
EndFunc ;==>_IsGuestEnabledEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsPasswordExpired ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsPasswordExpired() & @CRLF)<br />
<br />
Func _IsPasswordExpired($sComputerName = @UserName)<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount Where Name = "' & $sComputerName & '"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.PasswordExpires<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsPasswordExpired<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _SetWorkGroupName ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 44525-jscript<br />
| AuthorName = JScript<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
$sNewWorkgroupName = "HOMEOS"<br />
_SetWorkGroupName($sNewWorkgroupName)<br />
<br />
Func _SetWorkGroupName($sGroupName)<br />
Local $aRet = DllCall("Netapi32.dll", "long", "NetJoinDomain", "int", 0, "wstr", $sGroupName, "int", 0, "int", 0, "int", 0, "dword", 0x00000040)<br />
Return $aRet[0]<br />
EndFunc ;==>_SetWorkGroupName<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _WhoAmI ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_WhoAmI() & @CRLF)<br />
<br />
; Displays the username and domain for the currently logged in user.<br />
Func _WhoAmI()<br />
Local $iPID = Run(@ComSpec & ' /c whoami', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
Return StringRegExpReplace(StringUpper($sReturn), '\n|\r', '')<br />
EndFunc ;==>_WhoAmI<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]</div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_Windows_Users_)&diff=12473
Snippets ( Windows Users )
2014-06-19T15:06:20Z
<p>Spudw2k: </p>
<hr />
<div>__TOC__<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== Add User Accounts ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 2709-mhz<br />
| AuthorName = MHz<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
_NetUser('Jack', 'pw_abc')<br />
_NetUser('Jill', 'pw_def')<br />
<br />
; Add User Accounts<br />
Func _NetUser($sName, $sPassword = '', $sGroupName = 'Administrators', $iAutoLogon = 0)<br />
; Creates user accounts. Only 1 user can have autologon, if set.<br />
If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $sName) Then<br />
RunWait(@ComSpec & ' /c ' & _<br />
'Net User ' & $sName & ' ' & $sPassword & ' /add &&' & _<br />
'Net LocalGroup ' & $sGroupName & ' ' & $sName & ' /add &' & _<br />
'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE)<br />
If $iAutoLogon Then<br />
Local $sRegKey = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'<br />
RegWrite($sRegKey, 'DefaultUserName', 'Reg_sz', $sName)<br />
RegWrite($sRegKey, 'DefaultPassword', 'Reg_sz', $sPassword)<br />
RegWrite($sRegKey, 'AutoAdminLogon', 'Reg_sz', 1)<br />
EndIf<br />
EndIf<br />
EndFunc ;==>_NetUser<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLogonTime ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Get the last date and time the user logged on.<br />
<br />
#include <Date.au3><br />
<br />
ConsoleWrite(_GetLogonTime() & @LF)<br />
<br />
Func _GetLogonTime($sUserName = @UserName, $sComputerName = ".") ; Idea by trancexx: http://www.autoitscript.com/forum/topic/113611-if-isadmin-not-detected-as-admin/<br />
Local $aRet = DllCall("netapi32.dll", "long", "NetUserGetInfo", "wstr", $sComputerName, "wstr", $sUserName, "dword", 11, "ptr*", 0)<br />
If @error Or $aRet[0] Then Return SetError(1, 0, False)<br />
Local $sHours = DllStructGetData(DllStructCreate("ptr;ptr;ptr;ptr;dword;dword;dword;ptr;ptr;dword;dword;dword;dword;ptr;dword;ptr;dword;dword;byte;dword", $aRet[4]), 18)<br />
DllCall("netapi32.dll", "long", "NetApiBufferFree", "ptr", $aRet[4])<br />
Return _DateAdd("h", "-" & $sHours, _NowCalc())<br />
EndFunc ;==>_GetLogonTime<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetUserFullName ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite('Current user''s full name is: ' & _GetUserFullName() & @CRLF)<br />
<br />
; Get the full name of the current user. May be blank if you haven't set a full name.<br />
Func _GetUserFullName()<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2'), $sReturn = ''<br />
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount', 'WQL')<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.FullName<br />
Next<br />
EndIf<br />
EndFunc ;==>_GetUserFullName<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLocalUsers ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_GetLocalUsers() & @CRLF)<br />
<br />
;Retrieve Local Machine Users<br />
Func _GetLocalUsers($host = @ComputerName)<br />
Local $Users = ""<br />
Local $colUsers = ObjGet("WinNT://" & $host & "")<br />
If Not IsObj($colUsers) Then Return 0<br />
Dim $filter[1] = ["user"]<br />
$colUsers.Filter = $filter<br />
For $objUser In $colUsers<br />
$Users &= $objUser.name & @CR<br />
Next<br />
$Users = StringTrimRight($Users,1)<br />
$colUsers = 0<br />
$filter = 0<br />
Return $Users<br />
EndFunc ;==>_GetLocalUsers</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLocalAdmins ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_GetLocalAdmins() & @CRLF)<br />
<br />
;Retrieve Members of the Local Administrators Group<br />
Func _GetLocalAdmins($host = @ComputerName)<br />
Local $AdminUsers = ""<br />
Local $colGroups = ObjGet("WinNT://" & $host & "")<br />
If Not IsObj($colGroups) Then Return 0<br />
Dim $filter[1] = ["group"]<br />
$colGroups.Filter = $filter<br />
For $objGroup In $colGroups<br />
If $objGroup.name = "Administrators" Then<br />
For $objUser In $objGroup.Members<br />
$AdminUsers &= $objUser.name & @CR<br />
Next<br />
$AdminUsers = StringTrimRight($AdminUsers,1)<br />
EndIf<br />
Next<br />
$colGroups = 0<br />
$filter = 0<br />
Return $AdminUsers<br />
EndFunc ;==>_GetLocalAdmins</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsAdminEnabled ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsAdminEnabled() & @CRLF)<br />
<br />
Func _IsAdminEnabled() ; By Rover and guinness<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Administrator"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.Disabled = False<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsAdminEnabled<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsAdminEnabledEx ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_IsAdminEnabledEx() & @CRLF)<br />
<br />
; Check if the Administrator account is enabled. Using 'net user' and reading the Standard Stream Output.<br />
Func _IsAdminEnabledEx()<br />
Local $iPID = Run(@ComSpec & ' /c net user Administrator', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 'Yes'<br />
EndFunc ;==>_IsAdminEnabledEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsGuestEnabled ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsGuestEnabled() & @CRLF)<br />
Func _IsGuestEnabled() ; By Rover and guinness<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Guest"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.Disabled = False<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsGuestEnabled<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsGuestEnabledEx ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_IsGuestEnabledEx() & @CRLF)<br />
<br />
; Check if the Guest account is enabled. Idea by Chimaera.<br />
Func _IsGuestEnabledEx()<br />
Local $iPID = Run(@ComSpec & ' /c net user Guest', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 'Yes'<br />
EndFunc ;==>_IsGuestEnabledEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsPasswordExpired ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsPasswordExpired() & @CRLF)<br />
<br />
Func _IsPasswordExpired($sComputerName = @UserName)<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount Where Name = "' & $sComputerName & '"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.PasswordExpires<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsPasswordExpired<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _SetWorkGroupName ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 44525-jscript<br />
| AuthorName = JScript<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
$sNewWorkgroupName = "HOMEOS"<br />
_SetWorkGroupName($sNewWorkgroupName)<br />
<br />
Func _SetWorkGroupName($sGroupName)<br />
Local $aRet = DllCall("Netapi32.dll", "long", "NetJoinDomain", "int", 0, "wstr", $sGroupName, "int", 0, "int", 0, "int", 0, "dword", 0x00000040)<br />
Return $aRet[0]<br />
EndFunc ;==>_SetWorkGroupName<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _WhoAmI ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_WhoAmI() & @CRLF)<br />
<br />
; Displays the username and domain for the currently logged in user.<br />
Func _WhoAmI()<br />
Local $iPID = Run(@ComSpec & ' /c whoami', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
Return StringRegExpReplace(StringUpper($sReturn), '\n|\r', '')<br />
EndFunc ;==>_WhoAmI<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]</div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_Windows_Users_)&diff=12472
Snippets ( Windows Users )
2014-06-19T15:04:25Z
<p>Spudw2k: /* _GetLocalAdmins */</p>
<hr />
<div>__TOC__<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== Add User Accounts ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 2709-mhz<br />
| AuthorName = MHz<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
_NetUser('Jack', 'pw_abc')<br />
_NetUser('Jill', 'pw_def')<br />
<br />
; Add User Accounts<br />
Func _NetUser($sName, $sPassword = '', $sGroupName = 'Administrators', $iAutoLogon = 0)<br />
; Creates user accounts. Only 1 user can have autologon, if set.<br />
If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $sName) Then<br />
RunWait(@ComSpec & ' /c ' & _<br />
'Net User ' & $sName & ' ' & $sPassword & ' /add &&' & _<br />
'Net LocalGroup ' & $sGroupName & ' ' & $sName & ' /add &' & _<br />
'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE)<br />
If $iAutoLogon Then<br />
Local $sRegKey = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'<br />
RegWrite($sRegKey, 'DefaultUserName', 'Reg_sz', $sName)<br />
RegWrite($sRegKey, 'DefaultPassword', 'Reg_sz', $sPassword)<br />
RegWrite($sRegKey, 'AutoAdminLogon', 'Reg_sz', 1)<br />
EndIf<br />
EndIf<br />
EndFunc ;==>_NetUser<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLogonTime ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Get the last date and time the user logged on.<br />
<br />
#include <Date.au3><br />
<br />
ConsoleWrite(_GetLogonTime() & @LF)<br />
<br />
Func _GetLogonTime($sUserName = @UserName, $sComputerName = ".") ; Idea by trancexx: http://www.autoitscript.com/forum/topic/113611-if-isadmin-not-detected-as-admin/<br />
Local $aRet = DllCall("netapi32.dll", "long", "NetUserGetInfo", "wstr", $sComputerName, "wstr", $sUserName, "dword", 11, "ptr*", 0)<br />
If @error Or $aRet[0] Then Return SetError(1, 0, False)<br />
Local $sHours = DllStructGetData(DllStructCreate("ptr;ptr;ptr;ptr;dword;dword;dword;ptr;ptr;dword;dword;dword;dword;ptr;dword;ptr;dword;dword;byte;dword", $aRet[4]), 18)<br />
DllCall("netapi32.dll", "long", "NetApiBufferFree", "ptr", $aRet[4])<br />
Return _DateAdd("h", "-" & $sHours, _NowCalc())<br />
EndFunc ;==>_GetLogonTime<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetUserFullName ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite('Current user''s full name is: ' & _GetUserFullName() & @CRLF)<br />
<br />
; Get the full name of the current user. May be blank if you haven't set a full name.<br />
Func _GetUserFullName()<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2'), $sReturn = ''<br />
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount', 'WQL')<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.FullName<br />
Next<br />
EndIf<br />
EndFunc ;==>_GetUserFullName<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLocalAdmins ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_GetLocalAdmins() & @CRLF)<br />
<br />
;Retrieve Members of the Local Administrators Group<br />
Func _GetLocalAdmins($host = @ComputerName)<br />
Local $AdminUsers = ""<br />
Local $colGroups = ObjGet("WinNT://" & $host & "")<br />
If Not IsObj($colGroups) Then Return 0<br />
Dim $filter[1] = ["group"]<br />
$colGroups.Filter = $filter<br />
For $objGroup In $colGroups<br />
If $objGroup.name = "Administrators" Then<br />
For $objUser In $objGroup.Members<br />
$AdminUsers &= $objUser.name & @CR<br />
Next<br />
$AdminUsers = StringTrimRight($AdminUsers,1)<br />
EndIf<br />
Next<br />
$colGroups = 0<br />
$filter = 0<br />
Return $AdminUsers<br />
EndFunc ;==>_GetLocalAdmins</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsAdminEnabled ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsAdminEnabled() & @CRLF)<br />
<br />
Func _IsAdminEnabled() ; By Rover and guinness<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Administrator"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.Disabled = False<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsAdminEnabled<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsAdminEnabledEx ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_IsAdminEnabledEx() & @CRLF)<br />
<br />
; Check if the Administrator account is enabled. Using 'net user' and reading the Standard Stream Output.<br />
Func _IsAdminEnabledEx()<br />
Local $iPID = Run(@ComSpec & ' /c net user Administrator', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 'Yes'<br />
EndFunc ;==>_IsAdminEnabledEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsGuestEnabled ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsGuestEnabled() & @CRLF)<br />
Func _IsGuestEnabled() ; By Rover and guinness<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Guest"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.Disabled = False<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsGuestEnabled<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsGuestEnabledEx ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_IsGuestEnabledEx() & @CRLF)<br />
<br />
; Check if the Guest account is enabled. Idea by Chimaera.<br />
Func _IsGuestEnabledEx()<br />
Local $iPID = Run(@ComSpec & ' /c net user Guest', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 'Yes'<br />
EndFunc ;==>_IsGuestEnabledEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsPasswordExpired ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsPasswordExpired() & @CRLF)<br />
<br />
Func _IsPasswordExpired($sComputerName = @UserName)<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount Where Name = "' & $sComputerName & '"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.PasswordExpires<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsPasswordExpired<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _SetWorkGroupName ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 44525-jscript<br />
| AuthorName = JScript<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
$sNewWorkgroupName = "HOMEOS"<br />
_SetWorkGroupName($sNewWorkgroupName)<br />
<br />
Func _SetWorkGroupName($sGroupName)<br />
Local $aRet = DllCall("Netapi32.dll", "long", "NetJoinDomain", "int", 0, "wstr", $sGroupName, "int", 0, "int", 0, "int", 0, "dword", 0x00000040)<br />
Return $aRet[0]<br />
EndFunc ;==>_SetWorkGroupName<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _WhoAmI ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_WhoAmI() & @CRLF)<br />
<br />
; Displays the username and domain for the currently logged in user.<br />
Func _WhoAmI()<br />
Local $iPID = Run(@ComSpec & ' /c whoami', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
Return StringRegExpReplace(StringUpper($sReturn), '\n|\r', '')<br />
EndFunc ;==>_WhoAmI<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]</div>
Spudw2k
https://www.autoitscript.com/w/index.php?title=Snippets_(_Windows_Users_)&diff=12044
Snippets ( Windows Users )
2013-12-31T18:08:22Z
<p>Spudw2k: Added _GetLocalAdmins Snippet</p>
<hr />
<div>__TOC__<br />
[[category:Snippets]]<br />
<br />
{{Snippet Credit Header}}<br />
<br />
== Add User Accounts ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 2709-mhz<br />
| AuthorName = MHz<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
_NetUser('Jack', 'pw_abc')<br />
_NetUser('Jill', 'pw_def')<br />
<br />
; Add User Accounts<br />
Func _NetUser($sName, $sPassword = '', $sGroupName = 'Administrators', $iAutoLogon = 0)<br />
; Creates user accounts. Only 1 user can have autologon, if set.<br />
If Not FileExists(EnvGet('AllUsersProfile') & '\..\' & $sName) Then<br />
RunWait(@ComSpec & ' /c ' & _<br />
'Net User ' & $sName & ' ' & $sPassword & ' /add &&' & _<br />
'Net LocalGroup ' & $sGroupName & ' ' & $sName & ' /add &' & _<br />
'Net Accounts /MaxPwAge:UnLimited', '', @SW_HIDE)<br />
If $iAutoLogon Then<br />
Local $sRegKey = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon'<br />
RegWrite($sRegKey, 'DefaultUserName', 'Reg_sz', $sName)<br />
RegWrite($sRegKey, 'DefaultPassword', 'Reg_sz', $sPassword)<br />
RegWrite($sRegKey, 'AutoAdminLogon', 'Reg_sz', 1)<br />
EndIf<br />
EndIf<br />
EndFunc ;==>_NetUser<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLogonTime ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
; Get the last date and time the user logged on.<br />
<br />
#include <Date.au3><br />
<br />
ConsoleWrite(_GetLogonTime() & @LF)<br />
<br />
Func _GetLogonTime($sUserName = @UserName, $sComputerName = ".") ; Idea by trancexx: http://www.autoitscript.com/forum/topic/113611-if-isadmin-not-detected-as-admin/<br />
Local $aRet = DllCall("netapi32.dll", "long", "NetUserGetInfo", "wstr", $sComputerName, "wstr", $sUserName, "dword", 11, "ptr*", 0)<br />
If @error Or $aRet[0] Then Return SetError(1, 0, False)<br />
Local $sHours = DllStructGetData(DllStructCreate("ptr;ptr;ptr;ptr;dword;dword;dword;ptr;ptr;dword;dword;dword;dword;ptr;dword;ptr;dword;dword;byte;dword", $aRet[4]), 18)<br />
DllCall("netapi32.dll", "long", "NetApiBufferFree", "ptr", $aRet[4])<br />
Return _DateAdd("h", "-" & $sHours, _NowCalc())<br />
EndFunc ;==>_GetLogonTime<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetUserFullName ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite('Current user''s full name is: ' & _GetUserFullName() & @CRLF)<br />
<br />
; Get the full name of the current user. May be blank if you haven't set a full name.<br />
Func _GetUserFullName()<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2'), $sReturn = ''<br />
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount', 'WQL')<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.FullName<br />
Next<br />
EndIf<br />
EndFunc ;==>_GetUserFullName<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _GetLocalAdmins ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 26215-spudw2k<br />
| AuthorName = spudw2k<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_GetLocalAdmins() & @CRLF)<br />
<br />
;Retrieve Memebrs of the Local Administrators Group<br />
Func _GetLocalAdmins($host = @ComputerName)<br />
$AdminUsers = ""<br />
Dim $filter[1] = ["group"]<br />
$colGroups = ObjGet("WinNT://" & $host & "")<br />
If Not IsObj($colGroups) Then Return 0<br />
$colGroups.Filter = $filter<br />
For $objGroup In $colGroups<br />
If $objGroup.name = "Administrators" Then<br />
For $objUser In $objGroup.Members<br />
$AdminUsers &= $objUser.name & @CR<br />
Next<br />
$AdminUsers = StringTrimRight($AdminUsers,1)<br />
EndIf<br />
Next<br />
Return $AdminUsers<br />
EndFunc ;==>_GetLocalAdmins<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsAdminEnabled ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsAdminEnabled() & @CRLF)<br />
<br />
Func _IsAdminEnabled() ; By Rover and guinness<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Administrator"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.Disabled = False<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsAdminEnabled<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsAdminEnabledEx ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_IsAdminEnabledEx() & @CRLF)<br />
<br />
; Check if the Administrator account is enabled. Using 'net user' and reading the Standard Stream Output.<br />
Func _IsAdminEnabledEx()<br />
Local $iPID = Run(@ComSpec & ' /c net user Administrator', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 'Yes'<br />
EndFunc ;==>_IsAdminEnabledEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsGuestEnabled ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsGuestEnabled() & @CRLF)<br />
Func _IsGuestEnabled() ; By Rover and guinness<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('SELECT * FROM Win32_UserAccount WHERE Name = "Guest"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.Disabled = False<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsGuestEnabled<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsGuestEnabledEx ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_IsGuestEnabledEx() & @CRLF)<br />
<br />
; Check if the Guest account is enabled. Idea by Chimaera.<br />
Func _IsGuestEnabledEx()<br />
Local $iPID = Run(@ComSpec & ' /c net user Guest', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
<br />
Local $aReturn = StringRegExp($sReturn, 'Account active\s*(.*?)\r', 3)<br />
If @error Then<br />
Return SetError(1, 0, False)<br />
EndIf<br />
Return $aReturn[0] = 'Yes'<br />
EndFunc ;==>_IsGuestEnabledEx<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _IsPasswordExpired ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
ConsoleWrite(_IsPasswordExpired() & @CRLF)<br />
<br />
Func _IsPasswordExpired($sComputerName = @UserName)<br />
Local $oWMIService = ObjGet('winmgmts:\\localhost\root\CIMV2')<br />
Local $oColItems = $oWMIService.ExecQuery('Select * From Win32_UserAccount Where Name = "' & $sComputerName & '"', "WQL", 0x30)<br />
If IsObj($oColItems) Then<br />
For $oItem In $oColItems<br />
Return $oItem.PasswordExpires<br />
Next<br />
EndIf<br />
Return True<br />
EndFunc ;==>_IsPasswordExpired<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _SetWorkGroupName ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 44525-jscript<br />
| AuthorName = JScript<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
$sNewWorkgroupName = "HOMEOS"<br />
_SetWorkGroupName($sNewWorkgroupName)<br />
<br />
Func _SetWorkGroupName($sGroupName)<br />
Local $aRet = DllCall("Netapi32.dll", "long", "NetJoinDomain", "int", 0, "wstr", $sGroupName, "int", 0, "int", 0, "int", 0, "dword", 0x00000040)<br />
Return $aRet[0]<br />
EndFunc ;==>_SetWorkGroupName<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]<br />
<br />
== _WhoAmI ==<br />
<br />
{{Snippet Header<br />
| AuthorURL = 35302-guinness<br />
| AuthorName = guinness<br />
}}<br />
<br />
<syntaxhighlight lang="autoit"><br />
#include <Constants.au3><br />
<br />
ConsoleWrite(_WhoAmI() & @CRLF)<br />
<br />
; Displays the username and domain for the currently logged in user.<br />
Func _WhoAmI()<br />
Local $iPID = Run(@ComSpec & ' /c whoami', @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD), $sReturn = ''<br />
While 1<br />
$sReturn &= StdoutRead($iPID)<br />
If @error Then<br />
ExitLoop<br />
EndIf<br />
WEnd<br />
Return StringRegExpReplace(StringUpper($sReturn), '\n|\r', '')<br />
EndFunc ;==>_WhoAmI<br />
</syntaxhighlight><br />
<br />
[[#top | ReturnToContents]]</div>
Spudw2k