Leaderboard

Hi guys, some time ago I tried to deal with client\server application using native winsock functions, but I encountered some difficult because their limitations, so I decided to write a new UDF based on winsock library. Some functions are simply wrappers of native function, but some other are completely renewed and there are a lot of improvements. Check it out! Each function has a detailed description and I attached 5 simple example script ; #INDEX# ======================================================================================================================= ; Title .........: Winsock ; AutoIt Version : 3.3.14.2 ; Language ......: English ; Description ...: Functions that assist with Winsock library management. ; Author(s) .....: j0kky ; =============================================================================================================================== ; #CONSTANTS# =================================================================================================================== Global Const $TCP_DATA_EOT = 2 ; =============================================================================================================================== ; #CURRENT# ===================================================================================================================== ; _TCPStartup ; _TCPListen ; _TCPAccept ; _TCPRecv ; _TCPConnect ; _TCPSend ; _TCPNameToIP ; _TCPCloseSocket ; _TCPShutdown ; _GetIps ; _UDPStartup ; _UDPBind ; _UDPSendTo ; _UDPRecvFrom ; _UDPCloseSocket ; _UDPShutdown ; =============================================================================================================================== ; #WRAPPER# ===================================================================================================================== Func _TCPStartup() $iResult = TCPStartup() Return SetError(@error, 0, $iResult) EndFunc ;==>_TCPStartup ; #WRAPPER# ===================================================================================================================== Func _TCPListen($iIPAddr, $iPort, $iMaxPendingConnection = 0) If Not $iMaxPendingConnection Then $iResult = TCPListen($iIPAddr, $iPort) Else $iResult = TCPListen($iIPAddr, $iPort, $iMaxPendingConnection) EndIf Return SetError(@error, 0, $iResult) EndFunc ;==>_TCPListen ; #FUNCTION# ==================================================================================================================== ; Name...........: _TCPAccept ; Description ...: Permits an incoming connection attempt on a socket. ; Syntax.........: _TCPAccept($iMainsocket) ; Parameters ....: $iMainsocket - The main socket identifier (SocketID) as returned by _TCPListen function. ; Return values .: On success it returns an array: ; |[0] - The connected socket identifier. ; |[1] - The external address of the client ; |[2] - The external port which the client are communicating on ; On failure it returns -1 and sets @error to non zero: ; |-1 - internal error ; |-2 - missing DLL (Ws2_32.dll) ; |-3 - undefined error ; |-4 - invalid parameter (not used in this function) ; |Any Windows Socket Error Code retrieved by WSAGetLastError ; Author ........: j0kky ; Modified ......: 1.0.0 ; Links .........: accept: https://msdn.microsoft.com/en-us/library/windows/desktop/ms737526(v=vs.85).aspx ; error codes: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740668(v=vs.85).aspx ; =============================================================================================================================== Func _TCPAccept($iMainsocket) $iMainsocket = Number($iMainsocket) If $iMainsocket < 0 Then Return SetError(-4, 0, -1) ; invalid parameter Local $hWs2 = DllOpen("Ws2_32.dll") If @error Then Return SetError(-2, 0, -1) ;missing DLL Local $bError = 0, $nCode = 0, $hSock = 0 Local $tagSockAddr = "short sin_family; ushort sin_port; " & _ "STRUCT; ulong S_addr; ENDSTRUCT; " & _ ;sin_addr "char sin_zero[8]" If Not $bError Then $aRet = DllCall($hWs2, "int", "ioctlsocket", "uint", $iMainsocket, "long", 0x8004667e, "ulong*", 1) ;FIONBIO If @error Then $bError = -1 ElseIf $aRet[0] <> 0 Then ;SOCKET_ERROR $bError = 1 EndIf EndIf If Not $bError Then $tSockAddr = DllStructCreate($tagSockAddr) $aRet = DllCall($hWs2, "uint", "accept", "uint", $iMainsocket, "ptr", DllStructGetPtr($tSockAddr), "int*", DllStructGetSize($tSockAddr)) If @error Then $bError = -1 ElseIf ($aRet[0] = 4294967295) Or ($aRet[0] = -1) Then ;INVALID_SOCKET $bError = 1 $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $bError = -1 ElseIf ($aRet[0] = 0) Or ($aRet[0] = 10035) Then ;WSAEWOULDBLOCK $nCode = -10 ;internal function value, it means no error EndIf Else $hSock = $aRet[0] $aRet = DllCall($hWs2, "ptr", "inet_ntoa", "ulong", DllStructGetData($tSockAddr, "S_addr")) If @error Then $bError = -1 ElseIf $aRet[0] = Null Then $bError = 1 Else $sIPAddr = DllStructGetData(DllStructCreate("char[15]", $aRet[0]), 1) $aRet = DllCall($hWs2, "ushort", "ntohs", "ushort", DllStructGetData($tSockAddr, "sin_port")) If @error Then $bError = -1 Else $nPort = $aRet[0] Local $aResult[3] = [$hSock, $sIPAddr, $nPort] EndIf EndIf EndIf EndIf If $bError < 0 Then $nCode = -1 ;internal error $nReturn = -1 ;failure If $hSock Then TCPCloseSocket($hSock) ElseIf $bError > 0 Then If Not $nCode Then $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $nCode = -1 Else $nCode = $aRet[0] EndIf If $nCode = 0 Then $nCode = -3 ;undefined error EndIf If $nCode = -10 Then $nCode = 0 $nReturn = -1 If $hSock Then TCPCloseSocket($hSock) Else $nReturn = $aResult EndIf DllClose($hWs2) Return SetError($nCode, 0, $nReturn) EndFunc ;==>_TCPAccept ; #FUNCTION# ==================================================================================================================== ; Name...........: _TCPRecv ; Description ...: Receives data from a connected socket. ; Syntax.........: _TCPRecv($iMainsocket, $iMaxLen, $iFlag = 0) ; Parameters ....: $iMainsocket - The array as returned by _TCPAccept ; or the connected socket identifier (SocketID) as returned by _TCPConnect. ; $iMaxLen - max # of characters to receive (usually 2048). ; $iFlag - values can be added together ; |$TCP_DATA_DEFAULT (0) - Text data. [Default] ; |$TCP_DATA_BINARY (1) - Binary data. ; |$TCP_DATA_EOT (2) - Returns data received and ; set @error to -6 when it reaches the End of Text ASCII character (Chr(3)) ; Return values .: On success it returns the binary/string sent by the connected socket. ; On failure it returns "" and sets the @error or @extended flag to non-zero: ; @error values: ; |-1 - internal error ; |-2 - missing DLL (Ws2_32.dll) ; |-3 - undefined error ; |-4 - invalid parameter ; |Any Windows Socket Error Code retrieved by WSAGetLastError ; @extended values: ; |1 - connection closed ; |2 - End of Text reached ; Author ........: j0kky ; Modified ......: 1.0.0 ; Remarks .......: If Unicode strings need to be transmitted they must be encoded/decoded with StringToBinary()/BinaryToString(). ; $iFlag = 2 must be set in couple with _TCPSend ; You must check for both @error and @extended, @extended could be set with @error set to zero ; Links .........: recv: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740121(v=vs.85).aspx ; error codes: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740668(v=vs.85).aspx ; =============================================================================================================================== Func _TCPRecv($iMainsocket, $iMaxLen, $iFlag = 0) If IsArray($iMainsocket) And (UBound($iMainsocket, 0) = 1) And (UBound($iMainsocket) > 0) Then $iMainsocket = $iMainsocket[0] If $iFlag = Default Then $iFlag = 0 $iMainsocket = Number($iMainsocket) $iMaxLen = Number($iMaxLen) $iFlag = Number($iFlag) If $iMainsocket < 0 Or _ $iMaxLen < 1 Or _ Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(-4, 0, -1) ; invalid parameter Local $hWs2 = DllOpen("Ws2_32.dll") If @error Then Return SetError(-2, 0, -1) ;missing DLL Local $bError = 0, $nCode = 0, $nExtended = 0 If Not $bError Then $aRet = DllCall($hWs2, "int", "ioctlsocket", "uint", $iMainsocket, "long", 0x8004667e, "ulong*", 1) ;FIONBIO If @error Then $bError = -1 ElseIf $aRet[0] <> 0 Then ;SOCKET_ERROR $bError = 1 EndIf EndIf Local $tBuf If $iFlag Then $tBuf = DllStructCreate("byte[" & $iMaxLen & "]") Else $tBuf = DllStructCreate("char[" & $iMaxLen & "]") EndIf $aRet = DllCall($hWs2, "int", "recv", "uint", $iMainsocket, "ptr", DllStructGetPtr($tBuf), "int", $iMaxLen, "int", 0) If @error Then $bError = -1 ElseIf ($aRet[0] = -1) Or ($aRet[0] = 4294967295) Then ;SOCKET_ERROR $bError = 1 $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $bError = -1 ElseIf $aRet[0] = 0 Or $aRet[0] = 10035 Then ;WSAEWOULDBLOCK $nCode = -10 ;internal function value, it means no error EndIf ElseIf $aRet[0] = 0 Then $bError = 1 $nCode = -10 $nExtended = 1 ;connection closed Else Local $sResult = DllStructGetData($tBuf, 1) ;data If BitAND($iFlag, 2) = 2 Then ;EOT If StringRight($sResult, 1) = Chr(3) Then $sResult = StringTrimRight($sResult, 1) $nExtended = 2 ;End of Text reached EndIf EndIf EndIf If $bError < 0 Then $nCode = -1 ;internal error $nReturn = "" ;failure ElseIf $bError > 0 Then If Not $nCode Then $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $nCode = -1 Else $nCode = $aRet[0] EndIf If $nCode = 0 Then $nCode = -3 ;undefined error EndIf If $nCode = -10 Then $nCode = 0 $nReturn = "" Else $nReturn = $sResult EndIf DllClose($hWs2) Return SetError($nCode, $nExtended, $nReturn) EndFunc ;==>_TCPRecv ; #FUNCTION# ==================================================================================================================== ; Name...........: _TCPConnect ; Description ...: Create a socket connected to an existing server. ; Syntax.........: _TCPConnect($sIPAddr, $iDestPort, $sSourceAddr = "", $iSourcePort = 0, $iTimeOut = 0) ; Parameters ....: $sIPAddr - Destination IP. ; |Internet Protocol dotted address(IpV4) as "192.162.1.1". ; $iDestPort - Destination port. ; |1 : 65534 - port on which the created socket will be connected. ; $sSourceAddr - Source IP ; |Internet Protocol dotted address(IpV4) as "192.162.1.1". [Default = ""] ; $iSourcePort - Source port. ; |1 : 65534 - port on which the created socket will be bind (on the local PC). [Default = 0] ; $iTimeOut - The maximum time in milliseconds for _TCPConnect to wait for connection. ; |Any value > 0 [Default = 0 and it will be equal to Opt("TCPTimeout")]. ; Return values .: On success it returns the main socket identifier. ; |Any value > 0 ; On failure it returns -1 and sets @error to non zero: ; |-1 - internal error ; |-2 - missing DLL (Ws2_32.dll) ; |-3 - undefined error ; |-4 - invalid parameter ; |-5 - not connected ; |-6 - timed out ; |Any Windows Socket Error Code retrieved by WSAGetLastError ; Author ........: j0kky ; Modified ......: 1.0.0 ; Remarks .......: This function is used by a client to communicate with the server and it allows to choose a source IP, ; a source port and to set a timeout for the connection. ; Links .........: bind: https://msdn.microsoft.com/en-us/library/windows/desktop/ms737550(v=vs.85).aspx ; connect: https://msdn.microsoft.com/en-us/library/windows/desktop/ms737625(v=vs.85).aspx ; select: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740141(v=vs.85).aspx ; error codes: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740668(v=vs.85).aspx ; =============================================================================================================================== Func _TCPConnect($sIPAddr, $iDestPort, $sSourceAddr = "", $iSourcePort = 0, $iTimeOut = 0) If $sSourceAddr = Default Then $sSourceAddr = "" If $iSourcePort = Default Then $iSourcePort = 0 If $iTimeOut = Default Then $iTimeOut = 0 $sIPAddr = String($sIPAddr) $iDestPort = Number($iDestPort) $sSourceAddr = String($sSourceAddr) $iSourcePort = Number($iSourcePort) $iTimeOut = Number($iTimeOut) If Not ($iDestPort > 0 And $iDestPort < 65535) Or _ Not ($iSourcePort >= 0 And $iSourcePort < 65535) Or _ Not ($iTimeOut >= 0) Then Return SetError(-4, 0, -1) ; invalid parameter StringRegExp($sIPAddr, "((?:\d{1,3}\.){3}\d{1,3})", 3) ;$STR_REGEXPARRAYGLOBALMATCH If @error Then Return SetError(-4, 0, -1) If $sSourceAddr <> "" Then StringRegExp($sSourceAddr, "((?:\d{1,3}\.){3}\d{1,3})", 3) ;$STR_REGEXPARRAYGLOBALMATCH If @error Then Return SetError(-4, 0, -1) EndIf Local $hWs2 = DllOpen("Ws2_32.dll") If @error Then Return SetError(-2, 0, -1) ;missing DLL Local $bError = 0, $nCode = 0 Local $tagSockAddr = "short sin_family; ushort sin_port; " & _ "STRUCT; ulong S_addr; ENDSTRUCT; " & _ ;sin_addr "char sin_zero[8]" Local $hSock = DllCall($hWs2, "uint", "socket", "int", 2, "int", 1, "int", 6); AF_INET, SOCK_STREAM, IPPROTO_TCP If @error Then $bError = -1 ElseIf ($hSock[0] = 4294967295) Or ($hSock[0] = -1) Then ;INVALID_SOCKET $bError = 1 Else $hSock = $hSock[0] EndIf If Not $bError Then $aRet = DllCall($hWs2, "ulong", "inet_addr", "str", $sIPAddr) If @error Then $bError = -1 ElseIf ($aRet[0] = -1) Or ($aRet[0] = 4294967295) Or ($aRet[0] = 0) Then ;INADDR_NONE or INADDR_ANY $bError = 1 Else $sIPAddr = $aRet[0] EndIf EndIf If Not $bError Then $aRet = DllCall($hWs2, "ushort", "htons", "ushort", $iDestPort) If @error Then $bError = -1 Else $iDestPort = $aRet[0] EndIf EndIf If (Not $bError) And ($sSourceAddr <> "") Then $aRet = DllCall($hWs2, "ulong", "inet_addr", "str", $sSourceAddr) If @error Then $bError = -1 ElseIf ($aRet[0] = -1) Or ($aRet[0] = 4294967295) Or ($aRet[0] = 0) Then ;INADDR_NONE or INADDR_ANY $bError = 1 Else $sSourceAddr = $aRet[0] EndIf EndIf If (Not $bError) And $iSourcePort Then $aRet = DllCall($hWs2, "ushort", "htons", "ushort", $iSourcePort) If @error Then $bError = -1 Else $iSourcePort = $aRet[0] EndIf EndIf If (Not $bError) And ($sSourceAddr Or $iSourcePort) Then $tSockAddr = DllStructCreate($tagSockAddr) DllStructSetData($tSockAddr, "sin_family", 2) ;AF_INET If $iSourcePort Then DllStructSetData($tSockAddr, "sin_port", $iSourcePort) Else DllStructSetData($tSockAddr, "sin_port", 0) EndIf If $sSourceAddr Then DllStructSetData($tSockAddr, "S_addr", $sSourceAddr) Else DllStructSetData($tSockAddr, "S_addr", 0x00000000) ;INADDR_ANY EndIf $aRet = DllCall($hWs2, "int", "bind", "uint", $hSock, "ptr", DllStructGetPtr($tSockAddr), "int", DllStructGetSize($tSockAddr)) If @error Then $bError = -1 ElseIf $aRet[0] <> 0 Then ;SOCKET_ERROR $bError = 1 EndIf $tSockAddr = 0 EndIf If Not $bError Then $aRet = DllCall($hWs2, "int", "ioctlsocket", "uint", $hSock, "long", 0x8004667e, "ulong*", 1) ;FIONBIO If @error Then $bError = -1 ElseIf $aRet[0] <> 0 Then ;SOCKET_ERROR $bError = 1 EndIf EndIf If Not $bError Then $tSockAddr = DllStructCreate($tagSockAddr) DllStructSetData($tSockAddr, "sin_family", 2) ;AF_INET DllStructSetData($tSockAddr, "sin_port", $iDestPort) DllStructSetData($tSockAddr, "S_addr", $sIPAddr) $aRet = DllCall($hWs2, "int", "connect", "uint", $hSock, "ptr", DllStructGetPtr($tSockAddr), "int", DllStructGetSize($tSockAddr)) If @error Then $bError = -1 ElseIf $aRet[0] <> 0 Then ;SOCKET_ERROR -> functional with connect() on non-blocking sockets $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $bError = -1 ElseIf ($aRet[0] <> 0) And ($aRet[0] <> 10035) Then ;WSAEWOULDBLOCK $bError = 1 EndIf EndIf $tSockAddr = 0 EndIf If Not $bError Then If $iTimeOut = 0 Then $iTimeOut = Opt("TCPTimeout") If $iTimeOut < 1 Then $iTimeOut = 100 Local $tagFd_set = "uint fd_count; uint fd_array[64]" Local $tFd_set_writefds = DllStructCreate($tagFd_set) DllStructSetData($tFd_set_writefds, "fd_count", 1) DllStructSetData($tFd_set_writefds, "fd_array", $hSock, 1) Local $tFd_set_exceptfds = DllStructCreate($tagFd_set) DllStructSetData($tFd_set_exceptfds, "fd_count", 1) DllStructSetData($tFd_set_exceptfds, "fd_array", $hSock, 1) Local $tTimeval = DllStructCreate("long tv_sec; long tv_usec") DllStructSetData($tTimeval, "tv_sec", Floor($iTimeOut / 1000)) DllStructSetData($tTimeval, "tv_usec", Round(Mod($iTimeOut, 1000) * 1000)) $aRet = DllCall($hWs2, "int", "select", _ "int", $hSock, "ptr", 0, "ptr", DllStructGetPtr($tFd_set_writefds), "ptr", DllStructGetPtr($tFd_set_exceptfds), "ptr", DllStructGetPtr($tTimeval)) If @error Then $bError = -1 ElseIf $aRet[0] = 0 Then ;time expired $bError = 1 $nCode = -6 ;timed out, similar to WSAETIMEDOUT ElseIf ($aRet[0] = -1) Or ($aRet[0] = 4294967295) Then ;SOCKET_ERROR $bError = 1 Else If Not (DllStructGetData($tFd_set_writefds, "fd_count") = 1) Then $bError = 1 If DllStructGetData($tFd_set_exceptfds, "fd_count") = 1 Then $tBuf = DllStructCreate("int") $aRet = DllCall("Ws2_32.dll", "int", "getsockopt", _ "uint", $hSock, "int", 0xffff, "int", 0x1007, "ptr", DllStructGetPtr($tBuf), "int*", DllStructGetSize($tBuf)) ;SO_ERROR If @error Then $bError = -1 ElseIf $aRet[0] = 0 Then $nCode = DllStructGetData($tBuf, 1) EndIf Else $nCode = -5 ;NOT_CONNECTED EndIf EndIf EndIf EndIf If $bError < 0 Then $nCode = -1 ;internal error $nReturn = -1 ;failure If $hSock Then TCPCloseSocket($hSock) ElseIf $bError > 0 Then If Not $nCode Then $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $nCode = -1 Else $nCode = $aRet[0] EndIf If $nCode = 0 Then $nCode = -3 ;undefined error EndIf $nReturn = -1 If $hSock Then TCPCloseSocket($hSock) Else $nReturn = $hSock EndIf DllClose($hWs2) Return SetError($nCode, 0, $nReturn) EndFunc ;==>_TCPConnect ; #MODIFIED WRAPPER# ============================================================================================================ ; Name...........: _TCPSend ; Description ...: Wrapper of _TCPSend function, see the guide. ; Syntax.........: _TCPSend($iMainsocket, $iData, $iFlag = 0) ; Parameters ....: $iMainsocket - The array as returned by _TCPAccept ; or the connected socket identifier (SocketID) as returned by _TCPConnect. ; $iData - Data sent. ; |Text or binary data ; $iFlag - values can be added together ; |$TCP_DATA_DEFAULT (0) - It doesn't add anything at the end of the string [Default] ; |$TCP_DATA_EOT (2) - It adds an End of Text ASCII character (Chr(3)) at the end of the string ; Return values .: see the guide. ; Author ........: j0kky ; Modified ......: 1.0.0 ; Remarks .......: If Unicode strings need to be transmitted they must be encoded/decoded with StringToBinary()/BinaryToString(). ; $iFlag = $TCP_DATA_EOT must be set in couple with _TCPRecv, so don't use it for external application ; Links .........: send: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740149(v=vs.85).aspx ; error codes: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740668(v=vs.85).aspx ; =============================================================================================================================== Func _TCPSend($iMainsocket, $iData, $iFlag = 0) If IsArray($iMainsocket) And (UBound($iMainsocket, 0) = 1) And (UBound($iMainsocket) > 0) Then $iMainsocket = $iMainsocket[0] If BitAND($iFlag, 2) = 2 Then $iData = String($iData) & Chr(3) $iResult = TCPSend($iMainsocket, $iData) Return SetError(@error, 0, $iResult) EndFunc ;==>_TCPSend ; #WRAPPER# ===================================================================================================================== Func _TCPNameToIP($sName) $iResult = TCPNameToIP($sName) Return SetError(@error, 0, $iResult) EndFunc ;==>_TCPNameToIP ; #FUNCTION# ==================================================================================================================== ; Name...........: _GetIps ; Description ...: Get local and public IP address of a network/computer ; Syntax.........: _GetIps($iServerName = "") ; Parameters ....: $iServerName - The server name which can retrieve your public IP ; |For example: "www.something.com/somethingelse" [Default = ""] ; Return values .: On success it returns an array: ; |[0] - Local IP (on LAN) of the adapter used to connect to Internet. ; |[1] - Public IP. ; On failure it returns -1 and sets @error to non zero: ; |-1 - internal error ; |-2 - missing DLL (Ws2_32.dll) ; |-3 - undefined error ; |-4 - invalid parameter (not used) ; |-5 - servers are offline ; |-6 - IP retrieving failed ; |Any Windows Socket Error Code retrieved by WSAGetLastError ; Author ........: j0kky ; Modified ......: 1.0.0 ; Remarks .......: It works with Winsock library, so it must be initialized with _TCPStartup(). ; Local and public IPs are both retrieved through internet. ; Links .........: error codes: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740668(v=vs.85).aspx ; =============================================================================================================================== Func _GetIps($iServerName = "") If $iServerName = Default Then $iServerName = "" $iServerName = String($iServerName) $iServerName = StringRegExpReplace($iServerName, "^http.?://", "") If StringInStr($iServerName, "/") Then If StringRegExp($iServerName, "/(.*)", 1)[0] Then If StringRight($iServerName, 1) = "/" Then $iServerName = StringTrimRight($iServerName, 1) EndIf Else $iServerName &= "/" EndIf If Not StringRegExp($iServerName, ".+\..{2,}") Then $iServerName = "" ; invalid parameter Local $hWs2 = DllOpen("Ws2_32.dll") If @error Then Return SetError(-2, 0, -1) ;missing DLL Local $bError = 0, $nCode = 0, $sLocalIP = "", $sPublicIP = "" Local $tagSockAddr = "short sin_family; ushort sin_port; " & _ "STRUCT; ulong S_addr; ENDSTRUCT; " & _ ;sin_addr "char sin_zero[8]" Local $hSock = DllCall($hWs2, "uint", "socket", "int", 2, "int", 1, "int", 6); AF_INET, SOCK_STREAM, IPPROTO_TCP If @error Then $bError = -1 ElseIf ($hSock[0] = 4294967295) Or ($hSock[0] = -1) Then ;INVALID_SOCKET $bError = 1 Else $hSock = $hSock[0] EndIf If Not $bError Then If $iServerName Then Local $aGetIPURL[][2] = [["www.myexternalip.com/raw"], ["checkip.dyndns.org/"], ["bot.whatismyipaddress.com/"], [$iServerName]], $nElements = 0 Else Local $aGetIPURL[][2] = [["www.myexternalip.com/raw"], ["checkip.dyndns.org/"], ["bot.whatismyipaddress.com/"]], $nElements = 0 EndIf For $i = 0 To (UBound($aGetIPURL) - 1) $sServerIp = TCPNameToIP(StringRegExp($aGetIPURL[$i][0], "(.*?)/", 1)[0]) If $sServerIp <> "" Then $aGetIPURL[$nElements][0] = $aGetIPURL[$i][0] $aGetIPURL[$nElements][1] = $sServerIp $nElements += 1 EndIf Next If $nElements Then ReDim $aGetIPURL[$nElements][2] Else $bError = 1 $nCode = -5 ;there is no valid server for checking IP EndIf EndIf If Not $bError Then $aRet = DllCall($hWs2, "ushort", "htons", "ushort", 80) If @error Then $bError = -1 Else $iDestPort = $aRet[0] EndIf EndIf If Not $bError Then For $i = 0 To (UBound($aGetIPURL) - 1) $sServerIp = $aGetIPURL[$i][1] If Not $bError Then $aRet = DllCall($hWs2, "int", "ioctlsocket", "uint", $hSock, "long", 0x8004667e, "ulong*", 1) ;FIONBIO If @error Then $bError = -1 ElseIf $aRet[0] <> 0 Then ;SOCKET_ERROR $bError = 1 EndIf EndIf If Not $bError Then $aRet = DllCall($hWs2, "ulong", "inet_addr", "str", $sServerIp) If @error Then $bError = -1 ElseIf ($aRet[0] = -1) Or ($aRet[0] = 4294967295) Or ($aRet[0] = 0) Then ;INADDR_NONE or INADDR_ANY $bError = 1 Else $sServerIp = $aRet[0] EndIf EndIf If Not $bError Then $tSockAddr = DllStructCreate($tagSockAddr) DllStructSetData($tSockAddr, "sin_family", 2) ;AF_INET DllStructSetData($tSockAddr, "sin_port", $iDestPort) DllStructSetData($tSockAddr, "S_addr", $sServerIp) $aRet = DllCall($hWs2, "int", "connect", "uint", $hSock, "ptr", DllStructGetPtr($tSockAddr), "int", DllStructGetSize($tSockAddr)) If @error Then $bError = -1 ElseIf $aRet[0] <> 0 Then ;SOCKET_ERROR -> functional with connect() on non-blocking sockets $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $bError = -1 ElseIf ($aRet[0] <> 0) And ($aRet[0] <> 10035) Then ;WSAEWOULDBLOCK $bError = 1 EndIf EndIf $tSockAddr = 0 EndIf If Not $bError Then Local $tagFd_set = "uint fd_count; uint fd_array[64]" Local $tFd_set_writefds = DllStructCreate($tagFd_set) DllStructSetData($tFd_set_writefds, "fd_count", 1) DllStructSetData($tFd_set_writefds, "fd_array", $hSock, 1) Local $tFd_set_exceptfds = DllStructCreate($tagFd_set) DllStructSetData($tFd_set_exceptfds, "fd_count", 1) DllStructSetData($tFd_set_exceptfds, "fd_array", $hSock, 1) Local $tTimeval = DllStructCreate("long tv_sec; long tv_usec") DllStructSetData($tTimeval, "tv_sec", Floor(500 / 1000)) DllStructSetData($tTimeval, "tv_usec", Round(Mod(500, 1000) * 1000)) $aRet = DllCall($hWs2, "int", "select", _ "int", $hSock, "ptr", 0, "ptr", DllStructGetPtr($tFd_set_writefds), "ptr", DllStructGetPtr($tFd_set_exceptfds), "ptr", DllStructGetPtr($tTimeval)) If @error Then $bError = -1 ElseIf ($aRet[0] = 0) Or ($aRet[0] = -1) Or ($aRet[0] = 4294967295) Then $bError = 1 Else If Not (DllStructGetData($tFd_set_writefds, "fd_count") = 1) Then $bError = 1 EndIf EndIf If Not $bError And Not $sLocalIP Then $tSockAddr = DllStructCreate($tagSockAddr) $aRet = DllCall($hWs2, "int", "getsockname", "uint", $hSock, "ptr", DllStructGetPtr($tSockAddr), "int*", DllStructGetSize($tSockAddr)) If @error Then $bError = -1 ElseIf $aRet[0] <> 0 Then ;SOCKET_ERROR $bError = 1 Else $aRet = DllCall($hWs2, "ptr", "inet_ntoa", "ulong", DllStructGetData($tSockAddr, "S_addr")) If @error Then $bError = -1 ElseIf $aRet[0] = Null Then $bError = 1 Else $sLocalIP = DllStructGetData(DllStructCreate("char[15]", $aRet[0]), 1) ;IP address EndIf EndIf $tSockAddr = 0 EndIf If Not $bError Then $sRequest = "GET /" & StringRegExp($aGetIPURL[$i][0], "/(.*)", 1)[0] & " HTTP/1.1" & @CRLF & _ "Host: " & StringRegExp($aGetIPURL[$i][0], "(.*?)/", 1)[0] & @CRLF & _ "Connection: close" & @CRLF & @CRLF TCPSend($hSock, $sRequest) Local $sRecv = "", $hTimer = TimerInit() While 1 $sRecv &= _TCPRecv($hSock, 2048) If @error Or @extended Then If @error Then $bError = 1 ExitLoop EndIf If TimerDiff($hTimer) > 2500 Then ExitLoop Sleep(10) WEnd EndIf If Not $bError Then $aPublicIP = StringRegExp($sRecv, "((?:\d{1,3}\.){3}\d{1,3})", 3) ;STR_REGEXPARRAYGLOBALMATCH If Not @error Then $sPublicIP = $aPublicIP[0] ExitLoop Else $bError = 1 EndIf EndIf If $bError And $i = (UBound($aGetIPURL) - 1) Then $nCode = -6 ExitLoop Else $bError = 0 $nCode = 0 TCPCloseSocket($hSock) EndIf Local $hSock = DllCall($hWs2, "uint", "socket", "int", 2, "int", 1, "int", 6); AF_INET, SOCK_STREAM, IPPROTO_TCP If @error Then $bError = -1 ElseIf ($hSock[0] = 4294967295) Or ($hSock[0] = -1) Then ;INVALID_SOCKET $bError = 1 Else $hSock = $hSock[0] EndIf Next EndIf If $bError < 0 Then $nCode = -1 ;internal error $nReturn = -1 ;failure ElseIf $bError > 0 Then If Not $nCode Then $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $nCode = -1 Else $nCode = $aRet[0] EndIf If $nCode = 0 Then $nCode = -3 ;undefined error EndIf $nReturn = -1 Else Local $nReturn[2] = [$sLocalIP, $sPublicIP] EndIf If $hSock Then TCPCloseSocket($hSock) DllClose($hWs2) Return SetError($nCode, 0, $nReturn) EndFunc ;==>_GetIps ; #MODIFIED WRAPPER# ============================================================================================================ ; Name...........: _TCPCloseSocket ; Description ...: Wrapper of TCPCloseSocket function, see the guide. ; Syntax.........: _TCPCloseSocket($iMainsocket) ; Parameters ....: $iMainsocket - The array as returned by _TCPAccept ; or the connected socket identifier (SocketID) as returned by _TCPListen and _TCPConnect. ; Return values .: see the guide. ; Author ........: j0kky ; Modified ......: 1.0.0 ; Links .........: recv: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740121(v=vs.85).aspx ; error codes: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740668(v=vs.85).aspx ; =============================================================================================================================== Func _TCPCloseSocket($iMainsocket) If IsArray($iMainsocket) And (UBound($iMainsocket, 0) = 1) And (UBound($iMainsocket) > 0) Then $iMainsocket = $iMainsocket[0] $iResult = TCPCloseSocket($iMainsocket) Return SetError(@error, 0, $iResult) EndFunc ;==>_TCPCloseSocket ; #WRAPPER# ===================================================================================================================== Func _TCPShutdown() $iResult = TCPShutdown() Return SetError(@error, 0, $iResult) EndFunc ;==>_TCPShutdown ; #WRAPPER# ===================================================================================================================== Func _UDPStartup() $iResult = UDPStartup() Return SetError(@error, 0, $iResult) EndFunc ;==>_UDPStartup ; #FUNCTION# ==================================================================================================================== ; Name...........: _UDPBind ; Description ...: Creates and bind a socket to a local IP and a local port. ; Syntax.........: _UDPBind($sSourceAddr = "", $iSourcePort = 0) ; Parameters ....: $sSourceAddr - Source IP ; |Internet Protocol dotted address(IpV4) as "192.162.1.1". [Default = ""] ; $iSourcePort - Source port. ; |1 : 65534 - port on which the created socket will be bind (on the local PC). [Default = 0] ; Return values .: On success it returns the main socket identifier. ; |Any value > 0 ; On failure it returns -1 and sets @error to non zero: ; |-1 - internal error ; |-2 - missing DLL (Ws2_32.dll) ; |-3 - undefined error ; |-4 - invalid parameter ; |Any Windows Socket Error Code retrieved by WSAGetLastError ; Author ........: j0kky ; Modified ......: 1.0.0 ; Remarks .......: It could be used before both of _UDPSendTo (client app) and _UDPRecvFrom (server app) functions ; Links .........: bind: https://msdn.microsoft.com/en-us/library/windows/desktop/ms737550(v=vs.85).aspx ; error codes: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740668(v=vs.85).aspx ; =============================================================================================================================== Func _UDPBind($sSourceAddr = "", $iSourcePort = 0) If $sSourceAddr = Default Then $sSourceAddr = "" If $iSourcePort = Default Then $iSourcePort = 0 $sSourceAddr = String($sSourceAddr) $iSourcePort = Number($iSourcePort) If Not ($iSourcePort >= 0 And $iSourcePort < 65535) Then Return SetError(-4, 0, -1) ; invalid parameter If $sSourceAddr <> "" Then StringRegExp($sSourceAddr, "((?:\d{1,3}\.){3}\d{1,3})", 3) ;$STR_REGEXPARRAYGLOBALMATCH If @error Then Return SetError(-4, 0, -1) EndIf Local $hWs2 = DllOpen("Ws2_32.dll") If @error Then Return SetError(-2, 0, -1) ;missing DLL Local $bError = 0, $nCode = 0 Local $tagSockAddr = "short sin_family; ushort sin_port; " & _ "STRUCT; ulong S_addr; ENDSTRUCT; " & _ ;sin_addr "char sin_zero[8]" Local $hSock = DllCall($hWs2, "uint", "socket", "int", 2, "int", 2, "int", 17); AF_INET, SOCK_DGRAM, IPPROTO_UDP If @error Then $bError = -1 ElseIf ($hSock[0] = 4294967295) Or ($hSock[0] = -1) Then ;INVALID_SOCKET $bError = 1 Else $hSock = $hSock[0] EndIf If (Not $bError) And ($sSourceAddr <> "") Then $aRet = DllCall($hWs2, "ulong", "inet_addr", "str", $sSourceAddr) If @error Then $bError = -1 ElseIf ($aRet[0] = -1) Or ($aRet[0] = 4294967295) Or ($aRet[0] = 0) Then ;INADDR_NONE or INADDR_ANY $bError = 1 Else $sSourceAddr = $aRet[0] EndIf EndIf If (Not $bError) And $iSourcePort Then $aRet = DllCall($hWs2, "ushort", "htons", "ushort", $iSourcePort) If @error Then $bError = -1 Else $iSourcePort = $aRet[0] EndIf EndIf If Not $bError Then $tSockAddr = DllStructCreate($tagSockAddr) DllStructSetData($tSockAddr, "sin_family", 2) ;AF_INET If $iSourcePort Then DllStructSetData($tSockAddr, "sin_port", $iSourcePort) Else DllStructSetData($tSockAddr, "sin_port", 0) EndIf If $sSourceAddr Then DllStructSetData($tSockAddr, "S_addr", $sSourceAddr) Else DllStructSetData($tSockAddr, "S_addr", 0x00000000) ;INADDR_ANY EndIf $aRet = DllCall($hWs2, "int", "bind", "uint", $hSock, "ptr", DllStructGetPtr($tSockAddr), "int", DllStructGetSize($tSockAddr)) If @error Then $bError = -1 ElseIf $aRet[0] <> 0 Then ;SOCKET_ERROR $bError = 1 EndIf $tSockAddr = 0 EndIf If $bError < 0 Then $nCode = -1 ;internal error $nReturn = -1 ;failure If $hSock Then UDPCloseSocket($hSock) ElseIf $bError > 0 Then If Not $nCode Then $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $nCode = -1 Else $nCode = $aRet[0] EndIf If $nCode = 0 Then $nCode = -3 ;undefined error EndIf $nReturn = -1 If $hSock Then UDPCloseSocket($hSock) Else $nReturn = $hSock EndIf DllClose($hWs2) Return SetError($nCode, 0, $nReturn) EndFunc ;==>_UDPBind ; #FUNCTION# ==================================================================================================================== ; Name...........: _UDPSendTo ; Description ...: Sends data to an address/port, it uses a socket created by _UDPBind or it creates a socket itself ; Syntax.........: _UDPSendTo($sIPAddr, $iDestPort, $iData, $iMainsocket = 0) ; Parameters ....: $sIPAddr - Destination IP. ; |Internet Protocol dotted address(IpV4) as "192.162.1.1". ; $iDestPort - Destination port. ; |1 : 65534 - port which the created socket will connect on. ; $iData - Data sent. ; |Text or binary data ; $iMainsocket - Main socket identifier returned by _UDPBind. ; |Any value > 0 [Default = 0] ; Return values .: On success it returns an array: ; |[0] - The number of bytes sent. ; |[1] - The main socket identifier used. ; On failure it returns -1 and sets @error to non zero: ; |-1 - internal error ; |-2 - missing DLL (Ws2_32.dll) ; |-3 - undefined error ; |-4 - invalid parameter ; |Any Windows Socket Error Code retrieved by WSAGetLastError ; Author ........: j0kky ; Modified ......: 1.0.0 ; Links .........: sendto: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740148(v=vs.85).aspx ; error codes: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740668(v=vs.85).aspx ; =============================================================================================================================== Func _UDPSendTo($sIPAddr, $iDestPort, $iData, $iMainsocket = 0) If $iMainsocket = Default Then $iMainsocket = 0 $iMainsocket = Number($iMainsocket) $sIPAddr = String($sIPAddr) $iDestPort = Number($iDestPort) If Not IsBinary($iData) Then $iData = String($iData) If Not ($iDestPort > 0 And $iDestPort < 65535) Or _ $iMainsocket < 0 Then Return SetError(-4, 0, -1) ; invalid parameter StringRegExp($sIPAddr, "((?:\d{1,3}\.){3}\d{1,3})", 3) ;$STR_REGEXPARRAYGLOBALMATCH If @error Then Return SetError(-4, 0, -1) Local $hWs2 = DllOpen("Ws2_32.dll") If @error Then Return SetError(-2, 0, -1) ;missing DLL Local $bError = 0, $nCode = 0 Local $tagSockAddr = "short sin_family; ushort sin_port; " & _ "STRUCT; ulong S_addr; ENDSTRUCT; " & _ ;sin_addr "char sin_zero[8]" If Not $iMainsocket Then Local $aRet = DllCall($hWs2, "uint", "socket", "int", 2, "int", 2, "int", 17); AF_INET, SOCK_DGRAM, IPPROTO_UDP If @error Then $bError = -1 ElseIf ($aRet[0] = 4294967295) Or ($aRet[0] = -1) Then ;INVALID_SOCKET $bError = 1 Else $iMainsocket = $aRet[0] EndIf EndIf If Not $bError Then $aRet = DllCall($hWs2, "ulong", "inet_addr", "str", $sIPAddr) If @error Then $bError = -1 ElseIf ($aRet[0] = -1) Or ($aRet[0] = 4294967295) Or ($aRet[0] = 0) Then ;INADDR_NONE or INADDR_ANY $bError = 1 Else $sIPAddr = $aRet[0] EndIf EndIf If Not $bError Then $aRet = DllCall($hWs2, "ushort", "htons", "ushort", $iDestPort) If @error Then $bError = -1 Else $iDestPort = $aRet[0] EndIf EndIf If Not $bError Then $aRet = DllCall($hWs2, "int", "ioctlsocket", "uint", $iMainsocket, "long", 0x8004667e, "ulong*", 1) ;FIONBIO If @error Then $bError = -1 ElseIf $aRet[0] <> 0 Then ;SOCKET_ERROR $bError = 1 EndIf EndIf If Not $bError Then Local $tSockAddr = DllStructCreate($tagSockAddr) DllStructSetData($tSockAddr, "sin_family", 2) ;AF_INET DllStructSetData($tSockAddr, "sin_port", $iDestPort) DllStructSetData($tSockAddr, "S_addr", $sIPAddr) Local $nLenght, $tBuf If IsBinary($iData) Then $nLenght = BinaryLen($iData) $tBuf = DllStructCreate("byte[" & $nLenght & "]") DllStructSetData($tBuf, 1, $iData) Else $nLenght = StringLen($iData) $tBuf = DllStructCreate("char[" & $nLenght & "]") DllStructSetData($tBuf, 1, $iData) EndIf $aRet = DllCall($hWs2, "int", "sendto", _ "uint", $iMainsocket, "ptr", DllStructGetPtr($tBuf), "int", $nLenght, "int", 0, "ptr", DllStructGetPtr($tSockAddr), "int", DllStructGetSize($tSockAddr)) If @error Then $bError = -1 ElseIf ($aRet[0] = -1) Or ($aRet[0] = 4294967295) Then ;SOCKET_ERROR $bError = 1 Else Local $aReturn[2] = [$aRet[0], $iMainsocket] EndIf EndIf If $bError < 0 Then $nCode = -1 ;internal error $nReturn = -1 ;failure ElseIf $bError > 0 Then If Not $nCode Then $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $nCode = -1 Else $nCode = $aRet[0] EndIf If $nCode = 0 Then $nCode = -3 ;undefined error EndIf $nReturn = -1 Else $nReturn = $aReturn EndIf DllClose($hWs2) Return SetError($nCode, 0, $nReturn) EndFunc ;==>_UDPSendTo ; #FUNCTION# ==================================================================================================================== ; Name...........: _UDPRecvFrom ; Description ...: Receives data from a bound socket on the local PC. ; Syntax.........: _UDPRecvFrom($iMainsocket, $iMaxLen, $iFlag = 0) ; Parameters ....: $iMainsocket - Main socket identifier. ; |Any value > 0 ; $iMaxLen - Max # of characters to receive (usually 2048). ; $iFlag ; |0 - Text data. [Default] ; |1 - Binary data. ; Return values .: On success it returns an array: ; |[0] - The data received. ; |[1] - The IP address of the sender. ; |[2] - The port used by the sender for connection. ; On failure it returns -1 and sets @error to non zero: ; |-1 - internal error ; |-2 - missing DLL (Ws2_32.dll) ; |-3 - undefined error ; |-4 - invalid parameter ; |Any Windows Socket Error Code retrieved by WSAGetLastError ; Author ........: j0kky ; Modified ......: 1.0.0 ; Links .........: recvfrom: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740120(v=vs.85).aspx ; error codes: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740668(v=vs.85).aspx ; =============================================================================================================================== Func _UDPRecvFrom($iMainsocket, $iMaxLen, $iFlag = 0) If $iFlag = Default Then $iFlag = 0 $iMainsocket = Number($iMainsocket) $iMaxLen = Number($iMaxLen) $iFlag = Number($iFlag) If $iMainsocket < 0 Or _ $iMaxLen < 1 Or _ Not ($iFlag = 0 Or $iFlag = 1) Then Return SetError(-4, 0, -1) ; invalid parameter Local $hWs2 = DllOpen("Ws2_32.dll") If @error Then Return SetError(-2, 0, -1) ;missing DLL Local $bError = 0, $nCode = 0 Local $tagSockAddr = "short sin_family; ushort sin_port; " & _ "STRUCT; ulong S_addr; ENDSTRUCT; " & _ ;sin_addr "char sin_zero[8]" If Not $bError Then $aRet = DllCall($hWs2, "int", "ioctlsocket", "uint", $iMainsocket, "long", 0x8004667e, "ulong*", 1) ;FIONBIO If @error Then $bError = -1 ElseIf $aRet[0] <> 0 Then ;SOCKET_ERROR $bError = 1 EndIf EndIf Local $tSockAddr = DllStructCreate($tagSockAddr) Local $tBuf If $iFlag Then $tBuf = DllStructCreate("byte[" & $iMaxLen & "]") Else $tBuf = DllStructCreate("char[" & $iMaxLen & "]") EndIf $aRet = DllCall($hWs2, "int", "recvfrom", _ "uint", $iMainsocket, "ptr", DllStructGetPtr($tBuf), "int", $iMaxLen, "int", 0, "ptr", DllStructGetPtr($tSockAddr), "int*", DllStructGetSize($tSockAddr)) If @error Then $bError = -1 ElseIf ($aRet[0] = -1) Or ($aRet[0] = 4294967295) Then ;SOCKET_ERROR $bError = 1 $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $bError = -1 ElseIf $aRet[0] = 0 Or $aRet[0] = 10035 Then ;WSAEWOULDBLOCK $nCode = -10 ;internal function value, it means no error EndIf Else Local $aResult[3] = [DllStructGetData($tBuf, 1)] ;data $aRet = DllCall($hWs2, "ptr", "inet_ntoa", "ulong", DllStructGetData($tSockAddr, "S_addr")) If @error Then $bError = -1 ElseIf $aRet[0] = Null Then $bError = 1 Else $aResult[1] = DllStructGetData(DllStructCreate("char[15]", $aRet[0]), 1) ;IP address $aRet = DllCall($hWs2, "ushort", "ntohs", "ushort", DllStructGetData($tSockAddr, "sin_port")) If @error Then $bError = -1 Else $aResult[2] = $aRet[0] ;port EndIf EndIf EndIf If $bError < 0 Then $nCode = -1 ;internal error $nReturn = -1 ;failure ElseIf $bError > 0 Then If Not $nCode Then $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $nCode = -1 Else $nCode = $aRet[0] EndIf If $nCode = 0 Then $nCode = -3 ;undefined error EndIf If $nCode = -10 Then $nCode = 0 $nReturn = -1 Else $nReturn = $aResult EndIf DllClose($hWs2) Return SetError($nCode, 0, $nReturn) EndFunc ;==>_UDPRecvFrom ; #FUNCTION# ==================================================================================================================== ; Name...........: _UDPCloseSocket ; Description ...: Close a UDP socket. ; Syntax.........: _UDPCloseSocket($iMainsocket) ; Parameters ....: $iMainsocket - Main socket identifier returned by _UDPBind or the array returned by _UDPSendTo. ; |Any value > 0 ; Return values .: On success it returns 1. ; On failure it returns -1 and sets @error to non zero: ; |-1 - internal error ; |-2 - missing DLL (Ws2_32.dll) ; |-3 - undefined error ; |-4 - invalid parameter ; |Any Windows Socket Error Code retrieved by WSAGetLastError ; Author ........: j0kky ; Modified ......: 1.0.0 ; Links .........: closesocket: https://msdn.microsoft.com/en-us/library/windows/desktop/ms737582(v=vs.85).aspx ; error codes: https://msdn.microsoft.com/en-us/library/windows/desktop/ms740668(v=vs.85).aspx ; =============================================================================================================================== Func _UDPCloseSocket($iMainsocket) If IsArray($iMainsocket) Then If Not ((UBound($iMainsocket, 0) = 1) And (UBound($iMainsocket) = 2)) Then Return SetError(-1, 0, -4) $iMainsocket = $iMainsocket[1] Else If $iMainsocket < 1 Then Return SetError(-1, 0, -4) EndIf Local $hWs2 = DllOpen("Ws2_32.dll") If @error Then Return SetError(-2, 0, -1) ;missing DLL Local $bError = 0, $nCode = 0 $aRet = DllCall($hWs2, "int", "closesocket", "uint", $iMainsocket) If @error Then $bError = -1 ElseIf $aRet[0] <> 0 Then ;SOCKET_ERROR $bError = 1 EndIf If $bError < 0 Then $nCode = -1 ;internal error $nReturn = -1 ;failure ElseIf $bError > 0 Then If Not $nCode Then $aRet = DllCall($hWs2, "int", "WSAGetLastError") If @error Then $nCode = -1 Else $nCode = $aRet[0] EndIf If $nCode = 0 Then $nCode = -3 ;undefined error EndIf $nReturn = -1 Else $nReturn = 1 EndIf DllClose($hWs2) Return SetError($nCode, 0, $nReturn) EndFunc ;==>_UDPCloseSocket ; #WRAPPER# ===================================================================================================================== Func _UDPShutdown() $iResult = UDPShutdown() Return SetError(@error, 0, $iResult) EndFunc ;==>_UDPShutdown Obviously there can be a lot of errors, so please report here any problem\suggestion! Updated to: 11/01/16 winsock.zip

#NoTrayIcon #include-once #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <FontConstants.au3> #include <TrayConstants.au3> #include <MsgBoxConstants.au3> #include <Process.au3> #include <Misc.au3> #include <Timers.au3> #include <FileConstants.au3> #include <WinAPIFiles.au3> #include "GIFAnimation.au3" #include <WinAPI.au3> #include <Sound.au3> #include <MetroGUI_UDF.au3> #include <file.au3> #include <AutoItConstants.au3> #include <DateTimeConstants.au3> #include <Date.au3> #include <String.au3> #pragma compile(Out, Apagado y Reinicio Automatico RC.exe) #pragma compile(Icon, C:\Users\manue\Downloads\Capture10.ico) #pragma compile(Compatibility, Windows 7 / 8/ 8.1/ 10) #pragma compile(CompanyName, 'Next Generation Technologies of Phoenix.') #pragma compile(FileVersion, 3.0.2.0, 11.15.2017) #pragma compile(FileDescription, Este Programa es Gratuito y NO Tiene Garantias.) $Spanish = False If _Singleton("Por Manuel Hernandez", 1) = 0 Then Exit EndIf If Not StringRight(@OSLang, 2) = "09" Or Not StringRight(@OSLang, 2) = "0a" Then MsgBox(0, "Warning", "Sorry!" & @CRLF & "Your System's Languaje is not supported by this application!!", 0) Exit EndIf $laguage = StringRight(@OSLang, 2) If $laguage = "0a" Then $Spanish = True Select Case (@OSVersion = "WIN_10") Case (@OSVersion = "WIN_8") Case (@OSVersion = "WIN_81") Case (@OSVersion = "WIN_7") Case (@OSVersion = "WIN_VISTA") Case Else If $Spanish = True Then MsgBox($MB_TOPMOST, "Aviso!", "Tu OS es: " & @OSVersion & " el cual no es compatible con esta version del programa :(", 0) Exit Else MsgBox($MB_TOPMOST, "Warning!", "Your OS is: " & @OSVersion & " which is not compatible with this version of the program :(", 0) Exit EndIf ;Else EndSelect Global $Abort Global $Restart Global $Shutdown Global $Month = @MON Global $TimeSplit2[7] = ["cero", "uno", "dos", "tres", "cuatro", "cinco", "seis"] Global $MonthNumberInDP = "" Global $InputTime = "" Global $AlarmTime = "" Global $Tiempo = "" Global $timer = "" Global $Form1 = "" Global $Form2 = "" Global $Check1 = "" Global $Checked = False Global $Update = False Global $aAlarmTime = "" Global $idComboBox = "" Global $Dia = "" Global $Hora = "" Global $Hora2 = "" Global $ExactDay = "" Global $ExactYear = "" Global $ExactMonth = "" Global $iDateCalc = "" Global $anosdiff = "" Global $MesesDff = "" Global $DiasDiff = "" Global $Ditails = False Global $DitailsLabel = "" Global $Ditailslabel2 = "" Global $AlarmLabel = "" Global $Name = "" Global $Yearslabel = "" Global $Monthslabel = "" Global $Dayslabel = "" Global $Datelabel = "" Global $aboutLabel = "" Global $Contactlabel = "" Global $Updatelabel = "" Global $Exitlabel = "" Global $ProductNamelabel = "" Global $VersionLabel = "" Global $Label3label = "" Global $Label4label = "" Global $Label5label = "" Global $Label6label = "" Global $VersionLabellabel = "" Global $YesNoContactlabel = "" Global $Warninglabel = "" Global $Decidedlabel = "" Global $formulario3label1 = "" Global $formulario3label2 = "" Global $formulario3label3 = "" Global $formulario3label4 = "" Global $formulario3label5 = "" Global $formulario3botonlabel = "" Global $formulario3botonlabel2 = "" Global $Sendingmessage = "" Global $messagesent = "" Global $Utility = "" Global $EmailError = "" Global $error = "" Global $errorCode = "" Global $Description = "" Global $Menulabel = "" Global $select = "" Global $selecttime = "" Global $AlarmTimeminutes = "" Global $selectalarmtime = "" Global $advertencia = "" Global $thesystem = "" Global $thesystem2 Global $Thetimeyouinput = "" Global $whichisless = "" Global $youinput = "" Global $TimeSplit = "" Global $time = "" Global $youinput = "" Global $Which = "" Global $and = "" Global $with = "" Global $Hoursand = "" Global $minutesand = "" Global $secondsof = "" Global $theEstimated = "" Global $anoo = "" Global $Mes = "" Global $Diaa = "" Global $msgbox = "" Global $HoraSplit[4] ; Setting Time Variables $15s = 15000 $30s = 30000 $45s = 45000 $1m = 60000 $1mm = 90000 $2m = 120000 $3m = 180000 $5m = 300000 $10m = 600000 $15m = 900250 $30m = 1800500 $45m = 2700750 $1h = 3601000 $1hm = 5401500 $2h = 7202000 $2hm = 9002500 $3h = 10803000 $3hm = 12603500 $4h = 14404000 $4hm = 16204500 $5h = 18005000 $5hm = 19805500 $6h = 21606000 $6hm = 23406500 $7h = 25207000 $8h = 28808000 $9h = 32409000 $12h = 43212000 $15h = 54015000 $18h = 64818000 $24h = 86424000 If $Spanish = True Then Spanish() Func Spanish() If @MON = 01 Then $Month = "Enero" If @MON = 02 Then $Month = "Febrero" If @MON = 03 Then $Month = "Marzo" If @MON = 04 Then $Month = "Abril" If @MON = 05 Then $Month = "Mayo" If @MON = 06 Then $Month = "Junio" If @MON = 07 Then $Month = "Julio" If @MON = 08 Then $Month = "Agosto" If @MON = 09 Then $Month = "Septiembre" If @MON = 10 Then $Month = "Octubre" If @MON = 11 Then $Month = "Noviembre" If @MON = 12 Then $Month = "Deciembre" Global $Months[12] = ["01 Enero", "02 Febrero", "03 Marzo", "04 Abril", "05 Mayo", "06 Junio", "07 Julio", "08 Agosto", "09 Septiembre", "10 Octubre", "11 Noviembre", "12 Diciembre"] $InputTime = "Ingrese el Tiempo ==>" $AlarmTime = "Tiempo de Alarma =>" $Abort = "Abortar" $Restart = "Reiniciar" $Shutdown = "Apagar" $Ditailslabel2 = "Detalles" $AlarmLabel = "Alarma" $DitailsLabel = "☟ Detalles ☟" $Name = "Apagado y Reinicio Automatico" $VersionLabellabel = "Versión RC" $Yearslabel = "Años" $Monthslabel = "Meses" $Dayslabel = "Dias" $Datelabel = "Horas, Minutos y Segundos: " $aboutLabel = "Acerca de" $Contactlabel = "Contacto" $Updatelabel = "Actualizar" $Exitlabel = "Salir" $ProductNamelabel = "Producto: Utilidad de Apagado y Reinicio Automatico RC" $VersionLabel = "Versión 3.0.2.0, 11.15.2017" $Label3label = "Comentarios: Este Programa es Gratuito, Si Pagó Alguna Cantidad de Dinero Exija su Devolucion" $Label4label = "Sugerencias: Mande sus Sugerecias a: manuelcipote31@gmail.com" $Label5label = "Derechos Reservados: Todos los derechos Reservados 2017 - 2021" $Label6label = "Autor: Manuel Hernández" $YesNoContactlabel = "Mande sus Sugerecias o Inquietudes a: manuelcipote31@gmail.com" & @LF & "Le Gustaria Mandarme un Email Ahora?" & @LF & "Presione 'Yes' para Mandarlo Ahora Mismo." $Warninglabel = "Aviso" $Decidedlabel = "Desidio no mandar E-mail" $formulario3label1 = "Llene el formulario" $formulario3label2 = "Presione 'Cancelar' para anular o Presione 'Listo!' para enviar" $formulario3label3 = "Escriba su Nombre" $formulario3label4 = "Escriba su E-mail" $formulario3label5 = "Escriba un Mensaje" $formulario3botonlabel = "Listo!" $formulario3botonlabel2 = "Cancelar" $Utility = "Utilidad" $Sendingmessage = "Enviando tu Mensaje!..." $messagesent = "Mensaje Enviado!" $EmailError = "Error mandando el mensaje!" $errorCode = "Codigo de Error:" $Description = "Descripción" $Menulabel = "menú" $select = "Seleccione" $selecttime = "Seleccione el Tiempo" $AlarmTimeminutes = "15 Segundos|30 Segundos|45 Segundos|1 Minuto|1 Minuto y Medio|2 Minutos|3 Minutos" $selectalarmtime = "No ha Seleccionado Tiempo de Alarma!" & @LF & "Seleccione Tiempo de Alarma o Apague El Switch (Alarma)" $advertencia = "Advertencia" $thesystem = "El Sistema Reiniciara en:" $thesystem2 = "El Sistema se Apagara en:" $Thetimeyouinput = "El tiempo que ingreso es invalido!" & @LF & "Usted ingreso: " $whichisless = " el cual es menor que: " $youinput = "Usted ingreso: " $Which = " el cual es " $and = " y " $with = " con " $Hoursand = " horas y " $minutesand = " minutos y " $secondsof = " segundos de diferencia de " $theEstimated = "El tiempo estimado es: " $anoo = " año, " $Mes = " mes " $Diaa = " dia " EndFunc ;==>Spanish If $Spanish = False Then English() Func English() If @MON = 01 Then $Month = "January" If @MON = 02 Then $Month = "February" If @MON = 03 Then $Month = "March" If @MON = 04 Then $Month = "April" If @MON = 05 Then $Month = "May" If @MON = 06 Then $Month = "June" If @MON = 07 Then $Month = "July" If @MON = 08 Then $Month = "August" If @MON = 09 Then $Month = "September" If @MON = 10 Then $Month = "October" If @MON = 11 Then $Month = "November" If @MON = 12 Then $Month = "December" Global $Months[12] = ["01 January", "02 February", "03 March", "04 April", "05 May", "06 June", "07 July", "08 August", "09 September", "10 October", "11 November", "12 December"] $Abort = "Abort" $Restart = "Restart" $Shutdown = "Shutdown" $Ditailslabel2 = "Details" $AlarmLabel = "Alarm" $InputTime = "Input Time ==> ==>" $AlarmTime = "Alarm Time ==> ==>" $DitailsLabel = "☟ Details ☟" $Name = "Automatic Shutdown and Restart" $VersionLabellabel = "RC Version" $Yearslabel = "Years" $Monthslabel = "Months" $Dayslabel = "Days" $Datelabel = "Hours, Minutes and Seconds: " $aboutLabel = "About" $Contactlabel = "Contact" $Updatelabel = "Update" $Exitlabel = "Exit" $ProductNamelabel = "Product Name: Automatic Shutdown and Restart Utility RC" $VersionLabel = "Version 3.0.2.0, 11.15.2017" $Label3label = "Comments: This Software is totally free, If You Paid Any Money Ask For A Refund" $Label4label = "Suggestions: Send Your Suggestions to: manuelcipote31@gmail.com" $Label5label = "Copyrights: All Rights Reserved 2017 - 2021" $Label6label = "Author: Manuel Hernández" $YesNoContactlabel = "Send Your Suggestions or Concerns to: manuelcipote31@gmail.com" & @LF & "Would You Like to Send us an Email Right Now?" & @LF & "Press 'Yes' to Send it Right Now." $Warninglabel = "Warning" $Decidedlabel = "You've Decided not to send an E-mail" $formulario3label1 = "Fill the form" $formulario3label2 = "Press 'Cancel' to cancel or Press 'Ready!' to send" $formulario3label3 = "Write Your Name" $formulario3label4 = "Write your E-mail" $formulario3label5 = "Write a Menssaje" $formulario3botonlabel = "Ready!" $formulario3botonlabel2 = "Cancel" $Utility = "Utility" $Sendingmessage = "Sending Your Message!..." $messagesent = "Menssage Sent!" $EmailError = "Error sending message!" $errorCode = "Error Code:" $Description = "Description" $Menulabel = "menu" $select = "Select" $selecttime = "Select Time" $AlarmTimeminutes = "15 Seconds|30 Seconds|45 Seconds|1 Minute|1 Minute and 1/2|2 Minutes|3 Minutes" $selectalarmtime = "You haven't selected the alarm time!" & @LF & "Select the alarm time or turn off the switch (Alarm)" $advertencia = "Warning" $thesystem = "The System will Restart in:" $thesystem2 = "The System will Shutdown in:" $Thetimeyouinput = "The Time you input is invalid!" & @LF & "You input: " $whichisless = " which is less than: " $youinput = "You input: " $Which = " which is " $and = " and " $with = " with " $Hoursand = " hours and " $minutesand = " minutes with " $secondsof = " seconds of difference of " $theEstimated = "The estimated time is: " $anoo = " year, " $Mes = " month " $Diaa = " day " EndFunc ;==>English $WorkingPath = @TempDir & "\Mannyfresh" & Random(100000, 999999, 1) ; Unique directory. $creardir = DirCreate($WorkingPath) If $creardir = 1 Then Else MsgBox(0, "Aviso", "Couldn't Setup App", 0) Exit EndIf ;Installing Sound FileInstall("D:\Files\admin\Downloads\BOMB_SIREN-BOMB_SIREN-247265934.wav", $WorkingPath & "\BOMB_SIREN-BOMB_SIREN-247265934.wav", 1) $Alarm = $WorkingPath & "\BOMB_SIREN-BOMB_SIREN-247265934.wav" ;installing Graphics FileInstall("C:\blue.jpg", $WorkingPath & "\blue.jpg", 1) FileInstall("D:\Files\admin\Pictures\Capture10.jpg", $WorkingPath & "\Capture10.jpg", 1) FileInstall("C:\spinner.gif", $WorkingPath & "\spinner.gif", 1) ;setting blinking text $s_text = $advertencia $RED = 1 $sec = @SEC $Check1 = "" $GLOBAL_MAIN_GUI = $Form1 GUIRegisterMsg(0x0201, "INTERNAL_WM_LBUTTONDOWN") ;################################## ;Email Sender ;################################## ; Include ;################################## ;#Include<file.au3> ;################################## ; Variables ;################################## $SmtpServer = "smtp.gmail.com" ; address for the smtp-server to use - REQUIRED $FromName = "Apagado y Reinicio Automatico RC" ; name from who the email was sent $FromAddress = "Your E-mail goes here" ; address from where the mail should come $ToAddress = "to E-mail Address" ; destination address of the email - REQUIRED $Subject = "User info 2.0 Delta RC" ; subject from the email - can be anything you want it to be $Body = "Esto es una prueva" ; the messagebody from the mail - can be left blank but then you get a blank mail $AttachFiles = "" ; the file(s) you want to attach seperated with a ; (Semicolon) - leave blank if not needed $CcAddress = "some email address here" ; address for cc - leave blank if not needed $BccAddress = "some email address here" ; address for bcc - leave blank if not needed $Importance = "Normal" ; Send message priority: "High", "Normal", "Low" $Username = "Your E-mail goes here" ; username for the account used from where the mail gets sent - REQUIRED $Password = "your password goes here" ; password for the account used from where the mail gets sent - REQUIRED $IPPort = 465 ; port used for sending the mail $ssl = 1 ; enables/disables secure socket layer sending - put to 1 if using httpS ;~ $IPPort=465 ; GMAIL port used for sending the mail ;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS ;################################## ; Script ;################################## Func SendEmail() ; for $i = 1 to 20 $Splash = SplashTextOn($Utility, $Sendingmessage, 460, 219, 255, 124, $DLG_CENTERONTOP, "", 24) WinSetTrans($Splash, "", 150) Global $oMyRet[2] Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") $rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl) If @error Then SplashOff() $Update = False MsgBox(0, $EmailError, $errorCode & @error & $Description & $rc) Else SplashOff() $Update = False _Metro_MsgBox(0, $Warninglabel, $messagesent, 300, 11, $GLOBAL_MAIN_GUI) EndIf EndFunc ;==>SendEmail ; ; The UDF Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0) Local $objEmail = ObjCreate("CDO.Message") $objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>' $objEmail.To = $s_ToAddress Local $i_Error = 0 Local $i_Error_desciption = "" If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress $objEmail.Subject = $s_Subject If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then $objEmail.HTMLBody = $as_Body Else $objEmail.Textbody = $as_Body & @CRLF EndIf If $s_AttachFiles <> "" Then Local $S_Files2Attach = StringSplit($s_AttachFiles, ";") For $x = 1 To $S_Files2Attach[0] $S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x]) ;~ ConsoleWrite('@@ Debug : $S_Files2Attach[$x] = ' & $S_Files2Attach[$x] & @LF & '>Error code: ' & @error & @LF) ;### Debug Console If FileExists($S_Files2Attach[$x]) Then ConsoleWrite('+> File attachment added: ' & $S_Files2Attach[$x] & @LF) $objEmail.AddAttachment($S_Files2Attach[$x]) Else ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF) SetError(1) Return 0 EndIf Next EndIf $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer If Number($IPPort) = 0 Then $IPPort = 25 $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort ;Authenticated SMTP If $s_Username <> "" Then $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password EndIf If $ssl Then $objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True EndIf ;Update settings $objEmail.Configuration.Fields.Update ; Set Email Importance Switch $s_Importance Case "High" $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High" Case "Normal" $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Normal" Case "Low" $objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Low" EndSwitch $objEmail.Fields.Update ; Sent the Message $objEmail.Send If @error Then SetError(2) Return $oMyRet[1] EndIf $objEmail = "" EndFunc ;==>_INetSmtpMailCom ; ; ; Com Error Handler Func MyErrFunc() $HexNumber = Hex($oMyError.number, 8) $oMyRet[0] = $HexNumber $oMyRet[1] = StringStripWS($oMyError.description, 3) ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF) SetError(1) ; something to check for when this function returns Return EndFunc ;==>MyErrFunc ;####################################################################################################### ;Email Sender bottom End ;######################################################################################################## ;=======================================================================Creating the GUI=============================================================================== ;Set Theme _SetTheme("DarkBlue") _Metro_EnableHighDPIScaling() ; GUI Size Global $startWidth = 464, $startHeight = 249 Global $endWidth = $startWidth, $endHeight = 400 $GLOBAL_MAIN_GUI = _Metro_CreateGUI("Por Manuel Hernandez", 464, 249, 255, 124, False) $Control_Buttons = _Metro_AddControlButtons(True, False, True, False, True) ;CloseBtn = True, MaximizeBtn = True, MinimizeBtn = True, FullscreenBtn = True, MenuBtn = True ;Set variables for the handles of the GUI-Control buttons. $GUI_CLOSE_BUTTON = $Control_Buttons[0] GUICtrlSetTip($GUI_CLOSE_BUTTON, $Exitlabel) $GUI_MAXIMIZE_BUTTON = $Control_Buttons[1] $GUI_RESTORE_BUTTON = $Control_Buttons[2] $GUI_MINIMIZE_BUTTON = $Control_Buttons[3] $GUI_FULLSCREEN_BUTTON = $Control_Buttons[4] $GUI_FSRestore_BUTTON = $Control_Buttons[5] $GUI_MENU_BUTTON = $Control_Buttons[6] GUICtrlSetTip($GUI_MENU_BUTTON, $Menulabel) ;====================================================================================================================================================================== ;Create Buttons $Button1 = _Metro_CreateButton($Shutdown, 224, 217, 78, 25) $Button2 = _Metro_CreateButton($Restart, 306, 217, 75, 25) $Button3 = _Metro_CreateButton($Abort, 385, 217, 75, 25) ;Create Toggle $Toggle1 = _Metro_CreateToggle($AlarmLabel, 3, 147, 120, 34) GUICtrlSetTip($Toggle1, "On/Off") ;Create Checkboxes $Checkbox1 = _Metro_CreateCheckbox($Ditailslabel2, 3, 120, 85, 25) ; ;Create an Array containing menu button names Dim $MenuButtonsArray[4] = [$aboutLabel, $Contactlabel, $Updatelabel, $Exitlabel] #Region ### START Koda GUI section ### Form= $LabelNext = GUICtrlCreateLabel("Next", 100, 0, 60, 39, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetFont(-1, 22, 0, 0, "Impact") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $LabelGen = GUICtrlCreateLabel("Generation", 60, 10, 300, 70, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetFont(-1, 45, $FW_BOLD, 0, "Impact") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $LabelTech = GUICtrlCreateLabel("Technologies of Phoenix", 10, 65, 463, 50, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetFont(-1, 28, $FW_BOLD, 0, "Impact") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Label1 = GUICtrlCreateLabel($Name, 45, 119, 366, 33, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor($Label1, 0xFFFFFF) GUICtrlSetFont(-1, 16, 0, 0, "Impact") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Label0 = GUICtrlCreateLabel($VersionLabellabel, 367, 130, 96, 25, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor($Label0, 0xFFFFFF) GUICtrlSetFont(-1, 11, 0, 0, "Impact") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) ; ; Create a combobox2 control. $idComboBox2 = GUICtrlCreateCombo($select, 130, 221, 90, 21) GUICtrlSetTip(-1, $selecttime) ; Add additional items to the combobox. GUICtrlSetData($idComboBox2, $AlarmTimeminutes, $select) ; $LabelD = GUICtrlCreateLabel($InputTime, 3, 183, 160, 25) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetFont(-1, 12, 0, 0, "Impact") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Label3 = GUICtrlCreateLabel($AlarmTime, 3, 223, 120, 25, "", $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetFont(-1, 10, 0, 0, "Impact") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) $Inputtimer = GUICtrlCreateInput("00:00:00", 370, 150, 90, 25, BitOR($SS_CENTER, $ES_READONLY)) GUICtrlSetFont(-1, 10, 0, 0) $idDate = GUICtrlCreateDate("", 165, 181, 200, 25) $idDate2 = GUICtrlCreateDate("", 370, 181, 90, 25, $DTS_TIMEFORMAT) $Graphic1 = GUICtrlCreatePic($WorkingPath & "\blue.jpg", 5, 250, 455, 145) GUICtrlSetState($Graphic1, $GUI_DISABLE) GUICtrlSetResizing($Graphic1, 768 + 2 + 32) $LabelDetalles = GUICtrlCreateLabel($DitailsLabel, 7, 250, 450, 45, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetFont(-1, 20) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetResizing($LabelDetalles, 768 + 2 + 32) $LabelTime = GUICtrlCreateLabel($Datelabel & "00:00:00", 10, 362, 450, 40, "", $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor($LabelTime, 0xFFFFFF) GUICtrlSetFont(-1, 20, 700, 0, "Calibri") GUICtrlSetBkColor($LabelTime, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetResizing($LabelTime, 768 + 2 + 32) $LabelDias = GUICtrlCreateLabel($Dayslabel & ": 0", 10, 337, 450, 40, "", $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetFont(-1, 20, 700, 0, "Calibri") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetResizing($LabelDias, 768 + 2 + 32) $LabelMeses = GUICtrlCreateLabel($Monthslabel & ": 0", 10, 312, 450, 40, "", $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetFont(-1, 20, 700, 0, "Calibri") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetResizing($LabelMeses, 768 + 2 + 32) $LabelAnos = GUICtrlCreateLabel($Yearslabel & ": 0", 10, 287, 450, 40, "", $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetFont(-1, 20, 700, 0, "Calibri") GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetResizing($LabelAnos, 768 + 2 + 32) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### GUICtrlSetResizing($Button1, 768 + 2 + 32) GUICtrlSetResizing($Button2, 768 + 2 + 32) GUICtrlSetResizing($Button3, 768 + 2 + 32) GUICtrlSetResizing($Toggle1, 768 + 2 + 32) GUICtrlSetResizing($Checkbox1, 768 + 2 + 32) GUICtrlSetResizing($LabelNext, 768 + 2 + 32) GUICtrlSetResizing($LabelGen, 768 + 2 + 32) GUICtrlSetResizing($LabelTech, 768 + 2 + 32) GUICtrlSetResizing($Label1, 768 + 2 + 32) GUICtrlSetResizing($Label0, 768 + 2 + 32) GUICtrlSetResizing($idComboBox2, 768 + 2 + 32) GUICtrlSetResizing($LabelD, 768 + 2 + 32) GUICtrlSetResizing($Label3, 768 + 2 + 32) GUICtrlSetResizing($Inputtimer, 768 + 2 + 32) GUICtrlSetResizing($idDate, 768 + 2 + 32) GUICtrlSetResizing($idDate2, 768 + 2 + 32) Func expand() For $x = $startHeight To $endHeight Step 6 WinMove("", "", Default, Default, $startWidth, $x) Sleep(PixelsToPercent($startHeight, $x, $endHeight) * 1) Next EndFunc ;==>expand Func contract() For $x = $endHeight To $startHeight Step -6 WinMove("", "", Default, Default, $startWidth, $x) Sleep(PixelsToPercent($startHeight, $x, $endHeight) * 1) Next EndFunc ;==>contract Func PixelsToPercent($min, $current, $max) Return ($current - $min) / ($max - $min) EndFunc ;==>PixelsToPercent While 1 _Metro_HoverCheck_Loop($GLOBAL_MAIN_GUI) $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE DirRemove($WorkingPath, 1) ExitLoop Exit Case $Checkbox1 If _Metro_CheckboxIsChecked($Checkbox1) Then _Metro_CheckboxUnCheck($Checkbox1) contract() $Ditails = False Else _Metro_CheckboxCheck($Checkbox1) expand() $Ditails = True EndIf Case $Button2 $Dia = GUICtrlRead($idDate) $Hora = GUICtrlRead($idDate2) $Hora2 = $Hora If StringInStr($Hora2, "AM") Or StringInStr($Hora2, "PM") Or StringInStr($Hora2, "A.M.") Or StringInStr($Hora2, "P.M.") Then Select Case StringInStr($Hora2, "AM") $HoraSplit = StringSplit($Hora2, ":") If $HoraSplit[1] < 10 Then $Hora2 = "0" & $Hora2 If $HoraSplit[1] = 12 Then $Hora2 = StringReplace($Hora2, "12", "00", 1) $Hora2 = StringTrimRight($Hora2, 2) Case StringInStr($Hora2, "PM") $HoraSplit = StringSplit($Hora2, ":") If $HoraSplit[1] = 1 Then $Hora2 = StringReplace($Hora2, "1", "13", 1) If $HoraSplit[1] = 2 Then $Hora2 = StringReplace($Hora2, "2", "14", 1) If $HoraSplit[1] = 3 Then $Hora2 = StringReplace($Hora2, "3", "15", 1) If $HoraSplit[1] = 4 Then $Hora2 = StringReplace($Hora2, "4", "16", 1) If $HoraSplit[1] = 5 Then $Hora2 = StringReplace($Hora2, "5", "17", 1) If $HoraSplit[1] = 6 Then $Hora2 = StringReplace($Hora2, "6", "18", 1) If $HoraSplit[1] = 7 Then $Hora2 = StringReplace($Hora2, "7", "19", 1) If $HoraSplit[1] = 8 Then $Hora2 = StringReplace($Hora2, "8", "20", 1) If $HoraSplit[1] = 9 Then $Hora2 = StringReplace($Hora2, "9", "21", 1) If $HoraSplit[1] = 10 Then $Hora2 = StringReplace($Hora2, "10", "22", 1) If $HoraSplit[1] = 11 Then $Hora2 = StringReplace($Hora2, "11", "23", 1) StringTrimRight($Hora2, 2) Case StringInStr($Hora2, "P.M.") $Hora2 = StringTrimRight($Hora2, 4) $HoraSplit[1] = StringLeft($Hora2, 2) If $HoraSplit[1] = 01 Then $Hora2 = StringReplace($Hora2, "01", "13", 1) If $HoraSplit[1] = 02 Then $Hora2 = StringReplace($Hora2, "02", "14", 1) If $HoraSplit[1] = 03 Then $Hora2 = StringReplace($Hora2, "03", "15", 1) If $HoraSplit[1] = 04 Then $Hora2 = StringReplace($Hora2, "04", "16", 1) If $HoraSplit[1] = 05 Then $Hora2 = StringReplace($Hora2, "05", "17", 1) If $HoraSplit[1] = 06 Then $Hora2 = StringReplace($Hora2, "06", "18", 1) If $HoraSplit[1] = 07 Then $Hora2 = StringReplace($Hora2, "07", "19", 1) If $HoraSplit[1] = 08 Then $Hora2 = StringReplace($Hora2, "08", "20", 1) If $HoraSplit[1] = 09 Then $Hora2 = StringReplace($Hora2, "09", "21", 1) If $HoraSplit[1] = 10 Then $Hora2 = StringReplace($Hora2, "10", "22", 1) If $HoraSplit[1] = 11 Then $Hora2 = StringReplace($Hora2, "11", "23", 1) Case StringInStr($Hora2, "A.M.") $Hora2 = StringTrimRight($Hora2, 4) $HoraSplit[1] = StringLeft($Hora2, 2) If $HoraSplit[1] = 12 Then $Hora2 = StringReplace($Hora2, "12", "00", 1) EndSelect EndIf For $m = 0 To UBound($Months) - 1 If StringInStr($Dia, StringTrimLeft($Months[$m], 2)) Then $MonthNumberInDP = StringLeft($Months[$m], 2) ExitLoop EndIf Next If $laguage = "0a" Then $DPDay = _StringBetween($Dia, ",", "de", 1, True) $DPDay = _ArrayToString($DPDay) Else $DPDay = StringLeft(StringRight($Dia, 8), 2) EndIf $DPDay = StringStripWS($DPDay, 8) If StringLen($DPDay) = 1 Then $DPDay = StringStripWS("0" & $DPDay, 8) If _DateTimeFormat(_NowCalc(), 1) = $Dia And $Hora2 < _NowTime(5) Then MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, "Error" & @LF & $Thetimeyouinput & $Hora & $whichisless & _NowTime(), 0) ContinueLoop EndIf If StringRight($Dia, 4) < @YEAR Or StringRight($Dia, 4) >= 3000 Then If $Spanish = True Then MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, "Error" & @LF & "El año que ingreso es invalido!", 0) Else MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, "Error" & @LF & "The year you input is invalid!", 0) EndIf ContinueLoop EndIf If StringRight($Dia, 4) = @YEAR And $MonthNumberInDP < @MON Then If $Spanish = True Then MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, "Error" & @LF & "El mes que ingreso es invalido! ", 0) Else MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, "Error" & @LF & "The month you input is invalid! ", 0) EndIf ContinueLoop EndIf If StringRight($Dia, 4) = @YEAR And $MonthNumberInDP = @MON And $DPDay < @MDAY Then If $Spanish = True Then MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, "El Dia que ingreso es invalido! ", 0) Else MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, "The day you input is invalid! ", 0) EndIf ContinueLoop EndIf $iDateCalc = _DateDiff("s", _NowCalc(), StringRight($Dia, 4) & "/" & $MonthNumberInDP & "/" & $DPDay & " " & $Hora2) $Tiempo1 = $iDateCalc * 1000 $seconds1 = 0 $diff1 = $seconds1 - ($Tiempo1 / 1000) ; $minutes1 = Int($diff1 / 60) $secondsRem1 = $diff1 - ($minutes1 * 60) ; $hours1 = Int($minutes1 / 60) $minutes1 = $minutes1 - ($hours1 * 60) $hours1 = $hours1 * -1 $minutes1 = $minutes1 * -1 $secondsRem1 = $secondsRem1 * -1 $time = StringFormat("%02d", $hours1) & ":" & StringFormat("%02d", $minutes1) & ":" & StringFormat("%02d", $secondsRem1) If StringInStr($time, "-") Then $time = StringReplace($time, "-", "") ; $Tiempo = $iDateCalc * 1000 $seconds = 0 $diff = $seconds - ($Tiempo / 1000) ; $minutes = Int($diff / 60) $secondsRem = $diff - ($minutes * 60) ; $hours = Int($minutes / 60) $minutes = $minutes - ($hours * 60) ; $ExactDay = Int($hours / 24) $hours = $hours - ($ExactDay * 24) ; $ExactMonth = Int($ExactDay / 30.4375) $ExactDay = $ExactDay - ($ExactMonth * 30.4375) ; $ExactYear = Int($ExactMonth / 12) $ExactMonth = $ExactMonth - ($ExactYear * 12) ; $ExactYear = $ExactYear * -1 $ExactMonth = $ExactMonth * -1 $ExactDay = $ExactDay * -1 $hours = $hours * -1 $minutes = $minutes * -1 $secondsRem = $secondsRem * -1 $time2 = StringFormat("%01d", $ExactYear) & ":" & StringFormat("%01d", $ExactMonth) & ":" & StringFormat("%01d", $ExactDay) & ":" & StringFormat("%01d", $hours) & ":" & StringFormat("%01d", $minutes) & ":" & StringFormat("%01d", $secondsRem) ; $TimeSplit = StringSplit($time2, ":") For $I = 0 To UBound($TimeSplit) - 1 If StringInStr($TimeSplit[$I], "-") Then $TimeSplit[$I] = StringReplace($TimeSplit[$I], "-", "") Next ; $anosdiff = " " & $Yearslabel $MesesDff = " " & $Monthslabel $DiasDiff = " " & $Dayslabel If $TimeSplit[1] = 1 Then $anosdiff = $anoo If $TimeSplit[2] = 1 Then $MesesDiff = $Mes If $TimeSplit[3] = 1 Then $DiasDiff = $Diaa MsgBox($MB_ICONINFORMATION + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, $youinput & $Dia & " " & $Hora & $Which & $TimeSplit[1] & $anosdiff & " " & $TimeSplit[2] & $MesesDff & $and & $TimeSplit[3] & $DiasDiff & $with & $TimeSplit[4] & $Hoursand & $TimeSplit[5] & $minutesand & $TimeSplit[6] & $secondsof & _DateTimeFormat(@YEAR & "/" & @MON & "/" & @MDAY, 2) & " " & _NowTime() & @LF & $theEstimated & $time, 0) $iDateCalc = _DateDiff("s", _NowCalc(), StringRight($Dia, 4) & "/" & $MonthNumberInDP & "/" & $DPDay & " " & $Hora2) $iDateCalc = $iDateCalc * 1000 ;------------------------------------------------------------------------------------------ Reiniciar() Case $Button1 $Dia = GUICtrlRead($idDate) $Hora = GUICtrlRead($idDate2) $Hora2 = $Hora If StringInStr($Hora2, "AM") Or StringInStr($Hora2, "PM") Or StringInStr($Hora2, "A.M.") Or StringInStr($Hora2, "P.M.") Then Select Case StringInStr($Hora2, "AM") $HoraSplit = StringSplit($Hora2, ":") If $HoraSplit[1] < 10 Then $Hora2 = "0" & $Hora2 If $HoraSplit[1] = 12 Then $Hora2 = StringReplace($Hora2, "12", "00", 1) $Hora2 = StringTrimRight($Hora2, 2) Case StringInStr($Hora2, "PM") $HoraSplit = StringSplit($Hora2, ":") If $HoraSplit[1] = 1 Then $Hora2 = StringReplace($Hora2, "1", "13", 1) If $HoraSplit[1] = 2 Then $Hora2 = StringReplace($Hora2, "2", "14", 1) If $HoraSplit[1] = 3 Then $Hora2 = StringReplace($Hora2, "3", "15", 1) If $HoraSplit[1] = 4 Then $Hora2 = StringReplace($Hora2, "4", "16", 1) If $HoraSplit[1] = 5 Then $Hora2 = StringReplace($Hora2, "5", "17", 1) If $HoraSplit[1] = 6 Then $Hora2 = StringReplace($Hora2, "6", "18", 1) If $HoraSplit[1] = 7 Then $Hora2 = StringReplace($Hora2, "7", "19", 1) If $HoraSplit[1] = 8 Then $Hora2 = StringReplace($Hora2, "8", "20", 1) If $HoraSplit[1] = 9 Then $Hora2 = StringReplace($Hora2, "9", "21", 1) If $HoraSplit[1] = 10 Then $Hora2 = StringReplace($Hora2, "10", "22", 1) If $HoraSplit[1] = 11 Then $Hora2 = StringReplace($Hora2, "11", "23", 1) StringTrimRight($Hora2, 2) Case StringInStr($Hora2, "P.M.") $Hora2 = StringTrimRight($Hora2, 4) $HoraSplit[1] = StringLeft($Hora2, 2) If $HoraSplit[1] = 01 Then $Hora2 = StringReplace($Hora2, "01", "13", 1) If $HoraSplit[1] = 02 Then $Hora2 = StringReplace($Hora2, "02", "14", 1) If $HoraSplit[1] = 03 Then $Hora2 = StringReplace($Hora2, "03", "15", 1) If $HoraSplit[1] = 04 Then $Hora2 = StringReplace($Hora2, "04", "16", 1) If $HoraSplit[1] = 05 Then $Hora2 = StringReplace($Hora2, "05", "17", 1) If $HoraSplit[1] = 06 Then $Hora2 = StringReplace($Hora2, "06", "18", 1) If $HoraSplit[1] = 07 Then $Hora2 = StringReplace($Hora2, "07", "19", 1) If $HoraSplit[1] = 08 Then $Hora2 = StringReplace($Hora2, "08", "20", 1) If $HoraSplit[1] = 09 Then $Hora2 = StringReplace($Hora2, "09", "21", 1) If $HoraSplit[1] = 10 Then $Hora2 = StringReplace($Hora2, "10", "22", 1) If $HoraSplit[1] = 11 Then $Hora2 = StringReplace($Hora2, "11", "23", 1) Case StringInStr($Hora2, "A.M.") $Hora2 = StringTrimRight($Hora2, 4) $HoraSplit[1] = StringLeft($Hora2, 2) If $HoraSplit[1] = 12 Then $Hora2 = StringReplace($Hora2, "12", "00", 1) EndSelect EndIf For $m = 0 To UBound($Months) - 1 If StringInStr($Dia, StringTrimLeft($Months[$m], 2)) Then $MonthNumberInDP = StringLeft($Months[$m], 2) ExitLoop EndIf Next If $laguage = "0a" Then $DPDay = _StringBetween($Dia, ",", "de", 1, True) $DPDay = _ArrayToString($DPDay) Else $DPDay = StringLeft(StringRight($Dia, 8), 2) EndIf $DPDay = StringStripWS($DPDay, 8) If StringLen($DPDay) = 1 Then $DPDay = StringStripWS("0" & $DPDay, 8) If _DateTimeFormat(_NowCalc(), 1) = $Dia And $Hora2 < _NowTime(5) Then MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, "Error" & @LF & $Thetimeyouinput & $Hora & $whichisless & _NowTime(), 0) ContinueLoop EndIf If StringRight($Dia, 4) < @YEAR Or StringRight($Dia, 4) >= 3000 Then If $Spanish = True Then MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, "Atencion", "Error" & @LF & "El año que ingreso es invalido!", 0) Else MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, "Error" & @LF & "The year you input is invalid!", 0) EndIf ContinueLoop EndIf If StringRight($Dia, 4) = @YEAR And $MonthNumberInDP < @MON Then If $Spanish = True Then MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, "Atencion", "Error" & @LF & "El mes que ingreso es invalido! ", 0) Else MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, "Error" & @LF & "The month you input is invalid! ", 0) EndIf ContinueLoop EndIf If StringRight($Dia, 4) = @YEAR And $MonthNumberInDP = @MON And $DPDay < @MDAY Then If $Spanish = True Then MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, "Atencion", "El Dia que ingreso es invalido! ", 0) Else MsgBox($MB_ICONERROR + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, "The day you input is invalid! ", 0) EndIf ContinueLoop EndIf $iDateCalc = _DateDiff("s", _NowCalc(), StringRight($Dia, 4) & "/" & $MonthNumberInDP & "/" & $DPDay & " " & $Hora2) $Tiempo1 = $iDateCalc * 1000 $seconds1 = 0 $diff1 = $seconds1 - ($Tiempo1 / 1000) ; $minutes1 = Int($diff1 / 60) $secondsRem1 = $diff1 - ($minutes1 * 60) ; $hours1 = Int($minutes1 / 60) $minutes1 = $minutes1 - ($hours1 * 60) $hours1 = $hours1 * -1 $minutes1 = $minutes1 * -1 $secondsRem1 = $secondsRem1 * -1 $time = StringFormat("%02d", $hours1) & ":" & StringFormat("%02d", $minutes1) & ":" & StringFormat("%02d", $secondsRem1) If StringInStr($time, "-") Then $time = StringReplace($time, "-", "") ; $Tiempo = $iDateCalc * 1000 $seconds = 0 $diff = $seconds - ($Tiempo / 1000) ; $minutes = Int($diff / 60) $secondsRem = $diff - ($minutes * 60) ; $hours = Int($minutes / 60) $minutes = $minutes - ($hours * 60) ; $ExactDay = Int($hours / 24) $hours = $hours - ($ExactDay * 24) ; $ExactMonth = Int($ExactDay / 30.4375) $ExactDay = $ExactDay - ($ExactMonth * 30.4375) ; $ExactYear = Int($ExactMonth / 12) $ExactMonth = $ExactMonth - ($ExactYear * 12) ; $ExactYear = $ExactYear * -1 $ExactMonth = $ExactMonth * -1 $ExactDay = $ExactDay * -1 $hours = $hours * -1 $minutes = $minutes * -1 $secondsRem = $secondsRem * -1 $time2 = StringFormat("%01d", $ExactYear) & ":" & StringFormat("%01d", $ExactMonth) & ":" & StringFormat("%01d", $ExactDay) & ":" & StringFormat("%01d", $hours) & ":" & StringFormat("%01d", $minutes) & ":" & StringFormat("%01d", $secondsRem) ; $TimeSplit = StringSplit($time2, ":") For $I = 0 To UBound($TimeSplit) - 1 If StringInStr($TimeSplit[$I], "-") Then $TimeSplit[$I] = StringReplace($TimeSplit[$I], "-", "") Next ; $anosdiff = " " & $Yearslabel $MesesDff = " " & $Monthslabel $DiasDiff = " " & $Dayslabel If $TimeSplit[1] = 1 Then $anosdiff = $anoo If $TimeSplit[2] = 1 Then $MesesDiff = $Mes If $TimeSplit[3] = 1 Then $DiasDiff = $Diaa MsgBox($MB_ICONINFORMATION + $MB_TOPMOST + $MB_SYSTEMMODAL, $Warninglabel, $youinput & $Dia & " " & $Hora & $Which & $TimeSplit[1] & $anosdiff & " " & $TimeSplit[2] & $MesesDff & $and & $TimeSplit[3] & $DiasDiff & $with & $TimeSplit[4] & $Hoursand & $TimeSplit[5] & $minutesand & $TimeSplit[6] & $secondsof & _DateTimeFormat(@YEAR & "/" & @MON & "/" & @MDAY, 2) & " " & _NowTime() & @LF & $theEstimated & $time, 0) $iDateCalc = _DateDiff("s", _NowCalc(), StringRight($Dia, 4) & "/" & $MonthNumberInDP & "/" & $DPDay & " " & $Hora2) $iDateCalc = $iDateCalc * 1000 ;------------------------------------------------------------------------------------------ Apagar() Case $Button3 Abortar() Case $Toggle1 If _Metro_ToggleIsChecked($Toggle1) Then _Metro_ToggleUnCheck($Toggle1) $Checked = False Else _Metro_ToggleCheck($Toggle1) $Checked = True Message() EndIf Case $GUI_CLOSE_BUTTON DirRemove($WorkingPath, 1) ExitLoop Exit Case $GUI_MINIMIZE_BUTTON GUISetState(@SW_MINIMIZE) Case $GUI_MENU_BUTTON Local $MenuSelect = _Metro_MenuStart($GLOBAL_MAIN_GUI, $GUI_MENU_BUTTON, 150, $MenuButtonsArray) Switch $MenuSelect Case "0" Acerca() Case "1" Contactar() Case "2" Update() Case "3" DirRemove($WorkingPath, 1) Exit EndSwitch EndSwitch WEnd Func Apagar() $Comboread2 = GUICtrlRead($idComboBox2, 0) If $Comboread2 = 0 And $Checked = True Then MsgBox($MB_SYSTEMMODAL, $Warninglabel, $selectalarmtime, 10) Return EndIf If $Comboread2 = 0 And $Checked = False Then ControlDisable($GLOBAL_MAIN_GUI, "", $Toggle1) ControlDisable($GLOBAL_MAIN_GUI, "", $idComboBox2) ControlDisable($GLOBAL_MAIN_GUI, "", $GUI_CLOSE_BUTTON) ControlDisable($GLOBAL_MAIN_GUI, "", $GUI_MENU_BUTTON) ControlDisable($GLOBAL_MAIN_GUI, "", $idDate) ControlDisable($GLOBAL_MAIN_GUI, "", $idDate2) ;Checking Alarm time $Comboread2 = GUICtrlRead($idComboBox2, 0) If $Comboread2 = "15 Segundos" Or $Comboread2 = "15 Seconds" Then $aAlarmTime = $15s If $Comboread2 = "30 Segundos" Or $Comboread2 = "30 Seconds" Then $aAlarmTime = $30s If $Comboread2 = "45 Segundos" Or $Comboread2 = "45 Seconds" Then $aAlarmTime = $45s If $Comboread2 = "1 Minuto" Or $Comboread2 = "1 Minute" Then $aAlarmTime = $1m If $Comboread2 = "1 Minuto y Medio" Or $Comboread2 = "1 Minute and 1/2" Then $aAlarmTime = $1mm If $Comboread2 = "2 Minutos" Or $Comboread2 = "2 Minutes" Then $aAlarmTime = $2m If $Comboread2 = "3 Minutos" Or $Comboread2 = "3 Minutes" Then $aAlarmTime = $3m ;Setting Flashing Labels Global $lbl_text = GUICtrlCreateLabel($s_text, 145, 159, 85, 17, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor($lbl_text, 0xff0000) ; Red GUICtrlSetFont($lbl_text, 9, 700) Global $LabelApagar = GUICtrlCreateLabel($thesystem2, 220, 160, 145, 20, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetResizing($lbl_text, 768 + 2 + 32) GUICtrlSetResizing($LabelApagar, 768 + 2 + 32) Global $hGIF = _GUICtrlCreateGIF($WorkingPath & "\spinner.gif", "", 190, 280, 90, 90) GUICtrlSetResizing($hGIF, 768 + 2 + 32) If $Ditails = False Then _GIF_PauseAnimation($hGIF) EndIf $Tiempo = $iDateCalc Call("Apagar2") ControlEnable($GLOBAL_MAIN_GUI, "", $idComboBox2) ControlEnable($GLOBAL_MAIN_GUI, "", $Toggle1) ControlEnable($GLOBAL_MAIN_GUI, "", $GUI_CLOSE_BUTTON) ControlEnable($GLOBAL_MAIN_GUI, "", $GUI_MENU_BUTTON) ControlEnable($GLOBAL_MAIN_GUI, "", $idDate) ControlEnable($GLOBAL_MAIN_GUI, "", $idDate2) GUICtrlDelete($LabelApagar) GUICtrlDelete($lbl_text) _GIF_DeleteGIF($hGIF) EndFunc ;==>Apagar Func Apagar2() ;Checking if timer is greater than 0 ;If TimerDiff($timer) > 0 Then $timer = TimerInit() ;EndIf While (TimerDiff($timer) < $Tiempo) ;Setting Toggle _Metro_HoverCheck_Loop($GLOBAL_MAIN_GUI) ;To make sure that the hover effects still work $nMsg = GUIGetMsg() Switch $nMsg Case $Checkbox1 If _Metro_CheckboxIsChecked($Checkbox1) Then _Metro_CheckboxUnCheck($Checkbox1) _GIF_PauseAnimation($hGIF) contract() Else _Metro_CheckboxCheck($Checkbox1) expand() _GIF_ResumeAnimation($hGIF) EndIf Case $Toggle1 If _Metro_ToggleIsChecked($Toggle1) Then _Metro_ToggleUnCheck($Toggle1) $Checked = False Else _Metro_ToggleCheck($Toggle1) $Checked = True EndIf Case $GUI_MINIMIZE_BUTTON GUISetState(@SW_MINIMIZE) Case $Button3 ControlEnable($GLOBAL_MAIN_GUI, "", $idComboBox2) ControlEnable($GLOBAL_MAIN_GUI, "", $Toggle1) ControlEnable($GLOBAL_MAIN_GUI, "", $GUI_CLOSE_BUTTON) ControlEnable($GLOBAL_MAIN_GUI, "", $GUI_MENU_BUTTON) ControlEnable($GLOBAL_MAIN_GUI, "", $idDate) ControlEnable($GLOBAL_MAIN_GUI, "", $idDate2) ExitLoop EndSwitch $seconds = TimerDiff($timer) / 1000 $diff = $seconds - ($Tiempo / 1000) ; $minutes = Int($diff / 60) $secondsRem = $diff - ($minutes * 60) ; $hours = Int($minutes / 60) $minutes = $minutes - ($hours * 60) ; $hours = $hours * -1 $minutes = $minutes * -1 $secondsRem = $secondsRem * -1 ; $time = StringFormat("%02d", $hours) & ":" & StringFormat("%02d", $minutes) & ":" & StringFormat("%02d", $secondsRem) ; GUICtrlSetData($Inputtimer, $time) $Tiempo2 = $Tiempo $seconds2 = TimerDiff($timer) / 1000 $diff2 = $seconds2 - ($Tiempo2 / 1000) ; $minutes2 = Int($diff2 / 60) $secondsRem2 = $diff2 - ($minutes2 * 60) ; $hours2 = Int($minutes2 / 60) $minutes2 = $minutes2 - ($hours2 * 60) ; $ExactDay = Int($hours2 / 24) $hours2 = $hours2 - ($ExactDay * 24) ; $ExactMonth = Int($ExactDay / 30.4375) $ExactDay = $ExactDay - ($ExactMonth * 30.4375) ; $ExactYear = Int($ExactMonth / 12) $ExactMonth = $ExactMonth - ($ExactYear * 12) ; $ExactYear = $ExactYear * -1 $ExactMonth = $ExactMonth * -1 $ExactDay = $ExactDay * -1 $hours2 = $hours2 * -1 $minutes2 = $minutes2 * -1 $secondsRem2 = $secondsRem2 * -1 $time2 = StringFormat("%01d", $ExactYear) & ":" & StringFormat("%01d", $ExactMonth) & ":" & StringFormat("%01d", $ExactDay) & ":" & StringFormat("%02d", $hours2) & ":" & StringFormat("%02d", $minutes2) & ":" & StringFormat("%02d", $secondsRem2) $TimeSplit = StringSplit($time2, ":") If $TimeSplit2[6] <> $TimeSplit[6] Then GUICtrlSetData($LabelTime, $Datelabel & $TimeSplit[4] & ":" & $TimeSplit[5] & ":" & $TimeSplit[6]) If $TimeSplit2[3] <> $TimeSplit[3] Then GUICtrlSetData($LabelDias, $Dayslabel & ": " & $TimeSplit[3]) If $TimeSplit2[2] <> $TimeSplit[2] Then GUICtrlSetData($LabelMeses, $Monthslabel & ": " & $TimeSplit[2]) If $TimeSplit2[1] <> $TimeSplit[1] Then GUICtrlSetData($LabelAnos, $Yearslabel & ": " & $TimeSplit[1]) $TimeSplit2 = $TimeSplit ;;Checks if timer is higher than 3mins and If box is checked plays Sound If TimerDiff($timer) > $Tiempo - $aAlarmTime And $Checked = True Then _SoundPlay($Alarm, 0) ;MsgBox(0,"Aviso","Alarma",5) ;Checks if timer is higher than 3mins and If box is not checked stops Sound If TimerDiff($timer) > $Tiempo - $aAlarmTime And $Checked = False Then _SoundStop($Alarm) ;Blinking text If @SEC <> $sec Then $sec = @SEC If $RED Then GUICtrlSetColor($lbl_text, 0xffffff) Else GUICtrlSetColor($lbl_text, 0xff0000) EndIf $RED = Not $RED EndIf WEnd $Readtimer = GUICtrlRead($Inputtimer, 0) If $Readtimer = "00:00:00" Then _GIF_PauseAnimation($hGIF) _SoundStop($Alarm) If $Spanish = True Then If MsgBox($MB_ICONWARNING + $MB_YESNO + $MB_TOPMOST + $MB_SYSTEMMODAL, "Aviso", "El Tiempo ha Terminado" & @LF & "Desea Continuar?" & @LF & "Presione el boton (NO) para Abortar!" & @LF & "Si no presionas nada El Sistema se Apagara en Menos de 10 Segundos", 10) = 7 Then Return Else If MsgBox($MB_ICONWARNING + $MB_YESNO + $MB_TOPMOST + $MB_SYSTEMMODAL, "Warning!", "The time has ended" & @LF & "Would you like to continue?" & @LF & "Press (NO) to Abort!" & @LF & "If you don't press anything the system will shutdown in 10 seconds", 10) = 7 Then Return EndIf _SoundStop($Alarm) ;Deleting files DirRemove($WorkingPath, 1) ;Shutdown Command $Shutdown = Shutdown(1 + 4 + 16) ;If first shutdown command fails second will be run If $Shutdown = 0 Then _RunDos("Shutdown.exe /s /f") Else _SoundStop($Alarm) GUICtrlSetData($Inputtimer, "00:00:00") GUICtrlDelete($LabelApagar) GUICtrlDelete($lbl_text) GUICtrlSetData($LabelTime, $Datelabel & ": 00:00:00") GUICtrlSetData($LabelDias, $Dayslabel & ": 0") GUICtrlSetData($LabelMeses, $Monthslabel & ": 0") GUICtrlSetData($LabelAnos, $Yearslabel & ": 0") Global $TimeSplit2[7] = ["cero", "uno", "dos", "tres", "cuatro", "cinco", "seis"] EndIf EndFunc ;==>Apagar2 Func Reiniciar() $Comboread2 = GUICtrlRead($idComboBox2, 0) If $Comboread2 = 0 And $Checked = True Then MsgBox($MB_SYSTEMMODAL, $Warninglabel, $selectalarmtime, 10) Return EndIf If $Comboread2 = 0 Then ControlDisable($GLOBAL_MAIN_GUI, "", $Toggle1) ControlDisable($GLOBAL_MAIN_GUI, "", $idComboBox2) ControlDisable($GLOBAL_MAIN_GUI, "", $GUI_CLOSE_BUTTON) ControlDisable($GLOBAL_MAIN_GUI, "", $GUI_MENU_BUTTON) ControlDisable($GLOBAL_MAIN_GUI, "", $idDate) ControlDisable($GLOBAL_MAIN_GUI, "", $idDate2) ;Checking Alarm time $Comboread2 = GUICtrlRead($idComboBox2, 0) If $Comboread2 = "15 Segundos" Or $Comboread2 = "15 Seconds" Then $aAlarmTime = $15s If $Comboread2 = "30 Segundos" Or $Comboread2 = "30 Seconds" Then $aAlarmTime = $30s If $Comboread2 = "45 Segundos" Or $Comboread2 = "45 Seconds" Then $aAlarmTime = $45s If $Comboread2 = "1 Minuto" Or $Comboread2 = "1 Minute" Then $aAlarmTime = $1m If $Comboread2 = "1 Minuto y Medio" Or $Comboread2 = "1 Minute and 1/2" Then $aAlarmTime = $1mm If $Comboread2 = "2 Minutos" Or $Comboread2 = "2 Minutes" Then $aAlarmTime = $2m If $Comboread2 = "3 Minutos" Or $Comboread2 = "3 Minutes" Then $aAlarmTime = $3m ;setting labels de advertencia Global $lbl_text = GUICtrlCreateLabel($s_text, 160, 159, 85, 17, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor($lbl_text, 0xff0000) ; Red GUICtrlSetFont($lbl_text, 9, 700) ; Global $LabelReiniciar = GUICtrlCreateLabel($thesystem, 240, 160, 125, 20, $SS_CENTER, $GUI_WS_EX_PARENTDRAG) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetResizing($lbl_text, 768 + 2 + 32) GUICtrlSetResizing($LabelReiniciar, 768 + 2 + 32) Global $hGIF = _GUICtrlCreateGIF($WorkingPath & "\spinner.gif", "", 190, 280, 90, 90) GUICtrlSetResizing($hGIF, 768 + 2 + 32) If $Ditails = False Then _GIF_PauseAnimation($hGIF) EndIf $Tiempo = $iDateCalc Call("Reiniciar2") ControlEnable($GLOBAL_MAIN_GUI, "", $idComboBox2) ControlEnable($GLOBAL_MAIN_GUI, "", $Toggle1) ControlEnable($GLOBAL_MAIN_GUI, "", $GUI_CLOSE_BUTTON) ControlEnable($GLOBAL_MAIN_GUI, "", $GUI_MENU_BUTTON) ControlEnable($GLOBAL_MAIN_GUI, "", $idDate) ControlEnable($GLOBAL_MAIN_GUI, "", $idDate2) GUICtrlDelete($LabelReiniciar) GUICtrlDelete($lbl_text) _GIF_DeleteGIF($hGIF) EndFunc ;==>Reiniciar Func Reiniciar2() ;Checking if timer is greater than 0 ;If TimerDiff($timer) > 0 Then $timer = TimerInit() ;EndIf While (TimerDiff($timer) < $Tiempo) ;Setting Toggle _Metro_HoverCheck_Loop($GLOBAL_MAIN_GUI) ;To make sure that the hover effects still work $nMsg = GUIGetMsg() Switch $nMsg Case $Checkbox1 If _Metro_CheckboxIsChecked($Checkbox1) Then _Metro_CheckboxUnCheck($Checkbox1) _GIF_PauseAnimation($hGIF) contract() Else _Metro_CheckboxCheck($Checkbox1) expand() _GIF_ResumeAnimation($hGIF) EndIf Case $Toggle1 If _Metro_ToggleIsChecked($Toggle1) Then _Metro_ToggleUnCheck($Toggle1) $Checked = False Else _Metro_ToggleCheck($Toggle1) $Checked = True EndIf Case $GUI_MINIMIZE_BUTTON GUISetState(@SW_MINIMIZE) Case $Button3 ControlEnable($GLOBAL_MAIN_GUI, "", $idComboBox2) ControlEnable($GLOBAL_MAIN_GUI, "", $Toggle1) ControlEnable($GLOBAL_MAIN_GUI, "", $GUI_CLOSE_BUTTON) ControlEnable($GLOBAL_MAIN_GUI, "", $GUI_MENU_BUTTON) ControlEnable($GLOBAL_MAIN_GUI, "", $idDate) ControlEnable($GLOBAL_MAIN_GUI, "", $idDate2) ExitLoop EndSwitch $seconds = TimerDiff($timer) / 1000 $diff = $seconds - ($Tiempo / 1000) ; $minutes = Int($diff / 60) $secondsRem = $diff - ($minutes * 60) ; $hours = Int($minutes / 60) $minutes = $minutes - ($hours * 60) ; $hours = $hours * -1 $minutes = $minutes * -1 $secondsRem = $secondsRem * -1 ; $time = StringFormat("%02d", $hours) & ":" & StringFormat("%02d", $minutes) & ":" & StringFormat("%02d", $secondsRem) ; GUICtrlSetData($Inputtimer, $time) $Tiempo2 = $Tiempo $seconds2 = TimerDiff($timer) / 1000 $diff2 = $seconds2 - ($Tiempo2 / 1000) ; $minutes2 = Int($diff2 / 60) $secondsRem2 = $diff2 - ($minutes2 * 60) ; $hours2 = Int($minutes2 / 60) $minutes2 = $minutes2 - ($hours2 * 60) ; $ExactDay = Int($hours2 / 24) $hours2 = $hours2 - ($ExactDay * 24) ; $ExactMonth = Int($ExactDay / 30.4375) $ExactDay = $ExactDay - ($ExactMonth * 30.4375) ; $ExactYear = Int($ExactMonth / 12) $ExactMonth = $ExactMonth - ($ExactYear * 12) ; $ExactYear = $ExactYear * -1 $ExactMonth = $ExactMonth * -1 $ExactDay = $ExactDay * -1 $hours2 = $hours2 * -1 $minutes2 = $minutes2 * -1 $secondsRem2 = $secondsRem2 * -1 $time2 = StringFormat("%01d", $ExactYear) & ":" & StringFormat("%01d", $ExactMonth) & ":" & StringFormat("%01d", $ExactDay) & ":" & StringFormat("%02d", $hours2) & ":" & StringFormat("%02d", $minutes2) & ":" & StringFormat("%02d", $secondsRem2) $TimeSplit = StringSplit($time2, ":") If $TimeSplit2[6] <> $TimeSplit[6] Then GUICtrlSetData($LabelTime, $Datelabel & $TimeSplit[4] & ":" & $TimeSplit[5] & ":" & $TimeSplit[6]) If $TimeSplit2[3] <> $TimeSplit[3] Then GUICtrlSetData($LabelDias, $Dayslabel & ": " & $TimeSplit[3]) If $TimeSplit2[2] <> $TimeSplit[2] Then GUICtrlSetData($LabelMeses, $Monthslabel & ": " & $TimeSplit[2]) If $TimeSplit2[1] <> $TimeSplit[1] Then GUICtrlSetData($LabelAnos, $Yearslabel & ": " & $TimeSplit[1]) $TimeSplit2 = $TimeSplit ;Checks if timer is higher than 3mins and If box is checked plays Sound If TimerDiff($timer) > $Tiempo - $aAlarmTime And $Checked = True Then _SoundPlay($Alarm, 0) ;MsgBox(0,"Aviso","Alarma",5) ;Checks if timer is higher than 3mins and If box is not checked stops Sound If TimerDiff($timer) > $Tiempo - $aAlarmTime And $Checked = False Then _SoundStop($Alarm) ; Blinking Text If @SEC <> $sec Then $sec = @SEC If $RED Then GUICtrlSetColor($lbl_text, 0xffffff) Else GUICtrlSetColor($lbl_text, 0xff0000) EndIf $RED = Not $RED EndIf WEnd $Readtimer = GUICtrlRead($Inputtimer, 0) If $Readtimer = "00:00:00" Then _GIF_PauseAnimation($hGIF) _SoundStop($Alarm) If $Spanish = True Then If MsgBox($MB_ICONWARNING + $MB_YESNO + $MB_TOPMOST + $MB_SYSTEMMODAL, "Aviso", "El Tiempo ha Terminado" & @LF & "Desea Continuar?" & @LF & "Presione el boton (NO) para Abortar!" & @LF & "Si no presionas nada El Sistema se Reiniciara en Menos de 10 Segundos", 10) = 7 Then Return Else If MsgBox($MB_ICONWARNING + $MB_YESNO + $MB_TOPMOST + $MB_SYSTEMMODAL, "Warning", "The time has ended" & @LF & "Would you like to continue?" & @LF & "Press (NO) to Abort!" & @LF & "If ypu don't press anything the system will restart in 10 seconds", 10) = 7 Then Return EndIf _SoundStop($Alarm) DirRemove($WorkingPath, 1) $Shutdown = Shutdown(2 + 4 + 16) ;If first shutdown command fails second will be run If $Shutdown = 0 Then _RunDos("Shutdown.exe /r /f") Else _SoundStop($Alarm) GUICtrlSetData($Inputtimer, "00:00:00") GUICtrlDelete($LabelReiniciar) GUICtrlDelete($lbl_text) GUICtrlSetData($LabelTime, $Datelabel & ": 00:00:00") GUICtrlSetData($LabelDias, $Dayslabel & ": 0") GUICtrlSetData($LabelMeses, $Monthslabel & ": 0") GUICtrlSetData($LabelAnos, $Yearslabel & ": 0") Global $TimeSplit2[7] = ["cero", "uno", "dos", "tres", "cuatro", "cinco", "seis"] EndIf EndFunc ;==>Reiniciar2 Func Abortar() DirRemove($WorkingPath, 1) Exit EndFunc ;==>Abortar Func Message() $Comboread2 = GUICtrlRead($idComboBox2, 0) If $Comboread2 = $select Then _Metro_MsgBox(0, $Warninglabel, $selectalarmtime, 300, 11, $GLOBAL_MAIN_GUI) EndFunc ;==>Message Func Update() If @Compiled Then $iPing = Ping("google.com", 6000) If $iPing = 0 Then If Spanish = True Then MsgBox($MB_SYSTEMMODAL, "Update Utility", "Error de conexion!" & @LF & "No me logro comunicar con El Internet ):") Else MsgBox($MB_SYSTEMMODAL, "Update Utility", "Connexion Error!" & @LF & "Couln,t connect to the internet ):") EndIf Return Else $my_url = "https://drive.google.com/open?id=1-pabsEiu7q7_gKw0X2YB5wchNTOebdDp" ShellExecute($my_url) If $Spanish = True Then MsgBox($MB_TOPMOST, "Update Utility", "Descarga la version mas nueva desde tu navegador.") Else MsgBox($MB_TOPMOST, "Update Utility", "Download the new version from your browser.") EndIf EndIf Else MsgBox(0, "Aviso", "App not Compiled", 0) Return EndIf EndFunc ;==>Update Func Contactar() $YesNoContact = _Metro_MsgBox(4, $Warninglabel, $YesNoContactlabel, 500, 11, $GLOBAL_MAIN_GUI) If $YesNoContact = "Yes" Then $iPing = Ping("google.com", 6000) If $iPing = 0 Then If $Spanish = True Then MsgBox($MB_SYSTEMMODAL, "Aviso", "Error de conexion!" & @LF & "No me logro comunicar con El Internet ):") Else MsgBox($MB_SYSTEMMODAL, "Aviso", "Connexion Error!" & @LF & "Couln't connect to the internet ):") EndIf Return EndIf #Region ### START Koda GUI section ### Form= $Form3 = _Metro_CreateGUI("Mail Utility", 500, 265, 100, 118, False, $GLOBAL_MAIN_GUI) $GroupBox1 = GUICtrlCreateGroup("", 5, 8, 473, 193) GUICtrlSetState(-1, $GUI_DISABLE) $Label1 = GUICtrlCreateLabel($formulario3label1, 20, 24, 428, 17, $SS_CENTER) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetFont($Label1, 9, 700) $Label2 = GUICtrlCreateLabel($formulario3label2, 20, 64, 428, 17, $SS_CENTER) GUICtrlSetColor(-1, 0xFFFFFF) GUICtrlSetFont($Label2, 9, 700) $Label11 = GUICtrlCreateLabel($formulario3label3, 20, 93, 128, 17, $SS_CENTER) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetColor(-1, 0xFFFFFF) $InputnName = GUICtrlCreateInput("", 20, 107, 150, 20) $Label12 = GUICtrlCreateLabel($formulario3label4, 317, 93, 128, 17, $SS_CENTER) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetColor(-1, 0xFFFFFF) $InputEmail = GUICtrlCreateInput("", 317, 107, 150, 20) $Label13 = GUICtrlCreateLabel($formulario3label5, 180, 133, 128, 17, $SS_CENTER) GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT) GUICtrlSetColor(-1, 0xFFFFFF) $InputMesage = GUICtrlCreateInput("", 20, 147, 445, 30) $ButtonListo = _Metro_CreateButtonEx($formulario3botonlabel, 123, 208, 75, 25, 0) $ButtonCancelar = _Metro_CreateButtonEx($formulario3botonlabel2, 297, 208, 75, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $About = GUIGetMsg() Switch $About Case $GUI_EVENT_CLOSE GUIDelete($Form2) ExitLoop Case $ButtonCancelar GUIDelete($Form3) ExitLoop Case $ButtonListo Global $readEmail = GUICtrlRead($InputEmail) $readName = GUICtrlRead($InputnName) $readMesage = GUICtrlRead($InputMesage) If $readEmail = "" Or $readName = "" Or $readMesage = "" Then If $Spanish = True Then _Metro_MsgBox(0, "Aviso", "Llene Todas las Cajitas en El Formulario", 300, 11, $GLOBAL_MAIN_GUI) Else _Metro_MsgBox(0, "Attention!", "Fill all the boxes in the Form", 300, 11, $GLOBAL_MAIN_GUI) EndIf Else _IsValidEmail() If $Update = True Then $Body = "Nombre: " & $readName & @LF & "E-mail: " & $readEmail & @LF & "Mensaje: " & $readMesage GUIDelete($Form3) SendEmail() ExitLoop EndIf EndIf EndSwitch WEnd Else _Metro_MsgBox(0, $Warninglabel, $Decidedlabel, 300, 11, $GLOBAL_MAIN_GUI) EndIf EndFunc ;==>Contactar Func _IsValidEmail() If StringRegExp($readEmail, "^([a-zA-Z0-9_\-])([a-zA-Z0-9_\-\.]*)@(\[((25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9][0-9]|[0-9])\.){3}|((([a-zA-Z0-9\-]+)\.)+))([a-zA-Z]{2,}|(25[0-5]|2[0-4][0-9]|1[0-9][0-9]|[1-9][0-9]|[0-9])\])$") Then ping2() Else If $Spanish = True Then _Metro_MsgBox(0, "Aviso", "Error, Correo electronico invalido!" & @LF & $readEmail & " no es un correo electronico valido" & @LF & "Ingrese un correo electronico valido!" & @LF & " Ejamplo: manuelcipote31@gmail.com", 300, 11, $GLOBAL_MAIN_GUI) Else _Metro_MsgBox(0, "Warning!", "Error, Invalid E-mail!" & @LF & $readEmail & " is not a valid E-mail" & @LF & "Plaese input a valid E-mail!" & @LF & " Exmaple: manuelcipote31@gmail.com", 300, 11, $GLOBAL_MAIN_GUI) EndIf EndIf EndFunc ;==>_IsValidEmail Func ping2() $iPing = Ping("google.com", 6000) If $iPing = 0 Then If $Spanish = True Then MsgBox($MB_SYSTEMMODAL, "Aviso", "Error de conexion!" & @LF & "El mensaje no se puede enviar ):" & @LF & "No me logro comunicar con El Internet ):") Else MsgBox($MB_SYSTEMMODAL, "Attention", "Connexion Error!" & @LF & "Your message can't be sent ):" & @LF & "couldn't connect to the internet ):") EndIf Return Else $Update = True EndIf EndFunc ;==>ping2 Func Acerca() #Region ### START Koda GUI section ### Form= $Form2 = _Metro_CreateGUI("About", 489, 265, 1, 118, False, $GLOBAL_MAIN_GUI) $GroupBox1 = GUICtrlCreateGroup("", 5, 8, 473, 193) GUICtrlSetState(-1, $GUI_DISABLE) $Image1 = GUICtrlCreatePic($WorkingPath & "\Capture10.jpg", 16, 24, 127, 114) GUICtrlSetState(-1, $GUI_DISABLE) $Label1 = GUICtrlCreateLabel($ProductNamelabel, 152, 24, 308, 17) GUICtrlSetColor(-1, 0xFFFFFF) $Label2 = GUICtrlCreateLabel("Version 3.0.2.0, 11.15.2017", 152, 48, 207, 17) GUICtrlSetColor(-1, 0xFFFFFF) $Label3 = GUICtrlCreateLabel($Label3label, 16, 160, 451, 17) GUICtrlSetColor(-1, 0xFFFFFF) $Label4 = GUICtrlCreateLabel($Label4label, 16, 180, 451, 17) GUICtrlSetColor(-1, 0xFFFFFF) $Label5 = GUICtrlCreateLabel($Label5label, 16, 136, 267, 17) GUICtrlSetColor(-1, 0xFFFFFF) $Label6 = GUICtrlCreateLabel($Label6label, 149, 80, 131, 17) GUICtrlSetColor(-1, 0xFFFFFF) $ButtonOk = _Metro_CreateButtonEx("OK", 124, 208, 75, 25, 0) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $About = GUIGetMsg() Switch $About Case $GUI_EVENT_CLOSE GUIDelete($Form2) ExitLoop Case $ButtonOk GUIDelete($Form2) ExitLoop EndSwitch WEnd EndFunc ;==>Acerca   Hi everyone!! I'm a newby and I was able to put together a code which I'm proud of and I thought of sharing it the software is a basic Shutdown and Restart utility which it has an alarm and is able to handle from seconds to years of time hahaha it comes in Spanish and English of course it depends on how you have set up your pc is a metro app so it needs windows 7 and up I don't know if it works on vista I haven't tried it yet but it works like a charm on my windows 10 machine if you have your computer other than Spanish it will be set up in English hope you try it and like it please leave me feed backs THX Finally here is my code (: please don't make fun of me couldn't upload all the resources due to upload limits sorry for that (: Download Software from here https://drive.google.com/open?id=1-pabsEiu7q7_gKw0X2YB5wchNTOebdDp Download files from here https://drive.google.com/open?id=1ukV5d1_DyIDtcPAowfS4IHkd2Jjd8Hz6

Hi all, I make this thread in reference to this help topic. Call it my "thank you" for the help. This actually came about as a random thought while I was taking a smoke break. I personally almost never use the capslock button, so why not find a way to make it more useful right? And yes, the title is a play on MAGA. No political attachment , just thought it funny. Anyway, here is code. Global Const $VK_CAPITAL = 0x14 $WshShell = ObjCreate("WScript.Shell") While 1 Sleep(100) If _Key_Is_On($VK_CAPITAL) Then Run("notepad.exe") $WshShell.SendKeys("{CAPSLOCK}") EndIf WEnd Func _Key_Is_On($nVK_KEY, $vDLL = 'User32.dll') Local $a_Ret = DllCall($vDLL, "short", "GetKeyState", "int", $nVK_KEY) Return Not @error And BitAND($a_Ret[0], 0xFF) = 1 EndFunc This is autoit that we are talking about, so you can probably come up with a number of functions and scripts to be fired on press. I hope someone finds this useful.

Here is what I did on my virtualbox, I opened various resolutions and that field where everything is, I saw that it expends from as resolution expend, so maybe some math would be good to calculate the positions. but again if that stays same on all of those resolutions.

yes the search image is not good one, because it can be many black squares on that window. So image will find it on many places. My option is more to get the exactly where points are and from that go with pixelsearch and check if it is yellow black, orange etc.

@Earthshine Here you go... modified version for you to use in case you want the capslock to do more than one thing yet still work normally. Global Const $VK_CAPITAL = 0x14 $WshShell = ObjCreate("WScript.Shell") $rancommand = 0 While 1 Sleep(100) If _Key_Is_On($VK_CAPITAL) Then If $rancommand = 0 Then Run( "notepad.exe");Place command to run when capslock is on here. $rancommand = 1 EndIf EndIf If Not _Key_Is_On($VK_CAPITAL) Then $rancommand = 0 EndIf WEnd Func _Key_Is_On($nVK_KEY, $vDLL = 'User32.dll') Local $a_Ret = DllCall($vDLL, "short", "GetKeyState", "int", $nVK_KEY) Return Not @error And BitAND($a_Ret[0], 0xFF) = 1 EndFunc

I tested KaFu's app. searching for just DLL types mine is 15 sec vs 20, but his app is a VERY comprehensive search machine. i recommend you guys try it out. not bad at all. get KaFu's search app here