#Region #AutoIt3Wrapper_Icon=Resources\phoenixtray.ico #AutoIt3Wrapper_Outfile=Builds\7dtdServerUpdateUtility_v2.5.1.exe #AutoIt3Wrapper_Res_Comment=By Phoenix125 based on Dateranoth's ConanServerUtility v3.3.0-Beta.3 #AutoIt3Wrapper_Res_Description=7 Days To Die Dedicated Server Update Utility #AutoIt3Wrapper_Res_Fileversion=2.5.1.0 #AutoIt3Wrapper_Res_ProductName=7dtdServerUpdateUtility #AutoIt3Wrapper_Res_ProductVersion=2.5.1 #AutoIt3Wrapper_Res_CompanyName=http://www.Phoenix125.com #AutoIt3Wrapper_Res_LegalCopyright=http://www.Phoenix125.com #AutoIt3Wrapper_Res_Language=1033 #AutoIt3Wrapper_Res_Icon_Add=Resources\phoenixfaded.ico #AutoIt3Wrapper_Run_AU3Check=n #AutoIt3Wrapper_Run_Tidy=y #AutoIt3Wrapper_Run_Au3Stripper=y #Au3Stripper_Parameters=/mo #EndRegion Global Const $OPT_COORDSRELATIVE = 0 Global Const $OPT_COORDSABSOLUTE = 1 Global Const $OPT_COORDSCLIENT = 2 Global Const $OPT_ERRORSILENT = 0 Global Const $OPT_ERRORFATAL = 1 Global Const $OPT_CAPSNOSTORE = 0 Global Const $OPT_CAPSSTORE = 1 Global Const $OPT_MATCHSTART = 1 Global Const $OPT_MATCHANY = 2 Global Const $OPT_MATCHEXACT = 3 Global Const $OPT_MATCHADVANCED = 4 Global Const $CCS_TOP = 0x01 Global Const $CCS_NOMOVEY = 0x02 Global Const $CCS_BOTTOM = 0x03 Global Const $CCS_NORESIZE = 0x04 Global Const $CCS_NOPARENTALIGN = 0x08 Global Const $CCS_NOHILITE = 0x10 Global Const $CCS_ADJUSTABLE = 0x20 Global Const $CCS_NODIVIDER = 0x40 Global Const $CCS_VERT = 0x0080 Global Const $CCS_LEFT = 0x0081 Global Const $CCS_NOMOVEX = 0x0082 Global Const $CCS_RIGHT = 0x0083 Global Const $DT_DRIVETYPE = 1 Global Const $DT_SSDSTATUS = 2 Global Const $DT_BUSTYPE = 3 Global Const $PROXY_IE = 0 Global Const $PROXY_NONE = 1 Global Const $PROXY_SPECIFIED = 2 Global Const $OBJID_WINDOW = 0x00000000 Global Const $OBJID_TITLEBAR = 0xFFFFFFFE Global Const $OBJID_SIZEGRIP = 0xFFFFFFF9 Global Const $OBJID_CARET = 0xFFFFFFF8 Global Const $OBJID_CURSOR = 0xFFFFFFF7 Global Const $OBJID_ALERT = 0xFFFFFFF6 Global Const $OBJID_SOUND = 0xFFFFFFF5 Global Const $DLG_CENTERONTOP = 0 Global Const $DLG_NOTITLE = 1 Global Const $DLG_NOTONTOP = 2 Global Const $DLG_TEXTLEFT = 4 Global Const $DLG_TEXTRIGHT = 8 Global Const $DLG_MOVEABLE = 16 Global Const $DLG_TEXTVCENTER = 32 Global Const $IDC_UNKNOWN = 0 Global Const $IDC_APPSTARTING = 1 Global Const $IDC_ARROW = 2 Global Const $IDC_CROSS = 3 Global Const $IDC_HAND = 32649 Global Const $IDC_HELP = 4 Global Const $IDC_IBEAM = 5 Global Const $IDC_ICON = 6 Global Const $IDC_NO = 7 Global Const $IDC_SIZE = 8 Global Const $IDC_SIZEALL = 9 Global Const $IDC_SIZENESW = 10 Global Const $IDC_SIZENS = 11 Global Const $IDC_SIZENWSE = 12 Global Const $IDC_SIZEWE = 13 Global Const $IDC_UPARROW = 14 Global Const $IDC_WAIT = 15 Global Const $IDI_APPLICATION = 32512 Global Const $IDI_ASTERISK = 32516 Global Const $IDI_EXCLAMATION = 32515 Global Const $IDI_HAND = 32513 Global Const $IDI_QUESTION = 32514 Global Const $IDI_WINLOGO = 32517 Global Const $IDI_SHIELD = 32518 Global Const $IDI_ERROR = $IDI_HAND Global Const $IDI_INFORMATION = $IDI_ASTERISK Global Const $IDI_WARNING = $IDI_EXCLAMATION Global Const $SD_LOGOFF = 0 Global Const $SD_SHUTDOWN = 1 Global Const $SD_REBOOT = 2 Global Const $SD_FORCE = 4 Global Const $SD_POWERDOWN = 8 Global Const $SD_FORCEHUNG = 16 Global Const $SD_STANDBY = 32 Global Const $SD_HIBERNATE = 64 Global Const $STDIN_CHILD = 1 Global Const $STDOUT_CHILD = 2 Global Const $STDERR_CHILD = 4 Global Const $STDERR_MERGED = 8 Global Const $STDIO_INHERIT_PARENT = 0x10 Global Const $RUN_CREATE_NEW_CONSOLE = 0x00010000 Global Const $UBOUND_DIMENSIONS = 0 Global Const $UBOUND_ROWS = 1 Global Const $UBOUND_COLUMNS = 2 Global Const $MOUSEEVENTF_ABSOLUTE = 0x8000 Global Const $MOUSEEVENTF_MOVE = 0x0001 Global Const $MOUSEEVENTF_LEFTDOWN = 0x0002 Global Const $MOUSEEVENTF_LEFTUP = 0x0004 Global Const $MOUSEEVENTF_RIGHTDOWN = 0x0008 Global Const $MOUSEEVENTF_RIGHTUP = 0x0010 Global Const $MOUSEEVENTF_MIDDLEDOWN = 0x0020 Global Const $MOUSEEVENTF_MIDDLEUP = 0x0040 Global Const $MOUSEEVENTF_WHEEL = 0x0800 Global Const $MOUSEEVENTF_XDOWN = 0x0080 Global Const $MOUSEEVENTF_XUP = 0x0100 Global Const $REG_NONE = 0 Global Const $REG_SZ = 1 Global Const $REG_EXPAND_SZ = 2 Global Const $REG_BINARY = 3 Global Const $REG_DWORD = 4 Global Const $REG_DWORD_LITTLE_ENDIAN = 4 Global Const $REG_DWORD_BIG_ENDIAN = 5 Global Const $REG_LINK = 6 Global Const $REG_MULTI_SZ = 7 Global Const $REG_RESOURCE_LIST = 8 Global Const $REG_FULL_RESOURCE_DESCRIPTOR = 9 Global Const $REG_RESOURCE_REQUIREMENTS_LIST = 10 Global Const $REG_QWORD = 11 Global Const $REG_QWORD_LITTLE_ENDIAN = 11 Global Const $HWND_BOTTOM = 1 Global Const $HWND_NOTOPMOST = -2 Global Const $HWND_TOP = 0 Global Const $HWND_TOPMOST = -1 Global Const $SWP_NOSIZE = 0x0001 Global Const $SWP_NOMOVE = 0x0002 Global Const $SWP_NOZORDER = 0x0004 Global Const $SWP_NOREDRAW = 0x0008 Global Const $SWP_NOACTIVATE = 0x0010 Global Const $SWP_FRAMECHANGED = 0x0020 Global Const $SWP_DRAWFRAME = 0x0020 Global Const $SWP_SHOWWINDOW = 0x0040 Global Const $SWP_HIDEWINDOW = 0x0080 Global Const $SWP_NOCOPYBITS = 0x0100 Global Const $SWP_NOOWNERZORDER = 0x0200 Global Const $SWP_NOREPOSITION = 0x0200 Global Const $SWP_NOSENDCHANGING = 0x0400 Global Const $SWP_DEFERERASE = 0x2000 Global Const $SWP_ASYNCWINDOWPOS = 0x4000 Global Const $KEYWORD_DEFAULT = 1 Global Const $KEYWORD_NULL = 2 Global Const $DECLARED_LOCAL = -1 Global Const $DECLARED_UNKNOWN = 0 Global Const $DECLARED_GLOBAL = 1 Global Const $ASSIGN_CREATE = 0 Global Const $ASSIGN_FORCELOCAL = 1 Global Const $ASSIGN_FORCEGLOBAL = 2 Global Const $ASSIGN_EXISTFAIL = 4 Global Const $BI_ENABLE = 0 Global Const $BI_DISABLE = 1 Global Const $BREAK_ENABLE = 1 Global Const $BREAK_DISABLE = 0 Global Const $CDTRAY_OPEN = "open" Global Const $CDTRAY_CLOSED = "closed" Global Const $SEND_DEFAULT = 0 Global Const $SEND_RAW = 1 Global Const $DIR_DEFAULT = 0 Global Const $DIR_EXTENDED= 1 Global Const $DIR_NORECURSE = 2 Global Const $DIR_REMOVE= 1 Global Const $DT_ALL = "ALL" Global Const $DT_CDROM = "CDROM" Global Const $DT_REMOVABLE = "REMOVABLE" Global Const $DT_FIXED = "FIXED" Global Const $DT_NETWORK = "NETWORK" Global Const $DT_RAMDISK = "RAMDISK" Global Const $DT_UNKNOWN = "UNKNOWN" Global Const $DT_UNDEFINED = 1 Global Const $DT_FAT = "FAT" Global Const $DT_FAT32 = "FAT32" Global Const $DT_EXFAT = "exFAT" Global Const $DT_NTFS = "NTFS" Global Const $DT_NWFS = "NWFS" Global Const $DT_CDFS = "CDFS" Global Const $DT_UDF = "UDF" Global Const $DMA_DEFAULT = 0 Global Const $DMA_PERSISTENT = 1 Global Const $DMA_AUTHENTICATION = 8 Global Const $DS_UNKNOWN = "UNKNOWN" Global Const $DS_READY = "READY" Global Const $DS_NOTREADY = "NOTREADY" Global Const $DS_INVALID = "INVALID" Global Const $MOUSE_CLICK_LEFT = "left" Global Const $MOUSE_CLICK_RIGHT = "right" Global Const $MOUSE_CLICK_MIDDLE = "middle" Global Const $MOUSE_CLICK_MAIN = "main" Global Const $MOUSE_CLICK_MENU = "menu" Global Const $MOUSE_CLICK_PRIMARY = "primary" Global Const $MOUSE_CLICK_SECONDARY = "secondary" Global Const $MOUSE_WHEEL_UP = "up" Global Const $MOUSE_WHEEL_DOWN = "down" Global Const $NUMBER_AUTO = 0 Global Const $NUMBER_32BIT = 1 Global Const $NUMBER_64BIT = 2 Global Const $NUMBER_DOUBLE = 3 Global Const $OBJ_NAME = 1 Global Const $OBJ_STRING = 2 Global Const $OBJ_PROGID = 3 Global Const $OBJ_FILE = 4 Global Const $OBJ_MODULE = 5 Global Const $OBJ_CLSID = 6 Global Const $OBJ_IID = 7 Global Const $EXITCLOSE_NORMAL = 0 Global Const $EXITCLOSE_BYEXIT = 1 Global Const $EXITCLOSE_BYCLICK = 2 Global Const $EXITCLOSE_BYLOGOFF = 3 Global Const $EXITCLOSE_BYSHUTDOWN = 4 Global Const $PROCESS_STATS_MEMORY = 0 Global Const $PROCESS_STATS_IO = 1 Global Const $PROCESS_LOW = 0 Global Const $PROCESS_BELOWNORMAL = 1 Global Const $PROCESS_NORMAL = 2 Global Const $PROCESS_ABOVENORMAL = 3 Global Const $PROCESS_HIGH = 4 Global Const $PROCESS_REALTIME = 5 Global Const $RUN_LOGON_NOPROFILE = 0 Global Const $RUN_LOGON_PROFILE = 1 Global Const $RUN_LOGON_NETWORK = 2 Global Const $RUN_LOGON_INHERIT = 4 Global Const $SOUND_NOWAIT = 0 Global Const $SOUND_WAIT = 1 Global Const $SHEX_OPEN = "open" Global Const $SHEX_EDIT = "edit" Global Const $SHEX_PRINT = "print" Global Const $SHEX_PROPERTIES = "properties" Global Const $TCP_DATA_DEFAULT = 0 Global Const $TCP_DATA_BINARY = 1 Global Const $UDP_OPEN_DEFAULT = 0 Global Const $UDP_OPEN_BROADCAST = 1 Global Const $UDP_DATA_DEFAULT = 0 Global Const $UDP_DATA_BINARY = 1 Global Const $UDP_DATA_ARRAY = 2 Global Const $TIP_NOICON = 0 Global Const $TIP_INFOICON = 1 Global Const $TIP_WARNINGICON = 2 Global Const $TIP_ERRORICON = 3 Global Const $TIP_BALLOON = 1 Global Const $TIP_CENTER = 2 Global Const $TIP_FORCEVISIBLE = 4 Global Const $WINDOWS_NOONTOP = 0 Global Const $WINDOWS_ONTOP = 1 Global Const $WIN_STATE_EXISTS = 1 Global Const $WIN_STATE_VISIBLE = 2 Global Const $WIN_STATE_ENABLED = 4 Global Const $WIN_STATE_ACTIVE = 8 Global Const $WIN_STATE_MINIMIZED = 16 Global Const $WIN_STATE_MAXIMIZED = 32 Global Const $MB_OK = 0 Global Const $MB_OKCANCEL = 1 Global Const $MB_ABORTRETRYIGNORE = 2 Global Const $MB_YESNOCANCEL = 3 Global Const $MB_YESNO = 4 Global Const $MB_RETRYCANCEL = 5 Global Const $MB_CANCELTRYCONTINUE = 6 Global Const $MB_HELP = 0x4000 Global Const $MB_ICONSTOP = 16 Global Const $MB_ICONERROR = 16 Global Const $MB_ICONHAND = 16 Global Const $MB_ICONQUESTION = 32 Global Const $MB_ICONEXCLAMATION = 48 Global Const $MB_ICONWARNING = 48 Global Const $MB_ICONINFORMATION = 64 Global Const $MB_ICONASTERISK = 64 Global Const $MB_USERICON = 0x00000080 Global Const $MB_DEFBUTTON1 = 0 Global Const $MB_DEFBUTTON2 = 256 Global Const $MB_DEFBUTTON3 = 512 Global Const $MB_DEFBUTTON4 = 768 Global Const $MB_APPLMODAL = 0 Global Const $MB_SYSTEMMODAL = 4096 Global Const $MB_TASKMODAL = 8192 Global Const $MB_DEFAULT_DESKTOP_ONLY = 0x00020000 Global Const $MB_RIGHT = 0x00080000 Global Const $MB_RTLREADING = 0x00100000 Global Const $MB_SETFOREGROUND = 0x00010000 Global Const $MB_TOPMOST = 0x00040000 Global Const $MB_SERVICE_NOTIFICATION = 0x00200000 Global Const $MB_RIGHTJUSTIFIED = $MB_RIGHT Global Const $IDTIMEOUT = -1 Global Const $IDOK = 1 Global Const $IDCANCEL = 2 Global Const $IDABORT = 3 Global Const $IDRETRY = 4 Global Const $IDIGNORE = 5 Global Const $IDYES = 6 Global Const $IDNO = 7 Global Const $IDCLOSE = 8 Global Const $IDHELP = 9 Global Const $IDTRYAGAIN = 10 Global Const $IDCONTINUE = 11 Global Const $STR_NOCASESENSE = 0 Global Const $STR_CASESENSE = 1 Global Const $STR_NOCASESENSEBASIC = 2 Global Const $STR_STRIPLEADING = 1 Global Const $STR_STRIPTRAILING = 2 Global Const $STR_STRIPSPACES = 4 Global Const $STR_STRIPALL = 8 Global Const $STR_CHRSPLIT = 0 Global Const $STR_ENTIRESPLIT = 1 Global Const $STR_NOCOUNT = 2 Global Const $STR_REGEXPMATCH = 0 Global Const $STR_REGEXPARRAYMATCH = 1 Global Const $STR_REGEXPARRAYFULLMATCH = 2 Global Const $STR_REGEXPARRAYGLOBALMATCH = 3 Global Const $STR_REGEXPARRAYGLOBALFULLMATCH = 4 Global Const $STR_ENDISSTART = 0 Global Const $STR_ENDNOTSTART = 1 Global Const $SB_ANSI = 1 Global Const $SB_UTF16LE = 2 Global Const $SB_UTF16BE = 3 Global Const $SB_UTF8 = 4 Global Const $SE_UTF16 = 0 Global Const $SE_ANSI = 1 Global Const $SE_UTF8 = 2 Global Const $STR_UTF16 = 0 Global Const $STR_UCS2 = 1 #Region Global Variables and Constants Global Const $_ARRAYCONSTANT_SORTINFOSIZE = 11 Global $__g_aArrayDisplay_SortInfo[$_ARRAYCONSTANT_SORTINFOSIZE] Global Const $ARRAYDISPLAY_COLALIGNLEFT = 0 Global Const $ARRAYDISPLAY_TRANSPOSE = 1 Global Const $ARRAYDISPLAY_COLALIGNRIGHT = 2 Global Const $ARRAYDISPLAY_COLALIGNCENTER = 4 Global Const $ARRAYDISPLAY_VERBOSE = 8 Global Const $ARRAYDISPLAY_NOROW = 64 Global Const $_ARRAYCONSTANT_tagHDITEM = "uint Mask;int XY;ptr Text;handle hBMP;int TextMax;int Fmt;lparam Param;int Image;int Order;uint Type;ptr pFilter;uint State" Global Const $_ARRAYCONSTANT_tagLVITEM = "struct;uint Mask;int Item;int SubItem;uint State;uint StateMask;ptr Text;int TextMax;int Image;lparam Param;" & "int Indent;int GroupID;uint Columns;ptr pColumns;ptr piColFmt;int iGroup;endstruct" #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list Func __ArrayDisplay_Share(Const ByRef $aArray, $sTitle = Default, $sArrayRange = Default, $iFlags = Default, $vUser_Separator = Default, $sHeader = Default, $iMax_ColWidth = Default, $hUser_Function = Default, $bDebug = True) Local $vTmp, $sMsgBoxTitle = (($bDebug) ? ("DebugArray") : ("ArrayDisplay")) If $sTitle = Default Then $sTitle = $sMsgBoxTitle If $sArrayRange = Default Then $sArrayRange = "" If $iFlags = Default Then $iFlags = 0 If $vUser_Separator = Default Then $vUser_Separator = "" If $sHeader = Default Then $sHeader = "" If $iMax_ColWidth = Default Then $iMax_ColWidth = 350 If $hUser_Function = Default Then $hUser_Function = 0 Local $iTranspose = BitAND($iFlags, $ARRAYDISPLAY_TRANSPOSE) Local $iColAlign = BitAND($iFlags, 6) Local $iVerbose = BitAND($iFlags, $ARRAYDISPLAY_VERBOSE) Local $iNoRow = BitAND($iFlags, $ARRAYDISPLAY_NOROW) Local $iButtonBorder = (($bDebug) ? (40) : (20)) Local $sMsg = "", $iRet = 1 If IsArray($aArray) Then Local $iDimension = UBound($aArray, $UBOUND_DIMENSIONS), $iRowCount = UBound($aArray, $UBOUND_ROWS), $iColCount = UBound($aArray, $UBOUND_COLUMNS) If $iDimension > 2 Then $sMsg = "Larger than 2D array passed to function" $iRet = 2 EndIf If $iDimension = 1 Then $iTranspose = 0 EndIf Else $sMsg = "No array variable passed to function" EndIf If $sMsg Then If $iVerbose And MsgBox($MB_SYSTEMMODAL + $MB_ICONERROR + $MB_YESNO, $sMsgBoxTitle & " Error: " & $sTitle, $sMsg & @CRLF & @CRLF & "Exit the script?") = $IDYES Then Exit Else Return SetError($iRet, 0, 0) EndIf EndIf Local $iCW_ColWidth = Number($vUser_Separator) Local $sCurr_Separator = Opt("GUIDataSeparatorChar") If $vUser_Separator = "" Then $vUser_Separator = $sCurr_Separator Local $iItem_Start = 0, $iItem_End = $iRowCount - 1, $iSubItem_Start = 0, $iSubItem_End = (($iDimension = 2) ? ($iColCount - 1) : (0)) Local $bRange_Flag = False, $avRangeSplit If $sArrayRange Then Local $aArray_Range = StringRegExp($sArrayRange & "||", "(?U)(.*)\|", 3) If $aArray_Range[0] Then $avRangeSplit = StringSplit($aArray_Range[0], ":") If @error Then $iItem_End = Number($avRangeSplit[1]) Else $iItem_Start = Number($avRangeSplit[1]) If $avRangeSplit[2] <> "" Then $iItem_End = Number($avRangeSplit[2]) EndIf EndIf EndIf If $iItem_Start < 0 Then $iItem_Start = 0 If $iItem_End > $iRowCount - 1 Then $iItem_End = $iRowCount - 1 If $iItem_Start > $iItem_End Then $vTmp = $iItem_Start $iItem_Start = $iItem_End $iItem_End = $vTmp EndIf If $iItem_Start <> 0 Or $iItem_End <> $iRowCount - 1 Then $bRange_Flag = True If $iDimension = 2 And $aArray_Range[1] Then $avRangeSplit = StringSplit($aArray_Range[1], ":") If @error Then $iSubItem_End = Number($avRangeSplit[1]) Else $iSubItem_Start = Number($avRangeSplit[1]) If $avRangeSplit[2] <> "" Then $iSubItem_End = Number($avRangeSplit[2]) EndIf EndIf If $iSubItem_Start > $iSubItem_End Then $vTmp = $iSubItem_Start $iSubItem_Start = $iSubItem_End $iSubItem_End = $vTmp EndIf If $iSubItem_Start < 0 Then $iSubItem_Start = 0 If $iSubItem_End > $iColCount - 1 Then $iSubItem_End = $iColCount - 1 If $iSubItem_Start <> 0 Or $iSubItem_End <> $iColCount - 1 Then $bRange_Flag = True EndIf EndIf Local $sDisplayData = "[" & $iRowCount & "]" If $iDimension = 2 Then $sDisplayData &= " [" & $iColCount & "]" EndIf Local $sTipData = "" If $bRange_Flag Then If $sTipData Then $sTipData &= " - " $sTipData &= "Range set" EndIf If $iTranspose Then If $sTipData Then $sTipData &= " - " $sTipData &= "Transposed" EndIf Local $asHeader = StringSplit($sHeader, $sCurr_Separator, $STR_NOCOUNT) If UBound($asHeader) = 0 Then Local $asHeader[1] = [""] $sHeader = "Row" Local $iIndex = $iSubItem_Start If $iTranspose Then $sHeader = "Col" For $j = $iItem_Start To $iItem_End $sHeader &= $sCurr_Separator & "Row " & $j Next Else If $asHeader[0] Then For $iIndex = $iSubItem_Start To $iSubItem_End If $iIndex >= UBound($asHeader) Then ExitLoop $sHeader &= $sCurr_Separator & $asHeader[$iIndex] Next EndIf For $j = $iIndex To $iSubItem_End $sHeader &= $sCurr_Separator & "Col " & $j Next EndIf If $iNoRow Then $sHeader = StringTrimLeft($sHeader, 4) If $iVerbose And ($iItem_End - $iItem_Start + 1) * ($iSubItem_End - $iSubItem_Start + 1) > 10000 Then SplashTextOn($sMsgBoxTitle, "Preparing display" & @CRLF & @CRLF & "Please be patient", 300, 100) EndIf Local Const $_ARRAYCONSTANT_GUI_DOCKBOTTOM = 64 Local Const $_ARRAYCONSTANT_GUI_DOCKBORDERS = 102 Local Const $_ARRAYCONSTANT_GUI_DOCKHEIGHT = 512 Local Const $_ARRAYCONSTANT_GUI_DOCKLEFT = 2 Local Const $_ARRAYCONSTANT_GUI_DOCKRIGHT = 4 Local Const $_ARRAYCONSTANT_GUI_DOCKHCENTER = 8 Local Const $_ARRAYCONSTANT_GUI_EVENT_CLOSE = -3 Local Const $_ARRAYCONSTANT_GUI_FOCUS = 256 Local Const $_ARRAYCONSTANT_SS_CENTER = 0x1 Local Const $_ARRAYCONSTANT_SS_CENTERIMAGE = 0x0200 Local Const $_ARRAYCONSTANT_LVM_GETITEMCOUNT = (0x1000 + 4) Local Const $_ARRAYCONSTANT_LVM_GETITEMRECT = (0x1000 + 14) Local Const $_ARRAYCONSTANT_LVM_GETCOLUMNWIDTH = (0x1000 + 29) Local Const $_ARRAYCONSTANT_LVM_SETCOLUMNWIDTH = (0x1000 + 30) Local Const $_ARRAYCONSTANT_LVM_GETITEMSTATE = (0x1000 + 44) Local Const $_ARRAYCONSTANT_LVM_GETSELECTEDCOUNT = (0x1000 + 50) Local Const $_ARRAYCONSTANT_LVM_SETEXTENDEDLISTVIEWSTYLE = (0x1000 + 54) Local Const $_ARRAYCONSTANT_LVS_EX_GRIDLINES = 0x1 Local Const $_ARRAYCONSTANT_LVIS_SELECTED = 0x0002 Local Const $_ARRAYCONSTANT_LVS_SHOWSELALWAYS = 0x8 Local Const $_ARRAYCONSTANT_LVS_EX_FULLROWSELECT = 0x20 Local Const $_ARRAYCONSTANT_WS_EX_CLIENTEDGE = 0x0200 Local Const $_ARRAYCONSTANT_WS_MAXIMIZEBOX = 0x00010000 Local Const $_ARRAYCONSTANT_WS_MINIMIZEBOX = 0x00020000 Local Const $_ARRAYCONSTANT_WS_SIZEBOX = 0x00040000 Local Const $_ARRAYCONSTANT_WM_SETREDRAW = 11 Local Const $_ARRAYCONSTANT_LVSCW_AUTOSIZE = -1 Local Const $_ARRAYCONSTANT_LVSCW_AUTOSIZE_USEHEADER = -2 Local $iCoordMode = Opt("GUICoordMode", 1) Local $iOrgWidth = 210, $iHeight = 200, $iMinSize = 250 Local $hGUI = GUICreate($sTitle, $iOrgWidth, $iHeight, Default, Default, BitOR($_ARRAYCONSTANT_WS_SIZEBOX, $_ARRAYCONSTANT_WS_MINIMIZEBOX, $_ARRAYCONSTANT_WS_MAXIMIZEBOX)) Local $aiGUISize = WinGetClientSize($hGUI) Local $iButtonWidth_1 = $aiGUISize[0] / 2 Local $iButtonWidth_2 = $aiGUISize[0] / 3 Local $idListView = GUICtrlCreateListView($sHeader, 0, 0, $aiGUISize[0], $aiGUISize[1] - $iButtonBorder, $_ARRAYCONSTANT_LVS_SHOWSELALWAYS) GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_SETEXTENDEDLISTVIEWSTYLE, $_ARRAYCONSTANT_LVS_EX_GRIDLINES, $_ARRAYCONSTANT_LVS_EX_GRIDLINES) GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_SETEXTENDEDLISTVIEWSTYLE, $_ARRAYCONSTANT_LVS_EX_FULLROWSELECT, $_ARRAYCONSTANT_LVS_EX_FULLROWSELECT) GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_SETEXTENDEDLISTVIEWSTYLE, $_ARRAYCONSTANT_WS_EX_CLIENTEDGE, $_ARRAYCONSTANT_WS_EX_CLIENTEDGE) Local $idCopy_ID = 9999, $idCopy_Data = 99999, $idData_Label = 99999, $idUser_Func = 99999, $idExit_Script = 99999 If $bDebug Then $idCopy_ID = GUICtrlCreateButton("Copy Data && Hdr/Row", 0, $aiGUISize[1] - $iButtonBorder, $iButtonWidth_1, 20) $idCopy_Data = GUICtrlCreateButton("Copy Data Only", $iButtonWidth_1, $aiGUISize[1] - $iButtonBorder, $iButtonWidth_1, 20) Local $iButtonWidth_Var = $iButtonWidth_1 Local $iOffset = $iButtonWidth_1 If IsFunc($hUser_Function) Then $idUser_Func = GUICtrlCreateButton("Run User Func", $iButtonWidth_2, $aiGUISize[1] - 20, $iButtonWidth_2, 20) $iButtonWidth_Var = $iButtonWidth_2 $iOffset = $iButtonWidth_2 * 2 EndIf $idExit_Script = GUICtrlCreateButton("Exit Script", $iOffset, $aiGUISize[1] - 20, $iButtonWidth_Var, 20) $idData_Label = GUICtrlCreateLabel($sDisplayData, 0, $aiGUISize[1] - 20, $iButtonWidth_Var, 18, BitOR($_ARRAYCONSTANT_SS_CENTER, $_ARRAYCONSTANT_SS_CENTERIMAGE)) Else $idData_Label = GUICtrlCreateLabel($sDisplayData, 0, $aiGUISize[1] - 20, $aiGUISize[0], 18, BitOR($_ARRAYCONSTANT_SS_CENTER, $_ARRAYCONSTANT_SS_CENTERIMAGE)) EndIf Select Case $iTranspose Or $bRange_Flag GUICtrlSetColor($idData_Label, 0xFF0000) GUICtrlSetTip($idData_Label, $sTipData) EndSelect GUICtrlSetResizing($idListView, $_ARRAYCONSTANT_GUI_DOCKBORDERS) GUICtrlSetResizing($idCopy_ID, $_ARRAYCONSTANT_GUI_DOCKLEFT + $_ARRAYCONSTANT_GUI_DOCKBOTTOM + $_ARRAYCONSTANT_GUI_DOCKHEIGHT) GUICtrlSetResizing($idCopy_Data, $_ARRAYCONSTANT_GUI_DOCKRIGHT + $_ARRAYCONSTANT_GUI_DOCKBOTTOM + $_ARRAYCONSTANT_GUI_DOCKHEIGHT) GUICtrlSetResizing($idData_Label, $_ARRAYCONSTANT_GUI_DOCKLEFT + $_ARRAYCONSTANT_GUI_DOCKBOTTOM + $_ARRAYCONSTANT_GUI_DOCKHEIGHT) GUICtrlSetResizing($idUser_Func, $_ARRAYCONSTANT_GUI_DOCKHCENTER + $_ARRAYCONSTANT_GUI_DOCKBOTTOM + $_ARRAYCONSTANT_GUI_DOCKHEIGHT) GUICtrlSetResizing($idExit_Script, $_ARRAYCONSTANT_GUI_DOCKRIGHT + $_ARRAYCONSTANT_GUI_DOCKBOTTOM + $_ARRAYCONSTANT_GUI_DOCKHEIGHT) GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_WM_SETREDRAW, 0, 0) Local $iRowIndex, $iColFill If $iTranspose Then For $i = $iSubItem_Start To $iSubItem_End $iRowIndex = __ArrayDisplay_AddItem($idListView, "NULL") If $iNoRow Then $iColFill = 0 Else __ArrayDisplay_AddSubItem($idListView, $iRowIndex, "Col " & $i, 0) $iColFill = 1 EndIf For $j = $iItem_Start To $iItem_End If $iDimension = 2 Then $vTmp = $aArray[$j][$i] Else $vTmp = $aArray[$j] EndIf Switch VarGetType($vTmp) Case "Array" __ArrayDisplay_AddSubItem($idListView, $iRowIndex, "{Array}", $iColFill) Case Else __ArrayDisplay_AddSubItem($idListView, $iRowIndex, $vTmp, $iColFill) EndSwitch $iColFill += 1 Next Next Else For $i = $iItem_Start To $iItem_End $iRowIndex = __ArrayDisplay_AddItem($idListView, "NULL") If $iNoRow Then $iColFill = 0 Else __ArrayDisplay_AddSubItem($idListView, $iRowIndex, "Row " & $i, 0) $iColFill = 1 EndIf For $j = $iSubItem_Start To $iSubItem_End If $iDimension = 2 Then $vTmp = $aArray[$i][$j] Else $vTmp = $aArray[$i] EndIf Switch VarGetType($vTmp) Case "Array" __ArrayDisplay_AddSubItem($idListView, $iRowIndex, "{Array}", $iColFill) Case Else __ArrayDisplay_AddSubItem($idListView, $iRowIndex, $vTmp, $iColFill) EndSwitch $iColFill += 1 Next Next EndIf If $iColAlign Then For $i = 0 To $iColFill - 1 __ArrayDisplay_JustifyColumn($idListView, $i, $iColAlign / 2) Next EndIf GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_WM_SETREDRAW, 1, 0) Local $iBorder = (($iRowIndex > 19) ? (65) : (45)) Local $iWidth = $iBorder, $iColWidth = 0, $aiColWidth[$iColFill], $iMin_ColWidth = 55 For $i = 0 To UBound($aiColWidth) - 1 GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_SETCOLUMNWIDTH, $i, $_ARRAYCONSTANT_LVSCW_AUTOSIZE) $iColWidth = GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_GETCOLUMNWIDTH, $i, 0) If $sHeader <> "" Then GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_SETCOLUMNWIDTH, $i, $_ARRAYCONSTANT_LVSCW_AUTOSIZE_USEHEADER) Local $iColWidthHeader = GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_GETCOLUMNWIDTH, $i, 0) If $iColWidth < $iMin_ColWidth And $iColWidthHeader < $iMin_ColWidth Then GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_SETCOLUMNWIDTH, $i, $iMin_ColWidth) $iColWidth = $iMin_ColWidth ElseIf $iColWidthHeader < $iColWidth Then GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_SETCOLUMNWIDTH, $i, $iColWidth) Else $iColWidth = $iColWidthHeader EndIf Else If $iColWidth < $iMin_ColWidth Then GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_SETCOLUMNWIDTH, $i, $iMin_ColWidth) $iColWidth = $iMin_ColWidth EndIf EndIf $iWidth += $iColWidth $aiColWidth[$i] = $iColWidth Next If $iWidth > @DesktopWidth - 100 Then $iWidth = $iBorder For $i = 0 To UBound($aiColWidth) - 1 If $aiColWidth[$i] > $iMax_ColWidth Then GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_SETCOLUMNWIDTH, $i, $iMax_ColWidth) $iWidth += $iMax_ColWidth Else $iWidth += $aiColWidth[$i] EndIf Next EndIf If $iWidth > @DesktopWidth - 100 Then $iWidth = @DesktopWidth - 100 ElseIf $iWidth < $iMinSize Then $iWidth = $iMinSize EndIf Local $tRECT = DllStructCreate("struct; long Left;long Top;long Right;long Bottom; endstruct") DllCall("user32.dll", "struct*", "SendMessageW", "hwnd", GUICtrlGetHandle($idListView), "uint", $_ARRAYCONSTANT_LVM_GETITEMRECT, "wparam", 0, "struct*", $tRECT) Local $aiWin_Pos = WinGetPos($hGUI) Local $aiLV_Pos = ControlGetPos($hGUI, "", $idListView) $iHeight = (($iRowIndex + 4) * (DllStructGetData($tRECT, "Bottom") - DllStructGetData($tRECT, "Top"))) + $aiWin_Pos[3] - $aiLV_Pos[3] If $iHeight > @DesktopHeight - 100 Then $iHeight = @DesktopHeight - 100 ElseIf $iHeight < $iMinSize Then $iHeight = $iMinSize EndIf If $iVerbose Then SplashOff() GUISetState(@SW_HIDE, $hGUI) WinMove($hGUI, "", (@DesktopWidth - $iWidth) / 2, (@DesktopHeight - $iHeight) / 2, $iWidth, $iHeight) GUISetState(@SW_SHOW, $hGUI) Local $iOnEventMode = Opt("GUIOnEventMode", 0), $iMsg __ArrayDisplay_RegisterSortCallBack($idListView, 2, True, "__ArrayDisplay_SortCallBack") While 1 $iMsg = GUIGetMsg() Switch $iMsg Case $_ARRAYCONSTANT_GUI_EVENT_CLOSE ExitLoop Case $idCopy_ID, $idCopy_Data Local $iSel_Count = GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_GETSELECTEDCOUNT, 0, 0) If $iVerbose And (Not $iSel_Count) And ($iItem_End - $iItem_Start) * ($iSubItem_End - $iSubItem_Start) > 10000 Then SplashTextOn($sMsgBoxTitle, "Copying data" & @CRLF & @CRLF & "Please be patient", 300, 100) EndIf Local $sClip = "", $sItem, $aSplit For $i = 0 To GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_GETITEMCOUNT, 0, 0) - 1 If $iSel_Count And Not (GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_GETITEMSTATE, $i, $_ARRAYCONSTANT_LVIS_SELECTED) <> 0) Then ContinueLoop EndIf $sItem = __ArrayDisplay_GetItemTextString($idListView, $i) If $iMsg = $idCopy_ID And $iNoRow Then $sItem = "Row " & ($i + (($iTranspose) ? ($iSubItem_Start) : ($iItem_Start))) & $sCurr_Separator & $sItem EndIf If $iMsg = $idCopy_Data And Not $iNoRow Then $sItem = StringRegExpReplace($sItem, "^Row\s\d+\|(.*)$", "$1") EndIf If $iCW_ColWidth Then $aSplit = StringSplit($sItem, $sCurr_Separator) $sItem = "" For $j = 1 To $aSplit[0] $sItem &= StringFormat("%-" & $iCW_ColWidth + 1 & "s", StringLeft($aSplit[$j], $iCW_ColWidth)) Next Else $sItem = StringReplace($sItem, $sCurr_Separator, $vUser_Separator) EndIf $sClip &= $sItem & @CRLF Next $sItem = $sHeader If $iMsg = $idCopy_ID Then $sItem = $sHeader If $iNoRow Then $sItem = "Row|" & $sItem EndIf If $iCW_ColWidth Then $aSplit = StringSplit($sItem, $sCurr_Separator) $sItem = "" For $j = 1 To $aSplit[0] $sItem &= StringFormat("%-" & $iCW_ColWidth + 1 & "s", StringLeft($aSplit[$j], $iCW_ColWidth)) Next Else $sItem = StringReplace($sItem, $sCurr_Separator, $vUser_Separator) EndIf $sClip = $sItem & @CRLF & $sClip EndIf ClipPut($sClip) SplashOff() GUICtrlSetState($idListView, $_ARRAYCONSTANT_GUI_FOCUS) Case $idListView __ArrayDisplay_SortItems($idListView, GUICtrlGetState($idListView)) Case $idUser_Func Local $aiSelItems[1] = [0] For $i = 0 To GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_GETITEMCOUNT, 0, 0) - 1 If (GUICtrlSendMsg($idListView, $_ARRAYCONSTANT_LVM_GETITEMSTATE, $i, $_ARRAYCONSTANT_LVIS_SELECTED) <> 0) Then $aiSelItems[0] += 1 ReDim $aiSelItems[$aiSelItems[0] + 1] $aiSelItems[$aiSelItems[0]] = $i + $iItem_Start EndIf Next $hUser_Function($aArray, $aiSelItems) GUICtrlSetState($idListView, $_ARRAYCONSTANT_GUI_FOCUS) Case $idExit_Script GUIDelete($hGUI) Exit EndSwitch WEnd GUIDelete($hGUI) Opt("GUICoordMode", $iCoordMode) Opt("GUIOnEventMode", $iOnEventMode) Return 1 EndFunc Func __ArrayDisplay_RegisterSortCallBack($hWnd, $vCompareType = 2, $bArrows = True, $sSort_Callback = "__ArrayDisplay_SortCallBack") #Au3Stripper_Ignore_Funcs=$sSort_Callback If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd) Local $hHeader = HWnd(GUICtrlSendMsg($hWnd, 0x101F, 0, 0)) $__g_aArrayDisplay_SortInfo[1] = $hWnd $__g_aArrayDisplay_SortInfo[2] = DllCallbackRegister($sSort_Callback, "int", "int;int;hwnd") $__g_aArrayDisplay_SortInfo[3] = -1 $__g_aArrayDisplay_SortInfo[4] = -1 $__g_aArrayDisplay_SortInfo[5] = 1 $__g_aArrayDisplay_SortInfo[6] = -1 $__g_aArrayDisplay_SortInfo[7] = 0 $__g_aArrayDisplay_SortInfo[8] = $vCompareType $__g_aArrayDisplay_SortInfo[9] = $bArrows $__g_aArrayDisplay_SortInfo[10] = $hHeader Return $__g_aArrayDisplay_SortInfo[2] <> 0 EndFunc #Au3Stripper_Ignore_Funcs=__ArrayDisplay_SortCallBack Func __ArrayDisplay_SortCallBack($nItem1, $nItem2, $hWnd) If $__g_aArrayDisplay_SortInfo[3] = $__g_aArrayDisplay_SortInfo[4] Then If Not $__g_aArrayDisplay_SortInfo[7] Then $__g_aArrayDisplay_SortInfo[5] *= -1 $__g_aArrayDisplay_SortInfo[7] = 1 EndIf Else $__g_aArrayDisplay_SortInfo[7] = 1 EndIf $__g_aArrayDisplay_SortInfo[6] = $__g_aArrayDisplay_SortInfo[3] Local $sVal1 = __ArrayDisplay_GetItemText($hWnd, $nItem1, $__g_aArrayDisplay_SortInfo[3]) Local $sVal2 = __ArrayDisplay_GetItemText($hWnd, $nItem2, $__g_aArrayDisplay_SortInfo[3]) If $__g_aArrayDisplay_SortInfo[8] = 1 Then If (StringIsFloat($sVal1) Or StringIsInt($sVal1)) Then $sVal1 = Number($sVal1) If (StringIsFloat($sVal2) Or StringIsInt($sVal2)) Then $sVal2 = Number($sVal2) EndIf Local $nResult If $__g_aArrayDisplay_SortInfo[8] < 2 Then $nResult = 0 If $sVal1 < $sVal2 Then $nResult = -1 ElseIf $sVal1 > $sVal2 Then $nResult = 1 EndIf Else $nResult = DllCall('shlwapi.dll', 'int', 'StrCmpLogicalW', 'wstr', $sVal1, 'wstr', $sVal2)[0] EndIf $nResult = $nResult * $__g_aArrayDisplay_SortInfo[5] Return $nResult EndFunc Func __ArrayDisplay_SortItems($hWnd, $iCol) If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd) Local $pFunction = DllCallbackGetPtr($__g_aArrayDisplay_SortInfo[2]) $__g_aArrayDisplay_SortInfo[3] = $iCol $__g_aArrayDisplay_SortInfo[7] = 0 $__g_aArrayDisplay_SortInfo[4] = $__g_aArrayDisplay_SortInfo[6] Local $aResult = DllCall("user32.dll", "lresult", "SendMessageW", "hwnd", $hWnd, "uint", 0x1051, "hwnd", $hWnd, "ptr", $pFunction) If $aResult[0] <> 0 Then If $__g_aArrayDisplay_SortInfo[9] Then Local $hHeader = $__g_aArrayDisplay_SortInfo[10], $iFormat For $x = 0 To __ArrayDisplay_GetItemCount($hHeader) - 1 $iFormat = __ArrayDisplay_GetItemFormat($hHeader, $x) If BitAND($iFormat, 0x00000200) Then __ArrayDisplay_SetItemFormat($hHeader, $x, BitXOR($iFormat, 0x00000200)) ElseIf BitAND($iFormat, 0x00000400) Then __ArrayDisplay_SetItemFormat($hHeader, $x, BitXOR($iFormat, 0x00000400)) EndIf Next $iFormat = __ArrayDisplay_GetItemFormat($hHeader, $iCol) If $__g_aArrayDisplay_SortInfo[5] = 1 Then __ArrayDisplay_SetItemFormat($hHeader, $iCol, BitOR($iFormat, 0x00000400)) Else __ArrayDisplay_SetItemFormat($hHeader, $iCol, BitOR($iFormat, 0x00000200)) EndIf EndIf Return True EndIf Return False EndFunc Func __ArrayDisplay_AddItem($hWnd, $sText) Local $tItem = DllStructCreate($_ARRAYCONSTANT_tagLVITEM) DllStructSetData($tItem, "Param", 0) Local $iBuffer = StringLen($sText) + 1 Local $tBuffer = DllStructCreate("wchar Text[" & $iBuffer & "]") $iBuffer *= 2 DllStructSetData($tBuffer, "Text", $sText) DllStructSetData($tItem, "Text", DllStructGetPtr($tBuffer)) DllStructSetData($tItem, "TextMax", $iBuffer) Local $iMask = 0x00000005 DllStructSetData($tItem, "Mask", $iMask) DllStructSetData($tItem, "Item", 999999999) DllStructSetData($tItem, "Image", -1) Local $pItem = DllStructGetPtr($tItem) Local $iRet = GUICtrlSendMsg($hWnd, 0x104D, 0, $pItem) Return $iRet EndFunc Func __ArrayDisplay_AddSubItem($hWnd, $iIndex, $sText, $iSubItem) Local $iBuffer = StringLen($sText) + 1 Local $tBuffer = DllStructCreate("wchar Text[" & $iBuffer & "]") $iBuffer *= 2 Local $pBuffer = DllStructGetPtr($tBuffer) Local $tItem = DllStructCreate($_ARRAYCONSTANT_tagLVITEM) Local $iMask = 0x00000001 DllStructSetData($tBuffer, "Text", $sText) DllStructSetData($tItem, "Mask", $iMask) DllStructSetData($tItem, "Item", $iIndex) DllStructSetData($tItem, "SubItem", $iSubItem) DllStructSetData($tItem, "Image", -1) Local $pItem = DllStructGetPtr($tItem) DllStructSetData($tItem, "Text", $pBuffer) Local $iRet = GUICtrlSendMsg($hWnd, 0x104C, 0, $pItem) Return $iRet <> 0 EndFunc Func __ArrayDisplay_GetColumnCount($hWnd) Local $hHeader = HWnd(GUICtrlSendMsg($hWnd, 0x101F, 0, 0)) Return __ArrayDisplay_GetItemCount($hHeader) EndFunc Func __ArrayDisplay_GetHeader($hWnd) Return HWnd(GUICtrlSendMsg($hWnd, 0x101F, 0, 0)) EndFunc Func __ArrayDisplay_GetItem($hWnd, $iIndex, ByRef $tItem) Local $aResult = DllCall("user32.dll", "lresult", "SendMessageW", "hwnd", $hWnd, "uint", 0x120B, "wparam", $iIndex, "struct*", $tItem) Return $aResult[0] <> 0 EndFunc Func __ArrayDisplay_GetItemCount($hWnd) Local $aResult = DllCall("user32.dll", "lresult", "SendMessageW", "hwnd", $hWnd, "uint", 0x1200, "wparam", 0, "lparam", 0) Return $aResult[0] EndFunc Func __ArrayDisplay_GetItemFormat($hWnd, $iIndex) Local $tItem = DllStructCreate($_ARRAYCONSTANT_tagHDITEM) DllStructSetData($tItem, "Mask", 0x00000004) __ArrayDisplay_GetItem($hWnd, $iIndex, $tItem) Return DllStructGetData($tItem, "Fmt") EndFunc Func __ArrayDisplay_GetItemText($hWnd, $iIndex, $iSubItem = 0) Local $tBuffer = DllStructCreate("wchar Text[4096]") Local $pBuffer = DllStructGetPtr($tBuffer) Local $tItem = DllStructCreate($_ARRAYCONSTANT_tagLVITEM) DllStructSetData($tItem, "SubItem", $iSubItem) DllStructSetData($tItem, "TextMax", 4096) DllStructSetData($tItem, "Text", $pBuffer) If IsHWnd($hWnd) Then DllCall("user32.dll", "lresult", "SendMessageW", "hwnd", $hWnd, "uint", 0x1073, "wparam", $iIndex, "struct*", $tItem) Else Local $pItem = DllStructGetPtr($tItem) GUICtrlSendMsg($hWnd, 0x1073, $iIndex, $pItem) EndIf Return DllStructGetData($tBuffer, "Text") EndFunc Func __ArrayDisplay_GetItemTextString($hWnd, $iItem) Local $sRow = "", $sSeparatorChar = Opt('GUIDataSeparatorChar') Local $iSelected = $iItem For $x = 0 To __ArrayDisplay_GetColumnCount($hWnd) - 1 $sRow &= __ArrayDisplay_GetItemText($hWnd, $iSelected, $x) & $sSeparatorChar Next Return StringTrimRight($sRow, 1) EndFunc Func __ArrayDisplay_JustifyColumn($idListView, $iIndex, $iAlign = -1) Local $tColumn = DllStructCreate("uint Mask;int Fmt;int CX;ptr Text;int TextMax;int SubItem;int Image;int Order;int cxMin;int cxDefault;int cxIdeal") If $iAlign < 0 Or $iAlign > 2 Then $iAlign = 0 DllStructSetData($tColumn, "Mask", 0x01) DllStructSetData($tColumn, "Fmt", $iAlign) Local $pColumn = DllStructGetPtr($tColumn) Local $iRet = GUICtrlSendMsg($idListView, 0x1060 , $iIndex, $pColumn) Return $iRet <> 0 EndFunc Func __ArrayDisplay_SetItemFormat($hWnd, $iIndex, $iFormat) Local $tItem = DllStructCreate($_ARRAYCONSTANT_tagHDITEM) DllStructSetData($tItem, "Mask", 0x00000004) DllStructSetData($tItem, "Fmt", $iFormat) Local $aResult = DllCall("user32.dll", "lresult", "SendMessageW", "hwnd", $hWnd, "uint", 0x120C, "wparam", $iIndex, "struct*", $tItem) Return $aResult[0] <> 0 EndFunc Global Enum $ARRAYFILL_FORCE_DEFAULT, $ARRAYFILL_FORCE_SINGLEITEM, $ARRAYFILL_FORCE_INT, $ARRAYFILL_FORCE_NUMBER, $ARRAYFILL_FORCE_PTR, $ARRAYFILL_FORCE_HWND, $ARRAYFILL_FORCE_STRING, $ARRAYFILL_FORCE_BOOLEAN Global Enum $ARRAYUNIQUE_NOCOUNT, $ARRAYUNIQUE_COUNT Global Enum $ARRAYUNIQUE_AUTO, $ARRAYUNIQUE_FORCE32, $ARRAYUNIQUE_FORCE64, $ARRAYUNIQUE_MATCH, $ARRAYUNIQUE_DISTINCT Func _ArrayAdd(ByRef $aArray, $vValue, $iStart = 0, $sDelim_Item = "|", $sDelim_Row = @CRLF, $iForce = $ARRAYFILL_FORCE_DEFAULT) If $iStart = Default Then $iStart = 0 If $sDelim_Item = Default Then $sDelim_Item = "|" If $sDelim_Row = Default Then $sDelim_Row = @CRLF If $iForce = Default Then $iForce = $ARRAYFILL_FORCE_DEFAULT If Not IsArray($aArray) Then Return SetError(1, 0, -1) Local $iDim_1 = UBound($aArray, $UBOUND_ROWS) Local $hDataType = 0 Switch $iForce Case $ARRAYFILL_FORCE_INT $hDataType = Int Case $ARRAYFILL_FORCE_NUMBER $hDataType = Number Case $ARRAYFILL_FORCE_PTR $hDataType = Ptr Case $ARRAYFILL_FORCE_HWND $hDataType = Hwnd Case $ARRAYFILL_FORCE_STRING $hDataType = String Case $ARRAYFILL_FORCE_BOOLEAN $hDataType = "Boolean" EndSwitch Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 If $iForce = $ARRAYFILL_FORCE_SINGLEITEM Then ReDim $aArray[$iDim_1 + 1] $aArray[$iDim_1] = $vValue Return $iDim_1 EndIf If IsArray($vValue) Then If UBound($vValue, $UBOUND_DIMENSIONS) <> 1 Then Return SetError(5, 0, -1) $hDataType = 0 Else Local $aTmp = StringSplit($vValue, $sDelim_Item, $STR_NOCOUNT + $STR_ENTIRESPLIT) If UBound($aTmp, $UBOUND_ROWS) = 1 Then $aTmp[0] = $vValue EndIf $vValue = $aTmp EndIf Local $iAdd = UBound($vValue, $UBOUND_ROWS) ReDim $aArray[$iDim_1 + $iAdd] For $i = 0 To $iAdd - 1 If String($hDataType) = "Boolean" Then Switch $vValue[$i] Case "True", "1" $aArray[$iDim_1 + $i] = True Case "False", "0", "" $aArray[$iDim_1 + $i] = False EndSwitch ElseIf IsFunc($hDataType) Then $aArray[$iDim_1 + $i] = $hDataType($vValue[$i]) Else $aArray[$iDim_1 + $i] = $vValue[$i] EndIf Next Return $iDim_1 + $iAdd - 1 Case 2 Local $iDim_2 = UBound($aArray, $UBOUND_COLUMNS) If $iStart < 0 Or $iStart > $iDim_2 - 1 Then Return SetError(4, 0, -1) Local $iValDim_1, $iValDim_2 = 0, $iColCount If IsArray($vValue) Then If UBound($vValue, $UBOUND_DIMENSIONS) <> 2 Then Return SetError(5, 0, -1) $iValDim_1 = UBound($vValue, $UBOUND_ROWS) $iValDim_2 = UBound($vValue, $UBOUND_COLUMNS) $hDataType = 0 Else Local $aSplit_1 = StringSplit($vValue, $sDelim_Row, $STR_NOCOUNT + $STR_ENTIRESPLIT) $iValDim_1 = UBound($aSplit_1, $UBOUND_ROWS) Local $aTmp[$iValDim_1][0], $aSplit_2 For $i = 0 To $iValDim_1 - 1 $aSplit_2 = StringSplit($aSplit_1[$i], $sDelim_Item, $STR_NOCOUNT + $STR_ENTIRESPLIT) $iColCount = UBound($aSplit_2) If $iColCount > $iValDim_2 Then $iValDim_2 = $iColCount ReDim $aTmp[$iValDim_1][$iValDim_2] EndIf For $j = 0 To $iColCount - 1 $aTmp[$i][$j] = $aSplit_2[$j] Next Next $vValue = $aTmp EndIf If UBound($vValue, $UBOUND_COLUMNS) + $iStart > UBound($aArray, $UBOUND_COLUMNS) Then Return SetError(3, 0, -1) ReDim $aArray[$iDim_1 + $iValDim_1][$iDim_2] For $iWriteTo_Index = 0 To $iValDim_1 - 1 For $j = 0 To $iDim_2 - 1 If $j < $iStart Then $aArray[$iWriteTo_Index + $iDim_1][$j] = "" ElseIf $j - $iStart > $iValDim_2 - 1 Then $aArray[$iWriteTo_Index + $iDim_1][$j] = "" Else If String($hDataType) = "Boolean" Then Switch $vValue[$iWriteTo_Index][$j - $iStart] Case "True", "1" $aArray[$iWriteTo_Index + $iDim_1][$j] = True Case "False", "0", "" $aArray[$iWriteTo_Index + $iDim_1][$j] = False EndSwitch ElseIf IsFunc($hDataType) Then $aArray[$iWriteTo_Index + $iDim_1][$j] = $hDataType($vValue[$iWriteTo_Index][$j - $iStart]) Else $aArray[$iWriteTo_Index + $iDim_1][$j] = $vValue[$iWriteTo_Index][$j - $iStart] EndIf EndIf Next Next Case Else Return SetError(2, 0, -1) EndSwitch Return UBound($aArray, $UBOUND_ROWS) - 1 EndFunc Func _ArrayBinarySearch(Const ByRef $aArray, $vValue, $iStart = 0, $iEnd = 0, $iColumn = 0) If $iStart = Default Then $iStart = 0 If $iEnd = Default Then $iEnd = 0 If $iColumn = Default Then $iColumn = 0 If Not IsArray($aArray) Then Return SetError(1, 0, -1) Local $iDim_1 = UBound($aArray, $UBOUND_ROWS) If $iDim_1 = 0 Then Return SetError(6, 0, -1) If $iEnd < 1 Or $iEnd > $iDim_1 - 1 Then $iEnd = $iDim_1 - 1 If $iStart < 0 Then $iStart = 0 If $iStart > $iEnd Then Return SetError(4, 0, -1) Local $iMid = Int(($iEnd + $iStart) / 2) Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 If $aArray[$iStart] > $vValue Or $aArray[$iEnd] < $vValue Then Return SetError(2, 0, -1) While $iStart <= $iMid And $vValue <> $aArray[$iMid] If $vValue < $aArray[$iMid] Then $iEnd = $iMid - 1 Else $iStart = $iMid + 1 EndIf $iMid = Int(($iEnd + $iStart) / 2) WEnd If $iStart > $iEnd Then Return SetError(3, 0, -1) Case 2 Local $iDim_2 = UBound($aArray, $UBOUND_COLUMNS) - 1 If $iColumn < 0 Or $iColumn > $iDim_2 Then Return SetError(7, 0, -1) If $aArray[$iStart][$iColumn] > $vValue Or $aArray[$iEnd][$iColumn] < $vValue Then Return SetError(2, 0, -1) While $iStart <= $iMid And $vValue <> $aArray[$iMid][$iColumn] If $vValue < $aArray[$iMid][$iColumn] Then $iEnd = $iMid - 1 Else $iStart = $iMid + 1 EndIf $iMid = Int(($iEnd + $iStart) / 2) WEnd If $iStart > $iEnd Then Return SetError(3, 0, -1) Case Else Return SetError(5, 0, -1) EndSwitch Return $iMid EndFunc Func _ArrayColDelete(ByRef $aArray, $iColumn, $bConvert = False) If $bConvert = Default Then $bConvert = False If Not IsArray($aArray) Then Return SetError(1, 0, -1) Local $iDim_1 = UBound($aArray, $UBOUND_ROWS) If UBound($aArray, $UBOUND_DIMENSIONS) <> 2 Then Return SetError(2, 0, -1) Local $iDim_2 = UBound($aArray, $UBOUND_COLUMNS) Switch $iDim_2 Case 2 If $iColumn < 0 Or $iColumn > 1 Then Return SetError(3, 0, -1) If $bConvert Then Local $aTempArray[$iDim_1] For $i = 0 To $iDim_1 - 1 $aTempArray[$i] = $aArray[$i][(Not $iColumn)] Next $aArray = $aTempArray Else ContinueCase EndIf Case Else If $iColumn < 0 Or $iColumn > $iDim_2 - 1 Then Return SetError(3, 0, -1) For $i = 0 To $iDim_1 - 1 For $j = $iColumn To $iDim_2 - 2 $aArray[$i][$j] = $aArray[$i][$j + 1] Next Next ReDim $aArray[$iDim_1][$iDim_2 - 1] EndSwitch Return UBound($aArray, $UBOUND_COLUMNS) EndFunc Func _ArrayColInsert(ByRef $aArray, $iColumn) If Not IsArray($aArray) Then Return SetError(1, 0, -1) Local $iDim_1 = UBound($aArray, $UBOUND_ROWS) Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 Local $aTempArray[$iDim_1][2] Switch $iColumn Case 0, 1 For $i = 0 To $iDim_1 - 1 $aTempArray[$i][(Not $iColumn)] = $aArray[$i] Next Case Else Return SetError(3, 0, -1) EndSwitch $aArray = $aTempArray Case 2 Local $iDim_2 = UBound($aArray, $UBOUND_COLUMNS) If $iColumn < 0 Or $iColumn > $iDim_2 Then Return SetError(3, 0, -1) ReDim $aArray[$iDim_1][$iDim_2 + 1] For $i = 0 To $iDim_1 - 1 For $j = $iDim_2 To $iColumn + 1 Step -1 $aArray[$i][$j] = $aArray[$i][$j - 1] Next $aArray[$i][$iColumn] = "" Next Case Else Return SetError(2, 0, -1) EndSwitch Return UBound($aArray, $UBOUND_COLUMNS) EndFunc Func _ArrayCombinations(Const ByRef $aArray, $iSet, $sDelimiter = "") If $sDelimiter = Default Then $sDelimiter = "" If Not IsArray($aArray) Then Return SetError(1, 0, 0) If UBound($aArray, $UBOUND_DIMENSIONS) <> 1 Then Return SetError(2, 0, 0) Local $iN = UBound($aArray) Local $iR = $iSet Local $aIdx[$iR] For $i = 0 To $iR - 1 $aIdx[$i] = $i Next Local $iTotal = __Array_Combinations($iN, $iR) Local $iLeft = $iTotal Local $aResult[$iTotal + 1] $aResult[0] = $iTotal Local $iCount = 1 While $iLeft > 0 __Array_GetNext($iN, $iR, $iLeft, $iTotal, $aIdx) For $i = 0 To $iSet - 1 $aResult[$iCount] &= $aArray[$aIdx[$i]] & $sDelimiter Next If $sDelimiter <> "" Then $aResult[$iCount] = StringTrimRight($aResult[$iCount], 1) $iCount += 1 WEnd Return $aResult EndFunc Func _ArrayConcatenate(ByRef $aArrayTarget, Const ByRef $aArraySource, $iStart = 0) If $iStart = Default Then $iStart = 0 If Not IsArray($aArrayTarget) Then Return SetError(1, 0, -1) If Not IsArray($aArraySource) Then Return SetError(2, 0, -1) Local $iDim_Total_Tgt = UBound($aArrayTarget, $UBOUND_DIMENSIONS) Local $iDim_Total_Src = UBound($aArraySource, $UBOUND_DIMENSIONS) Local $iDim_1_Tgt = UBound($aArrayTarget, $UBOUND_ROWS) Local $iDim_1_Src = UBound($aArraySource, $UBOUND_ROWS) If $iStart < 0 Or $iStart > $iDim_1_Src - 1 Then Return SetError(6, 0, -1) Switch $iDim_Total_Tgt Case 1 If $iDim_Total_Src <> 1 Then Return SetError(4, 0, -1) ReDim $aArrayTarget[$iDim_1_Tgt + $iDim_1_Src - $iStart] For $i = $iStart To $iDim_1_Src - 1 $aArrayTarget[$iDim_1_Tgt + $i - $iStart] = $aArraySource[$i] Next Case 2 If $iDim_Total_Src <> 2 Then Return SetError(4, 0, -1) Local $iDim_2_Tgt = UBound($aArrayTarget, $UBOUND_COLUMNS) If UBound($aArraySource, $UBOUND_COLUMNS) <> $iDim_2_Tgt Then Return SetError(5, 0, -1) ReDim $aArrayTarget[$iDim_1_Tgt + $iDim_1_Src - $iStart][$iDim_2_Tgt] For $i = $iStart To $iDim_1_Src - 1 For $j = 0 To $iDim_2_Tgt - 1 $aArrayTarget[$iDim_1_Tgt + $i - $iStart][$j] = $aArraySource[$i][$j] Next Next Case Else Return SetError(3, 0, -1) EndSwitch Return UBound($aArrayTarget, $UBOUND_ROWS) EndFunc Func _ArrayDelete(ByRef $aArray, $vRange) If Not IsArray($aArray) Then Return SetError(1, 0, -1) Local $iDim_1 = UBound($aArray, $UBOUND_ROWS) - 1 If IsArray($vRange) Then If UBound($vRange, $UBOUND_DIMENSIONS) <> 1 Or UBound($vRange, $UBOUND_ROWS) < 2 Then Return SetError(4, 0, -1) Else Local $iNumber, $aSplit_1, $aSplit_2 $vRange = StringStripWS($vRange, 8) $aSplit_1 = StringSplit($vRange, ";") $vRange = "" For $i = 1 To $aSplit_1[0] If Not StringRegExp($aSplit_1[$i], "^\d+(-\d+)?$") Then Return SetError(3, 0, -1) $aSplit_2 = StringSplit($aSplit_1[$i], "-") Switch $aSplit_2[0] Case 1 $vRange &= $aSplit_2[1] & ";" Case 2 If Number($aSplit_2[2]) >= Number($aSplit_2[1]) Then $iNumber = $aSplit_2[1] - 1 Do $iNumber += 1 $vRange &= $iNumber & ";" Until $iNumber = $aSplit_2[2] EndIf EndSwitch Next $vRange = StringSplit(StringTrimRight($vRange, 1), ";") EndIf If $vRange[1] < 0 Or $vRange[$vRange[0]] > $iDim_1 Then Return SetError(5, 0, -1) Local $iCopyTo_Index = 0 Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 For $i = 1 To $vRange[0] $aArray[$vRange[$i]] = ChrW(0xFAB1) Next For $iReadFrom_Index = 0 To $iDim_1 If $aArray[$iReadFrom_Index] == ChrW(0xFAB1) Then ContinueLoop Else If $iReadFrom_Index <> $iCopyTo_Index Then $aArray[$iCopyTo_Index] = $aArray[$iReadFrom_Index] EndIf $iCopyTo_Index += 1 EndIf Next ReDim $aArray[$iDim_1 - $vRange[0] + 1] Case 2 Local $iDim_2 = UBound($aArray, $UBOUND_COLUMNS) - 1 For $i = 1 To $vRange[0] $aArray[$vRange[$i]][0] = ChrW(0xFAB1) Next For $iReadFrom_Index = 0 To $iDim_1 If $aArray[$iReadFrom_Index][0] == ChrW(0xFAB1) Then ContinueLoop Else If $iReadFrom_Index <> $iCopyTo_Index Then For $j = 0 To $iDim_2 $aArray[$iCopyTo_Index][$j] = $aArray[$iReadFrom_Index][$j] Next EndIf $iCopyTo_Index += 1 EndIf Next ReDim $aArray[$iDim_1 - $vRange[0] + 1][$iDim_2 + 1] Case Else Return SetError(2, 0, False) EndSwitch Return UBound($aArray, $UBOUND_ROWS) EndFunc Func _ArrayDisplay(Const ByRef $aArray, $sTitle = Default, $sArrayRange = Default, $iFlags = Default, $vUser_Separator = Default, $sHeader = Default, $iMax_ColWidth = Default) #forceref $vUser_Separator Local $iRet = __ArrayDisplay_Share($aArray, $sTitle, $sArrayRange, $iFlags, Default, $sHeader, $iMax_ColWidth, 0, False) Return SetError(@error, @extended, $iRet) EndFunc Func _ArrayExtract(Const ByRef $aArray, $iStart_Row = -1, $iEnd_Row = -1, $iStart_Col = -1, $iEnd_Col = -1) If $iStart_Row = Default Then $iStart_Row = -1 If $iEnd_Row = Default Then $iEnd_Row = -1 If $iStart_Col = Default Then $iStart_Col = -1 If $iEnd_Col = Default Then $iEnd_Col = -1 If Not IsArray($aArray) Then Return SetError(1, 0, -1) Local $iDim_1 = UBound($aArray, $UBOUND_ROWS) - 1 If $iEnd_Row = -1 Then $iEnd_Row = $iDim_1 If $iStart_Row = -1 Then $iStart_Row = 0 If $iStart_Row < -1 Or $iEnd_Row < -1 Then Return SetError(3, 0, -1) If $iStart_Row > $iDim_1 Or $iEnd_Row > $iDim_1 Then Return SetError(3, 0, -1) If $iStart_Row > $iEnd_Row Then Return SetError(4, 0, -1) Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 Local $aRetArray[$iEnd_Row - $iStart_Row + 1] For $i = 0 To $iEnd_Row - $iStart_Row $aRetArray[$i] = $aArray[$i + $iStart_Row] Next Return $aRetArray Case 2 Local $iDim_2 = UBound($aArray, $UBOUND_COLUMNS) - 1 If $iEnd_Col = -1 Then $iEnd_Col = $iDim_2 If $iStart_Col = -1 Then $iStart_Col = 0 If $iStart_Col < -1 Or $iEnd_Col < -1 Then Return SetError(5, 0, -1) If $iStart_Col > $iDim_2 Or $iEnd_Col > $iDim_2 Then Return SetError(5, 0, -1) If $iStart_Col > $iEnd_Col Then Return SetError(6, 0, -1) If $iStart_Col = $iEnd_Col Then Local $aRetArray[$iEnd_Row - $iStart_Row + 1] Else Local $aRetArray[$iEnd_Row - $iStart_Row + 1][$iEnd_Col - $iStart_Col + 1] EndIf For $i = 0 To $iEnd_Row - $iStart_Row For $j = 0 To $iEnd_Col - $iStart_Col If $iStart_Col = $iEnd_Col Then $aRetArray[$i] = $aArray[$i + $iStart_Row][$j + $iStart_Col] Else $aRetArray[$i][$j] = $aArray[$i + $iStart_Row][$j + $iStart_Col] EndIf Next Next Return $aRetArray Case Else Return SetError(2, 0, -1) EndSwitch Return 1 EndFunc Func _ArrayFindAll(Const ByRef $aArray, $vValue, $iStart = 0, $iEnd = 0, $iCase = 0, $iCompare = 0, $iSubItem = 0, $bRow = False) If $iStart = Default Then $iStart = 0 If $iEnd = Default Then $iEnd = 0 If $iCase = Default Then $iCase = 0 If $iCompare = Default Then $iCompare = 0 If $iSubItem = Default Then $iSubItem = 0 If $bRow = Default Then $bRow = False $iStart = _ArraySearch($aArray, $vValue, $iStart, $iEnd, $iCase, $iCompare, 1, $iSubItem, $bRow) If @error Then Return SetError(@error, 0, -1) Local $iIndex = 0, $avResult[UBound($aArray, ($bRow ? $UBOUND_COLUMNS : $UBOUND_ROWS))] Do $avResult[$iIndex] = $iStart $iIndex += 1 $iStart = _ArraySearch($aArray, $vValue, $iStart + 1, $iEnd, $iCase, $iCompare, 1, $iSubItem, $bRow) Until @error ReDim $avResult[$iIndex] Return $avResult EndFunc Func _ArrayInsert(ByRef $aArray, $vRange, $vValue = "", $iStart = 0, $sDelim_Item = "|", $sDelim_Row = @CRLF, $iForce = $ARRAYFILL_FORCE_DEFAULT) If $vValue = Default Then $vValue = "" If $iStart = Default Then $iStart = 0 If $sDelim_Item = Default Then $sDelim_Item = "|" If $sDelim_Row = Default Then $sDelim_Row = @CRLF If $iForce = Default Then $iForce = $ARRAYFILL_FORCE_DEFAULT If Not IsArray($aArray) Then Return SetError(1, 0, -1) Local $iDim_1 = UBound($aArray, $UBOUND_ROWS) - 1 Local $hDataType = 0 Switch $iForce Case $ARRAYFILL_FORCE_INT $hDataType = Int Case $ARRAYFILL_FORCE_NUMBER $hDataType = Number Case $ARRAYFILL_FORCE_PTR $hDataType = Ptr Case $ARRAYFILL_FORCE_HWND $hDataType = Hwnd Case $ARRAYFILL_FORCE_STRING $hDataType = String EndSwitch Local $aSplit_1, $aSplit_2 If IsArray($vRange) Then If UBound($vRange, $UBOUND_DIMENSIONS) <> 1 Or UBound($vRange, $UBOUND_ROWS) < 2 Then Return SetError(4, 0, -1) Else Local $iNumber $vRange = StringStripWS($vRange, 8) $aSplit_1 = StringSplit($vRange, ";") $vRange = "" For $i = 1 To $aSplit_1[0] If Not StringRegExp($aSplit_1[$i], "^\d+(-\d+)?$") Then Return SetError(3, 0, -1) $aSplit_2 = StringSplit($aSplit_1[$i], "-") Switch $aSplit_2[0] Case 1 $vRange &= $aSplit_2[1] & ";" Case 2 If Number($aSplit_2[2]) >= Number($aSplit_2[1]) Then $iNumber = $aSplit_2[1] - 1 Do $iNumber += 1 $vRange &= $iNumber & ";" Until $iNumber = $aSplit_2[2] EndIf EndSwitch Next $vRange = StringSplit(StringTrimRight($vRange, 1), ";") EndIf If $vRange[1] < 0 Or $vRange[$vRange[0]] > $iDim_1 Then Return SetError(5, 0, -1) For $i = 2 To $vRange[0] If $vRange[$i] < $vRange[$i - 1] Then Return SetError(3, 0, -1) Next Local $iCopyTo_Index = $iDim_1 + $vRange[0] Local $iInsertPoint_Index = $vRange[0] Local $iInsert_Index = $vRange[$iInsertPoint_Index] Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 If $iForce = $ARRAYFILL_FORCE_SINGLEITEM Then ReDim $aArray[$iDim_1 + $vRange[0] + 1] For $iReadFromIndex = $iDim_1 To 0 Step -1 $aArray[$iCopyTo_Index] = $aArray[$iReadFromIndex] $iCopyTo_Index -= 1 $iInsert_Index = $vRange[$iInsertPoint_Index] While $iReadFromIndex = $iInsert_Index $aArray[$iCopyTo_Index] = $vValue $iCopyTo_Index -= 1 $iInsertPoint_Index -= 1 If $iInsertPoint_Index < 1 Then ExitLoop 2 $iInsert_Index = $vRange[$iInsertPoint_Index] WEnd Next Return $iDim_1 + $vRange[0] + 1 EndIf ReDim $aArray[$iDim_1 + $vRange[0] + 1] If IsArray($vValue) Then If UBound($vValue, $UBOUND_DIMENSIONS) <> 1 Then Return SetError(5, 0, -1) $hDataType = 0 Else Local $aTmp = StringSplit($vValue, $sDelim_Item, $STR_NOCOUNT + $STR_ENTIRESPLIT) If UBound($aTmp, $UBOUND_ROWS) = 1 Then $aTmp[0] = $vValue $hDataType = 0 EndIf $vValue = $aTmp EndIf For $iReadFromIndex = $iDim_1 To 0 Step -1 $aArray[$iCopyTo_Index] = $aArray[$iReadFromIndex] $iCopyTo_Index -= 1 $iInsert_Index = $vRange[$iInsertPoint_Index] While $iReadFromIndex = $iInsert_Index If $iInsertPoint_Index <= UBound($vValue, $UBOUND_ROWS) Then If IsFunc($hDataType) Then $aArray[$iCopyTo_Index] = $hDataType($vValue[$iInsertPoint_Index - 1]) Else $aArray[$iCopyTo_Index] = $vValue[$iInsertPoint_Index - 1] EndIf Else $aArray[$iCopyTo_Index] = "" EndIf $iCopyTo_Index -= 1 $iInsertPoint_Index -= 1 If $iInsertPoint_Index = 0 Then ExitLoop 2 $iInsert_Index = $vRange[$iInsertPoint_Index] WEnd Next Case 2 Local $iDim_2 = UBound($aArray, $UBOUND_COLUMNS) If $iStart < 0 Or $iStart > $iDim_2 - 1 Then Return SetError(6, 0, -1) Local $iValDim_1, $iValDim_2 If IsArray($vValue) Then If UBound($vValue, $UBOUND_DIMENSIONS) <> 2 Then Return SetError(7, 0, -1) $iValDim_1 = UBound($vValue, $UBOUND_ROWS) $iValDim_2 = UBound($vValue, $UBOUND_COLUMNS) $hDataType = 0 Else $aSplit_1 = StringSplit($vValue, $sDelim_Row, $STR_NOCOUNT + $STR_ENTIRESPLIT) $iValDim_1 = UBound($aSplit_1, $UBOUND_ROWS) StringReplace($aSplit_1[0], $sDelim_Item, "") $iValDim_2 = @extended + 1 Local $aTmp[$iValDim_1][$iValDim_2] For $i = 0 To $iValDim_1 - 1 $aSplit_2 = StringSplit($aSplit_1[$i], $sDelim_Item, $STR_NOCOUNT + $STR_ENTIRESPLIT) For $j = 0 To $iValDim_2 - 1 $aTmp[$i][$j] = $aSplit_2[$j] Next Next $vValue = $aTmp EndIf If UBound($vValue, $UBOUND_COLUMNS) + $iStart > UBound($aArray, $UBOUND_COLUMNS) Then Return SetError(8, 0, -1) ReDim $aArray[$iDim_1 + $vRange[0] + 1][$iDim_2] For $iReadFromIndex = $iDim_1 To 0 Step -1 For $j = 0 To $iDim_2 - 1 $aArray[$iCopyTo_Index][$j] = $aArray[$iReadFromIndex][$j] Next $iCopyTo_Index -= 1 $iInsert_Index = $vRange[$iInsertPoint_Index] While $iReadFromIndex = $iInsert_Index For $j = 0 To $iDim_2 - 1 If $j < $iStart Then $aArray[$iCopyTo_Index][$j] = "" ElseIf $j - $iStart > $iValDim_2 - 1 Then $aArray[$iCopyTo_Index][$j] = "" Else If $iInsertPoint_Index - 1 < $iValDim_1 Then If IsFunc($hDataType) Then $aArray[$iCopyTo_Index][$j] = $hDataType($vValue[$iInsertPoint_Index - 1][$j - $iStart]) Else $aArray[$iCopyTo_Index][$j] = $vValue[$iInsertPoint_Index - 1][$j - $iStart] EndIf Else $aArray[$iCopyTo_Index][$j] = "" EndIf EndIf Next $iCopyTo_Index -= 1 $iInsertPoint_Index -= 1 If $iInsertPoint_Index = 0 Then ExitLoop 2 $iInsert_Index = $vRange[$iInsertPoint_Index] WEnd Next Case Else Return SetError(2, 0, -1) EndSwitch Return UBound($aArray, $UBOUND_ROWS) EndFunc Func _ArrayMax(Const ByRef $aArray, $iCompNumeric = 0, $iStart = -1, $iEnd = -1, $iSubItem = 0) Local $iResult = _ArrayMaxIndex($aArray, $iCompNumeric, $iStart, $iEnd, $iSubItem) If @error Then Return SetError(@error, 0, "") If UBound($aArray, $UBOUND_DIMENSIONS) = 1 Then Return $aArray[$iResult] Else Return $aArray[$iResult][$iSubItem] EndIf EndFunc Func _ArrayMaxIndex(Const ByRef $aArray, $iCompNumeric = 0, $iStart = -1, $iEnd = -1, $iSubItem = 0) If $iCompNumeric = Default Then $iCompNumeric = 0 If $iStart = Default Then $iStart = -1 If $iEnd = Default Then $iEnd = -1 If $iSubItem = Default Then $iSubItem = 0 Local $iRet = __Array_MinMaxIndex($aArray, $iCompNumeric, $iStart, $iEnd, $iSubItem, __Array_GreaterThan) Return SetError(@error, 0, $iRet) EndFunc Func _ArrayMin(Const ByRef $aArray, $iCompNumeric = 0, $iStart = -1, $iEnd = -1, $iSubItem = 0) Local $iResult = _ArrayMinIndex($aArray, $iCompNumeric, $iStart, $iEnd, $iSubItem) If @error Then Return SetError(@error, 0, "") If UBound($aArray, $UBOUND_DIMENSIONS) = 1 Then Return $aArray[$iResult] Else Return $aArray[$iResult][$iSubItem] EndIf EndFunc Func _ArrayMinIndex(Const ByRef $aArray, $iCompNumeric = 0, $iStart = -1, $iEnd = -1, $iSubItem = 0) If $iCompNumeric = Default Then $iCompNumeric = 0 If $iStart = Default Then $iStart = -1 If $iEnd = Default Then $iEnd = -1 If $iSubItem = Default Then $iSubItem = 0 Local $iRet = __Array_MinMaxIndex($aArray, $iCompNumeric, $iStart, $iEnd, $iSubItem, __Array_LessThan) Return SetError(@error, 0, $iRet) EndFunc Func _ArrayPermute(ByRef $aArray, $sDelimiter = "") If $sDelimiter = Default Then $sDelimiter = "" If Not IsArray($aArray) Then Return SetError(1, 0, 0) If UBound($aArray, $UBOUND_DIMENSIONS) <> 1 Then Return SetError(2, 0, 0) Local $iSize = UBound($aArray), $iFactorial = 1, $aIdx[$iSize], $aResult[1], $iCount = 1 If UBound($aArray) Then For $i = 0 To $iSize - 1 $aIdx[$i] = $i Next For $i = $iSize To 1 Step -1 $iFactorial *= $i Next ReDim $aResult[$iFactorial + 1] $aResult[0] = $iFactorial __Array_ExeterInternal($aArray, 0, $iSize, $sDelimiter, $aIdx, $aResult, $iCount) Else $aResult[0] = 0 EndIf Return $aResult EndFunc Func _ArrayPop(ByRef $aArray) If (Not IsArray($aArray)) Then Return SetError(1, 0, "") If UBound($aArray, $UBOUND_DIMENSIONS) <> 1 Then Return SetError(2, 0, "") Local $iUBound = UBound($aArray) - 1 If $iUBound = -1 Then Return SetError(3, 0, "") Local $sLastVal = $aArray[$iUBound] If $iUBound > -1 Then ReDim $aArray[$iUBound] EndIf Return $sLastVal EndFunc Func _ArrayPush(ByRef $aArray, $vValue, $iDirection = 0) If $iDirection = Default Then $iDirection = 0 If (Not IsArray($aArray)) Then Return SetError(1, 0, 0) If UBound($aArray, $UBOUND_DIMENSIONS) <> 1 Then Return SetError(3, 0, 0) Local $iUBound = UBound($aArray) - 1 If IsArray($vValue) Then Local $iUBoundS = UBound($vValue) If ($iUBoundS - 1) > $iUBound Then Return SetError(2, 0, 0) If $iDirection Then For $i = $iUBound To $iUBoundS Step -1 $aArray[$i] = $aArray[$i - $iUBoundS] Next For $i = 0 To $iUBoundS - 1 $aArray[$i] = $vValue[$i] Next Else For $i = 0 To $iUBound - $iUBoundS $aArray[$i] = $aArray[$i + $iUBoundS] Next For $i = 0 To $iUBoundS - 1 $aArray[$i + $iUBound - $iUBoundS + 1] = $vValue[$i] Next EndIf Else If $iUBound > -1 Then If $iDirection Then For $i = $iUBound To 1 Step -1 $aArray[$i] = $aArray[$i - 1] Next $aArray[0] = $vValue Else For $i = 0 To $iUBound - 1 $aArray[$i] = $aArray[$i + 1] Next $aArray[$iUBound] = $vValue EndIf EndIf EndIf Return 1 EndFunc Func _ArrayReverse(ByRef $aArray, $iStart = 0, $iEnd = 0) If $iStart = Default Then $iStart = 0 If $iEnd = Default Then $iEnd = 0 If Not IsArray($aArray) Then Return SetError(1, 0, 0) If UBound($aArray, $UBOUND_DIMENSIONS) <> 1 Then Return SetError(3, 0, 0) If Not UBound($aArray) Then Return SetError(4, 0, 0) Local $vTmp, $iUBound = UBound($aArray) - 1 If $iEnd < 1 Or $iEnd > $iUBound Then $iEnd = $iUBound If $iStart < 0 Then $iStart = 0 If $iStart > $iEnd Then Return SetError(2, 0, 0) For $i = $iStart To Int(($iStart + $iEnd - 1) / 2) $vTmp = $aArray[$i] $aArray[$i] = $aArray[$iEnd] $aArray[$iEnd] = $vTmp $iEnd -= 1 Next Return 1 EndFunc Func _ArraySearch(Const ByRef $aArray, $vValue, $iStart = 0, $iEnd = 0, $iCase = 0, $iCompare = 0, $iForward = 1, $iSubItem = -1, $bRow = False) If $iStart = Default Then $iStart = 0 If $iEnd = Default Then $iEnd = 0 If $iCase = Default Then $iCase = 0 If $iCompare = Default Then $iCompare = 0 If $iForward = Default Then $iForward = 1 If $iSubItem = Default Then $iSubItem = -1 If $bRow = Default Then $bRow = False If Not IsArray($aArray) Then Return SetError(1, 0, -1) Local $iDim_1 = UBound($aArray) - 1 If $iDim_1 = -1 Then Return SetError(3, 0, -1) Local $iDim_2 = UBound($aArray, $UBOUND_COLUMNS) - 1 Local $bCompType = False If $iCompare = 2 Then $iCompare = 0 $bCompType = True EndIf If $bRow Then If UBound($aArray, $UBOUND_DIMENSIONS) = 1 Then Return SetError(5, 0, -1) If $iEnd < 1 Or $iEnd > $iDim_2 Then $iEnd = $iDim_2 If $iStart < 0 Then $iStart = 0 If $iStart > $iEnd Then Return SetError(4, 0, -1) Else If $iEnd < 1 Or $iEnd > $iDim_1 Then $iEnd = $iDim_1 If $iStart < 0 Then $iStart = 0 If $iStart > $iEnd Then Return SetError(4, 0, -1) EndIf Local $iStep = 1 If Not $iForward Then Local $iTmp = $iStart $iStart = $iEnd $iEnd = $iTmp $iStep = -1 EndIf Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 If Not $iCompare Then If Not $iCase Then For $i = $iStart To $iEnd Step $iStep If $bCompType And VarGetType($aArray[$i]) <> VarGetType($vValue) Then ContinueLoop If $aArray[$i] = $vValue Then Return $i Next Else For $i = $iStart To $iEnd Step $iStep If $bCompType And VarGetType($aArray[$i]) <> VarGetType($vValue) Then ContinueLoop If $aArray[$i] == $vValue Then Return $i Next EndIf Else For $i = $iStart To $iEnd Step $iStep If $iCompare = 3 Then If StringRegExp($aArray[$i], $vValue) Then Return $i Else If StringInStr($aArray[$i], $vValue, $iCase) > 0 Then Return $i EndIf Next EndIf Case 2 Local $iDim_Sub If $bRow Then $iDim_Sub = $iDim_1 If $iSubItem > $iDim_Sub Then $iSubItem = $iDim_Sub If $iSubItem < 0 Then $iSubItem = 0 Else $iDim_Sub = $iSubItem EndIf Else $iDim_Sub = $iDim_2 If $iSubItem > $iDim_Sub Then $iSubItem = $iDim_Sub If $iSubItem < 0 Then $iSubItem = 0 Else $iDim_Sub = $iSubItem EndIf EndIf For $j = $iSubItem To $iDim_Sub If Not $iCompare Then If Not $iCase Then For $i = $iStart To $iEnd Step $iStep If $bRow Then If $bCompType And VarGetType($aArray[$j][$i]) <> VarGetType($vValue) Then ContinueLoop If $aArray[$j][$i] = $vValue Then Return $i Else If $bCompType And VarGetType($aArray[$i][$j]) <> VarGetType($vValue) Then ContinueLoop If $aArray[$i][$j] = $vValue Then Return $i EndIf Next Else For $i = $iStart To $iEnd Step $iStep If $bRow Then If $bCompType And VarGetType($aArray[$j][$i]) <> VarGetType($vValue) Then ContinueLoop If $aArray[$j][$i] == $vValue Then Return $i Else If $bCompType And VarGetType($aArray[$i][$j]) <> VarGetType($vValue) Then ContinueLoop If $aArray[$i][$j] == $vValue Then Return $i EndIf Next EndIf Else For $i = $iStart To $iEnd Step $iStep If $iCompare = 3 Then If $bRow Then If StringRegExp($aArray[$j][$i], $vValue) Then Return $i Else If StringRegExp($aArray[$i][$j], $vValue) Then Return $i EndIf Else If $bRow Then If StringInStr($aArray[$j][$i], $vValue, $iCase) > 0 Then Return $i Else If StringInStr($aArray[$i][$j], $vValue, $iCase) > 0 Then Return $i EndIf EndIf Next EndIf Next Case Else Return SetError(2, 0, -1) EndSwitch Return SetError(6, 0, -1) EndFunc Func _ArrayShuffle(ByRef $aArray, $iStart_Row = 0, $iEnd_Row = 0, $iCol = -1) If $iStart_Row = Default Then $iStart_Row = 0 If $iEnd_Row = Default Then $iEnd_Row = 0 If $iCol = Default Then $iCol = -1 If Not IsArray($aArray) Then Return SetError(1, 0, -1) Local $iDim_1 = UBound($aArray, $UBOUND_ROWS) If $iEnd_Row = 0 Then $iEnd_Row = $iDim_1 - 1 If $iStart_Row < 0 Or $iStart_Row > $iDim_1 - 1 Then Return SetError(3, 0, -1) If $iEnd_Row < 1 Or $iEnd_Row > $iDim_1 - 1 Then Return SetError(3, 0, -1) If $iStart_Row > $iEnd_Row Then Return SetError(4, 0, -1) Local $vTmp, $iRand Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 For $i = $iEnd_Row To $iStart_Row + 1 Step -1 $iRand = Random($iStart_Row, $i, 1) $vTmp = $aArray[$i] $aArray[$i] = $aArray[$iRand] $aArray[$iRand] = $vTmp Next Return 1 Case 2 Local $iDim_2 = UBound($aArray, $UBOUND_COLUMNS) If $iCol < -1 Or $iCol > $iDim_2 - 1 Then Return SetError(5, 0, -1) Local $iCol_Start, $iCol_End If $iCol = -1 Then $iCol_Start = 0 $iCol_End = $iDim_2 - 1 Else $iCol_Start = $iCol $iCol_End = $iCol EndIf For $i = $iEnd_Row To $iStart_Row + 1 Step -1 $iRand = Random($iStart_Row, $i, 1) For $j = $iCol_Start To $iCol_End $vTmp = $aArray[$i][$j] $aArray[$i][$j] = $aArray[$iRand][$j] $aArray[$iRand][$j] = $vTmp Next Next Return 1 Case Else Return SetError(2, 0, -1) EndSwitch EndFunc Func _ArraySort(ByRef $aArray, $iDescending = 0, $iStart = 0, $iEnd = 0, $iSubItem = 0, $iPivot = 0) If $iDescending = Default Then $iDescending = 0 If $iStart = Default Then $iStart = 0 If $iEnd = Default Then $iEnd = 0 If $iSubItem = Default Then $iSubItem = 0 If $iPivot = Default Then $iPivot = 0 If Not IsArray($aArray) Then Return SetError(1, 0, 0) Local $iUBound = UBound($aArray) - 1 If $iUBound = -1 Then Return SetError(5, 0, 0) If $iEnd = Default Then $iEnd = 0 If $iEnd < 1 Or $iEnd > $iUBound Or $iEnd = Default Then $iEnd = $iUBound If $iStart < 0 Or $iStart = Default Then $iStart = 0 If $iStart > $iEnd Then Return SetError(2, 0, 0) Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 If $iPivot Then __ArrayDualPivotSort($aArray, $iStart, $iEnd) Else __ArrayQuickSort1D($aArray, $iStart, $iEnd) EndIf If $iDescending Then _ArrayReverse($aArray, $iStart, $iEnd) Case 2 If $iPivot Then Return SetError(6, 0, 0) Local $iSubMax = UBound($aArray, $UBOUND_COLUMNS) - 1 If $iSubItem > $iSubMax Then Return SetError(3, 0, 0) If $iDescending Then $iDescending = -1 Else $iDescending = 1 EndIf __ArrayQuickSort2D($aArray, $iDescending, $iStart, $iEnd, $iSubItem, $iSubMax) Case Else Return SetError(4, 0, 0) EndSwitch Return 1 EndFunc Func __ArrayQuickSort1D(ByRef $aArray, Const ByRef $iStart, Const ByRef $iEnd) If $iEnd <= $iStart Then Return Local $vTmp If ($iEnd - $iStart) < 15 Then Local $vCur For $i = $iStart + 1 To $iEnd $vTmp = $aArray[$i] If IsNumber($vTmp) Then For $j = $i - 1 To $iStart Step -1 $vCur = $aArray[$j] If ($vTmp >= $vCur And IsNumber($vCur)) Or (Not IsNumber($vCur) And StringCompare($vTmp, $vCur) >= 0) Then ExitLoop $aArray[$j + 1] = $vCur Next Else For $j = $i - 1 To $iStart Step -1 If (StringCompare($vTmp, $aArray[$j]) >= 0) Then ExitLoop $aArray[$j + 1] = $aArray[$j] Next EndIf $aArray[$j + 1] = $vTmp Next Return EndIf Local $L = $iStart, $R = $iEnd, $vPivot = $aArray[Int(($iStart + $iEnd) / 2)], $bNum = IsNumber($vPivot) Do If $bNum Then While ($aArray[$L] < $vPivot And IsNumber($aArray[$L])) Or (Not IsNumber($aArray[$L]) And StringCompare($aArray[$L], $vPivot) < 0) $L += 1 WEnd While ($aArray[$R] > $vPivot And IsNumber($aArray[$R])) Or (Not IsNumber($aArray[$R]) And StringCompare($aArray[$R], $vPivot) > 0) $R -= 1 WEnd Else While (StringCompare($aArray[$L], $vPivot) < 0) $L += 1 WEnd While (StringCompare($aArray[$R], $vPivot) > 0) $R -= 1 WEnd EndIf If $L <= $R Then $vTmp = $aArray[$L] $aArray[$L] = $aArray[$R] $aArray[$R] = $vTmp $L += 1 $R -= 1 EndIf Until $L > $R __ArrayQuickSort1D($aArray, $iStart, $R) __ArrayQuickSort1D($aArray, $L, $iEnd) EndFunc Func __ArrayQuickSort2D(ByRef $aArray, Const ByRef $iStep, Const ByRef $iStart, Const ByRef $iEnd, Const ByRef $iSubItem, Const ByRef $iSubMax) If $iEnd <= $iStart Then Return Local $vTmp, $L = $iStart, $R = $iEnd, $vPivot = $aArray[Int(($iStart + $iEnd) / 2)][$iSubItem], $bNum = IsNumber($vPivot) Do If $bNum Then While ($iStep * ($aArray[$L][$iSubItem] - $vPivot) < 0 And IsNumber($aArray[$L][$iSubItem])) Or (Not IsNumber($aArray[$L][$iSubItem]) And $iStep * StringCompare($aArray[$L][$iSubItem], $vPivot) < 0) $L += 1 WEnd While ($iStep * ($aArray[$R][$iSubItem] - $vPivot) > 0 And IsNumber($aArray[$R][$iSubItem])) Or (Not IsNumber($aArray[$R][$iSubItem]) And $iStep * StringCompare($aArray[$R][$iSubItem], $vPivot) > 0) $R -= 1 WEnd Else While ($iStep * StringCompare($aArray[$L][$iSubItem], $vPivot) < 0) $L += 1 WEnd While ($iStep * StringCompare($aArray[$R][$iSubItem], $vPivot) > 0) $R -= 1 WEnd EndIf If $L <= $R Then For $i = 0 To $iSubMax $vTmp = $aArray[$L][$i] $aArray[$L][$i] = $aArray[$R][$i] $aArray[$R][$i] = $vTmp Next $L += 1 $R -= 1 EndIf Until $L > $R __ArrayQuickSort2D($aArray, $iStep, $iStart, $R, $iSubItem, $iSubMax) __ArrayQuickSort2D($aArray, $iStep, $L, $iEnd, $iSubItem, $iSubMax) EndFunc Func __ArrayDualPivotSort(ByRef $aArray, $iPivot_Left, $iPivot_Right, $bLeftMost = True) If $iPivot_Left > $iPivot_Right Then Return Local $iLength = $iPivot_Right - $iPivot_Left + 1 Local $i, $j, $k, $iAi, $iAk, $iA1, $iA2, $iLast If $iLength < 45 Then If $bLeftMost Then $i = $iPivot_Left While $i < $iPivot_Right $j = $i $iAi = $aArray[$i + 1] While $iAi < $aArray[$j] $aArray[$j + 1] = $aArray[$j] $j -= 1 If $j + 1 = $iPivot_Left Then ExitLoop WEnd $aArray[$j + 1] = $iAi $i += 1 WEnd Else While 1 If $iPivot_Left >= $iPivot_Right Then Return 1 $iPivot_Left += 1 If $aArray[$iPivot_Left] < $aArray[$iPivot_Left - 1] Then ExitLoop WEnd While 1 $k = $iPivot_Left $iPivot_Left += 1 If $iPivot_Left > $iPivot_Right Then ExitLoop $iA1 = $aArray[$k] $iA2 = $aArray[$iPivot_Left] If $iA1 < $iA2 Then $iA2 = $iA1 $iA1 = $aArray[$iPivot_Left] EndIf $k -= 1 While $iA1 < $aArray[$k] $aArray[$k + 2] = $aArray[$k] $k -= 1 WEnd $aArray[$k + 2] = $iA1 While $iA2 < $aArray[$k] $aArray[$k + 1] = $aArray[$k] $k -= 1 WEnd $aArray[$k + 1] = $iA2 $iPivot_Left += 1 WEnd $iLast = $aArray[$iPivot_Right] $iPivot_Right -= 1 While $iLast < $aArray[$iPivot_Right] $aArray[$iPivot_Right + 1] = $aArray[$iPivot_Right] $iPivot_Right -= 1 WEnd $aArray[$iPivot_Right + 1] = $iLast EndIf Return 1 EndIf Local $iSeventh = BitShift($iLength, 3) + BitShift($iLength, 6) + 1 Local $iE1, $iE2, $iE3, $iE4, $iE5, $t $iE3 = Ceiling(($iPivot_Left + $iPivot_Right) / 2) $iE2 = $iE3 - $iSeventh $iE1 = $iE2 - $iSeventh $iE4 = $iE3 + $iSeventh $iE5 = $iE4 + $iSeventh If $aArray[$iE2] < $aArray[$iE1] Then $t = $aArray[$iE2] $aArray[$iE2] = $aArray[$iE1] $aArray[$iE1] = $t EndIf If $aArray[$iE3] < $aArray[$iE2] Then $t = $aArray[$iE3] $aArray[$iE3] = $aArray[$iE2] $aArray[$iE2] = $t If $t < $aArray[$iE1] Then $aArray[$iE2] = $aArray[$iE1] $aArray[$iE1] = $t EndIf EndIf If $aArray[$iE4] < $aArray[$iE3] Then $t = $aArray[$iE4] $aArray[$iE4] = $aArray[$iE3] $aArray[$iE3] = $t If $t < $aArray[$iE2] Then $aArray[$iE3] = $aArray[$iE2] $aArray[$iE2] = $t If $t < $aArray[$iE1] Then $aArray[$iE2] = $aArray[$iE1] $aArray[$iE1] = $t EndIf EndIf EndIf If $aArray[$iE5] < $aArray[$iE4] Then $t = $aArray[$iE5] $aArray[$iE5] = $aArray[$iE4] $aArray[$iE4] = $t If $t < $aArray[$iE3] Then $aArray[$iE4] = $aArray[$iE3] $aArray[$iE3] = $t If $t < $aArray[$iE2] Then $aArray[$iE3] = $aArray[$iE2] $aArray[$iE2] = $t If $t < $aArray[$iE1] Then $aArray[$iE2] = $aArray[$iE1] $aArray[$iE1] = $t EndIf EndIf EndIf EndIf Local $iLess = $iPivot_Left Local $iGreater = $iPivot_Right If (($aArray[$iE1] <> $aArray[$iE2]) And ($aArray[$iE2] <> $aArray[$iE3]) And ($aArray[$iE3] <> $aArray[$iE4]) And ($aArray[$iE4] <> $aArray[$iE5])) Then Local $iPivot_1 = $aArray[$iE2] Local $iPivot_2 = $aArray[$iE4] $aArray[$iE2] = $aArray[$iPivot_Left] $aArray[$iE4] = $aArray[$iPivot_Right] Do $iLess += 1 Until $aArray[$iLess] >= $iPivot_1 Do $iGreater -= 1 Until $aArray[$iGreater] <= $iPivot_2 $k = $iLess While $k <= $iGreater $iAk = $aArray[$k] If $iAk < $iPivot_1 Then $aArray[$k] = $aArray[$iLess] $aArray[$iLess] = $iAk $iLess += 1 ElseIf $iAk > $iPivot_2 Then While $aArray[$iGreater] > $iPivot_2 $iGreater -= 1 If $iGreater + 1 = $k Then ExitLoop 2 WEnd If $aArray[$iGreater] < $iPivot_1 Then $aArray[$k] = $aArray[$iLess] $aArray[$iLess] = $aArray[$iGreater] $iLess += 1 Else $aArray[$k] = $aArray[$iGreater] EndIf $aArray[$iGreater] = $iAk $iGreater -= 1 EndIf $k += 1 WEnd $aArray[$iPivot_Left] = $aArray[$iLess - 1] $aArray[$iLess - 1] = $iPivot_1 $aArray[$iPivot_Right] = $aArray[$iGreater + 1] $aArray[$iGreater + 1] = $iPivot_2 __ArrayDualPivotSort($aArray, $iPivot_Left, $iLess - 2, True) __ArrayDualPivotSort($aArray, $iGreater + 2, $iPivot_Right, False) If ($iLess < $iE1) And ($iE5 < $iGreater) Then While $aArray[$iLess] = $iPivot_1 $iLess += 1 WEnd While $aArray[$iGreater] = $iPivot_2 $iGreater -= 1 WEnd $k = $iLess While $k <= $iGreater $iAk = $aArray[$k] If $iAk = $iPivot_1 Then $aArray[$k] = $aArray[$iLess] $aArray[$iLess] = $iAk $iLess += 1 ElseIf $iAk = $iPivot_2 Then While $aArray[$iGreater] = $iPivot_2 $iGreater -= 1 If $iGreater + 1 = $k Then ExitLoop 2 WEnd If $aArray[$iGreater] = $iPivot_1 Then $aArray[$k] = $aArray[$iLess] $aArray[$iLess] = $iPivot_1 $iLess += 1 Else $aArray[$k] = $aArray[$iGreater] EndIf $aArray[$iGreater] = $iAk $iGreater -= 1 EndIf $k += 1 WEnd EndIf __ArrayDualPivotSort($aArray, $iLess, $iGreater, False) Else Local $iPivot = $aArray[$iE3] $k = $iLess While $k <= $iGreater If $aArray[$k] = $iPivot Then $k += 1 ContinueLoop EndIf $iAk = $aArray[$k] If $iAk < $iPivot Then $aArray[$k] = $aArray[$iLess] $aArray[$iLess] = $iAk $iLess += 1 Else While $aArray[$iGreater] > $iPivot $iGreater -= 1 WEnd If $aArray[$iGreater] < $iPivot Then $aArray[$k] = $aArray[$iLess] $aArray[$iLess] = $aArray[$iGreater] $iLess += 1 Else $aArray[$k] = $iPivot EndIf $aArray[$iGreater] = $iAk $iGreater -= 1 EndIf $k += 1 WEnd __ArrayDualPivotSort($aArray, $iPivot_Left, $iLess - 1, True) __ArrayDualPivotSort($aArray, $iGreater + 1, $iPivot_Right, False) EndIf EndFunc Func _ArraySwap(ByRef $aArray, $iIndex_1, $iIndex_2, $bCol = False, $iStart = -1, $iEnd = -1) If $bCol = Default Then $bCol = False If $iStart = Default Then $iStart = -1 If $iEnd = Default Then $iEnd = -1 If Not IsArray($aArray) Then Return SetError(1, 0, -1) Local $iDim_1 = UBound($aArray, $UBOUND_ROWS) - 1 Local $iDim_2 = UBound($aArray, $UBOUND_COLUMNS) - 1 If $iDim_2 = -1 Then $bCol = False $iStart = -1 $iEnd = -1 EndIf If $iStart > $iEnd Then Return SetError(5, 0, -1) If $bCol Then If $iIndex_1 < 0 Or $iIndex_2 > $iDim_2 Then Return SetError(3, 0, -1) If $iStart = -1 Then $iStart = 0 If $iEnd = -1 Then $iEnd = $iDim_1 Else If $iIndex_1 < 0 Or $iIndex_2 > $iDim_1 Then Return SetError(3, 0, -1) If $iStart = -1 Then $iStart = 0 If $iEnd = -1 Then $iEnd = $iDim_2 EndIf Local $vTmp Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 $vTmp = $aArray[$iIndex_1] $aArray[$iIndex_1] = $aArray[$iIndex_2] $aArray[$iIndex_2] = $vTmp Case 2 If $iStart < -1 Or $iEnd < -1 Then Return SetError(4, 0, -1) If $bCol Then If $iStart > $iDim_1 Or $iEnd > $iDim_1 Then Return SetError(4, 0, -1) For $j = $iStart To $iEnd $vTmp = $aArray[$j][$iIndex_1] $aArray[$j][$iIndex_1] = $aArray[$j][$iIndex_2] $aArray[$j][$iIndex_2] = $vTmp Next Else If $iStart > $iDim_2 Or $iEnd > $iDim_2 Then Return SetError(4, 0, -1) For $j = $iStart To $iEnd $vTmp = $aArray[$iIndex_1][$j] $aArray[$iIndex_1][$j] = $aArray[$iIndex_2][$j] $aArray[$iIndex_2][$j] = $vTmp Next EndIf Case Else Return SetError(2, 0, -1) EndSwitch Return 1 EndFunc Func _ArrayToClip(Const ByRef $aArray, $sDelim_Col = "|", $iStart_Row = -1, $iEnd_Row = -1, $sDelim_Row = @CRLF, $iStart_Col = -1, $iEnd_Col = -1) Local $sResult = _ArrayToString($aArray, $sDelim_Col, $iStart_Row, $iEnd_Row, $sDelim_Row, $iStart_Col, $iEnd_Col) If @error Then Return SetError(@error, 0, 0) If ClipPut($sResult) Then Return 1 Return SetError(-1, 0, 0) EndFunc Func _ArrayToString(Const ByRef $aArray, $sDelim_Col = "|", $iStart_Row = -1, $iEnd_Row = -1, $sDelim_Row = @CRLF, $iStart_Col = -1, $iEnd_Col = -1) If $sDelim_Col = Default Then $sDelim_Col = "|" If $sDelim_Row = Default Then $sDelim_Row = @CRLF If $iStart_Row = Default Then $iStart_Row = -1 If $iEnd_Row = Default Then $iEnd_Row = -1 If $iStart_Col = Default Then $iStart_Col = -1 If $iEnd_Col = Default Then $iEnd_Col = -1 If Not IsArray($aArray) Then Return SetError(1, 0, -1) Local $iDim_1 = UBound($aArray, $UBOUND_ROWS) - 1 If $iStart_Row = -1 Then $iStart_Row = 0 If $iEnd_Row = -1 Then $iEnd_Row = $iDim_1 If $iStart_Row < -1 Or $iEnd_Row < -1 Then Return SetError(3, 0, -1) If $iStart_Row > $iDim_1 Or $iEnd_Row > $iDim_1 Then Return SetError(3, 0, "") If $iStart_Row > $iEnd_Row Then Return SetError(4, 0, -1) Local $sRet = "" Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 For $i = $iStart_Row To $iEnd_Row $sRet &= $aArray[$i] & $sDelim_Col Next Return StringTrimRight($sRet, StringLen($sDelim_Col)) Case 2 Local $iDim_2 = UBound($aArray, $UBOUND_COLUMNS) - 1 If $iStart_Col = -1 Then $iStart_Col = 0 If $iEnd_Col = -1 Then $iEnd_Col = $iDim_2 If $iStart_Col < -1 Or $iEnd_Col < -1 Then Return SetError(5, 0, -1) If $iStart_Col > $iDim_2 Or $iEnd_Col > $iDim_2 Then Return SetError(5, 0, -1) If $iStart_Col > $iEnd_Col Then Return SetError(6, 0, -1) For $i = $iStart_Row To $iEnd_Row For $j = $iStart_Col To $iEnd_Col $sRet &= $aArray[$i][$j] & $sDelim_Col Next $sRet = StringTrimRight($sRet, StringLen($sDelim_Col)) & $sDelim_Row Next Return StringTrimRight($sRet, StringLen($sDelim_Row)) Case Else Return SetError(2, 0, -1) EndSwitch Return 1 EndFunc Func _ArrayTranspose(ByRef $aArray) Switch UBound($aArray, 0) Case 0 Return SetError(2, 0, 0) Case 1 Local $aTemp[1][UBound($aArray)] For $i = 0 To UBound($aArray) - 1 $aTemp[0][$i] = $aArray[$i] Next $aArray = $aTemp Case 2 Local $iDim_1 = UBound($aArray, 1), $iDim_2 = UBound($aArray, 2) If $iDim_1 <> $iDim_2 Then Local $aTemp[$iDim_2][$iDim_1] For $i = 0 To $iDim_1 - 1 For $j = 0 To $iDim_2 - 1 $aTemp[$j][$i] = $aArray[$i][$j] Next Next $aArray = $aTemp Else Local $vElement For $i = 0 To $iDim_1 - 1 For $j = $i + 1 To $iDim_2 - 1 $vElement = $aArray[$i][$j] $aArray[$i][$j] = $aArray[$j][$i] $aArray[$j][$i] = $vElement Next Next EndIf Case Else Return SetError(1, 0, 0) EndSwitch Return 1 EndFunc Func _ArrayTrim(ByRef $aArray, $iTrimNum, $iDirection = 0, $iStart = 0, $iEnd = 0, $iSubItem = 0) If $iDirection = Default Then $iDirection = 0 If $iStart = Default Then $iStart = 0 If $iEnd = Default Then $iEnd = 0 If $iSubItem = Default Then $iSubItem = 0 If Not IsArray($aArray) Then Return SetError(1, 0, 0) Local $iDim_1 = UBound($aArray, $UBOUND_ROWS) - 1 If $iEnd = 0 Then $iEnd = $iDim_1 If $iStart > $iEnd Then Return SetError(3, 0, -1) If $iStart < 0 Or $iEnd < 0 Then Return SetError(3, 0, -1) If $iStart > $iDim_1 Or $iEnd > $iDim_1 Then Return SetError(3, 0, -1) If $iStart > $iEnd Then Return SetError(4, 0, -1) Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 If $iDirection Then For $i = $iStart To $iEnd $aArray[$i] = StringTrimRight($aArray[$i], $iTrimNum) Next Else For $i = $iStart To $iEnd $aArray[$i] = StringTrimLeft($aArray[$i], $iTrimNum) Next EndIf Case 2 Local $iDim_2 = UBound($aArray, $UBOUND_COLUMNS) - 1 If $iSubItem < 0 Or $iSubItem > $iDim_2 Then Return SetError(5, 0, -1) If $iDirection Then For $i = $iStart To $iEnd $aArray[$i][$iSubItem] = StringTrimRight($aArray[$i][$iSubItem], $iTrimNum) Next Else For $i = $iStart To $iEnd $aArray[$i][$iSubItem] = StringTrimLeft($aArray[$i][$iSubItem], $iTrimNum) Next EndIf Case Else Return SetError(2, 0, 0) EndSwitch Return 1 EndFunc Func _ArrayUnique(Const ByRef $aArray, $iColumn = 0, $iBase = 0, $iCase = 0, $iCount = $ARRAYUNIQUE_COUNT, $iIntType = $ARRAYUNIQUE_AUTO) If $iColumn = Default Then $iColumn = 0 If $iBase = Default Then $iBase = 0 If $iCase = Default Then $iCase = 0 If $iCount = Default Then $iCount = $ARRAYUNIQUE_COUNT If UBound($aArray, $UBOUND_ROWS) = 0 Then Return SetError(1, 0, 0) Local $iDims = UBound($aArray, $UBOUND_DIMENSIONS), $iNumColumns = UBound($aArray, $UBOUND_COLUMNS) If $iDims > 2 Then Return SetError(2, 0, 0) If $iBase < 0 Or $iBase > 1 Or (Not IsInt($iBase)) Then Return SetError(3, 0, 0) If $iCase < 0 Or $iCase > 1 Or (Not IsInt($iCase)) Then Return SetError(3, 0, 0) If $iCount < 0 Or $iCount > 1 Or (Not IsInt($iCount)) Then Return SetError(4, 0, 0) If $iIntType < 0 Or $iIntType > 4 Or (Not IsInt($iIntType)) Then Return SetError(5, 0, 0) If $iColumn < 0 Or ($iNumColumns = 0 And $iColumn > 0) Or ($iNumColumns > 0 And $iColumn >= $iNumColumns) Then Return SetError(6, 0, 0) If $iIntType = $ARRAYUNIQUE_AUTO Then Local $bInt, $sVarType If $iDims = 1 Then $bInt = IsInt($aArray[$iBase]) $sVarType = VarGetType($aArray[$iBase]) Else $bInt = IsInt($aArray[$iBase][$iColumn]) $sVarType = VarGetType($aArray[$iBase][$iColumn]) EndIf If $bInt And $sVarType = "Int64" Then $iIntType = $ARRAYUNIQUE_FORCE64 Else $iIntType = $ARRAYUNIQUE_FORCE32 EndIf EndIf ObjEvent("AutoIt.Error", __ArrayUnique_AutoErrFunc) Local $oDictionary = ObjCreate("Scripting.Dictionary") $oDictionary.CompareMode = Number(Not $iCase) Local $vElem, $sType, $vKey, $bCOMError = False For $i = $iBase To UBound($aArray) - 1 If $iDims = 1 Then $vElem = $aArray[$i] Else $vElem = $aArray[$i][$iColumn] EndIf Switch $iIntType Case $ARRAYUNIQUE_FORCE32 $oDictionary.Item($vElem) If @error Then $bCOMError = True ExitLoop EndIf Case $ARRAYUNIQUE_FORCE64 $sType = VarGetType($vElem) If $sType = "Int32" Then $bCOMError = True ExitLoop EndIf $vKey = "#" & $sType & "#" & String($vElem) If Not $oDictionary.Item($vKey) Then $oDictionary($vKey) = $vElem EndIf Case $ARRAYUNIQUE_MATCH $sType = VarGetType($vElem) If StringLeft($sType, 3) = "Int" Then $vKey = "#Int#" & String($vElem) Else $vKey = "#" & $sType & "#" & String($vElem) EndIf If Not $oDictionary.Item($vKey) Then $oDictionary($vKey) = $vElem EndIf Case $ARRAYUNIQUE_DISTINCT $vKey = "#" & VarGetType($vElem) & "#" & String($vElem) If Not $oDictionary.Item($vKey) Then $oDictionary($vKey) = $vElem EndIf EndSwitch Next Local $aValues, $j = 0 If $bCOMError Then Return SetError(7, 0, 0) ElseIf $iIntType <> $ARRAYUNIQUE_FORCE32 Then Local $aValues[$oDictionary.Count] For $vKey In $oDictionary.Keys() $aValues[$j] = $oDictionary($vKey) If StringLeft($vKey, 5) = "#Ptr#" Then $aValues[$j] = Ptr($aValues[$j]) EndIf $j += 1 Next Else $aValues = $oDictionary.Keys() EndIf If $iCount Then _ArrayInsert($aValues, 0, $oDictionary.Count) EndIf Return $aValues EndFunc Func _Array1DToHistogram($aArray, $iSizing = 100) If UBound($aArray, 0) > 1 Then Return SetError(1, 0, "") $iSizing = $iSizing * 8 Local $t, $n, $iMin = 0, $iMax = 0, $iOffset = 0 For $i = 0 To UBound($aArray) - 1 $t = $aArray[$i] $t = IsNumber($t) ? Round($t) : 0 If $t < $iMin Then $iMin = $t If $t > $iMax Then $iMax = $t Next Local $iRange = Int(Round(($iMax - $iMin) / 8)) * 8 Local $iSpaceRatio = 4 For $i = 0 To UBound($aArray) - 1 $t = $aArray[$i] If $t Then $n = Abs(Round(($iSizing * $t) / $iRange) / 8) $aArray[$i] = "" If $t > 0 Then If $iMin Then $iOffset = Int(Abs(Round(($iSizing * $iMin) / $iRange) / 8) / 8 * $iSpaceRatio) $aArray[$i] = __Array_StringRepeat(ChrW(0x20), $iOffset) EndIf Else If $iMin <> $t Then $iOffset = Int(Abs(Round(($iSizing * ($t - $iMin)) / $iRange) / 8) / 8 * $iSpaceRatio) $aArray[$i] = __Array_StringRepeat(ChrW(0x20), $iOffset) EndIf EndIf $aArray[$i] &= __Array_StringRepeat(ChrW(0x2588), Int($n / 8)) $n = Mod($n, 8) If $n > 0 Then $aArray[$i] &= ChrW(0x2588 + 8 - $n) $aArray[$i] &= ' ' & $t Else $aArray[$i] = "" EndIf Next Return $aArray EndFunc Func __Array_StringRepeat($sString, $iRepeatCount) $iRepeatCount = Int($iRepeatCount) If StringLen($sString) < 1 Or $iRepeatCount <= 0 Then Return SetError(1, 0, "") Local $sResult = "" While $iRepeatCount > 1 If BitAND($iRepeatCount, 1) Then $sResult &= $sString $sString &= $sString $iRepeatCount = BitShift($iRepeatCount, 1) WEnd Return $sString & $sResult EndFunc Func __Array_ExeterInternal(ByRef $aArray, $iStart, $iSize, $sDelimiter, ByRef $aIdx, ByRef $aResult, ByRef $iCount) If $iStart == $iSize - 1 Then For $i = 0 To $iSize - 1 $aResult[$iCount] &= $aArray[$aIdx[$i]] & $sDelimiter Next If $sDelimiter <> "" Then $aResult[$iCount] = StringTrimRight($aResult[$iCount], StringLen($sDelimiter)) $iCount += 1 Else Local $iTemp For $i = $iStart To $iSize - 1 $iTemp = $aIdx[$i] $aIdx[$i] = $aIdx[$iStart] $aIdx[$iStart] = $iTemp __Array_ExeterInternal($aArray, $iStart + 1, $iSize, $sDelimiter, $aIdx, $aResult, $iCount) $aIdx[$iStart] = $aIdx[$i] $aIdx[$i] = $iTemp Next EndIf EndFunc Func __Array_Combinations($iN, $iR) Local $i_Total = 1 For $i = $iR To 1 Step -1 $i_Total *= ($iN / $i) $iN -= 1 Next Return Round($i_Total) EndFunc Func __Array_GetNext($iN, $iR, ByRef $iLeft, $iTotal, ByRef $aIdx) If $iLeft == $iTotal Then $iLeft -= 1 Return EndIf Local $i = $iR - 1 While $aIdx[$i] == $iN - $iR + $i $i -= 1 WEnd $aIdx[$i] += 1 For $j = $i + 1 To $iR - 1 $aIdx[$j] = $aIdx[$i] + $j - $i Next $iLeft -= 1 EndFunc Func __Array_MinMaxIndex(Const ByRef $aArray, $iCompNumeric, $iStart, $iEnd, $iSubItem, $fuComparison) If $iCompNumeric = Default Then $iCompNumeric = 0 If $iCompNumeric <> 1 Then $iCompNumeric = 0 If $iStart = Default Then $iStart = 0 If $iEnd = Default Then $iEnd = 0 If $iSubItem = Default Then $iSubItem = 0 If Not IsArray($aArray) Then Return SetError(1, 0, -1) Local $iDim_1 = UBound($aArray, $UBOUND_ROWS) - 1 If $iDim_1 < 0 Then Return SetError(1, 0, -1) If $iEnd = -1 Then $iEnd = $iDim_1 If $iStart = -1 Then $iStart = 0 If $iStart < -1 Or $iEnd < -1 Then Return SetError(3, 0, -1) If $iStart > $iDim_1 Or $iEnd > $iDim_1 Then Return SetError(3, 0, -1) If $iStart > $iEnd Then Return SetError(4, 0, -1) If $iDim_1 < 0 Then Return SetError(5, 0, -1) Local $iMaxMinIndex = $iStart Switch UBound($aArray, $UBOUND_DIMENSIONS) Case 1 If $iCompNumeric Then For $i = $iStart To $iEnd If $fuComparison(Number($aArray[$i]), Number($aArray[$iMaxMinIndex])) Then $iMaxMinIndex = $i Next Else For $i = $iStart To $iEnd If $fuComparison($aArray[$i], $aArray[$iMaxMinIndex]) Then $iMaxMinIndex = $i Next EndIf Case 2 If $iSubItem < 0 Or $iSubItem > UBound($aArray, $UBOUND_COLUMNS) - 1 Then Return SetError(6, 0, -1) If $iCompNumeric Then For $i = $iStart To $iEnd If $fuComparison(Number($aArray[$i][$iSubItem]), Number($aArray[$iMaxMinIndex][$iSubItem])) Then $iMaxMinIndex = $i Next Else For $i = $iStart To $iEnd If $fuComparison($aArray[$i][$iSubItem], $aArray[$iMaxMinIndex][$iSubItem]) Then $iMaxMinIndex = $i Next EndIf Case Else Return SetError(2, 0, -1) EndSwitch Return $iMaxMinIndex EndFunc Func __Array_GreaterThan($vValue1, $vValue2) Return $vValue1 > $vValue2 EndFunc Func __Array_LessThan($vValue1, $vValue2) Return $vValue1 < $vValue2 EndFunc Func __ArrayUnique_AutoErrFunc() EndFunc Global Const $BS_GROUPBOX = 0x0007 Global Const $BS_BOTTOM = 0x0800 Global Const $BS_CENTER = 0x0300 Global Const $BS_DEFPUSHBUTTON = 0x0001 Global Const $BS_LEFT = 0x0100 Global Const $BS_MULTILINE = 0x2000 Global Const $BS_PUSHBOX = 0x000A Global Const $BS_PUSHLIKE = 0x1000 Global Const $BS_RIGHT = 0x0200 Global Const $BS_RIGHTBUTTON = 0x0020 Global Const $BS_TOP = 0x0400 Global Const $BS_VCENTER = 0x0C00 Global Const $BS_FLAT = 0x8000 Global Const $BS_ICON = 0x0040 Global Const $BS_BITMAP = 0x0080 Global Const $BS_NOTIFY = 0x4000 Global Const $BS_SPLITBUTTON = 0x0000000C Global Const $BS_DEFSPLITBUTTON = 0x0000000D Global Const $BS_COMMANDLINK = 0x0000000E Global Const $BS_DEFCOMMANDLINK = 0x0000000F Global Const $BCSIF_GLYPH = 0x0001 Global Const $BCSIF_IMAGE = 0x0002 Global Const $BCSIF_STYLE = 0x0004 Global Const $BCSIF_SIZE = 0x0008 Global Const $BCSS_NOSPLIT = 0x0001 Global Const $BCSS_STRETCH = 0x0002 Global Const $BCSS_ALIGNLEFT = 0x0004 Global Const $BCSS_IMAGE = 0x0008 Global Const $BUTTON_IMAGELIST_ALIGN_LEFT = 0 Global Const $BUTTON_IMAGELIST_ALIGN_RIGHT = 1 Global Const $BUTTON_IMAGELIST_ALIGN_TOP = 2 Global Const $BUTTON_IMAGELIST_ALIGN_BOTTOM = 3 Global Const $BUTTON_IMAGELIST_ALIGN_CENTER = 4 Global Const $BS_3STATE = 0x0005 Global Const $BS_AUTO3STATE = 0x0006 Global Const $BS_AUTOCHECKBOX = 0x0003 Global Const $BS_CHECKBOX = 0x0002 Global Const $BS_RADIOBUTTON = 0x4 Global Const $BS_AUTORADIOBUTTON = 0x0009 Global Const $BS_OWNERDRAW = 0xB Global Const $GUI_SS_DEFAULT_BUTTON = 0 Global Const $GUI_SS_DEFAULT_CHECKBOX = 0 Global Const $GUI_SS_DEFAULT_GROUP = 0 Global Const $GUI_SS_DEFAULT_RADIO = 0 Global Const $BCM_FIRST = 0x1600 Global Const $BCM_GETIDEALSIZE = ($BCM_FIRST + 0x0001) Global Const $BCM_GETIMAGELIST = ($BCM_FIRST + 0x0003) Global Const $BCM_GETNOTE = ($BCM_FIRST + 0x000A) Global Const $BCM_GETNOTELENGTH = ($BCM_FIRST + 0x000B) Global Const $BCM_GETSPLITINFO = ($BCM_FIRST + 0x0008) Global Const $BCM_GETTEXTMARGIN = ($BCM_FIRST + 0x0005) Global Const $BCM_SETDROPDOWNSTATE = ($BCM_FIRST + 0x0006) Global Const $BCM_SETIMAGELIST = ($BCM_FIRST + 0x0002) Global Const $BCM_SETNOTE = ($BCM_FIRST + 0x0009) Global Const $BCM_SETSHIELD = ($BCM_FIRST + 0x000C) Global Const $BCM_SETSPLITINFO = ($BCM_FIRST + 0x0007) Global Const $BCM_SETTEXTMARGIN = ($BCM_FIRST + 0x0004) Global Const $BM_CLICK = 0xF5 Global Const $BM_GETCHECK = 0xF0 Global Const $BM_GETIMAGE = 0xF6 Global Const $BM_GETSTATE = 0xF2 Global Const $BM_SETCHECK = 0xF1 Global Const $BM_SETDONTCLICK = 0xF8 Global Const $BM_SETIMAGE = 0xF7 Global Const $BM_SETSTATE = 0xF3 Global Const $BM_SETSTYLE = 0xF4 Global Const $BCN_FIRST = -1250 Global Const $BCN_DROPDOWN = ($BCN_FIRST + 0x0002) Global Const $BCN_HOTITEMCHANGE = ($BCN_FIRST + 0x0001) Global Const $BN_CLICKED = 0 Global Const $BN_PAINT = 1 Global Const $BN_HILITE = 2 Global Const $BN_UNHILITE = 3 Global Const $BN_DISABLE = 4 Global Const $BN_DOUBLECLICKED = 5 Global Const $BN_SETFOCUS = 6 Global Const $BN_KILLFOCUS = 7 Global Const $BN_PUSHED = $BN_HILITE Global Const $BN_UNPUSHED = $BN_UNHILITE Global Const $BN_DBLCLK = $BN_DOUBLECLICKED Global Const $BST_CHECKED = 0x1 Global Const $BST_INDETERMINATE = 0x2 Global Const $BST_UNCHECKED = 0x0 Global Const $BST_FOCUS = 0x8 Global Const $BST_PUSHED = 0x4 Global Const $BST_DONTCLICK = 0x000080 Global Const $COLOR_AQUA = 0x00FFFF Global Const $COLOR_BLACK = 0x000000 Global Const $COLOR_BLUE = 0x0000FF Global Const $COLOR_CREAM = 0xFFFBF0 Global Const $COLOR_FUCHSIA = 0xFF00FF Global Const $COLOR_GRAY = 0x808080 Global Const $COLOR_GREEN = 0x008000 Global Const $COLOR_LIME = 0x00FF00 Global Const $COLOR_MAROON = 0x8B1C62 Global Const $COLOR_MEDBLUE = 0x0002C4 Global Const $COLOR_MEDGRAY = 0xA0A0A4 Global Const $COLOR_MONEYGREEN = 0xC0DCC0 Global Const $COLOR_NAVY = 0x000080 Global Const $COLOR_OLIVE = 0x808000 Global Const $COLOR_PURPLE = 0x800080 Global Const $COLOR_RED = 0xFF0000 Global Const $COLOR_SILVER = 0xC0C0C0 Global Const $COLOR_SKYBLUE = 0xA6CAF0 Global Const $COLOR_TEAL = 0x008080 Global Const $COLOR_WHITE = 0xFFFFFF Global Const $COLOR_YELLOW = 0xFFFF00 Global Const $CLR_NONE = 0xFFFFFFFF Global Const $CLR_DEFAULT = 0xFF000000 Global Const $CLR_AQUA = 0xFFFF00 Global Const $CLR_BLACK = 0x000000 Global Const $CLR_BLUE = 0xFF0000 Global Const $CLR_CREAM = 0xF0FBFF Global Const $CLR_FUCHSIA = 0xFF00FF Global Const $CLR_GRAY = 0x808080 Global Const $CLR_GREEN = 0x008000 Global Const $CLR_LIME = 0x00FF00 Global Const $CLR_MAROON = 0x621C8B Global Const $CLR_MEDBLUE = 0xC40200 Global Const $CLR_MEDGRAY = 0xA4A0A0 Global Const $CLR_MONEYGREEN = 0xC0DCC0 Global Const $CLR_NAVY = 0x800000 Global Const $CLR_OLIVE = 0x008080 Global Const $CLR_PURPLE = 0x800080 Global Const $CLR_RED = 0x0000FF Global Const $CLR_SILVER = 0xC0C0C0 Global Const $CLR_SKYBLUE = 0xF0CAA6 Global Const $CLR_TEAL = 0x808000 Global Const $CLR_WHITE = 0xFFFFFF Global Const $CLR_YELLOW = 0x00FFFF Global Const $CC_ANYCOLOR = 0x0100 Global Const $CC_FULLOPEN = 0x0002 Global Const $CC_RGBINIT = 0x0001 Global Const $DTS_SHORTDATEFORMAT = 0 Global Const $DTS_UPDOWN = 1 Global Const $DTS_SHOWNONE = 2 Global Const $DTS_LONGDATEFORMAT = 4 Global Const $DTS_TIMEFORMAT = 9 Global Const $DTS_RIGHTALIGN = 32 Global Const $DTS_SHORTDATECENTURYFORMAT = 0x0000000C Global Const $DTS_APPCANPARSE = 0x00000010 Global Const $DMW_LONGNAME = 0 Global Const $DMW_SHORTNAME = 1 Global Const $DMW_LOCALE_LONGNAME = 2 Global Const $DMW_LOCALE_SHORTNAME = 3 Global Const $GDT_ERROR = -1 Global Const $GDT_VALID = 0 Global Const $GDT_NONE = 1 Global Const $GDTR_MIN = 0x0001 Global Const $GDTR_MAX = 0x0002 Global Const $MCHT_NOWHERE = 0x00000000 Global Const $MCHT_TITLE = 0x00010000 Global Const $MCHT_CALENDAR = 0x00020000 Global Const $MCHT_TODAYLINK = 0x00030000 Global Const $MCHT_NEXT = 0x01000000 Global Const $MCHT_PREV = 0x02000000 Global Const $MCHT_TITLEBK = 0x00010000 Global Const $MCHT_TITLEMONTH = 0x00010001 Global Const $MCHT_TITLEYEAR = 0x00010002 Global Const $MCHT_TITLEBTNNEXT = 0x01010003 Global Const $MCHT_TITLEBTNPREV = 0x02010003 Global Const $MCHT_CALENDARBK = 0x00020000 Global Const $MCHT_CALENDARDATE = 0x00020001 Global Const $MCHT_CALENDARDAY = 0x00020002 Global Const $MCHT_CALENDARWEEKNUM = 0x00020003 Global Const $MCHT_CALENDARDATENEXT = 0x01020000 Global Const $MCHT_CALENDARDATEPREV = 0x02020000 Global Const $MCS_DAYSTATE = 0x0001 Global Const $MCS_MULTISELECT = 0x0002 Global Const $MCS_WEEKNUMBERS = 0x0004 Global Const $MCS_NOTODAYCIRCLE = 0x0008 Global Const $MCS_NOTODAY = 0x0010 Global Const $MCS_NOTRAILINGDATES = 0x0040 Global Const $MCS_SHORTDAYSOFWEEK = 0x0080 Global Const $MCS_NOSELCHANGEONNAV = 0x0100 Global Const $MCM_FIRST = 0x1000 Global Const $MCM_GETCALENDARBORDER = ($MCM_FIRST + 31) Global Const $MCM_GETCALENDARCOUNT = ($MCM_FIRST + 23) Global Const $MCM_GETCALENDARGRIDINFO = ($MCM_FIRST + 24) Global Const $MCM_GETCALID = ($MCM_FIRST + 27) Global Const $MCM_GETCOLOR = ($MCM_FIRST + 11) Global Const $MCM_GETCURRENTVIEW = ($MCM_FIRST + 22) Global Const $MCM_GETCURSEL = ($MCM_FIRST + 1) Global Const $MCM_GETFIRSTDAYOFWEEK = ($MCM_FIRST + 16) Global Const $MCM_GETMAXSELCOUNT = ($MCM_FIRST + 3) Global Const $MCM_GETMAXTODAYWIDTH = ($MCM_FIRST + 21) Global Const $MCM_GETMINREQRECT = ($MCM_FIRST + 9) Global Const $MCM_GETMONTHDELTA = ($MCM_FIRST + 19) Global Const $MCM_GETMONTHRANGE = ($MCM_FIRST + 7) Global Const $MCM_GETRANGE = ($MCM_FIRST + 17) Global Const $MCM_GETSELRANGE = ($MCM_FIRST + 5) Global Const $MCM_GETTODAY = ($MCM_FIRST + 13) Global Const $MCM_GETUNICODEFORMAT = 0x2000 + 6 Global Const $MCM_HITTEST = ($MCM_FIRST + 14) Global Const $MCM_SETCALENDARBORDER = ($MCM_FIRST + 30) Global Const $MCM_SETCALID = ($MCM_FIRST + 28) Global Const $MCM_SETCOLOR = ($MCM_FIRST + 10) Global Const $MCM_SETCURRENTVIEW = ($MCM_FIRST + 32) Global Const $MCM_SETCURSEL = ($MCM_FIRST + 2) Global Const $MCM_SETDAYSTATE = ($MCM_FIRST + 8) Global Const $MCM_SETFIRSTDAYOFWEEK = ($MCM_FIRST + 15) Global Const $MCM_SETMAXSELCOUNT = ($MCM_FIRST + 4) Global Const $MCM_SETMONTHDELTA = ($MCM_FIRST + 20) Global Const $MCM_SETRANGE = ($MCM_FIRST + 18) Global Const $MCM_SETSELRANGE = ($MCM_FIRST + 6) Global Const $MCM_SETTODAY = ($MCM_FIRST + 12) Global Const $MCM_SETUNICODEFORMAT = 0x2000 + 5 Global Const $MCM_SIZERECTTOMIN = ($MCM_FIRST + 29) Global Const $MCN_FIRST = -746 Global Const $MCN_SELCHANGE = ($MCN_FIRST - 3) Global Const $MCN_GETDAYSTATE = ($MCN_FIRST - 1) Global Const $MCN_SELECT = ($MCN_FIRST) Global Const $MCN_VIEWCHANGE = ($MCN_FIRST - 4) Global Const $MCSC_BACKGROUND = 0 Global Const $MCSC_MONTHBK = 4 Global Const $MCSC_TEXT = 1 Global Const $MCSC_TITLEBK = 2 Global Const $MCSC_TITLETEXT = 3 Global Const $MCSC_TRAILINGTEXT = 5 Global Const $DTM_FIRST = 0x1000 Global Const $DTM_GETSYSTEMTIME = $DTM_FIRST + 1 Global Const $DTM_SETSYSTEMTIME = $DTM_FIRST + 2 Global Const $DTM_GETRANGE = $DTM_FIRST + 3 Global Const $DTM_SETRANGE = $DTM_FIRST + 4 Global Const $DTM_SETFORMAT = $DTM_FIRST + 5 Global Const $DTM_SETMCCOLOR = $DTM_FIRST + 6 Global Const $DTM_GETMCCOLOR = $DTM_FIRST + 7 Global Const $DTM_GETMONTHCAL = $DTM_FIRST + 8 Global Const $DTM_SETMCFONT = $DTM_FIRST + 9 Global Const $DTM_GETMCFONT = $DTM_FIRST + 10 Global Const $DTM_SETFORMATW = $DTM_FIRST + 50 Global Const $DTN_FIRST = -740 Global Const $DTN_FIRST2 = -753 Global Const $DTN_DATETIMECHANGE = $DTN_FIRST2 - 6 Global Const $DTN_USERSTRING = $DTN_FIRST2 - 5 Global Const $DTN_WMKEYDOWN = $DTN_FIRST2 - 4 Global Const $DTN_FORMAT = $DTN_FIRST2 - 3 Global Const $DTN_FORMATQUERY = $DTN_FIRST2 - 2 Global Const $DTN_DROPDOWN = $DTN_FIRST2 - 1 Global Const $DTN_CLOSEUP = $DTN_FIRST2 - 0 Global Const $DTN_USERSTRINGW = $DTN_FIRST - 5 Global Const $DTN_WMKEYDOWNW = $DTN_FIRST - 4 Global Const $DTN_FORMATW = $DTN_FIRST - 3 Global Const $DTN_FORMATQUERYW = $DTN_FIRST - 2 Global Const $GUI_SS_DEFAULT_DATE = $DTS_LONGDATEFORMAT Global Const $GUI_SS_DEFAULT_MONTHCAL = 0 Global Const $GMEM_FIXED = 0x0000 Global Const $GMEM_MOVEABLE = 0x0002 Global Const $GMEM_NOCOMPACT = 0x0010 Global Const $GMEM_NODISCARD = 0x0020 Global Const $GMEM_ZEROINIT = 0x0040 Global Const $GMEM_MODIFY = 0x0080 Global Const $GMEM_DISCARDABLE = 0x0100 Global Const $GMEM_NOT_BANKED = 0x1000 Global Const $GMEM_SHARE = 0x2000 Global Const $GMEM_DDESHARE = 0x2000 Global Const $GMEM_NOTIFY = 0x4000 Global Const $GMEM_LOWER = 0x1000 Global Const $GMEM_VALID_FLAGS = 0x7F72 Global Const $GMEM_INVALID_HANDLE = 0x8000 Global Const $GPTR = BitOR($GMEM_FIXED, $GMEM_ZEROINIT) Global Const $GHND = BitOR($GMEM_MOVEABLE, $GMEM_ZEROINIT) Global Const $MEM_COMMIT = 0x00001000 Global Const $MEM_RESERVE = 0x00002000 Global Const $MEM_TOP_DOWN = 0x00100000 Global Const $MEM_SHARED = 0x08000000 Global Const $PAGE_NOACCESS = 0x00000001 Global Const $PAGE_READONLY = 0x00000002 Global Const $PAGE_READWRITE = 0x00000004 Global Const $PAGE_EXECUTE = 0x00000010 Global Const $PAGE_EXECUTE_READ = 0x00000020 Global Const $PAGE_EXECUTE_READWRITE = 0x00000040 Global Const $PAGE_EXECUTE_WRITECOPY = 0x00000080 Global Const $PAGE_GUARD = 0x00000100 Global Const $PAGE_NOCACHE = 0x00000200 Global Const $PAGE_WRITECOMBINE = 0x00000400 Global Const $PAGE_WRITECOPY = 0x00000008 Global Const $MEM_DECOMMIT = 0x00004000 Global Const $MEM_RELEASE = 0x00008000 Global Enum $MEM_LOAD, $MEM_TOTALPHYSRAM, $MEM_AVAILPHYSRAM, $MEM_TOTALPAGEFILE, $MEM_AVAILPAGEFILE, $MEM_TOTALVIRTUAL, $MEM_AVAILVIRTUAL Global Const $PROCESS_TERMINATE = 0x00000001 Global Const $PROCESS_CREATE_THREAD = 0x00000002 Global Const $PROCESS_SET_SESSIONID = 0x00000004 Global Const $PROCESS_VM_OPERATION = 0x00000008 Global Const $PROCESS_VM_READ = 0x00000010 Global Const $PROCESS_VM_WRITE = 0x00000020 Global Const $PROCESS_DUP_HANDLE = 0x00000040 Global Const $PROCESS_CREATE_PROCESS = 0x00000080 Global Const $PROCESS_SET_QUOTA = 0x00000100 Global Const $PROCESS_SET_INFORMATION = 0x00000200 Global Const $PROCESS_QUERY_INFORMATION = 0x00000400 Global Const $PROCESS_QUERY_LIMITED_INFORMATION = 0x1000 Global Const $PROCESS_SUSPEND_RESUME = 0x00000800 Global Const $PROCESS_ALL_ACCESS = 0x001F0FFF Global Const $SE_ASSIGNPRIMARYTOKEN_NAME = "SeAssignPrimaryTokenPrivilege" Global Const $SE_AUDIT_NAME = "SeAuditPrivilege" Global Const $SE_BACKUP_NAME = "SeBackupPrivilege" Global Const $SE_CHANGE_NOTIFY_NAME = "SeChangeNotifyPrivilege" Global Const $SE_CREATE_GLOBAL_NAME = "SeCreateGlobalPrivilege" Global Const $SE_CREATE_PAGEFILE_NAME = "SeCreatePagefilePrivilege" Global Const $SE_CREATE_PERMANENT_NAME = "SeCreatePermanentPrivilege" Global Const $SE_CREATE_SYMBOLIC_LINK_NAME = 'SeCreateSymbolicLinkPrivilege' Global Const $SE_CREATE_TOKEN_NAME = "SeCreateTokenPrivilege" Global Const $SE_DEBUG_NAME = "SeDebugPrivilege" Global Const $SE_ENABLE_DELEGATION_NAME = "SeEnableDelegationPrivilege" Global Const $SE_IMPERSONATE_NAME = "SeImpersonatePrivilege" Global Const $SE_INC_BASE_PRIORITY_NAME = "SeIncreaseBasePriorityPrivilege" Global Const $SE_INC_WORKING_SET_NAME = 'SeIncreaseWorkingSetPrivilege' Global Const $SE_INCREASE_QUOTA_NAME = "SeIncreaseQuotaPrivilege" Global Const $SE_LOAD_DRIVER_NAME = "SeLoadDriverPrivilege" Global Const $SE_LOCK_MEMORY_NAME = "SeLockMemoryPrivilege" Global Const $SE_MACHINE_ACCOUNT_NAME = "SeMachineAccountPrivilege" Global Const $SE_MANAGE_VOLUME_NAME = "SeManageVolumePrivilege" Global Const $SE_PROF_SINGLE_PROCESS_NAME = "SeProfileSingleProcessPrivilege" Global Const $SE_RELABEL_NAME = 'SeRelabelPrivilege' Global Const $SE_REMOTE_SHUTDOWN_NAME = "SeRemoteShutdownPrivilege" Global Const $SE_RESTORE_NAME = "SeRestorePrivilege" Global Const $SE_SECURITY_NAME = "SeSecurityPrivilege" Global Const $SE_SHUTDOWN_NAME = "SeShutdownPrivilege" Global Const $SE_SYNC_AGENT_NAME = "SeSyncAgentPrivilege" Global Const $SE_SYSTEM_ENVIRONMENT_NAME = "SeSystemEnvironmentPrivilege" Global Const $SE_SYSTEM_PROFILE_NAME = "SeSystemProfilePrivilege" Global Const $SE_SYSTEMTIME_NAME = "SeSystemtimePrivilege" Global Const $SE_TAKE_OWNERSHIP_NAME = "SeTakeOwnershipPrivilege" Global Const $SE_TCB_NAME = "SeTcbPrivilege" Global Const $SE_TIME_ZONE_NAME = 'SeTimeZonePrivilege' Global Const $SE_TRUSTED_CREDMAN_ACCESS_NAME = 'SeTrustedCredManAccessPrivilege' Global Const $SE_UNSOLICITED_INPUT_NAME = "SeUnsolicitedInputPrivilege" Global Const $SE_UNDOCK_NAME = "SeUndockPrivilege" Global Const $SE_PRIVILEGE_ENABLED_BY_DEFAULT = 0x00000001 Global Const $SE_PRIVILEGE_ENABLED = 0x00000002 Global Const $SE_PRIVILEGE_REMOVED = 0x00000004 Global Const $SE_PRIVILEGE_USED_FOR_ACCESS = 0x80000000 Global Const $SE_GROUP_MANDATORY = 0x00000001 Global Const $SE_GROUP_ENABLED_BY_DEFAULT = 0x00000002 Global Const $SE_GROUP_ENABLED = 0x00000004 Global Const $SE_GROUP_OWNER = 0x00000008 Global Const $SE_GROUP_USE_FOR_DENY_ONLY = 0x00000010 Global Const $SE_GROUP_INTEGRITY = 0x00000020 Global Const $SE_GROUP_INTEGRITY_ENABLED = 0x00000040 Global Const $SE_GROUP_RESOURCE = 0x20000000 Global Const $SE_GROUP_LOGON_ID = 0xC0000000 Global Enum $TOKENPRIMARY = 1, $TOKENIMPERSONATION Global Enum $SECURITYANONYMOUS = 0, $SECURITYIDENTIFICATION, $SECURITYIMPERSONATION, $SECURITYDELEGATION Global Enum $TOKENUSER = 1, $TOKENGROUPS, $TOKENPRIVILEGES, $TOKENOWNER, $TOKENPRIMARYGROUP, $TOKENDEFAULTDACL, $TOKENSOURCE, $TOKENTYPE, $TOKENIMPERSONATIONLEVEL, $TOKENSTATISTICS, $TOKENRESTRICTEDSIDS, $TOKENSESSIONID, $TOKENGROUPSANDPRIVILEGES, $TOKENSESSIONREFERENCE, $TOKENSANDBOXINERT, $TOKENAUDITPOLICY, $TOKENORIGIN, $TOKENELEVATIONTYPE, $TOKENLINKEDTOKEN, $TOKENELEVATION, $TOKENHASRESTRICTIONS, $TOKENACCESSINFORMATION, $TOKENVIRTUALIZATIONALLOWED, $TOKENVIRTUALIZATIONENABLED, $TOKENINTEGRITYLEVEL, $TOKENUIACCESS, $TOKENMANDATORYPOLICY, $TOKENLOGONSID Global Const $TOKEN_ASSIGN_PRIMARY = 0x00000001 Global Const $TOKEN_DUPLICATE = 0x00000002 Global Const $TOKEN_IMPERSONATE = 0x00000004 Global Const $TOKEN_QUERY = 0x00000008 Global Const $TOKEN_QUERY_SOURCE = 0x00000010 Global Const $TOKEN_ADJUST_PRIVILEGES = 0x00000020 Global Const $TOKEN_ADJUST_GROUPS = 0x00000040 Global Const $TOKEN_ADJUST_DEFAULT = 0x00000080 Global Const $TOKEN_ADJUST_SESSIONID = 0x00000100 Global Const $TOKEN_ALL_ACCESS = 0x000F01FF Global Const $TOKEN_READ = 0x00020008 Global Const $TOKEN_WRITE = 0x000200E0 Global Const $TOKEN_EXECUTE = 0x00020000 Global Const $TOKEN_HAS_TRAVERSE_PRIVILEGE = 0x00000001 Global Const $TOKEN_HAS_BACKUP_PRIVILEGE = 0x00000002 Global Const $TOKEN_HAS_RESTORE_PRIVILEGE = 0x00000004 Global Const $TOKEN_HAS_ADMIN_GROUP = 0x00000008 Global Const $TOKEN_IS_RESTRICTED = 0x00000010 Global Const $TOKEN_SESSION_NOT_REFERENCED = 0x00000020 Global Const $TOKEN_SANDBOX_INERT = 0x00000040 Global Const $TOKEN_HAS_IMPERSONATE_PRIVILEGE = 0x00000080 Global Const $RIGHTS_DELETE = 0x00010000 Global Const $READ_CONTROL = 0x00020000 Global Const $WRITE_DAC = 0x00040000 Global Const $WRITE_OWNER = 0x00080000 Global Const $SYNCHRONIZE = 0x00100000 Global Const $ACCESS_SYSTEM_SECURITY = 0x01000000 Global Const $STANDARD_RIGHTS_REQUIRED = 0x000f0000 Global Const $STANDARD_RIGHTS_READ = $READ_CONTROL Global Const $STANDARD_RIGHTS_WRITE = $READ_CONTROL Global Const $STANDARD_RIGHTS_EXECUTE = $READ_CONTROL Global Const $STANDARD_RIGHTS_ALL = 0x001F0000 Global Const $SPECIFIC_RIGHTS_ALL = 0x0000FFFF Global Enum $NOT_USED_ACCESS = 0, $GRANT_ACCESS, $SET_ACCESS, $DENY_ACCESS, $REVOKE_ACCESS, $SET_AUDIT_SUCCESS, $SET_AUDIT_FAILURE Global Enum $TRUSTEE_IS_UNKNOWN = 0, $TRUSTEE_IS_USER, $TRUSTEE_IS_GROUP, $TRUSTEE_IS_DOMAIN, $TRUSTEE_IS_ALIAS, $TRUSTEE_IS_WELL_KNOWN_GROUP, $TRUSTEE_IS_DELETED, $TRUSTEE_IS_INVALID, $TRUSTEE_IS_COMPUTER Global Const $LOGON_WITH_PROFILE = 0x00000001 Global Const $LOGON_NETCREDENTIALS_ONLY = 0x00000002 Global Enum $SIDTYPEUSER = 1, $SIDTYPEGROUP, $SIDTYPEDOMAIN, $SIDTYPEALIAS, $SIDTYPEWELLKNOWNGROUP, $SIDTYPEDELETEDACCOUNT, $SIDTYPEINVALID, $SIDTYPEUNKNOWN, $SIDTYPECOMPUTER, $SIDTYPELABEL Global Const $SID_ADMINISTRATORS = "S-1-5-32-544" Global Const $SID_USERS = "S-1-5-32-545" Global Const $SID_GUESTS = "S-1-5-32-546" Global Const $SID_ACCOUNT_OPERATORS = "S-1-5-32-548" Global Const $SID_SERVER_OPERATORS = "S-1-5-32-549" Global Const $SID_PRINT_OPERATORS = "S-1-5-32-550" Global Const $SID_BACKUP_OPERATORS = "S-1-5-32-551" Global Const $SID_REPLICATOR = "S-1-5-32-552" Global Const $SID_OWNER = "S-1-3-0" Global Const $SID_EVERYONE = "S-1-1-0" Global Const $SID_NETWORK = "S-1-5-2" Global Const $SID_INTERACTIVE = "S-1-5-4" Global Const $SID_SYSTEM = "S-1-5-18" Global Const $SID_AUTHENTICATED_USERS = "S-1-5-11" Global Const $SID_SCHANNEL_AUTHENTICATION = "S-1-5-64-14" Global Const $SID_DIGEST_AUTHENTICATION = "S-1-5-64-21" Global Const $SID_NT_SERVICE = "S-1-5-80" Global Const $SID_UNTRUSTED_MANDATORY_LEVEL = "S-1-16-0" Global Const $SID_LOW_MANDATORY_LEVEL = "S-1-16-4096" Global Const $SID_MEDIUM_MANDATORY_LEVEL = "S-1-16-8192" Global Const $SID_MEDIUM_PLUS_MANDATORY_LEVEL = "S-1-16-8448" Global Const $SID_HIGH_MANDATORY_LEVEL = "S-1-16-12288" Global Const $SID_SYSTEM_MANDATORY_LEVEL = "S-1-16-16384" Global Const $SID_PROTECTED_PROCESS_MANDATORY_LEVEL = "S-1-16-20480" Global Const $SID_SECURE_PROCESS_MANDATORY_LEVEL = "S-1-16-28672" Global Const $SID_ALL_SERVICES = "S-1-5-80-0" #Region Global Variables and Constants Global Const $FORMAT_MESSAGE_ALLOCATE_BUFFER = 0x00000100 Global Const $FORMAT_MESSAGE_IGNORE_INSERTS = 0x00000200 Global Const $FORMAT_MESSAGE_FROM_STRING = 0x00000400 Global Const $FORMAT_MESSAGE_FROM_HMODULE = 0x00000800 Global Const $FORMAT_MESSAGE_FROM_SYSTEM = 0x00001000 Global Const $FORMAT_MESSAGE_ARGUMENT_ARRAY = 0x00002000 #EndRegion Global Variables and Constants Func _WinAPI_Beep($iFreq = 500, $iDuration = 1000) Local $aResult = DllCall("kernel32.dll", "bool", "Beep", "dword", $iFreq, "dword", $iDuration) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_FormatMessage($iFlags, $pSource, $iMessageID, $iLanguageID, ByRef $pBuffer, $iSize, $vArguments) Local $sBufferType = "struct*" If IsString($pBuffer) Then $sBufferType = "wstr" Local $aResult = DllCall("kernel32.dll", "dword", "FormatMessageW", "dword", $iFlags, "struct*", $pSource, "dword", $iMessageID, "dword", $iLanguageID, $sBufferType, $pBuffer, "dword", $iSize, "ptr", $vArguments) If @error Or Not $aResult[0] Then Return SetError(@error + 10, @extended, 0) If $sBufferType = "wstr" Then $pBuffer = $aResult[5] Return $aResult[0] EndFunc Func _WinAPI_GetErrorMessage($iCode, $iLanguage = 0, Const $_iCurrentError = @error, Const $_iCurrentExtended = @extended) Local $aRet = DllCall('kernel32.dll', 'dword', 'FormatMessageW', 'dword', 0x1000, 'ptr', 0, 'dword', $iCode, 'dword', $iLanguage, 'wstr', '', 'dword', 4096, 'ptr', 0) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, '') Return SetError($_iCurrentError, $_iCurrentExtended, StringRegExpReplace($aRet[5], '[' & @LF & ',' & @CR & ']*\Z', '')) EndFunc Func _WinAPI_GetLastError(Const $_iCurrentError = @error, Const $_iCurrentExtended = @extended) Local $aResult = DllCall("kernel32.dll", "dword", "GetLastError") Return SetError($_iCurrentError, $_iCurrentExtended, $aResult[0]) EndFunc Func _WinAPI_GetLastErrorMessage(Const $_iCurrentError = @error, Const $_iCurrentExtended = @extended) Local $iLastError = _WinAPI_GetLastError() Local $tBufferPtr = DllStructCreate("ptr") Local $nCount = _WinAPI_FormatMessage(BitOR($FORMAT_MESSAGE_ALLOCATE_BUFFER, $FORMAT_MESSAGE_FROM_SYSTEM), 0, $iLastError, 0, $tBufferPtr, 0, 0) If @error Then Return SetError(-@error, @extended, "") Local $sText = "" Local $pBuffer = DllStructGetData($tBufferPtr, 1) If $pBuffer Then If $nCount > 0 Then Local $tBuffer = DllStructCreate("wchar[" & ($nCount + 1) & "]", $pBuffer) $sText = DllStructGetData($tBuffer, 1) If StringRight($sText, 2) = @CRLF Then $sText = StringTrimRight($sText, 2) EndIf DllCall("kernel32.dll", "handle", "LocalFree", "handle", $pBuffer) EndIf Return SetError($_iCurrentError, $_iCurrentExtended, $sText) EndFunc Func _WinAPI_MessageBeep($iType = 1) Local $iSound Switch $iType Case 1 $iSound = 0 Case 2 $iSound = 16 Case 3 $iSound = 32 Case 4 $iSound = 48 Case 5 $iSound = 64 Case Else $iSound = -1 EndSwitch Local $aResult = DllCall("user32.dll", "bool", "MessageBeep", "uint", $iSound) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_MsgBox($iFlags, $sTitle, $sText) BlockInput(0) MsgBox($iFlags, $sTitle, $sText & " ") EndFunc Func _WinAPI_SetLastError($iErrorCode, Const $_iCurrentError = @error, Const $_iCurrentExtended = @extended) DllCall("kernel32.dll", "none", "SetLastError", "dword", $iErrorCode) Return SetError($_iCurrentError, $_iCurrentExtended, Null) EndFunc Func _WinAPI_ShowError($sText, $bExit = True) BlockInput(0) MsgBox($MB_SYSTEMMODAL, "Error", $sText & " ") If $bExit Then Exit EndFunc Func _WinAPI_ShowLastError($sText = '', $bAbort = False, $iLanguage = 0, Const $_iCurrentError = @error, Const $_iCurrentExtended = @extended) Local $sError Local $iLastError = _WinAPI_GetLastError() While 1 $sError = _WinAPI_GetErrorMessage($iLastError, $iLanguage) If @error And $iLanguage Then $iLanguage = 0 Else ExitLoop EndIf WEnd If StringStripWS($sText, $STR_STRIPLEADING + $STR_STRIPTRAILING) Then $sText &= @CRLF & @CRLF Else $sText = '' EndIf _WinAPI_MsgBox(BitOR(0x00040000, BitShift(0x00000010, -2 * (Not $iLastError))), $iLastError, $sText & $sError) If $iLastError Then _WinAPI_SetLastError($iLastError) If $bAbort Then Exit $iLastError EndIf EndIf Return SetError($_iCurrentError, $_iCurrentExtended, 1) EndFunc Func _WinAPI_ShowMsg($sText) _WinAPI_MsgBox($MB_SYSTEMMODAL, "Information", $sText) EndFunc Func __COMErrorFormating(ByRef $oCOMError, $sPrefix = @TAB) Local Const $STR_STRIPTRAILING = 2 Local $sError = "COM Error encountered in " & @ScriptName & " (" & $oCOMError.Scriptline & ") :" & @CRLF & $sPrefix & "Number " & @TAB & "= 0x" & Hex($oCOMError.Number, 8) & " (" & $oCOMError.Number & ")" & @CRLF & $sPrefix & "WinDescription" & @TAB & "= " & StringStripWS($oCOMError.WinDescription, $STR_STRIPTRAILING) & @CRLF & $sPrefix & "Description " & @TAB & "= " & StringStripWS($oCOMError.Description, $STR_STRIPTRAILING) & @CRLF & $sPrefix & "Source " & @TAB & "= " & $oCOMError.Source & @CRLF & $sPrefix & "HelpFile " & @TAB & "= " & $oCOMError.HelpFile & @CRLF & $sPrefix & "HelpContext " & @TAB & "= " & $oCOMError.HelpContext & @CRLF & $sPrefix & "LastDllError " & @TAB & "= " & $oCOMError.LastDllError & @CRLF & $sPrefix & "Retcode " & @TAB & "= 0x" & Hex($oCOMError.retcode) Return $sError EndFunc Func _Security__AdjustTokenPrivileges($hToken, $bDisableAll, $tNewState, $iBufferLen, $tPrevState = 0, $pRequired = 0) Local $aCall = DllCall("advapi32.dll", "bool", "AdjustTokenPrivileges", "handle", $hToken, "bool", $bDisableAll, "struct*", $tNewState, "dword", $iBufferLen, "struct*", $tPrevState, "struct*", $pRequired) If @error Then Return SetError(@error, @extended, False) Return Not ($aCall[0] = 0) EndFunc Func _Security__CreateProcessWithToken($hToken, $iLogonFlags, $sCommandLine, $iCreationFlags, $sCurDir, $tSTARTUPINFO, $tPROCESS_INFORMATION) Local $aCall = DllCall("advapi32.dll", "bool", "CreateProcessWithTokenW", "handle", $hToken, "dword", $iLogonFlags, "ptr", 0, "wstr", $sCommandLine, "dword", $iCreationFlags, "struct*", 0, "wstr", $sCurDir, "struct*", $tSTARTUPINFO, "struct*", $tPROCESS_INFORMATION) If @error Or Not $aCall[0] Then Return SetError(@error, @extended, False) Return True EndFunc Func _Security__DuplicateTokenEx($hExistingToken, $iDesiredAccess, $iImpersonationLevel, $iTokenType) Local $aCall = DllCall("advapi32.dll", "bool", "DuplicateTokenEx", "handle", $hExistingToken, "dword", $iDesiredAccess, "struct*", 0, "int", $iImpersonationLevel, "int", $iTokenType, "handle*", 0) If @error Or Not $aCall[0] Then Return SetError(@error, @extended, 0) Return $aCall[6] EndFunc Func _Security__GetAccountSid($sAccount, $sSystem = "") Local $aAcct = _Security__LookupAccountName($sAccount, $sSystem) If @error Then Return SetError(@error, @extended, 0) If IsArray($aAcct) Then Return _Security__StringSidToSid($aAcct[0]) Return '' EndFunc Func _Security__GetLengthSid($pSID) If Not _Security__IsValidSid($pSID) Then Return SetError(@error + 10, @extended, 0) Local $aCall = DllCall("advapi32.dll", "dword", "GetLengthSid", "struct*", $pSID) If @error Then Return SetError(@error, @extended, 0) Return $aCall[0] EndFunc Func _Security__GetTokenInformation($hToken, $iClass) Local $aCall = DllCall("advapi32.dll", "bool", "GetTokenInformation", "handle", $hToken, "int", $iClass, "struct*", 0, "dword", 0, "dword*", 0) If @error Or Not $aCall[5] Then Return SetError(@error + 10, @extended, 0) Local $iLen = $aCall[5] Local $tBuffer = DllStructCreate("byte[" & $iLen & "]") $aCall = DllCall("advapi32.dll", "bool", "GetTokenInformation", "handle", $hToken, "int", $iClass, "struct*", $tBuffer, "dword", DllStructGetSize($tBuffer), "dword*", 0) If @error Or Not $aCall[0] Then Return SetError(@error, @extended, 0) Return $tBuffer EndFunc Func _Security__ImpersonateSelf($iLevel = $SECURITYIMPERSONATION) Local $aCall = DllCall("advapi32.dll", "bool", "ImpersonateSelf", "int", $iLevel) If @error Then Return SetError(@error, @extended, False) Return Not ($aCall[0] = 0) EndFunc Func _Security__IsValidSid($pSID) Local $aCall = DllCall("advapi32.dll", "bool", "IsValidSid", "struct*", $pSID) If @error Then Return SetError(@error, @extended, False) Return Not ($aCall[0] = 0) EndFunc Func _Security__LookupAccountName($sAccount, $sSystem = "") Local $tData = DllStructCreate("byte SID[256]") Local $aCall = DllCall("advapi32.dll", "bool", "LookupAccountNameW", "wstr", $sSystem, "wstr", $sAccount, "struct*", $tData, "dword*", DllStructGetSize($tData), "wstr", "", "dword*", DllStructGetSize($tData), "int*", 0) If @error Or Not $aCall[0] Then Return SetError(@error, @extended, 0) Local $aAcct[3] $aAcct[0] = _Security__SidToStringSid(DllStructGetPtr($tData, "SID")) $aAcct[1] = $aCall[5] $aAcct[2] = $aCall[7] Return $aAcct EndFunc Func _Security__LookupAccountSid($vSID, $sSystem = "") Local $pSID, $aAcct[3] If IsString($vSID) Then $pSID = _Security__StringSidToSid($vSID) Else $pSID = $vSID EndIf If Not _Security__IsValidSid($pSID) Then Return SetError(@error + 10, @extended, 0) Local $sTypeSystem = "ptr" If $sSystem Then $sTypeSystem = "wstr" Local $aCall = DllCall("advapi32.dll", "bool", "LookupAccountSidW", $sTypeSystem, $sSystem, "struct*", $pSID, "wstr", "", "dword*", 65536, "wstr", "", "dword*", 65536, "int*", 0) If @error Or Not $aCall[0] Then Return SetError(@error, @extended, 0) Local $aAcct[3] $aAcct[0] = $aCall[3] $aAcct[1] = $aCall[5] $aAcct[2] = $aCall[7] Return $aAcct EndFunc Func _Security__LookupPrivilegeValue($sSystem, $sName) Local $aCall = DllCall("advapi32.dll", "bool", "LookupPrivilegeValueW", "wstr", $sSystem, "wstr", $sName, "int64*", 0) If @error Or Not $aCall[0] Then Return SetError(@error, @extended, 0) Return $aCall[3] EndFunc Func _Security__OpenProcessToken($hProcess, $iAccess) Local $aCall = DllCall("advapi32.dll", "bool", "OpenProcessToken", "handle", $hProcess, "dword", $iAccess, "handle*", 0) If @error Or Not $aCall[0] Then Return SetError(@error, @extended, 0) Return $aCall[3] EndFunc Func _Security__OpenThreadToken($iAccess, $hThread = 0, $bOpenAsSelf = False) If $hThread = 0 Then Local $aResult = DllCall("kernel32.dll", "handle", "GetCurrentThread") If @error Then Return SetError(@error + 10, @extended, 0) $hThread = $aResult[0] EndIf Local $aCall = DllCall("advapi32.dll", "bool", "OpenThreadToken", "handle", $hThread, "dword", $iAccess, "bool", $bOpenAsSelf, "handle*", 0) If @error Or Not $aCall[0] Then Return SetError(@error, @extended, 0) Return $aCall[4] EndFunc Func _Security__OpenThreadTokenEx($iAccess, $hThread = 0, $bOpenAsSelf = False) Local $hToken = _Security__OpenThreadToken($iAccess, $hThread, $bOpenAsSelf) If $hToken = 0 Then Local Const $ERROR_NO_TOKEN = 1008 If _WinAPI_GetLastError() <> $ERROR_NO_TOKEN Then Return SetError(20, _WinAPI_GetLastError(), 0) If Not _Security__ImpersonateSelf() Then Return SetError(@error + 10, _WinAPI_GetLastError(), 0) $hToken = _Security__OpenThreadToken($iAccess, $hThread, $bOpenAsSelf) If $hToken = 0 Then Return SetError(@error, _WinAPI_GetLastError(), 0) EndIf Return $hToken EndFunc Func _Security__SetPrivilege($hToken, $sPrivilege, $bEnable) Local $iLUID = _Security__LookupPrivilegeValue("", $sPrivilege) If $iLUID = 0 Then Return SetError(@error + 10, @extended, False) Local Const $tagTOKEN_PRIVILEGES = "dword Count;align 4;int64 LUID;dword Attributes" Local $tCurrState = DllStructCreate($tagTOKEN_PRIVILEGES) Local $iCurrState = DllStructGetSize($tCurrState) Local $tPrevState = DllStructCreate($tagTOKEN_PRIVILEGES) Local $iPrevState = DllStructGetSize($tPrevState) Local $tRequired = DllStructCreate("int Data") DllStructSetData($tCurrState, "Count", 1) DllStructSetData($tCurrState, "LUID", $iLUID) If Not _Security__AdjustTokenPrivileges($hToken, False, $tCurrState, $iCurrState, $tPrevState, $tRequired) Then Return SetError(2, @error, False) DllStructSetData($tPrevState, "Count", 1) DllStructSetData($tPrevState, "LUID", $iLUID) Local $iAttributes = DllStructGetData($tPrevState, "Attributes") If $bEnable Then $iAttributes = BitOR($iAttributes, $SE_PRIVILEGE_ENABLED) Else $iAttributes = BitAND($iAttributes, BitNOT($SE_PRIVILEGE_ENABLED)) EndIf DllStructSetData($tPrevState, "Attributes", $iAttributes) If Not _Security__AdjustTokenPrivileges($hToken, False, $tPrevState, $iPrevState, $tCurrState, $tRequired) Then Return SetError(3, @error, False) Return True EndFunc Func _Security__SetTokenInformation($hToken, $iTokenInformation, $vTokenInformation, $iTokenInformationLength) Local $aCall = DllCall("advapi32.dll", "bool", "SetTokenInformation", "handle", $hToken, "int", $iTokenInformation, "struct*", $vTokenInformation, "dword", $iTokenInformationLength) If @error Or Not $aCall[0] Then Return SetError(@error, @extended, False) Return True EndFunc Func _Security__SidToStringSid($pSID) If Not _Security__IsValidSid($pSID) Then Return SetError(@error + 10, 0, "") Local $aCall = DllCall("advapi32.dll", "bool", "ConvertSidToStringSidW", "struct*", $pSID, "ptr*", 0) If @error Or Not $aCall[0] Then Return SetError(@error, @extended, "") Local $pStringSid = $aCall[2] Local $aLen = DllCall("kernel32.dll", "int", "lstrlenW", "struct*", $pStringSid) Local $sSID = DllStructGetData(DllStructCreate("wchar Text[" & $aLen[0] + 1 & "]", $pStringSid), "Text") DllCall("kernel32.dll", "handle", "LocalFree", "handle", $pStringSid) Return $sSID EndFunc Func _Security__SidTypeStr($iType) Switch $iType Case $SIDTYPEUSER Return "User" Case $SIDTYPEGROUP Return "Group" Case $SIDTYPEDOMAIN Return "Domain" Case $SIDTYPEALIAS Return "Alias" Case $SIDTYPEWELLKNOWNGROUP Return "Well Known Group" Case $SIDTYPEDELETEDACCOUNT Return "Deleted Account" Case $SIDTYPEINVALID Return "Invalid" Case $SIDTYPEUNKNOWN Return "Unknown Type" Case $SIDTYPECOMPUTER Return "Computer" Case $SIDTYPELABEL Return "A mandatory integrity label SID" Case Else Return "Unknown SID Type" EndSwitch EndFunc Func _Security__StringSidToSid($sSID) Local $aCall = DllCall("advapi32.dll", "bool", "ConvertStringSidToSidW", "wstr", $sSID, "ptr*", 0) If @error Or Not $aCall[0] Then Return SetError(@error, @extended, 0) Local $pSID = $aCall[2] Local $tBuffer = DllStructCreate("byte Data[" & _Security__GetLengthSid($pSID) & "]", $pSID) Local $tSID = DllStructCreate("byte Data[" & DllStructGetSize($tBuffer) & "]") DllStructSetData($tSID, "Data", DllStructGetData($tBuffer, "Data")) DllCall("kernel32.dll", "handle", "LocalFree", "handle", $pSID) Return $tSID EndFunc Global Const $tagPOINT = "struct;long X;long Y;endstruct" Global Const $tagRECT = "struct;long Left;long Top;long Right;long Bottom;endstruct" Global Const $tagSIZE = "struct;long X;long Y;endstruct" Global Const $tagMARGINS = "int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight" Global Const $tagFILETIME = "struct;dword Lo;dword Hi;endstruct" Global Const $tagSYSTEMTIME = "struct;word Year;word Month;word Dow;word Day;word Hour;word Minute;word Second;word MSeconds;endstruct" Global Const $tagTIME_ZONE_INFORMATION = "struct;long Bias;wchar StdName[32];word StdDate[8];long StdBias;wchar DayName[32];word DayDate[8];long DayBias;endstruct" Global Const $tagNMHDR = "struct;hwnd hWndFrom;uint_ptr IDFrom;INT Code;endstruct" Global Const $tagCOMBOBOXEXITEM = "uint Mask;int_ptr Item;ptr Text;int TextMax;int Image;int SelectedImage;int OverlayImage;" & "int Indent;lparam Param" Global Const $tagNMCBEDRAGBEGIN = $tagNMHDR & ";int ItemID;wchar szText[260]" Global Const $tagNMCBEENDEDIT = $tagNMHDR & ";bool fChanged;int NewSelection;wchar szText[260];int Why" Global Const $tagNMCOMBOBOXEX = $tagNMHDR & ";uint Mask;int_ptr Item;ptr Text;int TextMax;int Image;" & "int SelectedImage;int OverlayImage;int Indent;lparam Param" Global Const $tagDTPRANGE = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;" & "word MinSecond;word MinMSecond;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;" & "word MaxMinute;word MaxSecond;word MaxMSecond;bool MinValid;bool MaxValid" Global Const $tagNMDATETIMECHANGE = $tagNMHDR & ";dword Flag;" & $tagSYSTEMTIME Global Const $tagNMDATETIMEFORMAT = $tagNMHDR & ";ptr Format;" & $tagSYSTEMTIME & ";ptr pDisplay;wchar Display[64]" Global Const $tagNMDATETIMEFORMATQUERY = $tagNMHDR & ";ptr Format;struct;long SizeX;long SizeY;endstruct" Global Const $tagNMDATETIMEKEYDOWN = $tagNMHDR & ";int VirtKey;ptr Format;" & $tagSYSTEMTIME Global Const $tagNMDATETIMESTRING = $tagNMHDR & ";ptr UserString;" & $tagSYSTEMTIME & ";dword Flags" Global Const $tagEVENTLOGRECORD = "dword Length;dword Reserved;dword RecordNumber;dword TimeGenerated;dword TimeWritten;dword EventID;" & "word EventType;word NumStrings;word EventCategory;word ReservedFlags;dword ClosingRecordNumber;dword StringOffset;" & "dword UserSidLength;dword UserSidOffset;dword DataLength;dword DataOffset" Global Const $tagGDIP_EFFECTPARAMS_Blur = "float Radius; bool ExpandEdge" Global Const $tagGDIP_EFFECTPARAMS_BrightnessContrast = "int BrightnessLevel; int ContrastLevel" Global Const $tagGDIP_EFFECTPARAMS_ColorBalance = "int CyanRed; int MagentaGreen; int YellowBlue" Global Const $tagGDIP_EFFECTPARAMS_ColorCurve = "int Adjustment; int Channel; int AdjustValue" Global Const $tagGDIP_EFFECTPARAMS_ColorLUT = "byte LutB[256]; byte LutG[256]; byte LutR[256]; byte LutA[256]" Global Const $tagGDIP_EFFECTPARAMS_HueSaturationLightness = "int HueLevel; int SaturationLevel; int LightnessLevel" Global Const $tagGDIP_EFFECTPARAMS_Levels = "int Highlight; int Midtone; int Shadow" Global Const $tagGDIP_EFFECTPARAMS_RedEyeCorrection = "uint NumberOfAreas; ptr Areas" Global Const $tagGDIP_EFFECTPARAMS_Sharpen = "float Radius; float Amount" Global Const $tagGDIP_EFFECTPARAMS_Tint = "int Hue; int Amount" Global Const $tagGDIPBITMAPDATA = "uint Width;uint Height;int Stride;int Format;ptr Scan0;uint_ptr Reserved" Global Const $tagGDIPCOLORMATRIX = "float m[25]" Global Const $tagGDIPENCODERPARAM = "struct;byte GUID[16];ulong NumberOfValues;ulong Type;ptr Values;endstruct" Global Const $tagGDIPENCODERPARAMS = "uint Count;" & $tagGDIPENCODERPARAM Global Const $tagGDIPRECTF = "struct;float X;float Y;float Width;float Height;endstruct" Global Const $tagGDIPSTARTUPINPUT = "uint Version;ptr Callback;bool NoThread;bool NoCodecs" Global Const $tagGDIPSTARTUPOUTPUT = "ptr HookProc;ptr UnhookProc" Global Const $tagGDIPIMAGECODECINFO = "byte CLSID[16];byte FormatID[16];ptr CodecName;ptr DllName;ptr FormatDesc;ptr FileExt;" & "ptr MimeType;dword Flags;dword Version;dword SigCount;dword SigSize;ptr SigPattern;ptr SigMask" Global Const $tagGDIPPENCODERPARAMS = "uint Count;byte Params[1]" Global Const $tagHDITEM = "uint Mask;int XY;ptr Text;handle hBMP;int TextMax;int Fmt;lparam Param;int Image;int Order;uint Type;ptr pFilter;uint State" Global Const $tagNMHDDISPINFO = $tagNMHDR & ";int Item;uint Mask;ptr Text;int TextMax;int Image;lparam lParam" Global Const $tagNMHDFILTERBTNCLICK = $tagNMHDR & ";int Item;" & $tagRECT Global Const $tagNMHEADER = $tagNMHDR & ";int Item;int Button;ptr pItem" Global Const $tagGETIPAddress = "byte Field4;byte Field3;byte Field2;byte Field1" Global Const $tagNMIPADDRESS = $tagNMHDR & ";int Field;int Value" Global Const $tagLVFINDINFO = "struct;uint Flags;ptr Text;lparam Param;" & $tagPOINT & ";uint Direction;endstruct" Global Const $tagLVHITTESTINFO = $tagPOINT & ";uint Flags;int Item;int SubItem;int iGroup" Global Const $tagLVITEM = "struct;uint Mask;int Item;int SubItem;uint State;uint StateMask;ptr Text;int TextMax;int Image;lparam Param;" & "int Indent;int GroupID;uint Columns;ptr pColumns;ptr piColFmt;int iGroup;endstruct" Global Const $tagNMLISTVIEW = $tagNMHDR & ";int Item;int SubItem;uint NewState;uint OldState;uint Changed;" & "struct;long ActionX;long ActionY;endstruct;lparam Param" Global Const $tagNMLVCUSTOMDRAW = "struct;" & $tagNMHDR & ";dword dwDrawStage;handle hdc;" & $tagRECT & ";dword_ptr dwItemSpec;uint uItemState;lparam lItemlParam;endstruct" & ";dword clrText;dword clrTextBk;int iSubItem;dword dwItemType;dword clrFace;int iIconEffect;" & "int iIconPhase;int iPartID;int iStateID;struct;long TextLeft;long TextTop;long TextRight;long TextBottom;endstruct;uint uAlign" Global Const $tagNMLVDISPINFO = $tagNMHDR & ";" & $tagLVITEM Global Const $tagNMLVFINDITEM = $tagNMHDR & ";int Start;" & $tagLVFINDINFO Global Const $tagNMLVGETINFOTIP = $tagNMHDR & ";dword Flags;ptr Text;int TextMax;int Item;int SubItem;lparam lParam" Global Const $tagNMITEMACTIVATE = $tagNMHDR & ";int Index;int SubItem;uint NewState;uint OldState;uint Changed;" & $tagPOINT & ";lparam lParam;uint KeyFlags" Global Const $tagNMLVKEYDOWN = "align 1;" & $tagNMHDR & ";word VKey;uint Flags" Global Const $tagNMLVSCROLL = $tagNMHDR & ";int DX;int DY" Global Const $tagMCHITTESTINFO = "uint Size;" & $tagPOINT & ";uint Hit;" & $tagSYSTEMTIME & ";" & $tagRECT & ";int iOffset;int iRow;int iCol" Global Const $tagMCMONTHRANGE = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds;short Span" Global Const $tagMCRANGE = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds;short MinSet;short MaxSet" Global Const $tagMCSELRANGE = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds" Global Const $tagNMDAYSTATE = $tagNMHDR & ";" & $tagSYSTEMTIME & ";int DayState;ptr pDayState" Global Const $tagNMSELCHANGE = $tagNMHDR & ";struct;word BegYear;word BegMonth;word BegDOW;word BegDay;word BegHour;word BegMinute;word BegSecond;word BegMSeconds;endstruct;" & "struct;word EndYear;word EndMonth;word EndDOW;word EndDay;word EndHour;word EndMinute;word EndSecond;word EndMSeconds;endstruct" Global Const $tagNMOBJECTNOTIFY = $tagNMHDR & ";int Item;ptr piid;ptr pObject;long Result;dword dwFlags" Global Const $tagNMTCKEYDOWN = "align 1;" & $tagNMHDR & ";word VKey;uint Flags" Global Const $tagTVITEM = "struct;uint Mask;handle hItem;uint State;uint StateMask;ptr Text;int TextMax;int Image;int SelectedImage;" & "int Children;lparam Param;endstruct" Global Const $tagTVITEMEX = "struct;" & $tagTVITEM & ";int Integral;uint uStateEx;hwnd hwnd;int iExpandedImage;int iReserved;endstruct" Global Const $tagNMTREEVIEW = $tagNMHDR & ";uint Action;" & "struct;uint OldMask;handle OldhItem;uint OldState;uint OldStateMask;" & "ptr OldText;int OldTextMax;int OldImage;int OldSelectedImage;int OldChildren;lparam OldParam;endstruct;" & "struct;uint NewMask;handle NewhItem;uint NewState;uint NewStateMask;" & "ptr NewText;int NewTextMax;int NewImage;int NewSelectedImage;int NewChildren;lparam NewParam;endstruct;" & "struct;long PointX;long PointY;endstruct" Global Const $tagNMTVCUSTOMDRAW = "struct;" & $tagNMHDR & ";dword DrawStage;handle HDC;" & $tagRECT & ";dword_ptr ItemSpec;uint ItemState;lparam ItemParam;endstruct" & ";dword ClrText;dword ClrTextBk;int Level" Global Const $tagNMTVDISPINFO = $tagNMHDR & ";" & $tagTVITEM Global Const $tagNMTVGETINFOTIP = $tagNMHDR & ";ptr Text;int TextMax;handle hItem;lparam lParam" Global Const $tagNMTVITEMCHANGE = $tagNMHDR & ";uint Changed;handle hItem;uint StateNew;uint StateOld;lparam lParam;" Global Const $tagTVHITTESTINFO = $tagPOINT & ";uint Flags;handle Item" Global Const $tagNMTVKEYDOWN = "align 1;" & $tagNMHDR & ";word VKey;uint Flags" Global Const $tagNMMOUSE = $tagNMHDR & ";dword_ptr ItemSpec;dword_ptr ItemData;" & $tagPOINT & ";lparam HitInfo" Global Const $tagTOKEN_PRIVILEGES = "dword Count;align 4;int64 LUID;dword Attributes" Global Const $tagIMAGEINFO = "handle hBitmap;handle hMask;int Unused1;int Unused2;" & $tagRECT Global Const $tagMENUINFO = "dword Size;INT Mask;dword Style;uint YMax;handle hBack;dword ContextHelpID;ulong_ptr MenuData" Global Const $tagMENUITEMINFO = "uint Size;uint Mask;uint Type;uint State;uint ID;handle SubMenu;handle BmpChecked;handle BmpUnchecked;" & "ulong_ptr ItemData;ptr TypeData;uint CCH;handle BmpItem" Global Const $tagREBARBANDINFO = "uint cbSize;uint fMask;uint fStyle;dword clrFore;dword clrBack;ptr lpText;uint cch;" & "int iImage;hwnd hwndChild;uint cxMinChild;uint cyMinChild;uint cx;handle hbmBack;uint wID;uint cyChild;uint cyMaxChild;" & "uint cyIntegral;uint cxIdeal;lparam lParam;uint cxHeader" & ((@OSVersion = "WIN_XP") ? "" : ";" & $tagRECT & ";uint uChevronState") Global Const $tagNMREBARAUTOBREAK = $tagNMHDR & ";uint uBand;uint wID;lparam lParam;uint uMsg;uint fStyleCurrent;bool fAutoBreak" Global Const $tagNMRBAUTOSIZE = $tagNMHDR & ";bool fChanged;" & "struct;long TargetLeft;long TargetTop;long TargetRight;long TargetBottom;endstruct;" & "struct;long ActualLeft;long ActualTop;long ActualRight;long ActualBottom;endstruct" Global Const $tagNMREBAR = $tagNMHDR & ";dword dwMask;uint uBand;uint fStyle;uint wID;lparam lParam" Global Const $tagNMREBARCHEVRON = $tagNMHDR & ";uint uBand;uint wID;lparam lParam;" & $tagRECT & ";lparam lParamNM" Global Const $tagNMREBARCHILDSIZE = $tagNMHDR & ";uint uBand;uint wID;" & "struct;long CLeft;long CTop;long CRight;long CBottom;endstruct;" & "struct;long BLeft;long BTop;long BRight;long BBottom;endstruct" Global Const $tagCOLORSCHEME = "dword Size;dword BtnHighlight;dword BtnShadow" Global Const $tagNMTOOLBAR = $tagNMHDR & ";int iItem;" & "struct;int iBitmap;int idCommand;byte fsState;byte fsStyle;dword_ptr dwData;int_ptr iString;endstruct" & ";int cchText;ptr pszText;" & $tagRECT Global Const $tagNMTBHOTITEM = $tagNMHDR & ";int idOld;int idNew;dword dwFlags" Global Const $tagTBBUTTON = "int Bitmap;int Command;byte State;byte Style;dword_ptr Param;int_ptr String" Global Const $tagTBBUTTONINFO = "uint Size;dword Mask;int Command;int Image;byte State;byte Style;word CX;dword_ptr Param;ptr Text;int TextMax" Global Const $tagNETRESOURCE = "dword Scope;dword Type;dword DisplayType;dword Usage;ptr LocalName;ptr RemoteName;ptr Comment;ptr Provider" Global Const $tagOVERLAPPED = "ulong_ptr Internal;ulong_ptr InternalHigh;struct;dword Offset;dword OffsetHigh;endstruct;handle hEvent" Global Const $tagOPENFILENAME = "dword StructSize;hwnd hwndOwner;handle hInstance;ptr lpstrFilter;ptr lpstrCustomFilter;" & "dword nMaxCustFilter;dword nFilterIndex;ptr lpstrFile;dword nMaxFile;ptr lpstrFileTitle;dword nMaxFileTitle;" & "ptr lpstrInitialDir;ptr lpstrTitle;dword Flags;word nFileOffset;word nFileExtension;ptr lpstrDefExt;lparam lCustData;" & "ptr lpfnHook;ptr lpTemplateName;ptr pvReserved;dword dwReserved;dword FlagsEx" Global Const $tagBITMAPINFOHEADER = "struct;dword biSize;long biWidth;long biHeight;word biPlanes;word biBitCount;" & "dword biCompression;dword biSizeImage;long biXPelsPerMeter;long biYPelsPerMeter;dword biClrUsed;dword biClrImportant;endstruct" Global Const $tagBITMAPINFO = $tagBITMAPINFOHEADER & ";dword biRGBQuad[1]" Global Const $tagBLENDFUNCTION = "byte Op;byte Flags;byte Alpha;byte Format" Global Const $tagGUID = "struct;ulong Data1;ushort Data2;ushort Data3;byte Data4[8];endstruct" Global Const $tagWINDOWPLACEMENT = "uint length;uint flags;uint showCmd;long ptMinPosition[2];long ptMaxPosition[2];long rcNormalPosition[4]" Global Const $tagWINDOWPOS = "hwnd hWnd;hwnd InsertAfter;int X;int Y;int CX;int CY;uint Flags" Global Const $tagSCROLLINFO = "uint cbSize;uint fMask;int nMin;int nMax;uint nPage;int nPos;int nTrackPos" Global Const $tagSCROLLBARINFO = "dword cbSize;" & $tagRECT & ";int dxyLineButton;int xyThumbTop;" & "int xyThumbBottom;int reserved;dword rgstate[6]" Global Const $tagLOGFONT = "struct;long Height;long Width;long Escapement;long Orientation;long Weight;byte Italic;byte Underline;" & "byte Strikeout;byte CharSet;byte OutPrecision;byte ClipPrecision;byte Quality;byte PitchAndFamily;wchar FaceName[32];endstruct" Global Const $tagKBDLLHOOKSTRUCT = "dword vkCode;dword scanCode;dword flags;dword time;ulong_ptr dwExtraInfo" Global Const $tagPROCESS_INFORMATION = "handle hProcess;handle hThread;dword ProcessID;dword ThreadID" Global Const $tagSTARTUPINFO = "dword Size;ptr Reserved1;ptr Desktop;ptr Title;dword X;dword Y;dword XSize;dword YSize;dword XCountChars;" & "dword YCountChars;dword FillAttribute;dword Flags;word ShowWindow;word Reserved2;ptr Reserved3;handle StdInput;" & "handle StdOutput;handle StdError" Global Const $tagSECURITY_ATTRIBUTES = "dword Length;ptr Descriptor;bool InheritHandle" Global Const $tagWIN32_FIND_DATA = "dword dwFileAttributes;dword ftCreationTime[2];dword ftLastAccessTime[2];dword ftLastWriteTime[2];dword nFileSizeHigh;dword nFileSizeLow;dword dwReserved0;dword dwReserved1;wchar cFileName[260];wchar cAlternateFileName[14]" Global Const $tagTEXTMETRIC = "long tmHeight;long tmAscent;long tmDescent;long tmInternalLeading;long tmExternalLeading;" & "long tmAveCharWidth;long tmMaxCharWidth;long tmWeight;long tmOverhang;long tmDigitizedAspectX;long tmDigitizedAspectY;" & "wchar tmFirstChar;wchar tmLastChar;wchar tmDefaultChar;wchar tmBreakChar;byte tmItalic;byte tmUnderlined;byte tmStruckOut;" & "byte tmPitchAndFamily;byte tmCharSet" Global Const $tagMEMMAP = "handle hProc;ulong_ptr Size;ptr Mem" Func _MemFree(ByRef $tMemMap) Local $pMemory = DllStructGetData($tMemMap, "Mem") Local $hProcess = DllStructGetData($tMemMap, "hProc") Local $bResult = _MemVirtualFreeEx($hProcess, $pMemory, 0, $MEM_RELEASE) DllCall("kernel32.dll", "bool", "CloseHandle", "handle", $hProcess) If @error Then Return SetError(@error, @extended, False) Return $bResult EndFunc Func _MemGlobalAlloc($iBytes, $iFlags = 0) Local $aResult = DllCall("kernel32.dll", "handle", "GlobalAlloc", "uint", $iFlags, "ulong_ptr", $iBytes) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _MemGlobalFree($hMemory) Local $aResult = DllCall("kernel32.dll", "ptr", "GlobalFree", "handle", $hMemory) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _MemGlobalLock($hMemory) Local $aResult = DllCall("kernel32.dll", "ptr", "GlobalLock", "handle", $hMemory) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _MemGlobalSize($hMemory) Local $aResult = DllCall("kernel32.dll", "ulong_ptr", "GlobalSize", "handle", $hMemory) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _MemGlobalUnlock($hMemory) Local $aResult = DllCall("kernel32.dll", "bool", "GlobalUnlock", "handle", $hMemory) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _MemInit($hWnd, $iSize, ByRef $tMemMap) Local $aResult = DllCall("user32.dll", "dword", "GetWindowThreadProcessId", "hwnd", $hWnd, "dword*", 0) If @error Then Return SetError(@error + 10, @extended, 0) Local $iProcessID = $aResult[2] If $iProcessID = 0 Then Return SetError(1, 0, 0) Local $iAccess = BitOR($PROCESS_VM_OPERATION, $PROCESS_VM_READ, $PROCESS_VM_WRITE) Local $hProcess = __Mem_OpenProcess($iAccess, False, $iProcessID, True) Local $iAlloc = BitOR($MEM_RESERVE, $MEM_COMMIT) Local $pMemory = _MemVirtualAllocEx($hProcess, 0, $iSize, $iAlloc, $PAGE_READWRITE) If $pMemory = 0 Then Return SetError(2, 0, 0) $tMemMap = DllStructCreate($tagMEMMAP) DllStructSetData($tMemMap, "hProc", $hProcess) DllStructSetData($tMemMap, "Size", $iSize) DllStructSetData($tMemMap, "Mem", $pMemory) Return $pMemory EndFunc Func _MemMoveMemory($pSource, $pDest, $iLength) DllCall("kernel32.dll", "none", "RtlMoveMemory", "struct*", $pDest, "struct*", $pSource, "ulong_ptr", $iLength) If @error Then Return SetError(@error, @extended) EndFunc Func _MemRead(ByRef $tMemMap, $pSrce, $pDest, $iSize) Local $aResult = DllCall("kernel32.dll", "bool", "ReadProcessMemory", "handle", DllStructGetData($tMemMap, "hProc"), "ptr", $pSrce, "struct*", $pDest, "ulong_ptr", $iSize, "ulong_ptr*", 0) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _MemWrite(ByRef $tMemMap, $pSrce, $pDest = 0, $iSize = 0, $sSrce = "struct*") If $pDest = 0 Then $pDest = DllStructGetData($tMemMap, "Mem") If $iSize = 0 Then $iSize = DllStructGetData($tMemMap, "Size") Local $aResult = DllCall("kernel32.dll", "bool", "WriteProcessMemory", "handle", DllStructGetData($tMemMap, "hProc"), "ptr", $pDest, $sSrce, $pSrce, "ulong_ptr", $iSize, "ulong_ptr*", 0) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _MemVirtualAlloc($pAddress, $iSize, $iAllocation, $iProtect) Local $aResult = DllCall("kernel32.dll", "ptr", "VirtualAlloc", "ptr", $pAddress, "ulong_ptr", $iSize, "dword", $iAllocation, "dword", $iProtect) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _MemVirtualAllocEx($hProcess, $pAddress, $iSize, $iAllocation, $iProtect) Local $aResult = DllCall("kernel32.dll", "ptr", "VirtualAllocEx", "handle", $hProcess, "ptr", $pAddress, "ulong_ptr", $iSize, "dword", $iAllocation, "dword", $iProtect) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _MemVirtualFree($pAddress, $iSize, $iFreeType) Local $aResult = DllCall("kernel32.dll", "bool", "VirtualFree", "ptr", $pAddress, "ulong_ptr", $iSize, "dword", $iFreeType) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _MemVirtualFreeEx($hProcess, $pAddress, $iSize, $iFreeType) Local $aResult = DllCall("kernel32.dll", "bool", "VirtualFreeEx", "handle", $hProcess, "ptr", $pAddress, "ulong_ptr", $iSize, "dword", $iFreeType) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func __Mem_OpenProcess($iAccess, $bInherit, $iPID, $bDebugPriv = False) Local $aResult = DllCall("kernel32.dll", "handle", "OpenProcess", "dword", $iAccess, "bool", $bInherit, "dword", $iPID) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return $aResult[0] If Not $bDebugPriv Then Return SetError(100, 0, 0) Local $hToken = _Security__OpenThreadTokenEx(BitOR($TOKEN_ADJUST_PRIVILEGES, $TOKEN_QUERY)) If @error Then Return SetError(@error + 10, @extended, 0) _Security__SetPrivilege($hToken, "SeDebugPrivilege", True) Local $iError = @error Local $iExtended = @extended Local $iRet = 0 If Not @error Then $aResult = DllCall("kernel32.dll", "handle", "OpenProcess", "dword", $iAccess, "bool", $bInherit, "dword", $iPID) $iError = @error $iExtended = @extended If $aResult[0] Then $iRet = $aResult[0] _Security__SetPrivilege($hToken, "SeDebugPrivilege", False) If @error Then $iError = @error + 20 $iExtended = @extended EndIf Else $iError = @error + 30 EndIf DllCall("kernel32.dll", "bool", "CloseHandle", "handle", $hToken) Return SetError($iError, $iExtended, $iRet) EndFunc Global Const $FC_NOOVERWRITE = 0 Global Const $FC_OVERWRITE = 1 Global Const $FC_CREATEPATH = 8 Global Const $FT_MODIFIED = 0 Global Const $FT_CREATED = 1 Global Const $FT_ACCESSED = 2 Global Const $FT_ARRAY = 0 Global Const $FT_STRING = 1 Global Const $FSF_CREATEBUTTON = 1 Global Const $FSF_NEWDIALOG = 2 Global Const $FSF_EDITCONTROL = 4 Global Const $FT_NONRECURSIVE = 0 Global Const $FT_RECURSIVE = 1 Global Const $FO_READ = 0 Global Const $FO_APPEND = 1 Global Const $FO_OVERWRITE = 2 Global Const $FO_CREATEPATH = 8 Global Const $FO_BINARY = 16 Global Const $FO_UNICODE = 32 Global Const $FO_UTF16_LE = 32 Global Const $FO_UTF16_BE = 64 Global Const $FO_UTF8 = 128 Global Const $FO_UTF8_NOBOM = 256 Global Const $FO_ANSI = 512 Global Const $FO_UTF16_LE_NOBOM = 1024 Global Const $FO_UTF16_BE_NOBOM = 2048 Global Const $FO_UTF8_FULL = 16384 Global Const $FO_FULLFILE_DETECT = 16384 Global Const $EOF = -1 Global Const $FD_FILEMUSTEXIST = 1 Global Const $FD_PATHMUSTEXIST = 2 Global Const $FD_MULTISELECT = 4 Global Const $FD_PROMPTCREATENEW = 8 Global Const $FD_PROMPTOVERWRITE = 16 Global Const $CREATE_NEW = 1 Global Const $CREATE_ALWAYS = 2 Global Const $OPEN_EXISTING = 3 Global Const $OPEN_ALWAYS = 4 Global Const $TRUNCATE_EXISTING = 5 Global Const $INVALID_SET_FILE_POINTER = -1 Global Const $FILE_BEGIN = 0 Global Const $FILE_CURRENT = 1 Global Const $FILE_END = 2 Global Const $FILE_ATTRIBUTE_READONLY = 0x00000001 Global Const $FILE_ATTRIBUTE_HIDDEN = 0x00000002 Global Const $FILE_ATTRIBUTE_SYSTEM = 0x00000004 Global Const $FILE_ATTRIBUTE_DIRECTORY = 0x00000010 Global Const $FILE_ATTRIBUTE_ARCHIVE = 0x00000020 Global Const $FILE_ATTRIBUTE_DEVICE = 0x00000040 Global Const $FILE_ATTRIBUTE_NORMAL = 0x00000080 Global Const $FILE_ATTRIBUTE_TEMPORARY = 0x00000100 Global Const $FILE_ATTRIBUTE_SPARSE_FILE = 0x00000200 Global Const $FILE_ATTRIBUTE_REPARSE_POINT = 0x00000400 Global Const $FILE_ATTRIBUTE_COMPRESSED = 0x00000800 Global Const $FILE_ATTRIBUTE_OFFLINE = 0x00001000 Global Const $FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = 0x00002000 Global Const $FILE_ATTRIBUTE_ENCRYPTED = 0x00004000 Global Const $FILE_SHARE_READ = 0x00000001 Global Const $FILE_SHARE_WRITE = 0x00000002 Global Const $FILE_SHARE_DELETE = 0x00000004 Global Const $FILE_SHARE_READWRITE = BitOR($FILE_SHARE_READ, $FILE_SHARE_WRITE) Global Const $FILE_SHARE_ANY = BitOR($FILE_SHARE_READ, $FILE_SHARE_WRITE, $FILE_SHARE_DELETE) Global Const $GENERIC_ALL = 0x10000000 Global Const $GENERIC_EXECUTE = 0x20000000 Global Const $GENERIC_WRITE = 0x40000000 Global Const $GENERIC_READ = 0x80000000 Global Const $GENERIC_READWRITE = BitOR($GENERIC_READ, $GENERIC_WRITE) Global Const $FILE_ENCODING_UTF16LE = 32 Global Const $FE_ENTIRE_UTF8 = 1 Global Const $FE_PARTIALFIRST_UTF8 = 2 Global Const $FN_FULLPATH = 0 Global Const $FN_RELATIVEPATH = 1 Global Const $FV_COMMENTS = "Comments" Global Const $FV_COMPANYNAME = "CompanyName" Global Const $FV_FILEDESCRIPTION = "FileDescription" Global Const $FV_FILEVERSION = "FileVersion" Global Const $FV_INTERNALNAME = "InternalName" Global Const $FV_LEGALCOPYRIGHT = "LegalCopyright" Global Const $FV_LEGALTRADEMARKS = "LegalTrademarks" Global Const $FV_ORIGINALFILENAME = "OriginalFilename" Global Const $FV_PRODUCTNAME = "ProductName" Global Const $FV_PRODUCTVERSION = "ProductVersion" Global Const $FV_PRIVATEBUILD = "PrivateBuild" Global Const $FV_SPECIALBUILD = "SpecialBuild" Global Const $FRTA_NOCOUNT = 0 Global Const $FRTA_COUNT = 1 Global Const $FRTA_INTARRAYS = 2 Global Const $FRTA_ENTIRESPLIT = 4 Global Const $FLTA_FILESFOLDERS = 0 Global Const $FLTA_FILES = 1 Global Const $FLTA_FOLDERS = 2 Global Const $FLTAR_FILESFOLDERS = 0 Global Const $FLTAR_FILES = 1 Global Const $FLTAR_FOLDERS = 2 Global Const $FLTAR_NOHIDDEN = 4 Global Const $FLTAR_NOSYSTEM = 8 Global Const $FLTAR_NOLINK = 16 Global Const $FLTAR_NORECUR = 0 Global Const $FLTAR_RECUR = 1 Global Const $FLTAR_NOSORT = 0 Global Const $FLTAR_SORT = 1 Global Const $FLTAR_FASTSORT = 2 Global Const $FLTAR_NOPATH = 0 Global Const $FLTAR_RELPATH = 1 Global Const $FLTAR_FULLPATH = 2 Global Const $PATH_ORIGINAL = 0 Global Const $PATH_DRIVE = 1 Global Const $PATH_DIRECTORY = 2 Global Const $PATH_FILENAME = 3 Global Const $PATH_EXTENSION = 4 #Region Global Variables and Constants Global $__g_vEnum, $__g_vExt = 0 Global $__g_iRGBMode = 1 Global Const $tagOSVERSIONINFO = 'struct;dword OSVersionInfoSize;dword MajorVersion;dword MinorVersion;dword BuildNumber;dword PlatformId;wchar CSDVersion[128];endstruct' Global Const $IMAGE_BITMAP = 0 Global Const $IMAGE_ICON = 1 Global Const $IMAGE_CURSOR = 2 Global Const $IMAGE_ENHMETAFILE = 3 Global Const $LR_DEFAULTCOLOR = 0x0000 Global Const $LR_MONOCHROME = 0x0001 Global Const $LR_COLOR = 0x0002 Global Const $LR_COPYRETURNORG = 0x0004 Global Const $LR_COPYDELETEORG = 0x0008 Global Const $LR_LOADFROMFILE = 0x0010 Global Const $LR_LOADTRANSPARENT = 0x0020 Global Const $LR_DEFAULTSIZE = 0x0040 Global Const $LR_VGACOLOR = 0x0080 Global Const $LR_LOADMAP3DCOLORS = 0x1000 Global Const $LR_CREATEDIBSECTION = 0x2000 Global Const $LR_COPYFROMRESOURCE = 0x4000 Global Const $LR_SHARED = 0x8000 Global Const $__tagCURSORINFO = "dword Size;dword Flags;handle hCursor;" & "struct;long X;long Y;endstruct" Global Const $__WINVER = __WINVER() #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list #Region Public Functions Func _WinAPI_CreateFile($sFileName, $iCreation, $iAccess = 4, $iShare = 0, $iAttributes = 0, $tSecurity = 0) Local $iDA = 0, $iSM = 0, $iCD = 0, $iFA = 0 If BitAND($iAccess, 1) <> 0 Then $iDA = BitOR($iDA, $GENERIC_EXECUTE) If BitAND($iAccess, 2) <> 0 Then $iDA = BitOR($iDA, $GENERIC_READ) If BitAND($iAccess, 4) <> 0 Then $iDA = BitOR($iDA, $GENERIC_WRITE) If BitAND($iShare, 1) <> 0 Then $iSM = BitOR($iSM, $FILE_SHARE_DELETE) If BitAND($iShare, 2) <> 0 Then $iSM = BitOR($iSM, $FILE_SHARE_READ) If BitAND($iShare, 4) <> 0 Then $iSM = BitOR($iSM, $FILE_SHARE_WRITE) Switch $iCreation Case 0 $iCD = $CREATE_NEW Case 1 $iCD = $CREATE_ALWAYS Case 2 $iCD = $OPEN_EXISTING Case 3 $iCD = $OPEN_ALWAYS Case 4 $iCD = $TRUNCATE_EXISTING EndSwitch If BitAND($iAttributes, 1) <> 0 Then $iFA = BitOR($iFA, $FILE_ATTRIBUTE_ARCHIVE) If BitAND($iAttributes, 2) <> 0 Then $iFA = BitOR($iFA, $FILE_ATTRIBUTE_HIDDEN) If BitAND($iAttributes, 4) <> 0 Then $iFA = BitOR($iFA, $FILE_ATTRIBUTE_READONLY) If BitAND($iAttributes, 8) <> 0 Then $iFA = BitOR($iFA, $FILE_ATTRIBUTE_SYSTEM) Local $aResult = DllCall("kernel32.dll", "handle", "CreateFileW", "wstr", $sFileName, "dword", $iDA, "dword", $iSM, "struct*", $tSecurity, "dword", $iCD, "dword", $iFA, "ptr", 0) If @error Or ($aResult[0] = Ptr(-1)) Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_FreeLibrary($hModule) Local $aResult = DllCall("kernel32.dll", "bool", "FreeLibrary", "handle", $hModule) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_GetCursorInfo() Local $tCursor = DllStructCreate($__tagCURSORINFO) Local $iCursor = DllStructGetSize($tCursor) DllStructSetData($tCursor, "Size", $iCursor) Local $aRet = DllCall("user32.dll", "bool", "GetCursorInfo", "struct*", $tCursor) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Local $aCursor[5] $aCursor[0] = True $aCursor[1] = DllStructGetData($tCursor, "Flags") <> 0 $aCursor[2] = DllStructGetData($tCursor, "hCursor") $aCursor[3] = DllStructGetData($tCursor, "X") $aCursor[4] = DllStructGetData($tCursor, "Y") Return $aCursor EndFunc Func _WinAPI_GetDlgCtrlID($hWnd) Local $aResult = DllCall("user32.dll", "int", "GetDlgCtrlID", "hwnd", $hWnd) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetModuleHandle($sModuleName) Local $sModuleNameType = "wstr" If $sModuleName = "" Then $sModuleName = 0 $sModuleNameType = "ptr" EndIf Local $aResult = DllCall("kernel32.dll", "handle", "GetModuleHandleW", $sModuleNameType, $sModuleName) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetString($pString, $bUnicode = True) Local $iLength = _WinAPI_StrLen($pString, $bUnicode) If @error Or Not $iLength Then Return SetError(@error + 10, @extended, '') Local $tString = DllStructCreate(($bUnicode ? 'wchar' : 'char') & '[' & ($iLength + 1) & ']', $pString) If @error Then Return SetError(@error, @extended, '') Return SetExtended($iLength, DllStructGetData($tString, 1)) EndFunc Func _WinAPI_IsWow64Process($iPID = 0) If Not $iPID Then $iPID = @AutoItPID Local $hProcess = DllCall('kernel32.dll', 'handle', 'OpenProcess', 'dword', ($__WINVER < 0x0600 ? 0x00000400 : 0x00001000), 'bool', 0, 'dword', $iPID) If @error Or Not $hProcess[0] Then Return SetError(@error + 20, @extended, False) Local $aRet = DllCall('kernel32.dll', 'bool', 'IsWow64Process', 'handle', $hProcess[0], 'bool*', 0) If __CheckErrorCloseHandle($aRet, $hProcess[0]) Then Return SetError(@error, @extended, False) Return $aRet[2] EndFunc Func _WinAPI_LoadImage($hInstance, $sImage, $iType, $iXDesired, $iYDesired, $iLoad) Local $aResult, $sImageType = "int" If IsString($sImage) Then $sImageType = "wstr" $aResult = DllCall("user32.dll", "handle", "LoadImageW", "handle", $hInstance, $sImageType, $sImage, "uint", $iType, "int", $iXDesired, "int", $iYDesired, "uint", $iLoad) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_LoadLibrary($sFileName) Local $aResult = DllCall("kernel32.dll", "handle", "LoadLibraryW", "wstr", $sFileName) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_PathIsDirectory($sFilePath) Local $aRet = DllCall('shlwapi.dll', 'bool', 'PathIsDirectoryW', 'wstr', $sFilePath) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_ReadFile($hFile, $pBuffer, $iToRead, ByRef $iRead, $tOverlapped = 0) Local $aResult = DllCall("kernel32.dll", "bool", "ReadFile", "handle", $hFile, "struct*", $pBuffer, "dword", $iToRead, "dword*", 0, "struct*", $tOverlapped) If @error Then Return SetError(@error, @extended, False) $iRead = $aResult[4] Return $aResult[0] EndFunc Func _WinAPI_StrLen($pString, $bUnicode = True) Local $W = '' If $bUnicode Then $W = 'W' Local $aRet = DllCall('kernel32.dll', 'int', 'lstrlen' & $W, 'struct*', $pString) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SwitchColor($iColor) If $iColor = -1 Then Return $iColor Return BitOR(BitAND($iColor, 0x00FF00), BitShift(BitAND($iColor, 0x0000FF), -16), BitShift(BitAND($iColor, 0xFF0000), 16)) EndFunc Func _WinAPI_WriteFile($hFile, $pBuffer, $iToWrite, ByRef $iWritten, $tOverlapped = 0) Local $aResult = DllCall("kernel32.dll", "bool", "WriteFile", "handle", $hFile, "struct*", $pBuffer, "dword", $iToWrite, "dword*", 0, "struct*", $tOverlapped) If @error Then Return SetError(@error, @extended, False) $iWritten = $aResult[4] Return $aResult[0] EndFunc #EndRegion Public Functions #Region Internal Functions Func __CheckErrorArrayBounds(Const ByRef $aData, ByRef $iStart, ByRef $iEnd, $nDim = 1, $iDim = $UBOUND_DIMENSIONS) If Not IsArray($aData) Then Return SetError(1, 0, 1) If UBound($aData, $iDim) <> $nDim Then Return SetError(2, 0, 1) If $iStart < 0 Then $iStart = 0 Local $iUBound = UBound($aData) - 1 If $iEnd < 1 Or $iEnd > $iUBound Then $iEnd = $iUBound If $iStart > $iEnd Then Return SetError(4, 0, 1) Return 0 EndFunc Func __CheckErrorCloseHandle($aRet, $hFile, $bLastError = False, $iCurErr = @error, $iCurExt = @extended) If Not $iCurErr And Not $aRet[0] Then $iCurErr = 10 Local $aLastError = DllCall("kernel32.dll", "dword", "GetLastError") DllCall("kernel32.dll", "bool", "CloseHandle", "handle", $hFile) If $iCurErr Then DllCall("kernel32.dll", "none", "SetLastError", "dword", $aLastError[0]) If $bLastError Then $iCurExt = $aLastError[0] Return SetError($iCurErr, $iCurExt, $iCurErr) EndFunc Func __DLL($sPath, $bPin = False) Local $aRet = DllCall('kernel32.dll', 'bool', 'GetModuleHandleExW', 'dword', ($bPin ? 0x0001 : 0x0002), "wstr", $sPath, 'ptr*', 0) If Not $aRet[3] Then Local $aResult = DllCall("kernel32.dll", "handle", "LoadLibraryW", "wstr", $sPath) If Not $aResult[0] Then Return 0 EndIf Return 1 EndFunc Func __EnumWindowsProc($hWnd, $bVisible) Local $aResult If $bVisible Then $aResult = DllCall("user32.dll", "bool", "IsWindowVisible", "hwnd", $hWnd) If Not $aResult[0] Then Return 1 EndIf EndIf __Inc($__g_vEnum) $__g_vEnum[$__g_vEnum[0][0]][0] = $hWnd $aResult = DllCall("user32.dll", "int", "GetClassNameW", "hwnd", $hWnd, "wstr", "", "int", 4096) $__g_vEnum[$__g_vEnum[0][0]][1] = $aResult[2] Return 1 EndFunc Func __FatalExit($iCode, $sText = '') If $sText Then MsgBox($MB_SYSTEMMODAL, 'AutoIt', $sText) DllCall('kernel32.dll', 'none', 'FatalExit', 'int', $iCode) EndFunc Func __Inc(ByRef $aData, $iIncrement = 100) Select Case UBound($aData, $UBOUND_COLUMNS) If $iIncrement < 0 Then ReDim $aData[$aData[0][0] + 1][UBound($aData, $UBOUND_COLUMNS)] Else $aData[0][0] += 1 If $aData[0][0] > UBound($aData) - 1 Then ReDim $aData[$aData[0][0] + $iIncrement][UBound($aData, $UBOUND_COLUMNS)] EndIf EndIf Case UBound($aData, $UBOUND_ROWS) If $iIncrement < 0 Then ReDim $aData[$aData[0] + 1] Else $aData[0] += 1 If $aData[0] > UBound($aData) - 1 Then ReDim $aData[$aData[0] + $iIncrement] EndIf EndIf Case Else Return 0 EndSelect Return 1 EndFunc Func __RGB($iColor) If $__g_iRGBMode Then $iColor = _WinAPI_SwitchColor($iColor) EndIf Return $iColor EndFunc Func __WINVER() Local $tOSVI = DllStructCreate($tagOSVERSIONINFO) DllStructSetData($tOSVI, 1, DllStructGetSize($tOSVI)) Local $aRet = DllCall('kernel32.dll', 'bool', 'GetVersionExW', 'struct*', $tOSVI) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, 0) Return BitOR(BitShift(DllStructGetData($tOSVI, 2), -8), DllStructGetData($tOSVI, 3)) EndFunc #EndRegion Internal Functions #Region Global Variables and Constants Global Const $DUPLICATE_CLOSE_SOURCE = 0x00000001 Global Const $DUPLICATE_SAME_ACCESS = 0x00000002 Global Const $OBJ_BITMAP = 7 Global Const $OBJ_BRUSH = 2 Global Const $OBJ_COLORSPACE = 14 Global Const $OBJ_DC = 3 Global Const $OBJ_ENHMETADC = 12 Global Const $OBJ_ENHMETAFILE = 13 Global Const $OBJ_EXTPEN = 11 Global Const $OBJ_FONT = 6 Global Const $OBJ_MEMDC = 10 Global Const $OBJ_METADC = 4 Global Const $OBJ_METAFILE = 9 Global Const $OBJ_PAL = 5 Global Const $OBJ_PEN = 1 Global Const $OBJ_REGION = 8 Global Const $NULL_BRUSH = 5 Global Const $NULL_PEN = 8 Global Const $BLACK_BRUSH = 4 Global Const $DKGRAY_BRUSH = 3 Global Const $DC_BRUSH = 18 Global Const $GRAY_BRUSH = 2 Global Const $HOLLOW_BRUSH = $NULL_BRUSH Global Const $LTGRAY_BRUSH = 1 Global Const $WHITE_BRUSH = 0 Global Const $BLACK_PEN = 7 Global Const $DC_PEN = 19 Global Const $WHITE_PEN = 6 Global Const $ANSI_FIXED_FONT = 11 Global Const $ANSI_VAR_FONT = 12 Global Const $DEVICE_DEFAULT_FONT = 14 Global Const $DEFAULT_GUI_FONT = 17 Global Const $OEM_FIXED_FONT = 10 Global Const $SYSTEM_FONT = 13 Global Const $SYSTEM_FIXED_FONT = 16 Global Const $DEFAULT_PALETTE = 15 #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list #Region Public Functions Func _WinAPI_CloseHandle($hObject) Local $aResult = DllCall("kernel32.dll", "bool", "CloseHandle", "handle", $hObject) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_DeleteObject($hObject) Local $aResult = DllCall("gdi32.dll", "bool", "DeleteObject", "handle", $hObject) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_DuplicateHandle($hSourceProcessHandle, $hSourceHandle, $hTargetProcessHandle, $iDesiredAccess, $iInheritHandle, $iOptions) Local $aResult = DllCall("kernel32.dll", "bool", "DuplicateHandle", "handle", $hSourceProcessHandle, "handle", $hSourceHandle, "handle", $hTargetProcessHandle, "handle*", 0, "dword", $iDesiredAccess, "bool", $iInheritHandle, "dword", $iOptions) If @error Or Not $aResult[0] Then Return SetError(@error, @extended, 0) Return $aResult[4] EndFunc Func _WinAPI_GetCurrentObject($hDC, $iType) Local $aRet = DllCall('gdi32.dll', 'handle', 'GetCurrentObject', 'handle', $hDC, 'uint', $iType) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetCurrentProcess() Local $aResult = DllCall("kernel32.dll", "handle", "GetCurrentProcess") If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetObject($hObject, $iSize, $pObject) Local $aResult = DllCall("gdi32.dll", "int", "GetObjectW", "handle", $hObject, "int", $iSize, "struct*", $pObject) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetObjectInfoByHandle($hObject) Local $tagPUBLIC_OBJECT_BASIC_INFORMATION = 'ulong Attributes;ulong GrantedAcess;ulong HandleCount;ulong PointerCount;ulong Reserved[10]' Local $tPOBI = DllStructCreate($tagPUBLIC_OBJECT_BASIC_INFORMATION) Local $aRet = DllCall('ntdll.dll', 'long', 'ZwQueryObject', 'handle', $hObject, 'uint', 0, 'struct*', $tPOBI, 'ulong', DllStructGetSize($tPOBI), 'ptr', 0) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Local $aResult[4] For $i = 0 To 3 $aResult[$i] = DllStructGetData($tPOBI, $i + 1) Next Return $aResult EndFunc Func _WinAPI_GetObjectNameByHandle($hObject) Local $tagUNICODE_STRING = 'struct;ushort Length;ushort MaximumLength;ptr Buffer;endstruct' Local $tagPUBLIC_OBJECT_TYPE_INFORMATION = 'struct;' & $tagUNICODE_STRING & ';ulong Reserved[22];endstruct' Local $tPOTI = DllStructCreate($tagPUBLIC_OBJECT_TYPE_INFORMATION & ';byte[32]') Local $aRet = DllCall('ntdll.dll', 'long', 'ZwQueryObject', 'handle', $hObject, 'uint', 2, 'struct*', $tPOTI, 'ulong', DllStructGetSize($tPOTI), 'ulong*', 0) If @error Then Return SetError(@error, @extended, '') If $aRet[0] Then Return SetError(10, $aRet[0], '') Local $pData = DllStructGetData($tPOTI, 3) If Not $pData Then Return SetError(11, 0, '') Return _WinAPI_GetString($pData) EndFunc Func _WinAPI_GetObjectType($hObject) Local $aRet = DllCall('gdi32.dll', 'dword', 'GetObjectType', 'handle', $hObject) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetStdHandle($iStdHandle) If $iStdHandle < 0 Or $iStdHandle > 2 Then Return SetError(2, 0, -1) Local Const $aHandle[3] = [-10, -11, -12] Local $aResult = DllCall("kernel32.dll", "handle", "GetStdHandle", "dword", $aHandle[$iStdHandle]) If @error Then Return SetError(@error, @extended, -1) Return $aResult[0] EndFunc Func _WinAPI_GetStockObject($iObject) Local $aResult = DllCall("gdi32.dll", "handle", "GetStockObject", "int", $iObject) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_SelectObject($hDC, $hGDIObj) Local $aResult = DllCall("gdi32.dll", "handle", "SelectObject", "handle", $hDC, "handle", $hGDIObj) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_SetHandleInformation($hObject, $iMask, $iFlags) Local $aResult = DllCall("kernel32.dll", "bool", "SetHandleInformation", "handle", $hObject, "dword", $iMask, "dword", $iFlags) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc #EndRegion Public Functions Global Const $LINGUISTIC_IGNORECASE = 0x00000010 Global Const $LINGUISTIC_IGNOREDIACRITIC = 0x00000020 Global Const $NORM_IGNORECASE = 0x00000001 Global Const $NORM_IGNOREKANATYPE = 0x00010000 Global Const $NORM_IGNORENONSPACE = 0x00000002 Global Const $NORM_IGNORESYMBOLS = 0x00000004 Global Const $NORM_IGNOREWIDTH = 0x00020000 Global Const $NORM_LINGUISTIC_CASING = 0x08000000 Global Const $SORT_DIGITSASNUMBERS = 0x00000008 Global Const $SORT_STRINGSORT = 0x00001000 Global Const $CSTR_LESS_THAN = 1 Global Const $CSTR_EQUAL = 2 Global Const $CSTR_GREATER_THAN = 3 Global Const $MUI_LANGUAGE_ID = 0x0004 Global Const $MUI_LANGUAGE_NAME = 0x0008 Global Const $DATE_AUTOLAYOUT = 0x40 Global Const $DATE_LONGDATE = 0x02 Global Const $DATE_LTRREADING = 0x10 Global Const $DATE_SHORTDATE = 0x01 Global Const $DATE_RTLREADING = 0x20 Global Const $DATE_USE_ALT_CALENDAR = 0x04 Global Const $DATE_YEARMONTH = 0x08 Global Const $GEO_NATION = 1 Global Const $GEO_LATITUDE = 2 Global Const $GEO_LONGITUDE = 3 Global Const $GEO_ISO2 = 4 Global Const $GEO_ISO3 = 5 Global Const $GEO_RFC1766 = 6 Global Const $GEO_LCID = 7 Global Const $GEO_FRIENDLYNAME = 8 Global Const $GEO_OFFICIALNAME = 9 Global Const $GEO_TIMEZONES = 10 Global Const $GEO_OFFICIALLANGUAGES = 11 Global Const $GEO_ISO_UN_NUMBER = 12 Global Const $GEO_PARENT = 13 Global Const $LOCALE_ILANGUAGE = 0x0001 Global Const $LOCALE_SLANGUAGE = 0x0002 Global Const $LOCALE_SENGLANGUAGE = 0x1001 Global Const $LOCALE_SABBREVLANGNAME = 0x0003 Global Const $LOCALE_SNATIVELANGNAME = 0x0004 Global Const $LOCALE_ICOUNTRY = 0x0005 Global Const $LOCALE_SCOUNTRY = 0x0006 Global Const $LOCALE_SENGCOUNTRY = 0x1002 Global Const $LOCALE_SABBREVCTRYNAME = 0x0007 Global Const $LOCALE_SNATIVECTRYNAME = 0x0008 Global Const $LOCALE_IDEFAULTLANGUAGE = 0x0009 Global Const $LOCALE_IDEFAULTCOUNTRY = 0x000A Global Const $LOCALE_IDEFAULTCODEPAGE = 0x000B Global Const $LOCALE_IDEFAULTANSICODEPAGE = 0x1004 Global Const $LOCALE_IDEFAULTMACCODEPAGE = 0x1011 Global Const $LOCALE_SLIST = 0x000C Global Const $LOCALE_IMEASURE = 0x000D Global Const $LOCALE_SDECIMAL = 0x000E Global Const $LOCALE_STHOUSAND = 0x000F Global Const $LOCALE_SGROUPING = 0x0010 Global Const $LOCALE_IDIGITS = 0x0011 Global Const $LOCALE_ILZERO = 0x0012 Global Const $LOCALE_INEGNUMBER = 0x1010 Global Const $LOCALE_SNATIVEDIGITS = 0x0013 Global Const $LOCALE_SCURRENCY = 0x0014 Global Const $LOCALE_SINTLSYMBOL = 0x0015 Global Const $LOCALE_SMONDECIMALSEP = 0x0016 Global Const $LOCALE_SMONTHOUSANDSEP = 0x0017 Global Const $LOCALE_SMONGROUPING = 0x0018 Global Const $LOCALE_ICURRDIGITS = 0x0019 Global Const $LOCALE_IINTLCURRDIGITS = 0x001A Global Const $LOCALE_ICURRENCY = 0x001B Global Const $LOCALE_INEGCURR = 0x001C Global Const $LOCALE_SDATE = 0x001D Global Const $LOCALE_STIME = 0x001E Global Const $LOCALE_SSHORTDATE = 0x001F Global Const $LOCALE_SLONGDATE = 0x0020 Global Const $LOCALE_STIMEFORMAT = 0x1003 Global Const $LOCALE_IDATE = 0x0021 Global Const $LOCALE_ILDATE = 0x0022 Global Const $LOCALE_ITIME = 0x0023 Global Const $LOCALE_ITIMEMARKPOSN = 0x1005 Global Const $LOCALE_ICENTURY = 0x0024 Global Const $LOCALE_ITLZERO = 0x0025 Global Const $LOCALE_IDAYLZERO = 0x0026 Global Const $LOCALE_IMONLZERO = 0x0027 Global Const $LOCALE_S1159 = 0x0028 Global Const $LOCALE_S2359 = 0x0029 Global Const $LOCALE_ICALENDARTYPE = 0x1009 Global Const $LOCALE_IOPTIONALCALENDAR = 0x100B Global Const $LOCALE_IFIRSTDAYOFWEEK = 0x100C Global Const $LOCALE_IFIRSTWEEKOFYEAR = 0x100D Global Const $LOCALE_SDAYNAME1 = 0x002A Global Const $LOCALE_SDAYNAME2 = 0x002B Global Const $LOCALE_SDAYNAME3 = 0x002C Global Const $LOCALE_SDAYNAME4 = 0x002D Global Const $LOCALE_SDAYNAME5 = 0x002E Global Const $LOCALE_SDAYNAME6 = 0x002F Global Const $LOCALE_SDAYNAME7 = 0x0030 Global Const $LOCALE_SABBREVDAYNAME1 = 0x0031 Global Const $LOCALE_SABBREVDAYNAME2 = 0x0032 Global Const $LOCALE_SABBREVDAYNAME3 = 0x0033 Global Const $LOCALE_SABBREVDAYNAME4 = 0x0034 Global Const $LOCALE_SABBREVDAYNAME5 = 0x0035 Global Const $LOCALE_SABBREVDAYNAME6 = 0x0036 Global Const $LOCALE_SABBREVDAYNAME7 = 0x0037 Global Const $LOCALE_SMONTHNAME1 = 0x0038 Global Const $LOCALE_SMONTHNAME2 = 0x0039 Global Const $LOCALE_SMONTHNAME3 = 0x003A Global Const $LOCALE_SMONTHNAME4 = 0x003B Global Const $LOCALE_SMONTHNAME5 = 0x003C Global Const $LOCALE_SMONTHNAME6 = 0x003D Global Const $LOCALE_SMONTHNAME7 = 0x003E Global Const $LOCALE_SMONTHNAME8 = 0x003F Global Const $LOCALE_SMONTHNAME9 = 0x0040 Global Const $LOCALE_SMONTHNAME10 = 0x0041 Global Const $LOCALE_SMONTHNAME11 = 0x0042 Global Const $LOCALE_SMONTHNAME12 = 0x0043 Global Const $LOCALE_SMONTHNAME13 = 0x100E Global Const $LOCALE_SABBREVMONTHNAME1 = 0x0044 Global Const $LOCALE_SABBREVMONTHNAME2 = 0x0045 Global Const $LOCALE_SABBREVMONTHNAME3 = 0x0046 Global Const $LOCALE_SABBREVMONTHNAME4 = 0x0047 Global Const $LOCALE_SABBREVMONTHNAME5 = 0x0048 Global Const $LOCALE_SABBREVMONTHNAME6 = 0x0049 Global Const $LOCALE_SABBREVMONTHNAME7 = 0x004A Global Const $LOCALE_SABBREVMONTHNAME8 = 0x004B Global Const $LOCALE_SABBREVMONTHNAME9 = 0x004C Global Const $LOCALE_SABBREVMONTHNAME10 = 0x004D Global Const $LOCALE_SABBREVMONTHNAME11 = 0x004E Global Const $LOCALE_SABBREVMONTHNAME12 = 0x004F Global Const $LOCALE_SABBREVMONTHNAME13 = 0x100F Global Const $LOCALE_SPOSITIVESIGN = 0x0050 Global Const $LOCALE_SNEGATIVESIGN = 0x0051 Global Const $LOCALE_IPOSSIGNPOSN = 0x0052 Global Const $LOCALE_INEGSIGNPOSN = 0x0053 Global Const $LOCALE_IPOSSYMPRECEDES = 0x0054 Global Const $LOCALE_IPOSSEPBYSPACE = 0x0055 Global Const $LOCALE_INEGSYMPRECEDES = 0x0056 Global Const $LOCALE_INEGSEPBYSPACE = 0x0057 Global Const $LOCALE_FONTSIGNATURE = 0x0058 Global Const $LOCALE_SISO639LANGNAME = 0x0059 Global Const $LOCALE_SISO3166CTRYNAME = 0x005A Global Const $LOCALE_IDEFAULTEBCDICCODEPAGE = 0x1012 Global Const $LOCALE_IPAPERSIZE = 0x100A Global Const $LOCALE_SENGCURRNAME = 0x1007 Global Const $LOCALE_SNATIVECURRNAME = 0x1008 Global Const $LOCALE_SYEARMONTH = 0x1006 Global Const $LOCALE_SSORTNAME = 0x1013 Global Const $LOCALE_IDIGITSUBSTITUTION = 0x1014 Global Const $LOCALE_CUSTOM_DEFAULT = 0x0C00 Global Const $LOCALE_CUSTOM_UI_DEFAULT = 0x1400 Global Const $LOCALE_CUSTOM_UNSPECIFIED = 0x1000 Global Const $LOCALE_INVARIANT = 0x007F Global Const $LOCALE_SYSTEM_DEFAULT = 0x0800 Global Const $LOCALE_USER_DEFAULT = 0x0400 Global Const $TIME_FORCE24HOURFORMAT = 0x08 Global Const $TIME_NOMINUTESORSECONDS = 0x01 Global Const $TIME_NOSECONDS = 0x02 Global Const $TIME_NOTIMEMARKER = 0x04 Global Const $LCID_INSTALLED = 1 Global Const $LCID_SUPPORTED = 2 #Region Global Variables and Constants Global Const $tagNUMBERFMT = 'uint NumDigits;uint LeadingZero;uint Grouping;ptr DecimalSep;ptr ThousandSep;uint NegativeOrder' #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list #Region Public Functions Func _WinAPI_CompareString($iLCID, $sString1, $sString2, $iFlags = 0) Local $aRet = DllCall('kernel32.dll', 'int', 'CompareStringW', 'dword', $iLCID, 'dword', $iFlags, 'wstr', $sString1, 'int', -1, 'wstr', $sString2, 'int', -1) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CreateNumberFormatInfo($iNumDigits, $iLeadingZero, $iGrouping, $sDecimalSep, $sThousandSep, $iNegativeOrder) Local $tFMT = DllStructCreate($tagNUMBERFMT & ';wchar[' & (StringLen($sDecimalSep) + 1) & '];wchar[' & (StringLen($sThousandSep) + 1) & ']') DllStructSetData($tFMT, 1, $iNumDigits) DllStructSetData($tFMT, 2, $iLeadingZero) DllStructSetData($tFMT, 3, $iGrouping) DllStructSetData($tFMT, 4, DllStructGetPtr($tFMT, 7)) DllStructSetData($tFMT, 5, DllStructGetPtr($tFMT, 8)) DllStructSetData($tFMT, 6, $iNegativeOrder) DllStructSetData($tFMT, 7, $sDecimalSep) DllStructSetData($tFMT, 8, $sThousandSep) Return $tFMT EndFunc Func _WinAPI_EnumSystemGeoID() Local $hEnumProc = DllCallbackRegister('__EnumGeoIDProc', 'bool', 'long') Dim $__g_vEnum[101] = [0] Local $aRet = DllCall('kernel32.dll', 'bool', 'EnumSystemGeoID', 'dword', 16, 'long', 0, 'ptr', DllCallbackGetPtr($hEnumProc)) If @error Or Not $aRet[0] Or Not $__g_vEnum[0] Then $__g_vEnum = @error + 10 EndIf DllCallbackFree($hEnumProc) If $__g_vEnum Then Return SetError($__g_vEnum, 0, 0) __Inc($__g_vEnum, -1) Return $__g_vEnum EndFunc Func _WinAPI_EnumSystemLocales($iFlag) Local $hEnumProc = DllCallbackRegister('__EnumLocalesProc', 'bool', 'ptr') Dim $__g_vEnum[101] = [0] Local $aRet = DllCall('kernel32.dll', 'bool', 'EnumSystemLocalesW', 'ptr', DllCallbackGetPtr($hEnumProc), 'dword', $iFlag) If @error Or Not $aRet[0] Or Not $__g_vEnum[0] Then $__g_vEnum = @error + 10 EndIf DllCallbackFree($hEnumProc) If $__g_vEnum Then Return SetError($__g_vEnum, 0, 0) __Inc($__g_vEnum, -1) Return $__g_vEnum EndFunc Func _WinAPI_EnumUILanguages($iFlag = 0) Local $hEnumProc = DllCallbackRegister('__EnumUILanguagesProc', 'bool', 'ptr;long_ptr') Local $iID = 1 If $__WINVER >= 0x0600 Then If BitAND($iFlag, 0x0008) Then $iID = 0 EndIf Else $iFlag = 0 EndIf Dim $__g_vEnum[101] = [0] Local $aRet = DllCall('kernel32.dll', 'bool', 'EnumUILanguagesW', 'ptr', DllCallbackGetPtr($hEnumProc), 'dword', $iFlag, 'long_ptr', $iID) If @error Or Not $aRet[0] Or Not $__g_vEnum[0] Then $__g_vEnum = @error + 10 EndIf DllCallbackFree($hEnumProc) If $__g_vEnum Then Return SetError($__g_vEnum, 0, 0) __Inc($__g_vEnum, -1) Return $__g_vEnum EndFunc Func _WinAPI_GetDateFormat($iLCID = 0, $tSYSTEMTIME = 0, $iFlags = 0, $sFormat = '') If Not $iLCID Then $iLCID = 0x0400 Local $sTypeOfFormat = 'wstr' If Not StringStripWS($sFormat, $STR_STRIPLEADING + $STR_STRIPTRAILING) Then $sTypeOfFormat = 'ptr' $sFormat = 0 EndIf Local $aRet = DllCall('kernel32.dll', 'int', 'GetDateFormatW', 'dword', $iLCID, 'dword', $iFlags, 'struct*', $tSYSTEMTIME, $sTypeOfFormat, $sFormat, 'wstr', '', 'int', 2048) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, '') Return $aRet[5] EndFunc Func _WinAPI_GetDurationFormat($iLCID, $iDuration, $sFormat = '') If Not $iLCID Then $iLCID = 0x0400 Local $pST, $iVal If IsDllStruct($iDuration) Then $pST = DllStructGetPtr($iDuration) $iVal = 0 Else $pST = 0 $iVal = $iDuration EndIf Local $sTypeOfFormat = 'wstr' If Not StringStripWS($sFormat, $STR_STRIPLEADING + $STR_STRIPTRAILING) Then $sTypeOfFormat = 'ptr' $sFormat = 0 EndIf Local $aRet = DllCall('kernel32.dll', 'int', 'GetDurationFormat', 'dword', $iLCID, 'dword', 0, 'ptr', $pST, 'uint64', $iVal, $sTypeOfFormat, $sFormat, 'wstr', '', 'int', 2048) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, '') Return $aRet[6] EndFunc Func _WinAPI_GetGeoInfo($iGEOID, $iType, $iLanguage = 0) Local $aRet = DllCall('kernel32.dll', 'int', 'GetGeoInfoW', 'long', $iGEOID, 'dword', $iType, 'wstr', '', 'int', 4096, 'word', $iLanguage) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, 0) Return $aRet[3] EndFunc Func _WinAPI_GetLocaleInfo($iLCID, $iType) Local $aRet = DllCall('kernel32.dll', 'int', 'GetLocaleInfoW', 'dword', $iLCID, 'dword', $iType, 'wstr', '', 'int', 2048) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, '') Return $aRet[3] EndFunc Func _WinAPI_GetNumberFormat($iLCID, $sNumber, $tNUMBERFMT = 0) If Not $iLCID Then $iLCID = 0x0400 Local $aRet = DllCall('kernel32.dll', 'int', 'GetNumberFormatW', 'dword', $iLCID, 'dword', 0, 'wstr', $sNumber, 'struct*', $tNUMBERFMT, 'wstr', '', 'int', 2048) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, '') Return $aRet[5] EndFunc Func _WinAPI_GetSystemDefaultLangID() Local $aRet = DllCall('kernel32.dll', 'word', 'GetSystemDefaultLangID') If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetSystemDefaultLCID() Local $aRet = DllCall('kernel32.dll', 'dword', 'GetSystemDefaultLCID') If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetSystemDefaultUILanguage() Local $aRet = DllCall('kernel32.dll', 'word', 'GetSystemDefaultUILanguage') If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetThreadLocale() Local $aRet = DllCall('kernel32.dll', 'dword', 'GetThreadLocale') If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetThreadUILanguage() Local $aRet = DllCall('kernel32.dll', 'word', 'GetThreadUILanguage') If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetTimeFormat($iLCID = 0, $tSYSTEMTIME = 0, $iFlags = 0, $sFormat = '') If Not $iLCID Then $iLCID = 0x0400 Local $sTypeOfFormat = 'wstr' If Not StringStripWS($sFormat, $STR_STRIPLEADING + $STR_STRIPTRAILING) Then $sTypeOfFormat = 'ptr' $sFormat = 0 EndIf Local $aRet = DllCall('kernel32.dll', 'int', 'GetTimeFormatW', 'dword', $iLCID, 'dword', $iFlags, 'struct*', $tSYSTEMTIME, $sTypeOfFormat, $sFormat, 'wstr', '', 'int', 2048) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, '') Return $aRet[5] EndFunc Func _WinAPI_GetUserDefaultLangID() Local $aRet = DllCall('kernel32.dll', 'word', 'GetUserDefaultLangID') If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetUserDefaultLCID() Local $aRet = DllCall('kernel32.dll', 'dword', 'GetUserDefaultLCID') If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetUserDefaultUILanguage() Local $aRet = DllCall('kernel32.dll', 'word', 'GetUserDefaultUILanguage') If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetUserGeoID() Local $aRet = DllCall('kernel32.dll', 'long', 'GetUserGeoID', 'uint', 16) If @error Then Return SetError(@error, @extended, -1) Return $aRet[0] EndFunc Func _WinAPI_IsValidLocale($iLCID, $iFlag = 0) Local $aRet = DllCall('kernel32.dll', 'bool', 'IsValidLocale', 'dword', $iLCID, 'dword', $iFlag) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetLocaleInfo($iLCID, $iType, $sData) Local $aRet = DllCall('kernel32.dll', 'bool', 'SetLocaleInfoW', 'dword', $iLCID, 'dword', $iType, 'wstr', $sData) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetThreadLocale($iLCID) Local $aRet = DllCall('kernel32.dll', 'bool', 'SetThreadLocale', 'dword', $iLCID) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetThreadUILanguage($iLanguage) Local $aRet = DllCall('kernel32.dll', 'word', 'SetThreadUILanguage', 'word', $iLanguage) If @error Then Return SetError(@error, @extended, False) Return ($aRet[0] = $aRet[1]) EndFunc Func _WinAPI_SetUserGeoID($iGEOID) Local $aRet = DllCall('kernel32.dll', 'bool', 'SetUserGeoID', 'long', $iGEOID) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc #EndRegion Public Functions #Region Internal Functions Func __EnumGeoIDProc($iID) __Inc($__g_vEnum) $__g_vEnum[$__g_vEnum[0]] = $iID Return 1 EndFunc Func __EnumLocalesProc($pLocale) __Inc($__g_vEnum) $__g_vEnum[$__g_vEnum[0]] = Dec(DllStructGetData(DllStructCreate('wchar[' & (_WinAPI_StrLen($pLocale) + 1) & ']', $pLocale), 1)) Return 1 EndFunc Func __EnumUILanguagesProc($pLanguage, $iID) __Inc($__g_vEnum) $__g_vEnum[$__g_vEnum[0]] = DllStructGetData(DllStructCreate('wchar[' & (_WinAPI_StrLen($pLanguage) + 1) & ']', $pLanguage), 1) If $iID Then $__g_vEnum[$__g_vEnum[0]] = Dec($__g_vEnum[$__g_vEnum[0]]) EndIf Return 1 EndFunc #EndRegion Internal Functions Func _DateAdd($sType, $iNumber, $sDate) Local $asTimePart[4] Local $asDatePart[4] Local $iJulianDate $sType = StringLeft($sType, 1) If StringInStr("D,M,Y,w,h,n,s", $sType) = 0 Or $sType = "" Then Return SetError(1, 0, 0) EndIf If Not StringIsInt($iNumber) Then Return SetError(2, 0, 0) EndIf If Not _DateIsValid($sDate) Then Return SetError(3, 0, 0) EndIf _DateTimeSplit($sDate, $asDatePart, $asTimePart) If $sType = "d" Or $sType = "w" Then If $sType = "w" Then $iNumber = $iNumber * 7 $iJulianDate = _DateToDayValue($asDatePart[1], $asDatePart[2], $asDatePart[3]) + $iNumber _DayValueToDate($iJulianDate, $asDatePart[1], $asDatePart[2], $asDatePart[3]) EndIf If $sType = "m" Then $asDatePart[2] = $asDatePart[2] + $iNumber While $asDatePart[2] > 12 $asDatePart[2] = $asDatePart[2] - 12 $asDatePart[1] = $asDatePart[1] + 1 WEnd While $asDatePart[2] < 1 $asDatePart[2] = $asDatePart[2] + 12 $asDatePart[1] = $asDatePart[1] - 1 WEnd EndIf If $sType = "y" Then $asDatePart[1] = $asDatePart[1] + $iNumber EndIf If $sType = "h" Or $sType = "n" Or $sType = "s" Then Local $iTimeVal = _TimeToTicks($asTimePart[1], $asTimePart[2], $asTimePart[3]) / 1000 If $sType = "h" Then $iTimeVal = $iTimeVal + $iNumber * 3600 If $sType = "n" Then $iTimeVal = $iTimeVal + $iNumber * 60 If $sType = "s" Then $iTimeVal = $iTimeVal + $iNumber Local $iDay2Add = Int($iTimeVal / (24 * 60 * 60)) $iTimeVal = $iTimeVal - $iDay2Add * 24 * 60 * 60 If $iTimeVal < 0 Then $iDay2Add = $iDay2Add - 1 $iTimeVal = $iTimeVal + 24 * 60 * 60 EndIf $iJulianDate = _DateToDayValue($asDatePart[1], $asDatePart[2], $asDatePart[3]) + $iDay2Add _DayValueToDate($iJulianDate, $asDatePart[1], $asDatePart[2], $asDatePart[3]) _TicksToTime($iTimeVal * 1000, $asTimePart[1], $asTimePart[2], $asTimePart[3]) EndIf Local $iNumDays = _DaysInMonth($asDatePart[1]) If $iNumDays[$asDatePart[2]] < $asDatePart[3] Then $asDatePart[3] = $iNumDays[$asDatePart[2]] $sDate = $asDatePart[1] & '/' & StringRight("0" & $asDatePart[2], 2) & '/' & StringRight("0" & $asDatePart[3], 2) If $asTimePart[0] > 0 Then If $asTimePart[0] > 2 Then $sDate = $sDate & " " & StringRight("0" & $asTimePart[1], 2) & ':' & StringRight("0" & $asTimePart[2], 2) & ':' & StringRight("0" & $asTimePart[3], 2) Else $sDate = $sDate & " " & StringRight("0" & $asTimePart[1], 2) & ':' & StringRight("0" & $asTimePart[2], 2) EndIf EndIf Return $sDate EndFunc Func _DateDayOfWeek($iDayNum, $iFormat = Default) Local Const $MONDAY_IS_NO1 = 128 If $iFormat = Default Then $iFormat = 0 $iDayNum = Int($iDayNum) If $iDayNum < 1 Or $iDayNum > 7 Then Return SetError(1, 0, "") Local $tSYSTEMTIME = DllStructCreate($tagSYSTEMTIME) DllStructSetData($tSYSTEMTIME, "Year", BitAND($iFormat, $MONDAY_IS_NO1) ? 2007 : 2006) DllStructSetData($tSYSTEMTIME, "Month", 1) DllStructSetData($tSYSTEMTIME, "Day", $iDayNum) Return _WinAPI_GetDateFormat(BitAND($iFormat, $DMW_LOCALE_LONGNAME) ? $LOCALE_USER_DEFAULT : $LOCALE_INVARIANT, $tSYSTEMTIME, 0, BitAND($iFormat, $DMW_SHORTNAME) ? "ddd" : "dddd") EndFunc Func _DateDaysInMonth($iYear, $iMonthNum) $iMonthNum = Int($iMonthNum) $iYear = Int($iYear) Return __DateIsMonth($iMonthNum) And __DateIsYear($iYear) ? _DaysInMonth($iYear)[$iMonthNum] : SetError(1, 0, 0) EndFunc Func _DateDiff($sType, $sStartDate, $sEndDate) $sType = StringLeft($sType, 1) If StringInStr("d,m,y,w,h,n,s", $sType) = 0 Or $sType = "" Then Return SetError(1, 0, 0) EndIf If Not _DateIsValid($sStartDate) Then Return SetError(2, 0, 0) EndIf If Not _DateIsValid($sEndDate) Then Return SetError(3, 0, 0) EndIf Local $asStartDatePart[4], $asStartTimePart[4], $asEndDatePart[4], $asEndTimePart[4] _DateTimeSplit($sStartDate, $asStartDatePart, $asStartTimePart) _DateTimeSplit($sEndDate, $asEndDatePart, $asEndTimePart) Local $aDaysDiff = _DateToDayValue($asEndDatePart[1], $asEndDatePart[2], $asEndDatePart[3]) - _DateToDayValue($asStartDatePart[1], $asStartDatePart[2], $asStartDatePart[3]) Local $iTimeDiff, $iYearDiff, $iStartTimeInSecs, $iEndTimeInSecs If $asStartTimePart[0] > 1 And $asEndTimePart[0] > 1 Then $iStartTimeInSecs = $asStartTimePart[1] * 3600 + $asStartTimePart[2] * 60 + $asStartTimePart[3] $iEndTimeInSecs = $asEndTimePart[1] * 3600 + $asEndTimePart[2] * 60 + $asEndTimePart[3] $iTimeDiff = $iEndTimeInSecs - $iStartTimeInSecs If $iTimeDiff < 0 Then $aDaysDiff = $aDaysDiff - 1 $iTimeDiff = $iTimeDiff + 24 * 60 * 60 EndIf Else $iTimeDiff = 0 EndIf Select Case $sType = "d" Return $aDaysDiff Case $sType = "m" $iYearDiff = $asEndDatePart[1] - $asStartDatePart[1] Local $iMonthDiff = $asEndDatePart[2] - $asStartDatePart[2] + $iYearDiff * 12 If $asEndDatePart[3] < $asStartDatePart[3] Then $iMonthDiff = $iMonthDiff - 1 $iStartTimeInSecs = $asStartTimePart[1] * 3600 + $asStartTimePart[2] * 60 + $asStartTimePart[3] $iEndTimeInSecs = $asEndTimePart[1] * 3600 + $asEndTimePart[2] * 60 + $asEndTimePart[3] $iTimeDiff = $iEndTimeInSecs - $iStartTimeInSecs If $asEndDatePart[3] = $asStartDatePart[3] And $iTimeDiff < 0 Then $iMonthDiff = $iMonthDiff - 1 Return $iMonthDiff Case $sType = "y" $iYearDiff = $asEndDatePart[1] - $asStartDatePart[1] If $asEndDatePart[2] < $asStartDatePart[2] Then $iYearDiff = $iYearDiff - 1 If $asEndDatePart[2] = $asStartDatePart[2] And $asEndDatePart[3] < $asStartDatePart[3] Then $iYearDiff = $iYearDiff - 1 $iStartTimeInSecs = $asStartTimePart[1] * 3600 + $asStartTimePart[2] * 60 + $asStartTimePart[3] $iEndTimeInSecs = $asEndTimePart[1] * 3600 + $asEndTimePart[2] * 60 + $asEndTimePart[3] $iTimeDiff = $iEndTimeInSecs - $iStartTimeInSecs If $asEndDatePart[2] = $asStartDatePart[2] And $asEndDatePart[3] = $asStartDatePart[3] And $iTimeDiff < 0 Then $iYearDiff = $iYearDiff - 1 Return $iYearDiff Case $sType = "w" Return Int($aDaysDiff / 7) Case $sType = "h" Return $aDaysDiff * 24 + Int($iTimeDiff / 3600) Case $sType = "n" Return $aDaysDiff * 24 * 60 + Int($iTimeDiff / 60) Case $sType = "s" Return $aDaysDiff * 24 * 60 * 60 + $iTimeDiff EndSelect EndFunc Func _DateIsLeapYear($iYear) If StringIsInt($iYear) Then Select Case Mod($iYear, 4) = 0 And Mod($iYear, 100) <> 0 Return 1 Case Mod($iYear, 400) = 0 Return 1 Case Else Return 0 EndSelect EndIf Return SetError(1, 0, 0) EndFunc Func __DateIsMonth($iNumber) $iNumber = Int($iNumber) Return $iNumber >= 1 And $iNumber <= 12 EndFunc Func _DateIsValid($sDate) Local $asDatePart[4], $asTimePart[4] _DateTimeSplit($sDate, $asDatePart, $asTimePart) If Not StringIsInt($asDatePart[1]) Then Return 0 If Not StringIsInt($asDatePart[2]) Then Return 0 If Not StringIsInt($asDatePart[3]) Then Return 0 $asDatePart[1] = Int($asDatePart[1]) $asDatePart[2] = Int($asDatePart[2]) $asDatePart[3] = Int($asDatePart[3]) Local $iNumDays = _DaysInMonth($asDatePart[1]) If $asDatePart[1] < 1000 Or $asDatePart[1] > 2999 Then Return 0 If $asDatePart[2] < 1 Or $asDatePart[2] > 12 Then Return 0 If $asDatePart[3] < 1 Or $asDatePart[3] > $iNumDays[$asDatePart[2]] Then Return 0 If $asTimePart[0] < 1 Then Return 1 If $asTimePart[0] < 2 Then Return 0 If $asTimePart[0] = 2 Then $asTimePart[3] = "00" If Not StringIsInt($asTimePart[1]) Then Return 0 If Not StringIsInt($asTimePart[2]) Then Return 0 If Not StringIsInt($asTimePart[3]) Then Return 0 $asTimePart[1] = Int($asTimePart[1]) $asTimePart[2] = Int($asTimePart[2]) $asTimePart[3] = Int($asTimePart[3]) If $asTimePart[1] < 0 Or $asTimePart[1] > 23 Then Return 0 If $asTimePart[2] < 0 Or $asTimePart[2] > 59 Then Return 0 If $asTimePart[3] < 0 Or $asTimePart[3] > 59 Then Return 0 Return 1 EndFunc Func __DateIsYear($iNumber) Return StringLen($iNumber) = 4 EndFunc Func _DateLastWeekdayNum($iWeekdayNum) Select Case Not StringIsInt($iWeekdayNum) Return SetError(1, 0, 0) Case $iWeekdayNum < 1 Or $iWeekdayNum > 7 Return SetError(2, 0, 0) Case Else Local $iLastWeekdayNum If $iWeekdayNum = 1 Then $iLastWeekdayNum = 7 Else $iLastWeekdayNum = $iWeekdayNum - 1 EndIf Return $iLastWeekdayNum EndSelect EndFunc Func _DateLastMonthNum($iMonthNum) Select Case Not StringIsInt($iMonthNum) Return SetError(1, 0, 0) Case Not __DateIsMonth($iMonthNum) Return SetError(2, 0, 0) Case Else Local $iLastMonthNum If $iMonthNum = 1 Then $iLastMonthNum = 12 Else $iLastMonthNum = $iMonthNum - 1 EndIf $iLastMonthNum = StringFormat("%02d", $iLastMonthNum) Return $iLastMonthNum EndSelect EndFunc Func _DateLastMonthYear($iMonthNum, $iYear) Select Case Not StringIsInt($iMonthNum) Or Not StringIsInt($iYear) Return SetError(1, 0, 0) Case Not __DateIsMonth($iMonthNum) Return SetError(2, 0, 0) Case Else Local $iLastYear If $iMonthNum = 1 Then $iLastYear = $iYear - 1 Else $iLastYear = $iYear EndIf $iLastYear = StringFormat("%04d", $iLastYear) Return $iLastYear EndSelect EndFunc Func _DateNextWeekdayNum($iWeekdayNum) Select Case Not StringIsInt($iWeekdayNum) Return SetError(1, 0, 0) Case $iWeekdayNum < 1 Or $iWeekdayNum > 7 Return SetError(2, 0, 0) Case Else Local $iNextWeekdayNum If $iWeekdayNum = 7 Then $iNextWeekdayNum = 1 Else $iNextWeekdayNum = $iWeekdayNum + 1 EndIf Return $iNextWeekdayNum EndSelect EndFunc Func _DateNextMonthNum($iMonthNum) Select Case Not StringIsInt($iMonthNum) Return SetError(1, 0, 0) Case Not __DateIsMonth($iMonthNum) Return SetError(2, 0, 0) Case Else Local $iNextMonthNum If $iMonthNum = 12 Then $iNextMonthNum = 1 Else $iNextMonthNum = $iMonthNum + 1 EndIf $iNextMonthNum = StringFormat("%02d", $iNextMonthNum) Return $iNextMonthNum EndSelect EndFunc Func _DateNextMonthYear($iMonthNum, $iYear) Select Case Not StringIsInt($iMonthNum) Or Not StringIsInt($iYear) Return SetError(1, 0, 0) Case Not __DateIsMonth($iMonthNum) Return SetError(2, 0, 0) Case Else Local $iNextYear If $iMonthNum = 12 Then $iNextYear = $iYear + 1 Else $iNextYear = $iYear EndIf $iNextYear = StringFormat("%04d", $iNextYear) Return $iNextYear EndSelect EndFunc Func _DateTimeFormat($sDate, $sType) Local $asDatePart[4], $asTimePart[4] Local $sTempDate = "", $sTempTime = "" Local $sAM, $sPM, $sTempString = "" If Not _DateIsValid($sDate) Then Return SetError(1, 0, "") EndIf If $sType < 0 Or $sType > 5 Or Not IsInt($sType) Then Return SetError(2, 0, "") EndIf _DateTimeSplit($sDate, $asDatePart, $asTimePart) Switch $sType Case 0 $sTempString = _WinAPI_GetLocaleInfo($LOCALE_USER_DEFAULT, $LOCALE_SSHORTDATE) If Not @error And Not ($sTempString = '') Then $sTempDate = $sTempString Else $sTempDate = "M/d/yyyy" EndIf If $asTimePart[0] > 1 Then $sTempString = _WinAPI_GetLocaleInfo($LOCALE_USER_DEFAULT, $LOCALE_STIMEFORMAT) If Not @error And Not ($sTempString = '') Then $sTempTime = $sTempString Else $sTempTime = "h:mm:ss tt" EndIf EndIf Case 1 $sTempString = _WinAPI_GetLocaleInfo($LOCALE_USER_DEFAULT, $LOCALE_SLONGDATE) If Not @error And Not ($sTempString = '') Then $sTempDate = $sTempString Else $sTempDate = "dddd, MMMM dd, yyyy" EndIf Case 2 $sTempString = _WinAPI_GetLocaleInfo($LOCALE_USER_DEFAULT, $LOCALE_SSHORTDATE) If Not @error And Not ($sTempString = '') Then $sTempDate = $sTempString Else $sTempDate = "M/d/yyyy" EndIf Case 3 If $asTimePart[0] > 1 Then $sTempString = _WinAPI_GetLocaleInfo($LOCALE_USER_DEFAULT, $LOCALE_STIMEFORMAT) If Not @error And Not ($sTempString = '') Then $sTempTime = $sTempString Else $sTempTime = "h:mm:ss tt" EndIf EndIf Case 4 If $asTimePart[0] > 1 Then $sTempTime = "hh:mm" EndIf Case 5 If $asTimePart[0] > 1 Then $sTempTime = "hh:mm:ss" EndIf EndSwitch If $sTempDate <> "" Then $sTempString = _WinAPI_GetLocaleInfo($LOCALE_USER_DEFAULT, $LOCALE_SDATE) If Not @error And Not ($sTempString = '') Then $sTempDate = StringReplace($sTempDate, "/", $sTempString) EndIf Local $iWday = _DateToDayOfWeek($asDatePart[1], $asDatePart[2], $asDatePart[3]) $asDatePart[3] = StringRight("0" & $asDatePart[3], 2) $asDatePart[2] = StringRight("0" & $asDatePart[2], 2) $sTempDate = StringReplace($sTempDate, "d", "@") $sTempDate = StringReplace($sTempDate, "m", "#") $sTempDate = StringReplace($sTempDate, "y", "&") $sTempDate = StringReplace($sTempDate, "@@@@", _DateDayOfWeek($iWday, 0)) $sTempDate = StringReplace($sTempDate, "@@@", _DateDayOfWeek($iWday, 1)) $sTempDate = StringReplace($sTempDate, "@@", $asDatePart[3]) $sTempDate = StringReplace($sTempDate, "@", StringReplace(StringLeft($asDatePart[3], 1), "0", "") & StringRight($asDatePart[3], 1)) $sTempDate = StringReplace($sTempDate, "####", _DateToMonth($asDatePart[2], 0)) $sTempDate = StringReplace($sTempDate, "###", _DateToMonth($asDatePart[2], 1)) $sTempDate = StringReplace($sTempDate, "##", $asDatePart[2]) $sTempDate = StringReplace($sTempDate, "#", StringReplace(StringLeft($asDatePart[2], 1), "0", "") & StringRight($asDatePart[2], 1)) $sTempDate = StringReplace($sTempDate, "&&&&", $asDatePart[1]) $sTempDate = StringReplace($sTempDate, "&&", StringRight($asDatePart[1], 2)) EndIf If $sTempTime <> "" Then $sTempString = _WinAPI_GetLocaleInfo($LOCALE_USER_DEFAULT, $LOCALE_S1159) If Not @error And Not ($sTempString = '') Then $sAM = $sTempString Else $sAM = "AM" EndIf $sTempString = _WinAPI_GetLocaleInfo($LOCALE_USER_DEFAULT, $LOCALE_S2359) If Not @error And Not ($sTempString = '') Then $sPM = $sTempString Else $sPM = "PM" EndIf $sTempString = _WinAPI_GetLocaleInfo($LOCALE_USER_DEFAULT, $LOCALE_STIME) If Not @error And Not ($sTempString = '') Then $sTempTime = StringReplace($sTempTime, ":", $sTempString) EndIf If StringInStr($sTempTime, "tt") Then If $asTimePart[1] < 12 Then $sTempTime = StringReplace($sTempTime, "tt", $sAM) If $asTimePart[1] = 0 Then $asTimePart[1] = 12 Else $sTempTime = StringReplace($sTempTime, "tt", $sPM) If $asTimePart[1] > 12 Then $asTimePart[1] = $asTimePart[1] - 12 EndIf EndIf $asTimePart[1] = StringRight("0" & $asTimePart[1], 2) $asTimePart[2] = StringRight("0" & $asTimePart[2], 2) $asTimePart[3] = StringRight("0" & $asTimePart[3], 2) $sTempTime = StringReplace($sTempTime, "hh", StringFormat("%02d", $asTimePart[1])) $sTempTime = StringReplace($sTempTime, "h", StringReplace(StringLeft($asTimePart[1], 1), "0", "") & StringRight($asTimePart[1], 1)) $sTempTime = StringReplace($sTempTime, "mm", StringFormat("%02d", $asTimePart[2])) $sTempTime = StringReplace($sTempTime, "ss", StringFormat("%02d", $asTimePart[3])) $sTempDate = StringStripWS($sTempDate & " " & $sTempTime, $STR_STRIPLEADING + $STR_STRIPTRAILING) EndIf Return $sTempDate EndFunc Func _DateTimeSplit($sDate, ByRef $aDatePart, ByRef $iTimePart) Local $sDateTime = StringSplit($sDate, " T") If $sDateTime[0] > 0 Then $aDatePart = StringSplit($sDateTime[1], "/-.") If $sDateTime[0] > 1 Then $iTimePart = StringSplit($sDateTime[2], ":") If UBound($iTimePart) < 4 Then ReDim $iTimePart[4] Else Dim $iTimePart[4] EndIf If UBound($aDatePart) < 4 Then ReDim $aDatePart[4] For $x = 1 To 3 If StringIsInt($aDatePart[$x]) Then $aDatePart[$x] = Int($aDatePart[$x]) Else $aDatePart[$x] = -1 EndIf If StringIsInt($iTimePart[$x]) Then $iTimePart[$x] = Int($iTimePart[$x]) Else $iTimePart[$x] = 0 EndIf Next Return 1 EndFunc Func _DateToDayOfWeek($iYear, $iMonth, $iDay) If Not _DateIsValid($iYear & "/" & $iMonth & "/" & $iDay) Then Return SetError(1, 0, "") EndIf Local $i_FactorA = Int((14 - $iMonth) / 12) Local $i_FactorY = $iYear - $i_FactorA Local $i_FactorM = $iMonth + (12 * $i_FactorA) - 2 Local $i_FactorD = Mod($iDay + $i_FactorY + Int($i_FactorY / 4) - Int($i_FactorY / 100) + Int($i_FactorY / 400) + Int((31 * $i_FactorM) / 12), 7) Return $i_FactorD + 1 EndFunc Func _DateToDayOfWeekISO($iYear, $iMonth, $iDay) Local $iDow = _DateToDayOfWeek($iYear, $iMonth, $iDay) If @error Then Return SetError(1, 0, "") EndIf If $iDow >= 2 Then Return $iDow - 1 Return 7 EndFunc Func _DateToDayValue($iYear, $iMonth, $iDay) If Not _DateIsValid(StringFormat("%04d/%02d/%02d", $iYear, $iMonth, $iDay)) Then Return SetError(1, 0, "") EndIf If $iMonth < 3 Then $iMonth = $iMonth + 12 $iYear = $iYear - 1 EndIf Local $i_FactorA = Int($iYear / 100) Local $i_FactorB = Int($i_FactorA / 4) Local $i_FactorC = 2 - $i_FactorA + $i_FactorB Local $i_FactorE = Int(1461 * ($iYear + 4716) / 4) Local $i_FactorF = Int(153 * ($iMonth + 1) / 5) Local $iJulianDate = $i_FactorC + $iDay + $i_FactorE + $i_FactorF - 1524.5 Return $iJulianDate EndFunc Func _DateToMonth($iMonNum, $iFormat = Default) If $iFormat = Default Then $iFormat = 0 $iMonNum = Int($iMonNum) If Not __DateIsMonth($iMonNum) Then Return SetError(1, 0, "") Local $tSYSTEMTIME = DllStructCreate($tagSYSTEMTIME) DllStructSetData($tSYSTEMTIME, "Year", @YEAR) DllStructSetData($tSYSTEMTIME, "Month", $iMonNum) DllStructSetData($tSYSTEMTIME, "Day", 1) Return _WinAPI_GetDateFormat(BitAND($iFormat, $DMW_LOCALE_LONGNAME) ? $LOCALE_USER_DEFAULT : $LOCALE_INVARIANT, $tSYSTEMTIME, 0, BitAND($iFormat, $DMW_SHORTNAME) ? "MMM" : "MMMM") EndFunc Func _DayValueToDate($iJulianDate, ByRef $iYear, ByRef $iMonth, ByRef $iDay) If $iJulianDate < 0 Or Not IsNumber($iJulianDate) Then Return SetError(1, 0, 0) EndIf Local $i_FactorZ = Int($iJulianDate + 0.5) Local $i_FactorW = Int(($i_FactorZ - 1867216.25) / 36524.25) Local $i_FactorX = Int($i_FactorW / 4) Local $i_FactorA = $i_FactorZ + 1 + $i_FactorW - $i_FactorX Local $i_FactorB = $i_FactorA + 1524 Local $i_FactorC = Int(($i_FactorB - 122.1) / 365.25) Local $i_FactorD = Int(365.25 * $i_FactorC) Local $i_FactorE = Int(($i_FactorB - $i_FactorD) / 30.6001) Local $i_FactorF = Int(30.6001 * $i_FactorE) $iDay = $i_FactorB - $i_FactorD - $i_FactorF If $i_FactorE - 1 < 13 Then $iMonth = $i_FactorE - 1 Else $iMonth = $i_FactorE - 13 EndIf If $iMonth < 3 Then $iYear = $i_FactorC - 4715 Else $iYear = $i_FactorC - 4716 EndIf $iYear = StringFormat("%04d", $iYear) $iMonth = StringFormat("%02d", $iMonth) $iDay = StringFormat("%02d", $iDay) Return $iYear & "/" & $iMonth & "/" & $iDay EndFunc Func _Date_JulianDayNo($iYear, $iMonth, $iDay) Local $sFullDate = StringFormat("%04d/%02d/%02d", $iYear, $iMonth, $iDay) If Not _DateIsValid($sFullDate) Then Return SetError(1, 0, "") EndIf Local $iJDay = 0 Local $aiDaysInMonth = _DaysInMonth($iYear) For $iCntr = 1 To $iMonth - 1 $iJDay = $iJDay + $aiDaysInMonth[$iCntr] Next $iJDay = ($iYear * 1000) + ($iJDay + $iDay) Return $iJDay EndFunc Func _JulianToDate($iJDay, $sSep = "/") Local $iYear = Int($iJDay / 1000) Local $iDays = Mod($iJDay, 1000) Local $iMaxDays = 365 If _DateIsLeapYear($iYear) Then $iMaxDays = 366 If $iDays > $iMaxDays Then Return SetError(1, 0, "") EndIf Local $aiDaysInMonth = _DaysInMonth($iYear) Local $iMonth = 1 While $iDays > $aiDaysInMonth[$iMonth] $iDays = $iDays - $aiDaysInMonth[$iMonth] $iMonth = $iMonth + 1 WEnd Return StringFormat("%04d%s%02d%s%02d", $iYear, $sSep, $iMonth, $sSep, $iDays) EndFunc Func _Now() Return _DateTimeFormat(@YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC, 0) EndFunc Func _NowCalc() Return @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC EndFunc Func _NowCalcDate() Return @YEAR & "/" & @MON & "/" & @MDAY EndFunc Func _NowDate() Return _DateTimeFormat(@YEAR & "/" & @MON & "/" & @MDAY, 0) EndFunc Func _NowTime($sType = 3) If $sType < 3 Or $sType > 5 Then $sType = 3 Return _DateTimeFormat(@YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC, $sType) EndFunc Func _SetDate($iDay, $iMonth = 0, $iYear = 0) If $iYear = 0 Then $iYear = @YEAR If $iMonth = 0 Then $iMonth = @MON If Not _DateIsValid($iYear & "/" & $iMonth & "/" & $iDay) Then Return 1 Local $tSYSTEMTIME = DllStructCreate($tagSYSTEMTIME) DllCall("kernel32.dll", "none", "GetLocalTime", "struct*", $tSYSTEMTIME) If @error Then Return SetError(@error, @extended, 0) DllStructSetData($tSYSTEMTIME, "Day", $iDay) If $iMonth > 0 Then DllStructSetData($tSYSTEMTIME, "Month", $iMonth) If $iYear > 0 Then DllStructSetData($tSYSTEMTIME, "Year", $iYear) Local $iReturn = _Date_Time_SetLocalTime($tSYSTEMTIME) If @error Then Return SetError(@error + 10, @extended, 0) Return Int($iReturn) EndFunc Func _SetTime($iHour, $iMinute, $iSecond = 0, $iMSeconds = 0) If $iHour < 0 Or $iHour > 23 Then Return 1 If $iMinute < 0 Or $iMinute > 59 Then Return 1 If $iSecond < 0 Or $iSecond > 59 Then Return 1 If $iMSeconds < 0 Or $iMSeconds > 999 Then Return 1 Local $tSYSTEMTIME = DllStructCreate($tagSYSTEMTIME) DllCall("kernel32.dll", "none", "GetLocalTime", "struct*", $tSYSTEMTIME) If @error Then Return SetError(@error, @extended, 0) DllStructSetData($tSYSTEMTIME, "Hour", $iHour) DllStructSetData($tSYSTEMTIME, "Minute", $iMinute) If $iSecond > 0 Then DllStructSetData($tSYSTEMTIME, "Second", $iSecond) If $iMSeconds > 0 Then DllStructSetData($tSYSTEMTIME, "MSeconds", $iMSeconds) Local $iReturn = _Date_Time_SetLocalTime($tSYSTEMTIME) If @error Then Return SetError(@error + 10, @extended, 0) Return Int($iReturn) EndFunc Func _TicksToTime($iTicks, ByRef $iHours, ByRef $iMins, ByRef $iSecs) If Number($iTicks) > 0 Then $iTicks = Int($iTicks / 1000) $iHours = Int($iTicks / 3600) $iTicks = Mod($iTicks, 3600) $iMins = Int($iTicks / 60) $iSecs = Mod($iTicks, 60) Return 1 ElseIf Number($iTicks) = 0 Then $iHours = 0 $iTicks = 0 $iMins = 0 $iSecs = 0 Return 1 Else Return SetError(1, 0, 0) EndIf EndFunc Func _TimeToTicks($iHours = @HOUR, $iMins = @MIN, $iSecs = @SEC) If StringIsInt($iHours) And StringIsInt($iMins) And StringIsInt($iSecs) Then Local $iTicks = 1000 * ((3600 * $iHours) + (60 * $iMins) + $iSecs) Return $iTicks Else Return SetError(1, 0, 0) EndIf EndFunc Func _WeekNumberISO($iYear = @YEAR, $iMonth = @MON, $iDay = @MDAY) If $iDay > 31 Or $iDay < 1 Then Return SetError(1, 0, -1) ElseIf Not __DateIsMonth($iMonth) Then Return SetError(2, 0, -1) ElseIf $iYear < 1 Or $iYear > 2999 Then Return SetError(3, 0, -1) EndIf Local $iDow = _DateToDayOfWeekISO($iYear, $iMonth, $iDay) - 1 Local $iDow0101 = _DateToDayOfWeekISO($iYear, 1, 1) - 1 If ($iMonth = 1 And 3 < $iDow0101 And $iDow0101 < 7 - ($iDay - 1)) Then $iDow = $iDow0101 - 1 $iDow0101 = _DateToDayOfWeekISO($iYear - 1, 1, 1) - 1 $iMonth = 12 $iDay = 31 $iYear = $iYear - 1 ElseIf ($iMonth = 12 And 30 - ($iDay - 1) < _DateToDayOfWeekISO($iYear + 1, 1, 1) - 1 And _DateToDayOfWeekISO($iYear + 1, 1, 1) - 1 < 4) Then Return 1 EndIf Return Int((_DateToDayOfWeekISO($iYear, 1, 1) - 1 < 4) + 4 * ($iMonth - 1) + (2 * ($iMonth - 1) + ($iDay - 1) + $iDow0101 - $iDow + 6) * 36 / 256) EndFunc Func _WeekNumber($iYear = @YEAR, $iMonth = @MON, $iDay = @MDAY, $iWeekStart = 1) If $iDay > 31 Or $iDay < 1 Then Return SetError(1, 0, -1) ElseIf Not __DateIsMonth($iMonth) Then Return SetError(3, 0, -1) ElseIf $iYear < 1 Or $iYear > 2999 Then Return SetError(4, 0, -1) ElseIf $iWeekStart < 1 Or $iWeekStart > 2 Then Return SetError(2, 0, -1) EndIf Local $iStartWeek1, $iEndWeek1 Local $iDow0101 = _DateToDayOfWeekISO($iYear, 1, 1) Local $iDate = $iYear & '/' & $iMonth & '/' & $iDay If $iWeekStart = 1 Then If $iDow0101 = 6 Then $iStartWeek1 = 0 Else $iStartWeek1 = -1 * $iDow0101 - 1 EndIf $iEndWeek1 = $iStartWeek1 + 6 Else $iStartWeek1 = $iDow0101 * -1 $iEndWeek1 = $iStartWeek1 + 6 EndIf Local $iStartWeek1ny Local $iEndWeek1Date = _DateAdd('d', $iEndWeek1, $iYear & '/01/01') Local $iDow0101ny = _DateToDayOfWeekISO($iYear + 1, 1, 1) If $iWeekStart = 1 Then If $iDow0101ny = 6 Then $iStartWeek1ny = 0 Else $iStartWeek1ny = -1 * $iDow0101ny - 1 EndIf Else $iStartWeek1ny = $iDow0101ny * -1 EndIf Local $iStartWeek1Dateny = _DateAdd('d', $iStartWeek1ny, $iYear + 1 & '/01/01') Local $iCurrDateDiff = _DateDiff('d', $iEndWeek1Date, $iDate) - 1 Local $iCurrDateDiffny = _DateDiff('d', $iStartWeek1Dateny, $iDate) If $iCurrDateDiff >= 0 And $iCurrDateDiffny < 0 Then Return 2 + Int($iCurrDateDiff / 7) If $iCurrDateDiff < 0 Or $iCurrDateDiffny >= 0 Then Return 1 EndFunc Func _DaysInMonth($iYear) Local $aDays = [12, 31, (_DateIsLeapYear($iYear) ? 29 : 28), 31, 30, 31, 30, 31, 31, 30, 31, 30, 31] Return $aDays EndFunc Func __Date_Time_CloneSystemTime($pSystemTime) Local $tSystemTime1 = DllStructCreate($tagSYSTEMTIME, $pSystemTime) Local $tSystemTime2 = DllStructCreate($tagSYSTEMTIME) DllStructSetData($tSystemTime2, "Month", DllStructGetData($tSystemTime1, "Month")) DllStructSetData($tSystemTime2, "Day", DllStructGetData($tSystemTime1, "Day")) DllStructSetData($tSystemTime2, "Year", DllStructGetData($tSystemTime1, "Year")) DllStructSetData($tSystemTime2, "Hour", DllStructGetData($tSystemTime1, "Hour")) DllStructSetData($tSystemTime2, "Minute", DllStructGetData($tSystemTime1, "Minute")) DllStructSetData($tSystemTime2, "Second", DllStructGetData($tSystemTime1, "Second")) DllStructSetData($tSystemTime2, "MSeconds", DllStructGetData($tSystemTime1, "MSeconds")) DllStructSetData($tSystemTime2, "DOW", DllStructGetData($tSystemTime1, "DOW")) Return $tSystemTime2 EndFunc Func _Date_Time_CompareFileTime($tFileTime1, $tFileTime2) Local $aResult = DllCall("kernel32.dll", "long", "CompareFileTime", "struct*", $tFileTime1, "struct*", $tFileTime2) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _Date_Time_DOSDateTimeToFileTime($iFatDate, $iFatTime) Local $tTime = DllStructCreate($tagFILETIME) Local $aResult = DllCall("kernel32.dll", "bool", "DosDateTimeToFileTime", "word", $iFatDate, "word", $iFatTime, "struct*", $tTime) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $tTime) EndFunc Func _Date_Time_DOSDateToArray($iDosDate) Local $aDate[3] $aDate[0] = BitAND($iDosDate, 0x1F) $aDate[1] = BitAND(BitShift($iDosDate, 5), 0x0F) $aDate[2] = BitAND(BitShift($iDosDate, 9), 0x3F) + 1980 Return $aDate EndFunc Func _Date_Time_DOSDateTimeToArray($iDosDate, $iDosTime) Local $aDate[6] $aDate[0] = BitAND($iDosDate, 0x1F) $aDate[1] = BitAND(BitShift($iDosDate, 5), 0x0F) $aDate[2] = BitAND(BitShift($iDosDate, 9), 0x3F) + 1980 $aDate[5] = BitAND($iDosTime, 0x1F) * 2 $aDate[4] = BitAND(BitShift($iDosTime, 5), 0x3F) $aDate[3] = BitAND(BitShift($iDosTime, 11), 0x1F) Return $aDate EndFunc Func _Date_Time_DOSDateTimeToStr($iDosDate, $iDosTime) Local $aDate = _Date_Time_DOSDateTimeToArray($iDosDate, $iDosTime) Return StringFormat("%02d/%02d/%04d %02d:%02d:%02d", $aDate[0], $aDate[1], $aDate[2], $aDate[3], $aDate[4], $aDate[5]) EndFunc Func _Date_Time_DOSDateToStr($iDosDate) Local $aDate = _Date_Time_DOSDateToArray($iDosDate) Return StringFormat("%02d/%02d/%04d", $aDate[0], $aDate[1], $aDate[2]) EndFunc Func _Date_Time_DOSTimeToArray($iDosTime) Local $aTime[3] $aTime[2] = BitAND($iDosTime, 0x1F) * 2 $aTime[1] = BitAND(BitShift($iDosTime, 5), 0x3F) $aTime[0] = BitAND(BitShift($iDosTime, 11), 0x1F) Return $aTime EndFunc Func _Date_Time_DOSTimeToStr($iDosTime) Local $aTime = _Date_Time_DOSTimeToArray($iDosTime) Return StringFormat("%02d:%02d:%02d", $aTime[0], $aTime[1], $aTime[2]) EndFunc Func _Date_Time_EncodeFileTime($iMonth, $iDay, $iYear, $iHour = 0, $iMinute = 0, $iSecond = 0, $iMSeconds = 0) Local $tSYSTEMTIME = _Date_Time_EncodeSystemTime($iMonth, $iDay, $iYear, $iHour, $iMinute, $iSecond, $iMSeconds) Return _Date_Time_SystemTimeToFileTime($tSYSTEMTIME) EndFunc Func _Date_Time_EncodeSystemTime($iMonth, $iDay, $iYear, $iHour = 0, $iMinute = 0, $iSecond = 0, $iMSeconds = 0) Local $tSYSTEMTIME = DllStructCreate($tagSYSTEMTIME) DllStructSetData($tSYSTEMTIME, "Month", $iMonth) DllStructSetData($tSYSTEMTIME, "Day", $iDay) DllStructSetData($tSYSTEMTIME, "Year", $iYear) DllStructSetData($tSYSTEMTIME, "Hour", $iHour) DllStructSetData($tSYSTEMTIME, "Minute", $iMinute) DllStructSetData($tSYSTEMTIME, "Second", $iSecond) DllStructSetData($tSYSTEMTIME, "MSeconds", $iMSeconds) Return $tSYSTEMTIME EndFunc Func _Date_Time_FileTimeToArray(ByRef $tFileTime) If ((DllStructGetData($tFileTime, 1) + DllStructGetData($tFileTime, 2)) = 0) Then Return SetError(10, 0, 0) Local $tSYSTEMTIME = _Date_Time_FileTimeToSystemTime($tFileTime) If @error Then Return SetError(@error, @extended, 0) Return _Date_Time_SystemTimeToArray($tSYSTEMTIME) EndFunc Func _Date_Time_FileTimeToStr(ByRef $tFileTime, $iFmt = 0) Local $aDate = _Date_Time_FileTimeToArray($tFileTime) If @error Then Return SetError(@error, @extended, "") If $iFmt Then Return StringFormat("%04d/%02d/%02d %02d:%02d:%02d", $aDate[2], $aDate[0], $aDate[1], $aDate[3], $aDate[4], $aDate[5]) Else Return StringFormat("%02d/%02d/%04d %02d:%02d:%02d", $aDate[0], $aDate[1], $aDate[2], $aDate[3], $aDate[4], $aDate[5]) EndIf EndFunc Func _Date_Time_FileTimeToDOSDateTime($tFileTime) Local $aDate[2] Local $aResult = DllCall("kernel32.dll", "bool", "FileTimeToDosDateTime", "struct*", $tFileTime, "word*", 0, "word*", 0) If @error Then Return SetError(@error, @extended, $aDate) $aDate[0] = $aResult[2] $aDate[1] = $aResult[3] Return SetExtended($aResult[0], $aDate) EndFunc Func _Date_Time_FileTimeToLocalFileTime($tFileTime) Local $tLocal = DllStructCreate($tagFILETIME) Local $aResult = DllCall("kernel32.dll", "bool", "FileTimeToLocalFileTime", "struct*", $tFileTime, "struct*", $tLocal) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $tLocal) EndFunc Func _Date_Time_FileTimeToSystemTime($tFileTime) Local $tSystTime = DllStructCreate($tagSYSTEMTIME) Local $aResult = DllCall("kernel32.dll", "bool", "FileTimeToSystemTime", "struct*", $tFileTime, "struct*", $tSystTime) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $tSystTime) EndFunc Func _Date_Time_GetFileTime($hFile) Local $aDate[3] $aDate[0] = DllStructCreate($tagFILETIME) $aDate[1] = DllStructCreate($tagFILETIME) $aDate[2] = DllStructCreate($tagFILETIME) Local $aResult = DllCall("kernel32.dll", "bool", "GetFileTime", "handle", $hFile, "struct*", $aDate[0], "struct*", $aDate[1], "struct*", $aDate[2]) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aDate) EndFunc Func _Date_Time_GetLocalTime() Local $tSystTime = DllStructCreate($tagSYSTEMTIME) DllCall("kernel32.dll", "none", "GetLocalTime", "struct*", $tSystTime) If @error Then Return SetError(@error, @extended, 0) Return $tSystTime EndFunc Func _Date_Time_GetSystemTime() Local $tSystTime = DllStructCreate($tagSYSTEMTIME) DllCall("kernel32.dll", "none", "GetSystemTime", "struct*", $tSystTime) If @error Then Return SetError(@error, @extended, 0) Return $tSystTime EndFunc Func _Date_Time_GetSystemTimeAdjustment() Local $aInfo[3] Local $aResult = DllCall("kernel32.dll", "bool", "GetSystemTimeAdjustment", "dword*", 0, "dword*", 0, "bool*", 0) If @error Then Return SetError(@error, @extended, 0) $aInfo[0] = $aResult[1] $aInfo[1] = $aResult[2] $aInfo[2] = $aResult[3] <> 0 Return SetExtended($aResult[0], $aInfo) EndFunc Func _Date_Time_GetSystemTimeAsFileTime() Local $tFileTime = DllStructCreate($tagFILETIME) DllCall("kernel32.dll", "none", "GetSystemTimeAsFileTime", "struct*", $tFileTime) If @error Then Return SetError(@error, @extended, 0) Return $tFileTime EndFunc Func _Date_Time_GetSystemTimes() Local $aInfo[3] $aInfo[0] = DllStructCreate($tagFILETIME) $aInfo[1] = DllStructCreate($tagFILETIME) $aInfo[2] = DllStructCreate($tagFILETIME) Local $aResult = DllCall("kernel32.dll", "bool", "GetSystemTimes", "struct*", $aInfo[0], "struct*", $aInfo[1], "struct*", $aInfo[2]) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $aInfo) EndFunc Func _Date_Time_GetTickCount() Local $aResult = DllCall("kernel32.dll", "dword", "GetTickCount") If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _Date_Time_GetTimeZoneInformation() Local $tTimeZone = DllStructCreate($tagTIME_ZONE_INFORMATION) Local $aResult = DllCall("kernel32.dll", "dword", "GetTimeZoneInformation", "struct*", $tTimeZone) If @error Or $aResult[0] = -1 Then Return SetError(@error, @extended, 0) Local $aInfo[8] $aInfo[0] = $aResult[0] $aInfo[1] = DllStructGetData($tTimeZone, "Bias") $aInfo[2] = DllStructGetData($tTimeZone, "StdName") $aInfo[3] = __Date_Time_CloneSystemTime(DllStructGetPtr($tTimeZone, "StdDate")) $aInfo[4] = DllStructGetData($tTimeZone, "StdBias") $aInfo[5] = DllStructGetData($tTimeZone, "DayName") $aInfo[6] = __Date_Time_CloneSystemTime(DllStructGetPtr($tTimeZone, "DayDate")) $aInfo[7] = DllStructGetData($tTimeZone, "DayBias") Return $aInfo EndFunc Func _Date_Time_LocalFileTimeToFileTime($tLocalTime) Local $tFileTime = DllStructCreate($tagFILETIME) Local $aResult = DllCall("kernel32.dll", "bool", "LocalFileTimeToFileTime", "struct*", $tLocalTime, "struct*", $tFileTime) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $tFileTime) EndFunc Func _Date_Time_SetFileTime($hFile, $tCreateTime, $tLastAccess, $tLastWrite) Local $aResult = DllCall("kernel32.dll", "bool", "SetFileTime", "handle", $hFile, "struct*", $tCreateTime, "struct*", $tLastAccess, "struct*", $tLastWrite) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _Date_Time_SetLocalTime($tSYSTEMTIME) Local $aResult = DllCall("kernel32.dll", "bool", "SetLocalTime", "struct*", $tSYSTEMTIME) If @error Or Not $aResult[0] Then Return SetError(@error + 10, @extended, False) $aResult = DllCall("kernel32.dll", "bool", "SetLocalTime", "struct*", $tSYSTEMTIME) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _Date_Time_SetSystemTime($tSYSTEMTIME) Local $aResult = DllCall("kernel32.dll", "bool", "SetSystemTime", "struct*", $tSYSTEMTIME) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _Date_Time_SetSystemTimeAdjustment($iAdjustment, $bDisabled) Local $hToken = _Security__OpenThreadTokenEx(BitOR($TOKEN_ADJUST_PRIVILEGES, $TOKEN_QUERY)) If @error Then Return SetError(@error + 10, @extended, False) _Security__SetPrivilege($hToken, "SeSystemtimePrivilege", True) Local $iError = @error Local $iLastError = @extended Local $bRet = False If Not @error Then Local $aResult = DllCall("kernel32.dll", "bool", "SetSystemTimeAdjustment", "dword", $iAdjustment, "bool", $bDisabled) If @error Then $iError = @error $iLastError = @extended ElseIf $aResult[0] Then $bRet = True Else $iError = 20 $iLastError = _WinAPI_GetLastError() EndIf _Security__SetPrivilege($hToken, "SeSystemtimePrivilege", False) If Not $iError And @error Then $iError = 22 EndIf _WinAPI_CloseHandle($hToken) Return SetError($iError, $iLastError, $bRet) EndFunc Func _Date_Time_SetTimeZoneInformation($iBias, $sStdName, $tStdDate, $iStdBias, $sDayName, $tDayDate, $iDayBias) Local $tZoneInfo = DllStructCreate($tagTIME_ZONE_INFORMATION) DllStructSetData($tZoneInfo, "Bias", $iBias) DllStructSetData($tZoneInfo, "StdName", $sStdName) _MemMoveMemory($tStdDate, DllStructGetPtr($tZoneInfo, "StdDate"), DllStructGetSize($tStdDate)) DllStructSetData($tZoneInfo, "StdBias", $iStdBias) DllStructSetData($tZoneInfo, "DayName", $sDayName) _MemMoveMemory($tDayDate, DllStructGetPtr($tZoneInfo, "DayDate"), DllStructGetSize($tDayDate)) DllStructSetData($tZoneInfo, "DayBias", $iDayBias) Local $hToken = _Security__OpenThreadTokenEx(BitOR($TOKEN_ADJUST_PRIVILEGES, $TOKEN_QUERY)) If @error Then Return SetError(@error + 10, @extended, False) _Security__SetPrivilege($hToken, "SeTimeZonePrivilege", True) Local $iError = @error Local $iLastError = @extended Local $bRet = False If Not @error Then Local $aResult = DllCall("kernel32.dll", "bool", "SetTimeZoneInformation", "struct*", $tZoneInfo) If @error Then $iError = @error $iLastError = @extended ElseIf $aResult[0] Then $iLastError = 0 $bRet = True Else $iError = 20 $iLastError = _WinAPI_GetLastError() EndIf _Security__SetPrivilege($hToken, "SeTimeZonePrivilege", False) If Not $iError And @error Then $iError = 22 EndIf _WinAPI_CloseHandle($hToken) Return SetError($iError, $iLastError, $bRet) EndFunc Func _Date_Time_SystemTimeToArray(ByRef $tSYSTEMTIME) Local $aInfo[8] $aInfo[0] = DllStructGetData($tSYSTEMTIME, "Month") $aInfo[1] = DllStructGetData($tSYSTEMTIME, "Day") $aInfo[2] = DllStructGetData($tSYSTEMTIME, "Year") $aInfo[3] = DllStructGetData($tSYSTEMTIME, "Hour") $aInfo[4] = DllStructGetData($tSYSTEMTIME, "Minute") $aInfo[5] = DllStructGetData($tSYSTEMTIME, "Second") $aInfo[6] = DllStructGetData($tSYSTEMTIME, "MSeconds") $aInfo[7] = DllStructGetData($tSYSTEMTIME, "DOW") Return $aInfo EndFunc Func _Date_Time_SystemTimeToDateStr(ByRef $tSYSTEMTIME, $iFmt = 0) Local $aInfo = _Date_Time_SystemTimeToArray($tSYSTEMTIME) If @error Then Return SetError(@error, @extended, "") If $iFmt Then Return StringFormat("%04d/%02d/%02d", $aInfo[2], $aInfo[0], $aInfo[1]) Else Return StringFormat("%02d/%02d/%04d", $aInfo[0], $aInfo[1], $aInfo[2]) EndIf EndFunc Func _Date_Time_SystemTimeToDateTimeStr(ByRef $tSYSTEMTIME, $iFmt = 0) Local $aInfo = _Date_Time_SystemTimeToArray($tSYSTEMTIME) If @error Then Return SetError(@error, @extended, "") If $iFmt Then Return StringFormat("%04d/%02d/%02d %02d:%02d:%02d", $aInfo[2], $aInfo[0], $aInfo[1], $aInfo[3], $aInfo[4], $aInfo[5]) Else Return StringFormat("%02d/%02d/%04d %02d:%02d:%02d", $aInfo[0], $aInfo[1], $aInfo[2], $aInfo[3], $aInfo[4], $aInfo[5]) EndIf EndFunc Func _Date_Time_SystemTimeToFileTime($tSYSTEMTIME) Local $tFileTime = DllStructCreate($tagFILETIME) Local $aResult = DllCall("kernel32.dll", "bool", "SystemTimeToFileTime", "struct*", $tSYSTEMTIME, "struct*", $tFileTime) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $tFileTime) EndFunc Func _Date_Time_SystemTimeToTimeStr(ByRef $tSYSTEMTIME) Local $aInfo = _Date_Time_SystemTimeToArray($tSYSTEMTIME) Return StringFormat("%02d:%02d:%02d", $aInfo[3], $aInfo[4], $aInfo[5]) EndFunc Func _Date_Time_SystemTimeToTzSpecificLocalTime($tUTC, $tTimeZone = 0) Local $tLocalTime = DllStructCreate($tagSYSTEMTIME) Local $aResult = DllCall("kernel32.dll", "bool", "SystemTimeToTzSpecificLocalTime", "struct*", $tTimeZone, "struct*", $tUTC, "struct*", $tLocalTime) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $tLocalTime) EndFunc Func _Date_Time_TzSpecificLocalTimeToSystemTime($tLocalTime, $tTimeZone = 0) Local $tUTC = DllStructCreate($tagSYSTEMTIME) Local $aResult = DllCall("kernel32.dll", "bool", "TzSpecificLocalTimeToSystemTime", "struct*", $tTimeZone, "struct*", $tLocalTime, "struct*", $tUTC) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aResult[0], $tUTC) EndFunc Global Const $ES_LEFT = 0 Global Const $ES_CENTER = 1 Global Const $ES_RIGHT = 2 Global Const $ES_MULTILINE = 4 Global Const $ES_UPPERCASE = 8 Global Const $ES_LOWERCASE = 16 Global Const $ES_PASSWORD = 32 Global Const $ES_AUTOVSCROLL = 64 Global Const $ES_AUTOHSCROLL = 128 Global Const $ES_NOHIDESEL = 256 Global Const $ES_OEMCONVERT = 1024 Global Const $ES_READONLY = 2048 Global Const $ES_WANTRETURN = 4096 Global Const $ES_NUMBER = 8192 Global Const $EC_ERR = -1 Global Const $ECM_FIRST = 0X1500 Global Const $EM_CANUNDO = 0xC6 Global Const $EM_CHARFROMPOS = 0xD7 Global Const $EM_EMPTYUNDOBUFFER = 0xCD Global Const $EM_FMTLINES = 0xC8 Global Const $EM_GETCUEBANNER = ($ECM_FIRST + 2) Global Const $EM_GETFIRSTVISIBLELINE = 0xCE Global Const $EM_GETHANDLE = 0xBD Global Const $EM_GETIMESTATUS = 0xD9 Global Const $EM_GETLIMITTEXT = 0xD5 Global Const $EM_GETLINE = 0xC4 Global Const $EM_GETLINECOUNT = 0xBA Global Const $EM_GETMARGINS = 0xD4 Global Const $EM_GETMODIFY = 0xB8 Global Const $EM_GETPASSWORDCHAR = 0xD2 Global Const $EM_GETRECT = 0xB2 Global Const $EM_GETSEL = 0xB0 Global Const $EM_GETTHUMB = 0xBE Global Const $EM_GETWORDBREAKPROC = 0xD1 Global Const $EM_HIDEBALLOONTIP = ($ECM_FIRST + 4) Global Const $EM_LIMITTEXT = 0xC5 Global Const $EM_LINEFROMCHAR = 0xC9 Global Const $EM_LINEINDEX = 0xBB Global Const $EM_LINELENGTH = 0xC1 Global Const $EM_LINESCROLL = 0xB6 Global Const $EM_POSFROMCHAR = 0xD6 Global Const $EM_REPLACESEL = 0xC2 Global Const $EM_SCROLL = 0xB5 Global Const $EM_SCROLLCARET = 0x00B7 Global Const $EM_SETCUEBANNER = ($ECM_FIRST + 1) Global Const $EM_SETHANDLE = 0xBC Global Const $EM_SETIMESTATUS = 0xD8 Global Const $EM_SETLIMITTEXT = $EM_LIMITTEXT Global Const $EM_SETMARGINS = 0xD3 Global Const $EM_SETMODIFY = 0xB9 Global Const $EM_SETPASSWORDCHAR = 0xCC Global Const $EM_SETREADONLY = 0xCF Global Const $EM_SETRECT = 0xB3 Global Const $EM_SETRECTNP = 0xB4 Global Const $EM_SETSEL = 0xB1 Global Const $EM_SETTABSTOPS = 0xCB Global Const $EM_SETWORDBREAKPROC = 0xD0 Global Const $EM_SHOWBALLOONTIP = ($ECM_FIRST + 3) Global Const $EM_UNDO = 0xC7 Global Const $EC_LEFTMARGIN = 0x1 Global Const $EC_RIGHTMARGIN = 0x2 Global Const $EC_USEFONTINFO = 0xFFFF Global Const $EMSIS_COMPOSITIONSTRING = 0x1 Global Const $EIMES_GETCOMPSTRATONCE = 0x1 Global Const $EIMES_CANCELCOMPSTRINFOCUS = 0x2 Global Const $EIMES_COMPLETECOMPSTRKILLFOCUS = 0x4 Global Const $EN_ALIGN_LTR_EC = 0x700 Global Const $EN_ALIGN_RTL_EC = 0x701 Global Const $EN_CHANGE = 0x300 Global Const $EN_ERRSPACE = 0x500 Global Const $EN_HSCROLL = 0X601 Global Const $EN_KILLFOCUS = 0x200 Global Const $EN_MAXTEXT = 0x501 Global Const $EN_SETFOCUS = 0x100 Global Const $EN_UPDATE = 0x400 Global Const $EN_VSCROLL = 0x602 Global Const $GUI_SS_DEFAULT_EDIT = 0x003010c0 Global Const $GUI_SS_DEFAULT_INPUT = 0x00000080 Func _FileCountLines($sFilePath) FileReadToArray($sFilePath) If @error Then Return SetError(@error, @extended, 0) Return @extended EndFunc Func _FileCreate($sFilePath) Local $hFileOpen = FileOpen($sFilePath, BitOR($FO_OVERWRITE, $FO_CREATEPATH)) If $hFileOpen = -1 Then Return SetError(1, 0, 0) Local $iFileWrite = FileWrite($hFileOpen, "") FileClose($hFileOpen) If Not $iFileWrite Then Return SetError(2, 0, 0) Return 1 EndFunc Func _FileListToArray($sFilePath, $sFilter = "*", $iFlag = $FLTA_FILESFOLDERS, $bReturnPath = False) Local $sDelimiter = "|", $sFileList = "", $sFileName = "", $sFullPath = "" $sFilePath = StringRegExpReplace($sFilePath, "[\\/]+$", "") & "\" If $iFlag = Default Then $iFlag = $FLTA_FILESFOLDERS If $bReturnPath Then $sFullPath = $sFilePath If $sFilter = Default Then $sFilter = "*" If Not FileExists($sFilePath) Then Return SetError(1, 0, 0) If StringRegExp($sFilter, "[\\/:><\|]|(?s)^\s*$") Then Return SetError(2, 0, 0) If Not ($iFlag = 0 Or $iFlag = 1 Or $iFlag = 2) Then Return SetError(3, 0, 0) Local $hSearch = FileFindFirstFile($sFilePath & $sFilter) If @error Then Return SetError(4, 0, 0) While 1 $sFileName = FileFindNextFile($hSearch) If @error Then ExitLoop If ($iFlag + @extended = 2) Then ContinueLoop $sFileList &= $sDelimiter & $sFullPath & $sFileName WEnd FileClose($hSearch) If $sFileList = "" Then Return SetError(4, 0, 0) Return StringSplit(StringTrimLeft($sFileList, 1), $sDelimiter) EndFunc Func _FileListToArrayRec($sFilePath, $sMask = "*", $iReturn = $FLTAR_FILESFOLDERS, $iRecur = $FLTAR_NORECUR, $iSort = $FLTAR_NOSORT, $iReturnPath = $FLTAR_RELPATH) If Not FileExists($sFilePath) Then Return SetError(1, 1, "") If $sMask = Default Then $sMask = "*" If $iReturn = Default Then $iReturn = $FLTAR_FILESFOLDERS If $iRecur = Default Then $iRecur = $FLTAR_NORECUR If $iSort = Default Then $iSort = $FLTAR_NOSORT If $iReturnPath = Default Then $iReturnPath = $FLTAR_RELPATH If $iRecur > 1 Or Not IsInt($iRecur) Then Return SetError(1, 6, "") Local $bLongPath = False If StringLeft($sFilePath, 4) == "\\?\" Then $bLongPath = True EndIf Local $sFolderSlash = "" If StringRight($sFilePath, 1) = "\" Then $sFolderSlash = "\" Else $sFilePath = $sFilePath & "\" EndIf Local $asFolderSearchList[100] = [1] $asFolderSearchList[1] = $sFilePath Local $iHide_HS = 0, $sHide_HS = "" If BitAND($iReturn, $FLTAR_NOHIDDEN) Then $iHide_HS += 2 $sHide_HS &= "H" $iReturn -= $FLTAR_NOHIDDEN EndIf If BitAND($iReturn, $FLTAR_NOSYSTEM) Then $iHide_HS += 4 $sHide_HS &= "S" $iReturn -= $FLTAR_NOSYSTEM EndIf Local $iHide_Link = 0 If BitAND($iReturn, $FLTAR_NOLINK) Then $iHide_Link = 0x400 $iReturn -= $FLTAR_NOLINK EndIf Local $iMaxLevel = 0 If $iRecur < 0 Then StringReplace($sFilePath, "\", "", 0, $STR_NOCASESENSEBASIC) $iMaxLevel = @extended - $iRecur EndIf Local $sExclude_List = "", $sExclude_List_Folder = "", $sInclude_List = "*" Local $aMaskSplit = StringSplit($sMask, "|") Switch $aMaskSplit[0] Case 3 $sExclude_List_Folder = $aMaskSplit[3] ContinueCase Case 2 $sExclude_List = $aMaskSplit[2] ContinueCase Case 1 $sInclude_List = $aMaskSplit[1] EndSwitch Local $sInclude_File_Mask = ".+" If $sInclude_List <> "*" Then If Not __FLTAR_ListToMask($sInclude_File_Mask, $sInclude_List) Then Return SetError(1, 2, "") EndIf Local $sInclude_Folder_Mask = ".+" Switch $iReturn Case 0 Switch $iRecur Case 0 $sInclude_Folder_Mask = $sInclude_File_Mask EndSwitch Case 2 $sInclude_Folder_Mask = $sInclude_File_Mask EndSwitch Local $sExclude_File_Mask = ":" If $sExclude_List <> "" Then If Not __FLTAR_ListToMask($sExclude_File_Mask, $sExclude_List) Then Return SetError(1, 3, "") EndIf Local $sExclude_Folder_Mask = ":" If $iRecur Then If $sExclude_List_Folder Then If Not __FLTAR_ListToMask($sExclude_Folder_Mask, $sExclude_List_Folder) Then Return SetError(1, 4, "") EndIf If $iReturn = 2 Then $sExclude_Folder_Mask = $sExclude_File_Mask EndIf Else $sExclude_Folder_Mask = $sExclude_File_Mask EndIf If Not ($iReturn = 0 Or $iReturn = 1 Or $iReturn = 2) Then Return SetError(1, 5, "") If Not ($iSort = 0 Or $iSort = 1 Or $iSort = 2) Then Return SetError(1, 7, "") If Not ($iReturnPath = 0 Or $iReturnPath = 1 Or $iReturnPath = 2) Then Return SetError(1, 8, "") If $iHide_Link Then Local $tFile_Data = DllStructCreate("struct;align 4;dword FileAttributes;uint64 CreationTime;uint64 LastAccessTime;uint64 LastWriteTime;" & "dword FileSizeHigh;dword FileSizeLow;dword Reserved0;dword Reserved1;wchar FileName[260];wchar AlternateFileName[14];endstruct") Local $hDLL = DllOpen('kernel32.dll'), $aDLL_Ret EndIf Local $asReturnList[100] = [0] Local $asFileMatchList = $asReturnList, $asRootFileMatchList = $asReturnList, $asFolderMatchList = $asReturnList Local $bFolder = False, $hSearch = 0, $sCurrentPath = "", $sName = "", $sRetPath = "" Local $iAttribs = 0, $sAttribs = '' Local $asFolderFileSectionList[100][2] = [[0, 0]] While $asFolderSearchList[0] > 0 $sCurrentPath = $asFolderSearchList[$asFolderSearchList[0]] $asFolderSearchList[0] -= 1 Switch $iReturnPath Case 1 $sRetPath = StringReplace($sCurrentPath, $sFilePath, "") Case 2 If $bLongPath Then $sRetPath = StringTrimLeft($sCurrentPath, 4) Else $sRetPath = $sCurrentPath EndIf EndSwitch If $iHide_Link Then $aDLL_Ret = DllCall($hDLL, 'handle', 'FindFirstFileW', 'wstr', $sCurrentPath & "*", 'struct*', $tFile_Data) If @error Or Not $aDLL_Ret[0] Then ContinueLoop EndIf $hSearch = $aDLL_Ret[0] Else $hSearch = FileFindFirstFile($sCurrentPath & "*") If $hSearch = -1 Then ContinueLoop EndIf EndIf If $iReturn = 0 And $iSort And $iReturnPath Then __FLTAR_AddToList($asFolderFileSectionList, $sRetPath, $asFileMatchList[0] + 1) EndIf $sAttribs = '' While 1 If $iHide_Link Then $aDLL_Ret = DllCall($hDLL, 'int', 'FindNextFileW', 'handle', $hSearch, 'struct*', $tFile_Data) If @error Or Not $aDLL_Ret[0] Then ExitLoop EndIf $sName = DllStructGetData($tFile_Data, "FileName") If $sName = ".." Then ContinueLoop EndIf $iAttribs = DllStructGetData($tFile_Data, "FileAttributes") If $iHide_HS And BitAND($iAttribs, $iHide_HS) Then ContinueLoop EndIf If BitAND($iAttribs, $iHide_Link) Then ContinueLoop EndIf $bFolder = False If BitAND($iAttribs, 16) Then $bFolder = True EndIf Else $bFolder = False $sName = FileFindNextFile($hSearch, 1) If @error Then ExitLoop EndIf $sAttribs = @extended If StringInStr($sAttribs, "D") Then $bFolder = True EndIf If StringRegExp($sAttribs, "[" & $sHide_HS & "]") Then ContinueLoop EndIf EndIf If $bFolder Then Select Case $iRecur < 0 StringReplace($sCurrentPath, "\", "", 0, $STR_NOCASESENSEBASIC) If @extended < $iMaxLevel Then ContinueCase EndIf Case $iRecur = 1 If Not StringRegExp($sName, $sExclude_Folder_Mask) Then __FLTAR_AddToList($asFolderSearchList, $sCurrentPath & $sName & "\") EndIf EndSelect EndIf If $iSort Then If $bFolder Then If StringRegExp($sName, $sInclude_Folder_Mask) And Not StringRegExp($sName, $sExclude_Folder_Mask) Then __FLTAR_AddToList($asFolderMatchList, $sRetPath & $sName & $sFolderSlash) EndIf Else If StringRegExp($sName, $sInclude_File_Mask) And Not StringRegExp($sName, $sExclude_File_Mask) Then If $sCurrentPath = $sFilePath Then __FLTAR_AddToList($asRootFileMatchList, $sRetPath & $sName) Else __FLTAR_AddToList($asFileMatchList, $sRetPath & $sName) EndIf EndIf EndIf Else If $bFolder Then If $iReturn <> 1 And StringRegExp($sName, $sInclude_Folder_Mask) And Not StringRegExp($sName, $sExclude_Folder_Mask) Then __FLTAR_AddToList($asReturnList, $sRetPath & $sName & $sFolderSlash) EndIf Else If $iReturn <> 2 And StringRegExp($sName, $sInclude_File_Mask) And Not StringRegExp($sName, $sExclude_File_Mask) Then __FLTAR_AddToList($asReturnList, $sRetPath & $sName) EndIf EndIf EndIf WEnd If $iHide_Link Then DllCall($hDLL, 'int', 'FindClose', 'ptr', $hSearch) Else FileClose($hSearch) EndIf WEnd If $iHide_Link Then DllClose($hDLL) EndIf If $iSort Then Switch $iReturn Case 2 If $asFolderMatchList[0] = 0 Then Return SetError(1, 9, "") ReDim $asFolderMatchList[$asFolderMatchList[0] + 1] $asReturnList = $asFolderMatchList __ArrayDualPivotSort($asReturnList, 1, $asReturnList[0]) Case 1 If $asRootFileMatchList[0] = 0 And $asFileMatchList[0] = 0 Then Return SetError(1, 9, "") If $iReturnPath = 0 Then __FLTAR_AddFileLists($asReturnList, $asRootFileMatchList, $asFileMatchList) __ArrayDualPivotSort($asReturnList, 1, $asReturnList[0]) Else __FLTAR_AddFileLists($asReturnList, $asRootFileMatchList, $asFileMatchList, 1) EndIf Case 0 If $asRootFileMatchList[0] = 0 And $asFolderMatchList[0] = 0 Then Return SetError(1, 9, "") If $iReturnPath = 0 Then __FLTAR_AddFileLists($asReturnList, $asRootFileMatchList, $asFileMatchList) $asReturnList[0] += $asFolderMatchList[0] ReDim $asFolderMatchList[$asFolderMatchList[0] + 1] _ArrayConcatenate($asReturnList, $asFolderMatchList, 1) __ArrayDualPivotSort($asReturnList, 1, $asReturnList[0]) Else Local $asReturnList[$asFileMatchList[0] + $asRootFileMatchList[0] + $asFolderMatchList[0] + 1] $asReturnList[0] = $asFileMatchList[0] + $asRootFileMatchList[0] + $asFolderMatchList[0] __ArrayDualPivotSort($asRootFileMatchList, 1, $asRootFileMatchList[0]) For $i = 1 To $asRootFileMatchList[0] $asReturnList[$i] = $asRootFileMatchList[$i] Next Local $iNextInsertionIndex = $asRootFileMatchList[0] + 1 __ArrayDualPivotSort($asFolderMatchList, 1, $asFolderMatchList[0]) Local $sFolderToFind = "" For $i = 1 To $asFolderMatchList[0] $asReturnList[$iNextInsertionIndex] = $asFolderMatchList[$i] $iNextInsertionIndex += 1 If $sFolderSlash Then $sFolderToFind = $asFolderMatchList[$i] Else $sFolderToFind = $asFolderMatchList[$i] & "\" EndIf Local $iFileSectionEndIndex = 0, $iFileSectionStartIndex = 0 For $j = 1 To $asFolderFileSectionList[0][0] If $sFolderToFind = $asFolderFileSectionList[$j][0] Then $iFileSectionStartIndex = $asFolderFileSectionList[$j][1] If $j = $asFolderFileSectionList[0][0] Then $iFileSectionEndIndex = $asFileMatchList[0] Else $iFileSectionEndIndex = $asFolderFileSectionList[$j + 1][1] - 1 EndIf If $iSort = 1 Then __ArrayDualPivotSort($asFileMatchList, $iFileSectionStartIndex, $iFileSectionEndIndex) EndIf For $k = $iFileSectionStartIndex To $iFileSectionEndIndex $asReturnList[$iNextInsertionIndex] = $asFileMatchList[$k] $iNextInsertionIndex += 1 Next ExitLoop EndIf Next Next EndIf EndSwitch Else If $asReturnList[0] = 0 Then Return SetError(1, 9, "") ReDim $asReturnList[$asReturnList[0] + 1] EndIf Return $asReturnList EndFunc Func __FLTAR_AddFileLists(ByRef $asTarget, $asSource_1, $asSource_2, $iSort = 0) ReDim $asSource_1[$asSource_1[0] + 1] If $iSort = 1 Then __ArrayDualPivotSort($asSource_1, 1, $asSource_1[0]) $asTarget = $asSource_1 $asTarget[0] += $asSource_2[0] ReDim $asSource_2[$asSource_2[0] + 1] If $iSort = 1 Then __ArrayDualPivotSort($asSource_2, 1, $asSource_2[0]) _ArrayConcatenate($asTarget, $asSource_2, 1) EndFunc Func __FLTAR_AddToList(ByRef $aList, $vValue_0, $vValue_1 = -1) If $vValue_1 = -1 Then $aList[0] += 1 If UBound($aList) <= $aList[0] Then ReDim $aList[UBound($aList) * 2] $aList[$aList[0]] = $vValue_0 Else $aList[0][0] += 1 If UBound($aList) <= $aList[0][0] Then ReDim $aList[UBound($aList) * 2][2] $aList[$aList[0][0]][0] = $vValue_0 $aList[$aList[0][0]][1] = $vValue_1 EndIf EndFunc Func __FLTAR_ListToMask(ByRef $sMask, $sList) If StringRegExp($sList, "\\|/|:|\<|\>|\|") Then Return 0 $sList = StringReplace(StringStripWS(StringRegExpReplace($sList, "\s*;\s*", ";"), BitOR($STR_STRIPLEADING, $STR_STRIPTRAILING)), ";", "|") $sList = StringReplace(StringReplace(StringRegExpReplace($sList, "[][$^.{}()+\-]", "\\$0"), "?", "."), "*", ".*?") $sMask = "(?i)^(" & $sList & ")\z" Return 1 EndFunc Func _FilePrint($sFilePath, $iShow = @SW_HIDE) Return ShellExecute($sFilePath, "", @WorkingDir, "print", $iShow = Default ? @SW_HIDE : $iShow) EndFunc Func _FileReadToArray($sFilePath, ByRef $vReturn, $iFlags = $FRTA_COUNT, $sDelimiter = "") $vReturn = 0 If $iFlags = Default Then $iFlags = $FRTA_COUNT If $sDelimiter = Default Then $sDelimiter = "" Local $bExpand = True If BitAND($iFlags, $FRTA_INTARRAYS) Then $bExpand = False $iFlags -= $FRTA_INTARRAYS EndIf Local $iEntire = $STR_CHRSPLIT If BitAND($iFlags, $FRTA_ENTIRESPLIT) Then $iEntire = $STR_ENTIRESPLIT $iFlags -= $FRTA_ENTIRESPLIT EndIf Local $iNoCount = 0 If $iFlags <> $FRTA_COUNT Then $iFlags = $FRTA_NOCOUNT $iNoCount = $STR_NOCOUNT EndIf If $sDelimiter Then Local $aLines = FileReadToArray($sFilePath) If @error Then Return SetError(@error, 0, 0) Local $iDim_1 = UBound($aLines) + $iFlags If $bExpand Then Local $iDim_2 = UBound(StringSplit($aLines[0], $sDelimiter, $iEntire + $STR_NOCOUNT)) Local $aTemp_Array[$iDim_1][$iDim_2] Local $iFields, $aSplit For $i = 0 To $iDim_1 - $iFlags - 1 $aSplit = StringSplit($aLines[$i], $sDelimiter, $iEntire + $STR_NOCOUNT) $iFields = UBound($aSplit) If $iFields <> $iDim_2 Then Return SetError(3, 0, 0) EndIf For $j = 0 To $iFields - 1 $aTemp_Array[$i + $iFlags][$j] = $aSplit[$j] Next Next If $iDim_2 < 2 Then Return SetError(4, 0, 0) If $iFlags Then $aTemp_Array[0][0] = $iDim_1 - $iFlags $aTemp_Array[0][1] = $iDim_2 EndIf Else Local $aTemp_Array[$iDim_1] For $i = 0 To $iDim_1 - $iFlags - 1 $aTemp_Array[$i + $iFlags] = StringSplit($aLines[$i], $sDelimiter, $iEntire + $iNoCount) Next If $iFlags Then $aTemp_Array[0] = $iDim_1 - $iFlags EndIf EndIf $vReturn = $aTemp_Array Else If $iFlags Then Local $hFileOpen = FileOpen($sFilePath, $FO_READ) If $hFileOpen = -1 Then Return SetError(1, 0, 0) Local $sFileRead = FileRead($hFileOpen) FileClose($hFileOpen) If StringLen($sFileRead) Then $vReturn = StringRegExp(@LF & $sFileRead, "(?|(\N+)\z|(\N*)(?:\R))", $STR_REGEXPARRAYGLOBALMATCH) $vReturn[0] = UBound($vReturn) - 1 Else Return SetError(2, 0, 0) EndIf Else $vReturn = FileReadToArray($sFilePath) If @error Then $vReturn = 0 Return SetError(@error, 0, 0) EndIf EndIf EndIf Return 1 EndFunc Func _FileWriteFromArray($sFilePath, Const ByRef $aArray, $iBase = Default, $iUBound = Default, $sDelimiter = "|") Local $iReturn = 0 If Not IsArray($aArray) Then Return SetError(2, 0, $iReturn) Local $iDims = UBound($aArray, $UBOUND_DIMENSIONS) If $iDims > 2 Then Return SetError(4, 0, 0) Local $iLast = UBound($aArray) - 1 If $iUBound = Default Or $iUBound > $iLast Then $iUBound = $iLast If $iBase < 0 Or $iBase = Default Then $iBase = 0 If $iBase > $iUBound Then Return SetError(5, 0, $iReturn) If $sDelimiter = Default Then $sDelimiter = "|" Local $hFileOpen = $sFilePath If IsString($sFilePath) Then $hFileOpen = FileOpen($sFilePath, $FO_OVERWRITE) If $hFileOpen = -1 Then Return SetError(1, 0, $iReturn) EndIf Local $iError = 0 $iReturn = 1 Switch $iDims Case 1 For $i = $iBase To $iUBound If Not FileWrite($hFileOpen, $aArray[$i] & @CRLF) Then $iError = 3 $iReturn = 0 ExitLoop EndIf Next Case 2 Local $sTemp = "" For $i = $iBase To $iUBound $sTemp = $aArray[$i][0] For $j = 1 To UBound($aArray, $UBOUND_COLUMNS) - 1 $sTemp &= $sDelimiter & $aArray[$i][$j] Next If Not FileWrite($hFileOpen, $sTemp & @CRLF) Then $iError = 3 $iReturn = 0 ExitLoop EndIf Next EndSwitch If IsString($sFilePath) Then FileClose($hFileOpen) Return SetError($iError, 0, $iReturn) EndFunc Func _FileWriteLog($sLogPath, $sLogMsg, $iFlag = -1) Local $iOpenMode = $FO_APPEND Local $sMsg = @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & " : " & $sLogMsg If $iFlag = Default Then $iFlag = -1 If $iFlag <> -1 Then $iOpenMode = $FO_OVERWRITE $sMsg &= @CRLF & FileRead($sLogPath) EndIf Local $hFileOpen = $sLogPath If IsString($sLogPath) Then $hFileOpen = FileOpen($sLogPath, $iOpenMode) If $hFileOpen = -1 Then Return SetError(1, 0, 0) Local $iReturn = FileWriteLine($hFileOpen, $sMsg) If IsString($sLogPath) Then $iReturn = FileClose($hFileOpen) If $iReturn <= 0 Then Return SetError(2, $iReturn, 0) Return $iReturn EndFunc Func _FileWriteToLine($sFilePath, $iLine, $sText, $bOverWrite = False, $bFill = False) If $bOverWrite = Default Then $bOverWrite = False If $bFill = Default Then $bFill = False If Not FileExists($sFilePath) Then Return SetError(2, 0, 0) If $iLine <= 0 Then Return SetError(4, 0, 0) If Not (IsBool($bOverWrite) Or $bOverWrite = 0 Or $bOverWrite = 1) Then Return SetError(5, 0, 0) If Not IsString($sText) Then $sText = String($sText) If $sText = "" Then Return SetError(6, 0, 0) EndIf If Not IsBool($bFill) Then Return SetError(7, 0, 0) Local $aArray = FileReadToArray($sFilePath) If @error Then Local $aArray[0] Local $iUBound = UBound($aArray) - 1 If $bFill Then If $iUBound < $iLine Then ReDim $aArray[$iLine] $iUBound = $iLine - 1 EndIf Else If ($iUBound + 1) < $iLine Then Return SetError(1, 0, 0) EndIf $aArray[$iLine - 1] = ($bOverWrite ? $sText : $sText & @CRLF & $aArray[$iLine - 1]) Local $sData = "" For $i = 0 To $iUBound $sData &= $aArray[$i] & @CRLF Next $sData = StringTrimRight($sData, StringLen(@CRLF)) Local $hFileOpen = FileOpen($sFilePath, FileGetEncoding($sFilePath) + $FO_OVERWRITE) If $hFileOpen = -1 Then Return SetError(3, 0, 0) FileWrite($hFileOpen, $sData) FileClose($hFileOpen) Return 1 EndFunc Func _PathFull($sRelativePath, $sBasePath = @WorkingDir) If Not $sRelativePath Or $sRelativePath = "." Then Return $sBasePath Local $sFullPath = StringReplace($sRelativePath, "/", "\") Local Const $sFullPathConst = $sFullPath Local $sPath Local $bRootOnly = StringLeft($sFullPath, 1) = "\" And StringMid($sFullPath, 2, 1) <> "\" If $sBasePath = Default Then $sBasePath = @WorkingDir For $i = 1 To 2 $sPath = StringLeft($sFullPath, 2) If $sPath = "\\" Then $sFullPath = StringTrimLeft($sFullPath, 2) Local $nServerLen = StringInStr($sFullPath, "\") - 1 $sPath = "\\" & StringLeft($sFullPath, $nServerLen) $sFullPath = StringTrimLeft($sFullPath, $nServerLen) ExitLoop ElseIf StringRight($sPath, 1) = ":" Then $sFullPath = StringTrimLeft($sFullPath, 2) ExitLoop Else $sFullPath = $sBasePath & "\" & $sFullPath EndIf Next If StringLeft($sFullPath, 1) <> "\" Then If StringLeft($sFullPathConst, 2) = StringLeft($sBasePath, 2) Then $sFullPath = $sBasePath & "\" & $sFullPath Else $sFullPath = "\" & $sFullPath EndIf EndIf Local $aTemp = StringSplit($sFullPath, "\") Local $aPathParts[$aTemp[0]], $j = 0 For $i = 2 To $aTemp[0] If $aTemp[$i] = ".." Then If $j Then $j -= 1 ElseIf Not ($aTemp[$i] = "" And $i <> $aTemp[0]) And $aTemp[$i] <> "." Then $aPathParts[$j] = $aTemp[$i] $j += 1 EndIf Next $sFullPath = $sPath If Not $bRootOnly Then For $i = 0 To $j - 1 $sFullPath &= "\" & $aPathParts[$i] Next Else $sFullPath &= $sFullPathConst If StringInStr($sFullPath, "..") Then $sFullPath = _PathFull($sFullPath) EndIf Do $sFullPath = StringReplace($sFullPath, ".\", "\") Until @extended = 0 Return $sFullPath EndFunc Func _PathGetRelative($sFrom, $sTo) If StringRight($sFrom, 1) <> "\" Then $sFrom &= "\" If StringRight($sTo, 1) <> "\" Then $sTo &= "\" If $sFrom = $sTo Then Return SetError(1, 0, StringTrimRight($sTo, 1)) Local $asFrom = StringSplit($sFrom, "\") Local $asTo = StringSplit($sTo, "\") If $asFrom[1] <> $asTo[1] Then Return SetError(2, 0, StringTrimRight($sTo, 1)) Local $i = 2 Local $iDiff = 1 While 1 If $asFrom[$i] <> $asTo[$i] Then $iDiff = $i ExitLoop EndIf $i += 1 WEnd $i = 1 Local $sRelPath = "" For $j = 1 To $asTo[0] If $i >= $iDiff Then $sRelPath &= "\" & $asTo[$i] EndIf $i += 1 Next $sRelPath = StringTrimLeft($sRelPath, 1) $i = 1 For $j = 1 To $asFrom[0] If $i > $iDiff Then $sRelPath = "..\" & $sRelPath EndIf $i += 1 Next If StringRight($sRelPath, 1) == "\" Then $sRelPath = StringTrimRight($sRelPath, 1) Return $sRelPath EndFunc Func _PathMake($sDrive, $sDir, $sFileName, $sExtension) If StringLen($sDrive) Then If Not (StringLeft($sDrive, 2) = "\\") Then $sDrive = StringLeft($sDrive, 1) & ":" EndIf If StringLen($sDir) Then If Not (StringRight($sDir, 1) = "\") And Not (StringRight($sDir, 1) = "/") Then $sDir = $sDir & "\" Else $sDir = "\" EndIf If StringLen($sDir) Then If Not (StringLeft($sDir, 1) = "\") And Not (StringLeft($sDir, 1) = "/") Then $sDir = "\" & $sDir EndIf If StringLen($sExtension) Then If Not (StringLeft($sExtension, 1) = ".") Then $sExtension = "." & $sExtension EndIf Return $sDrive & $sDir & $sFileName & $sExtension EndFunc Func _PathSplit($sFilePath, ByRef $sDrive, ByRef $sDir, ByRef $sFileName, ByRef $sExtension) Local $aArray = StringRegExp($sFilePath, "^\h*((?:\\\\\?\\)*(\\\\[^\?\/\\]+|[A-Za-z]:)?(.*[\/\\]\h*)?((?:[^\.\/\\]|(?(?=\.[^\/\\]*\.)\.))*)?([^\/\\]*))$", $STR_REGEXPARRAYMATCH) If @error Then ReDim $aArray[5] $aArray[$PATH_ORIGINAL] = $sFilePath EndIf $sDrive = $aArray[$PATH_DRIVE] If StringLeft($aArray[$PATH_DIRECTORY], 1) == "/" Then $sDir = StringRegExpReplace($aArray[$PATH_DIRECTORY], "\h*[\/\\]+\h*", "\/") Else $sDir = StringRegExpReplace($aArray[$PATH_DIRECTORY], "\h*[\/\\]+\h*", "\\") EndIf $aArray[$PATH_DIRECTORY] = $sDir $sFileName = $aArray[$PATH_FILENAME] $sExtension = $aArray[$PATH_EXTENSION] Return $aArray EndFunc Func _ReplaceStringInFile($sFilePath, $sSearchString, $sReplaceString, $iCaseSensitive = 0, $iOccurance = 1) If StringInStr(FileGetAttrib($sFilePath), "R") Then Return SetError(1, 0, -1) Local $hFileOpen = FileOpen($sFilePath, $FO_READ) If $hFileOpen = -1 Then Return SetError(2, 0, -1) Local $sFileRead = FileRead($hFileOpen) FileClose($hFileOpen) If $iCaseSensitive = Default Then $iCaseSensitive = 0 If $iOccurance = Default Then $iOccurance = 1 $sFileRead = StringReplace($sFileRead, $sSearchString, $sReplaceString, 1 - $iOccurance, $iCaseSensitive) Local $iReturn = @extended If $iReturn Then Local $iFileEncoding = FileGetEncoding($sFilePath) $hFileOpen = FileOpen($sFilePath, $iFileEncoding + $FO_OVERWRITE) If $hFileOpen = -1 Then Return SetError(3, 0, -1) FileWrite($hFileOpen, $sFileRead) FileClose($hFileOpen) EndIf Return $iReturn EndFunc Func _TempFile($sDirectoryName = @TempDir, $sFilePrefix = "~", $sFileExtension = ".tmp", $iRandomLength = 7) If $iRandomLength = Default Or $iRandomLength <= 0 Then $iRandomLength = 7 If $sDirectoryName = Default Or (Not FileExists($sDirectoryName)) Then $sDirectoryName = @TempDir If $sFileExtension = Default Then $sFileExtension = ".tmp" If $sFilePrefix = Default Then $sFilePrefix = "~" If Not FileExists($sDirectoryName) Then $sDirectoryName = @ScriptDir $sDirectoryName = StringRegExpReplace($sDirectoryName, "[\\/]+$", "") $sFileExtension = StringRegExpReplace($sFileExtension, "^\.+", "") $sFilePrefix = StringRegExpReplace($sFilePrefix, '[\\/:*?"<>|]', "") Local $sTempName = "" Do $sTempName = "" While StringLen($sTempName) < $iRandomLength $sTempName &= Chr(Random(97, 122, 1)) WEnd $sTempName = $sDirectoryName & "\" & $sFilePrefix & $sTempName & "." & $sFileExtension Until Not FileExists($sTempName) Return $sTempName EndFunc Global Const $GUI_EVENT_SINGLE = 0 Global Const $GUI_EVENT_ARRAY = 1 Global Const $GUI_EVENT_NONE = 0 Global Const $GUI_EVENT_CLOSE = -3 Global Const $GUI_EVENT_MINIMIZE = -4 Global Const $GUI_EVENT_RESTORE = -5 Global Const $GUI_EVENT_MAXIMIZE = -6 Global Const $GUI_EVENT_PRIMARYDOWN = -7 Global Const $GUI_EVENT_PRIMARYUP = -8 Global Const $GUI_EVENT_SECONDARYDOWN = -9 Global Const $GUI_EVENT_SECONDARYUP = -10 Global Const $GUI_EVENT_MOUSEMOVE = -11 Global Const $GUI_EVENT_RESIZED = -12 Global Const $GUI_EVENT_DROPPED = -13 Global Const $GUI_RUNDEFMSG = 'GUI_RUNDEFMSG' Global Const $GUI_AVISTOP = 0 Global Const $GUI_AVISTART = 1 Global Const $GUI_AVICLOSE = 2 Global Const $GUI_CHECKED = 1 Global Const $GUI_INDETERMINATE = 2 Global Const $GUI_UNCHECKED = 4 Global Const $GUI_DROPACCEPTED = 8 Global Const $GUI_NODROPACCEPTED = 4096 Global Const $GUI_ACCEPTFILES = $GUI_DROPACCEPTED Global Const $GUI_SHOW = 16 Global Const $GUI_HIDE = 32 Global Const $GUI_ENABLE = 64 Global Const $GUI_DISABLE = 128 Global Const $GUI_FOCUS = 256 Global Const $GUI_NOFOCUS = 8192 Global Const $GUI_DEFBUTTON = 512 Global Const $GUI_EXPAND = 1024 Global Const $GUI_ONTOP = 2048 Global Const $GUI_FONTNORMAL = 0 Global Const $GUI_FONTITALIC = 2 Global Const $GUI_FONTUNDER = 4 Global Const $GUI_FONTSTRIKE = 8 Global Const $GUI_DOCKAUTO = 0x0001 Global Const $GUI_DOCKLEFT = 0x0002 Global Const $GUI_DOCKRIGHT = 0x0004 Global Const $GUI_DOCKHCENTER = 0x0008 Global Const $GUI_DOCKTOP = 0x0020 Global Const $GUI_DOCKBOTTOM = 0x0040 Global Const $GUI_DOCKVCENTER = 0x0080 Global Const $GUI_DOCKWIDTH = 0x0100 Global Const $GUI_DOCKHEIGHT = 0x0200 Global Const $GUI_DOCKSIZE = 0x0300 Global Const $GUI_DOCKMENUBAR = 0x0220 Global Const $GUI_DOCKSTATEBAR = 0x0240 Global Const $GUI_DOCKALL = 0x0322 Global Const $GUI_DOCKBORDERS = 0x0066 Global Const $GUI_GR_CLOSE = 1 Global Const $GUI_GR_LINE = 2 Global Const $GUI_GR_BEZIER = 4 Global Const $GUI_GR_MOVE = 6 Global Const $GUI_GR_COLOR = 8 Global Const $GUI_GR_RECT = 10 Global Const $GUI_GR_ELLIPSE = 12 Global Const $GUI_GR_PIE = 14 Global Const $GUI_GR_DOT = 16 Global Const $GUI_GR_PIXEL = 18 Global Const $GUI_GR_HINT = 20 Global Const $GUI_GR_REFRESH = 22 Global Const $GUI_GR_PENSIZE = 24 Global Const $GUI_GR_NOBKCOLOR = -2 Global Const $GUI_BKCOLOR_DEFAULT = -1 Global Const $GUI_BKCOLOR_TRANSPARENT = -2 Global Const $GUI_BKCOLOR_LV_ALTERNATE = 0xFE000000 Global Const $GUI_READ_DEFAULT = 0 Global Const $GUI_READ_EXTENDED = 1 Global Const $GUI_CURSOR_NOOVERRIDE = 0 Global Const $GUI_CURSOR_OVERRIDE = 1 Global Const $GUI_WS_EX_PARENTDRAG = 0x00100000 Global Const $ACS_CENTER = 1 Global Const $ACS_TRANSPARENT = 2 Global Const $ACS_AUTOPLAY = 4 Global Const $ACS_TIMER = 8 Global Const $ACS_NONTRANSPARENT = 16 Global Const $GUI_SS_DEFAULT_AVI = $ACS_TRANSPARENT Global Const $__AVICONSTANT_WM_USER = 0x400 Global Const $ACM_OPENA = $__AVICONSTANT_WM_USER + 100 Global Const $ACM_PLAY = $__AVICONSTANT_WM_USER + 101 Global Const $ACM_STOP = $__AVICONSTANT_WM_USER + 102 Global Const $ACM_ISPLAYING = $__AVICONSTANT_WM_USER + 104 Global Const $ACM_OPENW = $__AVICONSTANT_WM_USER + 103 Global Const $ACN_START = 0x00000001 Global Const $ACN_STOP = 0x00000002 Global Const $CB_ERR = -1 Global Const $CB_ERRATTRIBUTE = -3 Global Const $CB_ERRREQUIRED = -4 Global Const $CB_ERRSPACE = -2 Global Const $CB_OKAY = 0 Global Const $STATE_SYSTEM_INVISIBLE = 0x8000 Global Const $STATE_SYSTEM_PRESSED = 0x8 Global Const $CBS_AUTOHSCROLL = 0x40 Global Const $CBS_DISABLENOSCROLL = 0x800 Global Const $CBS_DROPDOWN = 0x2 Global Const $CBS_DROPDOWNLIST = 0x3 Global Const $CBS_HASSTRINGS = 0x200 Global Const $CBS_LOWERCASE = 0x4000 Global Const $CBS_NOINTEGRALHEIGHT = 0x400 Global Const $CBS_OEMCONVERT = 0x80 Global Const $CBS_OWNERDRAWFIXED = 0x10 Global Const $CBS_OWNERDRAWVARIABLE = 0x20 Global Const $CBS_SIMPLE = 0x1 Global Const $CBS_SORT = 0x100 Global Const $CBS_UPPERCASE = 0x2000 Global Const $CBM_FIRST = 0x1700 Global Const $CB_ADDSTRING = 0x143 Global Const $CB_DELETESTRING = 0x144 Global Const $CB_DIR = 0x145 Global Const $CB_FINDSTRING = 0x14C Global Const $CB_FINDSTRINGEXACT = 0x158 Global Const $CB_GETCOMBOBOXINFO = 0x164 Global Const $CB_GETCOUNT = 0x146 Global Const $CB_GETCUEBANNER = ($CBM_FIRST + 4) Global Const $CB_GETCURSEL = 0x147 Global Const $CB_GETDROPPEDCONTROLRECT = 0x152 Global Const $CB_GETDROPPEDSTATE = 0x157 Global Const $CB_GETDROPPEDWIDTH = 0X15f Global Const $CB_GETEDITSEL = 0x140 Global Const $CB_GETEXTENDEDUI = 0x156 Global Const $CB_GETHORIZONTALEXTENT = 0x15d Global Const $CB_GETITEMDATA = 0x150 Global Const $CB_GETITEMHEIGHT = 0x154 Global Const $CB_GETLBTEXT = 0x148 Global Const $CB_GETLBTEXTLEN = 0x149 Global Const $CB_GETLOCALE = 0x15A Global Const $CB_GETMINVISIBLE = 0x1702 Global Const $CB_GETTOPINDEX = 0x15b Global Const $CB_INITSTORAGE = 0x161 Global Const $CB_LIMITTEXT = 0x141 Global Const $CB_RESETCONTENT = 0x14B Global Const $CB_INSERTSTRING = 0x14A Global Const $CB_SELECTSTRING = 0x14D Global Const $CB_SETCUEBANNER = ($CBM_FIRST + 3) Global Const $CB_SETCURSEL = 0x14E Global Const $CB_SETDROPPEDWIDTH = 0x160 Global Const $CB_SETEDITSEL = 0x142 Global Const $CB_SETEXTENDEDUI = 0x155 Global Const $CB_SETHORIZONTALEXTENT = 0x15e Global Const $CB_SETITEMDATA = 0x151 Global Const $CB_SETITEMHEIGHT = 0x153 Global Const $CB_SETLOCALE = 0x159 Global Const $CB_SETMINVISIBLE = 0x1701 Global Const $CB_SETTOPINDEX = 0x15c Global Const $CB_SHOWDROPDOWN = 0x14F Global Const $CBN_CLOSEUP = 8 Global Const $CBN_DBLCLK = 2 Global Const $CBN_DROPDOWN = 7 Global Const $CBN_EDITCHANGE = 5 Global Const $CBN_EDITUPDATE = 6 Global Const $CBN_ERRSPACE = (-1) Global Const $CBN_KILLFOCUS = 4 Global Const $CBN_SELCHANGE = 1 Global Const $CBN_SELENDCANCEL = 10 Global Const $CBN_SELENDOK = 9 Global Const $CBN_SETFOCUS = 3 Global Const $CBES_EX_CASESENSITIVE = 0x10 Global Const $CBES_EX_NOEDITIMAGE = 0x1 Global Const $CBES_EX_NOEDITIMAGEINDENT = 0x2 Global Const $CBES_EX_NOSIZELIMIT = 0x8 Global Const $__COMBOBOXCONSTANT_WM_USER = 0X400 Global Const $CBEM_DELETEITEM = $CB_DELETESTRING Global Const $CBEM_GETCOMBOCONTROL = ($__COMBOBOXCONSTANT_WM_USER + 6) Global Const $CBEM_GETEDITCONTROL = ($__COMBOBOXCONSTANT_WM_USER + 7) Global Const $CBEM_GETEXSTYLE = ($__COMBOBOXCONSTANT_WM_USER + 9) Global Const $CBEM_GETEXTENDEDSTYLE = ($__COMBOBOXCONSTANT_WM_USER + 9) Global Const $CBEM_GETIMAGELIST = ($__COMBOBOXCONSTANT_WM_USER + 3) Global Const $CBEM_GETITEMA = ($__COMBOBOXCONSTANT_WM_USER + 4) Global Const $CBEM_GETITEMW = ($__COMBOBOXCONSTANT_WM_USER + 13) Global Const $CBEM_GETUNICODEFORMAT = 0x2000 + 6 Global Const $CBEM_HASEDITCHANGED = ($__COMBOBOXCONSTANT_WM_USER + 10) Global Const $CBEM_INSERTITEMA = ($__COMBOBOXCONSTANT_WM_USER + 1) Global Const $CBEM_INSERTITEMW = ($__COMBOBOXCONSTANT_WM_USER + 11) Global Const $CBEM_SETEXSTYLE = ($__COMBOBOXCONSTANT_WM_USER + 8) Global Const $CBEM_SETEXTENDEDSTYLE = ($__COMBOBOXCONSTANT_WM_USER + 14) Global Const $CBEM_SETIMAGELIST = ($__COMBOBOXCONSTANT_WM_USER + 2) Global Const $CBEM_SETITEMA = ($__COMBOBOXCONSTANT_WM_USER + 5) Global Const $CBEM_SETITEMW = ($__COMBOBOXCONSTANT_WM_USER + 12) Global Const $CBEM_SETUNICODEFORMAT = 0x2000 + 5 Global Const $CBEM_SETWINDOWTHEME = 0x2000 + 11 Global Const $CBEN_FIRST = (-800) Global Const $CBEN_LAST = (-830) Global Const $CBEN_BEGINEDIT = ($CBEN_FIRST - 4) Global Const $CBEN_DELETEITEM = ($CBEN_FIRST - 2) Global Const $CBEN_DRAGBEGINA = ($CBEN_FIRST - 8) Global Const $CBEN_DRAGBEGINW = ($CBEN_FIRST - 9) Global Const $CBEN_ENDEDITA = ($CBEN_FIRST - 5) Global Const $CBEN_ENDEDITW = ($CBEN_FIRST - 6) Global Const $CBEN_GETDISPINFO = ($CBEN_FIRST - 0) Global Const $CBEN_GETDISPINFOA = ($CBEN_FIRST - 0) Global Const $CBEN_GETDISPINFOW = ($CBEN_FIRST - 7) Global Const $CBEN_INSERTITEM = ($CBEN_FIRST - 1) Global Const $CBEIF_DI_SETITEM = 0x10000000 Global Const $CBEIF_IMAGE = 0x2 Global Const $CBEIF_INDENT = 0x10 Global Const $CBEIF_LPARAM = 0x20 Global Const $CBEIF_OVERLAY = 0x8 Global Const $CBEIF_SELECTEDIMAGE = 0x4 Global Const $CBEIF_TEXT = 0x1 Global Const $GUI_SS_DEFAULT_COMBO = 0x00200042 Global Const $LBS_NOTIFY = 0x00000001 Global Const $LBS_SORT = 0x00000002 Global Const $LBS_NOREDRAW = 0x00000004 Global Const $LBS_MULTIPLESEL = 0x00000008 Global Const $LBS_OWNERDRAWFIXED = 0x00000010 Global Const $LBS_OWNERDRAWVARIABLE = 0x00000020 Global Const $LBS_HASSTRINGS = 0x00000040 Global Const $LBS_USETABSTOPS = 0x00000080 Global Const $LBS_NOINTEGRALHEIGHT = 0x00000100 Global Const $LBS_MULTICOLUMN = 0x00000200 Global Const $LBS_WANTKEYBOARDINPUT = 0x00000400 Global Const $LBS_EXTENDEDSEL = 0x00000800 Global Const $LBS_DISABLENOSCROLL = 0x00001000 Global Const $LBS_NODATA = 0x00002000 Global Const $LBS_NOSEL = 0x00004000 Global Const $LBS_COMBOBOX = 0x00008000 Global Const $LBS_STANDARD = 0x00000003 Global Const $GUI_SS_DEFAULT_LIST = 0x00a00003 Global Const $LB_ERR = -1 Global Const $LB_ERRATTRIBUTE = -3 Global Const $LB_ERRREQUIRED = -4 Global Const $LB_ERRSPACE = -2 Global Const $LB_ADDSTRING = 0x0180 Global Const $LB_INSERTSTRING = 0x0181 Global Const $LB_DELETESTRING = 0x0182 Global Const $LB_SELITEMRANGEEX = 0x0183 Global Const $LB_RESETCONTENT = 0x0184 Global Const $LB_SETSEL = 0x0185 Global Const $LB_SETCURSEL = 0x0186 Global Const $LB_GETSEL = 0x0187 Global Const $LB_GETCURSEL = 0x0188 Global Const $LB_GETTEXT = 0x0189 Global Const $LB_GETTEXTLEN = 0x018A Global Const $LB_GETCOUNT = 0x018B Global Const $LB_SELECTSTRING = 0x018C Global Const $LB_DIR = 0x018D Global Const $LB_GETTOPINDEX = 0x018E Global Const $LB_FINDSTRING = 0x018F Global Const $LB_GETSELCOUNT = 0x0190 Global Const $LB_GETSELITEMS = 0x0191 Global Const $LB_SETTABSTOPS = 0x0192 Global Const $LB_GETHORIZONTALEXTENT = 0x0193 Global Const $LB_SETHORIZONTALEXTENT = 0x0194 Global Const $LB_SETCOLUMNWIDTH = 0x0195 Global Const $LB_ADDFILE = 0x0196 Global Const $LB_SETTOPINDEX = 0x0197 Global Const $LB_GETITEMRECT = 0x0198 Global Const $LB_GETITEMDATA = 0x0199 Global Const $LB_SETITEMDATA = 0x019A Global Const $LB_SELITEMRANGE = 0x019B Global Const $LB_SETANCHORINDEX = 0x019C Global Const $LB_GETANCHORINDEX = 0x019D Global Const $LB_SETCARETINDEX = 0x019E Global Const $LB_GETCARETINDEX = 0x019F Global Const $LB_SETITEMHEIGHT = 0x01A0 Global Const $LB_GETITEMHEIGHT = 0x01A1 Global Const $LB_FINDSTRINGEXACT = 0x01A2 Global Const $LB_SETLOCALE = 0x01A5 Global Const $LB_GETLOCALE = 0x01A6 Global Const $LB_SETCOUNT = 0x01A7 Global Const $LB_INITSTORAGE = 0x01A8 Global Const $LB_ITEMFROMPOINT = 0x01A9 Global Const $LB_MULTIPLEADDSTRING = 0x01B1 Global Const $LB_GETLISTBOXINFO = 0x01B2 Global Const $LBN_ERRSPACE = 0xFFFFFFFE Global Const $LBN_SELCHANGE = 0x00000001 Global Const $LBN_DBLCLK = 0x00000002 Global Const $LBN_SELCANCEL = 0x00000003 Global Const $LBN_SETFOCUS = 0x00000004 Global Const $LBN_KILLFOCUS = 0x00000005 Global Const $LVGS_NORMAL = 0x00000000 Global Const $LVGS_COLLAPSED = 0x00000001 Global Const $LVGS_HIDDEN = 0x00000002 Global Const $LVGS_NOHEADER = 0x00000004 Global Const $LVGS_COLLAPSIBLE = 0x00000008 Global Const $LVGS_FOCUSED = 0x00000010 Global Const $LVGS_SELECTED = 0x00000020 Global Const $LVGS_SUBSETED = 0x00000040 Global Const $LVGS_SUBSETLINKFOCUSED = 0x00000080 Global Const $LVGGR_GROUP = 0 Global Const $LVGGR_HEADER = 1 Global Const $LVGGR_LABEL = 2 Global Const $LVGGR_SUBSETLINK = 3 Global Const $LV_ERR = -1 Global Const $LVBKIF_SOURCE_NONE = 0x00000000 Global Const $LVBKIF_SOURCE_HBITMAP = 0x00000001 Global Const $LVBKIF_SOURCE_URL = 0x00000002 Global Const $LVBKIF_SOURCE_MASK = 0x00000003 Global Const $LVBKIF_STYLE_NORMAL = 0x00000000 Global Const $LVBKIF_STYLE_TILE = 0x00000010 Global Const $LVBKIF_STYLE_MASK = 0x00000010 Global Const $LVBKIF_FLAG_TILEOFFSET = 0x00000100 Global Const $LVBKIF_TYPE_WATERMARK = 0x10000000 Global Const $LV_VIEW_DETAILS = 0x0001 Global Const $LV_VIEW_ICON = 0x0000 Global Const $LV_VIEW_LIST = 0x0003 Global Const $LV_VIEW_SMALLICON = 0x0002 Global Const $LV_VIEW_TILE = 0x0004 Global Const $LVA_ALIGNLEFT = 0x0001 Global Const $LVA_ALIGNTOP = 0x0002 Global Const $LVA_DEFAULT = 0x0000 Global Const $LVA_SNAPTOGRID = 0x0005 Global Const $LVCDI_ITEM = 0x00000000 Global Const $LVCDI_GROUP = 0x00000001 Global Const $LVCF_ALLDATA = 0X0000003F Global Const $LVCF_FMT = 0x0001 Global Const $LVCF_IMAGE = 0x0010 Global Const $LVCFMT_JUSTIFYMASK = 0x0003 Global Const $LVCF_TEXT = 0x0004 Global Const $LVCF_WIDTH = 0x0002 Global Const $LVCFMT_BITMAP_ON_RIGHT = 0x1000 Global Const $LVCFMT_CENTER = 0x0002 Global Const $LVCFMT_COL_HAS_IMAGES = 0x8000 Global Const $LVCFMT_IMAGE = 0x0800 Global Const $LVCFMT_LEFT = 0x0000 Global Const $LVCFMT_RIGHT = 0x0001 Global Const $LVCFMT_LINE_BREAK = 0x100000 Global Const $LVCFMT_FILL = 0x200000 Global Const $LVCFMT_WRAP = 0x400000 Global Const $LVCFMT_NO_TITLE = 0x800000 Global Const $LVCFMT_TILE_PLACEMENTMASK = BitOR($LVCFMT_LINE_BREAK, $LVCFMT_FILL) Global Const $LVFI_NEARESTXY = 0x0040 Global Const $LVFI_PARAM = 0x0001 Global Const $LVFI_PARTIAL = 0x0008 Global Const $LVFI_STRING = 0x0002 Global Const $LVFI_SUBSTRING = 0x0004 Global Const $LVFI_WRAP = 0x0020 Global Const $LVGA_FOOTER_LEFT = 0x00000008 Global Const $LVGA_FOOTER_CENTER = 0x00000010 Global Const $LVGA_FOOTER_RIGHT = 0x00000020 Global Const $LVGA_HEADER_LEFT = 0x00000001 Global Const $LVGA_HEADER_CENTER = 0x00000002 Global Const $LVGA_HEADER_RIGHT = 0x00000004 Global Const $LVGF_ALIGN = 0x00000008 Global Const $LVGF_DESCRIPTIONTOP = 0x00000400 Global Const $LVGF_DESCRIPTIONBOTTOM = 0x00000800 Global Const $LVGF_EXTENDEDIMAGE = 0x00002000 Global Const $LVGF_FOOTER = 0x00000002 Global Const $LVGF_GROUPID = 0x00000010 Global Const $LVGF_HEADER = 0x00000001 Global Const $LVGF_ITEMS = 0x00004000 Global Const $LVGF_NONE = 0x00000000 Global Const $LVGF_STATE = 0x00000004 Global Const $LVGF_SUBSET = 0x00008000 Global Const $LVGF_SUBSETITEMS = 0x00010000 Global Const $LVGF_SUBTITLE = 0x00000100 Global Const $LVGF_TASK = 0x00000200 Global Const $LVGF_TITLEIMAGE = 0x00001000 Global Const $LVHT_ABOVE = 0x00000008 Global Const $LVHT_BELOW = 0x00000010 Global Const $LVHT_NOWHERE = 0x00000001 Global Const $LVHT_ONITEMICON = 0x00000002 Global Const $LVHT_ONITEMLABEL = 0x00000004 Global Const $LVHT_ONITEMSTATEICON = 0x00000008 Global Const $LVHT_TOLEFT = 0x00000040 Global Const $LVHT_TORIGHT = 0x00000020 Global Const $LVHT_ONITEM = BitOR($LVHT_ONITEMICON, $LVHT_ONITEMLABEL, $LVHT_ONITEMSTATEICON) Global Const $LVHT_EX_GROUP_HEADER = 0x10000000 Global Const $LVHT_EX_GROUP_FOOTER = 0x20000000 Global Const $LVHT_EX_GROUP_COLLAPSE = 0x40000000 Global Const $LVHT_EX_GROUP_BACKGROUND = 0x80000000 Global Const $LVHT_EX_GROUP_STATEICON = 0x01000000 Global Const $LVHT_EX_GROUP_SUBSETLINK = 0x02000000 Global Const $LVHT_EX_GROUP = BitOR($LVHT_EX_GROUP_BACKGROUND, $LVHT_EX_GROUP_COLLAPSE, $LVHT_EX_GROUP_FOOTER, $LVHT_EX_GROUP_HEADER, $LVHT_EX_GROUP_STATEICON, $LVHT_EX_GROUP_SUBSETLINK) Global Const $LVHT_EX_ONCONTENTS = 0x04000000 Global Const $LVHT_EX_FOOTER = 0x08000000 Global Const $LVIF_COLFMT = 0x00010000 Global Const $LVIF_COLUMNS = 0x00000200 Global Const $LVIF_GROUPID = 0x00000100 Global Const $LVIF_IMAGE = 0x00000002 Global Const $LVIF_INDENT = 0x00000010 Global Const $LVIF_NORECOMPUTE = 0x00000800 Global Const $LVIF_PARAM = 0x00000004 Global Const $LVIF_STATE = 0x00000008 Global Const $LVIF_TEXT = 0x00000001 Global Const $LVIM_AFTER = 0x00000001 Global Const $LVIR_BOUNDS = 0 Global Const $LVIR_ICON = 1 Global Const $LVIR_LABEL = 2 Global Const $LVIR_SELECTBOUNDS = 3 Global Const $LVIS_CUT = 0x0004 Global Const $LVIS_DROPHILITED = 0x0008 Global Const $LVIS_FOCUSED = 0x0001 Global Const $LVIS_OVERLAYMASK = 0x0F00 Global Const $LVIS_SELECTED = 0x0002 Global Const $LVIS_STATEIMAGEMASK = 0xF000 Global Const $LVS_ALIGNLEFT = 0x0800 Global Const $LVS_ALIGNMASK = 0x0c00 Global Const $LVS_ALIGNTOP = 0x0000 Global Const $LVS_AUTOARRANGE = 0x0100 Global Const $LVS_DEFAULT = 0x0000000D Global Const $LVS_EDITLABELS = 0x0200 Global Const $LVS_ICON = 0x0000 Global Const $LVS_LIST = 0x0003 Global Const $LVS_NOCOLUMNHEADER = 0x4000 Global Const $LVS_NOLABELWRAP = 0x0080 Global Const $LVS_NOSCROLL = 0x2000 Global Const $LVS_NOSORTHEADER = 0x8000 Global Const $LVS_OWNERDATA = 0x1000 Global Const $LVS_OWNERDRAWFIXED = 0x0400 Global Const $LVS_REPORT = 0x0001 Global Const $LVS_SHAREIMAGELISTS = 0x0040 Global Const $LVS_SHOWSELALWAYS = 0x0008 Global Const $LVS_SINGLESEL = 0x0004 Global Const $LVS_SMALLICON = 0x0002 Global Const $LVS_SORTASCENDING = 0x0010 Global Const $LVS_SORTDESCENDING = 0x0020 Global Const $LVS_TYPEMASK = 0x0003 Global Const $LVS_TYPESTYLEMASK = 0xfc00 Global Const $LVS_EX_AUTOAUTOARRANGE = 0x01000000 Global Const $LVS_EX_AUTOCHECKSELECT = 0x08000000 Global Const $LVS_EX_AUTOSIZECOLUMNS = 0x10000000 Global Const $LVS_EX_BORDERSELECT = 0x00008000 Global Const $LVS_EX_CHECKBOXES = 0x00000004 Global Const $LVS_EX_COLUMNOVERFLOW = 0x80000000 Global Const $LVS_EX_COLUMNSNAPPOINTS = 0x40000000 Global Const $LVS_EX_DOUBLEBUFFER = 0x00010000 Global Const $LVS_EX_FLATSB = 0x00000100 Global Const $LVS_EX_FULLROWSELECT = 0x00000020 Global Const $LVS_EX_GRIDLINES = 0x00000001 Global Const $LVS_EX_HEADERDRAGDROP = 0x00000010 Global Const $LVS_EX_HEADERINALLVIEWS = 0x02000000 Global Const $LVS_EX_HIDELABELS = 0x20000 Global Const $LVS_EX_INFOTIP = 0x00000400 Global Const $LVS_EX_JUSTIFYCOLUMNS = 0x00200000 Global Const $LVS_EX_LABELTIP = 0x00004000 Global Const $LVS_EX_MULTIWORKAREAS = 0x00002000 Global Const $LVS_EX_ONECLICKACTIVATE = 0x00000040 Global Const $LVS_EX_REGIONAL = 0x00000200 Global Const $LVS_EX_SIMPLESELECT = 0x00100000 Global Const $LVS_EX_SNAPTOGRID = 0x00080000 Global Const $LVS_EX_SUBITEMIMAGES = 0x00000002 Global Const $LVS_EX_TRACKSELECT = 0x00000008 Global Const $LVS_EX_TRANSPARENTBKGND = 0x00400000 Global Const $LVS_EX_TRANSPARENTSHADOWTEXT = 0x00800000 Global Const $LVS_EX_TWOCLICKACTIVATE = 0x00000080 Global Const $LVS_EX_UNDERLINECOLD = 0x00001000 Global Const $LVS_EX_UNDERLINEHOT = 0x00000800 Global Const $GUI_SS_DEFAULT_LISTVIEW = BitOR($LVS_SHOWSELALWAYS, $LVS_SINGLESEL) Global Const $LVM_FIRST = 0x1000 Global Const $LVM_APPROXIMATEVIEWRECT = ($LVM_FIRST + 64) Global Const $LVM_ARRANGE = ($LVM_FIRST + 22) Global Const $LVM_CANCELEDITLABEL = ($LVM_FIRST + 179) Global Const $LVM_CREATEDRAGIMAGE = ($LVM_FIRST + 33) Global Const $LVM_DELETEALLITEMS = ($LVM_FIRST + 9) Global Const $LVM_DELETECOLUMN = ($LVM_FIRST + 28) Global Const $LVM_DELETEITEM = ($LVM_FIRST + 8) Global Const $LVM_EDITLABELA = ($LVM_FIRST + 23) Global Const $LVM_EDITLABELW = ($LVM_FIRST + 118) Global Const $LVM_EDITLABEL = $LVM_EDITLABELA Global Const $LVM_ENABLEGROUPVIEW = ($LVM_FIRST + 157) Global Const $LVM_ENSUREVISIBLE = ($LVM_FIRST + 19) Global Const $LVM_FINDITEM = ($LVM_FIRST + 13) Global Const $LVM_GETBKCOLOR = ($LVM_FIRST + 0) Global Const $LVM_GETBKIMAGEA = ($LVM_FIRST + 69) Global Const $LVM_GETBKIMAGEW = ($LVM_FIRST + 139) Global Const $LVM_GETCALLBACKMASK = ($LVM_FIRST + 10) Global Const $LVM_GETCOLUMNA = ($LVM_FIRST + 25) Global Const $LVM_GETCOLUMNW = ($LVM_FIRST + 95) Global Const $LVM_GETCOLUMNORDERARRAY = ($LVM_FIRST + 59) Global Const $LVM_GETCOLUMNWIDTH = ($LVM_FIRST + 29) Global Const $LVM_GETCOUNTPERPAGE = ($LVM_FIRST + 40) Global Const $LVM_GETEDITCONTROL = ($LVM_FIRST + 24) Global Const $LVM_GETEMPTYTEXT = ($LVM_FIRST + 204) Global Const $LVM_GETEXTENDEDLISTVIEWSTYLE = ($LVM_FIRST + 55) Global Const $LVM_GETFOCUSEDGROUP = ($LVM_FIRST + 93) Global Const $LVM_GETFOOTERINFO = ($LVM_FIRST + 206) Global Const $LVM_GETFOOTERITEM = ($LVM_FIRST + 208) Global Const $LVM_GETFOOTERITEMRECT = ($LVM_FIRST + 207) Global Const $LVM_GETFOOTERRECT = ($LVM_FIRST + 205) Global Const $LVM_GETGROUPCOUNT = ($LVM_FIRST + 152) Global Const $LVM_GETGROUPINFO = ($LVM_FIRST + 149) Global Const $LVM_GETGROUPINFOBYINDEX = ($LVM_FIRST + 153) Global Const $LVM_GETGROUPMETRICS = ($LVM_FIRST + 156) Global Const $LVM_GETGROUPRECT = ($LVM_FIRST + 98) Global Const $LVM_GETGROUPSTATE = ($LVM_FIRST + 92) Global Const $LVM_GETHEADER = ($LVM_FIRST + 31) Global Const $LVM_GETHOTCURSOR = ($LVM_FIRST + 63) Global Const $LVM_GETHOTITEM = ($LVM_FIRST + 61) Global Const $LVM_GETHOVERTIME = ($LVM_FIRST + 72) Global Const $LVM_GETIMAGELIST = ($LVM_FIRST + 2) Global Const $LVM_GETINSERTMARK = ($LVM_FIRST + 167) Global Const $LVM_GETINSERTMARKCOLOR = ($LVM_FIRST + 171) Global Const $LVM_GETINSERTMARKRECT = ($LVM_FIRST + 169) Global Const $LVM_GETISEARCHSTRINGA = ($LVM_FIRST + 52) Global Const $LVM_GETISEARCHSTRINGW = ($LVM_FIRST + 117) Global Const $LVM_GETITEMA = ($LVM_FIRST + 5) Global Const $LVM_GETITEMW = ($LVM_FIRST + 75) Global Const $LVM_GETITEMCOUNT = ($LVM_FIRST + 4) Global Const $LVM_GETITEMINDEXRECT = ($LVM_FIRST + 209) Global Const $LVM_GETITEMPOSITION = ($LVM_FIRST + 16) Global Const $LVM_GETITEMRECT = ($LVM_FIRST + 14) Global Const $LVM_GETITEMSPACING = ($LVM_FIRST + 51) Global Const $LVM_GETITEMSTATE = ($LVM_FIRST + 44) Global Const $LVM_GETITEMTEXTA = ($LVM_FIRST + 45) Global Const $LVM_GETITEMTEXTW = ($LVM_FIRST + 115) Global Const $LVM_GETNEXTITEM = ($LVM_FIRST + 12) Global Const $LVM_GETNEXTITEMINDEX = ($LVM_FIRST + 211) Global Const $LVM_GETNUMBEROFWORKAREAS = ($LVM_FIRST + 73) Global Const $LVM_GETORIGIN = ($LVM_FIRST + 41) Global Const $LVM_GETOUTLINECOLOR = ($LVM_FIRST + 176) Global Const $LVM_GETSELECTEDCOLUMN = ($LVM_FIRST + 174) Global Const $LVM_GETSELECTEDCOUNT = ($LVM_FIRST + 50) Global Const $LVM_GETSELECTIONMARK = ($LVM_FIRST + 66) Global Const $LVM_GETSTRINGWIDTHA = ($LVM_FIRST + 17) Global Const $LVM_GETSTRINGWIDTHW = ($LVM_FIRST + 87) Global Const $LVM_GETSUBITEMRECT = ($LVM_FIRST + 56) Global Const $LVM_GETTEXTBKCOLOR = ($LVM_FIRST + 37) Global Const $LVM_GETTEXTCOLOR = ($LVM_FIRST + 35) Global Const $LVM_GETTILEINFO = ($LVM_FIRST + 165) Global Const $LVM_GETTILEVIEWINFO = ($LVM_FIRST + 163) Global Const $LVM_GETTOOLTIPS = ($LVM_FIRST + 78) Global Const $LVM_GETTOPINDEX = ($LVM_FIRST + 39) Global Const $LVM_GETUNICODEFORMAT = 0x2000 + 6 Global Const $LVM_GETVIEW = ($LVM_FIRST + 143) Global Const $LVM_GETVIEWRECT = ($LVM_FIRST + 34) Global Const $LVM_GETWORKAREAS = ($LVM_FIRST + 70) Global Const $LVM_HASGROUP = ($LVM_FIRST + 161) Global Const $LVM_HITTEST = ($LVM_FIRST + 18) Global Const $LVM_INSERTCOLUMNA = ($LVM_FIRST + 27) Global Const $LVM_INSERTCOLUMNW = ($LVM_FIRST + 97) Global Const $LVM_INSERTGROUP = ($LVM_FIRST + 145) Global Const $LVM_INSERTGROUPSORTED = ($LVM_FIRST + 159) Global Const $LVM_INSERTITEMA = ($LVM_FIRST + 7) Global Const $LVM_INSERTITEMW = ($LVM_FIRST + 77) Global Const $LVM_INSERTMARKHITTEST = ($LVM_FIRST + 168) Global Const $LVM_ISGROUPVIEWENABLED = ($LVM_FIRST + 175) Global Const $LVM_ISITEMVISIBLE = ($LVM_FIRST + 182) Global Const $LVM_MAPIDTOINDEX = ($LVM_FIRST + 181) Global Const $LVM_MAPINDEXTOID = ($LVM_FIRST + 180) Global Const $LVM_MOVEGROUP = ($LVM_FIRST + 151) Global Const $LVM_REDRAWITEMS = ($LVM_FIRST + 21) Global Const $LVM_REMOVEALLGROUPS = ($LVM_FIRST + 160) Global Const $LVM_REMOVEGROUP = ($LVM_FIRST + 150) Global Const $LVM_SCROLL = ($LVM_FIRST + 20) Global Const $LVM_SETBKCOLOR = ($LVM_FIRST + 1) Global Const $LVM_SETBKIMAGEA = ($LVM_FIRST + 68) Global Const $LVM_SETBKIMAGEW = ($LVM_FIRST + 138) Global Const $LVM_SETCALLBACKMASK = ($LVM_FIRST + 11) Global Const $LVM_SETCOLUMNA = ($LVM_FIRST + 26) Global Const $LVM_SETCOLUMNW = ($LVM_FIRST + 96) Global Const $LVM_SETCOLUMNORDERARRAY = ($LVM_FIRST + 58) Global Const $LVM_SETCOLUMNWIDTH = ($LVM_FIRST + 30) Global Const $LVM_SETEXTENDEDLISTVIEWSTYLE = ($LVM_FIRST + 54) Global Const $LVM_SETGROUPINFO = ($LVM_FIRST + 147) Global Const $LVM_SETGROUPMETRICS = ($LVM_FIRST + 155) Global Const $LVM_SETHOTCURSOR = ($LVM_FIRST + 62) Global Const $LVM_SETHOTITEM = ($LVM_FIRST + 60) Global Const $LVM_SETHOVERTIME = ($LVM_FIRST + 71) Global Const $LVM_SETICONSPACING = ($LVM_FIRST + 53) Global Const $LVM_SETIMAGELIST = ($LVM_FIRST + 3) Global Const $LVM_SETINFOTIP = ($LVM_FIRST + 173) Global Const $LVM_SETINSERTMARK = ($LVM_FIRST + 166) Global Const $LVM_SETINSERTMARKCOLOR = ($LVM_FIRST + 170) Global Const $LVM_SETITEMA = ($LVM_FIRST + 6) Global Const $LVM_SETITEMW = ($LVM_FIRST + 76) Global Const $LVM_SETITEMCOUNT = ($LVM_FIRST + 47) Global Const $LVM_SETITEMINDEXSTATE = ($LVM_FIRST + 210) Global Const $LVM_SETITEMPOSITION = ($LVM_FIRST + 15) Global Const $LVM_SETITEMPOSITION32 = ($LVM_FIRST + 49) Global Const $LVM_SETITEMSTATE = ($LVM_FIRST + 43) Global Const $LVM_SETITEMTEXTA = ($LVM_FIRST + 46) Global Const $LVM_SETITEMTEXTW = ($LVM_FIRST + 116) Global Const $LVM_SETOUTLINECOLOR = ($LVM_FIRST + 177) Global Const $LVM_SETSELECTEDCOLUMN = ($LVM_FIRST + 140) Global Const $LVM_SETSELECTIONMARK = ($LVM_FIRST + 67) Global Const $LVM_SETTEXTBKCOLOR = ($LVM_FIRST + 38) Global Const $LVM_SETTEXTCOLOR = ($LVM_FIRST + 36) Global Const $LVM_SETTILEINFO = ($LVM_FIRST + 164) Global Const $LVM_SETTILEVIEWINFO = ($LVM_FIRST + 162) Global Const $LVM_SETTILEWIDTH = ($LVM_FIRST + 141) Global Const $LVM_SETTOOLTIPS = ($LVM_FIRST + 74) Global Const $LVM_SETUNICODEFORMAT = 0x2000 + 5 Global Const $LVM_SETVIEW = ($LVM_FIRST + 142) Global Const $LVM_SETWORKAREAS = ($LVM_FIRST + 65) Global Const $LVM_SORTGROUPS = ($LVM_FIRST + 158) Global Const $LVM_SORTITEMS = ($LVM_FIRST + 48) Global Const $LVM_SORTITEMSEX = ($LVM_FIRST + 81) Global Const $LVM_SUBITEMHITTEST = ($LVM_FIRST + 57) Global Const $LVM_UPDATE = ($LVM_FIRST + 42) Global Const $LVN_FIRST = -100 Global Const $LVN_LAST = -199 Global Const $LVN_BEGINDRAG = ($LVN_FIRST - 9) Global Const $LVN_BEGINLABELEDITA = ($LVN_FIRST - 5) Global Const $LVN_BEGINLABELEDITW = ($LVN_FIRST - 75) Global Const $LVN_BEGINRDRAG = ($LVN_FIRST - 11) Global Const $LVN_BEGINSCROLL = ($LVN_FIRST - 80) Global Const $LVN_COLUMNCLICK = ($LVN_FIRST - 8) Global Const $LVN_COLUMNDROPDOWN = ($LVN_FIRST - 64) Global Const $LVN_COLUMNOVERFLOWCLICK = ($LVN_FIRST - 66) Global Const $LVN_DELETEALLITEMS = ($LVN_FIRST - 4) Global Const $LVN_DELETEITEM = ($LVN_FIRST - 3) Global Const $LVN_ENDLABELEDITA = ($LVN_FIRST - 6) Global Const $LVN_ENDLABELEDITW = ($LVN_FIRST - 76) Global Const $LVN_ENDSCROLL = ($LVN_FIRST - 81) Global Const $LVN_GETDISPINFOA = ($LVN_FIRST - 50) Global Const $LVN_GETDISPINFOW = ($LVN_FIRST - 77) Global Const $LVN_GETDISPINFO = $LVN_GETDISPINFOA Global Const $LVN_GETEMPTYMARKUP = ($LVN_FIRST - 87) Global Const $LVN_GETINFOTIPA = ($LVN_FIRST - 57) Global Const $LVN_GETINFOTIPW = ($LVN_FIRST - 58) Global Const $LVN_HOTTRACK = ($LVN_FIRST - 21) Global Const $LVN_INCREMENTALSEARCHA = ($LVN_FIRST - 62) Global Const $LVN_INCREMENTALSEARCHW = ($LVN_FIRST - 63) Global Const $LVN_INSERTITEM = ($LVN_FIRST - 2) Global Const $LVN_ITEMACTIVATE = ($LVN_FIRST - 14) Global Const $LVN_ITEMCHANGED = ($LVN_FIRST - 1) Global Const $LVN_ITEMCHANGING = ($LVN_FIRST - 0) Global Const $LVN_KEYDOWN = ($LVN_FIRST - 55) Global Const $LVN_LINKCLICK = ($LVN_FIRST - 84) Global Const $LVN_MARQUEEBEGIN = ($LVN_FIRST - 56) Global Const $LVN_ODCACHEHINT = ($LVN_FIRST - 13) Global Const $LVN_ODFINDITEMA = ($LVN_FIRST - 52) Global Const $LVN_ODFINDITEMW = ($LVN_FIRST - 79) Global Const $LVN_ODFINDITEM = $LVN_ODFINDITEMA Global Const $LVN_ODSTATECHANGED = ($LVN_FIRST - 15) Global Const $LVN_SETDISPINFOA = ($LVN_FIRST - 51) Global Const $LVN_SETDISPINFOW = ($LVN_FIRST - 78) Global Const $LVNI_ABOVE = 0x0100 Global Const $LVNI_BELOW = 0x0200 Global Const $LVNI_TOLEFT = 0x0400 Global Const $LVNI_TORIGHT = 0x0800 Global Const $LVNI_ALL = 0x0000 Global Const $LVNI_CUT = 0x0004 Global Const $LVNI_DROPHILITED = 0x0008 Global Const $LVNI_FOCUSED = 0x0001 Global Const $LVNI_SELECTED = 0x0002 Global Const $LVSCW_AUTOSIZE = -1 Global Const $LVSCW_AUTOSIZE_USEHEADER = -2 Global Const $LVSICF_NOINVALIDATEALL = 0x00000001 Global Const $LVSICF_NOSCROLL = 0x00000002 Global Const $LVSIL_NORMAL = 0 Global Const $LVSIL_SMALL = 1 Global Const $LVSIL_STATE = 2 Global Const $LVFN_DIR_LEFT = 0 Global Const $LVFN_DIR_RIGHT = 1 Global Const $LVFN_DIR_UP = 2 Global Const $LVFN_DIR_DOWN = 3 Global Const $LVFN_DIR_START = 4 Global Const $LVFN_DIR_MEND = 5 Global Const $LVFN_DIR_PRIOR = 6 Global Const $LVFN_DIR_NEXT = 7 Global Const $PBS_MARQUEE = 0x00000008 Global Const $PBS_SMOOTH = 1 Global Const $PBS_SMOOTHREVERSE = 0x10 Global Const $PBS_VERTICAL = 4 Global Const $GUI_SS_DEFAULT_PROGRESS = 0 Global Const $__PROGRESSBARCONSTANT_WM_USER = 0X400 Global Const $PBM_DELTAPOS = $__PROGRESSBARCONSTANT_WM_USER + 3 Global Const $PBM_GETBARCOLOR = 0x040F Global Const $PBM_GETBKCOLOR = 0x040E Global Const $PBM_GETPOS = $__PROGRESSBARCONSTANT_WM_USER + 8 Global Const $PBM_GETRANGE = $__PROGRESSBARCONSTANT_WM_USER + 7 Global Const $PBM_GETSTATE = 0x0411 Global Const $PBM_GETSTEP = 0x040D Global Const $PBM_SETBARCOLOR = $__PROGRESSBARCONSTANT_WM_USER + 9 Global Const $PBM_SETBKCOLOR = 0x2000 + 1 Global Const $PBM_SETMARQUEE = $__PROGRESSBARCONSTANT_WM_USER + 10 Global Const $PBM_SETPOS = $__PROGRESSBARCONSTANT_WM_USER + 2 Global Const $PBM_SETRANGE = $__PROGRESSBARCONSTANT_WM_USER + 1 Global Const $PBM_SETRANGE32 = $__PROGRESSBARCONSTANT_WM_USER + 6 Global Const $PBM_SETSTATE = 0x0410 Global Const $PBM_SETSTEP = $__PROGRESSBARCONSTANT_WM_USER + 4 Global Const $PBM_STEPIT = $__PROGRESSBARCONSTANT_WM_USER + 5 Global Const $__RICHEDITCONSTANT_WM_USER = 0x400 Global Const $EM_AUTOURLDETECT = $__RICHEDITCONSTANT_WM_USER + 91 Global Const $EM_CANPASTE = $__RICHEDITCONSTANT_WM_USER + 50 Global Const $EM_CANREDO = $__RICHEDITCONSTANT_WM_USER + 85 Global Const $EM_DISPLAYBAND = $__RICHEDITCONSTANT_WM_USER + 51 Global Const $EM_EXGETSEL = $__RICHEDITCONSTANT_WM_USER + 52 Global Const $EM_EXLIMITTEXT = $__RICHEDITCONSTANT_WM_USER + 53 Global Const $EM_EXLINEFROMCHAR = $__RICHEDITCONSTANT_WM_USER + 54 Global Const $EM_EXSETSEL = $__RICHEDITCONSTANT_WM_USER + 55 Global Const $EM_FINDTEXT = $__RICHEDITCONSTANT_WM_USER + 56 Global Const $EM_FINDTEXTEX = $__RICHEDITCONSTANT_WM_USER + 79 Global Const $EM_FINDTEXTEXW = $__RICHEDITCONSTANT_WM_USER + 124 Global Const $EM_FINDTEXTW = $__RICHEDITCONSTANT_WM_USER + 123 Global Const $EM_FINDWORDBREAK = $__RICHEDITCONSTANT_WM_USER + 76 Global Const $EM_FORMATRANGE = $__RICHEDITCONSTANT_WM_USER + 57 Global Const $EM_GETAUTOURLDETECT = $__RICHEDITCONSTANT_WM_USER + 92 Global Const $EM_GETBIDIOPTIONS = $__RICHEDITCONSTANT_WM_USER + 201 Global Const $EM_GETCHARFORMAT = $__RICHEDITCONSTANT_WM_USER + 58 Global Const $EM_GETEDITSTYLE = $__RICHEDITCONSTANT_WM_USER + 205 Global Const $EM_GETEVENTMASK = $__RICHEDITCONSTANT_WM_USER + 59 Global Const $EM_GETIMECOLOR = $__RICHEDITCONSTANT_WM_USER + 105 Global Const $EM_GETIMECOMPMODE = $__RICHEDITCONSTANT_WM_USER + 122 Global Const $EM_GETIMEMODEBIAS = $__RICHEDITCONSTANT_WM_USER + 127 Global Const $EM_GETIMEOPTIONS = $__RICHEDITCONSTANT_WM_USER + 107 Global Const $EM_GETLANGOPTIONS = $__RICHEDITCONSTANT_WM_USER + 121 Global Const $EM_GETOPTIONS = $__RICHEDITCONSTANT_WM_USER + 78 Global Const $EM_GETPARAFORMAT = $__RICHEDITCONSTANT_WM_USER + 61 Global Const $EM_GETPUNCTUATION = $__RICHEDITCONSTANT_WM_USER + 101 Global Const $EM_GETREDONAME = $__RICHEDITCONSTANT_WM_USER + 87 Global Const $EM_GETSCROLLPOS = $__RICHEDITCONSTANT_WM_USER + 221 Global Const $EM_GETTABLEPARMS = $__RICHEDITCONSTANT_WM_USER + 265 Global Const $EM_GETSELTEXT = $__RICHEDITCONSTANT_WM_USER + 62 Global Const $EM_GETTEXTEX = $__RICHEDITCONSTANT_WM_USER + 94 Global Const $EM_GETTEXTLENGTHEX = $__RICHEDITCONSTANT_WM_USER + 95 Global Const $EM_GETTEXTMODE = $__RICHEDITCONSTANT_WM_USER + 90 Global Const $EM_GETTEXTRANGE = $__RICHEDITCONSTANT_WM_USER + 75 Global Const $EM_GETTYPOGRAPHYOPTIONS = $__RICHEDITCONSTANT_WM_USER + 203 Global Const $EM_GETUNDONAME = $__RICHEDITCONSTANT_WM_USER + 86 Global Const $EM_GETWORDBREAKPROCEX = $__RICHEDITCONSTANT_WM_USER + 80 Global Const $EM_GETWORDWRAPMODE = $__RICHEDITCONSTANT_WM_USER + 103 Global Const $EM_GETZOOM = $__RICHEDITCONSTANT_WM_USER + 224 Global Const $EM_HIDESELECTION = $__RICHEDITCONSTANT_WM_USER + 63 Global Const $EM_INSERTTABLE = $__RICHEDITCONSTANT_WM_USER + 232 Global Const $EM_PASTESPECIAL = $__RICHEDITCONSTANT_WM_USER + 64 Global Const $EM_RECONVERSION = $__RICHEDITCONSTANT_WM_USER + 125 Global Const $EM_REDO = $__RICHEDITCONSTANT_WM_USER + 84 Global Const $EM_REQUESTRESIZE = $__RICHEDITCONSTANT_WM_USER + 65 Global Const $EM_SELECTIONTYPE = $__RICHEDITCONSTANT_WM_USER + 66 Global Const $EM_SETBIDIOPTIONS = $__RICHEDITCONSTANT_WM_USER + 200 Global Const $EM_SETBKGNDCOLOR = $__RICHEDITCONSTANT_WM_USER + 67 Global Const $EM_SETCHARFORMAT = $__RICHEDITCONSTANT_WM_USER + 68 Global Const $EM_SETEDITSTYLE = $__RICHEDITCONSTANT_WM_USER + 204 Global Const $EM_SETEVENTMASK = $__RICHEDITCONSTANT_WM_USER + 69 Global Const $EM_SETFONTSIZE = $__RICHEDITCONSTANT_WM_USER + 223 Global Const $EM_SETIMECOLOR = $__RICHEDITCONSTANT_WM_USER + 104 Global Const $EM_SETIMEMODEBIAS = $__RICHEDITCONSTANT_WM_USER + 126 Global Const $EM_SETIMEOPTIONS = $__RICHEDITCONSTANT_WM_USER + 106 Global Const $EM_SETLANGOPTIONS = $__RICHEDITCONSTANT_WM_USER + 120 Global Const $EM_SETOLECALLBACK = $__RICHEDITCONSTANT_WM_USER + 70 Global Const $EM_SETOPTIONS = $__RICHEDITCONSTANT_WM_USER + 77 Global Const $EM_SETPALETTE = $__RICHEDITCONSTANT_WM_USER + 93 Global Const $EM_SETPARAFORMAT = $__RICHEDITCONSTANT_WM_USER + 71 Global Const $EM_SETPUNCTUATION = $__RICHEDITCONSTANT_WM_USER + 100 Global Const $EM_SETSCROLLPOS = $__RICHEDITCONSTANT_WM_USER + 222 Global Const $EM_SETTABLEPARMS = $__RICHEDITCONSTANT_WM_USER + 307 Global Const $EM_SETTARGETDEVICE = $__RICHEDITCONSTANT_WM_USER + 72 Global Const $EM_SETTEXTEX = $__RICHEDITCONSTANT_WM_USER + 97 Global Const $EM_SETTEXTMODE = $__RICHEDITCONSTANT_WM_USER + 89 Global Const $EM_SETTYPOGRAPHYOPTIONS = $__RICHEDITCONSTANT_WM_USER + 202 Global Const $EM_SETUNDOLIMIT = $__RICHEDITCONSTANT_WM_USER + 82 Global Const $EM_SETWORDBREAKPROCEX = $__RICHEDITCONSTANT_WM_USER + 81 Global Const $EM_SETWORDWRAPMODE = $__RICHEDITCONSTANT_WM_USER + 102 Global Const $EM_SETZOOM = $__RICHEDITCONSTANT_WM_USER + 225 Global Const $EM_SHOWSCROLLBAR = $__RICHEDITCONSTANT_WM_USER + 96 Global Const $EM_STOPGROUPTYPING = $__RICHEDITCONSTANT_WM_USER + 88 Global Const $EM_STREAMIN = $__RICHEDITCONSTANT_WM_USER + 73 Global Const $EM_STREAMOUT = $__RICHEDITCONSTANT_WM_USER + 74 Global Const $EN_ALIGNLTR = 0X710 Global Const $EN_ALIGNRTL = 0X711 Global Const $EN_CORRECTTEXT = 0X705 Global Const $EN_DRAGDROPDONE = 0X70c Global Const $EN_DROPFILES = 0X703 Global Const $EN_IMECHANGE = 0X707 Global Const $EN_LINK = 0X70b Global Const $EN_MSGFILTER = 0X700 Global Const $EN_OBJECTPOSITIONS = 0X70a Global Const $EN_OLEOPFAILED = 0X709 Global Const $EN_PROTECTED = 0X704 Global Const $EN_REQUESTRESIZE = 0X701 Global Const $EN_SAVECLIPBOARD = 0X708 Global Const $EN_SELCHANGE = 0X702 Global Const $EN_STOPNOUNDO = 0X706 Global Const $ENM_CHANGE = 0x1 Global Const $ENM_CORRECTTEXT = 0x400000 Global Const $ENM_DRAGDROPDONE = 0x10 Global Const $ENM_DROPFILES = 0x100000 Global Const $ENM_IMECHANGE = 0x800000 Global Const $ENM_KEYEVENTS = 0x10000 Global Const $ENM_LINK = 0x4000000 Global Const $ENM_MOUSEEVENTS = 0x20000 Global Const $ENM_OBJECTPOSITIONS = 0x2000000 Global Const $ENM_PROTECTED = 0x200000 Global Const $ENM_REQUESTRESIZE = 0x40000 Global Const $ENM_SCROLL = 0x4 Global Const $ENM_SCROLLEVENTS = 0x8 Global Const $ENM_SELCHANGE = 0x80000 Global Const $ENM_UPDATE = 0x2 Global Const $BOM_DEFPARADIR = 0x1 Global Const $BOM_PLAINTEXT = 0x2 Global Const $BOM_NEUTRALOVERRIDE = 0x4 Global Const $BOM_CONTEXTREADING = 0x8 Global Const $BOM_CONTEXTALIGNMENT = 0x10 Global Const $BOM_LEGACYBIDICLASS = 0x0040 Global Const $BOE_RTLDIR = 0x1 Global Const $BOE_PLAINTEXT = 0x2 Global Const $BOE_NEUTRALOVERRIDE = 0x4 Global Const $BOE_CONTEXTREADING = 0x8 Global Const $BOE_CONTEXTALIGNMENT = 0x10 Global Const $BOE_LEGACYBIDICLASS = 0x0040 Global Const $ST_DEFAULT = 0 Global Const $ST_KEEPUNDO = 1 Global Const $ST_SELECTION = 2 Global Const $GT_DEFAULT = 0 Global Const $GT_SELECTION = 2 Global Const $GT_USECRLF = 1 Global Const $GTL_CLOSE = 4 Global Const $GTL_DEFAULT = 0 Global Const $GTL_NUMBYTES = 16 Global Const $GTL_NUMCHARS = 8 Global Const $GTL_PRECISE = 2 Global Const $GTL_USECRLF = 1 Global Const $CFU_UNDERLINENONE = 0 Global Const $CFU_UNDERLINE = 1 Global Const $CFU_UNDERLINEWORD = 2 Global Const $CFU_UNDERLINEDOUBLE = 3 Global Const $CFU_UNDERLINEDOTTED = 4 Global Const $CP_ACP = 0 Global Const $CP_UNICODE = 1200 Global Const $CFE_SUBSCRIPT = 0x00010000 Global Const $CFE_SUPERSCRIPT = 0x00020000 Global Const $CFM_ALLCAPS = 0x80 Global Const $CFM_ANIMATION = 0x40000 Global Const $CFM_BACKCOLOR = 0x4000000 Global Const $CFM_BOLD = 0x1 Global Const $CFM_CHARSET = 0x8000000 Global Const $CFM_COLOR = 0x40000000 Global Const $CFM_DISABLED = 0x2000 Global Const $CFM_EMBOSS = 0x800 Global Const $CFM_FACE = 0x20000000 Global Const $CFM_HIDDEN = 0x100 Global Const $CFM_IMPRINT = 0x1000 Global Const $CFM_ITALIC = 0x2 Global Const $CFM_KERNING = 0x100000 Global Const $CFM_LCID = 0x2000000 Global Const $CFM_LINK = 0x20 Global Const $CFM_OFFSET = 0x10000000 Global Const $CFM_OUTLINE = 0x200 Global Const $CFM_PROTECTED = 0x10 Global Const $CFM_REVAUTHOR = 0x8000 Global Const $CFM_REVISED = 0x4000 Global Const $CFM_SHADOW = 0x400 Global Const $CFM_SIZE = 0x80000000 Global Const $CFM_SMALLCAPS = 0x40 Global Const $CFM_SPACING = 0x200000 Global Const $CFM_STRIKEOUT = 0x8 Global Const $CFM_STYLE = 0x80000 Global Const $CFM_SUBSCRIPT = BitOR($CFE_SUBSCRIPT, $CFE_SUPERSCRIPT) Global Const $CFM_SUPERSCRIPT = $CFM_SUBSCRIPT Global Const $CFM_UNDERLINE = 0x4 Global Const $CFM_UNDERLINETYPE = 0x800000 Global Const $CFM_WEIGHT = 0x400000 Global Const $CFE_ALLCAPS = $CFM_ALLCAPS Global Const $CFE_AUTOBACKCOLOR = $CFM_BACKCOLOR Global Const $CFE_AUTOCOLOR = $CFM_COLOR Global Const $CFE_BOLD = $CFM_BOLD Global Const $CFE_DISABLED = $CFM_DISABLED Global Const $CFE_EMBOSS = $CFM_EMBOSS Global Const $CFE_HIDDEN = $CFM_HIDDEN Global Const $CFE_IMPRINT = $CFM_IMPRINT Global Const $CFE_ITALIC = $CFM_ITALIC Global Const $CFE_LINK = $CFM_LINK Global Const $CFE_OUTLINE = $CFM_OUTLINE Global Const $CFE_PROTECTED = $CFM_PROTECTED Global Const $CFE_REVISED = $CFM_REVISED Global Const $CFE_SHADOW = $CFM_SHADOW Global Const $CFE_SMALLCAPS = $CFM_SMALLCAPS Global Const $CFE_STRIKEOUT = $CFM_STRIKEOUT Global Const $CFE_UNDERLINE = $CFM_UNDERLINE Global Const $FR_MATCHALEFHAMZA = 0x80000000 Global Const $FR_MATCHDIAC = 0x20000000 Global Const $FR_MATCHKASHIDA = 0x40000000 Global Const $SCF_DEFAULT = 0x0 Global Const $SCF_SELECTION = 0x1 Global Const $SCF_WORD = 0x2 Global Const $SCF_ALL = 0x4 Global Const $SCF_USEUIRULES = 0x8 Global Const $SCF_ASSOCIATEFONT = 0x10 Global Const $SCF_NOKBUPDATE = 0x20 Global Const $LF_FACESIZE = 32 Global Const $MAX_TAB_STOPS = 32 Global Const $PFA_LEFT = 0x1 Global Const $PFA_RIGHT = 0x2 Global Const $PFA_CENTER = 0x3 Global Const $PFA_JUSTIFY = 4 Global Const $PFA_FULL_INTERWORD = 4 Global Const $PFE_TABLE = 0x4000 Global Const $PFM_NUMBERING = 0x20 Global Const $PFM_ALIGNMENT = 0x8 Global Const $PFM_SPACEBEFORE = 0x40 Global Const $PFM_NUMBERINGSTYLE = 0x2000 Global Const $PFM_NUMBERINGSTART = 0x8000 Global Const $PFM_BORDER = 0x800 Global Const $PFM_RIGHTINDENT = 0x2 Global Const $PFM_STARTINDENT = 0x1 Global Const $PFM_OFFSET = 0x4 Global Const $PFM_LINESPACING = 0x100 Global Const $PFM_SPACEAFTER = 0x80 Global Const $PFM_NUMBERINGTAB = 0x4000 Global Const $PFM_TABLE = 0x40000000 Global Const $PFM_TABSTOPS = 0x10 Global Const $PFN_BULLET = 0x1 Global Const $PFM_RTLPARA = 0x10000 Global Const $PFM_KEEP = 0x20000 Global Const $PFM_KEEPNEXT = 0x40000 Global Const $PFM_PAGEBREAKBEFORE = 0x80000 Global Const $PFM_NOLINENUMBER = 0x100000 Global Const $PFM_NOWIDOWCONTROL = 0x200000 Global Const $PFM_DONOTHYPHEN = 0x400000 Global Const $PFM_SIDEBYSIDE = 0x800000 Global Const $PFE_RTLPARA = 0x00000001 Global Const $PFE_KEEP = 0x00000002 Global Const $PFE_KEEPNEXT = 0x00000004 Global Const $PFE_PAGEBREAKBEFORE = 0x00000008 Global Const $PFE_NOLINENUMBER = 0x00000010 Global Const $PFE_NOWIDOWCONTROL = 0x00000020 Global Const $PFE_DONOTHYPHEN = 0x00000040 Global Const $PFE_SIDEBYSIDE = 0x00000080 Global Const $PFM_SHADING = 0x1000 Global Const $WB_CLASSIFY = 3 Global Const $WB_ISDELIMITER = 2 Global Const $WB_LEFT = 0 Global Const $WB_LEFTBREAK = 6 Global Const $WB_MOVEWORDLEFT = 4 Global Const $WB_MOVEWORDNEXT = 5 Global Const $WB_MOVEWORDPREV = 4 Global Const $WB_MOVEWORDRIGHT = 5 Global Const $WB_NEXTBREAK = 7 Global Const $WB_PREVBREAK = 6 Global Const $WB_RIGHT = 1 Global Const $WB_RIGHTBREAK = 7 Global Const $WBF_ISWHITE = 0x10 Global Const $WBF_BREAKLINE = 0x20 Global Const $WBF_BREAKAFTER = 0x40 Global Const $SF_TEXT = 0x1 Global Const $SF_RTF = 0x2 Global Const $SF_RTFNOOBJS = 0x3 Global Const $SF_TEXTIZED = 0x4 Global Const $SF_UNICODE = 0x0010 Global Const $SF_USECODEPAGE = 0x20 Global Const $SFF_PLAINRTF = 0x4000 Global Const $SFF_SELECTION = 0x8000 Global Const $TBCD_CHANNEL = 0x3 Global Const $TBCD_THUMB = 0x2 Global Const $TBCD_TICS = 0x1 Global Const $__SLIDERCONSTANT_WM_USER = 0x400 Global Const $TBM_CLEARSEL = $__SLIDERCONSTANT_WM_USER + 19 Global Const $TBM_CLEARTICS = $__SLIDERCONSTANT_WM_USER + 9 Global Const $TBM_GETBUDDY = $__SLIDERCONSTANT_WM_USER + 33 Global Const $TBM_GETCHANNELRECT = $__SLIDERCONSTANT_WM_USER + 26 Global Const $TBM_GETLINESIZE = $__SLIDERCONSTANT_WM_USER + 24 Global Const $TBM_GETNUMTICS = $__SLIDERCONSTANT_WM_USER + 16 Global Const $TBM_GETPAGESIZE = $__SLIDERCONSTANT_WM_USER + 22 Global Const $TBM_GETPOS = $__SLIDERCONSTANT_WM_USER Global Const $TBM_GETPTICS = $__SLIDERCONSTANT_WM_USER + 14 Global Const $TBM_GETSELEND = $__SLIDERCONSTANT_WM_USER + 18 Global Const $TBM_GETSELSTART = $__SLIDERCONSTANT_WM_USER + 17 Global Const $TBM_GETRANGEMAX = $__SLIDERCONSTANT_WM_USER + 2 Global Const $TBM_GETRANGEMIN = $__SLIDERCONSTANT_WM_USER + 1 Global Const $TBM_GETTHUMBLENGTH = $__SLIDERCONSTANT_WM_USER + 28 Global Const $TBM_GETTHUMBRECT = $__SLIDERCONSTANT_WM_USER + 25 Global Const $TBM_GETTIC = $__SLIDERCONSTANT_WM_USER + 3 Global Const $TBM_GETTICPOS = $__SLIDERCONSTANT_WM_USER + 15 Global Const $TBM_GETTOOLTIPS = $__SLIDERCONSTANT_WM_USER + 30 Global Const $TBM_GETUNICODEFORMAT = 0x2000 + 6 Global Const $TBM_SETBUDDY = $__SLIDERCONSTANT_WM_USER + 32 Global Const $TBM_SETLINESIZE = $__SLIDERCONSTANT_WM_USER + 23 Global Const $TBM_SETPAGESIZE = $__SLIDERCONSTANT_WM_USER + 21 Global Const $TBM_SETPOS = $__SLIDERCONSTANT_WM_USER + 5 Global Const $TBM_SETRANGE = $__SLIDERCONSTANT_WM_USER + 6 Global Const $TBM_SETRANGEMAX = $__SLIDERCONSTANT_WM_USER + 8 Global Const $TBM_SETRANGEMIN = $__SLIDERCONSTANT_WM_USER + 7 Global Const $TBM_SETSEL = $__SLIDERCONSTANT_WM_USER + 10 Global Const $TBM_SETSELEND = $__SLIDERCONSTANT_WM_USER + 12 Global Const $TBM_SETSELSTART = $__SLIDERCONSTANT_WM_USER + 11 Global Const $TBM_SETTHUMBLENGTH = $__SLIDERCONSTANT_WM_USER + 27 Global Const $TBM_SETTIC = $__SLIDERCONSTANT_WM_USER + 4 Global Const $TBM_SETTICFREQ = $__SLIDERCONSTANT_WM_USER + 20 Global Const $TBM_SETTIPSIDE = $__SLIDERCONSTANT_WM_USER + 31 Global Const $TBM_SETTOOLTIPS = $__SLIDERCONSTANT_WM_USER + 29 Global Const $TBM_SETUNICODEFORMAT = 0x2000 + 5 Global Const $TBTS_BOTTOM = 2 Global Const $TBTS_LEFT = 1 Global Const $TBTS_RIGHT = 3 Global Const $TBTS_TOP = 0 Global Const $TBS_AUTOTICKS = 0x0001 Global Const $TBS_BOTH = 0x0008 Global Const $TBS_BOTTOM = 0x0000 Global Const $TBS_DOWNISLEFT = 0x0400 Global Const $TBS_ENABLESELRANGE = 0x20 Global Const $TBS_FIXEDLENGTH = 0x40 Global Const $TBS_HORZ = 0x0000 Global Const $TBS_LEFT = 0x0004 Global Const $TBS_NOTHUMB = 0x0080 Global Const $TBS_NOTICKS = 0x0010 Global Const $TBS_REVERSED = 0x200 Global Const $TBS_RIGHT = 0x0000 Global Const $TBS_TOP = 0x0004 Global Const $TBS_TOOLTIPS = 0x100 Global Const $TBS_VERT = 0x0002 Global Const $GUI_SS_DEFAULT_SLIDER = $TBS_AUTOTICKS Global Const $SS_LEFT = 0x0 Global Const $SS_CENTER = 0x1 Global Const $SS_RIGHT = 0x2 Global Const $SS_ICON = 0x3 Global Const $SS_BLACKRECT = 0x4 Global Const $SS_GRAYRECT = 0x5 Global Const $SS_WHITERECT = 0x6 Global Const $SS_BLACKFRAME = 0x7 Global Const $SS_GRAYFRAME = 0x8 Global Const $SS_WHITEFRAME = 0x9 Global Const $SS_SIMPLE = 0xB Global Const $SS_LEFTNOWORDWRAP = 0xC Global Const $SS_BITMAP = 0xE Global Const $SS_ENHMETAFILE = 0xF Global Const $SS_ETCHEDHORZ = 0x10 Global Const $SS_ETCHEDVERT = 0x11 Global Const $SS_ETCHEDFRAME = 0x12 Global Const $SS_REALSIZECONTROL = 0x40 Global Const $SS_NOPREFIX = 0x0080 Global Const $SS_NOTIFY = 0x0100 Global Const $SS_CENTERIMAGE = 0x0200 Global Const $SS_RIGHTJUST = 0x0400 Global Const $SS_SUNKEN = 0x1000 Global Const $GUI_SS_DEFAULT_LABEL = 0 Global Const $GUI_SS_DEFAULT_GRAPHIC = 0 Global Const $GUI_SS_DEFAULT_ICON = $SS_NOTIFY Global Const $GUI_SS_DEFAULT_PIC = $SS_NOTIFY Global Const $STM_SETICON = 0x0170 Global Const $STM_GETICON = 0x0171 Global Const $STM_SETIMAGE = 0x0172 Global Const $STM_GETIMAGE = 0x0173 Global Const $TCS_EX_FLATSEPARATORS = 0x00000001 Global Const $TCS_EX_REGISTERDROP = 0x00000002 Global Const $TCHT_NOWHERE = 0x00000001 Global Const $TCHT_ONITEMICON = 0x00000002 Global Const $TCHT_ONITEMLABEL = 0x00000004 Global Const $TCHT_ONITEM = 0x00000006 Global Const $TCIF_TEXT = 0x00000001 Global Const $TCIF_IMAGE = 0x00000002 Global Const $TCIF_RTLREADING = 0x00000004 Global Const $TCIF_PARAM = 0x00000008 Global Const $TCIF_STATE = 0x00000010 Global Const $TCIF_ALLDATA = 0x0000001B Global Const $TCIS_BUTTONPRESSED = 0x00000001 Global Const $TCIS_HIGHLIGHTED = 0x00000002 Global Const $TC_ERR = -1 Global Const $TCS_BOTTOM = 0x00000002 Global Const $TCS_BUTTONS = 0x00000100 Global Const $TCS_FIXEDWIDTH = 0x00000400 Global Const $TCS_FLATBUTTONS = 0x00000008 Global Const $TCS_FOCUSNEVER = 0x00008000 Global Const $TCS_FOCUSONBUTTONDOWN = 0x00001000 Global Const $TCS_FORCEICONLEFT = 0x00000010 Global Const $TCS_FORCELABELLEFT = 0x00000020 Global Const $TCS_HOTTRACK = 0x00000040 Global Const $TCS_MULTILINE = 0x00000200 Global Const $TCS_MULTISELECT = 0x00000004 Global Const $TCS_OWNERDRAWFIXED = 0x00002000 Global Const $TCS_RAGGEDRIGHT = 0x00000800 Global Const $TCS_RIGHT = 0x00000002 Global Const $TCS_RIGHTJUSTIFY = 0x00000000 Global Const $TCS_SCROLLOPPOSITE = 0x00000001 Global Const $TCS_SINGLELINE = 0x00000000 Global Const $TCS_TABS = 0x00000000 Global Const $TCS_TOOLTIPS = 0x00004000 Global Const $TCS_VERTICAL = 0x00000080 Global Const $GUI_SS_DEFAULT_TAB = 0 Global Const $TCM_FIRST = 0x1300 Global Const $TCCM_FIRST = 0X2000 Global Const $TCM_ADJUSTRECT = ($TCM_FIRST + 40) Global Const $TCM_DELETEALLITEMS = ($TCM_FIRST + 9) Global Const $TCM_DELETEITEM = ($TCM_FIRST + 8) Global Const $TCM_DESELECTALL = ($TCM_FIRST + 50) Global Const $TCM_GETCURFOCUS = ($TCM_FIRST + 47) Global Const $TCM_GETCURSEL = ($TCM_FIRST + 11) Global Const $TCM_GETEXTENDEDSTYLE = ($TCM_FIRST + 53) Global Const $TCM_GETIMAGELIST = ($TCM_FIRST + 2) Global Const $TCM_GETITEMA = ($TCM_FIRST + 5) Global Const $TCM_GETITEMW = ($TCM_FIRST + 60) Global Const $TCM_GETITEMCOUNT = ($TCM_FIRST + 4) Global Const $TCM_GETITEMRECT = ($TCM_FIRST + 10) Global Const $TCM_GETROWCOUNT = ($TCM_FIRST + 44) Global Const $TCM_GETTOOLTIPS = ($TCM_FIRST + 45) Global Const $TCCM_GETUNICODEFORMAT = ($TCCM_FIRST + 6) Global Const $TCM_GETUNICODEFORMAT = $TCCM_GETUNICODEFORMAT Global Const $TCM_HIGHLIGHTITEM = ($TCM_FIRST + 51) Global Const $TCM_HITTEST = ($TCM_FIRST + 13) Global Const $TCM_INSERTITEMA = ($TCM_FIRST + 7) Global Const $TCM_INSERTITEMW = ($TCM_FIRST + 62) Global Const $TCM_REMOVEIMAGE = ($TCM_FIRST + 42) Global Const $TCM_SETITEMA = ($TCM_FIRST + 6) Global Const $TCM_SETITEMW = ($TCM_FIRST + 61) Global Const $TCM_SETITEMEXTRA = ($TCM_FIRST + 14) Global Const $TCM_SETITEMSIZE = $TCM_FIRST + 41 Global Const $TCM_SETCURFOCUS = ($TCM_FIRST + 48) Global Const $TCM_SETCURSEL = ($TCM_FIRST + 12) Global Const $TCM_SETEXTENDEDSTYLE = ($TCM_FIRST + 52) Global Const $TCM_SETIMAGELIST = $TCM_FIRST + 3 Global Const $TCM_SETMINTABWIDTH = ($TCM_FIRST + 49) Global Const $TCM_SETPADDING = ($TCM_FIRST + 43) Global Const $TCM_SETTOOLTIPS = ($TCM_FIRST + 46) Global Const $TCCM_SETUNICODEFORMAT = ($TCCM_FIRST + 5) Global Const $TCM_SETUNICODEFORMAT = $TCCM_SETUNICODEFORMAT Global Const $TCN_FIRST = -550 Global Const $TCN_FOCUSCHANGE = ($TCN_FIRST - 4) Global Const $TCN_GETOBJECT = ($TCN_FIRST - 3) Global Const $TCN_KEYDOWN = ($TCN_FIRST - 0) Global Const $TCN_SELCHANGE = ($TCN_FIRST - 1) Global Const $TCN_SELCHANGING = ($TCN_FIRST - 2) Global Const $TVS_HASBUTTONS = 0x00000001 Global Const $TVS_HASLINES = 0x00000002 Global Const $TVS_LINESATROOT = 0x00000004 Global Const $TVS_EDITLABELS = 0x00000008 Global Const $TVS_DISABLEDRAGDROP = 0x00000010 Global Const $TVS_SHOWSELALWAYS = 0x00000020 Global Const $TVS_RTLREADING = 0x00000040 Global Const $TVS_NOTOOLTIPS = 0x00000080 Global Const $TVS_CHECKBOXES = 0x00000100 Global Const $TVS_TRACKSELECT = 0x00000200 Global Const $TVS_SINGLEEXPAND = 0x00000400 Global Const $TVS_INFOTIP = 0x00000800 Global Const $TVS_FULLROWSELECT = 0x00001000 Global Const $TVS_NOSCROLL = 0x00002000 Global Const $TVS_NONEVENHEIGHT = 0x00004000 Global Const $TVS_NOHSCROLL = 0x00008000 Global Const $TVS_DEFAULT = 0x00000037 Global Const $GUI_SS_DEFAULT_TREEVIEW = BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS) Global Const $TVE_COLLAPSE = 0x0001 Global Const $TVE_EXPAND = 0x0002 Global Const $TVE_TOGGLE = 0x0003 Global Const $TVE_EXPANDPARTIAL = 0x4000 Global Const $TVE_COLLAPSERESET = 0x8000 Global Const $TVGN_ROOT = 0x00000000 Global Const $TVGN_NEXT = 0x00000001 Global Const $TVGN_PREVIOUS = 0x00000002 Global Const $TVGN_PARENT = 0x00000003 Global Const $TVGN_CHILD = 0x00000004 Global Const $TVGN_FIRSTVISIBLE = 0x00000005 Global Const $TVGN_NEXTVISIBLE = 0x00000006 Global Const $TVGN_PREVIOUSVISIBLE = 0x00000007 Global Const $TVGN_DROPHILITE = 0x00000008 Global Const $TVGN_CARET = 0x00000009 Global Const $TVGN_LASTVISIBLE = 0x0000000A Global Const $TVHT_NOWHERE = 0x00000001 Global Const $TVHT_ONITEMICON = 0x00000002 Global Const $TVHT_ONITEMLABEL = 0x00000004 Global Const $TVHT_ONITEMINDENT = 0x00000008 Global Const $TVHT_ONITEMBUTTON = 0x00000010 Global Const $TVHT_ONITEMRIGHT = 0x00000020 Global Const $TVHT_ONITEMSTATEICON = 0x00000040 Global Const $TVHT_ONITEM = 0x00000046 Global Const $TVHT_ABOVE = 0x00000100 Global Const $TVHT_BELOW = 0x00000200 Global Const $TVHT_TORIGHT = 0x00000400 Global Const $TVHT_TOLEFT = 0x00000800 Global Const $TVI_ROOT = 0xFFFF0000 Global Const $TVI_FIRST = 0xFFFF0001 Global Const $TVI_LAST = 0xFFFF0002 Global Const $TVI_SORT = 0xFFFF0003 Global Const $TVIF_TEXT = 0x00000001 Global Const $TVIF_IMAGE = 0x00000002 Global Const $TVIF_PARAM = 0x00000004 Global Const $TVIF_STATE = 0x00000008 Global Const $TVIF_HANDLE = 0x00000010 Global Const $TVIF_SELECTEDIMAGE = 0x00000020 Global Const $TVIF_CHILDREN = 0x00000040 Global Const $TVIF_INTEGRAL = 0x00000080 Global Const $TVIF_EXPANDEDIMAGE = 0x00000100 Global Const $TVIF_STATEEX = 0x00000200 Global Const $TVIF_DI_SETITEM = 0x00001000 Global Const $TVSIL_NORMAL = 0 Global Const $TVSIL_STATE = 2 Global Const $TVC_BYKEYBOARD = 0x2 Global Const $TVC_BYMOUSE = 0x1 Global Const $TVC_UNKNOWN = 0x0 Global Const $TVIS_FOCUSED = 0x00000001 Global Const $TVIS_SELECTED = 0x00000002 Global Const $TVIS_CUT = 0x00000004 Global Const $TVIS_DROPHILITED = 0x00000008 Global Const $TVIS_BOLD = 0x00000010 Global Const $TVIS_EXPANDED = 0x00000020 Global Const $TVIS_EXPANDEDONCE = 0x00000040 Global Const $TVIS_EXPANDPARTIAL = 0x00000080 Global Const $TVIS_OVERLAYMASK = 0x00000F00 Global Const $TVIS_STATEIMAGEMASK = 0x0000F000 Global Const $TVIS_USERMASK = 0x0000F000 Global Const $TVIS_UNCHECKED = 4096 Global Const $TVIS_CHECKED = 8192 Global Const $TVNA_ADD = 1 Global Const $TVNA_ADDFIRST = 2 Global Const $TVNA_ADDCHILD = 3 Global Const $TVNA_ADDCHILDFIRST = 4 Global Const $TVNA_INSERT = 5 Global Const $TVTA_ADDFIRST = 1 Global Const $TVTA_ADD = 2 Global Const $TVTA_INSERT = 3 Global Const $TV_FIRST = 0x1100 Global Const $TVM_INSERTITEMA = $TV_FIRST + 0 Global Const $TVM_DELETEITEM = $TV_FIRST + 1 Global Const $TVM_EXPAND = $TV_FIRST + 2 Global Const $TVM_GETITEMRECT = $TV_FIRST + 4 Global Const $TVM_GETCOUNT = $TV_FIRST + 5 Global Const $TVM_GETINDENT = $TV_FIRST + 6 Global Const $TVM_SETINDENT = $TV_FIRST + 7 Global Const $TVM_GETIMAGELIST = $TV_FIRST + 8 Global Const $TVM_SETIMAGELIST = $TV_FIRST + 9 Global Const $TVM_GETNEXTITEM = $TV_FIRST + 10 Global Const $TVM_SELECTITEM = $TV_FIRST + 11 Global Const $TVM_GETITEMA = $TV_FIRST + 12 Global Const $TVM_SETITEMA = $TV_FIRST + 13 Global Const $TVM_EDITLABELA = $TV_FIRST + 14 Global Const $TVM_GETEDITCONTROL = $TV_FIRST + 15 Global Const $TVM_GETVISIBLECOUNT = $TV_FIRST + 16 Global Const $TVM_HITTEST = $TV_FIRST + 17 Global Const $TVM_CREATEDRAGIMAGE = $TV_FIRST + 18 Global Const $TVM_SORTCHILDREN = $TV_FIRST + 19 Global Const $TVM_ENSUREVISIBLE = $TV_FIRST + 20 Global Const $TVM_SORTCHILDRENCB = $TV_FIRST + 21 Global Const $TVM_ENDEDITLABELNOW = $TV_FIRST + 22 Global Const $TVM_GETISEARCHSTRINGA = $TV_FIRST + 23 Global Const $TVM_SETTOOLTIPS = $TV_FIRST + 24 Global Const $TVM_GETTOOLTIPS = $TV_FIRST + 25 Global Const $TVM_SETINSERTMARK = $TV_FIRST + 26 Global Const $TVM_SETITEMHEIGHT = $TV_FIRST + 27 Global Const $TVM_GETITEMHEIGHT = $TV_FIRST + 28 Global Const $TVM_SETBKCOLOR = $TV_FIRST + 29 Global Const $TVM_SETTEXTCOLOR = $TV_FIRST + 30 Global Const $TVM_GETBKCOLOR = $TV_FIRST + 31 Global Const $TVM_GETTEXTCOLOR = $TV_FIRST + 32 Global Const $TVM_SETSCROLLTIME = $TV_FIRST + 33 Global Const $TVM_GETSCROLLTIME = $TV_FIRST + 34 Global Const $TVM_SETINSERTMARKCOLOR = $TV_FIRST + 37 Global Const $TVM_GETINSERTMARKCOLOR = $TV_FIRST + 38 Global Const $TVM_GETITEMSTATE = $TV_FIRST + 39 Global Const $TVM_SETLINECOLOR = $TV_FIRST + 40 Global Const $TVM_GETLINECOLOR = $TV_FIRST + 41 Global Const $TVM_MAPACCIDTOHTREEITEM = $TV_FIRST + 42 Global Const $TVM_MAPHTREEITEMTOACCID = $TV_FIRST + 43 Global Const $TVM_INSERTITEMW = $TV_FIRST + 50 Global Const $TVM_GETITEMW = $TV_FIRST + 62 Global Const $TVM_SETITEMW = $TV_FIRST + 63 Global Const $TVM_GETISEARCHSTRINGW = $TV_FIRST + 64 Global Const $TVM_EDITLABELW = $TV_FIRST + 65 Global Const $TVM_GETUNICODEFORMAT = 0x2000 + 6 Global Const $TVM_SETUNICODEFORMAT = 0x2000 + 5 Global Const $TVN_FIRST = -400 Global Const $TVN_SELCHANGINGA = $TVN_FIRST - 1 Global Const $TVN_SELCHANGEDA = $TVN_FIRST - 2 Global Const $TVN_GETDISPINFOA = $TVN_FIRST - 3 Global Const $TVN_SETDISPINFOA = $TVN_FIRST - 4 Global Const $TVN_ITEMEXPANDINGA = $TVN_FIRST - 5 Global Const $TVN_ITEMEXPANDEDA = $TVN_FIRST - 6 Global Const $TVN_BEGINDRAGA = $TVN_FIRST - 7 Global Const $TVN_BEGINRDRAGA = $TVN_FIRST - 8 Global Const $TVN_DELETEITEMA = $TVN_FIRST - 9 Global Const $TVN_BEGINLABELEDITA = $TVN_FIRST - 10 Global Const $TVN_ENDLABELEDITA = $TVN_FIRST - 11 Global Const $TVN_KEYDOWN = $TVN_FIRST - 12 Global Const $TVN_GETINFOTIPA = $TVN_FIRST - 13 Global Const $TVN_GETINFOTIPW = $TVN_FIRST - 14 Global Const $TVN_SINGLEEXPAND = $TVN_FIRST - 15 Global Const $TVN_ITEMCHANGINGA = $TVN_FIRST - 16 Global Const $TVN_ITEMCHANGINGW = $TVN_FIRST - 17 Global Const $TVN_ITEMCHANGEDA = $TVN_FIRST - 18 Global Const $TVN_ITEMCHANGEDW = $TVN_FIRST - 19 Global Const $TVN_SELCHANGINGW = $TVN_FIRST - 50 Global Const $TVN_SELCHANGEDW = $TVN_FIRST - 51 Global Const $TVN_GETDISPINFOW = $TVN_FIRST - 52 Global Const $TVN_SETDISPINFOW = $TVN_FIRST - 53 Global Const $TVN_ITEMEXPANDINGW = $TVN_FIRST - 54 Global Const $TVN_ITEMEXPANDEDW = $TVN_FIRST - 55 Global Const $TVN_BEGINDRAGW = $TVN_FIRST - 56 Global Const $TVN_BEGINRDRAGW = $TVN_FIRST - 57 Global Const $TVN_DELETEITEMW = $TVN_FIRST - 58 Global Const $TVN_BEGINLABELEDITW = $TVN_FIRST - 59 Global Const $TVN_ENDLABELEDITW = $TVN_FIRST - 60 Global Const $UDS_WRAP = 0x0001 Global Const $UDS_SETBUDDYINT = 0x0002 Global Const $UDS_ALIGNRIGHT = 0x0004 Global Const $UDS_ALIGNLEFT = 0x0008 Global Const $UDS_ARROWKEYS = 0x0020 Global Const $UDS_HORZ = 0x0040 Global Const $UDS_NOTHOUSANDS = 0x0080 Global Const $GUI_SS_DEFAULT_UPDOWN = $UDS_ALIGNLEFT Global Const $WC_ANIMATE = 'SysAnimate32' Global Const $WC_BUTTON = 'Button' Global Const $WC_COMBOBOX = 'ComboBox' Global Const $WC_COMBOBOXEX = 'ComboBoxEx32' Global Const $WC_DATETIMEPICK = 'SysDateTimePick32' Global Const $WC_EDIT = 'Edit' Global Const $WC_HEADER = 'SysHeader32' Global Const $WC_HOTKEY = 'msctls_hotkey32' Global Const $WC_IPADDRESS = 'SysIPAddress32' Global Const $WC_LINK = 'SysLink' Global Const $WC_LISTBOX = 'ListBox' Global Const $WC_LISTVIEW = 'SysListView32' Global Const $WC_MONTHCAL = 'SysMonthCal32' Global Const $WC_NATIVEFONTCTL = 'NativeFontCtl' Global Const $WC_PAGESCROLLER = 'SysPager' Global Const $WC_PROGRESS = 'msctls_progress32' Global Const $WC_REBAR = 'ReBarWindow32' Global Const $WC_SCROLLBAR = 'ScrollBar' Global Const $WC_STATIC = 'Static' Global Const $WC_STATUSBAR = 'msctls_statusbar32' Global Const $WC_TABCONTROL = 'SysTabControl32' Global Const $WC_TOOLBAR = 'ToolbarWindow32' Global Const $WC_TOOLTIPS = 'tooltips_class32' Global Const $WC_TRACKBAR = 'msctls_trackbar32' Global Const $WC_TREEVIEW = 'SysTreeView32' Global Const $WC_UPDOWN = 'msctls_updown32' Global Const $WS_OVERLAPPED = 0 Global Const $WS_TILED = $WS_OVERLAPPED Global Const $WS_MAXIMIZEBOX = 0x00010000 Global Const $WS_MINIMIZEBOX = 0x00020000 Global Const $WS_TABSTOP = 0x00010000 Global Const $WS_GROUP = 0x00020000 Global Const $WS_SIZEBOX = 0x00040000 Global Const $WS_THICKFRAME = $WS_SIZEBOX Global Const $WS_SYSMENU = 0x00080000 Global Const $WS_HSCROLL = 0x00100000 Global Const $WS_VSCROLL = 0x00200000 Global Const $WS_DLGFRAME = 0x00400000 Global Const $WS_BORDER = 0x00800000 Global Const $WS_CAPTION = 0x00C00000 Global Const $WS_OVERLAPPEDWINDOW = BitOR($WS_CAPTION, $WS_MAXIMIZEBOX, $WS_MINIMIZEBOX, $WS_OVERLAPPED, $WS_SYSMENU, $WS_THICKFRAME) Global Const $WS_TILEDWINDOW = $WS_OVERLAPPEDWINDOW Global Const $WS_MAXIMIZE = 0x01000000 Global Const $WS_CLIPCHILDREN = 0x02000000 Global Const $WS_CLIPSIBLINGS = 0x04000000 Global Const $WS_DISABLED = 0x08000000 Global Const $WS_VISIBLE = 0x10000000 Global Const $WS_MINIMIZE = 0x20000000 Global Const $WS_ICONIC = $WS_MINIMIZE Global Const $WS_CHILD = 0x40000000 Global Const $WS_CHILDWINDOW = $WS_CHILD Global Const $WS_POPUP = 0x80000000 Global Const $WS_POPUPWINDOW = 0x80880000 Global Const $DS_3DLOOK = 0x0004 Global Const $DS_ABSALIGN = 0x0001 Global Const $DS_CENTER = 0x0800 Global Const $DS_CENTERMOUSE = 0x1000 Global Const $DS_CONTEXTHELP = 0x2000 Global Const $DS_CONTROL = 0x0400 Global Const $DS_FIXEDSYS = 0x0008 Global Const $DS_LOCALEDIT = 0x0020 Global Const $DS_MODALFRAME = 0x0080 Global Const $DS_NOFAILCREATE = 0x0010 Global Const $DS_NOIDLEMSG = 0x0100 Global Const $DS_SETFONT = 0x0040 Global Const $DS_SETFOREGROUND = 0x0200 Global Const $DS_SHELLFONT = BitOR($DS_FIXEDSYS, $DS_SETFONT) Global Const $DS_SYSMODAL = 0x0002 Global Const $WS_EX_ACCEPTFILES = 0x00000010 Global Const $WS_EX_APPWINDOW = 0x00040000 Global Const $WS_EX_COMPOSITED = 0x02000000 Global Const $WS_EX_CONTROLPARENT = 0x10000 Global Const $WS_EX_CLIENTEDGE = 0x00000200 Global Const $WS_EX_CONTEXTHELP = 0x00000400 Global Const $WS_EX_DLGMODALFRAME = 0x00000001 Global Const $WS_EX_LAYERED = 0x00080000 Global Const $WS_EX_LAYOUTRTL = 0x400000 Global Const $WS_EX_LEFT = 0x00000000 Global Const $WS_EX_LEFTSCROLLBAR = 0x00004000 Global Const $WS_EX_LTRREADING = 0x00000000 Global Const $WS_EX_MDICHILD = 0x00000040 Global Const $WS_EX_NOACTIVATE = 0x08000000 Global Const $WS_EX_NOINHERITLAYOUT = 0x00100000 Global Const $WS_EX_NOPARENTNOTIFY = 0x00000004 Global Const $WS_EX_RIGHT = 0x00001000 Global Const $WS_EX_RIGHTSCROLLBAR = 0x00000000 Global Const $WS_EX_RTLREADING = 0x2000 Global Const $WS_EX_STATICEDGE = 0x00020000 Global Const $WS_EX_TOOLWINDOW = 0x00000080 Global Const $WS_EX_TOPMOST = 0x00000008 Global Const $WS_EX_TRANSPARENT = 0x00000020 Global Const $WS_EX_WINDOWEDGE = 0x00000100 Global Const $WS_EX_OVERLAPPEDWINDOW = BitOR($WS_EX_CLIENTEDGE, $WS_EX_WINDOWEDGE) Global Const $WS_EX_PALETTEWINDOW = BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE) Global Const $WM_NULL = 0x0000 Global Const $WM_CREATE = 0x0001 Global Const $WM_DESTROY = 0x0002 Global Const $WM_MOVE = 0x0003 Global Const $WM_SIZEWAIT = 0x0004 Global Const $WM_SIZE = 0x0005 Global Const $WM_ACTIVATE = 0x0006 Global Const $WM_SETFOCUS = 0x0007 Global Const $WM_KILLFOCUS = 0x0008 Global Const $WM_SETVISIBLE = 0x0009 Global Const $WM_ENABLE = 0x000A Global Const $WM_SETREDRAW = 0x000B Global Const $WM_SETTEXT = 0x000C Global Const $WM_GETTEXT = 0x000D Global Const $WM_GETTEXTLENGTH = 0x000E Global Const $WM_PAINT = 0x000F Global Const $WM_CLOSE = 0x0010 Global Const $WM_QUERYENDSESSION = 0x0011 Global Const $WM_QUIT = 0x0012 Global Const $WM_ERASEBKGND = 0x0014 Global Const $WM_QUERYOPEN = 0x0013 Global Const $WM_SYSCOLORCHANGE = 0x0015 Global Const $WM_ENDSESSION = 0x0016 Global Const $WM_SYSTEMERROR = 0x0017 Global Const $WM_SHOWWINDOW = 0x0018 Global Const $WM_CTLCOLOR = 0x0019 Global Const $WM_SETTINGCHANGE = 0x001A Global Const $WM_WININICHANGE = 0x001A Global Const $WM_DEVMODECHANGE = 0x001B Global Const $WM_ACTIVATEAPP = 0x001C Global Const $WM_FONTCHANGE = 0x001D Global Const $WM_TIMECHANGE = 0x001E Global Const $WM_CANCELMODE = 0x001F Global Const $WM_SETCURSOR = 0x0020 Global Const $WM_MOUSEACTIVATE = 0x0021 Global Const $WM_CHILDACTIVATE = 0x0022 Global Const $WM_QUEUESYNC = 0x0023 Global Const $WM_GETMINMAXINFO = 0x0024 Global Const $WM_LOGOFF = 0x0025 Global Const $WM_PAINTICON = 0x0026 Global Const $WM_ICONERASEBKGND = 0x0027 Global Const $WM_NEXTDLGCTL = 0x0028 Global Const $WM_ALTTABACTIVE = 0x0029 Global Const $WM_SPOOLERSTATUS = 0x002A Global Const $WM_DRAWITEM = 0x002B Global Const $WM_MEASUREITEM = 0x002C Global Const $WM_DELETEITEM = 0x002D Global Const $WM_VKEYTOITEM = 0x002E Global Const $WM_CHARTOITEM = 0x002F Global Const $WM_SETFONT = 0x0030 Global Const $WM_GETFONT = 0x0031 Global Const $WM_SETHOTKEY = 0x0032 Global Const $WM_GETHOTKEY = 0x0033 Global Const $WM_FILESYSCHANGE = 0x0034 Global Const $WM_ISACTIVEICON = 0x0035 Global Const $WM_QUERYPARKICON = 0x0036 Global Const $WM_QUERYDRAGICON = 0x0037 Global Const $WM_WINHELP = 0x0038 Global Const $WM_COMPAREITEM = 0x0039 Global Const $WM_FULLSCREEN = 0x003A Global Const $WM_CLIENTSHUTDOWN = 0x003B Global Const $WM_DDEMLEVENT = 0x003C Global Const $WM_GETOBJECT = 0x003D Global Const $WM_CALCSCROLL = 0x003F Global Const $WM_TESTING = 0x0040 Global Const $WM_COMPACTING = 0x0041 Global Const $WM_OTHERWINDOWCREATED = 0x0042 Global Const $WM_OTHERWINDOWDESTROYED = 0x0043 Global Const $WM_COMMNOTIFY = 0x0044 Global Const $WM_MEDIASTATUSCHANGE = 0x0045 Global Const $WM_WINDOWPOSCHANGING = 0x0046 Global Const $WM_WINDOWPOSCHANGED = 0x0047 Global Const $WM_POWER = 0x0048 Global Const $WM_COPYGLOBALDATA = 0x0049 Global Const $WM_COPYDATA = 0x004A Global Const $WM_CANCELJOURNAL = 0x004B Global Const $WM_LOGONNOTIFY = 0x004C Global Const $WM_KEYF1 = 0x004D Global Const $WM_NOTIFY = 0x004E Global Const $WM_ACCESS_WINDOW = 0x004F Global Const $WM_INPUTLANGCHANGEREQUEST = 0x0050 Global Const $WM_INPUTLANGCHANGE = 0x0051 Global Const $WM_TCARD = 0x0052 Global Const $WM_HELP = 0x0053 Global Const $WM_USERCHANGED = 0x0054 Global Const $WM_NOTIFYFORMAT = 0x0055 Global Const $WM_QM_ACTIVATE = 0x0060 Global Const $WM_HOOK_DO_CALLBACK = 0x0061 Global Const $WM_SYSCOPYDATA = 0x0062 Global Const $WM_FINALDESTROY = 0x0070 Global Const $WM_MEASUREITEM_CLIENTDATA = 0x0071 Global Const $WM_CONTEXTMENU = 0x007B Global Const $WM_STYLECHANGING = 0x007C Global Const $WM_STYLECHANGED = 0x007D Global Const $WM_DISPLAYCHANGE = 0x007E Global Const $WM_GETICON = 0x007F Global Const $WM_SETICON = 0x0080 Global Const $WM_NCCREATE = 0x0081 Global Const $WM_NCDESTROY = 0x0082 Global Const $WM_NCCALCSIZE = 0x0083 Global Const $WM_NCHITTEST = 0x0084 Global Const $WM_NCPAINT = 0x0085 Global Const $WM_NCACTIVATE = 0x0086 Global Const $WM_GETDLGCODE = 0x0087 Global Const $WM_SYNCPAINT = 0x0088 Global Const $WM_SYNCTASK = 0x0089 Global Const $WM_KLUDGEMINRECT = 0x008B Global Const $WM_LPKDRAWSWITCHWND = 0x008C Global Const $WM_UAHDESTROYWINDOW = 0x0090 Global Const $WM_UAHDRAWMENU = 0x0091 Global Const $WM_UAHDRAWMENUITEM = 0x0092 Global Const $WM_UAHINITMENU = 0x0093 Global Const $WM_UAHMEASUREMENUITEM = 0x0094 Global Const $WM_UAHNCPAINTMENUPOPUP = 0x0095 Global Const $WM_NCMOUSEMOVE = 0x00A0 Global Const $WM_NCLBUTTONDOWN = 0x00A1 Global Const $WM_NCLBUTTONUP = 0x00A2 Global Const $WM_NCLBUTTONDBLCLK = 0x00A3 Global Const $WM_NCRBUTTONDOWN = 0x00A4 Global Const $WM_NCRBUTTONUP = 0x00A5 Global Const $WM_NCRBUTTONDBLCLK = 0x00A6 Global Const $WM_NCMBUTTONDOWN = 0x00A7 Global Const $WM_NCMBUTTONUP = 0x00A8 Global Const $WM_NCMBUTTONDBLCLK = 0x00A9 Global Const $WM_NCXBUTTONDOWN = 0x00AB Global Const $WM_NCXBUTTONUP = 0x00AC Global Const $WM_NCXBUTTONDBLCLK = 0x00AD Global Const $WM_NCUAHDRAWCAPTION = 0x00AE Global Const $WM_NCUAHDRAWFRAME = 0x00AF Global Const $WM_INPUT_DEVICE_CHANGE = 0x00FE Global Const $WM_INPUT = 0x00FF Global Const $WM_KEYDOWN = 0x0100 Global Const $WM_KEYFIRST = 0x0100 Global Const $WM_KEYUP = 0x0101 Global Const $WM_CHAR = 0x0102 Global Const $WM_DEADCHAR = 0x0103 Global Const $WM_SYSKEYDOWN = 0x0104 Global Const $WM_SYSKEYUP = 0x0105 Global Const $WM_SYSCHAR = 0x0106 Global Const $WM_SYSDEADCHAR = 0x0107 Global Const $WM_YOMICHAR = 0x0108 Global Const $WM_KEYLAST = 0x0109 Global Const $WM_UNICHAR = 0x0109 Global Const $WM_CONVERTREQUEST = 0x010A Global Const $WM_CONVERTRESULT = 0x010B Global Const $WM_IM_INFO = 0x010C Global Const $WM_IME_STARTCOMPOSITION = 0x010D Global Const $WM_IME_ENDCOMPOSITION = 0x010E Global Const $WM_IME_COMPOSITION = 0x010F Global Const $WM_IME_KEYLAST = 0x010F Global Const $WM_INITDIALOG = 0x0110 Global Const $WM_COMMAND = 0x0111 Global Const $WM_SYSCOMMAND = 0x0112 Global Const $WM_TIMER = 0x0113 Global Const $WM_HSCROLL = 0x0114 Global Const $WM_VSCROLL = 0x0115 Global Const $WM_INITMENU = 0x0116 Global Const $WM_INITMENUPOPUP = 0x0117 Global Const $WM_SYSTIMER = 0x0118 Global Const $WM_GESTURE = 0x0119 Global Const $WM_GESTURENOTIFY = 0x011A Global Const $WM_GESTUREINPUT = 0x011B Global Const $WM_GESTURENOTIFIED = 0x011C Global Const $WM_MENUSELECT = 0x011F Global Const $WM_MENUCHAR = 0x0120 Global Const $WM_ENTERIDLE = 0x0121 Global Const $WM_MENURBUTTONUP = 0x0122 Global Const $WM_MENUDRAG = 0x0123 Global Const $WM_MENUGETOBJECT = 0x0124 Global Const $WM_UNINITMENUPOPUP = 0x0125 Global Const $WM_MENUCOMMAND = 0x0126 Global Const $WM_CHANGEUISTATE = 0x0127 Global Const $WM_UPDATEUISTATE = 0x0128 Global Const $WM_QUERYUISTATE = 0x0129 Global Const $WM_LBTRACKPOINT = 0x0131 Global Const $WM_CTLCOLORMSGBOX = 0x0132 Global Const $WM_CTLCOLOREDIT = 0x0133 Global Const $WM_CTLCOLORLISTBOX = 0x0134 Global Const $WM_CTLCOLORBTN = 0x0135 Global Const $WM_CTLCOLORDLG = 0x0136 Global Const $WM_CTLCOLORSCROLLBAR = 0x0137 Global Const $WM_CTLCOLORSTATIC = 0x0138 Global Const $MN_GETHMENU = 0x01E1 Global Const $WM_PARENTNOTIFY = 0x0210 Global Const $WM_ENTERMENULOOP = 0x0211 Global Const $WM_EXITMENULOOP = 0x0212 Global Const $WM_NEXTMENU = 0x0213 Global Const $WM_SIZING = 0x0214 Global Const $WM_CAPTURECHANGED = 0x0215 Global Const $WM_MOVING = 0x0216 Global Const $WM_POWERBROADCAST = 0x0218 Global Const $WM_DEVICECHANGE = 0x0219 Global Const $WM_MDICREATE = 0x0220 Global Const $WM_MDIDESTROY = 0x0221 Global Const $WM_MDIACTIVATE = 0x0222 Global Const $WM_MDIRESTORE = 0x0223 Global Const $WM_MDINEXT = 0x0224 Global Const $WM_MDIMAXIMIZE = 0x0225 Global Const $WM_MDITILE = 0x0226 Global Const $WM_MDICASCADE = 0x0227 Global Const $WM_MDIICONARRANGE = 0x0228 Global Const $WM_MDIGETACTIVE = 0x0229 Global Const $WM_DROPOBJECT = 0x022A Global Const $WM_QUERYDROPOBJECT = 0x022B Global Const $WM_BEGINDRAG = 0x022C Global Const $WM_DRAGLOOP = 0x022D Global Const $WM_DRAGSELECT = 0x022E Global Const $WM_DRAGMOVE = 0x022F Global Const $WM_MDISETMENU = 0x0230 Global Const $WM_ENTERSIZEMOVE = 0x0231 Global Const $WM_EXITSIZEMOVE = 0x0232 Global Const $WM_DROPFILES = 0x0233 Global Const $WM_MDIREFRESHMENU = 0x0234 Global Const $WM_TOUCH = 0x0240 Global Const $WM_IME_SETCONTEXT = 0x0281 Global Const $WM_IME_NOTIFY = 0x0282 Global Const $WM_IME_CONTROL = 0x0283 Global Const $WM_IME_COMPOSITIONFULL = 0x0284 Global Const $WM_IME_SELECT = 0x0285 Global Const $WM_IME_CHAR = 0x0286 Global Const $WM_IME_SYSTEM = 0x0287 Global Const $WM_IME_REQUEST = 0x0288 Global Const $WM_IME_KEYDOWN = 0x0290 Global Const $WM_IME_KEYUP = 0x0291 Global Const $WM_NCMOUSEHOVER = 0x02A0 Global Const $WM_MOUSEHOVER = 0x02A1 Global Const $WM_NCMOUSELEAVE = 0x02A2 Global Const $WM_MOUSELEAVE = 0x02A3 Global Const $WM_WTSSESSION_CHANGE = 0x02B1 Global Const $WM_TABLET_FIRST = 0x02C0 Global Const $WM_TABLET_LAST = 0x02DF Global Const $WM_CUT = 0x0300 Global Const $WM_COPY = 0x0301 Global Const $WM_PASTE = 0x0302 Global Const $WM_CLEAR = 0x0303 Global Const $WM_UNDO = 0x0304 Global Const $WM_PALETTEISCHANGING = 0x0310 Global Const $WM_HOTKEY = 0x0312 Global Const $WM_PALETTECHANGED = 0x0311 Global Const $WM_SYSMENU = 0x0313 Global Const $WM_HOOKMSG = 0x0314 Global Const $WM_EXITPROCESS = 0x0315 Global Const $WM_WAKETHREAD = 0x0316 Global Const $WM_PRINT = 0x0317 Global Const $WM_PRINTCLIENT = 0x0318 Global Const $WM_APPCOMMAND = 0x0319 Global Const $WM_QUERYNEWPALETTE = 0x030F Global Const $WM_THEMECHANGED = 0x031A Global Const $WM_UAHINIT = 0x031B Global Const $WM_DESKTOPNOTIFY = 0x031C Global Const $WM_CLIPBOARDUPDATE = 0x031D Global Const $WM_DWMCOMPOSITIONCHANGED = 0x031E Global Const $WM_DWMNCRENDERINGCHANGED = 0x031F Global Const $WM_DWMCOLORIZATIONCOLORCHANGED = 0x0320 Global Const $WM_DWMWINDOWMAXIMIZEDCHANGE = 0x0321 Global Const $WM_DWMEXILEFRAME = 0x0322 Global Const $WM_DWMSENDICONICTHUMBNAIL = 0x0323 Global Const $WM_MAGNIFICATION_STARTED = 0x0324 Global Const $WM_MAGNIFICATION_ENDED = 0x0325 Global Const $WM_DWMSENDICONICLIVEPREVIEWBITMAP = 0x0326 Global Const $WM_DWMTHUMBNAILSIZECHANGED = 0x0327 Global Const $WM_MAGNIFICATION_OUTPUT = 0x0328 Global Const $WM_MEASURECONTROL = 0x0330 Global Const $WM_GETACTIONTEXT = 0x0331 Global Const $WM_FORWARDKEYDOWN = 0x0333 Global Const $WM_FORWARDKEYUP = 0x0334 Global Const $WM_GETTITLEBARINFOEX = 0x033F Global Const $WM_NOTIFYWOW = 0x0340 Global Const $WM_HANDHELDFIRST = 0x0358 Global Const $WM_HANDHELDLAST = 0x035F Global Const $WM_AFXFIRST = 0x0360 Global Const $WM_AFXLAST = 0x037F Global Const $WM_PENWINFIRST = 0x0380 Global Const $WM_PENWINLAST = 0x038F Global Const $WM_DDE_INITIATE = 0x03E0 Global Const $WM_DDE_TERMINATE = 0x03E1 Global Const $WM_DDE_ADVISE = 0x03E2 Global Const $WM_DDE_UNADVISE = 0x03E3 Global Const $WM_DDE_ACK = 0x03E4 Global Const $WM_DDE_DATA = 0x03E5 Global Const $WM_DDE_REQUEST = 0x03E6 Global Const $WM_DDE_POKE = 0x03E7 Global Const $WM_DDE_EXECUTE = 0x03E8 Global Const $WM_DBNOTIFICATION = 0x03FD Global Const $WM_NETCONNECT = 0x03FE Global Const $WM_HIBERNATE = 0x03FF Global Const $WM_USER = 0x0400 Global Const $WM_APP = 0x8000 Global Const $NM_FIRST = 0 Global Const $NM_OUTOFMEMORY = $NM_FIRST - 1 Global Const $NM_CLICK = $NM_FIRST - 2 Global Const $NM_DBLCLK = $NM_FIRST - 3 Global Const $NM_RETURN = $NM_FIRST - 4 Global Const $NM_RCLICK = $NM_FIRST - 5 Global Const $NM_RDBLCLK = $NM_FIRST - 6 Global Const $NM_SETFOCUS = $NM_FIRST - 7 Global Const $NM_KILLFOCUS = $NM_FIRST - 8 Global Const $NM_CUSTOMDRAW = $NM_FIRST - 12 Global Const $NM_HOVER = $NM_FIRST - 13 Global Const $NM_NCHITTEST = $NM_FIRST - 14 Global Const $NM_KEYDOWN = $NM_FIRST - 15 Global Const $NM_RELEASEDCAPTURE = $NM_FIRST - 16 Global Const $NM_SETCURSOR = $NM_FIRST - 17 Global Const $NM_CHAR = $NM_FIRST - 18 Global Const $NM_TOOLTIPSCREATED = $NM_FIRST - 19 Global Const $NM_LDOWN = $NM_FIRST - 20 Global Const $NM_RDOWN = $NM_FIRST - 21 Global Const $NM_THEMECHANGED = $NM_FIRST - 22 Global Const $WM_MOUSEFIRST = 0x0200 Global Const $WM_MOUSEMOVE = 0x0200 Global Const $WM_LBUTTONDOWN = 0x0201 Global Const $WM_LBUTTONUP = 0x0202 Global Const $WM_LBUTTONDBLCLK = 0x0203 Global Const $WM_RBUTTONDOWN = 0x0204 Global Const $WM_RBUTTONUP = 0x0205 Global Const $WM_RBUTTONDBLCLK = 0x0206 Global Const $WM_MBUTTONDOWN = 0x0207 Global Const $WM_MBUTTONUP = 0x0208 Global Const $WM_MBUTTONDBLCLK = 0x0209 Global Const $WM_MOUSEWHEEL = 0x020A Global Const $WM_XBUTTONDOWN = 0x020B Global Const $WM_XBUTTONUP = 0x020C Global Const $WM_XBUTTONDBLCLK = 0x020D Global Const $WM_MOUSEHWHEEL = 0x020E Global Const $PS_SOLID = 0 Global Const $PS_DASH = 1 Global Const $PS_DOT = 2 Global Const $PS_DASHDOT = 3 Global Const $PS_DASHDOTDOT = 4 Global Const $PS_NULL = 5 Global Const $PS_INSIDEFRAME = 6 Global Const $PS_USERSTYLE = 7 Global Const $PS_ALTERNATE = 8 Global Const $PS_ENDCAP_ROUND = 0x00000000 Global Const $PS_ENDCAP_SQUARE = 0x00000100 Global Const $PS_ENDCAP_FLAT = 0x00000200 Global Const $PS_JOIN_BEVEL = 0x00001000 Global Const $PS_JOIN_MITER = 0x00002000 Global Const $PS_JOIN_ROUND = 0x00000000 Global Const $PS_GEOMETRIC = 0x00010000 Global Const $PS_COSMETIC = 0x00000000 Global Const $LWA_ALPHA = 0x2 Global Const $LWA_COLORKEY = 0x1 Global Const $RGN_AND = 1 Global Const $RGN_OR = 2 Global Const $RGN_XOR = 3 Global Const $RGN_DIFF = 4 Global Const $RGN_COPY = 5 Global Const $ERRORREGION = 0 Global Const $NULLREGION = 1 Global Const $SIMPLEREGION = 2 Global Const $COMPLEXREGION = 3 Global Const $TRANSPARENT = 1 Global Const $OPAQUE = 2 Global Const $CCM_FIRST = 0x2000 Global Const $CCM_GETUNICODEFORMAT = ($CCM_FIRST + 6) Global Const $CCM_SETUNICODEFORMAT = ($CCM_FIRST + 5) Global Const $CCM_SETBKCOLOR = $CCM_FIRST + 1 Global Const $CCM_SETCOLORSCHEME = $CCM_FIRST + 2 Global Const $CCM_GETCOLORSCHEME = $CCM_FIRST + 3 Global Const $CCM_GETDROPTARGET = $CCM_FIRST + 4 Global Const $CCM_SETWINDOWTHEME = $CCM_FIRST + 11 Global Const $GA_PARENT = 1 Global Const $GA_ROOT = 2 Global Const $GA_ROOTOWNER = 3 Global Const $SM_CXSCREEN = 0 Global Const $SM_CYSCREEN = 1 Global Const $SM_CXVSCROLL = 2 Global Const $SM_CYHSCROLL = 3 Global Const $SM_CYCAPTION = 4 Global Const $SM_CXBORDER = 5 Global Const $SM_CYBORDER = 6 Global Const $SM_CXFIXEDFRAME = 7 Global Const $SM_CXDLGFRAME = $SM_CXFIXEDFRAME Global Const $SM_CYFIXEDFRAME = 8 Global Const $SM_CYDLGFRAME = $SM_CYFIXEDFRAME Global Const $SM_CYVTHUMB = 9 Global Const $SM_CXHTHUMB = 10 Global Const $SM_CXICON = 11 Global Const $SM_CYICON = 12 Global Const $SM_CXCURSOR = 13 Global Const $SM_CYCURSOR = 14 Global Const $SM_CYMENU = 15 Global Const $SM_CXFULLSCREEN = 16 Global Const $SM_CYFULLSCREEN = 17 Global Const $SM_CYKANJIWINDOW = 18 Global Const $SM_MOUSEPRESENT = 19 Global Const $SM_CYVSCROLL = 20 Global Const $SM_CXHSCROLL = 21 Global Const $SM_DEBUG = 22 Global Const $SM_SWAPBUTTON = 23 Global Const $SM_RESERVED1 = 24 Global Const $SM_RESERVED2 = 25 Global Const $SM_RESERVED3 = 26 Global Const $SM_RESERVED4 = 27 Global Const $SM_CXMIN = 28 Global Const $SM_CYMIN = 29 Global Const $SM_CXSIZE = 30 Global Const $SM_CYSIZE = 31 Global Const $SM_CXSIZEFRAME = 32 Global Const $SM_CXFRAME = $SM_CXSIZEFRAME Global Const $SM_CYSIZEFRAME = 33 Global Const $SM_CYFRAME = $SM_CYSIZEFRAME Global Const $SM_CXMINTRACK = 34 Global Const $SM_CYMINTRACK = 35 Global Const $SM_CXDOUBLECLK = 36 Global Const $SM_CYDOUBLECLK = 37 Global Const $SM_CXICONSPACING = 38 Global Const $SM_CYICONSPACING = 39 Global Const $SM_MENUDROPALIGNMENT = 40 Global Const $SM_PENWINDOWS = 41 Global Const $SM_DBCSENABLED = 42 Global Const $SM_CMOUSEBUTTONS = 43 Global Const $SM_SECURE = 44 Global Const $SM_CXEDGE = 45 Global Const $SM_CYEDGE = 46 Global Const $SM_CXMINSPACING = 47 Global Const $SM_CYMINSPACING = 48 Global Const $SM_CXSMICON = 49 Global Const $SM_CYSMICON = 50 Global Const $SM_CYSMCAPTION = 51 Global Const $SM_CXSMSIZE = 52 Global Const $SM_CYSMSIZE = 53 Global Const $SM_CXMENUSIZE = 54 Global Const $SM_CYMENUSIZE = 55 Global Const $SM_ARRANGE = 56 Global Const $SM_CXMINIMIZED = 57 Global Const $SM_CYMINIMIZED = 58 Global Const $SM_CXMAXTRACK = 59 Global Const $SM_CYMAXTRACK = 60 Global Const $SM_CXMAXIMIZED = 61 Global Const $SM_CYMAXIMIZED = 62 Global Const $SM_NETWORK = 63 Global Const $SM_CLEANBOOT = 67 Global Const $SM_CXDRAG = 68 Global Const $SM_CYDRAG = 69 Global Const $SM_SHOWSOUNDS = 70 Global Const $SM_CXMENUCHECK = 71 Global Const $SM_CYMENUCHECK = 72 Global Const $SM_SLOWMACHINE = 73 Global Const $SM_MIDEASTENABLED = 74 Global Const $SM_MOUSEWHEELPRESENT = 75 Global Const $SM_XVIRTUALSCREEN = 76 Global Const $SM_YVIRTUALSCREEN = 77 Global Const $SM_CXVIRTUALSCREEN = 78 Global Const $SM_CYVIRTUALSCREEN = 79 Global Const $SM_CMONITORS = 80 Global Const $SM_SAMEDISPLAYFORMAT = 81 Global Const $SM_IMMENABLED = 82 Global Const $SM_CXFOCUSBORDER = 83 Global Const $SM_CYFOCUSBORDER = 84 Global Const $SM_TABLETPC = 86 Global Const $SM_MEDIACENTER = 87 Global Const $SM_STARTER = 88 Global Const $SM_SERVERR2 = 89 Global Const $SM_CMETRICS = 90 Global Const $SM_REMOTESESSION = 0x1000 Global Const $SM_SHUTTINGDOWN = 0x2000 Global Const $SM_REMOTECONTROL = 0x2001 Global Const $SM_CARETBLINKINGENABLED = 0x2002 Global Const $BLACKNESS = 0x00000042 Global Const $CAPTUREBLT = 0X40000000 Global Const $DSTINVERT = 0x00550009 Global Const $MERGECOPY = 0x00C000CA Global Const $MERGEPAINT = 0x00BB0226 Global Const $NOMIRRORBITMAP = 0X80000000 Global Const $NOTSRCCOPY = 0x00330008 Global Const $NOTSRCERASE = 0x001100A6 Global Const $PATCOPY = 0x00F00021 Global Const $PATINVERT = 0x005A0049 Global Const $PATPAINT = 0x00FB0A09 Global Const $SRCAND = 0x008800C6 Global Const $SRCCOPY = 0x00CC0020 Global Const $SRCERASE = 0x00440328 Global Const $SRCINVERT = 0x00660046 Global Const $SRCPAINT = 0x00EE0086 Global Const $WHITENESS = 0x00FF0062 Global Const $DT_BOTTOM = 0x8 Global Const $DT_CALCRECT = 0x400 Global Const $DT_CENTER = 0x1 Global Const $DT_EDITCONTROL = 0x2000 Global Const $DT_END_ELLIPSIS = 0x8000 Global Const $DT_EXPANDTABS = 0x40 Global Const $DT_EXTERNALLEADING = 0x200 Global Const $DT_HIDEPREFIX = 0x100000 Global Const $DT_INTERNAL = 0x1000 Global Const $DT_LEFT = 0x0 Global Const $DT_MODIFYSTRING = 0x10000 Global Const $DT_NOCLIP = 0x100 Global Const $DT_NOFULLWIDTHCHARBREAK = 0x80000 Global Const $DT_NOPREFIX = 0x800 Global Const $DT_PATH_ELLIPSIS = 0x4000 Global Const $DT_PREFIXONLY = 0x200000 Global Const $DT_RIGHT = 0x2 Global Const $DT_RTLREADING = 0x20000 Global Const $DT_SINGLELINE = 0x20 Global Const $DT_TABSTOP = 0x80 Global Const $DT_TOP = 0x0 Global Const $DT_VCENTER = 0x4 Global Const $DT_WORDBREAK = 0x10 Global Const $DT_WORD_ELLIPSIS = 0x40000 Global Const $RDW_ERASE = 0x0004 Global Const $RDW_FRAME = 0x0400 Global Const $RDW_INTERNALPAINT = 0x0002 Global Const $RDW_INVALIDATE = 0x0001 Global Const $RDW_NOERASE = 0x0020 Global Const $RDW_NOFRAME = 0x0800 Global Const $RDW_NOINTERNALPAINT = 0x0010 Global Const $RDW_VALIDATE = 0x0008 Global Const $RDW_ERASENOW = 0x0200 Global Const $RDW_UPDATENOW = 0x0100 Global Const $RDW_ALLCHILDREN = 0x0080 Global Const $RDW_NOCHILDREN = 0x0040 Global Const $WM_RENDERFORMAT = 0x0305 Global Const $WM_RENDERALLFORMATS = 0x0306 Global Const $WM_DESTROYCLIPBOARD = 0x0307 Global Const $WM_DRAWCLIPBOARD = 0x0308 Global Const $WM_PAINTCLIPBOARD = 0x0309 Global Const $WM_VSCROLLCLIPBOARD = 0x030A Global Const $WM_SIZECLIPBOARD = 0x030B Global Const $WM_ASKCBFORMATNAME = 0x030C Global Const $WM_CHANGECBCHAIN = 0x030D Global Const $WM_HSCROLLCLIPBOARD = 0x030E Global Const $HTERROR = -2 Global Const $HTTRANSPARENT = -1 Global Const $HTNOWHERE = 0 Global Const $HTCLIENT = 1 Global Const $HTCAPTION = 2 Global Const $HTSYSMENU = 3 Global Const $HTGROWBOX = 4 Global Const $HTSIZE = $HTGROWBOX Global Const $HTMENU = 5 Global Const $HTHSCROLL = 6 Global Const $HTVSCROLL = 7 Global Const $HTMINBUTTON = 8 Global Const $HTMAXBUTTON = 9 Global Const $HTLEFT = 10 Global Const $HTRIGHT = 11 Global Const $HTTOP = 12 Global Const $HTTOPLEFT = 13 Global Const $HTTOPRIGHT = 14 Global Const $HTBOTTOM = 15 Global Const $HTBOTTOMLEFT = 16 Global Const $HTBOTTOMRIGHT = 17 Global Const $HTBORDER = 18 Global Const $HTREDUCE = $HTMINBUTTON Global Const $HTZOOM = $HTMAXBUTTON Global Const $HTSIZEFIRST = $HTLEFT Global Const $HTSIZELAST = $HTBOTTOMRIGHT Global Const $HTOBJECT = 19 Global Const $HTCLOSE = 20 Global Const $HTHELP = 21 Global Const $COLOR_SCROLLBAR = 0 Global Const $COLOR_BACKGROUND = 1 Global Const $COLOR_ACTIVECAPTION = 2 Global Const $COLOR_INACTIVECAPTION = 3 Global Const $COLOR_MENU = 4 Global Const $COLOR_WINDOW = 5 Global Const $COLOR_WINDOWFRAME = 6 Global Const $COLOR_MENUTEXT = 7 Global Const $COLOR_WINDOWTEXT = 8 Global Const $COLOR_CAPTIONTEXT = 9 Global Const $COLOR_ACTIVEBORDER = 10 Global Const $COLOR_INACTIVEBORDER = 11 Global Const $COLOR_APPWORKSPACE = 12 Global Const $COLOR_HIGHLIGHT = 13 Global Const $COLOR_HIGHLIGHTTEXT = 14 Global Const $COLOR_BTNFACE = 15 Global Const $COLOR_BTNSHADOW = 16 Global Const $COLOR_GRAYTEXT = 17 Global Const $COLOR_BTNTEXT = 18 Global Const $COLOR_INACTIVECAPTIONTEXT = 19 Global Const $COLOR_BTNHIGHLIGHT = 20 Global Const $COLOR_3DDKSHADOW = 21 Global Const $COLOR_3DLIGHT = 22 Global Const $COLOR_INFOTEXT = 23 Global Const $COLOR_INFOBK = 24 Global Const $COLOR_HOTLIGHT = 26 Global Const $COLOR_GRADIENTACTIVECAPTION = 27 Global Const $COLOR_GRADIENTINACTIVECAPTION = 28 Global Const $COLOR_MENUHILIGHT = 29 Global Const $COLOR_MENUBAR = 30 Global Const $COLOR_DESKTOP = 1 Global Const $COLOR_3DFACE = 15 Global Const $COLOR_3DSHADOW = 16 Global Const $COLOR_3DHIGHLIGHT = 20 Global Const $COLOR_3DHILIGHT = 20 Global Const $COLOR_BTNHILIGHT = 20 Global Const $HINST_COMMCTRL = -1 Global Const $IDB_STD_SMALL_COLOR = 0 Global Const $IDB_STD_LARGE_COLOR = 1 Global Const $IDB_VIEW_SMALL_COLOR = 4 Global Const $IDB_VIEW_LARGE_COLOR = 5 Global Const $IDB_HIST_SMALL_COLOR = 8 Global Const $IDB_HIST_LARGE_COLOR = 9 Global Const $STARTF_FORCEOFFFEEDBACK = 0x80 Global Const $STARTF_FORCEONFEEDBACK = 0x40 Global Const $STARTF_PREVENTPINNING = 0x00002000 Global Const $STARTF_RUNFULLSCREEN = 0x20 Global Const $STARTF_TITLEISAPPID = 0x00001000 Global Const $STARTF_TITLEISLINKNAME = 0x00000800 Global Const $STARTF_USECOUNTCHARS = 0x8 Global Const $STARTF_USEFILLATTRIBUTE = 0x10 Global Const $STARTF_USEHOTKEY = 0x200 Global Const $STARTF_USEPOSITION = 0x4 Global Const $STARTF_USESHOWWINDOW = 0x1 Global Const $STARTF_USESIZE = 0x2 Global Const $STARTF_USESTDHANDLES = 0x100 Global Const $CDDS_PREPAINT = 0x00000001 Global Const $CDDS_POSTPAINT = 0x00000002 Global Const $CDDS_PREERASE = 0x00000003 Global Const $CDDS_POSTERASE = 0x00000004 Global Const $CDDS_ITEM = 0x00010000 Global Const $CDDS_ITEMPREPAINT = 0x00010001 Global Const $CDDS_ITEMPOSTPAINT = 0x00010002 Global Const $CDDS_ITEMPREERASE = 0x00010003 Global Const $CDDS_ITEMPOSTERASE = 0x00010004 Global Const $CDDS_SUBITEM = 0x00020000 Global Const $CDIS_SELECTED = 0x0001 Global Const $CDIS_GRAYED = 0x0002 Global Const $CDIS_DISABLED = 0x0004 Global Const $CDIS_CHECKED = 0x0008 Global Const $CDIS_FOCUS = 0x0010 Global Const $CDIS_DEFAULT = 0x0020 Global Const $CDIS_HOT = 0x0040 Global Const $CDIS_MARKED = 0x0080 Global Const $CDIS_INDETERMINATE = 0x0100 Global Const $CDIS_SHOWKEYBOARDCUES = 0x0200 Global Const $CDIS_NEARHOT = 0x0400 Global Const $CDIS_OTHERSIDEHOT = 0x0800 Global Const $CDIS_DROPHILITED = 0x1000 Global Const $CDRF_DODEFAULT = 0x00000000 Global Const $CDRF_NEWFONT = 0x00000002 Global Const $CDRF_SKIPDEFAULT = 0x00000004 Global Const $CDRF_NOTIFYPOSTPAINT = 0x00000010 Global Const $CDRF_NOTIFYITEMDRAW = 0x00000020 Global Const $CDRF_NOTIFYSUBITEMDRAW = 0x00000020 Global Const $CDRF_NOTIFYPOSTERASE = 0x00000040 Global Const $CDRF_DOERASE = 0x00000008 Global Const $CDRF_SKIPPOSTPAINT = 0x00000100 Global Const $GUI_SS_DEFAULT_GUI = BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU) #Region Header #EndRegion Header #Region Global Variables Global $__g_iIELoadWaitTimeout = 300000 Global $__g_bIEAU3Debug = False Global $__g_bIEErrorNotify = True Global $__g_oIEErrorHandler, $__g_sIEUserErrorHandler #EndRegion Global Variables #Region Global Constants Global Const $__gaIEAU3VersionInfo[6] = ["T", 3, 0, 2, "20140819", "T3.0-2"] Global Const $LSFW_LOCK = 1, $LSFW_UNLOCK = 2 Global Enum $_IESTATUS_Success = 0, $_IESTATUS_GeneralError, $_IESTATUS_ComError, $_IESTATUS_InvalidDataType, $_IESTATUS_InvalidObjectType, $_IESTATUS_InvalidValue, $_IESTATUS_LoadWaitTimeout, $_IESTATUS_NoMatch, $_IESTATUS_AccessIsDenied, $_IESTATUS_ClientDisconnected #EndRegion Global Constants #Region Core functions Func _IECreate($sUrl = "about:blank", $iTryAttach = 0, $iVisible = 1, $iWait = 1, $iTakeFocus = 1) If Not $iVisible Then $iTakeFocus = 0 If $iTryAttach Then Local $oResult = _IEAttach($sUrl, "url") If IsObj($oResult) Then If $iTakeFocus Then WinActivate(HWnd($oResult.hWnd)) Return SetError($_IESTATUS_Success, 1, $oResult) EndIf EndIf Local $iMustUnlock = 0 If Not $iVisible And __IELockSetForegroundWindow($LSFW_LOCK) Then $iMustUnlock = 1 Local $oObject = ObjCreate("InternetExplorer.Application") If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IECreate", "", "Browser Object Creation Failed") If $iMustUnlock Then __IELockSetForegroundWindow($LSFW_UNLOCK) Return SetError($_IESTATUS_GeneralError, 0, 0) EndIf $oObject.visible = $iVisible If $iMustUnlock And Not __IELockSetForegroundWindow($LSFW_UNLOCK) Then __IEConsoleWriteError("Warning", "_IECreate", "", "Foreground Window Unlock Failed!") _IENavigate($oObject, $sUrl, $iWait) Local $iError = @error If Not $iError And StringLeft($sUrl, 6) = "about:" Then Local $oDocument = $oObject.document _IEAction($oDocument, "focus") EndIf Return SetError($iError, 0, $oObject) EndFunc Func _IECreateEmbedded() Local $oObject = ObjCreate("Shell.Explorer.2") If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IECreateEmbedded", "", "WebBrowser Object Creation Failed") Return SetError($_IESTATUS_GeneralError, 0, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject) EndFunc Func _IENavigate(ByRef $oObject, $sUrl, $iWait = 1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IENavigate", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "documentContainer") Then __IEConsoleWriteError("Error", "_IENavigate", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.navigate($sUrl) If @error Then __IEConsoleWriteError("Error", "_IENavigate", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf If $iWait Then _IELoadWait($oObject) Return SetError(@error, 0, -1) EndIf Return SetError($_IESTATUS_Success, 0, -1) EndFunc Func _IEAttach($sString, $sMode = "title", $iInstance = 1) $sMode = StringLower($sMode) $iInstance = Int($iInstance) If $iInstance < 1 Then __IEConsoleWriteError("Error", "_IEAttach", "$_IESTATUS_InvalidValue", "$iInstance < 1") Return SetError($_IESTATUS_InvalidValue, 3, 0) EndIf If $sMode = "embedded" Or $sMode = "dialogbox" Then Local $iWinTitleMatchMode = Opt("WinTitleMatchMode", $OPT_MATCHANY) If $sMode = "dialogbox" And $iInstance > 1 Then If IsHWnd($sString) Then $iInstance = 1 __IEConsoleWriteError("Warning", "_IEAttach", "$_IESTATUS_GeneralError", "$iInstance > 1 invalid with HWnd and DialogBox. Setting to 1.") Else Local $aWinlist = WinList($sString, "") If $iInstance <= $aWinlist[0][0] Then $sString = $aWinlist[$iInstance][1] $iInstance = 1 Else __IEConsoleWriteError("Warning", "_IEAttach", "$_IESTATUS_NoMatch") Opt("WinTitleMatchMode", $iWinTitleMatchMode) Return SetError($_IESTATUS_NoMatch, 1, 0) EndIf EndIf EndIf Local $hControl = ControlGetHandle($sString, "", "[CLASS:Internet Explorer_Server; INSTANCE:" & $iInstance & "]") Local $oResult = __IEControlGetObjFromHWND($hControl) Opt("WinTitleMatchMode", $iWinTitleMatchMode) If IsObj($oResult) Then Return SetError($_IESTATUS_Success, 0, $oResult) Else __IEConsoleWriteError("Warning", "_IEAttach", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 1, 0) EndIf EndIf Local $oShell = ObjCreate("Shell.Application") Local $oShellWindows = $oShell.Windows() Local $iTmp = 1 Local $iNotifyStatus, $bIsBrowser, $sTmp Local $bStatus For $oWindow In $oShellWindows $bIsBrowser = True $bStatus = __IEInternalErrorHandlerRegister() If Not $bStatus Then __IEConsoleWriteError("Warning", "_IEAttach", "Cannot register internal error handler, cannot trap COM errors", "Use _IEErrorHandlerRegister() to register a user error handler") $iNotifyStatus = _IEErrorNotify() _IEErrorNotify(False) If $bIsBrowser Then $sTmp = $oWindow.type If @error Then $bIsBrowser = False EndIf If $bIsBrowser Then $sTmp = $oWindow.document.title If @error Then $bIsBrowser = False EndIf _IEErrorNotify($iNotifyStatus) __IEInternalErrorHandlerDeRegister() If $bIsBrowser Then Switch $sMode Case "title" If StringInStr($oWindow.document.title, $sString) > 0 Then If $iInstance = $iTmp Then Return SetError($_IESTATUS_Success, 0, $oWindow) Else $iTmp += 1 EndIf EndIf Case "instance" If $iInstance = $iTmp Then Return SetError($_IESTATUS_Success, 0, $oWindow) Else $iTmp += 1 EndIf Case "windowtitle" Local $bFound = False $sTmp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\", "Window Title") If Not @error Then If StringInStr($oWindow.document.title & " - " & $sTmp, $sString) Then $bFound = True Else If StringInStr($oWindow.document.title & " - Microsoft Internet Explorer", $sString) Then $bFound = True If StringInStr($oWindow.document.title & " - Windows Internet Explorer", $sString) Then $bFound = True EndIf If $bFound Then If $iInstance = $iTmp Then Return SetError($_IESTATUS_Success, 0, $oWindow) Else $iTmp += 1 EndIf EndIf Case "url" If StringInStr($oWindow.LocationURL, $sString) > 0 Then If $iInstance = $iTmp Then Return SetError($_IESTATUS_Success, 0, $oWindow) Else $iTmp += 1 EndIf EndIf Case "text" If StringInStr($oWindow.document.body.innerText, $sString) > 0 Then If $iInstance = $iTmp Then Return SetError($_IESTATUS_Success, 0, $oWindow) Else $iTmp += 1 EndIf EndIf Case "html" If StringInStr($oWindow.document.body.innerHTML, $sString) > 0 Then If $iInstance = $iTmp Then Return SetError($_IESTATUS_Success, 0, $oWindow) Else $iTmp += 1 EndIf EndIf Case "hwnd" If $iInstance > 1 Then $iInstance = 1 __IEConsoleWriteError("Warning", "_IEAttach", "$_IESTATUS_GeneralError", "$iInstance > 1 invalid with HWnd. Setting to 1.") EndIf If _IEPropertyGet($oWindow, "hwnd") = $sString Then Return SetError($_IESTATUS_Success, 0, $oWindow) EndIf Case Else __IEConsoleWriteError("Error", "_IEAttach", "$_IESTATUS_InvalidValue", "Invalid Mode Specified") Return SetError($_IESTATUS_InvalidValue, 2, 0) EndSwitch EndIf Next __IEConsoleWriteError("Warning", "_IEAttach", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 1, 0) EndFunc Func _IELoadWait(ByRef $oObject, $iDelay = 0, $iTimeout = -1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IELoadWait", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "browserdom") Then __IEConsoleWriteError("Error", "_IELoadWait", "$_IESTATUS_InvalidObjectType", ObjName($oObject)) Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Local $oTemp, $bAbort = False, $iErrorStatusCode = $_IESTATUS_Success Local $bStatus = __IEInternalErrorHandlerRegister() If Not $bStatus Then __IEConsoleWriteError("Warning", "_IELoadWait", "Cannot register internal error handler, cannot trap COM errors", "Use _IEErrorHandlerRegister() to register a user error handler") Local $iNotifyStatus = _IEErrorNotify() _IEErrorNotify(False) Sleep($iDelay) Local $iError Local $hIELoadWaitTimer = TimerInit() If $iTimeout = -1 Then $iTimeout = $__g_iIELoadWaitTimeout Select Case __IEIsObjType($oObject, "browser", False) While Not (String($oObject.readyState) = "complete" Or $oObject.readyState = 4 Or $bAbort) If @error Then $iError = @error If __IEComErrorUnrecoverable($iError) Then $iErrorStatusCode = __IEComErrorUnrecoverable($iError) $bAbort = True EndIf ElseIf (TimerDiff($hIELoadWaitTimer) > $iTimeout) Then $iErrorStatusCode = $_IESTATUS_LoadWaitTimeout $bAbort = True EndIf Sleep(100) WEnd While Not (String($oObject.document.readyState) = "complete" Or $oObject.document.readyState = 4 Or $bAbort) If @error Then $iError = @error If __IEComErrorUnrecoverable($iError) Then $iErrorStatusCode = __IEComErrorUnrecoverable($iError) $bAbort = True EndIf ElseIf (TimerDiff($hIELoadWaitTimer) > $iTimeout) Then $iErrorStatusCode = $_IESTATUS_LoadWaitTimeout $bAbort = True EndIf Sleep(100) WEnd Case __IEIsObjType($oObject, "window", False) While Not (String($oObject.document.readyState) = "complete" Or $oObject.document.readyState = 4 Or $bAbort) If @error Then $iError = @error If __IEComErrorUnrecoverable($iError) Then $iErrorStatusCode = __IEComErrorUnrecoverable($iError) $bAbort = True EndIf ElseIf (TimerDiff($hIELoadWaitTimer) > $iTimeout) Then $iErrorStatusCode = $_IESTATUS_LoadWaitTimeout $bAbort = True EndIf Sleep(100) WEnd While Not (String($oObject.top.document.readyState) = "complete" Or $oObject.top.document.readyState = 4 Or $bAbort) If @error Then $iError = @error If __IEComErrorUnrecoverable($iError) Then $iErrorStatusCode = __IEComErrorUnrecoverable($iError) $bAbort = True EndIf ElseIf (TimerDiff($hIELoadWaitTimer) > $iTimeout) Then $iErrorStatusCode = $_IESTATUS_LoadWaitTimeout $bAbort = True EndIf Sleep(100) WEnd Case __IEIsObjType($oObject, "document", False) $oTemp = $oObject.parentWindow While Not (String($oTemp.document.readyState) = "complete" Or $oTemp.document.readyState = 4 Or $bAbort) If @error Then $iError = @error If __IEComErrorUnrecoverable($iError) Then $iErrorStatusCode = __IEComErrorUnrecoverable($iError) $bAbort = True EndIf ElseIf (TimerDiff($hIELoadWaitTimer) > $iTimeout) Then $iErrorStatusCode = $_IESTATUS_LoadWaitTimeout $bAbort = True EndIf Sleep(100) WEnd While Not (String($oTemp.top.document.readyState) = "complete" Or $oTemp.top.document.readyState = 4 Or $bAbort) If @error Then $iError = @error If __IEComErrorUnrecoverable($iError) Then $iErrorStatusCode = __IEComErrorUnrecoverable($iError) $bAbort = True EndIf ElseIf (TimerDiff($hIELoadWaitTimer) > $iTimeout) Then $iErrorStatusCode = $_IESTATUS_LoadWaitTimeout $bAbort = True EndIf Sleep(100) WEnd Case Else $oTemp = $oObject.document.parentWindow While Not (String($oTemp.document.readyState) = "complete" Or $oTemp.document.readyState = 4 Or $bAbort) If @error Then $iError = @error If __IEComErrorUnrecoverable($iError) Then $iErrorStatusCode = __IEComErrorUnrecoverable($iError) $bAbort = True EndIf ElseIf (TimerDiff($hIELoadWaitTimer) > $iTimeout) Then $iErrorStatusCode = $_IESTATUS_LoadWaitTimeout $bAbort = True EndIf Sleep(100) WEnd While Not (String($oTemp.top.document.readyState) = "complete" Or $oObject.top.document.readyState = 4 Or $bAbort) If @error Then $iError = @error If __IEComErrorUnrecoverable($iError) Then $iErrorStatusCode = __IEComErrorUnrecoverable($iError) $bAbort = True EndIf ElseIf (TimerDiff($hIELoadWaitTimer) > $iTimeout) Then $iErrorStatusCode = $_IESTATUS_LoadWaitTimeout $bAbort = True EndIf Sleep(100) WEnd EndSelect _IEErrorNotify($iNotifyStatus) __IEInternalErrorHandlerDeRegister() Switch $iErrorStatusCode Case $_IESTATUS_Success Return SetError($_IESTATUS_Success, 0, 1) Case $_IESTATUS_LoadWaitTimeout __IEConsoleWriteError("Warning", "_IELoadWait", "$_IESTATUS_LoadWaitTimeout") Return SetError($_IESTATUS_LoadWaitTimeout, 3, 0) Case $_IESTATUS_AccessIsDenied __IEConsoleWriteError("Warning", "_IELoadWait", "$_IESTATUS_AccessIsDenied", "Cannot verify readyState. Likely casue: cross-domain scripting security restriction. (" & $iError & ")") Return SetError($_IESTATUS_AccessIsDenied, 0, 0) Case $_IESTATUS_ClientDisconnected __IEConsoleWriteError("Error", "_IELoadWait", "$_IESTATUS_ClientDisconnected", $iError & ", Browser has been deleted prior to operation.") Return SetError($_IESTATUS_ClientDisconnected, 0, 0) Case Else __IEConsoleWriteError("Error", "_IELoadWait", "$_IESTATUS_GeneralError", "Invalid Error Status - Notify IE.au3 developer") Return SetError($_IESTATUS_GeneralError, 0, 0) EndSwitch EndFunc Func _IELoadWaitTimeout($iTimeout = -1) If $iTimeout = -1 Then Return SetError($_IESTATUS_Success, 0, $__g_iIELoadWaitTimeout) Else $__g_iIELoadWaitTimeout = $iTimeout Return SetError($_IESTATUS_Success, 0, 1) EndIf EndFunc #EndRegion Core functions #Region Frame Functions Func _IEIsFrameSet(ByRef $oObject) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEIsFrameSet", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If String($oObject.document.body.tagName) = "frameset" Then Return SetError($_IESTATUS_Success, 0, 1) Else If @error Then __IEConsoleWriteError("Error", "_IEIsFrameSet", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf Return SetError($_IESTATUS_Success, 0, 0) EndIf EndFunc Func _IEFrameGetCollection(ByRef $oObject, $iIndex = -1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFrameGetCollection", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf $iIndex = Number($iIndex) Select Case $iIndex = -1 Return SetError($_IESTATUS_Success, $oObject.document.parentwindow.frames.length, $oObject.document.parentwindow.frames) Case $iIndex > -1 And $iIndex < $oObject.document.parentwindow.frames.length Return SetError($_IESTATUS_Success, $oObject.document.parentwindow.frames.length, $oObject.document.parentwindow.frames.item($iIndex)) Case $iIndex < -1 __IEConsoleWriteError("Error", "_IEFrameGetCollection", "$_IESTATUS_InvalidValue", "$iIndex < -1") Return SetError($_IESTATUS_InvalidValue, 2, 0) Case Else __IEConsoleWriteError("Warning", "_IEFrameGetCollection", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 2, 0) EndSelect EndFunc Func _IEFrameGetObjByName(ByRef $oObject, $sName) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFrameGetObjByName", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf Local $oTemp, $oFrames If Not __IEIsObjType($oObject, "browserdom") Then __IEConsoleWriteError("Error", "_IEFrameGetObjByName", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf If __IEIsObjType($oObject, "document") Then $oTemp = $oObject.parentWindow Else $oTemp = $oObject.document.parentWindow EndIf If _IEIsFrameSet($oTemp) Then $oFrames = _IETagNameGetCollection($oTemp, "frame") Else $oFrames = _IETagNameGetCollection($oTemp, "iframe") EndIf If $oFrames.length Then For $oFrame In $oFrames If String($oFrame.name) = $sName Then Return SetError($_IESTATUS_Success, 0, $oTemp.frames($sName)) Next __IEConsoleWriteError("Warning", "_IEFrameGetObjByName", "$_IESTATUS_NoMatch", "No frames matching name") Return SetError($_IESTATUS_NoMatch, 2, 0) Else __IEConsoleWriteError("Warning", "_IEFrameGetObjByName", "$_IESTATUS_NoMatch", "No Frames found") Return SetError($_IESTATUS_NoMatch, 2, 0) EndIf EndFunc #EndRegion Frame Functions #Region Link functions Func _IELinkClickByText(ByRef $oObject, $sLinkText, $iIndex = 0, $iWait = 1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IELinkClickByText", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf Local $iFound = 0, $sModeLinktext, $oLinks = $oObject.document.links $iIndex = Number($iIndex) For $oLink In $oLinks $sModeLinktext = String($oLink.outerText) If $sModeLinktext = $sLinkText Then If ($iFound = $iIndex) Then $oLink.click() If @error Then __IEConsoleWriteError("Error", "_IELinkClickByText", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf If $iWait Then _IELoadWait($oObject) Return SetError(@error, 0, -1) EndIf Return SetError($_IESTATUS_Success, 0, -1) EndIf $iFound = $iFound + 1 EndIf Next __IEConsoleWriteError("Warning", "_IELinkClickByText", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 0, 0) EndFunc Func _IELinkClickByIndex(ByRef $oObject, $iIndex, $iWait = 1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IELinkClickByIndex", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf Local $oLinks = $oObject.document.links, $oLink $iIndex = Number($iIndex) If ($iIndex >= 0) And ($iIndex <= $oLinks.length - 1) Then $oLink = $oLinks($iIndex) $oLink.click() If @error Then __IEConsoleWriteError("Error", "_IELinkClickByIndex", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf If $iWait Then _IELoadWait($oObject) Return SetError(@error, 0, -1) EndIf Return SetError($_IESTATUS_Success, 0, -1) Else __IEConsoleWriteError("Warning", "_IELinkClickByIndex", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 2, 0) EndIf EndFunc Func _IELinkGetCollection(ByRef $oObject, $iIndex = -1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IELinkGetCollection", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf $iIndex = Number($iIndex) Select Case $iIndex = -1 Return SetError($_IESTATUS_Success, $oObject.document.links.length, $oObject.document.links) Case $iIndex > -1 And $iIndex < $oObject.document.links.length Return SetError($_IESTATUS_Success, $oObject.document.links.length, $oObject.document.links.item($iIndex)) Case $iIndex < -1 __IEConsoleWriteError("Error", "_IELinkGetCollection", "$_IESTATUS_InvalidValue") Return SetError($_IESTATUS_InvalidValue, 2, 0) Case Else __IEConsoleWriteError("Warning", "_IELinkGetCollection", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 2, 0) EndSelect EndFunc #EndRegion Link functions #Region Image functions Func _IEImgClick(ByRef $oObject, $sLinkText, $sMode = "src", $iIndex = 0, $iWait = 1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEImgClick", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf Local $sModeLinktext, $iFound = 0, $oImgs = $oObject.document.images $sMode = StringLower($sMode) $iIndex = Number($iIndex) For $oImg In $oImgs Select Case $sMode = "alt" $sModeLinktext = $oImg.alt Case $sMode = "name" $sModeLinktext = $oImg.name If Not IsString($sModeLinktext) Then $sModeLinktext = $oImg.id Case $sMode = "id" $sModeLinktext = $oImg.id Case $sMode = "src" $sModeLinktext = $oImg.src Case Else __IEConsoleWriteError("Error", "_IEImgClick", "$_IESTATUS_InvalidValue", "Invalid mode: " & $sMode) Return SetError($_IESTATUS_InvalidValue, 3, 0) EndSelect If StringInStr($sModeLinktext, $sLinkText) Then If ($iFound = $iIndex) Then $oImg.click() If @error Then __IEConsoleWriteError("Error", "_IEImgClick", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf If $iWait Then _IELoadWait($oObject) Return SetError(@error, 0, -1) EndIf Return SetError($_IESTATUS_Success, 0, -1) EndIf $iFound = $iFound + 1 EndIf Next __IEConsoleWriteError("Warning", "_IEImgClick", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 0, 0) EndFunc Func _IEImgGetCollection(ByRef $oObject, $iIndex = -1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEImgGetCollection", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf Local $oTemp = _IEDocGetObj($oObject) $iIndex = Number($iIndex) Select Case $iIndex = -1 Return SetError($_IESTATUS_Success, $oTemp.images.length, $oTemp.images) Case $iIndex > -1 And $iIndex < $oTemp.images.length Return SetError($_IESTATUS_Success, $oTemp.images.length, $oTemp.images.item($iIndex)) Case $iIndex < -1 __IEConsoleWriteError("Error", "_IEImgGetCollection", "$_IESTATUS_InvalidValue", "$iIndex < -1") Return SetError($_IESTATUS_InvalidValue, 2, 0) Case Else __IEConsoleWriteError("Warning", "_IEImgGetCollection", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 1, 0) EndSelect EndFunc #EndRegion Image functions #Region Form functions Func _IEFormGetCollection(ByRef $oObject, $iIndex = -1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFormGetCollection", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf Local $oTemp = _IEDocGetObj($oObject) $iIndex = Number($iIndex) Select Case $iIndex = -1 Return SetError($_IESTATUS_Success, $oTemp.forms.length, $oTemp.forms) Case $iIndex > -1 And $iIndex < $oTemp.forms.length Return SetError($_IESTATUS_Success, $oTemp.forms.length, $oTemp.forms.item($iIndex)) Case $iIndex < -1 __IEConsoleWriteError("Error", "_IEFormGetCollection", "$_IESTATUS_InvalidValue", "$iIndex < -1") Return SetError($_IESTATUS_InvalidValue, 2, 0) Case Else __IEConsoleWriteError("Warning", "_IEFormGetCollection", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 1, 0) EndSelect EndFunc Func _IEFormGetObjByName(ByRef $oObject, $sName, $iIndex = 0) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFormGetObjByName", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf Local $iLength = 0 Local $oCol = $oObject.document.forms.item($sName) If IsObj($oCol) Then If __IEIsObjType($oCol, "elementcollection") Then $iLength = $oCol.length Else $iLength = 1 EndIf EndIf $iIndex = Number($iIndex) If $iIndex = -1 Then Return SetError($_IESTATUS_Success, $iLength, $oObject.document.forms.item($sName)) Else If IsObj($oObject.document.forms.item($sName, $iIndex)) Then Return SetError($_IESTATUS_Success, $iLength, $oObject.document.forms.item($sName, $iIndex)) Else __IEConsoleWriteError("Warning", "_IEFormGetObjByName", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 0, 0) EndIf EndIf EndFunc Func _IEFormElementGetCollection(ByRef $oObject, $iIndex = -1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFormElementGetCollection", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "form") Then __IEConsoleWriteError("Error", "_IEFormElementGetCollection", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $iIndex = Number($iIndex) Select Case $iIndex = -1 Return SetError($_IESTATUS_Success, $oObject.elements.length, $oObject.elements) Case $iIndex > -1 And $iIndex < $oObject.elements.length Return SetError($_IESTATUS_Success, $oObject.elements.length, $oObject.elements.item($iIndex)) Case $iIndex < -1 __IEConsoleWriteError("Error", "_IEFormElementGetCollection", "$_IESTATUS_InvalidValue", "$iIndex < -1") Return SetError($_IESTATUS_InvalidValue, 2, 0) Case Else Return SetError($_IESTATUS_NoMatch, 1, 0) EndSelect EndFunc Func _IEFormElementGetObjByName(ByRef $oObject, $sName, $iIndex = 0) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFormElementGetObjByName", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "form") Then __IEConsoleWriteError("Error", "_IEFormElementGetObjByName", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Local $iLength = 0 Local $oCol = $oObject.elements.item($sName) If IsObj($oCol) Then If __IEIsObjType($oCol, "elementcollection") Then $iLength = $oCol.length Else $iLength = 1 EndIf EndIf $iIndex = Number($iIndex) If $iIndex = -1 Then Return SetError($_IESTATUS_Success, $iLength, $oObject.elements.item($sName)) Else If IsObj($oObject.elements.item($sName, $iIndex)) Then Return SetError($_IESTATUS_Success, $iLength, $oObject.elements.item($sName, $iIndex)) Else __IEConsoleWriteError("Warning", "_IEFormElementGetObjByName", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 0, 0) EndIf EndIf EndFunc Func _IEFormElementGetValue(ByRef $oObject) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFormElementGetValue", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "forminputelement") Then __IEConsoleWriteError("Error", "_IEFormElementGetValue", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Local $sReturn = String($oObject.value) If @error Then __IEConsoleWriteError("Error", "_IEFormElementGetValue", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf SetError($_IESTATUS_Success) Return $sReturn EndFunc Func _IEFormElementSetValue(ByRef $oObject, $sNewValue, $iFireEvent = 1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFormElementSetValue", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "forminputelement") Then __IEConsoleWriteError("Error", "_IEFormElementSetValue", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf If String($oObject.type) = "file" Then __IEConsoleWriteError("Error", "_IEFormElementSetValue", "$_IESTATUS_InvalidObjectType", "Browser security prevents SetValue of TYPE=FILE") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.value = $sNewValue If @error Then __IEConsoleWriteError("Error", "_IEFormElementSetValue", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf If $iFireEvent Then $oObject.fireEvent("OnChange") $oObject.fireEvent("OnClick") EndIf Return SetError($_IESTATUS_Success, 0, 1) EndFunc Func _IEFormElementOptionSelect(ByRef $oObject, $sString, $iSelect = 1, $sMode = "byValue", $iFireEvent = 1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFormElementOptionSelect", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "formselectelement") Then __IEConsoleWriteError("Error", "_IEFormElementOptionSelect", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Local $oItem, $oItems = $oObject.options, $iNumItems = $oObject.options.length, $bIsMultiple = $oObject.multiple Switch $sMode Case "byValue" For $oItem In $oItems If $oItem.value = $sString Then Switch $iSelect Case -1 Return SetError($_IESTATUS_Success, 0, $oItem.selected) Case 0 If Not $bIsMultiple Then __IEConsoleWriteError("Error", "_IEFormElementOptionSelect", "$_IESTATUS_InvalidValue", "$iSelect=0 only valid for type=select multiple") Return SetError($_IESTATUS_InvalidValue, 3) EndIf If $oItem.selected Then $oItem.selected = False If $iFireEvent Then $oObject.fireEvent("onChange") $oObject.fireEvent("OnClick") EndIf EndIf Return SetError($_IESTATUS_Success, 0, 1) Case 1 If Not $oItem.selected Then $oItem.selected = True If $iFireEvent Then $oObject.fireEvent("onChange") $oObject.fireEvent("OnClick") EndIf EndIf Return SetError($_IESTATUS_Success, 0, 1) Case Else __IEConsoleWriteError("Error", "_IEFormElementOptionSelect", "$_IESTATUS_InvalidValue", "Invalid $iSelect value") Return SetError($_IESTATUS_InvalidValue, 3, 0) EndSwitch EndIf Next __IEConsoleWriteError("Warning", "_IEFormElementOptionSelect", "$_IESTATUS_NoMatch", "Value not matched") Return SetError($_IESTATUS_NoMatch, 2, 0) Case "byText" For $oItem In $oItems If String($oItem.text) = $sString Then Switch $iSelect Case -1 Return SetError($_IESTATUS_Success, 0, $oItem.selected) Case 0 If Not $bIsMultiple Then __IEConsoleWriteError("Error", "_IEFormElementOptionSelect", "$_IESTATUS_InvalidValue", "$iSelect=0 only valid for type=select multiple") Return SetError($_IESTATUS_InvalidValue, 3) EndIf If $oItem.selected Then $oItem.selected = False If $iFireEvent Then $oObject.fireEvent("onChange") $oObject.fireEvent("OnClick") EndIf EndIf Return SetError($_IESTATUS_Success, 0, 1) Case 1 If Not $oItem.selected Then $oItem.selected = True If $iFireEvent Then $oObject.fireEvent("onChange") $oObject.fireEvent("OnClick") EndIf EndIf Return SetError($_IESTATUS_Success, 0, 1) Case Else __IEConsoleWriteError("Error", "_IEFormElementOptionSelect", "$_IESTATUS_InvalidValue", "Invalid $iSelect value") Return SetError($_IESTATUS_InvalidValue, 3, 0) EndSwitch EndIf Next __IEConsoleWriteError("Warning", "_IEFormElementOptionSelect", "$_IESTATUS_NoMatch", "Text not matched") Return SetError($_IESTATUS_NoMatch, 2, 0) Case "byIndex" Local $iIndex = Number($sString) If $iIndex < 0 Or $iIndex >= $iNumItems Then __IEConsoleWriteError("Error", "_IEFormElementOptionSelect", "$_IESTATUS_InvalidValue", "Invalid index value, " & $iIndex) Return SetError($_IESTATUS_InvalidValue, 2, 0) EndIf $oItem = $oItems.item($iIndex) Switch $iSelect Case -1 Return SetError($_IESTATUS_Success, 0, $oItems.item($iIndex).selected) Case 0 If Not $bIsMultiple Then __IEConsoleWriteError("Error", "_IEFormElementOptionSelect", "$_IESTATUS_InvalidValue", "$iSelect=0 only valid for type=select multiple") Return SetError($_IESTATUS_InvalidValue, 3) EndIf If $oItem.selected Then $oItems.item($iIndex).selected = False If $iFireEvent Then $oObject.fireEvent("onChange") $oObject.fireEvent("OnClick") EndIf EndIf Return SetError($_IESTATUS_Success, 0, 1) Case 1 If Not $oItem.selected Then $oItems.item($iIndex).selected = True If $iFireEvent Then $oObject.fireEvent("onChange") $oObject.fireEvent("OnClick") EndIf EndIf Return SetError($_IESTATUS_Success, 0, 1) Case Else __IEConsoleWriteError("Error", "_IEFormElementOptionSelect", "$_IESTATUS_InvalidValue", "Invalid $iSelect value") Return SetError($_IESTATUS_InvalidValue, 3, 0) EndSwitch Case Else __IEConsoleWriteError("Error", "_IEFormElementOptionSelect", "$_IESTATUS_InvalidValue", "Invalid Mode") Return SetError($_IESTATUS_InvalidValue, 4, 0) EndSwitch EndFunc Func _IEFormElementCheckBoxSelect(ByRef $oObject, $sString, $sName = "", $iSelect = 1, $sMode = "byValue", $iFireEvent = 1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFormElementCheckBoxSelect", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "form") Then __IEConsoleWriteError("Error", "_IEFormElementCheckBoxSelect", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $sString = String($sString) $sName = String($sName) Local $oItems If $sName = "" Then $oItems = _IETagNameGetCollection($oObject, "input") Else $oItems = Execute("$oObject.elements('" & $sName & "')") EndIf If Not IsObj($oItems) Then __IEConsoleWriteError("Warning", "_IEFormElementCheckBoxSelect", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 3, 0) EndIf Local $oItem, $bFound = False Switch $sMode Case "byValue" If __IEIsObjType($oItems, "forminputelement") Then $oItem = $oItems If String($oItem.type) = "checkbox" And String($oItem.value) = $sString Then $bFound = True Else For $oItem In $oItems If String($oItem.type) = "checkbox" And String($oItem.value) = $sString Then $bFound = True ExitLoop EndIf Next EndIf Case "byIndex" If __IEIsObjType($oItems, "forminputelement") Then $oItem = $oItems If String($oItem.type) = "checkbox" And Number($sString) = 0 Then $bFound = True Else Local $iCount = 0 For $oItem In $oItems If String($oItem.type) = "checkbox" And Number($sString) = $iCount Then $bFound = True ExitLoop Else If String($oItem.type) = "checkbox" Then $iCount += 1 EndIf Next EndIf Case Else __IEConsoleWriteError("Error", "_IEFormElementCheckBoxSelect", "$_IESTATUS_InvalidValue", "Invalid Mode") Return SetError($_IESTATUS_InvalidValue, 5, 0) EndSwitch If Not $bFound Then __IEConsoleWriteError("Warning", "_IEFormElementCheckBoxSelect", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 2, 0) EndIf Switch $iSelect Case -1 Return SetError($_IESTATUS_Success, 0, $oItem.checked) Case 0 If $oItem.checked Then $oItem.checked = False If $iFireEvent Then $oItem.fireEvent("onChange") $oItem.fireEvent("OnClick") EndIf EndIf Return SetError($_IESTATUS_Success, 0, 1) Case 1 If Not $oItem.checked Then $oItem.checked = True If $iFireEvent Then $oItem.fireEvent("onChange") $oItem.fireEvent("OnClick") EndIf EndIf Return SetError($_IESTATUS_Success, 0, 1) Case Else __IEConsoleWriteError("Error", "_IEFormElementCheckBoxSelect", "$_IESTATUS_InvalidValue", "Invalid $iSelect value") Return SetError($_IESTATUS_InvalidValue, 3, 0) EndSwitch EndFunc Func _IEFormElementRadioSelect(ByRef $oObject, $sString, $sName, $iSelect = 1, $sMode = "byValue", $iFireEvent = 1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFormElementRadioSelect", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "form") Then __IEConsoleWriteError("Error", "_IEFormElementRadioSelect", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $sString = String($sString) $sName = String($sName) Local $oItems = Execute("$oObject.elements('" & $sName & "')") If Not IsObj($oItems) Then __IEConsoleWriteError("Warning", "_IEFormElementRadioSelect", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 3, 0) EndIf Local $oItem, $bFound = False Switch $sMode Case "byValue" If __IEIsObjType($oItems, "forminputelement") Then $oItem = $oItems If String($oItem.type) = "radio" And String($oItem.value) = $sString Then $bFound = True Else For $oItem In $oItems If String($oItem.type) = "radio" And String($oItem.value) = $sString Then $bFound = True ExitLoop EndIf Next EndIf Case "byIndex" If __IEIsObjType($oItems, "forminputelement") Then $oItem = $oItems If String($oItem.type) = "radio" And Number($sString) = 0 Then $bFound = True Else Local $iCount = 0 For $oItem In $oItems If String($oItem.type) = "radio" And Number($sString) = $iCount Then $bFound = True ExitLoop Else $iCount += 1 EndIf Next EndIf Case Else __IEConsoleWriteError("Error", "_IEFormElementRadioSelect", "$_IESTATUS_InvalidValue", "Invalid Mode") Return SetError($_IESTATUS_InvalidValue, 5, 0) EndSwitch If Not $bFound Then __IEConsoleWriteError("Warning", "_IEFormElementRadioSelect", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 2, 0) EndIf Switch $iSelect Case -1 Return SetError($_IESTATUS_Success, 0, $oItem.checked) Case 0 If $oItem.checked Then $oItem.checked = False If $iFireEvent Then $oItem.fireEvent("onChange") $oItem.fireEvent("OnClick") EndIf EndIf Return SetError($_IESTATUS_Success, 0, 1) Case 1 If Not $oItem.checked Then $oItem.checked = True If $iFireEvent Then $oItem.fireEvent("onChange") $oItem.fireEvent("OnClick") EndIf EndIf Return SetError($_IESTATUS_Success, 0, 1) Case Else __IEConsoleWriteError("Error", "_IEFormElementRadioSelect", "$_IESTATUS_InvalidValue", "$iSelect value invalid") Return SetError($_IESTATUS_InvalidValue, 4, 0) EndSwitch EndFunc Func _IEFormImageClick(ByRef $oObject, $sLinkText, $sMode = "src", $iIndex = 0, $iWait = 1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFormImageClick", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf Local $sModeLinktext, $iFound = 0 Local $oTemp = _IEDocGetObj($oObject) Local $oImgs = _IETagNameGetCollection($oTemp, "input") $sMode = StringLower($sMode) $iIndex = Number($iIndex) For $oImg In $oImgs If String($oImg.type) = "image" Then Select Case $sMode = "alt" $sModeLinktext = $oImg.alt Case $sMode = "name" $sModeLinktext = $oImg.name If Not IsString($sModeLinktext) Then $sModeLinktext = $oImg.id Case $sMode = "id" $sModeLinktext = $oImg.id Case $sMode = "src" $sModeLinktext = $oImg.src Case Else __IEConsoleWriteError("Error", "_IEFormImageClick", "$_IESTATUS_InvalidValue", "Invalid mode: " & $sMode) Return SetError($_IESTATUS_InvalidValue, 3, 0) EndSelect If StringInStr($sModeLinktext, $sLinkText) Then If ($iFound = $iIndex) Then $oImg.click() If @error Then __IEConsoleWriteError("Error", "_IEFormImageClick", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf If $iWait Then _IELoadWait($oObject) Return SetError(@error, 0, -1) EndIf Return SetError($_IESTATUS_Success, 0, -1) EndIf $iFound = $iFound + 1 EndIf EndIf Next __IEConsoleWriteError("Warning", "_IEFormImageClick", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 2, 0) EndFunc Func _IEFormSubmit(ByRef $oObject, $iWait = 1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFormSubmit", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "form") Then __IEConsoleWriteError("Error", "_IEFormSubmit", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Local $oWindow = $oObject.document.parentWindow $oObject.submit() If @error Then __IEConsoleWriteError("Error", "_IEFormSubmit", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf If $iWait Then _IELoadWait($oWindow) Return SetError(@error, 0, -1) EndIf Return SetError($_IESTATUS_Success, 0, -1) EndFunc Func _IEFormReset(ByRef $oObject) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEFormReset", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "form") Then __IEConsoleWriteError("Error", "_IEFormReset", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.reset() If @error Then __IEConsoleWriteError("Error", "_IEFormReset", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf Return SetError($_IESTATUS_Success, 0, 1) EndFunc #EndRegion Form functions #Region Table functions Func _IETableGetCollection(ByRef $oObject, $iIndex = -1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IETableGetCollection", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf $iIndex = Number($iIndex) Select Case $iIndex = -1 Return SetError($_IESTATUS_Success, $oObject.document.GetElementsByTagName("table").length, $oObject.document.GetElementsByTagName("table")) Case $iIndex > -1 And $iIndex < $oObject.document.GetElementsByTagName("table").length Return SetError($_IESTATUS_Success, $oObject.document.GetElementsByTagName("table").length, $oObject.document.GetElementsByTagName("table").item($iIndex)) Case $iIndex < -1 __IEConsoleWriteError("Error", "_IETableGetCollection", "$_IESTATUS_InvalidValue", "$iIndex < -1") Return SetError($_IESTATUS_InvalidValue, 2, 0) Case Else __IEConsoleWriteError("Warning", "_IETableGetCollection", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 1, 0) EndSelect EndFunc Func _IETableWriteToArray(ByRef $oObject, $bTranspose = False) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IETableWriteToArray", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "table") Then __IEConsoleWriteError("Error", "_IETableWriteToArray", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Local $iCols = 0, $oTds, $iCol Local $oTrs = $oObject.rows For $oTr In $oTrs $oTds = $oTr.cells $iCol = 0 For $oTd In $oTds $iCol = $iCol + $oTd.colSpan Next If $iCol > $iCols Then $iCols = $iCol Next Local $iRows = $oTrs.length Local $aTableCells[$iCols][$iRows] Local $iRow = 0 For $oTr In $oTrs $oTds = $oTr.cells $iCol = 0 For $oTd In $oTds $aTableCells[$iCol][$iRow] = String($oTd.innerText) If @error Then __IEConsoleWriteError("Error", "_IETableWriteToArray", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf $iCol = $iCol + $oTd.colSpan Next $iRow = $iRow + 1 Next If $bTranspose Then Local $iD1 = UBound($aTableCells, $UBOUND_ROWS), $iD2 = UBound($aTableCells, $UBOUND_COLUMNS), $aTmp[$iD2][$iD1] For $i = 0 To $iD2 - 1 For $j = 0 To $iD1 - 1 $aTmp[$i][$j] = $aTableCells[$j][$i] Next Next $aTableCells = $aTmp EndIf Return SetError($_IESTATUS_Success, 0, $aTableCells) EndFunc #EndRegion Table functions #Region Read/Write functions Func _IEBodyReadHTML(ByRef $oObject) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEBodyReadHTML", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.document.body.innerHTML) EndFunc Func _IEBodyReadText(ByRef $oObject) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEBodyReadText", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "browserdom") Then __IEConsoleWriteError("Error", "_IEBodyReadText", "$_IESTATUS_InvalidObjectType", "Expected document element") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.document.body.innerText) EndFunc Func _IEBodyWriteHTML(ByRef $oObject, $sHTML) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEBodyWriteHTML", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "browserdom") Then __IEConsoleWriteError("Error", "_IEBodyWriteHTML", "$_IESTATUS_InvalidObjectType", "Expected document element") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.document.body.innerHTML = $sHTML If @error Then __IEConsoleWriteError("Error", "_IEBodyWriteHTML", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf Local $oTemp = $oObject.document _IELoadWait($oTemp) Return SetError(@error, 0, -1) EndFunc Func _IEDocReadHTML(ByRef $oObject) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEDocReadHTML", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "browserdom") Then __IEConsoleWriteError("Error", "_IEDocReadHTML", "$_IESTATUS_InvalidObjectType", "Expected document element") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.document.documentElement.outerHTML) EndFunc Func _IEDocWriteHTML(ByRef $oObject, $sHTML) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEDocWriteHTML", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "browserdom") Then __IEConsoleWriteError("Error", "_IEDocWriteHTML", "$_IESTATUS_InvalidObjectType", "Expected document element") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.document.Write($sHTML) $oObject.document.close() Local $oTemp = $oObject.document If @error Then __IEConsoleWriteError("Error", "_IEDocWriteHTML", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf _IELoadWait($oTemp) Return SetError(@error, 0, -1) EndFunc Func _IEDocInsertText(ByRef $oObject, $sString, $sWhere = "beforeend") If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEDocInsertText", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "browserdom") Or __IEIsObjType($oObject, "documentcontainer") Or __IEIsObjType($oObject, "document") Then __IEConsoleWriteError("Error", "_IEDocInsertText", "$_IESTATUS_InvalidObjectType", "Expected document element") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $sWhere = StringLower($sWhere) Select Case $sWhere = "beforebegin" $oObject.insertAdjacentText($sWhere, $sString) Case $sWhere = "afterbegin" $oObject.insertAdjacentText($sWhere, $sString) Case $sWhere = "beforeend" $oObject.insertAdjacentText($sWhere, $sString) Case $sWhere = "afterend" $oObject.insertAdjacentText($sWhere, $sString) Case Else __IEConsoleWriteError("Error", "_IEDocInsertText", "$_IESTATUS_InvalidValue", "Invalid where value") Return SetError($_IESTATUS_InvalidValue, 3, 0) EndSelect If @error Then __IEConsoleWriteError("Error", "_IEDocInsertText", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf Return SetError($_IESTATUS_Success, 0, 1) EndFunc Func _IEDocInsertHTML(ByRef $oObject, $sString, $sWhere = "beforeend") If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEDocInsertHTML", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "browserdom") Or __IEIsObjType($oObject, "documentcontainer") Or __IEIsObjType($oObject, "document") Then __IEConsoleWriteError("Error", "_IEDocInsertHTML", "$_IESTATUS_InvalidObjectType", "Expected document element") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $sWhere = StringLower($sWhere) Select Case $sWhere = "beforebegin" $oObject.insertAdjacentHTML($sWhere, $sString) Case $sWhere = "afterbegin" $oObject.insertAdjacentHTML($sWhere, $sString) Case $sWhere = "beforeend" $oObject.insertAdjacentHTML($sWhere, $sString) Case $sWhere = "afterend" $oObject.insertAdjacentHTML($sWhere, $sString) Case Else __IEConsoleWriteError("Error", "_IEDocInsertHTML", "$_IESTATUS_InvalidValue", "Invalid where value") Return SetError($_IESTATUS_InvalidValue, 3, 0) EndSelect If @error Then __IEConsoleWriteError("Error", "_IEDocInsertHTML", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf Return SetError($_IESTATUS_Success, 0, 1) EndFunc Func _IEHeadInsertEventScript(ByRef $oObject, $sHTMLFor, $sEvent, $sScript) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEHeadInsertEventScript", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf Local $oHead = $oObject.document.all.tags("HEAD").Item(0) Local $oScript = $oObject.document.createElement("script") If @error Then __IEConsoleWriteError("Error", "_IEHeadInsertEventScript(script)", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf With $oScript .defer = True .language = "jscript" .type = "text/javascript" .htmlFor = $sHTMLFor .event = $sEvent .text = $sScript EndWith $oHead.appendChild($oScript) If @error Then __IEConsoleWriteError("Error", "_IEHeadInsertEventScript", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf Return SetError($_IESTATUS_Success, 0, 1) EndFunc #EndRegion Read/Write functions #Region Utility functions Func _IEDocGetObj(ByRef $oObject) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEDocGetObj", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If __IEIsObjType($oObject, "document") Then Return SetError($_IESTATUS_Success, 0, $oObject) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.document) EndFunc Func _IETagNameGetCollection(ByRef $oObject, $sTagName, $iIndex = -1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IETagNameGetCollection", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "browserdom") Then __IEConsoleWriteError("Error", "_IETagNameGetCollection", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Local $oTemp If __IEIsObjType($oObject, "documentcontainer") Then $oTemp = _IEDocGetObj($oObject) Else $oTemp = $oObject EndIf $iIndex = Number($iIndex) Select Case $iIndex = -1 Return SetError($_IESTATUS_Success, $oTemp.GetElementsByTagName($sTagName).length, $oTemp.GetElementsByTagName($sTagName)) Case $iIndex > -1 And $iIndex < $oTemp.GetElementsByTagName($sTagName).length Return SetError($_IESTATUS_Success, $oTemp.GetElementsByTagName($sTagName).length, $oTemp.GetElementsByTagName($sTagName).item($iIndex)) Case $iIndex < -1 __IEConsoleWriteError("Error", "_IETagNameGetCollection", "$_IESTATUS_InvalidValue", "$iIndex < -1") Return SetError($_IESTATUS_InvalidValue, 3, 0) Case Else __IEConsoleWriteError("Error", "_IETagNameGetCollection", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 0, 0) EndSelect EndFunc Func _IETagNameAllGetCollection(ByRef $oObject, $iIndex = -1) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IETagNameAllGetCollection", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "browserdom") Then __IEConsoleWriteError("Error", "_IETagNameAllGetCollection", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Local $oTemp If __IEIsObjType($oObject, "documentcontainer") Then $oTemp = _IEDocGetObj($oObject) Else $oTemp = $oObject EndIf $iIndex = Number($iIndex) Select Case $iIndex = -1 Return SetError($_IESTATUS_Success, $oTemp.all.length, $oTemp.all) Case $iIndex > -1 And $iIndex < $oTemp.all.length Return SetError($_IESTATUS_Success, $oTemp.all.length, $oTemp.all.item($iIndex)) Case $iIndex < -1 __IEConsoleWriteError("Error", "_IETagNameAllGetCollection", "$_IESTATUS_InvalidValue", "$iIndex < -1") Return SetError($_IESTATUS_InvalidValue, 2, 0) Case Else __IEConsoleWriteError("Error", "_IETagNameAllGetCollection", "$_IESTATUS_NoMatch") Return SetError($_IESTATUS_NoMatch, 1, 0) EndSelect EndFunc Func _IEGetObjByName(ByRef $oObject, $sName, $iIndex = 0) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEGetObjByName", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf $iIndex = Number($iIndex) If $iIndex = -1 Then Return SetError($_IESTATUS_Success, $oObject.document.GetElementsByName($sName).length, $oObject.document.GetElementsByName($sName)) Else If IsObj($oObject.document.GetElementsByName($sName).item($iIndex)) Then Return SetError($_IESTATUS_Success, $oObject.document.GetElementsByName($sName).length, $oObject.document.GetElementsByName($sName).item($iIndex)) Else __IEConsoleWriteError("Warning", "_IEGetObjByName", "$_IESTATUS_NoMatch", "Name: " & $sName & ", Index: " & $iIndex) Return SetError($_IESTATUS_NoMatch, 0, 0) EndIf EndIf EndFunc Func _IEGetObjById(ByRef $oObject, $sID) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEGetObjById", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "browserdom") Then __IEConsoleWriteError("Error", "_IEGetObById", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf If IsObj($oObject.document.getElementById($sID)) Then Return SetError($_IESTATUS_Success, 0, $oObject.document.getElementById($sID)) Else __IEConsoleWriteError("Warning", "_IEGetObjById", "$_IESTATUS_NoMatch", $sID) Return SetError($_IESTATUS_NoMatch, 2, 0) EndIf EndFunc Func _IEAction(ByRef $oObject, $sAction) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEAction(" & $sAction & ")", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf $sAction = StringLower($sAction) Select Case $sAction = "click" If __IEIsObjType($oObject, "documentContainer") Then __IEConsoleWriteError("Error", "_IEAction(click)", " $_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.Click() Case $sAction = "disable" If __IEIsObjType($oObject, "documentContainer") Then __IEConsoleWriteError("Error", "_IEAction(disable)", " $_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.disabled = True Case $sAction = "enable" If __IEIsObjType($oObject, "documentContainer") Then __IEConsoleWriteError("Error", "_IEAction(enable)", " $_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.disabled = False Case $sAction = "focus" If __IEIsObjType($oObject, "documentContainer") Then __IEConsoleWriteError("Error", "_IEAction(focus)", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.Focus() Case $sAction = "scrollintoview" If __IEIsObjType($oObject, "documentContainer") Then __IEConsoleWriteError("Error", "_IEAction(scrollintoview)", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.scrollIntoView() Case $sAction = "copy" $oObject.document.execCommand("Copy") Case $sAction = "cut" $oObject.document.execCommand("Cut") Case $sAction = "paste" $oObject.document.execCommand("Paste") Case $sAction = "delete" $oObject.document.execCommand("Delete") Case $sAction = "saveas" $oObject.document.execCommand("SaveAs") Case $sAction = "refresh" $oObject.document.execCommand("Refresh") If @error Then __IEConsoleWriteError("Error", "_IEAction(refresh)", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf _IELoadWait($oObject) Case $sAction = "selectall" $oObject.document.execCommand("SelectAll") Case $sAction = "unselect" $oObject.document.execCommand("Unselect") Case $sAction = "print" $oObject.document.parentwindow.Print() Case $sAction = "printdefault" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEAction(printdefault)", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.execWB(6, 2) Case $sAction = "back" If Not __IEIsObjType($oObject, "documentContainer") Then __IEConsoleWriteError("Error", "_IEAction(back)", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.GoBack() Case $sAction = "blur" $oObject.Blur() Case $sAction = "forward" If Not __IEIsObjType($oObject, "documentContainer") Then __IEConsoleWriteError("Error", "_IEAction(forward)", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.GoForward() Case $sAction = "home" If Not __IEIsObjType($oObject, "documentContainer") Then __IEConsoleWriteError("Error", "_IEAction(home)", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.GoHome() Case $sAction = "invisible" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEAction(invisible)", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.visible = 0 Case $sAction = "visible" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEAction(visible)", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.visible = 1 Case $sAction = "search" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEAction(search)", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.GoSearch() Case $sAction = "stop" If Not __IEIsObjType($oObject, "documentContainer") Then __IEConsoleWriteError("Error", "_IEAction(stop)", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.Stop() Case $sAction = "quit" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEAction(quit)", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.Quit() If @error Then __IEConsoleWriteError("Error", "_IEAction(" & $sAction & ")", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf $oObject = 0 Return SetError($_IESTATUS_Success, 0, 1) Case Else __IEConsoleWriteError("Error", "_IEAction(" & $sAction & ")", "$_IESTATUS_InvalidValue", "Invalid Action") Return SetError($_IESTATUS_InvalidValue, 2, 0) EndSelect If @error Then __IEConsoleWriteError("Error", "_IEAction(" & $sAction & ")", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf Return SetError($_IESTATUS_Success, 0, 1) EndFunc Func _IEPropertyGet(ByRef $oObject, $sProperty) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "browserdom") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Local $oTemp, $iTemp $sProperty = StringLower($sProperty) Select Case $sProperty = "browserx" If __IEIsObjType($oObject, "browsercontainer") Or __IEIsObjType($oObject, "document") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oTemp = $oObject $iTemp = 0 While IsObj($oTemp) $iTemp += $oTemp.offsetLeft $oTemp = $oTemp.offsetParent WEnd Return SetError($_IESTATUS_Success, 0, $iTemp) Case $sProperty = "browsery" If __IEIsObjType($oObject, "browsercontainer") Or __IEIsObjType($oObject, "document") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oTemp = $oObject $iTemp = 0 While IsObj($oTemp) $iTemp += $oTemp.offsetTop $oTemp = $oTemp.offsetParent WEnd Return SetError($_IESTATUS_Success, 0, $iTemp) Case $sProperty = "screenx" If __IEIsObjType($oObject, "window") Or __IEIsObjType($oObject, "document") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf If __IEIsObjType($oObject, "browser") Then Return SetError($_IESTATUS_Success, 0, $oObject.left()) Else $oTemp = $oObject $iTemp = 0 While IsObj($oTemp) $iTemp += $oTemp.offsetLeft $oTemp = $oTemp.offsetParent WEnd EndIf Return SetError($_IESTATUS_Success, 0, $iTemp + $oObject.document.parentWindow.screenLeft) Case $sProperty = "screeny" If __IEIsObjType($oObject, "window") Or __IEIsObjType($oObject, "document") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf If __IEIsObjType($oObject, "browser") Then Return SetError($_IESTATUS_Success, 0, $oObject.top()) Else $oTemp = $oObject $iTemp = 0 While IsObj($oTemp) $iTemp += $oTemp.offsetTop $oTemp = $oTemp.offsetParent WEnd EndIf Return SetError($_IESTATUS_Success, 0, $iTemp + $oObject.document.parentWindow.screenTop) Case $sProperty = "height" If __IEIsObjType($oObject, "window") Or __IEIsObjType($oObject, "document") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf If __IEIsObjType($oObject, "browser") Then Return SetError($_IESTATUS_Success, 0, $oObject.Height()) Else Return SetError($_IESTATUS_Success, 0, $oObject.offsetHeight) EndIf Case $sProperty = "width" If __IEIsObjType($oObject, "window") Or __IEIsObjType($oObject, "document") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf If __IEIsObjType($oObject, "browser") Then Return SetError($_IESTATUS_Success, 0, $oObject.Width()) Else Return SetError($_IESTATUS_Success, 0, $oObject.offsetWidth) EndIf Case $sProperty = "isdisabled" Return SetError($_IESTATUS_Success, 0, $oObject.isDisabled()) Case $sProperty = "addressbar" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.AddressBar()) Case $sProperty = "busy" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.Busy()) Case $sProperty = "fullscreen" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.fullScreen()) Case $sProperty = "hwnd" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, HWnd($oObject.HWnd())) Case $sProperty = "left" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.Left()) Case $sProperty = "locationname" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.LocationName()) Case $sProperty = "locationurl" If __IEIsObjType($oObject, "browser") Then Return SetError($_IESTATUS_Success, 0, $oObject.locationURL()) EndIf If __IEIsObjType($oObject, "window") Then Return SetError($_IESTATUS_Success, 0, $oObject.location.href()) EndIf If __IEIsObjType($oObject, "document") Then Return SetError($_IESTATUS_Success, 0, $oObject.parentwindow.location.href()) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.document.parentwindow.location.href()) Case $sProperty = "menubar" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.MenuBar()) Case $sProperty = "offline" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.OffLine()) Case $sProperty = "readystate" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.ReadyState()) Case $sProperty = "resizable" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.Resizable()) Case $sProperty = "silent" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.Silent()) Case $sProperty = "statusbar" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.StatusBar()) Case $sProperty = "statustext" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.StatusText()) Case $sProperty = "top" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.Top()) Case $sProperty = "visible" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.Visible()) Case $sProperty = "appcodename" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.appCodeName()) Case $sProperty = "appminorversion" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.appMinorVersion()) Case $sProperty = "appname" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.appName()) Case $sProperty = "appversion" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.appVersion()) Case $sProperty = "browserlanguage" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.browserLanguage()) Case $sProperty = "cookieenabled" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.cookieEnabled()) Case $sProperty = "cpuclass" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.cpuClass()) Case $sProperty = "javaenabled" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.javaEnabled()) Case $sProperty = "online" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.onLine()) Case $sProperty = "platform" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.platform()) Case $sProperty = "systemlanguage" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.systemLanguage()) Case $sProperty = "useragent" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.userAgent()) Case $sProperty = "userlanguage" Return SetError($_IESTATUS_Success, 0, $oObject.document.parentWindow.top.navigator.userLanguage()) Case $sProperty = "referrer" Return SetError($_IESTATUS_Success, 0, $oObject.document.referrer) Case $sProperty = "theatermode" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.TheaterMode) Case $sProperty = "toolbar" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf Return SetError($_IESTATUS_Success, 0, $oObject.ToolBar) Case $sProperty = "contenteditable" If __IEIsObjType($oObject, "browser") Or __IEIsObjType($oObject, "document") Then $oTemp = $oObject.document.body Else $oTemp = $oObject EndIf Return SetError($_IESTATUS_Success, 0, $oTemp.isContentEditable) Case $sProperty = "innertext" If __IEIsObjType($oObject, "documentcontainer") Or __IEIsObjType($oObject, "document") Then $oTemp = $oObject.document.body Else $oTemp = $oObject EndIf Return SetError($_IESTATUS_Success, 0, $oTemp.innerText) Case $sProperty = "outertext" If __IEIsObjType($oObject, "documentcontainer") Or __IEIsObjType($oObject, "document") Then $oTemp = $oObject.document.body Else $oTemp = $oObject EndIf Return SetError($_IESTATUS_Success, 0, $oTemp.outerText) Case $sProperty = "innerhtml" If __IEIsObjType($oObject, "documentcontainer") Or __IEIsObjType($oObject, "document") Then $oTemp = $oObject.document.body Else $oTemp = $oObject EndIf Return SetError($_IESTATUS_Success, 0, $oTemp.innerHTML) Case $sProperty = "outerhtml" If __IEIsObjType($oObject, "documentcontainer") Or __IEIsObjType($oObject, "document") Then $oTemp = $oObject.document.body Else $oTemp = $oObject EndIf Return SetError($_IESTATUS_Success, 0, $oTemp.outerHTML) Case $sProperty = "title" Return SetError($_IESTATUS_Success, 0, $oObject.document.title) Case $sProperty = "uniqueid" If __IEIsObjType($oObject, "window") Then __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) Else Return SetError($_IESTATUS_Success, 0, $oObject.uniqueID) EndIf Case Else __IEConsoleWriteError("Error", "_IEPropertyGet", "$_IESTATUS_InvalidValue", "Invalid Property") Return SetError($_IESTATUS_InvalidValue, 2, 0) EndSelect EndFunc Func _IEPropertySet(ByRef $oObject, $sProperty, $vValue) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf Local $oTemp #forceref $oTemp $sProperty = StringLower($sProperty) Select Case $sProperty = "addressbar" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.AddressBar = $vValue Case $sProperty = "height" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.Height = $vValue Case $sProperty = "left" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.Left = $vValue Case $sProperty = "menubar" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.MenuBar = $vValue Case $sProperty = "offline" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.OffLine = $vValue Case $sProperty = "resizable" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.Resizable = $vValue Case $sProperty = "statusbar" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.StatusBar = $vValue Case $sProperty = "statustext" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.StatusText = $vValue Case $sProperty = "top" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.Top = $vValue Case $sProperty = "width" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.Width = $vValue Case $sProperty = "theatermode" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf If $vValue Then $oObject.TheaterMode = True Else $oObject.TheaterMode = False EndIf Case $sProperty = "toolbar" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf If $vValue Then $oObject.ToolBar = True Else $oObject.ToolBar = False EndIf Case $sProperty = "contenteditable" If __IEIsObjType($oObject, "browser") Or __IEIsObjType($oObject, "document") Then $oTemp = $oObject.document.body Else $oTemp = $oObject EndIf If $vValue Then $oTemp.contentEditable = "true" Else $oTemp.contentEditable = "false" EndIf Case $sProperty = "innertext" If __IEIsObjType($oObject, "documentcontainer") Or __IEIsObjType($oObject, "document") Then $oTemp = $oObject.document.body Else $oTemp = $oObject EndIf $oTemp.innerText = $vValue Case $sProperty = "outertext" If __IEIsObjType($oObject, "documentcontainer") Or __IEIsObjType($oObject, "document") Then $oTemp = $oObject.document.body Else $oTemp = $oObject EndIf $oTemp.outerText = $vValue Case $sProperty = "innerhtml" If __IEIsObjType($oObject, "documentcontainer") Or __IEIsObjType($oObject, "document") Then $oTemp = $oObject.document.body Else $oTemp = $oObject EndIf $oTemp.innerHTML = $vValue Case $sProperty = "outerhtml" If __IEIsObjType($oObject, "documentcontainer") Or __IEIsObjType($oObject, "document") Then $oTemp = $oObject.document.body Else $oTemp = $oObject EndIf $oTemp.outerHTML = $vValue Case $sProperty = "title" $oObject.document.title = $vValue Case $sProperty = "silent" If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf If $vValue Then $oObject.silent = True Else $oObject.silent = False EndIf Case Else __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_InvalidValue", "Invalid Property") Return SetError($_IESTATUS_InvalidValue, 2, 0) EndSelect If @error Then __IEConsoleWriteError("Error", "_IEPropertySet", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf Return SetError($_IESTATUS_Success, 0, 1) EndFunc Func _IEErrorNotify($vNotify = Default) If $vNotify = Default Then Return $__g_bIEErrorNotify If $vNotify Then $__g_bIEErrorNotify = True Else $__g_bIEErrorNotify = False EndIf Return 1 EndFunc Func _IEErrorHandlerRegister($sFunctionName = "__IEInternalErrorHandler") $__g_oIEErrorHandler = ObjEvent("AutoIt.Error", $sFunctionName) If IsObj($__g_oIEErrorHandler) Then $__g_sIEUserErrorHandler = $sFunctionName Return SetError($_IESTATUS_Success, 0, 1) Else $__g_oIEErrorHandler = "" __IEConsoleWriteError("Error", "_IEErrorHandlerRegister", "$_IEStatus_GeneralError", "Error Handler Not Registered - Check existance of error function") Return SetError($_IEStatus_GeneralError, 1, 0) EndIf EndFunc Func _IEErrorHandlerDeRegister() $__g_sIEUserErrorHandler = "" $__g_oIEErrorHandler = "" Return SetError($_IESTATUS_Success, 0, 1) EndFunc Func __IEInternalErrorHandlerRegister() Local $sCurrentErrorHandler = ObjEvent("AutoIt.Error") If $sCurrentErrorHandler <> "" And Not IsObj($__g_oIEErrorHandler) Then Return SetError($_IEStatus_GeneralError, 0, False) EndIf $__g_oIEErrorHandler = ObjEvent("AutoIt.Error", "__IEInternalErrorHandler") If IsObj($__g_oIEErrorHandler) Then Return SetError($_IESTATUS_Success, 0, True) Else $__g_oIEErrorHandler = "" Return SetError($_IEStatus_GeneralError, 0, False) EndIf EndFunc Func __IEInternalErrorHandlerDeRegister() $__g_oIEErrorHandler = "" If $__g_sIEUserErrorHandler <> "" Then $__g_oIEErrorHandler = ObjEvent("AutoIt.Error", $__g_sIEUserErrorHandler) EndIf Return SetError($_IESTATUS_Success, 0, 1) EndFunc Func __IEInternalErrorHandler($oCOMError) If $__g_bIEErrorNotify Or $__g_bIEAU3Debug Then ConsoleWrite("--> " & __COMErrorFormating($oCOMError, "----> $IEComError") & @CRLF) SetError($_IEStatus_ComError) Return EndFunc Func _IEQuit(ByRef $oObject) If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "_IEQuit", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "browser") Then __IEConsoleWriteError("Error", "_IEQuit", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.quit() If @error Then __IEConsoleWriteError("Error", "_IEQuit", "$_IESTATUS_COMError", @error) Return SetError($_IESTATUS_ComError, @error, 0) EndIf $oObject = 0 Return SetError($_IESTATUS_Success, 0, 1) EndFunc #EndRegion Utility functions #Region General Func _IE_Introduction($sModule = "basic") Local $sHTML = "" Switch $sModule Case "basic" $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '_IE_Introduction ("basic")' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '
' & @CR $sHTML &= '

Welcome to IE.au3

' & @CR $sHTML &= 'IE.au3 is a UDF (User Defined Function) library for the ' & @CR $sHTML &= 'AutoIt scripting language.' & @CR $sHTML &= '
' & @CR $sHTML &= 'IE.au3 allows you to either create or attach to an Internet Explorer browser and do ' & @CR $sHTML &= 'just about anything you could do with it interactively with the mouse and ' & @CR $sHTML &= 'keyboard, but do it through script.' & @CR $sHTML &= '
' & @CR $sHTML &= 'You can navigate to pages, click links, fill and submit forms etc. You can ' & @CR $sHTML &= 'also do things you cannot do interactively like change or rewrite page ' & @CR $sHTML &= 'content and JavaScripts, read, parse and save page content and monitor and act ' & @CR $sHTML &= 'upon browser "events".
' & @CR $sHTML &= 'IE.au3 uses the COM interface in AutoIt to interact with the Internet Explorer ' & @CR $sHTML &= 'object model and the DOM (Document Object Model) supported by the browser.' & @CR $sHTML &= '
' & @CR $sHTML &= 'Here are some links for more information and helpful tools:
' & @CR $sHTML &= 'Reference Material: ' & @CR $sHTML &= '
' & @CR $sHTML &= 'Helpful Tools: ' & @CR $sHTML &= '
    ' & @CR $sHTML &= '
  • AutoIt IE Builder (build IE scripts interactively)
  • ' & @CR $sHTML &= '
  • DebugBar (DOM inspector, HTTP inspector, HTML validator and more - free for personal use) Recommended
  • ' & @CR $sHTML &= '
  • IE Developer Toolbar (comprehensive DOM analysis tool)
  • ' & @CR $sHTML &= '
  • MODIV2 (view the DOM of a web page by mousing around)
  • ' & @CR $sHTML &= '
  • HTML Validator (verify HTML follows format rules)
  • ' & @CR $sHTML &= '
  • Fiddler (examine HTTP traffic)
  • ' & @CR $sHTML &= '
' & @CR $sHTML &= '
' & @CR $sHTML &= '' & @CR $sHTML &= '' Case Else __IEConsoleWriteError("Error", "_IE_Introduction", "$_IESTATUS_InvalidValue") Return SetError($_IESTATUS_InvalidValue, 1, 0) EndSwitch Local $oObject = _IECreate() _IEDocWriteHTML($oObject, $sHTML) Return SetError($_IESTATUS_Success, 0, $oObject) EndFunc Func _IE_Example($sModule = "basic") Local $sHTML = "", $oObject Switch $sModule Case "basic" $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '_IE_Example("basic")' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= 'AutoIt Homepage Image' & @CR $sHTML &= '

' & @CR $sHTML &= '
This is a simple HTML page with text, links and images.
' & @CR $sHTML &= '
' & @CR $sHTML &= '
AutoIt is a wonderful automation scripting language.
' & @CR $sHTML &= '
' & @CR $sHTML &= '
It is supported by a very active and supporting user forum.
' & @CR $sHTML &= '
' & @CR $sHTML &= '
' & @CR $sHTML &= '' & @CR $sHTML &= '' $oObject = _IECreate() _IEDocWriteHTML($oObject, $sHTML) Case "table" $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '_IE_Example("table")' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '$oTableOne = _IETableGetObjByName($oIE, "tableOne")
' & @CR $sHTML &= '<table border=1 id="tableOne">
' & @CR $sHTML &= '' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= '
AutoItisreallygreatwithIE.au3
123456
thequickredfoxjumpedover
thelazybrowndogthetime
hascomeforallgoodmen
tocometotheaidof
' & @CR $sHTML &= '
' & @CR $sHTML &= '$oTableTwo = _IETableGetObjByName($oIE, "tableTwo")
' & @CR $sHTML &= '<table border="1" id="tableTwo">
' & @CR $sHTML &= '' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= '
Table Top
OneTwo
ThreeFourFive
SixSeven
EightNineTenEleven
' & @CR $sHTML &= '' & @CR $sHTML &= '' $oObject = _IECreate() _IEDocWriteHTML($oObject, $sHTML) Case "form" $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '_IE_Example("form")' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '
' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '
ExampleForm<form name="ExampleForm" onSubmit="javascript:alert(''ExampleFormSubmitted'');" method="post">
Hidden Input Element<input type="hidden" name="hiddenExample" value="secret value">
' & @CR $sHTML &= '' & @CR $sHTML &= '<input type="text" name="textExample" value="http://" size="20" maxlength="30">
' & @CR $sHTML &= '' & @CR $sHTML &= '<input type="password" name="passwordExample" size="10">
' & @CR $sHTML &= '' & @CR $sHTML &= '<input type="file" name="fileExample">
' & @CR $sHTML &= '' & @CR $sHTML &= '
' & @CR $sHTML &= '' & @CR $sHTML &= '<textarea name="textareaExample" rows="5" cols="15">Hello!</textarea>
' & @CR $sHTML &= 'Basketball
' & @CR $sHTML &= 'Football
' & @CR $sHTML &= 'Tennis
' & @CR $sHTML &= 'Baseball' & @CR $sHTML &= '
<input type="checkbox" name="checkboxG1Example" value="gameBasketball">Basketball<br>
' & @CR $sHTML &= '<input type="checkbox" name="checkboxG1Example" value="gameFootball">Football<br>
' & @CR $sHTML &= '<input type="checkbox" name="checkboxG2Example" value="gameTennis" checked>Tennis<br>
' & @CR $sHTML &= '<input type="checkbox" name="checkboxG2Example" value="gameBaseball">Baseball
' & @CR $sHTML &= 'Airplane
' & @CR $sHTML &= 'Train
' & @CR $sHTML &= 'Boat
' & @CR $sHTML &= 'Car
<input type="radio" name="radioExample" value="vehicleAirplane">Airplane<br>
' & @CR $sHTML &= '<input type="radio" name="radioExample" value="vehicleTrain" checked>Train<br>
' & @CR $sHTML &= '<input type="radio" name="radioExample" value="vehicleBoat">Boat<br>
' & @CR $sHTML &= '<input type="radio" name="radioExample" value="vehicleCar">Car<br>
' & @CR $sHTML &= '' & @CR $sHTML &= '<select name="selectExample">
' & @CR $sHTML &= '<option value="homepage.html">Homepage
' & @CR $sHTML &= '<option value="midipage.html">Midipage
' & @CR $sHTML &= '<option value="freepage.html">Freepage
' & @CR $sHTML &= '</select>
' & @CR $sHTML &= '' & @CR $sHTML &= '<select name="multipleSelectExample" size="6" multiple>
' & @CR $sHTML &= '<option value="Name1">Aaron
' & @CR $sHTML &= '<option value="Name2">Bruce
' & @CR $sHTML &= '<option value="Name3">Carlos
' & @CR $sHTML &= '<option value="Name4">Denis
' & @CR $sHTML &= '<option value="Name5">Ed
' & @CR $sHTML &= '<option value="Name6">Freddy
' & @CR $sHTML &= '</select>
' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '<input name="submitExample" type="submit" value="Submit">
' & @CR $sHTML &= '<input name="resetExample" type="reset" value="Reset">
' & @CR $sHTML &= '' & @CR $sHTML &= '
' & @CR $sHTML &= '' & @CR $sHTML &= '' $oObject = _IECreate() _IEDocWriteHTML($oObject, $sHTML) Case "frameset" $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '_IE_Example("frameset")' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= ' ' & @CR $sHTML &= '' & @CR $sHTML &= '' $oObject = _IECreate() _IEDocWriteHTML($oObject, $sHTML) _IEAction($oObject, "refresh") Local $oFrameTop = _IEFrameGetObjByName($oObject, "Top") Local $oFrameMenu = _IEFrameGetObjByName($oObject, "Menu") Local $oFrameMain = _IEFrameGetObjByName($oObject, "Main") _IEBodyWriteHTML($oFrameTop, '$oFrameTop = _IEFrameGetObjByName($oIE, "Top")') _IEBodyWriteHTML($oFrameMenu, '$oFrameMenu = _IEFrameGetObjByName($oIE, "Menu")') _IEBodyWriteHTML($oFrameMain, '$oFrameMain = _IEFrameGetObjByName($oIE, "Main")') Case "iframe" $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '_IE_Example("iframe")' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '
<iframe name="iFrameOne" src="about:blank" title="iFrameOne">
<iframe name="iFrameTwo" src="about:blank" title="iFrameTwo">
' & @CR $sHTML &= '' & @CR $sHTML &= '' $oObject = _IECreate() _IEDocWriteHTML($oObject, $sHTML) _IEAction($oObject, "refresh") Local $oIFrameOne = _IEFrameGetObjByName($oObject, "iFrameOne") Local $oIFrameTwo = _IEFrameGetObjByName($oObject, "iFrameTwo") _IEBodyWriteHTML($oIFrameOne, '$oIFrameOne = _IEFrameGetObjByName($oIE, "iFrameOne")') _IEBodyWriteHTML($oIFrameTwo, '$oIFrameTwo = _IEFrameGetObjByName($oIE, "iFrameTwo")') Case Else __IEConsoleWriteError("Error", "_IE_Example", "$_IESTATUS_InvalidValue") Return SetError($_IESTATUS_InvalidValue, 1, 0) EndSwitch Sleep(500) Return SetError($_IESTATUS_Success, 0, $oObject) EndFunc Func _IE_VersionInfo() __IEConsoleWriteError("Information", "_IE_VersionInfo", "version " & $__gaIEAU3VersionInfo[0] & $__gaIEAU3VersionInfo[1] & "." & $__gaIEAU3VersionInfo[2] & "-" & $__gaIEAU3VersionInfo[3], "Release date: " & $__gaIEAU3VersionInfo[4]) Return SetError($_IESTATUS_Success, 0, $__gaIEAU3VersionInfo) EndFunc #EndRegion General #Region Internal functions Func __IELockSetForegroundWindow($iLockCode) Local $aRet = DllCall("user32.dll", "bool", "LockSetForegroundWindow", "uint", $iLockCode) If @error Or Not $aRet[0] Then Return SetError(1, _WinAPI_GetLastError(), 0) Return $aRet[0] EndFunc Func __IEControlGetObjFromHWND(ByRef $hWin) DllCall("ole32.dll", "long", "CoInitialize", "ptr", 0) If @error Then Return SetError(2, @error, 0) Local Const $WM_HTML_GETOBJECT = __IERegisterWindowMessage("WM_HTML_GETOBJECT") Local Const $SMTO_ABORTIFHUNG = 0x0002 Local $iResult __IESendMessageTimeout($hWin, $WM_HTML_GETOBJECT, 0, 0, $SMTO_ABORTIFHUNG, 1000, $iResult) Local $tUUID = DllStructCreate("int;short;short;byte[8]") DllStructSetData($tUUID, 1, 0x626FC520) DllStructSetData($tUUID, 2, 0xA41E) DllStructSetData($tUUID, 3, 0x11CF) DllStructSetData($tUUID, 4, 0xA7, 1) DllStructSetData($tUUID, 4, 0x31, 2) DllStructSetData($tUUID, 4, 0x0, 3) DllStructSetData($tUUID, 4, 0xA0, 4) DllStructSetData($tUUID, 4, 0xC9, 5) DllStructSetData($tUUID, 4, 0x8, 6) DllStructSetData($tUUID, 4, 0x26, 7) DllStructSetData($tUUID, 4, 0x37, 8) Local $aRet = DllCall("oleacc.dll", "long", "ObjectFromLresult", "lresult", $iResult, "struct*", $tUUID, "wparam", 0, "idispatch*", 0) If @error Then Return SetError(3, @error, 0) If IsObj($aRet[4]) Then Local $oIE = $aRet[4].Script() Return $oIE.Document.parentwindow Else Return SetError(1, $aRet[0], 0) EndIf EndFunc Func __IERegisterWindowMessage($sMsg) Local $aRet = DllCall("user32.dll", "uint", "RegisterWindowMessageW", "wstr", $sMsg) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] = 0 Then Return SetError(10, _WinAPI_GetLastError(), 0) Return $aRet[0] EndFunc Func __IESendMessageTimeout($hWnd, $iMsg, $wParam, $lParam, $iFlags, $iTimeout, ByRef $vOut, $r = 0, $sT1 = "int", $sT2 = "int") Local $aRet = DllCall("user32.dll", "lresult", "SendMessageTimeout", "hwnd", $hWnd, "uint", $iMsg, $sT1, $wParam, $sT2, $lParam, "uint", $iFlags, "uint", $iTimeout, "dword_ptr*", "") If @error Or $aRet[0] = 0 Then $vOut = 0 Return SetError(1, _WinAPI_GetLastError(), 0) EndIf $vOut = $aRet[7] If $r >= 0 And $r <= 4 Then Return $aRet[$r] Return $aRet EndFunc Func __IEIsObjType(ByRef $oObject, $sType, $bRegister = True) If Not IsObj($oObject) Then Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf Local $bStatus = $bRegister If $bRegister Then $bStatus = __IEInternalErrorHandlerRegister() If Not $bStatus Then __IEConsoleWriteError("Warning", "internal function __IEIsObjType", "Cannot register internal error handler, cannot trap COM errors", "Use _IEErrorHandlerRegister() to register a user error handler") EndIf Local $iNotifyStatus = _IEErrorNotify() _IEErrorNotify(False) Local $sName = String(ObjName($oObject)), $iErrorStatus = $_IESTATUS_InvalidObjectType Switch $sType Case "browserdom" If __IEIsObjType($oObject, "documentcontainer", False) Then $iErrorStatus = $_IESTATUS_Success ElseIf __IEIsObjType($oObject, "document", False) Then $iErrorStatus = $_IESTATUS_Success Else Local $oTemp = $oObject.document If __IEIsObjType($oTemp, "document", False) Then $iErrorStatus = $_IESTATUS_Success EndIf EndIf Case "browser" If ($sName = "IWebBrowser2") Or ($sName = "IWebBrowser") Or ($sName = "WebBrowser") Then $iErrorStatus = $_IESTATUS_Success Case "window" If $sName = "HTMLWindow2" Then $iErrorStatus = $_IESTATUS_Success Case "documentContainer" If __IEIsObjType($oObject, "window", False) Or __IEIsObjType($oObject, "browser", False) Then $iErrorStatus = $_IESTATUS_Success Case "document" If $sName = "HTMLDocument" Then $iErrorStatus = $_IESTATUS_Success Case "table" If $sName = "HTMLTable" Then $iErrorStatus = $_IESTATUS_Success Case "form" If $sName = "HTMLFormElement" Then $iErrorStatus = $_IESTATUS_Success Case "forminputelement" If ($sName = "HTMLInputElement") Or ($sName = "HTMLSelectElement") Or ($sName = "HTMLTextAreaElement") Then $iErrorStatus = $_IESTATUS_Success Case "elementcollection" If ($sName = "HTMLElementCollection") Then $iErrorStatus = $_IESTATUS_Success Case "formselectelement" If $sName = "HTMLSelectElement" Then $iErrorStatus = $_IESTATUS_Success Case Else $iErrorStatus = $_IESTATUS_InvalidValue EndSwitch _IEErrorNotify($iNotifyStatus) If $bRegister Then __IEInternalErrorHandlerDeRegister() EndIf If $iErrorStatus = $_IESTATUS_Success Then Return SetError($_IESTATUS_Success, 0, 1) Else Return SetError($iErrorStatus, 1, 0) EndIf EndFunc Func __IEConsoleWriteError($sSeverity, $sFunc, $sMessage = Default, $sStatus = Default) If $__g_bIEErrorNotify Or $__g_bIEAU3Debug Then Local $sStr = "--> IE.au3 " & $__gaIEAU3VersionInfo[5] & " " & $sSeverity & " from function " & $sFunc If Not ($sMessage = Default) Then $sStr &= ", " & $sMessage If Not ($sStatus = Default) Then $sStr &= " (" & $sStatus & ")" ConsoleWrite($sStr & @CRLF) EndIf Return SetError($sStatus, 0, 1) EndFunc Func __IEComErrorUnrecoverable($iError) Switch $iError Case -2147352567 Return $_IESTATUS_AccessIsDenied Case -2147024891 Return $_IESTATUS_AccessIsDenied Case -2147417848 Return $_IESTATUS_ClientDisconnected Case -2147023174 Return $_IESTATUS_ClientDisconnected Case -2147023179 Return $_IESTATUS_ClientDisconnected Case Else Return $_IESTATUS_Success EndSwitch EndFunc #EndRegion Internal functions #Region ProtoType Functions Func __IENavigate(ByRef $oObject, $sUrl, $iWait = 1, $iFags = 0, $sTarget = "", $sPostdata = "", $sHeaders = "") __IEConsoleWriteError("Warning", "__IENavigate", "Unsupported function called. Not fully tested.") If Not IsObj($oObject) Then __IEConsoleWriteError("Error", "__IENavigate", "$_IESTATUS_InvalidDataType") Return SetError($_IESTATUS_InvalidDataType, 1, 0) EndIf If Not __IEIsObjType($oObject, "documentContainer") Then __IEConsoleWriteError("Error", "__IENavigate", "$_IESTATUS_InvalidObjectType") Return SetError($_IESTATUS_InvalidObjectType, 1, 0) EndIf $oObject.navigate($sUrl, $iFags, $sTarget, $sPostdata, $sHeaders) If $iWait Then _IELoadWait($oObject) Return SetError(@error, 0, $oObject) EndIf Return SetError($_IESTATUS_Success, 0, $oObject) EndFunc Func __IEStringToBstr($sString, $sCharSet = "us-ascii") Local Const $iTypeBinary = 1, $iTypeText = 2 Local $oStream = ObjCreate("ADODB.Stream") $oStream.type = $iTypeText $oStream.CharSet = $sCharSet $oStream.Open $oStream.WriteText($sString) $oStream.Position = 0 $oStream.type = $iTypeBinary $oStream.Position = 0 Return $oStream.Read() EndFunc Func __IEBstrToString($oBstr, $sCharSet = "us-ascii") Local Const $iTypeBinary = 1, $iTypeText = 2 Local $oStream = ObjCreate("ADODB.Stream") $oStream.type = $iTypeBinary $oStream.Open $oStream.Write($oBstr) $oStream.Position = 0 $oStream.type = $iTypeText $oStream.CharSet = $sCharSet $oStream.Position = 0 Return $oStream.ReadText() EndFunc Func __IECreateNewIE($sTitle, $sHead = "", $sBody = "") Local $sTemp = __IETempFile("", "~IE~", ".htm") If @error Then __IEConsoleWriteError("Error", "_IECreateHTA", "", "Error creating temporary file in @TempDir or @ScriptDir") Return SetError($_IESTATUS_GeneralError, 1, 0) EndIf Local $sHTML = '' $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR $sHTML &= '' & $sTemp & '' & @CR & $sHead & @CR $sHTML &= '' & @CR $sHTML &= '' & @CR & $sBody & @CR $sHTML &= '' & @CR $sHTML &= '' Local $hFile = FileOpen($sTemp, $FO_OVERWRITE) FileWrite($hFile, $sHTML) FileClose($hFile) If @error Then __IEConsoleWriteError("Error", "_IECreateNewIE", "", "Error creating temporary file in @TempDir or @ScriptDir") Return SetError($_IESTATUS_GeneralError, 2, 0) EndIf Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe " & $sTemp) Local $iPID If WinWait($sTemp, "", 60) Then $iPID = WinGetProcess($sTemp) Else __IEConsoleWriteError("Error", "_IECreateNewIE", "", "Timeout waiting for new IE window creation") Return SetError($_IESTATUS_GeneralError, 3, 0) EndIf If Not FileDelete($sTemp) Then __IEConsoleWriteError("Warning", "_IECreateNewIE", "", "Could not delete temporary file " & FileGetLongName($sTemp)) EndIf Local $oObject = _IEAttach($sTemp) _IELoadWait($oObject) _IEPropertySet($oObject, "title", $sTitle) Return SetError($_IESTATUS_Success, $iPID, $oObject) EndFunc Func __IETempFile($sDirectoryName = @TempDir, $sFilePrefix = "~", $sFileExtension = ".tmp", $iRandomLength = 7) Local $sTempName, $iTmp = 0 If Not FileExists($sDirectoryName) Then $sDirectoryName = @TempDir If Not FileExists($sDirectoryName) Then $sDirectoryName = @ScriptDir If StringRight($sDirectoryName, 1) <> "\" Then $sDirectoryName = $sDirectoryName & "\" Do $sTempName = "" While StringLen($sTempName) < $iRandomLength $sTempName = $sTempName & Chr(Random(97, 122, 1)) WEnd $sTempName = $sDirectoryName & $sFilePrefix & $sTempName & $sFileExtension $iTmp += 1 If $iTmp > 200 Then Return SetError($_IESTATUS_GeneralError, 1, 0) EndIf Until Not FileExists($sTempName) Return $sTempName EndFunc #EndRegion ProtoType Functions Global Const $INET_LOCALCACHE = 0 Global Const $INET_FORCERELOAD = 1 Global Const $INET_IGNORESSL = 2 Global Const $INET_ASCIITRANSFER = 4 Global Const $INET_BINARYTRANSFER = 8 Global Const $INET_FORCEBYPASS = 16 Global Const $INET_DOWNLOADWAIT = 0 Global Const $INET_DOWNLOADBACKGROUND = 1 Global Const $INET_DOWNLOADREAD = 0 Global Const $INET_DOWNLOADSIZE = 1 Global Const $INET_DOWNLOADCOMPLETE = 2 Global Const $INET_DOWNLOADSUCCESS = 3 Global Const $INET_DOWNLOADERROR = 4 Global Const $INET_DOWNLOADEXTENDED = 5 Func _GetIP() Local Const $GETIP_TIMER = 300000 Local Static $hTimer = 0 Local Static $sLastIP = 0 If TimerDiff($hTimer) < $GETIP_TIMER And Not $sLastIP Then Return SetExtended(1, $sLastIP) EndIf Local $aGetIPURL = ["https://api.ipify.org", "http://checkip.dyndns.org", "http://www.myexternalip.com/raw", "http://bot.whatismyipaddress.com"], $aReturn = 0, $sReturn = "" For $i = 0 To UBound($aGetIPURL) - 1 $sReturn = InetRead($aGetIPURL[$i]) If @error Or $sReturn == "" Then ContinueLoop $aReturn = StringRegExp(BinaryToString($sReturn), "((?:\d{1,3}\.){3}\d{1,3})", $STR_REGEXPARRAYGLOBALMATCH) If Not @error Then $sReturn = $aReturn[0] ExitLoop EndIf $sReturn = "" Next $hTimer = TimerInit() $sLastIP = $sReturn If $sReturn == "" Then Return SetError(1, 0, -1) Return $sReturn EndFunc Func _INetExplorerCapable($sIEString) If StringLen($sIEString) <= 0 Then Return SetError(1, 0, '') Local $s_IEReturn Local $n_IEChar For $i_IECount = 1 To StringLen($sIEString) $n_IEChar = '0x' & Hex(Asc(StringMid($sIEString, $i_IECount, 1)), 2) If $n_IEChar < 0x21 Or $n_IEChar = 0x25 Or $n_IEChar = 0x2f Or $n_IEChar > 0x7f Then $s_IEReturn = $s_IEReturn & '%' & StringRight($n_IEChar, 2) Else $s_IEReturn = $s_IEReturn & Chr($n_IEChar) EndIf Next Return $s_IEReturn EndFunc Func _INetGetSource($sURL, $bString = True) Local $sString = InetRead($sURL, $INET_FORCERELOAD) Local $iError = @error, $iExtended = @extended If $bString = Default Or $bString Then $sString = BinaryToString($sString) Return SetError($iError, $iExtended, $sString) EndFunc Func _INetMail($sMailTo, $sMailSubject, $sMailBody) Local $iPrev = Opt("ExpandEnvStrings", 1) Local $sVar, $sDflt = RegRead('HKCU\Software\Clients\Mail', "") If $sDflt = "Windows Live Mail" Then $sVar = RegRead('HKCR\WLMail.Url.Mailto\Shell\open\command', "") Else $sVar = RegRead('HKCR\mailto\shell\open\command', "") EndIf Local $iRet = Run(StringReplace($sVar, '%1', _INetExplorerCapable('mailto:' & $sMailTo & '?subject=' & $sMailSubject & '&body=' & $sMailBody))) Local $iError = @error, $iExtended = @extended Opt("ExpandEnvStrings", $iPrev) Return SetError($iError, $iExtended, $iRet) EndFunc Func _INetSmtpMail($sSMTPServer, $sFromName, $sFromAddress, $sToAddress, $sSubject = "", $aBody = "", $sEHLO = "", $sFirst = "", $bTrace = 0) If $sSMTPServer = "" Or $sFromAddress = "" Or $sToAddress = "" Or $sFromName = "" Or StringLen($sFromName) > 256 Then Return SetError(1, 0, 0) If $sEHLO = "" Then $sEHLO = @ComputerName If TCPStartup() = 0 Then Return SetError(2, 0, 0) Local $s_IPAddress, $i_Count If StringRegExp($sSMTPServer, "^(?:(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)\.){3}(?:25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)$") Then $s_IPAddress = $sSMTPServer Else $s_IPAddress = TCPNameToIP($sSMTPServer) EndIf If $s_IPAddress = "" Then TCPShutdown() Return SetError(3, 0, 0) EndIf Local $vSocket = TCPConnect($s_IPAddress, 25) If $vSocket = -1 Then TCPShutdown() Return SetError(4, 0, 0) EndIf Local $aSend[6], $aReplyCode[6] $aSend[0] = "HELO " & $sEHLO & @CRLF If StringLeft($sEHLO, 5) = "EHLO " Then $aSend[0] = $sEHLO & @CRLF $aReplyCode[0] = "250" $aSend[1] = "MAIL FROM: <" & $sFromAddress & ">" & @CRLF $aReplyCode[1] = "250" $aSend[2] = "RCPT TO: <" & $sToAddress & ">" & @CRLF $aReplyCode[2] = "250" $aSend[3] = "DATA" & @CRLF $aReplyCode[3] = "354" Local $aResult = _Date_Time_GetTimeZoneInformation() Local $iBias = -$aResult[1] / 60 Local $iBiasH = Int($iBias) Local $iBiasM = 0 If $iBiasH <> $iBias Then $iBiasM = Abs($iBias - $iBiasH) * 60 $iBias = StringFormat(" (%+.2d%.2d)", $iBiasH, $iBiasM) $aSend[4] = "From:" & $sFromName & "<" & $sFromAddress & ">" & @CRLF & "To:" & "<" & $sToAddress & ">" & @CRLF & "Subject:" & $sSubject & @CRLF & "Mime-Version: 1.0" & @CRLF & "Date: " & _DateDayOfWeek(@WDAY, 1) & ", " & @MDAY & " " & _DateToMonth(@MON, 1) & " " & @YEAR & " " & @HOUR & ":" & @MIN & ":" & @SEC & $iBias & @CRLF & "Content-Type: text/plain; charset=US-ASCII" & @CRLF & @CRLF $aReplyCode[4] = "" $aSend[5] = @CRLF & "." & @CRLF $aReplyCode[5] = "250" If __SmtpSend($vSocket, $aSend[0], $aReplyCode[0], $bTrace, "220", $sFirst) Then Return SetError(50, 0, 0) For $i_Count = 1 To UBound($aSend) - 2 If __SmtpSend($vSocket, $aSend[$i_Count], $aReplyCode[$i_Count], $bTrace) Then Return SetError(50 + $i_Count, 0, 0) Next For $i_Count = 0 To UBound($aBody) - 1 If StringLeft($aBody[$i_Count], 1) = "." Then $aBody[$i_Count] = "." & $aBody[$i_Count] If __SmtpSend($vSocket, $aBody[$i_Count] & @CRLF, "", $bTrace) Then Return SetError(500 + $i_Count, 0, 0) Next $i_Count = UBound($aSend) - 1 If __SmtpSend($vSocket, $aSend[$i_Count], $aReplyCode[$i_Count], $bTrace) Then Return SetError(5000, 0, 0) TCPCloseSocket($vSocket) TCPShutdown() Return 1 EndFunc Func __SmtpTrace($sStr, $iTimeout = 0) Local $sW_TITLE = "SMTP trace" Local $sSmtpTrace = ControlGetText($sW_TITLE, "", "Static1") $sStr = StringLeft(StringReplace($sStr, @CRLF, ""), 70) $sSmtpTrace &= @HOUR & ":" & @MIN & ":" & @SEC & " " & $sStr & @LF If WinExists($sW_TITLE) Then ControlSetText($sW_TITLE, "", "Static1", $sSmtpTrace) Else SplashTextOn($sW_TITLE, $sSmtpTrace, 400, 500, 500, 100, 4 + 16, "", 8) EndIf If $iTimeout Then Sleep($iTimeout * 1000) EndFunc Func __SmtpSend($vSocket, $sSend, $sReplyCode, $bTrace, $sIntReply = "", $sFirst = "") Local $sReceive, $i, $hTimer If $bTrace Then __SmtpTrace($sSend) If $sIntReply <> "" Then If $sFirst <> -1 Then If TCPSend($vSocket, $sFirst) = 0 Then TCPCloseSocket($vSocket) TCPShutdown() Return 1 EndIf EndIf $sReceive = "" $hTimer = TimerInit() While StringLeft($sReceive, StringLen($sIntReply)) <> $sIntReply And TimerDiff($hTimer) < 45000 $sReceive = TCPRecv($vSocket, 1000) If $bTrace And $sReceive <> "" Then __SmtpTrace("intermediate->" & $sReceive) WEnd EndIf If TCPSend($vSocket, $sSend) = 0 Then TCPCloseSocket($vSocket) TCPShutdown() Return 1 EndIf $hTimer = TimerInit() $sReceive = "" While $sReceive = "" And TimerDiff($hTimer) < 45000 $i += 1 $sReceive = TCPRecv($vSocket, 1000) If $sReplyCode = "" Then ExitLoop WEnd If $sReplyCode <> "" Then If $bTrace Then __SmtpTrace($i & " <- " & $sReceive) If StringLeft($sReceive, StringLen($sReplyCode)) <> $sReplyCode Then TCPCloseSocket($vSocket) TCPShutdown() If $bTrace Then __SmtpTrace("<-> " & $sReplyCode, 5) Return 2 EndIf EndIf Return 0 EndFunc Func _TCPIpToName($sIp, $iOption = Default, $hDll = Default) Local $iINADDR_NONE = 0xffffffff, $iAF_INET = 2, $sSeparator = @CR If $iOption = Default Then $iOption = 0 If $hDll = Default Then $hDll = "ws2_32.dll" Local $avDllCall = DllCall($hDll, "ulong", "inet_addr", "STR", $sIp) If @error Then Return SetError(1, 0, "") Local $vBinIP = $avDllCall[0] If $vBinIP = $iINADDR_NONE Then Return SetError(2, 0, "") $avDllCall = DllCall($hDll, "ptr", "gethostbyaddr", "ptr*", $vBinIP, "int", 4, "int", $iAF_INET) If @error Then Return SetError(3, 0, "") Local $pvHostent = $avDllCall[0] If $pvHostent = 0 Then $avDllCall = DllCall($hDll, "int", "WSAGetLastError") If @error Then Return SetError(5, 0, "") Return SetError(4, $avDllCall[0], "") EndIf Local $tHostent = DllStructCreate("ptr;ptr;short;short;ptr", $pvHostent) Local $sHostnames = __TCPIpToName_szStringRead(DllStructGetData($tHostent, 1)) If @error Then Return SetError(6, 0, $sHostnames) If $iOption = 1 Then Local $tAliases $sHostnames &= $sSeparator For $i = 0 To 63 $tAliases = DllStructCreate("ptr", DllStructGetData($tHostent, 2) + ($i * 4)) If DllStructGetData($tAliases, 1) = 0 Then ExitLoop $sHostnames &= __TCPIpToName_szStringRead(DllStructGetData($tAliases, 1)) If @error Then SetError(7) ExitLoop EndIf Next Return StringSplit(StringStripWS($sHostnames, $STR_STRIPTRAILING), @CR) Else Return $sHostnames EndIf EndFunc Func __TCPIpToName_szStringRead($pStr, $iLen = -1) Local $tString If $pStr < 1 Then Return "" If $iLen < 0 Then $iLen = _WinAPI_StrLen($pStr, False) $tString = DllStructCreate("char[" & $iLen & "]", $pStr) If @error Then Return SetError(2, 0, "") Return SetExtended($iLen, DllStructGetData($tString, 1)) EndFunc Func _ProcessGetName($iPID) Local $aProcessList = ProcessList() For $i = 1 To UBound($aProcessList) - 1 If $aProcessList[$i][1] = $iPID Then Return $aProcessList[$i][0] EndIf Next Return SetError(1, 0, "") EndFunc Func _ProcessGetPriority($vProcess) Local $iError = 0, $iExtended = 0, $iReturn = -1 Local $iPID = ProcessExists($vProcess) If Not $iPID Then Return SetError(1, 0, -1) Local $hDLL = DllOpen('kernel32.dll') Do Local $aProcessHandle = DllCall($hDLL, 'handle', 'OpenProcess', 'dword', $PROCESS_QUERY_INFORMATION, 'bool', False, 'dword', $iPID) If @error Then $iError = @error + 10 $iExtended = @extended ExitLoop EndIf If Not $aProcessHandle[0] Then ExitLoop Local $aPriority = DllCall($hDLL, 'dword', 'GetPriorityClass', 'handle', $aProcessHandle[0]) If @error Then $iError = @error $iExtended = @extended EndIf DllCall($hDLL, 'bool', 'CloseHandle', 'handle', $aProcessHandle[0]) If $iError Then ExitLoop Switch $aPriority[0] Case 0x00000040 $iReturn = 0 Case 0x00004000 $iReturn = 1 Case 0x00000020 $iReturn = 2 Case 0x00008000 $iReturn = 3 Case 0x00000080 $iReturn = 4 Case 0x00000100 $iReturn = 5 Case Else $iError = 1 $iExtended = $aPriority[0] $iReturn = -1 EndSwitch Until True DllClose($hDLL) Return SetError($iError, $iExtended, $iReturn) EndFunc Func _RunDos($sCommand) Local $iResult = RunWait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE) Return SetError(@error, @extended, $iResult) EndFunc Func _HexToString($sHex) If Not (StringLeft($sHex, 2) == "0x") Then $sHex = "0x" & $sHex Return BinaryToString($sHex, $SB_UTF8) EndFunc Func _StringBetween($sString, $sStart, $sEnd, $iMode = $STR_ENDISSTART, $bCase = False) $sStart = $sStart ? "\Q" & $sStart & "\E" : "\A" If $iMode <> $STR_ENDNOTSTART Then $iMode = $STR_ENDISSTART If $iMode = $STR_ENDISSTART Then $sEnd = $sEnd ? "(?=\Q" & $sEnd & "\E)" : "\z" Else $sEnd = $sEnd ? "\Q" & $sEnd & "\E" : "\z" EndIf If $bCase = Default Then $bCase = False EndIf Local $aReturn = StringRegExp($sString, "(?s" & (Not $bCase ? "i" : "") & ")" & $sStart & "(.*?)" & $sEnd, $STR_REGEXPARRAYGLOBALMATCH) If @error Then Return SetError(1, 0, 0) Return $aReturn EndFunc Func _StringExplode($sString, $sDelimiter, $iLimit = 0) If $iLimit = Default Then $iLimit = 0 If $iLimit > 0 Then Local Const $NULL = Chr(0) $sString = StringReplace($sString, $sDelimiter, $NULL, $iLimit) $sDelimiter = $NULL ElseIf $iLimit < 0 Then Local $iIndex = StringInStr($sString, $sDelimiter, $STR_NOCASESENSEBASIC, $iLimit) If $iIndex Then $sString = StringLeft($sString, $iIndex - 1) EndIf EndIf Return StringSplit($sString, $sDelimiter, BItOR($STR_ENTIRESPLIT, $STR_NOCOUNT)) EndFunc Func _StringInsert($sString, $sInsertion, $iPosition) Local $iLength = StringLen($sString) $iPosition = Int($iPosition) If $iPosition < 0 Then $iPosition = $iLength + $iPosition If $iLength < $iPosition Or $iPosition < 0 Then Return SetError(1, 0, $sString) Return StringLeft($sString, $iPosition) & $sInsertion & StringRight($sString, $iLength - $iPosition) EndFunc Func _StringProper($sString) Local $bCapNext = True, $sChr = "", $sReturn = "" For $i = 1 To StringLen($sString) $sChr = StringMid($sString, $i, 1) Select Case $bCapNext = True If StringRegExp($sChr, '[a-zA-ZÀ-ÿšœžŸ]') Then $sChr = StringUpper($sChr) $bCapNext = False EndIf Case Not StringRegExp($sChr, '[a-zA-ZÀ-ÿšœžŸ]') $bCapNext = True Case Else $sChr = StringLower($sChr) EndSelect $sReturn &= $sChr Next Return $sReturn EndFunc Func _StringRepeat($sString, $iRepeatCount) $iRepeatCount = Int($iRepeatCount) If $iRepeatCount = 0 Then Return "" If StringLen($sString) < 1 Or $iRepeatCount < 0 Then Return SetError(1, 0, "") Local $sResult = "" While $iRepeatCount > 1 If BitAND($iRepeatCount, 1) Then $sResult &= $sString $sString &= $sString $iRepeatCount = BitShift($iRepeatCount, 1) WEnd Return $sString & $sResult EndFunc Func _StringTitleCase($sString) Local $bCapNext = True, $sChr = "", $sReturn = "" For $i = 1 To StringLen($sString) $sChr = StringMid($sString, $i, 1) Select Case $bCapNext = True If StringRegExp($sChr, "[a-zA-Z\xC0-\xFF0-9]") Then $sChr = StringUpper($sChr) $bCapNext = False EndIf Case Not StringRegExp($sChr, "[a-zA-Z\xC0-\xFF'0-9]") $bCapNext = True Case Else $sChr = StringLower($sChr) EndSelect $sReturn &= $sChr Next Return $sReturn EndFunc Func _StringToHex($sString) Return Hex(StringToBinary($sString, $SB_UTF8)) EndFunc Global Const $TRAY_ITEM_EXIT = 3 Global Const $TRAY_ITEM_PAUSE = 4 Global Const $TRAY_ITEM_FIRST = 7 Global Const $TRAY_CHECKED = 1 Global Const $TRAY_UNCHECKED = 4 Global Const $TRAY_ENABLE = 64 Global Const $TRAY_DISABLE = 128 Global Const $TRAY_FOCUS = 256 Global Const $TRAY_DEFAULT = 512 Global Const $TRAY_EVENT_NONE = 0 Global Const $TRAY_EVENT_SHOWICON = -3 Global Const $TRAY_EVENT_HIDEICON = -4 Global Const $TRAY_EVENT_FLASHICON = -5 Global Const $TRAY_EVENT_NOFLASHICON = -6 Global Const $TRAY_EVENT_PRIMARYDOWN = -7 Global Const $TRAY_EVENT_PRIMARYUP = -8 Global Const $TRAY_EVENT_SECONDARYDOWN = -9 Global Const $TRAY_EVENT_SECONDARYUP = -10 Global Const $TRAY_EVENT_MOUSEOVER = -11 Global Const $TRAY_EVENT_MOUSEOUT = -12 Global Const $TRAY_EVENT_PRIMARYDOUBLE = -13 Global Const $TRAY_EVENT_SECONDARYDOUBLE = -14 Global Const $TIP_ICONNONE = 0 Global Const $TIP_ICONASTERISK = 1 Global Const $TIP_ICONEXCLAMATION = 2 Global Const $TIP_ICONHAND = 3 Global Const $TIP_NOSOUND = 16 Global Const $TRAY_ITEM_NORMAL = 0 Global Const $TRAY_ITEM_RADIO = 1 Global Const $TRAY_CLICK_SHOW = 0 Global Const $TRAY_CLICK_PRIMARYDOWN = 1 Global Const $TRAY_CLICK_PRIMARYUP = 2 Global Const $TRAY_DBLCLICK_PRIMARY= 4 Global Const $TRAY_CLICK_SECONDARYDOWN = 8 Global Const $TRAY_CLICK_SECONDARYUP = 16 Global Const $TRAY_DBLCLICK_SECONDARY= 32 Global Const $TRAY_CLICK_HOVERING= 64 Global Const $TRAY_ICONSTATE_SHOW = 1 Global Const $TRAY_ICONSTATE_HIDE = 2 Global Const $TRAY_ICONSTATE_FLASH = 4 Global Const $TRAY_ICONSTATE_STOPFLASH = 8 Global Const $TRAY_ICONSTATE_RESET = 16 Func _SendMessage($hWnd, $iMsg, $wParam = 0, $lParam = 0, $iReturn = 0, $wParamType = "wparam", $lParamType = "lparam", $sReturnType = "lresult") Local $aResult = DllCall("user32.dll", $sReturnType, "SendMessageW", "hwnd", $hWnd, "uint", $iMsg, $wParamType, $wParam, $lParamType, $lParam) If @error Then Return SetError(@error, @extended, "") If $iReturn >= 0 And $iReturn <= 4 Then Return $aResult[$iReturn] Return $aResult EndFunc Func _SendMessageA($hWnd, $iMsg, $wParam = 0, $lParam = 0, $iReturn = 0, $wParamType = "wparam", $lParamType = "lparam", $sReturnType = "lresult") Local $aResult = DllCall("user32.dll", $sReturnType, "SendMessageA", "hwnd", $hWnd, "uint", $iMsg, $wParamType, $wParam, $lParamType, $lParam) If @error Then Return SetError(@error, @extended, "") If $iReturn >= 0 And $iReturn <= 4 Then Return $aResult[$iReturn] Return $aResult EndFunc #Region Global Variables and Constants Global $__g_aInProcess_WinAPI[64][2] = [[0, 0]] Global $__g_aWinList_WinAPI[64][2] = [[0, 0]] Global Const $GW_HWNDFIRST = 0 Global Const $GW_HWNDLAST = 1 Global Const $GW_HWNDNEXT = 2 Global Const $GW_HWNDPREV = 3 Global Const $GW_OWNER = 4 Global Const $GW_CHILD = 5 Global Const $GW_ENABLEDPOPUP = 6 Global Const $GWL_WNDPROC = 0xFFFFFFFC Global Const $GWL_HINSTANCE = 0xFFFFFFFA Global Const $GWL_HWNDPARENT = 0xFFFFFFF8 Global Const $GWL_ID = 0xFFFFFFF4 Global Const $GWL_STYLE = 0xFFFFFFF0 Global Const $GWL_EXSTYLE = 0xFFFFFFEC Global Const $GWL_USERDATA = 0xFFFFFFEB Global Const $__WINAPICONSTANT_WM_SETFONT = 0x0030 #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list #Region Public Functions Func _WinAPI_CreateWindowEx($iExStyle, $sClass, $sName, $iStyle, $iX, $iY, $iWidth, $iHeight, $hParent, $hMenu = 0, $hInstance = 0, $pParam = 0) If $hInstance = 0 Then $hInstance = _WinAPI_GetModuleHandle("") Local $aResult = DllCall("user32.dll", "hwnd", "CreateWindowExW", "dword", $iExStyle, "wstr", $sClass, "wstr", $sName, "dword", $iStyle, "int", $iX, "int", $iY, "int", $iWidth, "int", $iHeight, "hwnd", $hParent, "handle", $hMenu, "handle", $hInstance, "struct*", $pParam) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetClientRect($hWnd) Local $tRECT = DllStructCreate($tagRECT) Local $aRet = DllCall("user32.dll", "bool", "GetClientRect", "hwnd", $hWnd, "struct*", $tRECT) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tRECT EndFunc Func _WinAPI_GetDesktopWindow() Local $aResult = DllCall("user32.dll", "hwnd", "GetDesktopWindow") If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_DestroyWindow($hWnd) Local $aResult = DllCall("user32.dll", "bool", "DestroyWindow", "hwnd", $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_EnableWindow($hWnd, $bEnable = True) Local $aResult = DllCall("user32.dll", "bool", "EnableWindow", "hwnd", $hWnd, "bool", $bEnable) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_EnumWindows($bVisible = True, $hWnd = Default) __WinAPI_EnumWindowsInit() If $hWnd = Default Then $hWnd = _WinAPI_GetDesktopWindow() __WinAPI_EnumWindowsChild($hWnd, $bVisible) Return $__g_aWinList_WinAPI EndFunc Func _WinAPI_EnumWindowsPopup() __WinAPI_EnumWindowsInit() Local $hWnd = _WinAPI_GetWindow(_WinAPI_GetDesktopWindow(), $GW_CHILD) Local $sClass While $hWnd <> 0 If _WinAPI_IsWindowVisible($hWnd) Then $sClass = _WinAPI_GetClassName($hWnd) If $sClass = "#32768" Then __WinAPI_EnumWindowsAdd($hWnd) ElseIf $sClass = "ToolbarWindow32" Then __WinAPI_EnumWindowsAdd($hWnd) ElseIf $sClass = "ToolTips_Class32" Then __WinAPI_EnumWindowsAdd($hWnd) ElseIf $sClass = "BaseBar" Then __WinAPI_EnumWindowsChild($hWnd) EndIf EndIf $hWnd = _WinAPI_GetWindow($hWnd, $GW_HWNDNEXT) WEnd Return $__g_aWinList_WinAPI EndFunc Func _WinAPI_EnumWindowsTop() __WinAPI_EnumWindowsInit() Local $hWnd = _WinAPI_GetWindow(_WinAPI_GetDesktopWindow(), $GW_CHILD) While $hWnd <> 0 If _WinAPI_IsWindowVisible($hWnd) Then __WinAPI_EnumWindowsAdd($hWnd) $hWnd = _WinAPI_GetWindow($hWnd, $GW_HWNDNEXT) WEnd Return $__g_aWinList_WinAPI EndFunc Func _WinAPI_GetClassName($hWnd) If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd) Local $aResult = DllCall("user32.dll", "int", "GetClassNameW", "hwnd", $hWnd, "wstr", "", "int", 4096) If @error Or Not $aResult[0] Then Return SetError(@error, @extended, '') Return SetExtended($aResult[0], $aResult[2]) EndFunc Func _WinAPI_GetFocus() Local $aResult = DllCall("user32.dll", "hwnd", "GetFocus") If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetParent($hWnd) Local $aResult = DllCall("user32.dll", "hwnd", "GetParent", "hwnd", $hWnd) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetSysColor($iIndex) Local $aResult = DllCall("user32.dll", "INT", "GetSysColor", "int", $iIndex) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetSystemMetrics($iIndex) Local $aResult = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $iIndex) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetWindow($hWnd, $iCmd) Local $aResult = DllCall("user32.dll", "hwnd", "GetWindow", "hwnd", $hWnd, "uint", $iCmd) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetWindowHeight($hWnd) Local $tRECT = _WinAPI_GetWindowRect($hWnd) If @error Then Return SetError(@error, @extended, 0) Return DllStructGetData($tRECT, "Bottom") - DllStructGetData($tRECT, "Top") EndFunc Func _WinAPI_GetWindowLong($hWnd, $iIndex) Local $sFuncName = "GetWindowLongW" If @AutoItX64 Then $sFuncName = "GetWindowLongPtrW" Local $aResult = DllCall("user32.dll", "long_ptr", $sFuncName, "hwnd", $hWnd, "int", $iIndex) If @error Or Not $aResult[0] Then Return SetError(@error + 10, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetWindowRect($hWnd) Local $tRECT = DllStructCreate($tagRECT) Local $aRet = DllCall("user32.dll", "bool", "GetWindowRect", "hwnd", $hWnd, "struct*", $tRECT) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tRECT EndFunc Func _WinAPI_GetWindowText($hWnd) Local $aResult = DllCall("user32.dll", "int", "GetWindowTextW", "hwnd", $hWnd, "wstr", "", "int", 4096) If @error Or Not $aResult[0] Then Return SetError(@error + 10, @extended, "") Return SetExtended($aResult[0], $aResult[2]) EndFunc Func _WinAPI_GetWindowThreadProcessId($hWnd, ByRef $iPID) Local $aResult = DllCall("user32.dll", "dword", "GetWindowThreadProcessId", "hwnd", $hWnd, "dword*", 0) If @error Then Return SetError(@error, @extended, 0) $iPID = $aResult[2] Return $aResult[0] EndFunc Func _WinAPI_GetWindowWidth($hWnd) Local $tRECT = _WinAPI_GetWindowRect($hWnd) If @error Then Return SetError(@error, @extended, 0) Return DllStructGetData($tRECT, "Right") - DllStructGetData($tRECT, "Left") EndFunc Func _WinAPI_InProcess($hWnd, ByRef $hLastWnd) If $hWnd = $hLastWnd Then Return True For $iI = $__g_aInProcess_WinAPI[0][0] To 1 Step -1 If $hWnd = $__g_aInProcess_WinAPI[$iI][0] Then If $__g_aInProcess_WinAPI[$iI][1] Then $hLastWnd = $hWnd Return True Else Return False EndIf EndIf Next Local $iPID _WinAPI_GetWindowThreadProcessId($hWnd, $iPID) Local $iCount = $__g_aInProcess_WinAPI[0][0] + 1 If $iCount >= 64 Then $iCount = 1 $__g_aInProcess_WinAPI[0][0] = $iCount $__g_aInProcess_WinAPI[$iCount][0] = $hWnd $__g_aInProcess_WinAPI[$iCount][1] = ($iPID = @AutoItPID) Return $__g_aInProcess_WinAPI[$iCount][1] EndFunc Func _WinAPI_InvalidateRect($hWnd, $tRECT = 0, $bErase = True) Local $aResult = DllCall("user32.dll", "bool", "InvalidateRect", "hwnd", $hWnd, "struct*", $tRECT, "bool", $bErase) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_IsClassName($hWnd, $sClassName) Local $sSeparator = Opt("GUIDataSeparatorChar") Local $aClassName = StringSplit($sClassName, $sSeparator) If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd) Local $sClassCheck = _WinAPI_GetClassName($hWnd) For $x = 1 To UBound($aClassName) - 1 If StringUpper(StringMid($sClassCheck, 1, StringLen($aClassName[$x]))) = StringUpper($aClassName[$x]) Then Return True Next Return False EndFunc Func _WinAPI_IsWindow($hWnd) Local $aResult = DllCall("user32.dll", "bool", "IsWindow", "hwnd", $hWnd) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_IsWindowVisible($hWnd) Local $aResult = DllCall("user32.dll", "bool", "IsWindowVisible", "hwnd", $hWnd) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_MoveWindow($hWnd, $iX, $iY, $iWidth, $iHeight, $bRepaint = True) Local $aResult = DllCall("user32.dll", "bool", "MoveWindow", "hwnd", $hWnd, "int", $iX, "int", $iY, "int", $iWidth, "int", $iHeight, "bool", $bRepaint) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_SetFocus($hWnd) Local $aResult = DllCall("user32.dll", "hwnd", "SetFocus", "hwnd", $hWnd) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_SetFont($hWnd, $hFont, $bRedraw = True) _SendMessage($hWnd, $__WINAPICONSTANT_WM_SETFONT, $hFont, $bRedraw, 0, "hwnd") EndFunc Func _WinAPI_SetParent($hWndChild, $hWndParent) Local $aResult = DllCall("user32.dll", "hwnd", "SetParent", "hwnd", $hWndChild, "hwnd", $hWndParent) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_SetWindowPos($hWnd, $hAfter, $iX, $iY, $iCX, $iCY, $iFlags) Local $aResult = DllCall("user32.dll", "bool", "SetWindowPos", "hwnd", $hWnd, "hwnd", $hAfter, "int", $iX, "int", $iY, "int", $iCX, "int", $iCY, "uint", $iFlags) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_SetWindowText($hWnd, $sText) Local $aResult = DllCall("user32.dll", "bool", "SetWindowTextW", "hwnd", $hWnd, "wstr", $sText) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_ShowWindow($hWnd, $iCmdShow = 5) Local $aResult = DllCall("user32.dll", "bool", "ShowWindow", "hwnd", $hWnd, "int", $iCmdShow) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_UpdateWindow($hWnd) Local $aResult = DllCall("user32.dll", "bool", "UpdateWindow", "hwnd", $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc #EndRegion Public Functions #Region Internal Functions Func __WinAPI_EnumWindowsAdd($hWnd, $sClass = "") If $sClass = "" Then $sClass = _WinAPI_GetClassName($hWnd) $__g_aWinList_WinAPI[0][0] += 1 Local $iCount = $__g_aWinList_WinAPI[0][0] If $iCount >= $__g_aWinList_WinAPI[0][1] Then ReDim $__g_aWinList_WinAPI[$iCount + 64][2] $__g_aWinList_WinAPI[0][1] += 64 EndIf $__g_aWinList_WinAPI[$iCount][0] = $hWnd $__g_aWinList_WinAPI[$iCount][1] = $sClass EndFunc Func __WinAPI_EnumWindowsChild($hWnd, $bVisible = True) $hWnd = _WinAPI_GetWindow($hWnd, $GW_CHILD) While $hWnd <> 0 If (Not $bVisible) Or _WinAPI_IsWindowVisible($hWnd) Then __WinAPI_EnumWindowsAdd($hWnd) __WinAPI_EnumWindowsChild($hWnd, $bVisible) EndIf $hWnd = _WinAPI_GetWindow($hWnd, $GW_HWNDNEXT) WEnd EndFunc Func __WinAPI_EnumWindowsInit() ReDim $__g_aWinList_WinAPI[64][2] $__g_aWinList_WinAPI[0][0] = 0 $__g_aWinList_WinAPI[0][1] = 64 EndFunc #EndRegion Internal Functions Global Const $FLASHW_CAPTION = 0x00000001 Global Const $FLASHW_TRAY = 0x00000002 Global Const $FLASHW_TIMER = 0x00000004 Global Const $FLASHW_TIMERNOFG = 0x0000000C Global Const $tagUPDATELAYEREDWINDOWINFO = 'dword Size;hwnd hDstDC;long DstX;long DstY;long cX;long cY;hwnd hSrcDC;long SrcX;long SrcY;dword crKey;byte BlendOp;byte BlendFlags;byte Alpha;byte AlphaFormat;dword Flags;long DirtyLeft;long DirtyTop;long DirtyRight;long DirtyBottom' Global Const $tagWINDOWINFO = 'dword Size;struct;long rWindow[4];endstruct;struct;long rClient[4];endstruct;dword Style;dword ExStyle;dword WindowStatus;uint cxWindowBorders;uint cyWindowBorders;word atomWindowType;word CreatorVersion' Global Const $tagWNDCLASS = 'uint Style;ptr hWndProc;int ClsExtra;int WndExtra;ptr hInstance;ptr hIcon;ptr hCursor;ptr hBackground;ptr MenuName;ptr ClassName' Global Const $tagWNDCLASSEX = 'uint Size;uint Style;ptr hWndProc;int ClsExtra;int WndExtra;ptr hInstance;ptr hIcon;ptr hCursor;ptr hBackground;ptr MenuName;ptr ClassName;ptr hIconSm' Global Const $tagFLASHWINFO = "uint Size;hwnd hWnd;dword Flags;uint Count;dword TimeOut" Func _WinAPI_AdjustWindowRectEx(ByRef $tRECT, $iStyle, $iExStyle = 0, $bMenu = False) Local $aRet = DllCall('user32.dll', 'bool', 'AdjustWindowRectEx', 'struct*', $tRECT, 'dword', $iStyle, 'bool', $bMenu, 'dword', $iExStyle) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_AnimateWindow($hWnd, $iFlags, $iDuration = 1000) Local $aRet = DllCall('user32.dll', 'bool', 'AnimateWindow', 'hwnd', $hWnd, 'dword', $iDuration, 'dword', $iFlags) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_BeginDeferWindowPos($iAmount = 1) Local $aRet = DllCall('user32.dll', 'handle', 'BeginDeferWindowPos', 'int', $iAmount) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_BringWindowToTop($hWnd) Local $aRet = DllCall('user32.dll', 'bool', 'BringWindowToTop', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_BroadcastSystemMessage($iMsg, $wParam = 0, $lParam = 0, $iFlags = 0, $iRecipients = 0) Local $aRet = DllCall('user32.dll', 'long', 'BroadcastSystemMessageW', 'dword', $iFlags, 'dword*', $iRecipients, 'uint', $iMsg, 'wparam', $wParam, 'lparam', $lParam) If @error Or ($aRet[0] = -1) Then Return SetError(@error, @extended, -1) Return SetExtended($aRet[2], $aRet[0]) EndFunc Func _WinAPI_CallWindowProc($pPrevWndFunc, $hWnd, $iMsg, $wParam, $lParam) Local $aResult = DllCall("user32.dll", "lresult", "CallWindowProc", "ptr", $pPrevWndFunc, "hwnd", $hWnd, "uint", $iMsg, "wparam", $wParam, "lparam", $lParam) If @error Then Return SetError(@error, @extended, -1) Return $aResult[0] EndFunc Func _WinAPI_CallWindowProcW($pPrevWndProc, $hWnd, $iMsg, $wParam, $lParam) Local $aRet = DllCall('user32.dll', 'lresult', 'CallWindowProcW', 'ptr', $pPrevWndProc, 'hwnd', $hWnd, 'uint', $iMsg, 'wparam', $wParam, 'lparam', $lParam) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CascadeWindows($aWnds, $tRECT = 0, $hParent = 0, $iFlags = 0, $iStart = 0, $iEnd = -1) If __CheckErrorArrayBounds($aWnds, $iStart, $iEnd) Then Return SetError(@error + 10, @extended, 0) Local $iCount = $iEnd - $iStart + 1 Local $tWnds = DllStructCreate('hwnd[' & $iCount & ']') $iCount = 1 For $i = $iStart To $iEnd DllStructSetData($tWnds, 1, $aWnds[$i], $iCount) $iCount += 1 Next Local $aRet = DllCall('user32.dll', 'word', 'CascadeWindows', 'hwnd', $hParent, 'uint', $iFlags, 'struct*', $tRECT, 'uint', $iCount - 1, 'struct*', $tWnds) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_ChangeWindowMessageFilterEx($hWnd, $iMsg, $iAction) Local $tCFS, $aRet If $hWnd And ($__WINVER > 0x0600) Then Local Const $tagCHANGEFILTERSTRUCT = 'dword cbSize; dword ExtStatus' $tCFS = DllStructCreate($tagCHANGEFILTERSTRUCT) DllStructSetData($tCFS, 1, DllStructGetSize($tCFS)) $aRet = DllCall('user32.dll', 'bool', 'ChangeWindowMessageFilterEx', 'hwnd', $hWnd, 'uint', $iMsg, 'dword', $iAction, 'struct*', $tCFS) Else $tCFS = 0 $aRet = DllCall('user32.dll', 'bool', 'ChangeWindowMessageFilter', 'uint', $iMsg, 'dword', $iAction) EndIf If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return SetExtended(DllStructGetData($tCFS, 2), 1) EndFunc Func _WinAPI_ChildWindowFromPointEx($hWnd, $tPOINT, $iFlags = 0) Local $aRet = DllCall('user32.dll', 'hwnd', 'ChildWindowFromPointEx', 'hwnd', $hWnd, 'struct', $tPOINT, 'uint', $iFlags) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CloseWindow($hWnd) Local $aRet = DllCall('user32.dll', 'bool', 'CloseWindow', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_DeferWindowPos($hInfo, $hWnd, $hAfter, $iX, $iY, $iWidth, $iHeight, $iFlags) Local $aRet = DllCall('user32.dll', 'handle', 'DeferWindowPos', 'handle', $hInfo, 'hwnd', $hWnd, 'hwnd', $hAfter, 'int', $iX, 'int', $iY, 'int', $iWidth, 'int', $iHeight, 'uint', $iFlags) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_DefWindowProc($hWnd, $iMsg, $wParam, $lParam) Local $aResult = DllCall("user32.dll", "lresult", "DefWindowProc", "hwnd", $hWnd, "uint", $iMsg, "wparam", $wParam, "lparam", $lParam) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_DefWindowProcW($hWnd, $iMsg, $wParam, $lParam) Local $aRet = DllCall('user32.dll', 'lresult', 'DefWindowProcW', 'hwnd', $hWnd, 'uint', $iMsg, 'wparam', $wParam, 'lparam', $lParam) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_DeregisterShellHookWindow($hWnd) Local $aRet = DllCall('user32.dll', 'bool', 'DeregisterShellHookWindow', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_DragAcceptFiles($hWnd, $bAccept = True) DllCall('shell32.dll', 'none', 'DragAcceptFiles', 'hwnd', $hWnd, 'bool', $bAccept) If @error Then Return SetError(@error, @extended, 0) Return 1 EndFunc Func _WinAPI_DragFinish($hDrop) DllCall('shell32.dll', 'none', 'DragFinish', 'handle', $hDrop) If @error Then Return SetError(@error, @extended, 0) Return 1 EndFunc Func _WinAPI_DragQueryFileEx($hDrop, $iFlag = 0) Local $aRet = DllCall('shell32.dll', 'uint', 'DragQueryFileW', 'handle', $hDrop, 'uint', -1, 'ptr', 0, 'uint', 0) If @error Then Return SetError(@error, @extended, 0) If Not $aRet[0] Then Return SetError(10, 0, 0) Local $iCount = $aRet[0] Local $aResult[$iCount + 1] For $i = 0 To $iCount - 1 $aRet = DllCall('shell32.dll', 'uint', 'DragQueryFileW', 'handle', $hDrop, 'uint', $i, 'wstr', '', 'uint', 4096) If Not $aRet[0] Then Return SetError(11, 0, 0) If $iFlag Then Local $bDir = _WinAPI_PathIsDirectory($aRet[3]) If (($iFlag = 1) And $bDir) Or (($iFlag = 2) And Not $bDir) Then ContinueLoop EndIf EndIf $aResult[$i + 1] = $aRet[3] $aResult[0] += 1 Next If Not $aResult[0] Then Return SetError(12, 0, 0) __Inc($aResult, -1) Return $aResult EndFunc Func _WinAPI_DragQueryPoint($hDrop) Local $tPOINT = DllStructCreate($tagPOINT) Local $aRet = DllCall('shell32.dll', 'bool', 'DragQueryPoint', 'handle', $hDrop, 'struct*', $tPOINT) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tPOINT EndFunc Func _WinAPI_EndDeferWindowPos($hInfo) Local $aRet = DllCall('user32.dll', 'bool', 'EndDeferWindowPos', 'handle', $hInfo) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_EnumChildWindows($hWnd, $bVisible = True) If Not _WinAPI_GetWindow($hWnd, 5) Then Return SetError(2, 0, 0) Local $hEnumProc = DllCallbackRegister('__EnumWindowsProc', 'bool', 'hwnd;lparam') Dim $__g_vEnum[101][2] = [[0]] DllCall('user32.dll', 'bool', 'EnumChildWindows', 'hwnd', $hWnd, 'ptr', DllCallbackGetPtr($hEnumProc), 'lparam', $bVisible) If @error Or Not $__g_vEnum[0][0] Then $__g_vEnum = @error + 10 EndIf DllCallbackFree($hEnumProc) If $__g_vEnum Then Return SetError($__g_vEnum, 0, 0) __Inc($__g_vEnum, -1) Return $__g_vEnum EndFunc Func _WinAPI_FindWindow($sClassName, $sWindowName) Local $aResult = DllCall("user32.dll", "hwnd", "FindWindowW", "wstr", $sClassName, "wstr", $sWindowName) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_FlashWindow($hWnd, $bInvert = True) Local $aResult = DllCall("user32.dll", "bool", "FlashWindow", "hwnd", $hWnd, "bool", $bInvert) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_FlashWindowEx($hWnd, $iFlags = 3, $iCount = 3, $iTimeout = 0) Local $tFlash = DllStructCreate($tagFLASHWINFO) Local $iFlash = DllStructGetSize($tFlash) Local $iMode = 0 If BitAND($iFlags, 1) <> 0 Then $iMode = BitOR($iMode, $FLASHW_CAPTION) If BitAND($iFlags, 2) <> 0 Then $iMode = BitOR($iMode, $FLASHW_TRAY) If BitAND($iFlags, 4) <> 0 Then $iMode = BitOR($iMode, $FLASHW_TIMER) If BitAND($iFlags, 8) <> 0 Then $iMode = BitOR($iMode, $FLASHW_TIMERNOFG) DllStructSetData($tFlash, "Size", $iFlash) DllStructSetData($tFlash, "hWnd", $hWnd) DllStructSetData($tFlash, "Flags", $iMode) DllStructSetData($tFlash, "Count", $iCount) DllStructSetData($tFlash, "Timeout", $iTimeout) Local $aResult = DllCall("user32.dll", "bool", "FlashWindowEx", "struct*", $tFlash) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_GetAncestor($hWnd, $iFlags = 1) Local $aResult = DllCall("user32.dll", "hwnd", "GetAncestor", "hwnd", $hWnd, "uint", $iFlags) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetClassInfoEx($sClass, $hInstance = 0) Local $sTypeOfClass = 'ptr' If IsString($sClass) Then $sTypeOfClass = 'wstr' EndIf Local $tWNDCLASSEX = DllStructCreate($tagWNDCLASSEX) Local $aRet = DllCall('user32.dll', 'bool', 'GetClassInfoExW', 'handle', $hInstance, $sTypeOfClass, $sClass, 'struct*', $tWNDCLASSEX) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tWNDCLASSEX EndFunc Func _WinAPI_GetClassLongEx($hWnd, $iIndex) Local $aRet If @AutoItX64 Then $aRet = DllCall('user32.dll', 'ulong_ptr', 'GetClassLongPtrW', 'hwnd', $hWnd, 'int', $iIndex) Else $aRet = DllCall('user32.dll', 'dword', 'GetClassLongW', 'hwnd', $hWnd, 'int', $iIndex) EndIf If @error Or Not $aRet[0] Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetClientHeight($hWnd) Local $tRECT = _WinAPI_GetClientRect($hWnd) If @error Then Return SetError(@error, @extended, 0) Return DllStructGetData($tRECT, "Bottom") - DllStructGetData($tRECT, "Top") EndFunc Func _WinAPI_GetClientWidth($hWnd) Local $tRECT = _WinAPI_GetClientRect($hWnd) If @error Then Return SetError(@error, @extended, 0) Return DllStructGetData($tRECT, "Right") - DllStructGetData($tRECT, "Left") EndFunc Func _WinAPI_GetDlgItem($hWnd, $iItemID) Local $aResult = DllCall("user32.dll", "hwnd", "GetDlgItem", "hwnd", $hWnd, "int", $iItemID) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetForegroundWindow() Local $aResult = DllCall("user32.dll", "hwnd", "GetForegroundWindow") If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetGUIThreadInfo($iThreadId) Local Const $tagGUITHREADINFO = 'dword Size;dword Flags;hwnd hWndActive;hwnd hWndFocus;hwnd hWndCapture;hwnd hWndMenuOwner;hwnd hWndMoveSize;hwnd hWndCaret;struct rcCaret;long left;long top;long right;long bottom;endstruct' Local $tGTI = DllStructCreate($tagGUITHREADINFO) DllStructSetData($tGTI, 1, DllStructGetSize($tGTI)) Local $aRet = DllCall('user32.dll', 'bool', 'GetGUIThreadInfo', 'dword', $iThreadId, 'struct*', $tGTI) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Local $aResult[11] For $i = 0 To 10 $aResult[$i] = DllStructGetData($tGTI, $i + 2) Next For $i = 9 To 10 $aResult[$i] -= $aResult[$i - 2] Next Return $aResult EndFunc Func _WinAPI_GetLastActivePopup($hWnd) Local $aRet = DllCall('user32.dll', 'hwnd', 'GetLastActivePopup', 'hwnd', $hWnd) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) If $aRet[0] = $hWnd Then Return SetError(1, 0, 0) Return $aRet[0] EndFunc Func _WinAPI_GetLayeredWindowAttributes($hWnd, ByRef $iTransColor, ByRef $iTransGUI, $bColorRef = False) $iTransColor = -1 $iTransGUI = -1 Local $aResult = DllCall("user32.dll", "bool", "GetLayeredWindowAttributes", "hwnd", $hWnd, "INT*", $iTransColor, "byte*", $iTransGUI, "dword*", 0) If @error Or Not $aResult[0] Then Return SetError(@error, @extended, 0) If Not $bColorRef Then $aResult[2] = Int(BinaryMid($aResult[2], 3, 1) & BinaryMid($aResult[2], 2, 1) & BinaryMid($aResult[2], 1, 1)) EndIf $iTransColor = $aResult[2] $iTransGUI = $aResult[3] Return $aResult[4] EndFunc Func _WinAPI_GetMessageExtraInfo() Local $aRet = DllCall('user32.dll', 'lparam', 'GetMessageExtraInfo') If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetShellWindow() Local $aRet = DllCall('user32.dll', 'hwnd', 'GetShellWindow') If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetTopWindow($hWnd) Local $aRet = DllCall('user32.dll', 'hwnd', 'GetTopWindow', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetWindowDisplayAffinity($hWnd) Local $aRet = DllCall('user32.dll', 'bool', 'GetWindowDisplayAffinity', 'hwnd', $hWnd, 'dword*', 0) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $aRet[2] EndFunc Func _WinAPI_GetWindowInfo($hWnd) Local $tWINDOWINFO = DllStructCreate($tagWINDOWINFO) DllStructSetData($tWINDOWINFO, 'Size', DllStructGetSize($tWINDOWINFO)) Local $aRet = DllCall('user32.dll', 'bool', 'GetWindowInfo', 'hwnd', $hWnd, 'struct*', $tWINDOWINFO) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tWINDOWINFO EndFunc Func _WinAPI_GetWindowPlacement($hWnd) Local $tWindowPlacement = DllStructCreate($tagWINDOWPLACEMENT) DllStructSetData($tWindowPlacement, "length", DllStructGetSize($tWindowPlacement)) Local $aRet = DllCall("user32.dll", "bool", "GetWindowPlacement", "hwnd", $hWnd, "struct*", $tWindowPlacement) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tWindowPlacement EndFunc Func _WinAPI_IsChild($hWnd, $hWndParent) Local $aRet = DllCall('user32.dll', 'bool', 'IsChild', 'hwnd', $hWndParent, 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_IsHungAppWindow($hWnd) Local $aRet = DllCall('user32.dll', 'bool', 'IsHungAppWindow', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_IsIconic($hWnd) Local $aRet = DllCall('user32.dll', 'bool', 'IsIconic', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_IsWindowUnicode($hWnd) Local $aRet = DllCall('user32.dll', 'bool', 'IsWindowUnicode', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_IsZoomed($hWnd) Local $aRet = DllCall('user32.dll', 'bool', 'IsZoomed', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_KillTimer($hWnd, $iTimerID) Local $aRet = DllCall('user32.dll', 'bool', 'KillTimer', 'hwnd', $hWnd, 'uint_ptr', $iTimerID) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_OpenIcon($hWnd) Local $aRet = DllCall('user32.dll', 'bool', 'OpenIcon', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_PostMessage($hWnd, $iMsg, $wParam, $lParam) Local $aResult = DllCall("user32.dll", "bool", "PostMessage", "hwnd", $hWnd, "uint", $iMsg, "wparam", $wParam, "lparam", $lParam) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_RegisterClass($tWNDCLASS) Local $aRet = DllCall('user32.dll', 'word', 'RegisterClassW', 'struct*', $tWNDCLASS) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_RegisterClassEx($tWNDCLASSEX) Local $aRet = DllCall('user32.dll', 'word', 'RegisterClassExW', 'struct*', $tWNDCLASSEX) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_RegisterShellHookWindow($hWnd) Local $aRet = DllCall('user32.dll', 'bool', 'RegisterShellHookWindow', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_RegisterWindowMessage($sMessage) Local $aResult = DllCall("user32.dll", "uint", "RegisterWindowMessageW", "wstr", $sMessage) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_SendMessageTimeout($hWnd, $iMsg, $wParam = 0, $lParam = 0, $iTimeout = 1000, $iFlags = 0) Local $aRet = DllCall('user32.dll', 'lresult', 'SendMessageTimeoutW', 'hwnd', $hWnd, 'uint', $iMsg, 'wparam', $wParam, 'lparam', $lParam, 'uint', $iFlags, 'uint', $iTimeout, 'dword_ptr*', 0) If @error Then Return SetError(@error, @extended, -1) If Not $aRet[0] Then Return SetError(10, _WinAPI_GetLastError(), -1) Return $aRet[7] EndFunc Func _WinAPI_SetClassLongEx($hWnd, $iIndex, $iNewLong) Local $aRet If @AutoItX64 Then $aRet = DllCall('user32.dll', 'ulong_ptr', 'SetClassLongPtrW', 'hwnd', $hWnd, 'int', $iIndex, 'long_ptr', $iNewLong) Else $aRet = DllCall('user32.dll', 'dword', 'SetClassLongW', 'hwnd', $hWnd, 'int', $iIndex, 'long', $iNewLong) EndIf If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetForegroundWindow($hWnd) Local $aRet = DllCall('user32.dll', 'bool', 'SetForegroundWindow', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetLayeredWindowAttributes($hWnd, $iTransColor, $iTransGUI = 255, $iFlags = 0x03, $bColorRef = False) If $iFlags = Default Or $iFlags = "" Or $iFlags < 0 Then $iFlags = 0x03 If Not $bColorRef Then $iTransColor = Int(BinaryMid($iTransColor, 3, 1) & BinaryMid($iTransColor, 2, 1) & BinaryMid($iTransColor, 1, 1)) EndIf Local $aResult = DllCall("user32.dll", "bool", "SetLayeredWindowAttributes", "hwnd", $hWnd, "INT", $iTransColor, "byte", $iTransGUI, "dword", $iFlags) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_SetMessageExtraInfo($lParam) Local $aRet = DllCall('user32.dll', 'lparam', 'SetMessageExtraInfo', 'lparam', $lParam) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetSysColors($vElements, $vColors) Local $bIsEArray = IsArray($vElements), $bIsCArray = IsArray($vColors) Local $iElementNum If Not $bIsCArray And Not $bIsEArray Then $iElementNum = 1 ElseIf $bIsCArray Or $bIsEArray Then If Not $bIsCArray Or Not $bIsEArray Then Return SetError(-1, -1, False) If UBound($vElements) <> UBound($vColors) Then Return SetError(-1, -1, False) $iElementNum = UBound($vElements) EndIf Local $tElements = DllStructCreate("int Element[" & $iElementNum & "]") Local $tColors = DllStructCreate("INT NewColor[" & $iElementNum & "]") If Not $bIsEArray Then DllStructSetData($tElements, "Element", $vElements, 1) Else For $x = 0 To $iElementNum - 1 DllStructSetData($tElements, "Element", $vElements[$x], $x + 1) Next EndIf If Not $bIsCArray Then DllStructSetData($tColors, "NewColor", $vColors, 1) Else For $x = 0 To $iElementNum - 1 DllStructSetData($tColors, "NewColor", $vColors[$x], $x + 1) Next EndIf Local $aResult = DllCall("user32.dll", "bool", "SetSysColors", "int", $iElementNum, "struct*", $tElements, "struct*", $tColors) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_SetTimer($hWnd, $iTimerID, $iElapse, $pTimerFunc) Local $aRet = DllCall('user32.dll', 'uint_ptr', 'SetTimer', 'hwnd', $hWnd, 'uint_ptr', $iTimerID, 'uint', $iElapse, 'ptr', $pTimerFunc) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetWindowDisplayAffinity($hWnd, $iAffinity) Local $aRet = DllCall('user32.dll', 'bool', 'SetWindowDisplayAffinity', 'hwnd', $hWnd, 'dword', $iAffinity) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetWindowLong($hWnd, $iIndex, $iValue) _WinAPI_SetLastError(0) Local $sFuncName = "SetWindowLongW" If @AutoItX64 Then $sFuncName = "SetWindowLongPtrW" Local $aResult = DllCall("user32.dll", "long_ptr", $sFuncName, "hwnd", $hWnd, "int", $iIndex, "long_ptr", $iValue) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_SetWindowPlacement($hWnd, $tWindowPlacement) Local $aResult = DllCall("user32.dll", "bool", "SetWindowPlacement", "hwnd", $hWnd, "struct*", $tWindowPlacement) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_ShowOwnedPopups($hWnd, $bShow) Local $aRet = DllCall('user32.dll', 'bool', 'ShowOwnedPopups', 'hwnd', $hWnd, 'bool', $bShow) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SwitchToThisWindow($hWnd, $bAltTab = False) DllCall('user32.dll', 'none', 'SwitchToThisWindow', 'hwnd', $hWnd, 'bool', $bAltTab) If @error Then Return SetError(@error, @extended, 0) Return 1 EndFunc Func _WinAPI_TileWindows($aWnds, $tRECT = 0, $hParent = 0, $iFlags = 0, $iStart = 0, $iEnd = -1) If __CheckErrorArrayBounds($aWnds, $iStart, $iEnd) Then Return SetError(@error + 10, @extended, 0) Local $iCount = $iEnd - $iStart + 1 Local $tWnds = DllStructCreate('hwnd[' & $iCount & ']') $iCount = 1 For $i = $iStart To $iEnd DllStructSetData($tWnds, 1, $aWnds[$i], $iCount) $iCount += 1 Next Local $aRet = DllCall('user32.dll', 'word', 'TileWindows', 'hwnd', $hParent, 'uint', $iFlags, 'struct*', $tRECT, 'uint', $iCount - 1, 'struct*', $tWnds) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_UnregisterClass($sClass, $hInstance = 0) Local $sTypeOfClass = 'ptr' If IsString($sClass) Then $sTypeOfClass = 'wstr' EndIf Local $aRet = DllCall('user32.dll', 'bool', 'UnregisterClassW', $sTypeOfClass, $sClass, 'handle', $hInstance) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_UpdateLayeredWindow($hWnd, $hDestDC, $tPTDest, $tSize, $hSrcDC, $tPTSrce, $iRGB, $tBlend, $iFlags) Local $aResult = DllCall("user32.dll", "bool", "UpdateLayeredWindow", "hwnd", $hWnd, "handle", $hDestDC, "struct*", $tPTDest, "struct*", $tSize, "handle", $hSrcDC, "struct*", $tPTSrce, "dword", $iRGB, "struct*", $tBlend, "dword", $iFlags) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_UpdateLayeredWindowEx($hWnd, $iX, $iY, $hBitmap, $iOpacity = 255, $bDelete = False) Local $aRet = DllCall('user32.dll', 'handle', 'GetDC', 'hwnd', $hWnd) Local $hDC = $aRet[0] $aRet = DllCall('gdi32.dll', 'handle', 'CreateCompatibleDC', 'handle', $hDC) Local $hDestDC = $aRet[0] $aRet = DllCall('gdi32.dll', 'handle', 'SelectObject', 'handle', $hDestDC, 'handle', $hBitmap) Local $hDestSv = $aRet[0] Local $tPOINT If ($iX = -1) And ($iY = -1) Then $tPOINT = DllStructCreate('int;int') Else $tPOINT = DllStructCreate('int;int;int;int') DllStructSetData($tPOINT, 3, $iX) DllStructSetData($tPOINT, 4, $iY) EndIf DllStructSetData($tPOINT, 1, 0) DllStructSetData($tPOINT, 2, 0) Local $tBLENDFUNCTION = DllStructCreate($tagBLENDFUNCTION) DllStructSetData($tBLENDFUNCTION, 1, 0) DllStructSetData($tBLENDFUNCTION, 2, 0) DllStructSetData($tBLENDFUNCTION, 3, $iOpacity) DllStructSetData($tBLENDFUNCTION, 4, 1) Local Const $tagBITMAP = 'struct;long bmType;long bmWidth;long bmHeight;long bmWidthBytes;ushort bmPlanes;ushort bmBitsPixel;ptr bmBits;endstruct' Local $tObj = DllStructCreate($tagBITMAP) DllCall('gdi32.dll', 'int', 'GetObject', 'handle', $hBitmap, 'int', DllStructGetSize($tObj), 'struct*', $tObj) Local $tSize = DllStructCreate($tagSIZE, DllStructGetPtr($tObj, "bmWidth")) $aRet = DllCall('user32.dll', 'bool', 'UpdateLayeredWindow', 'hwnd', $hWnd, 'handle', $hDC, 'ptr', DllStructGetPtr($tPOINT, 3), 'struct*', $tSIZE, 'handle', $hDestDC, 'struct*', $tPOINT, 'dword', 0, 'struct*', $tBLENDFUNCTION, 'dword', 0x02) Local $iError = @error DllCall('user32.dll', 'bool', 'ReleaseDC', 'hwnd', $hWnd, 'handle', $hDC) DllCall('gdi32.dll', 'handle', 'SelectObject', 'handle', $hDestDC, 'handle', $hDestSv) DllCall('gdi32.dll', 'bool', 'DeleteDC', 'handle', $hDestDC) If $iError Then Return SetError($iError, 0, False) If $bDelete Then DllCall("gdi32.dll", "bool", "DeleteObject", "handle", $hBitmap) EndIf Return $aRet[0] EndFunc Func _WinAPI_UpdateLayeredWindowIndirect($hWnd, $tULWINFO) Local $aRet = DllCall('user32.dll', 'bool', 'UpdateLayeredWindowIndirect', 'hwnd', $hWnd, 'struct*', $tULWINFO) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_WindowFromPoint(ByRef $tPoint) Local $aResult = DllCall("user32.dll", "hwnd", "WindowFromPoint", "struct", $tPoint) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc #EndRegion Public Functions #Region Internal Functions Func __EnumDefaultProc($pData, $lParam) #forceref $lParam Local $iLength = _WinAPI_StrLen($pData) __Inc($__g_vEnum) If $iLength Then $__g_vEnum[$__g_vEnum[0]] = DllStructGetData(DllStructCreate('wchar[' & ($iLength + 1) & ']', $pData), 1) Else $__g_vEnum[$__g_vEnum[0]] = '' EndIf Return 1 EndFunc #EndRegion Internal Functions Global Const $GDIP_DASHCAPFLAT = 0 Global Const $GDIP_DASHCAPROUND = 2 Global Const $GDIP_DASHCAPTRIANGLE = 3 Global Const $GDIP_DASHSTYLESOLID = 0 Global Const $GDIP_DASHSTYLEDASH = 1 Global Const $GDIP_DASHSTYLEDOT = 2 Global Const $GDIP_DASHSTYLEDASHDOT = 3 Global Const $GDIP_DASHSTYLEDASHDOTDOT = 4 Global Const $GDIP_DASHSTYLECUSTOM = 5 Global Const $GDIP_EPGCHROMINANCETABLE = '{F2E455DC-09B3-4316-8260-676ADA32481C}' Global Const $GDIP_EPGCOLORDEPTH = '{66087055-AD66-4C7C-9A18-38A2310B8337}' Global Const $GDIP_EPGCOMPRESSION = '{E09D739D-CCD4-44EE-8EBA-3FBF8BE4FC58}' Global Const $GDIP_EPGLUMINANCETABLE = '{EDB33BCE-0266-4A77-B904-27216099E717}' Global Const $GDIP_EPGQUALITY = '{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}' Global Const $GDIP_EPGRENDERMETHOD = '{6D42C53A-229A-4825-8BB7-5C99E2B9A8B8}' Global Const $GDIP_EPGSAVEFLAG = '{292266FC-AC40-47BF-8CFC-A85B89A655DE}' Global Const $GDIP_EPGSCANMETHOD = '{3A4E2661-3109-4E56-8536-42C156E7DCFA}' Global Const $GDIP_EPGTRANSFORMATION = '{8D0EB2D1-A58E-4EA8-AA14-108074B7B6F9}' Global Const $GDIP_EPGVERSION = '{24D18C76-814A-41A4-BF53-1C219CCCF797}' Global Const $GDIP_EPTBYTE = 1 Global Const $GDIP_EPTASCII = 2 Global Const $GDIP_EPTSHORT = 3 Global Const $GDIP_EPTLONG = 4 Global Const $GDIP_EPTRATIONAL = 5 Global Const $GDIP_EPTLONGRANGE = 6 Global Const $GDIP_EPTUNDEFINED = 7 Global Const $GDIP_EPTRATIONALRANGE = 8 Global Const $GDIP_ERROK = 0 Global Const $GDIP_ERRGENERICERROR = 1 Global Const $GDIP_ERRINVALIDPARAMETER = 2 Global Const $GDIP_ERROUTOFMEMORY = 3 Global Const $GDIP_ERROBJECTBUSY = 4 Global Const $GDIP_ERRINSUFFICIENTBUFFER = 5 Global Const $GDIP_ERRNOTIMPLEMENTED = 6 Global Const $GDIP_ERRWIN32ERROR = 7 Global Const $GDIP_ERRWRONGSTATE = 8 Global Const $GDIP_ERRABORTED = 9 Global Const $GDIP_ERRFILENOTFOUND = 10 Global Const $GDIP_ERRVALUEOVERFLOW = 11 Global Const $GDIP_ERRACCESSDENIED = 12 Global Const $GDIP_ERRUNKNOWNIMAGEFORMAT = 13 Global Const $GDIP_ERRFONTFAMILYNOTFOUND = 14 Global Const $GDIP_ERRFONTSTYLENOTFOUND = 15 Global Const $GDIP_ERRNOTTRUETYPEFONT = 16 Global Const $GDIP_ERRUNSUPPORTEDGDIVERSION = 17 Global Const $GDIP_ERRGDIPLUSNOTINITIALIZED = 18 Global Const $GDIP_ERRPROPERTYNOTFOUND = 19 Global Const $GDIP_ERRPROPERTYNOTSUPPORTED = 20 Global Const $GDIP_EVTCOMPRESSIONLZW = 2 Global Const $GDIP_EVTCOMPRESSIONCCITT3 = 3 Global Const $GDIP_EVTCOMPRESSIONCCITT4 = 4 Global Const $GDIP_EVTCOMPRESSIONRLE = 5 Global Const $GDIP_EVTCOMPRESSIONNONE = 6 Global Const $GDIP_EVTTRANSFORMROTATE90 = 13 Global Const $GDIP_EVTTRANSFORMROTATE180 = 14 Global Const $GDIP_EVTTRANSFORMROTATE270 = 15 Global Const $GDIP_EVTTRANSFORMFLIPHORIZONTAL = 16 Global Const $GDIP_EVTTRANSFORMFLIPVERTICAL = 17 Global Const $GDIP_EVTMULTIFRAME = 18 Global Const $GDIP_EVTLASTFRAME = 19 Global Const $GDIP_EVTFLUSH = 20 Global Const $GDIP_EVTFRAMEDIMENSIONPAGE = 23 Global Const $GDIP_ICFENCODER = 0x00000001 Global Const $GDIP_ICFDECODER = 0x00000002 Global Const $GDIP_ICFSUPPORTBITMAP = 0x00000004 Global Const $GDIP_ICFSUPPORTVECTOR = 0x00000008 Global Const $GDIP_ICFSEEKABLEENCODE = 0x00000010 Global Const $GDIP_ICFBLOCKINGDECODE = 0x00000020 Global Const $GDIP_ICFBUILTIN = 0x00010000 Global Const $GDIP_ICFSYSTEM = 0x00020000 Global Const $GDIP_ICFUSER = 0x00040000 Global Const $GDIP_ILMREAD = 0x0001 Global Const $GDIP_ILMWRITE = 0x0002 Global Const $GDIP_ILMUSERINPUTBUF = 0x0004 Global Const $GDIP_LINECAPFLAT = 0x00 Global Const $GDIP_LINECAPSQUARE = 0x01 Global Const $GDIP_LINECAPROUND = 0x02 Global Const $GDIP_LINECAPTRIANGLE = 0x03 Global Const $GDIP_LINECAPNOANCHOR = 0x10 Global Const $GDIP_LINECAPSQUAREANCHOR = 0x11 Global Const $GDIP_LINECAPROUNDANCHOR = 0x12 Global Const $GDIP_LINECAPDIAMONDANCHOR = 0x13 Global Const $GDIP_LINECAPARROWANCHOR = 0x14 Global Const $GDIP_LINECAPCUSTOM = 0xFF Global Const $GDIP_PXF01INDEXED = 0x00030101 Global Const $GDIP_PXF04INDEXED = 0x00030402 Global Const $GDIP_PXF08INDEXED = 0x00030803 Global Const $GDIP_PXF16GRAYSCALE = 0x00101004 Global Const $GDIP_PXF16RGB555 = 0x00021005 Global Const $GDIP_PXF16RGB565 = 0x00021006 Global Const $GDIP_PXF16ARGB1555 = 0x00061007 Global Const $GDIP_PXF24RGB = 0x00021808 Global Const $GDIP_PXF32RGB = 0x00022009 Global Const $GDIP_PXF32ARGB = 0x0026200A Global Const $GDIP_PXF32PARGB = 0x000E200B Global Const $GDIP_PXF48RGB = 0x0010300C Global Const $GDIP_PXF64ARGB = 0x0034400D Global Const $GDIP_PXF64PARGB = 0x001A400E Global Const $GDIP_IMAGEFORMAT_UNDEFINED = "{B96B3CA9-0728-11D3-9D7B-0000F81EF32E}" Global Const $GDIP_IMAGEFORMAT_MEMORYBMP = "{B96B3CAA-0728-11D3-9D7B-0000F81EF32E}" Global Const $GDIP_IMAGEFORMAT_BMP = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}" Global Const $GDIP_IMAGEFORMAT_EMF = "{B96B3CAC-0728-11D3-9D7B-0000F81EF32E}" Global Const $GDIP_IMAGEFORMAT_WMF = "{B96B3CAD-0728-11D3-9D7B-0000F81EF32E}" Global Const $GDIP_IMAGEFORMAT_JPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}" Global Const $GDIP_IMAGEFORMAT_PNG = "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}" Global Const $GDIP_IMAGEFORMAT_GIF = "{B96B3CB0-0728-11D3-9D7B-0000F81EF32E}" Global Const $GDIP_IMAGEFORMAT_TIFF = "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}" Global Const $GDIP_IMAGEFORMAT_EXIF = "{B96B3CB2-0728-11D3-9D7B-0000F81EF32E}" Global Const $GDIP_IMAGEFORMAT_ICON = "{B96B3CB5-0728-11D3-9D7B-0000F81EF32E}" Global Const $GDIP_IMAGETYPE_UNKNOWN = 0 Global Const $GDIP_IMAGETYPE_BITMAP = 1 Global Const $GDIP_IMAGETYPE_METAFILE = 2 Global Const $GDIP_IMAGEFLAGS_NONE = 0x0 Global Const $GDIP_IMAGEFLAGS_SCALABLE = 0x0001 Global Const $GDIP_IMAGEFLAGS_HASALPHA = 0x0002 Global Const $GDIP_IMAGEFLAGS_HASTRANSLUCENT = 0x0004 Global Const $GDIP_IMAGEFLAGS_PARTIALLYSCALABLE = 0x0008 Global Const $GDIP_IMAGEFLAGS_COLORSPACE_RGB = 0x0010 Global Const $GDIP_IMAGEFLAGS_COLORSPACE_CMYK = 0x0020 Global Const $GDIP_IMAGEFLAGS_COLORSPACE_GRAY = 0x0040 Global Const $GDIP_IMAGEFLAGS_COLORSPACE_YCBCR = 0x0080 Global Const $GDIP_IMAGEFLAGS_COLORSPACE_YCCK = 0x0100 Global Const $GDIP_IMAGEFLAGS_HASREALDPI = 0x1000 Global Const $GDIP_IMAGEFLAGS_HASREALPIXELSIZE = 0x2000 Global Const $GDIP_IMAGEFLAGS_READONLY = 0x00010000 Global Const $GDIP_IMAGEFLAGS_CACHING = 0x00020000 Global Const $GDIP_SMOOTHINGMODE_INVALID = -1 Global Const $GDIP_SMOOTHINGMODE_DEFAULT = 0 Global Const $GDIP_SMOOTHINGMODE_HIGHSPEED = 1 Global Const $GDIP_SMOOTHINGMODE_HIGHQUALITY = 2 Global Const $GDIP_SMOOTHINGMODE_NONE = 3 Global Const $GDIP_SMOOTHINGMODE_ANTIALIAS8X4 = 4 Global Const $GDIP_SMOOTHINGMODE_ANTIALIAS = $GDIP_SMOOTHINGMODE_ANTIALIAS8X4 Global Const $GDIP_SMOOTHINGMODE_ANTIALIAS8X8 = 5 Global Const $GDIP_RLUM = 0.3086 Global Const $GDIP_GLUM = 0.6094 Global Const $GDIP_BLUM = 0.0820 Global Const $GDIP_INTERPOLATIONMODE_INVALID = -1 Global Const $GDIP_INTERPOLATIONMODE_DEFAULT = 0 Global Const $GDIP_INTERPOLATIONMODE_LOWQUALITY = 1 Global Const $GDIP_INTERPOLATIONMODE_HIGHQUALITY = 2 Global Const $GDIP_INTERPOLATIONMODE_BILINEAR = 3 Global Const $GDIP_INTERPOLATIONMODE_BICUBIC = 4 Global Const $GDIP_INTERPOLATIONMODE_NEARESTNEIGHBOR = 5 Global Const $GDIP_INTERPOLATIONMODE_HIGHQUALITYBILINEAR = 6 Global Const $GDIP_INTERPOLATIONMODE_HIGHQUALITYBICUBIC = 7 Global Const $GDIP_TEXTRENDERINGHINT_SYSTEMDEFAULT = 0 Global Const $GDIP_TEXTRENDERINGHINT_SINGLEBITPERPIXELGRIDFIT = 1 Global Const $GDIP_TEXTRENDERINGHINT_SINGLEBITPERPIXEL = 2 Global Const $GDIP_TEXTRENDERINGHINT_ANTIALIASGRIDFIT = 3 Global Const $GDIP_TEXTRENDERINGHINT_ANTIALIAS = 4 Global Const $GDIP_TEXTRENDERINGHINT_CLEARTYPEGRIDFIT = 5 Global Const $GDIP_PIXELOFFSETMODE_INVALID = -1 Global Const $GDIP_PIXELOFFSETMODE_DEFAULT = 0 Global Const $GDIP_PIXELOFFSETMODE_HIGHSPEED = 1 Global Const $GDIP_PIXELOFFSETMODE_HIGHQUALITY = 2 Global Const $GDIP_PIXELOFFSETMODE_NONE = 3 Global Const $GDIP_PIXELOFFSETMODE_HALF = 4 Global Const $GDIP_PENSETLINEJOIN_MITER = 0 Global Const $GDIP_PENSETLINEJOIN_BEVEL = 1 Global Const $GDIP_PENSETLINEJOIN_ROUND = 2 Global Const $GDIP_PENSETLINEJOIN_MITERCLIPPED = 3 Global Const $GDIP_FillModeAlternate = 0 Global Const $GDIP_FillModeWinding = 1 Global Const $GDIP_QUALITYMODEINVALID = -1 Global Const $GDIP_QUALITYMODEDEFAULT = 0 Global Const $GDIP_QUALITYMODELOW = 1 Global Const $GDIP_QUALITYMODEHIGH = 2 Global Const $GDIP_COMPOSITINGMODESOURCEOVER = 0 Global Const $GDIP_COMPOSITINGMODESOURCECOPY = 1 Global Const $GDIP_COMPOSITINGQUALITYINVALID = $GDIP_QUALITYMODEINVALID Global Const $GDIP_COMPOSITINGQUALITYDEFAULT = $GDIP_QUALITYMODEDEFAULT Global Const $GDIP_COMPOSITINGQUALITYHIGHSPEED = $GDIP_QUALITYMODELOW Global Const $GDIP_COMPOSITINGQUALITYHIGHQUALITY = $GDIP_QUALITYMODEHIGH Global Const $GDIP_COMPOSITINGQUALITYGAMMACORRECTED = 3 Global Const $GDIP_COMPOSITINGQUALITYASSUMELINEAR = 4 Global Const $GDIP_HATCHSTYLE_HORIZONTAL = 0 Global Const $GDIP_HATCHSTYLE_VERTICAL = 1 Global Const $GDIP_HATCHSTYLE_FORWARDDIAGONAL = 2 Global Const $GDIP_HATCHSTYLE_BACKWARDDIAGONAL = 3 Global Const $GDIP_HATCHSTYLE_CROSS = 4 Global Const $GDIP_HATCHSTYLE_DIAGONALCROSS = 5 Global Const $GDIP_HATCHSTYLE_05PERCENT = 6 Global Const $GDIP_HATCHSTYLE_10PERCENT = 7 Global Const $GDIP_HATCHSTYLE_20PERCENT = 8 Global Const $GDIP_HATCHSTYLE_25PERCENT = 9 Global Const $GDIP_HATCHSTYLE_30PERCENT = 10 Global Const $GDIP_HATCHSTYLE_40PERCENT = 11 Global Const $GDIP_HATCHSTYLE_50PERCENT = 12 Global Const $GDIP_HATCHSTYLE_60PERCENT = 13 Global Const $GDIP_HATCHSTYLE_70PERCENT = 14 Global Const $GDIP_HATCHSTYLE_75PERCENT = 15 Global Const $GDIP_HATCHSTYLE_80PERCENT = 16 Global Const $GDIP_HATCHSTYLE_90PERCENT = 17 Global Const $GDIP_HATCHSTYLE_LIGHTDOWNWARDDIAGONAL = 18 Global Const $GDIP_HATCHSTYLE_LIGHTUPWARDDIAGONAL = 19 Global Const $GDIP_HATCHSTYLE_DARKDOWNWARDDIAGONAL = 20 Global Const $GDIP_HATCHSTYLE_DARKUPWARDDIAGONAL = 21 Global Const $GDIP_HATCHSTYLE_WIDEDOWNWARDDIAGONAL = 22 Global Const $GDIP_HATCHSTYLE_WIDEUPWARDDIAGONAL = 23 Global Const $GDIP_HATCHSTYLE_LIGHTVERTICAL = 24 Global Const $GDIP_HATCHSTYLE_LIGHTHORIZONTAL = 25 Global Const $GDIP_HATCHSTYLE_NARROWVERTICAL = 26 Global Const $GDIP_HATCHSTYLE_NARROWHORIZONTAL = 27 Global Const $GDIP_HATCHSTYLE_DARKVERTICAL = 28 Global Const $GDIP_HATCHSTYLE_DARKHORIZONTAL = 29 Global Const $GDIP_HATCHSTYLE_DASHEDDOWNWARDDIAGONAL = 30 Global Const $GDIP_HATCHSTYLE_DASHEDUPWARDDIAGONAL = 31 Global Const $GDIP_HATCHSTYLE_DASHEDHORIZONTAL = 32 Global Const $GDIP_HATCHSTYLE_DASHEDVERTICAL = 33 Global Const $GDIP_HATCHSTYLE_SMALLCONFETTI = 34 Global Const $GDIP_HATCHSTYLE_LARGECONFETTI = 35 Global Const $GDIP_HATCHSTYLE_ZIGZAG = 36 Global Const $GDIP_HATCHSTYLE_WAVE = 37 Global Const $GDIP_HATCHSTYLE_DIAGONALBRICK = 38 Global Const $GDIP_HATCHSTYLE_HORIZONTALBRICK = 39 Global Const $GDIP_HATCHSTYLE_WEAVE = 40 Global Const $GDIP_HATCHSTYLE_PLAID = 41 Global Const $GDIP_HATCHSTYLE_DIVOT = 42 Global Const $GDIP_HATCHSTYLE_DOTTEDGRID = 43 Global Const $GDIP_HATCHSTYLE_DOTTEDDIAMOND = 44 Global Const $GDIP_HATCHSTYLE_SHINGLE = 45 Global Const $GDIP_HATCHSTYLE_TRELLIS = 46 Global Const $GDIP_HATCHSTYLE_SPHERE = 47 Global Const $GDIP_HATCHSTYLE_SMALLGRID = 48 Global Const $GDIP_HATCHSTYLE_SMALLCHECKERBOARD = 49 Global Const $GDIP_HATCHSTYLE_LARGECHECKERBOARD = 50 Global Const $GDIP_HATCHSTYLE_OUTLINEDDIAMOND = 51 Global Const $GDIP_HATCHSTYLE_SOLIDDIAMOND = 52 Global Const $GDIP_HATCHSTYLE_TOTAL = 53 Global Const $GDIP_HATCHSTYLE_LARGEGRID = $GDIP_HATCHSTYLE_CROSS Global Const $GDIP_HATCHSTYLE_MIN = $GDIP_HATCHSTYLE_HORIZONTAL Global Const $GDIP_HATCHSTYLE_MAX = $GDIP_HATCHSTYLE_TOTAL - 1 Global Const $GDIP_BlurEffectGuid = '{633C80A4-1843-482b-9EF2-BE2834C5FDD4}' Global Const $GDIP_SharpenEffectGuid = '{63CBF3EE-C526-402c-8F71-62C540BF5142}' Global Const $GDIP_ColorMatrixEffectGuid = '{718F2615-7933-40e3-A511-5F68FE14DD74}' Global Const $GDIP_ColorLUTEffectGuid = '{A7CE72A9-0F7F-40d7-B3CC-D0C02D5C3212}' Global Const $GDIP_BrightnessContrastEffectGuid = '{D3A1DBE1-8EC4-4c17-9F4C-EA97AD1C343D}' Global Const $GDIP_HueSaturationLightnessEffectGuid = '{8B2DD6C3-EB07-4d87-A5F0-7108E26A9C5F}' Global Const $GDIP_LevelsEffectGuid = '{99C354EC-2A31-4f3a-8C34-17A803B33A25}' Global Const $GDIP_TintEffectGuid = '{1077AF00-2848-4441-9489-44AD4C2D7A2C}' Global Const $GDIP_ColorBalanceEffectGuid = '{537E597D-251E-48da-9664-29CA496B70F8}' Global Const $GDIP_RedEyeCorrectionEffectGuid = '{74D29D05-69A4-4266-9549-3CC52836B632}' Global Const $GDIP_ColorCurveEffectGuid = '{DD6A0022-58E4-4a67-9D9B-D48EB881A53D}' Global Const $GDIP_AdjustExposure = 0 Global Const $GDIP_AdjustDensity = 1 Global Const $GDIP_AdjustContrast = 2 Global Const $GDIP_AdjustHighlight = 3 Global Const $GDIP_AdjustShadow = 4 Global Const $GDIP_AdjustMidtone = 5 Global Const $GDIP_AdjustWhiteSaturation = 6 Global Const $GDIP_AdjustBlackSaturation = 7 Global Const $GDIP_CurveChannelAll = 0 Global Const $GDIP_CurveChannelRed = 1 Global Const $GDIP_CurveChannelGreen = 2 Global Const $GDIP_CurveChannelBlue = 3 Global Const $GDIP_PaletteTypeCustom = 0 Global Const $GDIP_PaletteTypeOptimal = 1 Global Const $GDIP_PaletteTypeFixedBW = 2 Global Const $GDIP_PaletteTypeFixedHalftone8 = 3 Global Const $GDIP_PaletteTypeFixedHalftone27 = 4 Global Const $GDIP_PaletteTypeFixedHalftone64 = 5 Global Const $GDIP_PaletteTypeFixedHalftone125 = 6 Global Const $GDIP_PaletteTypeFixedHalftone216 = 7 Global Const $GDIP_PaletteTypeFixedHalftone252 = 8 Global Const $GDIP_PaletteTypeFixedHalftone256 = 9 Global Const $GDIP_PaletteFlagsHasAlpha = 0x0001 Global Const $GDIP_PaletteFlagsGrayScale = 0x0002 Global Const $GDIP_PaletteFlagsHalftone = 0x0004 Global Const $GDIP_DitherTypeNone = 0 Global Const $GDIP_DitherTypeSolid = 1 Global Const $GDIP_DitherTypeOrdered4x4 = 2 Global Const $GDIP_DitherTypeOrdered8x8 = 3 Global Const $GDIP_DitherTypeOrdered16x16 = 4 Global Const $GDIP_DitherTypeOrdered91x91 = 5 Global Const $GDIP_DitherTypeSpiral4x4 = 6 Global Const $GDIP_DitherTypeSpiral8x8 = 7 Global Const $GDIP_DitherTypeDualSpiral4x4 = 8 Global Const $GDIP_DitherTypeDualSpiral8x8 = 9 Global Const $GDIP_DitherTypeErrorDiffusion = 10 Global Const $GDIP_DitherTypeMax = 10 Global Const $GDIP_HistogramFormatARGB = 0 Global Const $GDIP_HistogramFormatPARGB = 1 Global Const $GDIP_HistogramFormatRGB = 2 Global Const $GDIP_HistogramFormatGray = 3 Global Const $GDIP_HistogramFormatB = 4 Global Const $GDIP_HistogramFormatG = 5 Global Const $GDIP_HistogramFormatR = 6 Global Const $GDIP_HistogramFormatA = 7 Global Const $GDIP_TextRenderingHintSystemDefault = 0 Global Const $GDIP_TextRenderingHintSingleBitPerPixelGridFit = 1 Global Const $GDIP_TextRenderingHintSingleBitPerPixel = 2 Global Const $GDIP_TextRenderingHintAntialiasGridFit = 3 Global Const $GDIP_TextRenderingHintAntialias = 4 Global Const $GDIP_TextRenderingHintClearTypeGridFit = 5 Global Const $GDIP_RotateNoneFlipNone = 0 Global Const $GDIP_Rotate90FlipNone = 1 Global Const $GDIP_Rotate180FlipNone = 2 Global Const $GDIP_Rotate270FlipNone = 3 Global Const $GDIP_RotateNoneFlipX = 4 Global Const $GDIP_Rotate90FlipX = 5 Global Const $GDIP_Rotate180FlipX = 6 Global Const $GDIP_Rotate270FlipX = 7 Global Const $GDIP_RotateNoneFlipY = $GDIP_Rotate180FlipX Global Const $GDIP_Rotate90FlipY = $GDIP_Rotate270FlipX Global Const $GDIP_Rotate180FlipY = $GDIP_RotateNoneFlipX Global Const $GDIP_Rotate270FlipY = $GDIP_Rotate90FlipX Global Const $GDIP_RotateNoneFlipXY = $GDIP_Rotate180FlipNone Global Const $GDIP_Rotate90FlipXY = $GDIP_Rotate270FlipNone Global Const $GDIP_Rotate270FlipXY = $GDIP_Rotate90FlipNone Global Const $GDIP_FRAMEDIMENSION_TIME = "{6AEDBD6D-3FB5-418A-83A6-7F45229DC872}" Global Const $GDIP_FRAMEDIMENSION_RESOLUTION = "{84236F7B-3BD3-428F-8DAB-4EA1439CA315}" Global Const $GDIP_FRAMEDIMENSION_PAGE = "{7462DC86-6180-4C7E-8E3F-EE7333A7A483}" Global Const $GDIP_COLORADJUSTTYPE_DEFAULT = 0 Global Const $GDIP_COLORADJUSTTYPE_BITMAP = 1 Global Const $GDIP_COLORADJUSTTYPE_BRUSH = 2 Global Const $GDIP_COLORADJUSTTYPE_PEN = 3 Global Const $GDIP_COLORADJUSTTYPE_TEXT = 4 Global Const $GDIP_COLORADJUSTTYPE_COUNT = 5 Global Const $GDIP_COLORADJUSTTYPE_ANY = 6 Global Const $COINIT_APARTMENTTHREADED = 0x02 Global Const $COINIT_DISABLE_OLE1DDE = 0x04 Global Const $COINIT_MULTITHREADED = 0x00 Global Const $COINIT_SPEED_OVER_MEMORY = 0x08 #Region Global Variables and Constants Global Const $__tagWinAPICom_GUID = "struct;ulong Data1;ushort Data2;ushort Data3;byte Data4[8];endstruct" #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list #Region Public Functions Func _WinAPI_CLSIDFromProgID($sProgID) Local $tGUID = DllStructCreate($__tagWinAPICom_GUID) Local $aReturn = DllCall('ole32.dll', 'long', 'CLSIDFromProgID', 'wstr', $sProgID, 'struct*', $tGUID) If @error Then Return SetError(@error, @extended, '') If $aReturn[0] Then Return SetError(10, $aReturn[0], '') $aReturn = DllCall('ole32.dll', 'int', 'StringFromGUID2', 'struct*', $tGUID, 'wstr', '', 'int', 39) If @error Or Not $aReturn[0] Then Return SetError(@error + 20, @extended, '') Return $aReturn[2] EndFunc Func _WinAPI_CoInitialize($iFlags = 0) Local $aReturn = DllCall('ole32.dll', 'long', 'CoInitializeEx', 'ptr', 0, 'dword', $iFlags) If @error Then Return SetError(@error, @extended, 0) If $aReturn[0] Then Return SetError(10, $aReturn[0], 0) Return 1 EndFunc Func _WinAPI_CoTaskMemAlloc($iSize) Local $aReturn = DllCall('ole32.dll', 'ptr', 'CoTaskMemAlloc', 'uint_ptr', $iSize) If @error Then Return SetError(@error, @extended, 0) Return $aReturn[0] EndFunc Func _WinAPI_CoTaskMemFree($pMemory) DllCall('ole32.dll', 'none', 'CoTaskMemFree', 'ptr', $pMemory) If @error Then Return SetError(@error, @extended, 0) Return 1 EndFunc Func _WinAPI_CoTaskMemRealloc($pMemory, $iSize) Local $aReturn = DllCall('ole32.dll', 'ptr', 'CoTaskMemRealloc', 'ptr', $pMemory, 'ulong_ptr', $iSize) If @error Then Return SetError(@error, @extended, 0) Return $aReturn[0] EndFunc Func _WinAPI_CoUninitialize() DllCall('ole32.dll', 'none', 'CoUninitialize') If @error Then Return SetError(@error, @extended, 0) Return 1 EndFunc Func _WinAPI_CreateGUID() Local $tGUID = DllStructCreate($__tagWinAPICom_GUID) Local $aReturn = DllCall('ole32.dll', 'long', 'CoCreateGuid', 'struct*', $tGUID) If @error Then Return SetError(@error, @extended, '') If $aReturn[0] Then Return SetError(10, $aReturn[0], '') $aReturn = DllCall('ole32.dll', 'int', 'StringFromGUID2', 'struct*', $tGUID, 'wstr', '', 'int', 65536) If @error Or Not $aReturn[0] Then Return SetError(@error + 20, @extended, '') Return $aReturn[2] EndFunc Func _WinAPI_CreateStreamOnHGlobal($hGlobal = 0, $bDeleteOnRelease = True) Local $aReturn = DllCall('ole32.dll', 'long', 'CreateStreamOnHGlobal', 'handle', $hGlobal, 'bool', $bDeleteOnRelease, 'ptr*', 0) If @error Then Return SetError(@error, @extended, 0) If $aReturn[0] Then Return SetError(10, $aReturn[0], 0) Return $aReturn[3] EndFunc Func _WinAPI_GetHGlobalFromStream($pStream) Local $aReturn = DllCall('ole32.dll', 'uint', 'GetHGlobalFromStream', 'ptr', $pStream, 'ptr*', 0) If @error Then Return SetError(@error, @extended, 0) If $aReturn[0] Then Return SetError(10, $aReturn[0], 0) Return $aReturn[2] EndFunc Func _WinAPI_ProgIDFromCLSID($sCLSID) Local $tGUID = DllStructCreate($__tagWinAPICom_GUID) Local $aReturn = DllCall('ole32.dll', 'uint', 'CLSIDFromString', 'wstr', $sCLSID, 'struct*', $tGUID) If @error Or $aReturn[0] Then Return SetError(@error + 20, @extended, '') $aReturn = DllCall('ole32.dll', 'uint', 'ProgIDFromCLSID', 'struct*', $tGUID, 'ptr*', 0) If @error Then Return SetError(@error, @extended, '') If $aReturn[0] Then Return SetError(10, $aReturn[0], '') Local $sID = _WinAPI_GetString($aReturn[2]) _WinAPI_CoTaskMemFree($aReturn[2]) Return $sID EndFunc Func _WinAPI_ReleaseStream($pStream) Local $aReturn = DllCall('oleaut32.dll', 'long', 'DispCallFunc', 'ptr', $pStream, 'ulong_ptr', 8 * (1 + @AutoItX64), 'uint', 4, 'ushort', 23, 'uint', 0, 'ptr', 0, 'ptr', 0, 'str', '') If @error Then Return SetError(@error, @extended, 0) If $aReturn[0] Then Return SetError(10, $aReturn[0], 0) Return 1 EndFunc #EndRegion Public Functions #Region Global Variables and Constants #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list #Region Public Functions Func _WinAPI_CharToOem($sStr) Local $aRet = DllCall('user32.dll', 'bool', 'CharToOemW', 'wstr', $sStr, 'wstr', '') If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, '') Return $aRet[2] EndFunc Func _WinAPI_ClientToScreen($hWnd, ByRef $tPoint) Local $aRet = DllCall("user32.dll", "bool", "ClientToScreen", "hwnd", $hWnd, "struct*", $tPoint) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tPoint EndFunc Func _WinAPI_DWordToFloat($iValue) Local $tDWord = DllStructCreate('dword') Local $tFloat = DllStructCreate('float', DllStructGetPtr($tDWord)) DllStructSetData($tDWord, 1, $iValue) Return DllStructGetData($tFloat, 1) EndFunc Func _WinAPI_DWordToInt($iValue) Local $tData = DllStructCreate('int') DllStructSetData($tData, 1, $iValue) Return DllStructGetData($tData, 1) EndFunc Func _WinAPI_FloatToDWord($iValue) Local $tFloat = DllStructCreate('float') Local $tDWord = DllStructCreate('dword', DllStructGetPtr($tFloat)) DllStructSetData($tFloat, 1, $iValue) Return DllStructGetData($tDWord, 1) EndFunc Func _WinAPI_FloatToInt($nFloat) Local $tFloat = DllStructCreate("float") Local $tInt = DllStructCreate("int", DllStructGetPtr($tFloat)) DllStructSetData($tFloat, 1, $nFloat) Return DllStructGetData($tInt, 1) EndFunc Func _WinAPI_GetXYFromPoint(ByRef $tPoint, ByRef $iX, ByRef $iY) $iX = DllStructGetData($tPoint, "X") $iY = DllStructGetData($tPoint, "Y") EndFunc Func _WinAPI_GUIDFromString($sGUID) Local $tGUID = DllStructCreate($tagGUID) _WinAPI_GUIDFromStringEx($sGUID, $tGUID) If @error Then Return SetError(@error + 10, @extended, 0) Return $tGUID EndFunc Func _WinAPI_GUIDFromStringEx($sGUID, $tGUID) Local $aResult = DllCall("ole32.dll", "long", "CLSIDFromString", "wstr", $sGUID, "struct*", $tGUID) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_HashData($pMemory, $iSize, $iLength = 32) If ($iLength <= 0) Or ($iLength > 256) Then Return SetError(11, 0, 0) Local $tData = DllStructCreate('byte[' & $iLength & ']') Local $aRet = DllCall('shlwapi.dll', 'uint', 'HashData', 'struct*', $pMemory, 'dword', $iSize, 'struct*', $tData, 'dword', $iLength) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return DllStructGetData($tData, 1) EndFunc Func _WinAPI_HashString($sString, $bCaseSensitive = True, $iLength = 32) Local $iLengthS = StringLen($sString) If Not $iLengthS Or ($iLength > 256) Then Return SetError(12, 0, 0) Local $tString = DllStructCreate('wchar[' & ($iLengthS + 1) & ']') If Not $bCaseSensitive Then $sString = StringLower($sString) EndIf DllStructSetData($tString, 1, $sString) Local $sHash = _WinAPI_HashData($tString, 2 * $iLengthS, $iLength) If @error Then Return SetError(@error, @extended, 0) Return $sHash EndFunc Func _WinAPI_HiByte($iValue) Return BitAND(BitShift($iValue, 8), 0xFF) EndFunc Func _WinAPI_HiDWord($iValue) Local $tInt64 = DllStructCreate('int64') Local $tQWord = DllStructCreate('dword;dword', DllStructGetPtr($tInt64)) DllStructSetData($tInt64, 1, $iValue) Return DllStructGetData($tQWord, 2) EndFunc Func _WinAPI_HiWord($iLong) Return BitShift($iLong, 16) EndFunc Func _WinAPI_IntToDWord($iValue) Local $tData = DllStructCreate('dword') DllStructSetData($tData, 1, $iValue) Return DllStructGetData($tData, 1) EndFunc Func _WinAPI_IntToFloat($iInt) Local $tInt = DllStructCreate("int") Local $tFloat = DllStructCreate("float", DllStructGetPtr($tInt)) DllStructSetData($tInt, 1, $iInt) Return DllStructGetData($tFloat, 1) EndFunc Func _WinAPI_LoByte($iValue) Return BitAND($iValue, 0xFF) EndFunc Func _WinAPI_LoDWord($iValue) Local $tInt64 = DllStructCreate('int64') Local $tQWord = DllStructCreate('dword;dword', DllStructGetPtr($tInt64)) DllStructSetData($tInt64, 1, $iValue) Return DllStructGetData($tQWord, 1) EndFunc Func _WinAPI_LoWord($iLong) Return BitAND($iLong, 0xFFFF) EndFunc Func _WinAPI_LongMid($iValue, $iStart, $iCount) Return BitAND(BitShift($iValue, $iStart), BitOR(BitShift(BitShift(0x7FFFFFFF, 32 - ($iCount + 1)), 1), BitShift(1, -($iCount - 1)))) EndFunc Func _WinAPI_MAKELANGID($iLngIDPrimary, $iLngIDSub) Return BitOR(BitShift($iLngIDSub, -10), $iLngIDPrimary) EndFunc Func _WinAPI_MAKELCID($iLngID, $iSortID) Return BitOR(BitShift($iSortID, -16), $iLngID) EndFunc Func _WinAPI_MakeLong($iLo, $iHi) Return BitOR(BitShift($iHi, -16), BitAND($iLo, 0xFFFF)) EndFunc Func _WinAPI_MakeQWord($iLoDWORD, $iHiDWORD) Local $tInt64 = DllStructCreate("uint64") Local $tDwords = DllStructCreate("dword;dword", DllStructGetPtr($tInt64)) DllStructSetData($tDwords, 1, $iLoDWORD) DllStructSetData($tDwords, 2, $iHiDWORD) Return DllStructGetData($tInt64, 1) EndFunc Func _WinAPI_MakeWord($iLo, $iHi) Local $tWord = DllStructCreate('ushort') Local $tByte = DllStructCreate('byte;byte', DllStructGetPtr($tWord)) DllStructSetData($tByte, 1, $iHi) DllStructSetData($tByte, 2, $iLo) Return DllStructGetData($tWord, 1) EndFunc Func _WinAPI_MultiByteToWideChar($vText, $iCodePage = 0, $iFlags = 0, $bRetString = False) Local $sTextType = "str" If Not IsString($vText) Then $sTextType = "struct*" Local $aResult = DllCall("kernel32.dll", "int", "MultiByteToWideChar", "uint", $iCodePage, "dword", $iFlags, $sTextType, $vText, "int", -1, "ptr", 0, "int", 0) If @error Or Not $aResult[0] Then Return SetError(@error + 10, @extended, 0) Local $iOut = $aResult[0] Local $tOut = DllStructCreate("wchar[" & $iOut & "]") $aResult = DllCall("kernel32.dll", "int", "MultiByteToWideChar", "uint", $iCodePage, "dword", $iFlags, $sTextType, $vText, "int", -1, "struct*", $tOut, "int", $iOut) If @error Or Not $aResult[0] Then Return SetError(@error + 20, @extended, 0) If $bRetString Then Return DllStructGetData($tOut, 1) Return $tOut EndFunc Func _WinAPI_MultiByteToWideCharEx($sText, $pText, $iCodePage = 0, $iFlags = 0) Local $aResult = DllCall("kernel32.dll", "int", "MultiByteToWideChar", "uint", $iCodePage, "dword", $iFlags, "STR", $sText, "int", -1, "struct*", $pText, "int", (StringLen($sText) + 1) * 2) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_OemToChar($sStr) Local $aRet = DllCall('user32.dll', 'bool', 'OemToChar', 'str', $sStr, 'str', '') If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, '') Return $aRet[2] EndFunc Func _WinAPI_PointFromRect(ByRef $tRECT, $bCenter = True) Local $iX1 = DllStructGetData($tRECT, "Left") Local $iY1 = DllStructGetData($tRECT, "Top") Local $iX2 = DllStructGetData($tRECT, "Right") Local $iY2 = DllStructGetData($tRECT, "Bottom") If $bCenter Then $iX1 = $iX1 + (($iX2 - $iX1) / 2) $iY1 = $iY1 + (($iY2 - $iY1) / 2) EndIf Local $tPoint = DllStructCreate($tagPOINT) DllStructSetData($tPoint, "X", $iX1) DllStructSetData($tPoint, "Y", $iY1) Return $tPoint EndFunc Func _WinAPI_PrimaryLangId($iLngID) Return BitAND($iLngID, 0x3FF) EndFunc Func _WinAPI_ScreenToClient($hWnd, ByRef $tPoint) Local $aResult = DllCall("user32.dll", "bool", "ScreenToClient", "hwnd", $hWnd, "struct*", $tPoint) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_ShortToWord($iValue) Return BitAND($iValue, 0x0000FFFF) EndFunc Func _WinAPI_StrFormatByteSize($iSize) Local $aRet = DllCall('shlwapi.dll', 'ptr', 'StrFormatByteSizeW', 'int64', $iSize, 'wstr', '', 'uint', 1024) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, '') Return $aRet[2] EndFunc Func _WinAPI_StrFormatByteSizeEx($iSize) Local $aSymbol = DllCall('kernel32.dll', 'int', 'GetLocaleInfoW', 'dword', 0x0400, 'dword', 0x000F, 'wstr', '', 'int', 2048) If @error Then Return SetError(@error + 10, @extended, '') Local $sSize = _WinAPI_StrFormatByteSize(0) If @error Then Return SetError(@error, @extended, '') Return StringReplace($sSize, '0', StringRegExpReplace(Number($iSize), '(?<=\d)(?=(\d{3})+\z)', $aSymbol[3])) EndFunc Func _WinAPI_StrFormatKBSize($iSize) Local $aRet = DllCall('shlwapi.dll', 'ptr', 'StrFormatKBSizeW', 'int64', $iSize, 'wstr', '', 'uint', 1024) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, '') Return $aRet[2] EndFunc Func _WinAPI_StrFromTimeInterval($iTime, $iDigits = 7) Local $aRet = DllCall('shlwapi.dll', 'int', 'StrFromTimeIntervalW', 'wstr', '', 'uint', 1024, 'dword', $iTime, 'int', $iDigits) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, '') Return StringStripWS($aRet[1], $STR_STRIPLEADING + $STR_STRIPTRAILING) EndFunc Func _WinAPI_StringFromGUID($tGUID) Local $aResult = DllCall("ole32.dll", "int", "StringFromGUID2", "struct*", $tGUID, "wstr", "", "int", 40) If @error Or Not $aResult[0] Then Return SetError(@error, @extended, "") Return SetExtended($aResult[0], $aResult[2]) EndFunc Func _WinAPI_SubLangId($iLngID) Return BitShift($iLngID, 10) EndFunc Func _WinAPI_SwapDWord($iValue) Local $tStruct1 = DllStructCreate('dword;dword') Local $tStruct2 = DllStructCreate('byte[4];byte[4]', DllStructGetPtr($tStruct1)) DllStructSetData($tStruct1, 1, $iValue) For $i = 1 To 4 DllStructSetData($tStruct2, 2, DllStructGetData($tStruct2, 1, 5 - $i), $i) Next Return DllStructGetData($tStruct1, 2) EndFunc Func _WinAPI_SwapQWord($iValue) Local $tStruct1 = DllStructCreate('int64;int64') Local $tStruct2 = DllStructCreate('byte[8];byte[8]', DllStructGetPtr($tStruct1)) DllStructSetData($tStruct1, 1, $iValue) For $i = 1 To 8 DllStructSetData($tStruct2, 2, DllStructGetData($tStruct2, 1, 9 - $i), $i) Next Return DllStructGetData($tStruct1, 2) EndFunc Func _WinAPI_SwapWord($iValue) Local $tStruct1 = DllStructCreate('word;word') Local $tStruct2 = DllStructCreate('byte[2];byte[2]', DllStructGetPtr($tStruct1)) DllStructSetData($tStruct1, 1, $iValue) For $i = 1 To 2 DllStructSetData($tStruct2, 2, DllStructGetData($tStruct2, 1, 3 - $i), $i) Next Return DllStructGetData($tStruct1, 2) EndFunc Func _WinAPI_WideCharToMultiByte($vUnicode, $iCodePage = 0, $bRetNoStruct = True, $bRetBinary = False) Local $sUnicodeType = "wstr" If Not IsString($vUnicode) Then $sUnicodeType = "struct*" Local $aResult = DllCall("kernel32.dll", "int", "WideCharToMultiByte", "uint", $iCodePage, "dword", 0, $sUnicodeType, $vUnicode, "int", -1, "ptr", 0, "int", 0, "ptr", 0, "ptr", 0) If @error Or Not $aResult[0] Then Return SetError(@error + 20, @extended, "") Local $tMultiByte = DllStructCreate((($bRetBinary) ? ("byte") : ("char")) & "[" & $aResult[0] & "]") $aResult = DllCall("kernel32.dll", "int", "WideCharToMultiByte", "uint", $iCodePage, "dword", 0, $sUnicodeType, $vUnicode, "int", -1, "struct*", $tMultiByte, "int", $aResult[0], "ptr", 0, "ptr", 0) If @error Or Not $aResult[0] Then Return SetError(@error + 10, @extended, "") If $bRetNoStruct Then Return DllStructGetData($tMultiByte, 1) Return $tMultiByte EndFunc Func _WinAPI_WordToShort($iValue) If BitAND($iValue, 0x00008000) Then Return BitOR($iValue, 0xFFFF8000) EndIf Return BitAND($iValue, 0x00007FFF) EndFunc #EndRegion Public Functions Global Const $FR_PRIVATE = 0x10 Global Const $FR_NOT_ENUM = 0x20 Global Const $COMPRESSION_BITMAP_PNG = 0 Global Const $COMPRESSION_BITMAP_JPEG = 1 Global Const $BS_DIBPATTERN = 5 Global Const $BS_DIBPATTERN8X8 = 8 Global Const $BS_DIBPATTERNPT = 6 Global Const $BS_HATCHED = 2 Global Const $BS_HOLLOW = 1 Global Const $BS_NULL = 1 Global Const $BS_PATTERN = 3 Global Const $BS_PATTERN8X8 = 7 Global Const $BS_SOLID = 0 Global Const $HS_BDIAGONAL = 3 Global Const $HS_CROSS = 4 Global Const $HS_DIAGCROSS = 5 Global Const $HS_FDIAGONAL = 2 Global Const $HS_HORIZONTAL = 0 Global Const $HS_VERTICAL = 1 Global Const $DIB_PAL_COLORS = 1 Global Const $DIB_RGB_COLORS = 0 Global Const $CA_NEGATIVE = 0x01 Global Const $CA_LOG_FILTER = 0x02 Global Const $ILLUMINANT_DEVICE_DEFAULT = 0 Global Const $ILLUMINANT_A = 1 Global Const $ILLUMINANT_B = 2 Global Const $ILLUMINANT_C = 3 Global Const $ILLUMINANT_D50 = 4 Global Const $ILLUMINANT_D55 = 5 Global Const $ILLUMINANT_D65 = 6 Global Const $ILLUMINANT_D75 = 7 Global Const $ILLUMINANT_F2 = 8 Global Const $ILLUMINANT_TUNGSTEN = $ILLUMINANT_A Global Const $ILLUMINANT_DAYLIGHT = $ILLUMINANT_C Global Const $ILLUMINANT_FLUORESCENT = $ILLUMINANT_F2 Global Const $ILLUMINANT_NTSC = $ILLUMINANT_C Global Const $BI_RGB = 0 Global Const $BI_RLE8 = 1 Global Const $BI_RLE4 = 2 Global Const $BI_BITFIELDS = 3 Global Const $BI_JPEG = 4 Global Const $BI_PNG = 5 Global Const $ALTERNATE = 1 Global Const $WINDING = 2 Global Const $DWMWA_NCRENDERING_ENABLED = 1 Global Const $DWMWA_NCRENDERING_POLICY = 2 Global Const $DWMWA_TRANSITIONS_FORCEDISABLED = 3 Global Const $DWMWA_ALLOW_NCPAINT = 4 Global Const $DWMWA_CAPTION_BUTTON_BOUNDS = 5 Global Const $DWMWA_NONCLIENT_RTL_LAYOUT = 6 Global Const $DWMWA_FORCE_ICONIC_REPRESENTATION = 7 Global Const $DWMWA_FLIP3D_POLICY = 8 Global Const $DWMWA_EXTENDED_FRAME_BOUNDS = 9 Global Const $DWMWA_HAS_ICONIC_BITMAP = 10 Global Const $DWMWA_DISALLOW_PEEK = 11 Global Const $DWMWA_EXCLUDED_FROM_PEEK = 12 Global Const $DWMNCRP_USEWINDOWSTYLE = 0 Global Const $DWMNCRP_DISABLED = 1 Global Const $DWMNCRP_ENABLED = 2 Global Const $DWMFLIP3D_DEFAULT = 0 Global Const $DWMFLIP3D_EXCLUDEBELOW = 1 Global Const $DWMFLIP3D_EXCLUDEABOVE = 2 Global Const $DM_BITSPERPEL = 0x00040000 Global Const $DM_COLLATE = 0x0008000 Global Const $DM_COLOR = 0x00000800 Global Const $DM_COPIES = 0x00000100 Global Const $DM_DEFAULTSOURCE = 0x00000200 Global Const $DM_DISPLAYFIXEDOUTPUT = 0x20000000 Global Const $DM_DISPLAYFLAGS = 0x00200000 Global Const $DM_DISPLAYFREQUENCY = 0x00400000 Global Const $DM_DISPLAYORIENTATION = 0x00000080 Global Const $DM_DITHERTYPE = 0x04000000 Global Const $DM_DUPLEX = 0x0001000 Global Const $DM_FORMNAME = 0x00010000 Global Const $DM_ICMINTENT = 0x01000000 Global Const $DM_ICMMETHOD = 0x00800000 Global Const $DM_LOGPIXELS = 0x00020000 Global Const $DM_MEDIATYPE = 0x02000000 Global Const $DM_NUP = 0x00000040 Global Const $DM_ORIENTATION = 0x00000001 Global Const $DM_PANNINGHEIGHT = 0x10000000 Global Const $DM_PANNINGWIDTH = 0x08000000 Global Const $DM_PAPERLENGTH = 0x00000004 Global Const $DM_PAPERSIZE = 0x00000002 Global Const $DM_PAPERWIDTH = 0x00000008 Global Const $DM_PELSHEIGHT = 0x00100000 Global Const $DM_PELSWIDTH = 0x00080000 Global Const $DM_POSITION = 0x00000020 Global Const $DM_PRINTQUALITY = 0x00000400 Global Const $DM_SCALE = 0x00000010 Global Const $DM_TTOPTION = 0x0004000 Global Const $DM_YRESOLUTION = 0x0002000 Global Const $DMPAPER_LETTER = 1 Global Const $DMPAPER_LETTERSMALL = 2 Global Const $DMPAPER_TABLOID = 3 Global Const $DMPAPER_LEDGER = 4 Global Const $DMPAPER_LEGAL = 5 Global Const $DMPAPER_STATEMENT = 6 Global Const $DMPAPER_EXECUTIVE = 7 Global Const $DMPAPER_A3 = 8 Global Const $DMPAPER_A4 = 9 Global Const $DMPAPER_A4SMALL = 10 Global Const $DMPAPER_A5 = 11 Global Const $DMPAPER_B4 = 12 Global Const $DMPAPER_B5 = 13 Global Const $DMPAPER_FOLIO = 14 Global Const $DMPAPER_QUARTO = 15 Global Const $DMPAPER_10X14 = 16 Global Const $DMPAPER_11X17 = 17 Global Const $DMPAPER_NOTE = 18 Global Const $DMPAPER_ENV_9 = 19 Global Const $DMPAPER_ENV_10 = 20 Global Const $DMPAPER_ENV_11 = 21 Global Const $DMPAPER_ENV_12 = 22 Global Const $DMPAPER_ENV_14 = 23 Global Const $DMPAPER_CSHEET = 24 Global Const $DMPAPER_DSHEET = 25 Global Const $DMPAPER_ESHEET = 26 Global Const $DMPAPER_ENV_DL = 27 Global Const $DMPAPER_ENV_C5 = 28 Global Const $DMPAPER_ENV_C3 = 29 Global Const $DMPAPER_ENV_C4 = 30 Global Const $DMPAPER_ENV_C6 = 31 Global Const $DMPAPER_ENV_C65 = 32 Global Const $DMPAPER_ENV_B4 = 33 Global Const $DMPAPER_ENV_B5 = 34 Global Const $DMPAPER_ENV_B6 = 35 Global Const $DMPAPER_ENV_ITALY = 36 Global Const $DMPAPER_ENV_MONARCH = 37 Global Const $DMPAPER_ENV_PERSONAL = 38 Global Const $DMPAPER_FANFOLD_US = 39 Global Const $DMPAPER_FANFOLD_STD_GERMAN = 40 Global Const $DMPAPER_FANFOLD_LGL_GERMAN = 41 Global Const $DMPAPER_ISO_B4 = 42 Global Const $DMPAPER_JAPANESE_POSTCARD = 43 Global Const $DMPAPER_9X11 = 44 Global Const $DMPAPER_10X11 = 45 Global Const $DMPAPER_15X11 = 46 Global Const $DMPAPER_ENV_INVITE = 47 Global Const $DMPAPER_RESERVED_48 = 48 Global Const $DMPAPER_RESERVED_49 = 49 Global Const $DMPAPER_LETTER_EXTRA = 50 Global Const $DMPAPER_LEGAL_EXTRA = 51 Global Const $DMPAPER_TABLOID_EXTRA = 52 Global Const $DMPAPER_A4_EXTRA = 53 Global Const $DMPAPER_LETTER_TRANSVERSE = 54 Global Const $DMPAPER_A4_TRANSVERSE = 55 Global Const $DMPAPER_LETTER_EXTRA_TRANSVERSE = 56 Global Const $DMPAPER_A_PLUS = 57 Global Const $DMPAPER_B_PLUS = 58 Global Const $DMPAPER_LETTER_PLUS = 59 Global Const $DMPAPER_A4_PLUS = 60 Global Const $DMPAPER_A5_TRANSVERSE = 61 Global Const $DMPAPER_B5_TRANSVERSE = 62 Global Const $DMPAPER_A3_EXTRA = 63 Global Const $DMPAPER_A5_EXTRA = 64 Global Const $DMPAPER_B5_EXTRA = 65 Global Const $DMPAPER_A2 = 66 Global Const $DMPAPER_A3_TRANSVERSE = 67 Global Const $DMPAPER_A3_EXTRA_TRANSVERSE = 68 Global Const $DMPAPER_DBL_JAPANESE_POSTCARD = 69 Global Const $DMPAPER_A6 = 70 Global Const $DMPAPER_JENV_KAKU2 = 71 Global Const $DMPAPER_JENV_KAKU3 = 72 Global Const $DMPAPER_JENV_CHOU3 = 73 Global Const $DMPAPER_JENV_CHOU4 = 74 Global Const $DMPAPER_LETTER_ROTATED = 75 Global Const $DMPAPER_A3_ROTATED = 76 Global Const $DMPAPER_A4_ROTATED = 77 Global Const $DMPAPER_A5_ROTATED = 78 Global Const $DMPAPER_B4_JIS_ROTATED = 79 Global Const $DMPAPER_B5_JIS_ROTATED = 80 Global Const $DMPAPER_JAPANESE_POSTCARD_ROTATED = 81 Global Const $DMPAPER_DBL_JAPANESE_POSTCARD_ROTATED = 82 Global Const $DMPAPER_A6_ROTATED = 83 Global Const $DMPAPER_JENV_KAKU2_ROTATED = 84 Global Const $DMPAPER_JENV_KAKU3_ROTATED = 85 Global Const $DMPAPER_JENV_CHOU3_ROTATED = 86 Global Const $DMPAPER_JENV_CHOU4_ROTATED = 87 Global Const $DMPAPER_B6_JIS = 88 Global Const $DMPAPER_B6_JIS_ROTATED = 89 Global Const $DMPAPER_12X11 = 90 Global Const $DMPAPER_JENV_YOU4 = 91 Global Const $DMPAPER_JENV_YOU4_ROTATED = 92 Global Const $DMPAPER_P16K = 93 Global Const $DMPAPER_P32K = 94 Global Const $DMPAPER_P32KBIG = 95 Global Const $DMPAPER_PENV_1 = 96 Global Const $DMPAPER_PENV_2 = 97 Global Const $DMPAPER_PENV_3 = 98 Global Const $DMPAPER_PENV_4 = 99 Global Const $DMPAPER_PENV_5 = 100 Global Const $DMPAPER_PENV_6 = 101 Global Const $DMPAPER_PENV_7 = 102 Global Const $DMPAPER_PENV_8 = 103 Global Const $DMPAPER_PENV_9 = 104 Global Const $DMPAPER_PENV_10 = 105 Global Const $DMPAPER_P16K_ROTATED = 106 Global Const $DMPAPER_P32K_ROTATED = 107 Global Const $DMPAPER_P32KBIG_ROTATED = 108 Global Const $DMPAPER_PENV_1_ROTATED = 109 Global Const $DMPAPER_PENV_2_ROTATED = 110 Global Const $DMPAPER_PENV_3_ROTATED = 111 Global Const $DMPAPER_PENV_4_ROTATED = 112 Global Const $DMPAPER_PENV_5_ROTATED = 113 Global Const $DMPAPER_PENV_6_ROTATED = 114 Global Const $DMPAPER_PENV_7_ROTATED = 115 Global Const $DMPAPER_PENV_8_ROTATED = 116 Global Const $DMPAPER_PENV_9_ROTATED = 117 Global Const $DMPAPER_PENV_10_ROTATED = 118 Global Const $DMPAPER_USER = 256 Global Const $DMBIN_UPPER = 1 Global Const $DMBIN_LOWER = 2 Global Const $DMBIN_MIDDLE = 3 Global Const $DMBIN_MANUAL = 4 Global Const $DMBIN_ENVELOPE = 5 Global Const $DMBIN_ENVMANUAL = 6 Global Const $DMBIN_AUTO = 7 Global Const $DMBIN_TRACTOR = 8 Global Const $DMBIN_SMALLFMT = 9 Global Const $DMBIN_LARGEFMT = 10 Global Const $DMBIN_LARGECAPACITY = 11 Global Const $DMBIN_CASSETTE = 14 Global Const $DMBIN_FORMSOURCE = 15 Global Const $DMBIN_USER = 256 Global Const $DMRES_DRAFT = -1 Global Const $DMRES_LOW = -2 Global Const $DMRES_MEDIUM = -3 Global Const $DMRES_HIGH = -4 Global Const $DMDO_DEFAULT = 0 Global Const $DMDO_90 = 1 Global Const $DMDO_180 = 2 Global Const $DMDO_270 = 3 Global Const $DMDFO_DEFAULT = 0 Global Const $DMDFO_STRETCH = 1 Global Const $DMDFO_CENTER = 2 Global Const $DMCOLOR_MONOCHROME = 1 Global Const $DMCOLOR_COLOR = 2 Global Const $DMDUP_SIMPLEX = 1 Global Const $DMDUP_VERTICAL = 2 Global Const $DMDUP_HORIZONTAL = 3 Global Const $DMTT_BITMAP = 1 Global Const $DMTT_DOWNLOAD = 2 Global Const $DMTT_SUBDEV = 3 Global Const $DMTT_DOWNLOAD_OUTLINE = 4 Global Const $DMCOLLATE_FALSE = 0 Global Const $DMCOLLATE_TRUE = 1 Global Const $DM_GRAYSCALE = 1 Global Const $DM_INTERLACED = 2 Global Const $DMNUP_SYSTEM = 1 Global Const $DMNUP_ONEUP = 2 Global Const $DMICMMETHOD_NONE = 1 Global Const $DMICMMETHOD_SYSTEM = 2 Global Const $DMICMMETHOD_DRIVER = 3 Global Const $DMICMMETHOD_DEVICE = 4 Global Const $DMICMMETHOD_USER = 256 Global Const $DMICM_SATURATE = 1 Global Const $DMICM_CONTRAST = 2 Global Const $DMICM_COLORIMETRIC = 3 Global Const $DMICM_ABS_COLORIMETRIC = 4 Global Const $DMICM_USER = 256 Global Const $DMMEDIA_STANDARD = 1 Global Const $DMMEDIA_TRANSPARENCY = 2 Global Const $DMMEDIA_GLOSSY = 3 Global Const $DMMEDIA_USER = 256 Global Const $DMDITHER_NONE = 1 Global Const $DMDITHER_COARSE = 2 Global Const $DMDITHER_FINE = 3 Global Const $DMDITHER_LINEART = 4 Global Const $DMDITHER_ERRORDIFFUSION = 5 Global Const $DMDITHER_RESERVED6 = 6 Global Const $DMDITHER_RESERVED7 = 7 Global Const $DMDITHER_RESERVED8 = 8 Global Const $DMDITHER_RESERVED9 = 9 Global Const $DMDITHER_GRAYSCALE = 10 Global Const $DMDITHER_USER = 256 Global Const $ENUM_CURRENT_SETTINGS = -1 Global Const $ENUM_REGISTRY_SETTINGS = -2 Global Const $DEVICE_FONTTYPE = 0x2 Global Const $RASTER_FONTTYPE = 0x1 Global Const $TRUETYPE_FONTTYPE = 0x4 Global Const $NTM_BOLD = 0x00000020 Global Const $NTM_DSIG = 0x00200000 Global Const $NTM_ITALIC = 0x00000001 Global Const $NTM_MULTIPLEMASTER = 0x00080000 Global Const $NTM_NONNEGATIVE_AC = 0x00010000 Global Const $NTM_PS_OPENTYPE = 0x00020000 Global Const $NTM_REGULAR = 0x00000040 Global Const $NTM_TT_OPENTYPE = 0x00040000 Global Const $NTM_TYPE1 = 0x00100000 Global Const $FLOODFILLBORDER = 0 Global Const $FLOODFILLSURFACE = 1 Global Const $AD_COUNTERCLOCKWISE = 1 Global Const $AD_CLOCKWISE = 2 Global Const $DCB_ACCUMULATE = 0x02 Global Const $DCB_DISABLE = 0x08 Global Const $DCB_ENABLE = 0x04 Global Const $DCB_RESET = 0x01 Global Const $DCB_SET = BitOR($DCB_RESET, $DCB_ACCUMULATE) Global Const $DCX_WINDOW = 0x00000001 Global Const $DCX_CACHE = 0x00000002 Global Const $DCX_PARENTCLIP = 0x00000020 Global Const $DCX_CLIPSIBLINGS = 0x00000010 Global Const $DCX_CLIPCHILDREN = 0x00000008 Global Const $DCX_NORESETATTRS = 0x00000004 Global Const $DCX_LOCKWINDOWUPDATE = 0x00000400 Global Const $DCX_EXCLUDERGN = 0x00000040 Global Const $DCX_INTERSECTRGN = 0x00000080 Global Const $DCX_INTERSECTUPDATE = 0x00000200 Global Const $DCX_VALIDATE = 0x00200000 Global Const $GGO_BEZIER = 3 Global Const $GGO_BITMAP = 1 Global Const $GGO_GLYPH_INDEX = 0x0080 Global Const $GGO_GRAY2_BITMAP = 4 Global Const $GGO_GRAY4_BITMAP = 5 Global Const $GGO_GRAY8_BITMAP = 6 Global Const $GGO_METRICS = 0 Global Const $GGO_NATIVE = 2 Global Const $GGO_UNHINTED = 0x0100 Global Const $GM_COMPATIBLE = 1 Global Const $GM_ADVANCED = 2 Global Const $MM_ANISOTROPIC = 8 Global Const $MM_HIENGLISH = 5 Global Const $MM_HIMETRIC = 3 Global Const $MM_ISOTROPIC = 7 Global Const $MM_LOENGLISH = 4 Global Const $MM_LOMETRIC = 2 Global Const $MM_TEXT = 1 Global Const $MM_TWIPS = 6 Global Const $R2_BLACK = 1 Global Const $R2_COPYPEN = 13 Global Const $R2_LAST = 16 Global Const $R2_MASKNOTPEN = 3 Global Const $R2_MASKPEN = 9 Global Const $R2_MASKPENNOT = 5 Global Const $R2_MERGENOTPEN = 12 Global Const $R2_MERGEPEN = 15 Global Const $R2_MERGEPENNOT = 14 Global Const $R2_NOP = 11 Global Const $R2_NOT = 6 Global Const $R2_NOTCOPYPEN = 4 Global Const $R2_NOTMASKPEN = 8 Global Const $R2_NOTMERGEPEN = 2 Global Const $R2_NOTXORPEN = 10 Global Const $R2_WHITE = 16 Global Const $R2_XORPEN = 7 Global Const $BLACKONWHITE = 1 Global Const $COLORONCOLOR = 3 Global Const $HALFTONE = 4 Global Const $WHITEONBLACK = 2 Global Const $STRETCH_ANDSCANS = $BLACKONWHITE Global Const $STRETCH_DELETESCANS = $COLORONCOLOR Global Const $STRETCH_HALFTONE = $HALFTONE Global Const $STRETCH_ORSCANS = $WHITEONBLACK Global Const $TA_BASELINE = 0x0018 Global Const $TA_BOTTOM = 0x0008 Global Const $TA_TOP = 0x0000 Global Const $TA_CENTER = 0x0006 Global Const $TA_LEFT = 0x0000 Global Const $TA_RIGHT = 0x0002 Global Const $TA_NOUPDATECP = 0x0000 Global Const $TA_RTLREADING = 0x0100 Global Const $TA_UPDATECP = 0x0001 Global Const $VTA_BASELINE = $TA_BASELINE Global Const $VTA_BOTTOM = $TA_RIGHT Global Const $VTA_TOP = $TA_LEFT Global Const $VTA_CENTER = $TA_CENTER Global Const $VTA_LEFT = $TA_BOTTOM Global Const $VTA_RIGHT = $TA_TOP Global Const $UDF_BGR = 1 Global Const $UDF_RGB = 0 Global Const $MWT_IDENTITY = 0x01 Global Const $MWT_LEFTMULTIPLY = 0x02 Global Const $MWT_RIGHTMULTIPLY = 0x03 Global Const $MWT_SET = 0x04 Global Const $MONITOR_DEFAULTTONEAREST = 2 Global Const $MONITOR_DEFAULTTONULL = 0 Global Const $MONITOR_DEFAULTTOPRIMARY = 1 Global Const $PT_BEZIERTO = 4 Global Const $PT_LINETO = 2 Global Const $PT_MOVETO = 6 Global Const $PT_CLOSEFIGURE = 1 #Region Global Variables and Constants Global $__g_hHeap = 0 #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list #Region Public Functions Func _WinAPI_CreateBuffer($iLength, $pBuffer = 0, $bAbort = True) $pBuffer = __HeapReAlloc($pBuffer, $iLength, 0, $bAbort) If @error Then Return SetError(@error, @extended, 0) Return $pBuffer EndFunc Func _WinAPI_CreateBufferFromStruct($tStruct, $pBuffer = 0, $bAbort = True) If Not IsDllStruct($tStruct) Then Return SetError(1, 0, 0) $pBuffer = __HeapReAlloc($pBuffer, DllStructGetSize($tStruct), 0, $bAbort) If @error Then Return SetError(@error + 100, @extended, 0) _WinAPI_MoveMemory($pBuffer, $tStruct, DllStructGetSize($tStruct)) Return $pBuffer EndFunc Func _WinAPI_CreateString($sString, $pString = 0, $iLength = -1, $bUnicode = True, $bAbort = True) $iLength = Number($iLength) If $iLength >= 0 Then $sString = StringLeft($sString, $iLength) Else $iLength = StringLen($sString) EndIf Local $iSize = $iLength + 1 If $bUnicode Then $iSize *= 2 EndIf $pString = __HeapReAlloc($pString, $iSize, 0, $bAbort) If @error Then Return SetError(@error, @extended, 0) DllStructSetData(DllStructCreate(($bUnicode ? 'wchar' : 'char') & '[' & ($iLength + 1) & ']', $pString), 1, $sString) Return SetExtended($iLength, $pString) EndFunc Func _WinAPI_EqualMemory($pSource1, $pSource2, $iLength) If _WinAPI_IsBadReadPtr($pSource1, $iLength) Then Return SetError(11, @extended, 0) If _WinAPI_IsBadReadPtr($pSource2, $iLength) Then Return SetError(12, @extended, 0) Local $aRet = DllCall('ntdll.dll', 'ulong_ptr', 'RtlCompareMemory', 'struct*', $pSource1, 'struct*', $pSource2, 'ulong_ptr', $iLength) If @error Then Return SetError(@error, @extended, 0) Return Number($aRet[0] = $iLength) EndFunc Func _WinAPI_FillMemory($pMemory, $iLength, $iValue = 0) If _WinAPI_IsBadWritePtr($pMemory, $iLength) Then Return SetError(11, @extended, 0) DllCall('ntdll.dll', 'none', 'RtlFillMemory', 'struct*', $pMemory, 'ulong_ptr', $iLength, 'byte', $iValue) If @error Then Return SetError(@error, @extended, 0) Return 1 EndFunc Func _WinAPI_FreeMemory($pMemory) If Not __HeapFree($pMemory, 1) Then Return SetError(@error, @extended, 0) Return 1 EndFunc Func _WinAPI_GetMemorySize($pMemory) Local $iResult = __HeapSize($pMemory, 1) If @error Then Return SetError(@error, @extended, 0) Return $iResult EndFunc Func _WinAPI_GlobalMemoryStatus() Local Const $tagMEMORYSTATUSEX = "dword Length;dword MemoryLoad;" & "uint64 TotalPhys;uint64 AvailPhys;uint64 TotalPageFile;uint64 AvailPageFile;" & "uint64 TotalVirtual;uint64 AvailVirtual;uint64 AvailExtendedVirtual" Local $tMem = DllStructCreate($tagMEMORYSTATUSEX) DllStructSetData($tMem, 1, DllStructGetSize($tMem)) Local $aRet = DllCall("kernel32.dll", "bool", "GlobalMemoryStatusEx", "struct*", $tMem) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Local $aMem[7] $aMem[0] = DllStructGetData($tMem, 2) $aMem[1] = DllStructGetData($tMem, 3) $aMem[2] = DllStructGetData($tMem, 4) $aMem[3] = DllStructGetData($tMem, 5) $aMem[4] = DllStructGetData($tMem, 6) $aMem[5] = DllStructGetData($tMem, 7) $aMem[6] = DllStructGetData($tMem, 8) Return $aMem EndFunc Func _WinAPI_IsBadCodePtr($pAddress) Local $aRet = DllCall('kernel32.dll', 'bool', 'IsBadCodePtr', 'struct*', $pAddress) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_IsBadReadPtr($pAddress, $iLength) Local $aRet = DllCall('kernel32.dll', 'bool', 'IsBadReadPtr', 'struct*', $pAddress, 'uint_ptr', $iLength) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_IsBadStringPtr($pAddress, $iLength) Local $aRet = DllCall('kernel32.dll', 'bool', 'IsBadStringPtr', 'struct*', $pAddress, 'uint_ptr', $iLength) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_IsBadWritePtr($pAddress, $iLength) Local $aRet = DllCall('kernel32.dll', 'bool', 'IsBadWritePtr', 'struct*', $pAddress, 'uint_ptr', $iLength) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_IsMemory($pMemory) Local $bResult = __HeapValidate($pMemory) Return SetError(@error, @extended, $bResult) EndFunc Func _WinAPI_LocalFree($hMemory) Local $aResult = DllCall("kernel32.dll", "handle", "LocalFree", "handle", $hMemory) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_MoveMemory($pDestination, $pSource, $iLength) If _WinAPI_IsBadReadPtr($pSource, $iLength) Then Return SetError(10, @extended, 0) If _WinAPI_IsBadWritePtr($pDestination, $iLength) Then Return SetError(11, @extended, 0) DllCall('ntdll.dll', 'none', 'RtlMoveMemory', 'struct*', $pDestination, 'struct*', $pSource, 'ulong_ptr', $iLength) If @error Then Return SetError(@error, @extended, 0) Return 1 EndFunc Func _WinAPI_ReadProcessMemory($hProcess, $pBaseAddress, $pBuffer, $iSize, ByRef $iRead) Local $aResult = DllCall("kernel32.dll", "bool", "ReadProcessMemory", "handle", $hProcess, "ptr", $pBaseAddress, "struct*", $pBuffer, "ulong_ptr", $iSize, "ulong_ptr*", 0) If @error Then Return SetError(@error, @extended, False) $iRead = $aResult[5] Return $aResult[0] EndFunc Func _WinAPI_WriteProcessMemory($hProcess, $pBaseAddress, $pBuffer, $iSize, ByRef $iWritten, $sBuffer = "ptr") Local $aResult = DllCall("kernel32.dll", "bool", "WriteProcessMemory", "handle", $hProcess, "ptr", $pBaseAddress, $sBuffer, $pBuffer, "ulong_ptr", $iSize, "ulong_ptr*", 0) If @error Then Return SetError(@error, @extended, False) $iWritten = $aResult[5] Return $aResult[0] EndFunc Func _WinAPI_ZeroMemory($pMemory, $iLength) If _WinAPI_IsBadWritePtr($pMemory, $iLength) Then Return SetError(11, @extended, 0) DllCall('ntdll.dll', 'none', 'RtlZeroMemory', 'struct*', $pMemory, 'ulong_ptr', $iLength) If @error Then Return SetError(@error, @extended, 0) Return 1 EndFunc #EndRegion Public Functions #Region Internal Functions Func __HeapAlloc($iSize, $bAbort = False) Local $aRet If Not $__g_hHeap Then $aRet = DllCall('kernel32.dll', 'handle', 'HeapCreate', 'dword', 0, 'ulong_ptr', 0, 'ulong_ptr', 0) If @error Or Not $aRet[0] Then __FatalExit(1, 'Error allocating memory.') $__g_hHeap = $aRet[0] EndIf $aRet = DllCall('kernel32.dll', 'ptr', 'HeapAlloc', 'handle', $__g_hHeap, 'dword', 0x00000008, 'ulong_ptr', $iSize) If @error Or Not $aRet[0] Then If $bAbort Then __FatalExit(1, 'Error allocating memory.') Return SetError(@error + 30, @extended, 0) EndIf Return $aRet[0] EndFunc Func __HeapFree(ByRef $pMemory, $bCheck = False, $iCurErr = @error, $iCurExt = @extended) If $bCheck And (Not __HeapValidate($pMemory)) Then Return SetError(@error, @extended, 0) Local $aRet = DllCall('kernel32.dll', 'int', 'HeapFree', 'handle', $__g_hHeap, 'dword', 0, 'ptr', $pMemory) If @error Or Not $aRet[0] Then Return SetError(@error + 40, @extended, 0) $pMemory = 0 Return SetError($iCurErr, $iCurExt, 1) EndFunc Func __HeapReAlloc($pMemory, $iSize, $bAmount = False, $bAbort = False) Local $aRet, $pRet If __HeapValidate($pMemory) Then If $bAmount And (__HeapSize($pMemory) >= $iSize) Then Return SetExtended(1, Ptr($pMemory)) $aRet = DllCall('kernel32.dll', 'ptr', 'HeapReAlloc', 'handle', $__g_hHeap, 'dword', 0x00000008, 'ptr', $pMemory, 'ulong_ptr', $iSize) If @error Or Not $aRet[0] Then If $bAbort Then __FatalExit(1, 'Error allocating memory.') Return SetError(@error + 20, @extended, Ptr($pMemory)) EndIf $pRet = $aRet[0] Else $pRet = __HeapAlloc($iSize, $bAbort) If @error Then Return SetError(@error, @extended, 0) EndIf Return $pRet EndFunc Func __HeapSize($pMemory, $bCheck = False) If $bCheck And (Not __HeapValidate($pMemory)) Then Return SetError(@error, @extended, 0) Local $aRet = DllCall('kernel32.dll', 'ulong_ptr', 'HeapSize', 'handle', $__g_hHeap, 'dword', 0, 'ptr', $pMemory) If @error Or ($aRet[0] = Ptr(-1)) Then Return SetError(@error + 50, @extended, 0) Return $aRet[0] EndFunc Func __HeapValidate($pMemory) If (Not $__g_hHeap) Or (Not Ptr($pMemory)) Then Return SetError(9, 0, False) Local $aRet = DllCall('kernel32.dll', 'int', 'HeapValidate', 'handle', $__g_hHeap, 'dword', 0, 'ptr', $pMemory) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc #EndRegion Internal Functions Global Const $SND_APPLICATION = 0x00000080 Global Const $SND_ALIAS = 0x00010000 Global Const $SND_ALIAS_ID = 0x00110000 Global Const $SND_ASYNC = 0x00000001 Global Const $SND_FILENAME = 0x00020000 Global Const $SND_LOOP = 0x00000008 Global Const $SND_MEMORY = 0x00000004 Global Const $SND_NODEFAULT = 0x00000002 Global Const $SND_NOSTOP = 0x00000010 Global Const $SND_NOWAIT = 0x00002000 Global Const $SND_PURGE = 0x00000040 Global Const $SND_RESOURCE = 0x00040004 Global Const $SND_SENTRY = 0x00080000 Global Const $SND_SYNC = 0x00000000 Global Const $SND_SYSTEM = 0x00200000 Global Const $SND_SYSTEM_NOSTOP = 0x00200010 Global Const $SND_ALIAS_SYSTEMASTERISK = 'SystemAsterisk' Global Const $SND_ALIAS_SYSTEMDEFAULT = 'SystemDefault' Global Const $SND_ALIAS_SYSTEMEXCLAMATION = 'SystemExclamation' Global Const $SND_ALIAS_SYSTEMEXIT = 'SystemExit' Global Const $SND_ALIAS_SYSTEMHAND = 'SystemHand' Global Const $SND_ALIAS_SYSTEMQUESTION = 'SystemQuestion' Global Const $SND_ALIAS_SYSTEMSTART = 'SystemStart' Global Const $SND_ALIAS_SYSTEMWELCOME = 'SystemWelcome' #Region Global Variables and Constants #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list #Region Public Functions Func _WinAPI_ArrayToStruct(Const ByRef $aData, $iStart = 0, $iEnd = -1) If __CheckErrorArrayBounds($aData, $iStart, $iEnd) Then Return SetError(@error + 10, @extended, 0) Local $tagStruct = '' For $i = $iStart To $iEnd $tagStruct &= 'wchar[' & (StringLen($aData[$i]) + 1) & '];' Next Local $tData = DllStructCreate($tagStruct & 'wchar[1]') Local $iCount = 1 For $i = $iStart To $iEnd DllStructSetData($tData, $iCount, $aData[$i]) $iCount += 1 Next DllStructSetData($tData, $iCount, ChrW(0)) Return $tData EndFunc Func _WinAPI_CreateMargins($iLeftWidth, $iRightWidth, $iTopHeight, $iBottomHeight) Local $tMARGINS = DllStructCreate($tagMARGINS) DllStructSetData($tMARGINS, 1, $iLeftWidth) DllStructSetData($tMARGINS, 2, $iRightWidth) DllStructSetData($tMARGINS, 3, $iTopHeight) DllStructSetData($tMARGINS, 4, $iBottomHeight) Return $tMARGINS EndFunc Func _WinAPI_CreatePoint($iX, $iY) Local $tPOINT = DllStructCreate($tagPOINT) DllStructSetData($tPOINT, 1, $iX) DllStructSetData($tPOINT, 2, $iY) Return $tPOINT EndFunc Func _WinAPI_CreateRect($iLeft, $iTop, $iRight, $iBottom) Local $tRECT = DllStructCreate($tagRECT) DllStructSetData($tRECT, 1, $iLeft) DllStructSetData($tRECT, 2, $iTop) DllStructSetData($tRECT, 3, $iRight) DllStructSetData($tRECT, 4, $iBottom) Return $tRECT EndFunc Func _WinAPI_CreateRectEx($iX, $iY, $iWidth, $iHeight) Local $tRECT = DllStructCreate($tagRECT) DllStructSetData($tRECT, 1, $iX) DllStructSetData($tRECT, 2, $iY) DllStructSetData($tRECT, 3, $iX + $iWidth) DllStructSetData($tRECT, 4, $iY + $iHeight) Return $tRECT EndFunc Func _WinAPI_CreateSize($iWidth, $iHeight) Local $tSIZE = DllStructCreate($tagSIZE) DllStructSetData($tSIZE, 1, $iWidth) DllStructSetData($tSIZE, 2, $iHeight) Return $tSIZE EndFunc Func _WinAPI_CopyStruct($tStruct, $sStruct = '') Local $iSize = DllStructGetSize($tStruct) If Not $iSize Then Return SetError(1, 0, 0) Local $tResult If Not StringStripWS($sStruct, $STR_STRIPLEADING + $STR_STRIPTRAILING + $STR_STRIPSPACES) Then $tResult = DllStructCreate('byte[' & $iSize & ']') Else $tResult = DllStructCreate($sStruct) EndIf If DllStructGetSize($tResult) < $iSize Then Return SetError(2, 0, 0) _WinAPI_MoveMemory($tResult, $tStruct, $iSize) Return $tResult EndFunc Func _WinAPI_GetExtended() Return $__g_vExt EndFunc Func _WinAPI_GetMousePos($bToClient = False, $hWnd = 0) Local $iMode = Opt("MouseCoordMode", 1) Local $aPos = MouseGetPos() Opt("MouseCoordMode", $iMode) Local $tPoint = DllStructCreate($tagPOINT) DllStructSetData($tPoint, "X", $aPos[0]) DllStructSetData($tPoint, "Y", $aPos[1]) If $bToClient And Not _WinAPI_ScreenToClient($hWnd, $tPoint) Then Return SetError(@error + 20, @extended, 0) Return $tPoint EndFunc Func _WinAPI_GetMousePosX($bToClient = False, $hWnd = 0) Local $tPoint = _WinAPI_GetMousePos($bToClient, $hWnd) If @error Then Return SetError(@error, @extended, 0) Return DllStructGetData($tPoint, "X") EndFunc Func _WinAPI_GetMousePosY($bToClient = False, $hWnd = 0) Local $tPoint = _WinAPI_GetMousePos($bToClient, $hWnd) If @error Then Return SetError(@error, @extended, 0) Return DllStructGetData($tPoint, "Y") EndFunc Func _WinAPI_MulDiv($iNumber, $iNumerator, $iDenominator) Local $aResult = DllCall("kernel32.dll", "int", "MulDiv", "int", $iNumber, "int", $iNumerator, "int", $iDenominator) If @error Then Return SetError(@error, @extended, -1) Return $aResult[0] EndFunc Func _WinAPI_PlaySound($sSound, $iFlags = $SND_SYSTEM_NOSTOP, $hInstance = 0) Local $sTypeOfSound = 'ptr' If $sSound Then If IsString($sSound) Then $sTypeOfSound = 'wstr' EndIf Else $sSound = 0 $iFlags = 0 EndIf Local $aRet = DllCall('winmm.dll', 'bool', 'PlaySoundW', $sTypeOfSound, $sSound, 'handle', $hInstance, 'dword', $iFlags) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_StringLenA(Const ByRef $tString) Local $aResult = DllCall("kernel32.dll", "int", "lstrlenA", "struct*", $tString) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_StringLenW(Const ByRef $tString) Local $aResult = DllCall("kernel32.dll", "int", "lstrlenW", "struct*", $tString) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_StructToArray(ByRef $tStruct, $iItems = 0) Local $iSize = 2 * Floor(DllStructGetSize($tStruct) / 2) Local $pStruct = DllStructGetPtr($tStruct) If Not $iSize Or Not $pStruct Then Return SetError(1, 0, 0) Local $tData, $iLength, $iOffset = 0 Local $aResult[101] = [0] While 1 $iLength = _WinAPI_StrLen($pStruct + $iOffset) If Not $iLength Then ExitLoop EndIf If 2 * (1 + $iLength) + $iOffset > $iSize Then Return SetError(3, 0, 0) $tData = DllStructCreate('wchar[' & (1 + $iLength) & ']', $pStruct + $iOffset) If @error Then Return SetError(@error + 10, 0, 0) __Inc($aResult) $aResult[$aResult[0]] = DllStructGetData($tData, 1) If $aResult[0] = $iItems Then ExitLoop EndIf $iOffset += 2 * (1 + $iLength) If $iOffset >= $iSize Then Return SetError(3, 0, 0) WEnd If Not $aResult[0] Then Return SetError(2, 0, 0) __Inc($aResult, -1) Return $aResult EndFunc Func _WinAPI_UnionStruct($tStruct1, $tStruct2, $sStruct = '') Local $aSize[2] = [DllStructGetSize($tStruct1), DllStructGetSize($tStruct2)] If Not $aSize[0] Or Not $aSize[1] Then Return SetError(1, 0, 0) Local $tResult If Not StringStripWS($sStruct, $STR_STRIPLEADING + $STR_STRIPTRAILING + $STR_STRIPSPACES) Then $tResult = DllStructCreate('byte[' & ($aSize[0] + $aSize[1]) & ']') Else $tResult = DllStructCreate($sStruct) EndIf If DllStructGetSize($tResult) < ($aSize[0] + $aSize[1]) Then Return SetError(2, 0, 0) _WinAPI_MoveMemory($tResult, $tStruct1, $aSize[0]) _WinAPI_MoveMemory(DllStructGetPtr($tResult) + $aSize[0], $tStruct2, $aSize[1]) Return $tResult EndFunc #EndRegion Public Functions #Region Global Variables and Constants Global Const $tagBITMAP = 'struct;long bmType;long bmWidth;long bmHeight;long bmWidthBytes;ushort bmPlanes;ushort bmBitsPixel;ptr bmBits;endstruct' Global Const $tagBITMAPV5HEADER = 'struct;dword bV5Size;long bV5Width;long bV5Height;ushort bV5Planes;ushort bV5BitCount;dword bV5Compression;dword bV5SizeImage;long bV5XPelsPerMeter;long bV5YPelsPerMeter;dword bV5ClrUsed;dword bV5ClrImportant;dword bV5RedMask;dword bV5GreenMask;dword bV5BlueMask;dword bV5AlphaMask;dword bV5CSType;int bV5Endpoints[9];dword bV5GammaRed;dword bV5GammaGreen;dword bV5GammaBlue;dword bV5Intent;dword bV5ProfileData;dword bV5ProfileSize;dword bV5Reserved;endstruct' Global Const $tagDIBSECTION = $tagBITMAP & ';' & $tagBITMAPINFOHEADER & ';dword dsBitfields[3];ptr dshSection;dword dsOffset' Global Const $TMPF_FIXED_PITCH = 0x01 Global Const $TMPF_VECTOR = 0x02 Global Const $TMPF_TRUETYPE = 0x04 Global Const $TMPF_DEVICE = 0x08 Global Const $__WINAPICONSTANT_FW_NORMAL = 400 Global Const $__WINAPICONSTANT_DEFAULT_CHARSET = 1 Global Const $__WINAPICONSTANT_OUT_DEFAULT_PRECIS = 0 Global Const $__WINAPICONSTANT_CLIP_DEFAULT_PRECIS = 0 Global Const $__WINAPICONSTANT_DEFAULT_QUALITY = 0 #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list #Region Public Functions Func _WinAPI_BitBlt($hDestDC, $iXDest, $iYDest, $iWidth, $iHeight, $hSrcDC, $iXSrc, $iYSrc, $iROP) Local $aResult = DllCall("gdi32.dll", "bool", "BitBlt", "handle", $hDestDC, "int", $iXDest, "int", $iYDest, "int", $iWidth, "int", $iHeight, "handle", $hSrcDC, "int", $iXSrc, "int", $iYSrc, "dword", $iROP) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_CombineRgn($hRgnDest, $hRgnSrc1, $hRgnSrc2, $iCombineMode) Local $aResult = DllCall("gdi32.dll", "int", "CombineRgn", "handle", $hRgnDest, "handle", $hRgnSrc1, "handle", $hRgnSrc2, "int", $iCombineMode) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_CopyBitmap($hBitmap) $hBitmap = _WinAPI_CopyImage($hBitmap, 0, 0, 0, 0x2000) Return SetError(@error, @extended, $hBitmap) EndFunc Func _WinAPI_CopyImage($hImage, $iType = 0, $iXDesiredPixels = 0, $iYDesiredPixels = 0, $iFlags = 0) Local $aRet = DllCall('user32.dll', 'handle', 'CopyImage', 'handle', $hImage, 'uint', $iType, 'int', $iXDesiredPixels, 'int', $iYDesiredPixels, 'uint', $iFlags) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CreateANDBitmap($hBitmap) Local $iError = 0, $hDib = 0 $hBitmap = _WinAPI_CopyBitmap($hBitmap) If Not $hBitmap Then Return SetError(@error + 20, @extended, 0) Do Local $atDIB[2] $atDIB[0] = DllStructCreate($tagDIBSECTION) If (Not _WinAPI_GetObject($hBitmap, DllStructGetSize($atDIB[0]), $atDIB[0])) Or (DllStructGetData($atDIB[0], 'bmBitsPixel') <> 32) Or (DllStructGetData($atDIB[0], 'biCompression')) Then $iError = 10 ExitLoop EndIf $atDIB[1] = DllStructCreate($tagBITMAP) $hDib = _WinAPI_CreateDIB(DllStructGetData($atDIB[0], 'bmWidth'), DllStructGetData($atDIB[0], 'bmHeight'), 1) If Not _WinAPI_GetObject($hDib, DllStructGetSize($atDIB[1]), $atDIB[1]) Then $iError = 11 ExitLoop EndIf Local $aRet = DllCall('user32.dll', 'lresult', 'CallWindowProc', 'ptr', __ANDProc(), 'ptr', 0, 'uint', 0, 'wparam', DllStructGetPtr($atDIB[0]), 'lparam', DllStructGetPtr($atDIB[1])) If @error Then $iError = @error ExitLoop EndIf If Not $aRet[0] Then $iError = 12 ExitLoop EndIf $iError = 0 Until 1 _WinAPI_DeleteObject($hBitmap) If $iError Then If $hDib Then _WinAPI_DeleteObject($hDib) EndIf $hDib = 0 EndIf Return SetError($iError, 0, $hDib) EndFunc Func _WinAPI_CreateBitmap($iWidth, $iHeight, $iPlanes = 1, $iBitsPerPel = 1, $pBits = 0) Local $aResult = DllCall("gdi32.dll", "handle", "CreateBitmap", "int", $iWidth, "int", $iHeight, "uint", $iPlanes, "uint", $iBitsPerPel, "struct*", $pBits) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_CreateCompatibleBitmap($hDC, $iWidth, $iHeight) Local $aResult = DllCall("gdi32.dll", "handle", "CreateCompatibleBitmap", "handle", $hDC, "int", $iWidth, "int", $iHeight) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_CreateDIB($iWidth, $iHeight, $iBitsPerPel = 32, $tColorTable = 0, $iColorCount = 0) Local $aRGBQ[2], $iColors, $tagRGBQ Switch $iBitsPerPel Case 1 $iColors = 2 Case 4 $iColors = 16 Case 8 $iColors = 256 Case Else $iColors = 0 EndSwitch If $iColors Then If Not IsDllStruct($tColorTable) Then Switch $iBitsPerPel Case 1 $aRGBQ[0] = 0 $aRGBQ[1] = 0xFFFFFF $tColorTable = _WinAPI_CreateDIBColorTable($aRGBQ) Case Else EndSwitch Else If $iColors > $iColorCount Then $iColors = $iColorCount EndIf If (Not $iColors) Or ((4 * $iColors) > DllStructGetSize($tColorTable)) Then Return SetError(20, 0, 0) EndIf EndIf $tagRGBQ = ';dword aRGBQuad[' & $iColors & ']' Else $tagRGBQ = '' EndIf Local $tBITMAPINFO = DllStructCreate($tagBITMAPINFOHEADER & $tagRGBQ) DllStructSetData($tBITMAPINFO, 'biSize', 40) DllStructSetData($tBITMAPINFO, 'biWidth', $iWidth) DllStructSetData($tBITMAPINFO, 'biHeight', $iHeight) DllStructSetData($tBITMAPINFO, 'biPlanes', 1) DllStructSetData($tBITMAPINFO, 'biBitCount', $iBitsPerPel) DllStructSetData($tBITMAPINFO, 'biCompression', 0) DllStructSetData($tBITMAPINFO, 'biSizeImage', 0) DllStructSetData($tBITMAPINFO, 'biXPelsPerMeter', 0) DllStructSetData($tBITMAPINFO, 'biYPelsPerMeter', 0) DllStructSetData($tBITMAPINFO, 'biClrUsed', $iColors) DllStructSetData($tBITMAPINFO, 'biClrImportant', 0) If $iColors Then If IsDllStruct($tColorTable) Then _WinAPI_MoveMemory(DllStructGetPtr($tBITMAPINFO, 'aRGBQuad'), $tColorTable, 4 * $iColors) Else _WinAPI_ZeroMemory(DllStructGetPtr($tBITMAPINFO, 'aRGBQuad'), 4 * $iColors) EndIf EndIf Local $hBitmap = _WinAPI_CreateDIBSection(0, $tBITMAPINFO, 0, $__g_vExt) If Not $hBitmap Then Return SetError(@error, @extended, 0) Return $hBitmap EndFunc Func _WinAPI_CreateDIBSection($hDC, $tBITMAPINFO, $iUsage, ByRef $pBits, $hSection = 0, $iOffset = 0) $pBits = 0 Local $aRet = DllCall('gdi32.dll', 'handle', 'CreateDIBSection', 'handle', $hDC, 'struct*', $tBITMAPINFO, 'uint', $iUsage, 'ptr*', 0, 'handle', $hSection, 'dword', $iOffset) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, 0) $pBits = $aRet[4] Return $aRet[0] EndFunc Func _WinAPI_CreateDIBColorTable(Const ByRef $aColorTable, $iStart = 0, $iEnd = -1) If __CheckErrorArrayBounds($aColorTable, $iStart, $iEnd) Then Return SetError(@error + 10, @extended, 0) Local $tColorTable = DllStructCreate('dword[' & ($iEnd - $iStart + 1) & ']') Local $iCount = 1 For $i = $iStart To $iEnd DllStructSetData($tColorTable, 1, _WinAPI_SwitchColor(__RGB($aColorTable[$i])), $iCount) $iCount += 1 Next Return $tColorTable EndFunc Func _WinAPI_CreateFont($iHeight, $iWidth, $iEscape = 0, $iOrientn = 0, $iWeight = $__WINAPICONSTANT_FW_NORMAL, $bItalic = False, $bUnderline = False, $bStrikeout = False, $iCharset = $__WINAPICONSTANT_DEFAULT_CHARSET, $iOutputPrec = $__WINAPICONSTANT_OUT_DEFAULT_PRECIS, $iClipPrec = $__WINAPICONSTANT_CLIP_DEFAULT_PRECIS, $iQuality = $__WINAPICONSTANT_DEFAULT_QUALITY, $iPitch = 0, $sFace = 'Arial') Local $aResult = DllCall("gdi32.dll", "handle", "CreateFontW", "int", $iHeight, "int", $iWidth, "int", $iEscape, "int", $iOrientn, "int", $iWeight, "dword", $bItalic, "dword", $bUnderline, "dword", $bStrikeout, "dword", $iCharset, "dword", $iOutputPrec, "dword", $iClipPrec, "dword", $iQuality, "dword", $iPitch, "wstr", $sFace) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_CreateFontIndirect($tLogFont) Local $aResult = DllCall("gdi32.dll", "handle", "CreateFontIndirectW", "struct*", $tLogFont) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_CreateRectRgn($iLeftRect, $iTopRect, $iRightRect, $iBottomRect) Local $aResult = DllCall("gdi32.dll", "handle", "CreateRectRgn", "int", $iLeftRect, "int", $iTopRect, "int", $iRightRect, "int", $iBottomRect) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_CreateRoundRectRgn($iLeftRect, $iTopRect, $iRightRect, $iBottomRect, $iWidthEllipse, $iHeightEllipse) Local $aResult = DllCall("gdi32.dll", "handle", "CreateRoundRectRgn", "int", $iLeftRect, "int", $iTopRect, "int", $iRightRect, "int", $iBottomRect, "int", $iWidthEllipse, "int", $iHeightEllipse) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_CreateSolidBrush($iColor) Local $aResult = DllCall("gdi32.dll", "handle", "CreateSolidBrush", "INT", $iColor) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetBitmapDimension($hBitmap) Local $tObj = DllStructCreate($tagBITMAP) Local $aRet = DllCall('gdi32.dll', 'int', 'GetObject', 'handle', $hBitmap, 'int', DllStructGetSize($tObj), 'struct*', $tObj) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return _WinAPI_CreateSize(DllStructGetData($tObj, 'bmWidth'), DllStructGetData($tObj, 'bmHeight')) EndFunc Func _WinAPI_GetSysColorBrush($iIndex) Local $aResult = DllCall("user32.dll", "handle", "GetSysColorBrush", "int", $iIndex) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetTextExtentPoint32($hDC, $sText) Local $tSize = DllStructCreate($tagSIZE) Local $iSize = StringLen($sText) Local $aRet = DllCall("gdi32.dll", "bool", "GetTextExtentPoint32W", "handle", $hDC, "wstr", $sText, "int", $iSize, "struct*", $tSize) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tSize EndFunc Func _WinAPI_GetTextMetrics($hDC) Local $tTEXTMETRIC = DllStructCreate($tagTEXTMETRIC) Local $aRet = DllCall('gdi32.dll', 'bool', 'GetTextMetricsW', 'handle', $hDC, 'struct*', $tTEXTMETRIC) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tTEXTMETRIC EndFunc Func _WinAPI_GetWindowRgn($hWnd, $hRgn) Local $aResult = DllCall("user32.dll", "int", "GetWindowRgn", "hwnd", $hWnd, "handle", $hRgn) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_IsAlphaBitmap($hBitmap) $hBitmap = _WinAPI_CopyBitmap($hBitmap) If Not $hBitmap Then Return SetError(@error + 20, @extended, 0) Local $aRet, $iError = 0 Do Local $tDIB = DllStructCreate($tagDIBSECTION) If (Not _WinAPI_GetObject($hBitmap, DllStructGetSize($tDIB), $tDIB)) Or (DllStructGetData($tDIB, 'bmBitsPixel') <> 32) Or (DllStructGetData($tDIB, 'biCompression')) Then $iError = 1 ExitLoop EndIf $aRet = DllCall('user32.dll', 'int', 'CallWindowProc', 'ptr', __AlphaProc(), 'ptr', 0, 'uint', 0, 'struct*', $tDIB, 'ptr', 0) If @error Or ($aRet[0] = -1) Then $iError = @error + 10 ExitLoop EndIf Until 1 _WinAPI_DeleteObject($hBitmap) If $iError Then Return SetError($iError, 0, 0) Return $aRet[0] EndFunc Func _WinAPI_PtInRect(ByRef $tRECT, ByRef $tPoint) Local $aResult = DllCall("user32.dll", "bool", "PtInRect", "struct*", $tRECT, "struct", $tPoint) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_RedrawWindow($hWnd, $tRECT = 0, $hRegion = 0, $iFlags = 5) Local $aResult = DllCall("user32.dll", "bool", "RedrawWindow", "hwnd", $hWnd, "struct*", $tRECT, "handle", $hRegion, "uint", $iFlags) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_SetWindowRgn($hWnd, $hRgn, $bRedraw = True) Local $aResult = DllCall("user32.dll", "int", "SetWindowRgn", "hwnd", $hWnd, "handle", $hRgn, "bool", $bRedraw) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc #EndRegion Public Functions #Region Embedded DLL Functions Func __AlphaProc() Static $pProc = 0 If Not $pProc Then If @AutoItX64 Then $pProc = __Init(Binary( '0x48894C240848895424104C894424184C894C24205541574831C050504883EC28' & '48837C24600074054831C0EB0748C7C0010000004821C0751F488B6C24604883' & '7D180074054831C0EB0748C7C0010000004821C07502EB0948C7C001000000EB' & '034831C04821C0740C48C7C0FFFFFFFF4863C0EB6F48C744242800000000488B' & '6C24604C637D04488B6C2460486345084C0FAFF849C1E7024983C7FC4C3B7C24' & '287C36488B6C24604C8B7D184C037C24284983C7034C897C2430488B6C243080' & '7D0000740C48C7C0010000004863C0EB1348834424280471A54831C04863C0EB' & '034831C04883C438415F5DC3')) Else $pProc = __Init(Binary( '0x555331C05050837C241C00740431C0EB05B80100000021C075198B6C241C837D' & '1400740431C0EB05B80100000021C07502EB07B801000000EB0231C021C07407' & 'B8FFFFFFFFEB4FC70424000000008B6C241C8B5D048B6C241C0FAF5D08C1E302' & '83C3FC3B1C247C288B6C241C8B5D14031C2483C303895C24048B6C2404807D00' & '007407B801000000EB0C8304240471BE31C0EB0231C083C4085B5DC21000')) EndIf EndIf Return $pProc EndFunc Func __ANDProc() Static $pProc = 0 If Not $pProc Then If @AutoItX64 Then $pProc = __Init(Binary( '0x48894C240848895424104C894424184C894C2420554157415648C7C009000000' & '4883EC0848C704240000000048FFC875EF4883EC284883BC24A0000000007405' & '4831C0EB0748C7C0010000004821C00F85840000004883BC24A8000000007405' & '4831C0EB0748C7C0010000004821C07555488BAC24A000000048837D18007405' & '4831C0EB0748C7C0010000004821C07522488BAC24A800000048837D18007405' & '4831C0EB0748C7C0010000004821C07502EB0948C7C001000000EB034831C048' & '21C07502EB0948C7C001000000EB034831C04821C07502EB0948C7C001000000' & 'EB034831C04821C0740B4831C04863C0E9D701000048C74424280000000048C7' & '44243000000000488BAC24A00000004C637D0849FFCF4C3B7C24300F8C9C0100' & '0048C74424380000000048C74424400000000048C744244800000000488BAC24' & 'A00000004C637D0449FFCF4C3B7C24480F8CDB000000488BAC24A00000004C8B' & '7D184C037C24284983C7034C897C2450488B6C2450807D000074264C8B7C2440' & '4C8B74243849F7DE4983C61F4C89F148C7C00100000048D3E04909C74C897C24' & '4048FF4424384C8B7C24384983FF1F7E6F4C8B7C244049F7D74C897C244048C7' & '442458180000004831C0483B4424587F3D488BAC24A80000004C8B7D184C037C' & '24604C897C24504C8B7C2440488B4C245849D3FF4C89F850488B6C2458588845' & '0048FF4424604883442458F871B948C74424380000000048C744244000000000' & '48834424280448FF4424480F810BFFFFFF48837C24380074794C8B7C244049F7' & 'D74C8B74243849F7DE4983C6204C89F148C7C0FFFFFFFF48D3E04921C74C897C' & '244048C7442458180000004831C0483B4424587F3D488BAC24A80000004C8B7D' & '184C037C24604C897C24504C8B7C2440488B4C245849D3FF4C89F850488B6C24' & '585888450048FF4424604883442458F871B948FF4424300F814AFEFFFF48C7C0' & '010000004863C0EB034831C04883C470415E415F5DC3')) Else $pProc = __Init(Binary( '0x555357BA0800000083EC04C70424000000004A75F3837C243800740431C0EB05' & 'B80100000021C07562837C243C00740431C0EB05B80100000021C0753F8B6C24' & '38837D1400740431C0EB05B80100000021C075198B6C243C837D1400740431C0' & 'EB05B80100000021C07502EB07B801000000EB0231C021C07502EB07B8010000' & '00EB0231C021C07502EB07B801000000EB0231C021C0740731C0E969010000C7' & '042400000000C7442404000000008B6C24388B5D084B3B5C24040F8C3F010000' & 'C744240800000000C744240C00000000C7442410000000008B6C24388B5D044B' & '3B5C24100F8CA90000008B6C24388B5D14031C2483C303895C24148B6C241480' & '7D0000741C8B5C240C8B7C2408F7DF83C71F89F9B801000000D3E009C3895C24' & '0CFF4424088B5C240883FB1F7E578B5C240CF7D3895C240CC744241818000000' & '31C03B4424187F2D8B6C243C8B5D14035C241C895C24148B5C240C8B4C2418D3' & 'FB538B6C241858884500FF44241C83442418F871CBC744240800000000C74424' & '0C0000000083042404FF4424100F8145FFFFFF837C240800745B8B5C240CF7D3' & '8B7C2408F7DF83C72089F9B8FFFFFFFFD3E021C3895C240CC744241818000000' & '31C03B4424187F2D8B6C243C8B5D14035C241C895C24148B5C240C8B4C2418D3' & 'FB538B6C241858884500FF44241C83442418F871CBFF4424040F81AFFEFFFFB8' & '01000000EB0231C083C4205F5B5DC21000')) EndIf EndIf Return $pProc EndFunc Func __XORProc() Static $pProc = 0 If Not $pProc Then If @AutoItX64 Then $pProc = __Init(Binary( '0x48894C240848895424104C894424184C894C24205541574831C050504883EC28' & '48837C24600074054831C0EB0748C7C0010000004821C0751B48837C24680074' & '054831C0EB0748C7C0010000004821C07502EB0948C7C001000000EB034831C0' & '4821C074084831C04863C0EB7748C7442428000000004C637C24584983C7FC4C' & '3B7C24287C4F4C8B7C24604C037C24284C897C2430488B6C2430807D00007405' & '4831C0EB0748C7C0010000004821C0741C4C8B7C24684C037C24284983C7034C' & '897C2430488B6C2430C64500FF48834424280471A148C7C0010000004863C0EB' & '034831C04883C438415F5DC3')) Else $pProc = __Init(Binary( '0x555331C05050837C241C00740431C0EB05B80100000021C07516837C24200074' & '0431C0EB05B80100000021C07502EB07B801000000EB0231C021C0740431C0EB' & '5AC70424000000008B5C241883C3FC3B1C247C3E8B5C241C031C24895C24048B' & '6C2404807D0000740431C0EB05B80100000021C074168B5C2420031C2483C303' & '895C24048B6C2404C64500FF8304240471B6B801000000EB0231C083C4085B5D' & 'C21000')) EndIf EndIf Return $pProc EndFunc #EndRegion Embedded DLL Functions #Region Internal Functions Func __Init($dData) Local $iLength = BinaryLen($dData) Local $aRet = DllCall('kernel32.dll', 'ptr', 'VirtualAlloc', 'ptr', 0, 'ulong_ptr', $iLength, 'dword', 0x00001000, 'dword', 0x00000040) If @error Or Not $aRet[0] Then __FatalExit(1, 'Error allocating memory.') Local $tData = DllStructCreate('byte[' & $iLength & "]", $aRet[0]) DllStructSetData($tData, 1, $dData) Return $aRet[0] EndFunc #EndRegion Internal Functions #Region Global Variables and Constants Global Const $DI_MASK = 0x0001 Global Const $DI_IMAGE = 0x0002 Global Const $DI_NORMAL = 0x0003 Global Const $DI_COMPAT = 0x0004 Global Const $DI_DEFAULTSIZE = 0x0008 Global Const $DI_NOMIRROR = 0x0010 Global Const $DISPLAY_DEVICE_ATTACHED_TO_DESKTOP = 0x00000001 Global Const $DISPLAY_DEVICE_MULTI_DRIVER = 0x00000002 Global Const $DISPLAY_DEVICE_PRIMARY_DEVICE = 0x00000004 Global Const $DISPLAY_DEVICE_MIRRORING_DRIVER = 0x00000008 Global Const $DISPLAY_DEVICE_VGA_COMPATIBLE = 0x00000010 Global Const $DISPLAY_DEVICE_REMOVABLE = 0x00000020 Global Const $DISPLAY_DEVICE_DISCONNECT = 0x02000000 Global Const $DISPLAY_DEVICE_REMOTE = 0x04000000 Global Const $DISPLAY_DEVICE_MODESPRUNED = 0x08000000 #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list #Region Public Functions Func _WinAPI_CreateCompatibleDC($hDC) Local $aResult = DllCall("gdi32.dll", "handle", "CreateCompatibleDC", "handle", $hDC) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_DeleteDC($hDC) Local $aResult = DllCall("gdi32.dll", "bool", "DeleteDC", "handle", $hDC) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_DrawEdge($hDC, $tRECT, $iEdgeType, $iFlags) Local $aResult = DllCall("user32.dll", "bool", "DrawEdge", "handle", $hDC, "struct*", $tRECT, "uint", $iEdgeType, "uint", $iFlags) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_DrawFrameControl($hDC, $tRECT, $iType, $iState) Local $aResult = DllCall("user32.dll", "bool", "DrawFrameControl", "handle", $hDC, "struct*", $tRECT, "uint", $iType, "uint", $iState) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_DrawIcon($hDC, $iX, $iY, $hIcon) Local $aResult = DllCall("user32.dll", "bool", "DrawIcon", "handle", $hDC, "int", $iX, "int", $iY, "handle", $hIcon) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_DrawIconEx($hDC, $iX, $iY, $hIcon, $iWidth = 0, $iHeight = 0, $iStep = 0, $hBrush = 0, $iFlags = 3) Local $iOptions Switch $iFlags Case 1 $iOptions = $DI_MASK Case 2 $iOptions = $DI_IMAGE Case 3 $iOptions = $DI_NORMAL Case 4 $iOptions = $DI_COMPAT Case 5 $iOptions = $DI_DEFAULTSIZE Case Else $iOptions = $DI_NOMIRROR EndSwitch Local $aResult = DllCall("user32.dll", "bool", "DrawIconEx", "handle", $hDC, "int", $iX, "int", $iY, "handle", $hIcon, "int", $iWidth, "int", $iHeight, "uint", $iStep, "handle", $hBrush, "uint", $iOptions) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_DrawText($hDC, $sText, ByRef $tRECT, $iFlags) Local $aResult = DllCall("user32.dll", "int", "DrawTextW", "handle", $hDC, "wstr", $sText, "int", -1, "struct*", $tRECT, "uint", $iFlags) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_EnumDisplayDevices($sDevice, $iDevNum) Local $tName = 0, $iFlags = 0, $aDevice[5] If $sDevice <> "" Then $tName = DllStructCreate("wchar Text[" & StringLen($sDevice) + 1 & "]") DllStructSetData($tName, "Text", $sDevice) EndIf Local Const $tagDISPLAY_DEVICE = "dword Size;wchar Name[32];wchar String[128];dword Flags;wchar ID[128];wchar Key[128]" Local $tDevice = DllStructCreate($tagDISPLAY_DEVICE) Local $iDevice = DllStructGetSize($tDevice) DllStructSetData($tDevice, "Size", $iDevice) Local $aRet = DllCall("user32.dll", "bool", "EnumDisplayDevicesW", "struct*", $tName, "dword", $iDevNum, "struct*", $tDevice, "dword", 1) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Local $iN = DllStructGetData($tDevice, "Flags") If BitAND($iN, $DISPLAY_DEVICE_ATTACHED_TO_DESKTOP) <> 0 Then $iFlags = BitOR($iFlags, 1) If BitAND($iN, $DISPLAY_DEVICE_PRIMARY_DEVICE) <> 0 Then $iFlags = BitOR($iFlags, 2) If BitAND($iN, $DISPLAY_DEVICE_MIRRORING_DRIVER) <> 0 Then $iFlags = BitOR($iFlags, 4) If BitAND($iN, $DISPLAY_DEVICE_VGA_COMPATIBLE) <> 0 Then $iFlags = BitOR($iFlags, 8) If BitAND($iN, $DISPLAY_DEVICE_REMOVABLE) <> 0 Then $iFlags = BitOR($iFlags, 16) If BitAND($iN, $DISPLAY_DEVICE_MODESPRUNED) <> 0 Then $iFlags = BitOR($iFlags, 32) $aDevice[0] = True $aDevice[1] = DllStructGetData($tDevice, "Name") $aDevice[2] = DllStructGetData($tDevice, "String") $aDevice[3] = $iFlags $aDevice[4] = DllStructGetData($tDevice, "ID") Return $aDevice EndFunc Func _WinAPI_FillRect($hDC, $tRECT, $hBrush) Local $aResult If IsPtr($hBrush) Then $aResult = DllCall("user32.dll", "int", "FillRect", "handle", $hDC, "struct*", $tRECT, "handle", $hBrush) Else $aResult = DllCall("user32.dll", "int", "FillRect", "handle", $hDC, "struct*", $tRECT, "dword_ptr", $hBrush) EndIf If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_FrameRect($hDC, $tRECT, $hBrush) Local $aResult = DllCall("user32.dll", "int", "FrameRect", "handle", $hDC, "struct*", $tRECT, "handle", $hBrush) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_GetBkMode($hDC) Local $aResult = DllCall("gdi32.dll", "int", "GetBkMode", "handle", $hDC) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetDC($hWnd) Local $aResult = DllCall("user32.dll", "handle", "GetDC", "hwnd", $hWnd) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetDCEx($hWnd, $hRgn, $iFlags) Local $aRet = DllCall('user32.dll', 'handle', 'GetDCEx', 'hwnd', $hWnd, 'handle', $hRgn, 'dword', $iFlags) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetDeviceCaps($hDC, $iIndex) Local $aResult = DllCall("gdi32.dll", "int", "GetDeviceCaps", "handle", $hDC, "int", $iIndex) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_GetTextColor($hDC) Local $aRet = DllCall('gdi32.dll', 'dword', 'GetTextColor', 'handle', $hDC) If @error Or ($aRet[0] = 4294967295) Then Return SetError(@error, @extended, -1) Return __RGB($aRet[0]) EndFunc Func _WinAPI_GetWindowDC($hWnd) Local $aResult = DllCall("user32.dll", "handle", "GetWindowDC", "hwnd", $hWnd) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_PrintWindow($hWnd, $hDC, $bClient = False) Local $aRet = DllCall('user32.dll', 'bool', 'PrintWindow', 'hwnd', $hWnd, 'handle', $hDC, 'uint', $bClient) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_ReleaseDC($hWnd, $hDC) Local $aResult = DllCall("user32.dll", "int", "ReleaseDC", "hwnd", $hWnd, "handle", $hDC) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_RestoreDC($hDC, $iID) Local $aRet = DllCall('gdi32.dll', 'bool', 'RestoreDC', 'handle', $hDC, 'int', $iID) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SaveDC($hDC) Local $aRet = DllCall('gdi32.dll', 'int', 'SaveDC', 'handle', $hDC) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetBkColor($hDC, $iColor) Local $aResult = DllCall("gdi32.dll", "INT", "SetBkColor", "handle", $hDC, "INT", $iColor) If @error Then Return SetError(@error, @extended, -1) Return $aResult[0] EndFunc Func _WinAPI_SetBkMode($hDC, $iBkMode) Local $aResult = DllCall("gdi32.dll", "int", "SetBkMode", "handle", $hDC, "int", $iBkMode) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_SetTextColor($hDC, $iColor) Local $aResult = DllCall("gdi32.dll", "INT", "SetTextColor", "handle", $hDC, "INT", $iColor) If @error Then Return SetError(@error, @extended, -1) Return $aResult[0] EndFunc Func _WinAPI_TwipsPerPixelX() Local $hDC, $iTwipsPerPixelX $hDC = _WinAPI_GetDC(0) Local Const $__WINAPICONSTANT_LOGPIXELSX = 88 $iTwipsPerPixelX = 1440 / _WinAPI_GetDeviceCaps($hDC, $__WINAPICONSTANT_LOGPIXELSX) _WinAPI_ReleaseDC(0, $hDC) Return $iTwipsPerPixelX EndFunc Func _WinAPI_TwipsPerPixelY() Local $hDC, $iTwipsPerPixelY $hDC = _WinAPI_GetDC(0) Local Const $__WINAPICONSTANT_LOGPIXELSY = 90 $iTwipsPerPixelY = 1440 / _WinAPI_GetDeviceCaps($hDC, $__WINAPICONSTANT_LOGPIXELSY) _WinAPI_ReleaseDC(0, $hDC) Return $iTwipsPerPixelY EndFunc #EndRegion Public Functions #Region Internal Functions #EndRegion Internal Functions #Region Global Variables and Constants #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list #Region Public Functions Global Const $tagICONINFO = "bool Icon;dword XHotSpot;dword YHotSpot;handle hMask;handle hColor" Func _WinAPI_AddIconTransparency($hIcon, $iPercent = 50, $bDelete = False) Local $tBITMAP, $hDib = 0, $hResult = 0 Local $ahBitmap[2] Local $tICONINFO = DllStructCreate($tagICONINFO) Local $aRet = DllCall('user32.dll', 'bool', 'GetIconInfo', 'handle', $hIcon, 'struct*', $tICONINFO) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) For $i = 0 To 1 $ahBitmap[$i] = DllStructGetData($tICONINFO, $i + 4) Next Local $iError = 0 Do $hDib = _WinAPI_CopyBitmap($ahBitmap[1]) If Not $hDib Then $iError = 20 ExitLoop EndIf $tBITMAP = DllStructCreate($tagBITMAP) If (Not _WinAPI_GetObject($hDib, DllStructGetSize($tBITMAP), $tBITMAP)) Or (DllStructGetData($tBITMAP, 'bmBitsPixel') <> 32) Then $iError = 21 ExitLoop EndIf $aRet = DllCall('user32.dll', 'lresult', 'CallWindowProc', 'PTR', __TransparencyProc(), 'hwnd', 0, 'uint', $iPercent, 'wparam', DllStructGetPtr($tBITMAP), 'lparam', 0) If @error Or Not $aRet[0] Then $iError = @error + 30 ExitLoop EndIf If $aRet[0] = -1 Then $hResult = _WinAPI_CreateEmptyIcon(DllStructGetData($tBITMAP, 'bmWidth'), DllStructGetData($tBITMAP, 'bmHeight')) Else $hResult = _WinAPI_CreateIconIndirect($hDib, $ahBitmap[0]) EndIf If Not $hResult Then $iError = 22 Until 1 If $hDib Then _WinAPI_DeleteObject($hDib) EndIf For $i = 0 To 1 If $ahBitmap[$i] Then _WinAPI_DeleteObject($ahBitmap[$i]) EndIf Next If $iError Then Return SetError($iError, 0, 0) If $bDelete Then _WinAPI_DestroyIcon($hIcon) EndIf Return $hResult EndFunc Func _WinAPI_CopyIcon($hIcon) Local $aResult = DllCall("user32.dll", "handle", "CopyIcon", "handle", $hIcon) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_Create32BitHICON($hIcon, $bDelete = False) Local $ahBitmap[2], $hResult = 0 Local $aDIB[2][2] = [[0, 0], [0, 0]] Local $tICONINFO = DllStructCreate($tagICONINFO) Local $aRet = DllCall('user32.dll', 'bool', 'GetIconInfo', 'handle', $hIcon, 'struct*', $tICONINFO) If @error Then Return SetError(@error, @extended, 0) If Not $aRet[0] Then Return SetError(10, 0, 0) For $i = 0 To 1 $ahBitmap[$i] = DllStructGetData($tICONINFO, $i + 4) Next If _WinAPI_IsAlphaBitmap($ahBitmap[1]) Then $aDIB[0][0] = _WinAPI_CreateANDBitmap($ahBitmap[1]) If Not @error Then $hResult = _WinAPI_CreateIconIndirect($ahBitmap[1], $aDIB[0][0]) EndIf Else Local $tSIZE = _WinAPI_GetBitmapDimension($ahBitmap[1]) Local $aSize[2] For $i = 0 To 1 $aSize[$i] = DllStructGetData($tSIZE, $i + 1) Next Local $hSrcDC = _WinAPI_CreateCompatibleDC(0) Local $hDstDC = _WinAPI_CreateCompatibleDC(0) Local $hSrcSv, $hDstSv For $i = 0 To 1 $aDIB[$i][0] = _WinAPI_CreateDIB($aSize[0], $aSize[1]) $aDIB[$i][1] = $__g_vExt $hSrcSv = _WinAPI_SelectObject($hSrcDC, $ahBitmap[$i]) $hDstSv = _WinAPI_SelectObject($hDstDC, $aDIB[$i][0]) _WinAPI_BitBlt($hDstDC, 0, 0, $aSize[0], $aSize[1], $hSrcDC, 0, 0, 0x00C000CA) _WinAPI_SelectObject($hSrcDC, $hSrcSv) _WinAPI_SelectObject($hDstDC, $hDstSv) Next _WinAPI_DeleteDC($hSrcDC) _WinAPI_DeleteDC($hDstDC) $aRet = DllCall('user32.dll', 'lresult', 'CallWindowProc', 'ptr', __XORProc(), 'ptr', 0, 'uint', $aSize[0] * $aSize[1] * 4, 'wparam', $aDIB[0][1], 'lparam', $aDIB[1][1]) If Not @error And $aRet[0] Then $hResult = _WinAPI_CreateIconIndirect($aDIB[1][0], $ahBitmap[0]) EndIf EndIf For $i = 0 To 1 _WinAPI_DeleteObject($ahBitmap[$i]) If $aDIB[$i][0] Then _WinAPI_DeleteObject($aDIB[$i][0]) EndIf Next If Not $hResult Then Return SetError(11, 0, 0) If $bDelete Then _WinAPI_DestroyIcon($hIcon) EndIf Return $hResult EndFunc Func _WinAPI_CreateEmptyIcon($iWidth, $iHeight, $iBitsPerPel = 32) Local $hXOR = _WinAPI_CreateDIB($iWidth, $iHeight, $iBitsPerPel) Local $hAND = _WinAPI_CreateDIB($iWidth, $iHeight, 1) Local $hDC = _WinAPI_CreateCompatibleDC(0) Local $hSv = _WinAPI_SelectObject($hDC, $hAND) Local $hBrush = _WinAPI_CreateSolidBrush(0xFFFFFF) Local $tRECT = _WinAPI_CreateRect(0, 0, $iWidth, $iHeight) _WinAPI_FillRect($hDC, $tRECT, $hBrush) _WinAPI_DeleteObject($hBrush) _WinAPI_SelectObject($hDC, $hSv) _WinAPI_DeleteDC($hDC) Local $hIcon = _WinAPI_CreateIconIndirect($hXOR, $hAND) Local $iError = @error If $hXOR Then _WinAPI_DeleteObject($hXOR) EndIf If $hAND Then _WinAPI_DeleteObject($hAND) EndIf If Not $hIcon Then Return SetError($iError + 10, 0, 0) Return $hIcon EndFunc Func _WinAPI_CreateIcon($hInstance, $iWidth, $iHeight, $iPlanes, $iBitsPixel, $pANDBits, $pXORBits) Local $aRet = DllCall('user32.dll', 'handle', 'CreateIcon', 'handle', $hInstance, 'int', $iWidth, 'int', $iHeight, 'byte', $iPlanes, 'byte', $iBitsPixel, 'struct*', $pANDBits, 'struct*', $pXORBits) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CreateIconFromResourceEx($pData, $iSize, $bIcon = True, $iXDesiredPixels = 0, $iYDesiredPixels = 0, $iFlags = 0) Local $aRet = DllCall('user32.dll', 'handle', 'CreateIconFromResourceEx', 'ptr', $pData, 'dword', $iSize, 'bool', $bIcon, 'dword', 0x00030000, 'int', $iXDesiredPixels, 'int', $iYDesiredPixels, 'uint', $iFlags) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CreateIconIndirect($hBitmap, $hMask, $iXHotspot = 0, $iYHotspot = 0, $bIcon = True) Local $tICONINFO = DllStructCreate($tagICONINFO) DllStructSetData($tICONINFO, 1, $bIcon) DllStructSetData($tICONINFO, 2, $iXHotspot) DllStructSetData($tICONINFO, 3, $iYHotspot) DllStructSetData($tICONINFO, 4, $hMask) DllStructSetData($tICONINFO, 5, $hBitmap) Local $aRet = DllCall('user32.dll', 'handle', 'CreateIconIndirect', 'struct*', $tICONINFO) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_DestroyIcon($hIcon) Local $aResult = DllCall("user32.dll", "bool", "DestroyIcon", "handle", $hIcon) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_ExtractIcon($sIcon, $iIndex, $bSmall = False) Local $pLarge, $pSmall, $tPtr = DllStructCreate('ptr') If $bSmall Then $pLarge = 0 $pSmall = DllStructGetPtr($tPtr) Else $pLarge = DllStructGetPtr($tPtr) $pSmall = 0 EndIf DllCall('shell32.dll', 'uint', 'ExtractIconExW', 'wstr', $sIcon, 'int', $iIndex, 'ptr', $pLarge, 'ptr', $pSmall, 'uint', 1) If @error Then Return SetError(@error, @extended, 0) Return DllStructGetData($tPtr, 1) EndFunc Func _WinAPI_ExtractIconEx($sFilePath, $iIndex, $paLarge, $paSmall, $iIcons) Local $aResult = DllCall("shell32.dll", "uint", "ExtractIconExW", "wstr", $sFilePath, "int", $iIndex, "struct*", $paLarge, "struct*", $paSmall, "uint", $iIcons) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_FileIconInit($bRestore = True) Local $aRet = DllCall('shell32.dll', 'int', 660, 'int', $bRestore) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return 1 EndFunc Func _WinAPI_GetIconDimension($hIcon) Local $tICONINFO = DllStructCreate($tagICONINFO) Local $aRet = DllCall('user32.dll', 'bool', 'GetIconInfo', 'handle', $hIcon, 'struct*', $tICONINFO) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Local $tSIZE = _WinAPI_GetBitmapDimension(DllStructGetData($tICONINFO, 5)) For $i = 4 To 5 _WinAPI_DeleteObject(DllStructGetData($tICONINFO, $i)) Next If Not IsDllStruct($tSIZE) Then Return SetError(20, 0, 0) Return $tSIZE EndFunc Func _WinAPI_GetIconInfo($hIcon) Local $tInfo = DllStructCreate($tagICONINFO) Local $aRet = DllCall("user32.dll", "bool", "GetIconInfo", "handle", $hIcon, "struct*", $tInfo) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Local $aIcon[6] $aIcon[0] = True $aIcon[1] = DllStructGetData($tInfo, "Icon") <> 0 $aIcon[2] = DllStructGetData($tInfo, "XHotSpot") $aIcon[3] = DllStructGetData($tInfo, "YHotSpot") $aIcon[4] = DllStructGetData($tInfo, "hMask") $aIcon[5] = DllStructGetData($tInfo, "hColor") Return $aIcon EndFunc Func _WinAPI_GetIconInfoEx($hIcon) Local $tIIEX = DllStructCreate('dword;int;dword;dword;ptr;ptr;ushort;wchar[260];wchar[260]') DllStructSetData($tIIEX, 1, DllStructGetSize($tIIEX)) Local $aRet = DllCall('user32.dll', 'bool', 'GetIconInfoExW', 'handle', $hIcon, 'struct*', $tIIEX) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Local $aResult[8] For $i = 0 To 7 $aResult[$i] = DllStructGetData($tIIEX, $i + 2) Next Return $aResult EndFunc Func _WinAPI_LoadIcon($hInstance, $sName) Local $sTypeOfName = 'int' If IsString($sName) Then $sTypeOfName = 'wstr' EndIf Local $aRet = DllCall('user32.dll', 'handle', 'LoadIconW', 'handle', $hInstance, $sTypeOfName, $sName) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_LoadIconMetric($hInstance, $sName, $iMetric) Local $sTypeOfName = 'int' If IsString($sName) Then $sTypeOfName = 'wstr' EndIf Local $aRet = DllCall('comctl32.dll', 'long', 'LoadIconMetric', 'handle', $hInstance, $sTypeOfName, $sName, 'int', $iMetric, 'handle*', 0) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return $aRet[4] EndFunc Func _WinAPI_LoadIconWithScaleDown($hInstance, $sName, $iWidth, $iHeight) Local $sTypeOfName = 'int' If IsString($sName) Then $sTypeOfName = 'wstr' EndIf Local $aRet = DllCall('comctl32.dll', 'long', 'LoadIconWithScaleDown', 'handle', $hInstance, $sTypeOfName, $sName, 'int', $iWidth, 'int', $iHeight, 'handle*', 0) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return $aRet[5] EndFunc Func _WinAPI_LoadShell32Icon($iIconID) Local $tIcons = DllStructCreate("ptr Data") Local $iIcons = _WinAPI_ExtractIconEx("shell32.dll", $iIconID, 0, $tIcons, 1) If @error Then Return SetError(@error, @extended, 0) If $iIcons <= 0 Then Return SetError(10, 0, 0) Return DllStructGetData($tIcons, "Data") EndFunc Func _WinAPI_LookupIconIdFromDirectoryEx($pData, $bIcon = True, $iXDesiredPixels = 0, $iYDesiredPixels = 0, $iFlags = 0) Local $aRet = DllCall('user32.dll', 'int', 'LookupIconIdFromDirectoryEx', 'ptr', $pData, 'bool', $bIcon, 'int', $iXDesiredPixels, 'int', $iYDesiredPixels, 'uint', $iFlags) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_MirrorIcon($hIcon, $bDelete = False) If Not $bDelete Then $hIcon = _WinAPI_CopyIcon($hIcon) EndIf Local $aRet = DllCall('comctl32.dll', 'int', 414, 'ptr', 0, 'ptr*', $hIcon) If @error Or Not $aRet[0] Then Local $iError = @error + 10 If $hIcon And Not $bDelete Then _WinAPI_DestroyIcon($hIcon) EndIf Return SetError($iError, 0, 0) EndIf Return $aRet[2] EndFunc #EndRegion Public Functions #Region Embedded DLL Functions Func __TransparencyProc() Static $pProc = 0 If Not $pProc Then If @AutoItX64 Then $pProc = __Init(Binary( '0x48894C240848895424104C894424184C894C24205541574831C0505050505050' & '4883EC284883BC24800000000074054831C0EB0748C7C0010000004821C07522' & '488BAC248000000048837D180074054831C0EB0748C7C0010000004821C07502' & 'EB0948C7C001000000EB034831C04821C0740B4831C04863C0E93C0100004C63' & '7C24784983FF647E0F48C7C0010000004863C0E9220100004C637C24784D21FF' & '7D08C74424780000000048C74424280100000048C74424300000000048C74424' & '3800000000488BAC24800000004C637D04488BAC2480000000486345084C0FAF' & 'F849C1E7024983C7FC4C3B7C24380F8C88000000488BAC24800000004C8B7D18' & '4C037C24384983C7034C897C2440488B6C2440480FB64500505888442448807C' & '244800744B4C0FB67C244848634424784C0FAFF84C89F848C7C1640000004899' & '48F7F94989C74C89F850488B6C244858884500488B6C2440807D0000740948C7' & '4424280000000048C7442430010000004883442438040F8149FFFFFF48837C24' & '3000741148837C242800740948C7C001000000EB034831C04821C0740E48C7C0' & 'FFFFFFFF4863C0EB11EB0C48C7C0010000004863C0EB034831C04883C458415F' & '5DC3')) Else $pProc = __Init(Binary( '0x555331C05050505050837C242800740431C0EB05B80100000021C075198B6C24' & '28837D1400740431C0EB05B80100000021C07502EB07B801000000EB0231C021' & 'C0740731C0E9E50000008B5C242483FB647E0AB801000000E9D20000008B5C24' & '2421DB7D08C744242400000000C7042401000000C744240400000000C7442408' & '000000008B6C24288B5D048B6C24280FAF5D08C1E30283C3FC3B5C24087C648B' & '6C24288B5D14035C240883C303895C240C8B6C240C0FB6450088442410807C24' & '100074380FB65C24100FAF5C242489D8B96400000099F7F989C3538B6C241058' & '8845008B6C240C807D00007407C7042400000000C74424040100000083442408' & '047181837C240400740D833C24007407B801000000EB0231C021C07409B8FFFF' & 'FFFFEB0BEB07B801000000EB0231C083C4145B5DC21000')) EndIf EndIf Return $pProc EndFunc #EndRegion Embedded DLL Functions #Region Global Variables and Constants Global Const $tagBITMAPV4HEADER = 'struct;dword bV4Size;long bV4Width;long bV4Height;ushort bV4Planes;ushort bV4BitCount;dword bV4Compression;dword bV4SizeImage;long bV4XPelsPerMeter;long bV4YPelsPerMeter;dword bV4ClrUsed;dword bV4ClrImportant;dword bV4RedMask;dword bV4GreenMask;dword bV4BlueMask;dword bV4AlphaMask;dword bV4CSType;int bV4Endpoints[9];dword bV4GammaRed;dword bV4GammaGreen;dword bV4GammaBlue;endstruct' Global Const $tagCOLORADJUSTMENT = 'ushort Size;ushort Flags;ushort IlluminantIndex;ushort RedGamma;ushort GreenGamma;ushort BlueGamma;ushort ReferenceBlack;ushort ReferenceWhite;short Contrast;short Brightness;short Colorfulness;short RedGreenTint' Global Const $tagDEVMODE = 'wchar DeviceName[32];ushort SpecVersion;ushort DriverVersion;ushort Size;ushort DriverExtra;dword Fields;short Orientation;short PaperSize;short PaperLength;short PaperWidth;short Scale;short Copies;short DefaultSource;short PrintQuality;short Color;short Duplex;short YResolution;short TTOption;short Collate;wchar FormName[32];ushort Unused1;dword Unused2[3];dword Nup;dword Unused3;dword ICMMethod;dword ICMIntent;dword MediaType;dword DitherType;dword Reserved1;dword Reserved2;dword PanningWidth;dword PanningHeight' Global Const $tagDEVMODE_DISPLAY = 'wchar DeviceName[32];ushort SpecVersion;ushort DriverVersion;ushort Size;ushort DriverExtra;dword Fields;' & $tagPOINT & ';dword DisplayOrientation;dword DisplayFixedOutput;short Unused1[5];wchar Unused2[32];ushort LogPixels;dword BitsPerPel;dword PelsWidth;dword PelsHeight;dword DisplayFlags;dword DisplayFrequency' Global Const $tagDWM_COLORIZATION_PARAMETERS = 'dword Color;dword AfterGlow;uint ColorBalance;uint AfterGlowBalance;uint BlurBalance;uint GlassReflectionIntensity; uint OpaqueBlend' Global Const $tagENHMETAHEADER = 'struct;dword Type;dword Size;long rcBounds[4];long rcFrame[4];dword Signature;dword Version;dword Bytes;dword Records;ushort Handles;ushort Reserved;dword Description;dword OffDescription;dword PalEntries;long Device[2];long Millimeters[2];dword PixelFormat;dword OffPixelFormat;dword OpenGL;long Micrometers[2];endstruct' Global Const $tagEXTLOGPEN = 'dword PenStyle;dword Width;uint BrushStyle;dword Color;ulong_ptr Hatch;dword NumEntries' Global Const $tagFONTSIGNATURE = 'dword fsUsb[4];dword fsCsb[2]' Global Const $tagGLYPHMETRICS = 'uint BlackBoxX;uint BlackBoxY;' & $tagPOINT & ';short CellIncX;short CellIncY' Global Const $tagLOGBRUSH = 'uint Style;dword Color;ulong_ptr Hatch' Global Const $tagLOGPEN = 'uint Style;dword Width;dword Color' Global Const $tagMAT2 = 'short eM11[2];short eM12[2];short eM21[2];short eM22[2]' Global Const $tagNEWTEXTMETRIC = $tagTEXTMETRIC & ';dword ntmFlags;uint ntmSizeEM;uint ntmCellHeight;uint ntmAvgWidth' Global Const $tagNEWTEXTMETRICEX = $tagNEWTEXTMETRIC & ';' & $tagFONTSIGNATURE Global Const $tagPANOSE = 'struct;byte bFamilyType;byte bSerifStyle;byte bWeight;byte bProportion;byte bContrast;byte bStrokeVariation;byte bArmStyle;byte bLetterform;byte bMidline;byte bXHeight;endstruct' Global Const $tagOUTLINETEXTMETRIC = 'struct;uint otmSize;' & $tagTEXTMETRIC & ';byte otmFiller;' & $tagPANOSE & ';byte bugFiller[3];uint otmSelection;uint otmType;int otmCharSlopeRise;int otmCharSlopeRun;int otmItalicAngle;uint otmEMSquare;int otmAscent;int otmDescent;uint otmLineGap;uint otmCapEmHeight;uint otmXHeight;long otmFontBox[4];int otmMacAscent;int otmMacDescent;uint otmMacLineGap;uint otmMinimumPPEM;long otmSubscriptSize[2];long otmSubscriptOffset[2];long otmSuperscriptSize[2];long otmSuperscriptOffse[2];uint otmStrikeoutSize;int otmStrikeoutPosition;int otmUnderscoreSize;int otmUnderscorePosition;uint_ptr otmFamilyName;uint_ptr otmFaceName;uint_ptr otmStyleName;uint_ptr otmFullName;endstruct' Global Const $tagPAINTSTRUCT = 'hwnd hDC;int fErase;dword rPaint[4];int fRestore;int fIncUpdate;byte rgbReserved[32]' Global Const $tagRGNDATAHEADER = 'struct;dword Size;dword Type;dword Count;dword RgnSize;' & $tagRECT & ';endstruct' Global Const $tagXFORM = 'float eM11;float eM12;float eM21;float eM22;float eDx;float eDy' #EndRegion Global Variables and Constants #Region Functions list #EndRegion Functions list #Region Public Functions Func _WinAPI_AbortPath($hDC) Local $aRet = DllCall('gdi32.dll', 'bool', 'AbortPath', 'handle', $hDC) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_AddFontMemResourceEx($pData, $iSize) Local $aRet = DllCall('gdi32.dll', 'handle', 'AddFontMemResourceEx', 'ptr', $pData, 'dword', $iSize, 'ptr', 0, 'dword*', 0) If @error Then Return SetError(@error, @extended, 0) Return SetExtended($aRet[4], $aRet[0]) EndFunc Func _WinAPI_AddFontResourceEx($sFont, $iFlag = 0, $bNotify = False) Local $aRet = DllCall('gdi32.dll', 'int', 'AddFontResourceExW', 'wstr', $sFont, 'dword', $iFlag, 'ptr', 0) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, 0) If $bNotify Then Local Const $WM_FONTCHANGE = 0x001D Local Const $HWND_BROADCAST = 0xFFFF DllCall('user32.dll', 'lresult', 'SendMessage', 'hwnd', $HWND_BROADCAST, 'uint', $WM_FONTCHANGE, 'wparam', 0, 'lparam', 0) EndIf Return $aRet[0] EndFunc Func _WinAPI_AddIconOverlay($hIcon, $hOverlay) Local $aRet, $hResult = 0, $iError = 0 Local $ahDev[2] = [0, 0] Local $tSIZE = _WinAPI_GetIconDimension($hIcon) Local $hIL = DllCall('comctl32.dll', 'handle', 'ImageList_Create', 'int', DllStructGetData($tSIZE, 1), 'int', DllStructGetData($tSIZE, 2), 'uint', 0x0021, 'int', 2, 'int', 2) If @error Or Not $hIL[0] Then Return SetError(@error + 10, @extended, 0) Do $ahDev[0] = _WinAPI_Create32BitHICON($hIcon) If @error Then $iError = @error + 100 ExitLoop EndIf $aRet = DllCall('comctl32.dll', 'int', 'ImageList_ReplaceIcon', 'handle', $hIL[0], 'int', -1, 'handle', $ahDev[0]) If @error Or ($aRet[0] = -1) Then $iError = @error + 200 ExitLoop EndIf $ahDev[1] = _WinAPI_Create32BitHICON($hOverlay) If @error Then $iError = @error + 300 ExitLoop EndIf $aRet = DllCall('comctl32.dll', 'int', 'ImageList_ReplaceIcon', 'handle', $hIL[0], 'int', -1, 'handle', $ahDev[1]) If @error Or ($aRet[0] = -1) Then $iError = @error + 400 ExitLoop EndIf $aRet = DllCall('comctl32.dll', 'bool', 'ImageList_SetOverlayImage', 'handle', $hIL[0], 'int', 1, 'int', 1) If @error Or Not $aRet[0] Then $iError = @error + 500 ExitLoop EndIf $aRet = DllCall('comctl32.dll', 'handle', 'ImageList_GetIcon', 'handle', $hIL[0], 'int', 0, 'uint', 0x00000100) If @error Or Not $aRet[0] Then $iError = @error + 600 ExitLoop EndIf $hResult = $aRet[0] Until 1 DllCall('comctl32.dll', 'bool', 'ImageList_Destroy', 'handle', $hIL[0]) For $i = 0 To 1 If $ahDev[$i] Then _WinAPI_DestroyIcon($ahDev[$i]) EndIf Next If Not $hResult Then Return SetError($iError, 0, 0) Return $hResult EndFunc Func _WinAPI_AdjustBitmap($hBitmap, $iWidth, $iHeight, $iMode = 3, $tAdjustment = 0) Local $tObj = DllStructCreate($tagBITMAP) Local $aRet = DllCall('gdi32.dll', 'int', 'GetObject', 'handle', $hBitmap, 'int', DllStructGetSize($tObj), 'struct*', $tObj) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, 0) If $iWidth = -1 Then $iWidth = DllStructGetData($tObj, 'bmWidth') EndIf If $iHeight = -1 Then $iHeight = DllStructGetData($tObj, 'bmHeight') EndIf $aRet = DllCall('user32.dll', 'handle', 'GetDC', 'hwnd', 0) Local $hDC = $aRet[0] $aRet = DllCall('gdi32.dll', 'handle', 'CreateCompatibleDC', 'handle', $hDC) Local $hDestDC = $aRet[0] $aRet = DllCall('gdi32.dll', 'handle', 'CreateCompatibleBitmap', 'handle', $hDC, 'int', $iWidth, 'int', $iHeight) Local $hBmp = $aRet[0] $aRet = DllCall('gdi32.dll', 'handle', 'SelectObject', 'handle', $hDestDC, 'handle', $hBmp) Local $hDestSv = $aRet[0] $aRet = DllCall('gdi32.dll', 'handle', 'CreateCompatibleDC', 'handle', $hDC) Local $hSrcDC = $aRet[0] $aRet = DllCall('gdi32.dll', 'handle', 'SelectObject', 'handle', $hSrcDC, 'handle', $hBitmap) Local $hSrcSv = $aRet[0] If _WinAPI_SetStretchBltMode($hDestDC, $iMode) Then Switch $iMode Case 4 If IsDllStruct($tAdjustment) Then If Not _WinAPI_SetColorAdjustment($hDestDC, $tAdjustment) Then EndIf EndIf Case Else EndSwitch EndIf $aRet = _WinAPI_StretchBlt($hDestDC, 0, 0, $iWidth, $iHeight, $hSrcDC, 0, 0, DllStructGetData($tObj, 'bmWidth'), DllStructGetData($tObj, 'bmHeight'), 0x00CC0020) DllCall('user32.dll', 'int', 'ReleaseDC', 'hwnd', 0, 'handle', $hDC) DllCall('gdi32.dll', 'handle', 'SelectObject', 'handle', $hDestDC, 'handle', $hDestSv) DllCall('gdi32.dll', 'handle', 'SelectObject', 'handle', $hSrcDC, 'handle', $hSrcSv) DllCall('gdi32.dll', 'bool', 'DeleteDC', 'handle', $hDestDC) DllCall('gdi32.dll', 'bool', 'DeleteDC', 'handle', $hSrcDC) If Not $aRet Then Return SetError(10, 0, 0) Return $hBmp EndFunc Func _WinAPI_AlphaBlend($hDestDC, $iXDest, $iYDest, $iWidthDest, $iHeightDest, $hSrcDC, $iXSrc, $iYSrc, $iWidthSrc, $iHeightSrc, $iAlpha, $bAlpha = False) Local $iBlend = BitOR(BitShift(Not ($bAlpha = False), -24), BitShift(BitAND($iAlpha, 0xFF), -16)) Local $aRet = DllCall('gdi32.dll', 'bool', 'GdiAlphaBlend', 'handle', $hDestDC, 'int', $iXDest, 'int', $iYDest, 'int', $iWidthDest, 'int', $iHeightDest, 'handle', $hSrcDC, 'int', $iXSrc, 'int', $iYSrc, 'int', $iWidthSrc, 'int', $iHeightSrc, 'dword', $iBlend) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_AngleArc($hDC, $iX, $iY, $iRadius, $nStartAngle, $nSweepAngle) Local $aRet = DllCall('gdi32.dll', 'bool', 'AngleArc', 'handle', $hDC, 'int', $iX, 'int', $iY, 'dword', $iRadius, 'float', $nStartAngle, 'float', $nSweepAngle) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_Arc($hDC, $tRECT, $iXStartArc, $iYStartArc, $iXEndArc, $iYEndArc) Local $aRet = DllCall('gdi32.dll', 'bool', 'Arc', 'handle', $hDC, 'int', DllStructGetData($tRECT, 1), 'int', DllStructGetData($tRECT, 2), 'int', DllStructGetData($tRECT, 3), 'int', DllStructGetData($tRECT, 4), 'int', $iXStartArc, 'int', $iYStartArc, 'int', $iXEndArc, 'int', $iYEndArc) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_ArcTo($hDC, $tRECT, $iXRadial1, $iYRadial1, $iXRadial2, $iYRadial2) Local $aRet = DllCall('gdi32.dll', 'bool', 'ArcTo', 'handle', $hDC, 'int', DllStructGetData($tRECT, 1), 'int', DllStructGetData($tRECT, 2), 'int', DllStructGetData($tRECT, 3), 'int', DllStructGetData($tRECT, 4), 'int', $iXRadial1, 'int', $iYRadial1, 'int', $iXRadial2, 'int', $iYRadial2) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_BeginPaint($hWnd, ByRef $tPAINTSTRUCT) $tPAINTSTRUCT = DllStructCreate($tagPAINTSTRUCT) Local $aRet = DllCall('user32.dll', 'handle', 'BeginPaint', 'hwnd', $hWnd, 'struct*', $tPAINTSTRUCT) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_BeginPath($hDC) Local $aRet = DllCall('gdi32.dll', 'bool', 'BeginPath', 'handle', $hDC) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_CloseEnhMetaFile($hDC) Local $aRet = DllCall('gdi32.dll', 'handle', 'CloseEnhMetaFile', 'handle', $hDC) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CloseFigure($hDC) Local $aRet = DllCall('gdi32.dll', 'bool', 'CloseFigure', 'handle', $hDC) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_ColorAdjustLuma($iRGB, $iPercent, $bScale = True) If $iRGB = -1 Then Return SetError(10, 0, -1) If $bScale Then $iPercent = Floor($iPercent * 10) EndIf Local $aRet = DllCall('shlwapi.dll', 'dword', 'ColorAdjustLuma', 'dword', __RGB($iRGB), 'int', $iPercent, 'bool', $bScale) If @error Then Return SetError(@error, @extended, -1) Return __RGB($aRet[0]) EndFunc Func _WinAPI_ColorHLSToRGB($iHue, $iLuminance, $iSaturation) If Not $iSaturation Then $iHue = 160 Local $aRet = DllCall('shlwapi.dll', 'dword', 'ColorHLSToRGB', 'word', $iHue, 'word', $iLuminance, 'word', $iSaturation) If @error Then Return SetError(@error, @extended, -1) Return __RGB($aRet[0]) EndFunc Func _WinAPI_ColorRGBToHLS($iRGB, ByRef $iHue, ByRef $iLuminance, ByRef $iSaturation) Local $aRet = DllCall('shlwapi.dll', 'none', 'ColorRGBToHLS', 'dword', __RGB($iRGB), 'word*', 0, 'word*', 0, 'word*', 0) If @error Then Return SetError(@error, @extended, 0) $iHue = $aRet[2] $iLuminance = $aRet[3] $iSaturation = $aRet[4] Return 1 EndFunc Func _WinAPI_CombineTransform($tXFORM1, $tXFORM2) Local $tXFORM = DllStructCreate($tagXFORM) Local $aRet = DllCall('gdi32.dll', 'bool', 'CombineTransform', 'struct*', $tXFORM, 'struct*', $tXFORM1, 'struct*', $tXFORM2) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tXFORM EndFunc Func _WinAPI_CompressBitmapBits($hBitmap, ByRef $pBuffer, $iCompression = 0, $iQuality = 100) If Not __DLL('gdiplus.dll') Then Return SetError(103, 0, 0) Local $aSize[2], $iCount, $iFormat, $iLength, $sMime, $aRet, $hDC, $hSv, $hMem, $tBits, $tData, $pData, $iError = 1 Local $hSource = 0, $hImage = 0, $hToken = 0, $pStream = 0, $tParam = 0 Local $tDIB = DllStructCreate($tagDIBSECTION) Do Switch $iCompression Case 0 $sMime = 'image/png' Case 1 $sMime = 'image/jpeg' Case Else $iError = 10 ExitLoop EndSwitch While $hBitmap If Not _WinAPI_GetObject($hBitmap, DllStructGetSize($tDIB), $tDIB) Then $iError = 11 ExitLoop 2 EndIf If (DllStructGetData($tDIB, 'bmBitsPixel') = 32) And (Not DllStructGetData($tDIB, 'biCompression')) Then $iError = 12 ExitLoop EndIf If $hSource Then $iError = 13 ExitLoop 2 EndIf $hSource = _WinAPI_CreateDIB(DllStructGetData($tDIB, 'bmWidth'), DllStructGetData($tDIB, 'bmHeight')) If Not $hSource Then $iError = @error + 100 ExitLoop 2 EndIf $hDC = _WinAPI_CreateCompatibleDC(0) $hSv = _WinAPI_SelectObject($hDC, $hSource) If _WinAPI_DrawBitmap($hDC, 0, 0, $hBitmap) Then $hBitmap = $hSource Else $iError = @error + 200 $hBitmap = 0 EndIf _WinAPI_SelectObject($hDC, $hSv) _WinAPI_DeleteDC($hDC) WEnd If Not $hBitmap Then ExitLoop EndIf For $i = 0 To 1 $aSize[$i] = DllStructGetData($tDIB, $i + 2) Next $tBits = DllStructCreate('byte[' & ($aSize[0] * $aSize[1] * 4) & ']') If Not _WinAPI_GetBitmapBits($hBitmap, DllStructGetSize($tBits), $tBits) Then $iError = @error + 300 ExitLoop EndIf $tData = DllStructCreate($tagGDIPSTARTUPINPUT) DllStructSetData($tData, "Version", 1) $aRet = DllCall('gdiplus.dll', 'int', 'GdiplusStartup', 'ulong_ptr*', 0, 'struct*', $tData, 'ptr', 0) If @error Or $aRet[0] Then $iError = @error + 400 ExitLoop EndIf If _WinAPI_IsAlphaBitmap($hBitmap) Then $iFormat = 0x0026200A Else $iFormat = 0x00022009 EndIf $hToken = $aRet[1] $aRet = DllCall('gdiplus.dll', 'int', 'GdipCreateBitmapFromScan0', 'int', $aSize[0], 'int', $aSize[1], 'uint', $aSize[0] * 4, 'int', $iFormat, 'struct*', $tBits, 'ptr*', 0) If @error Or $aRet[0] Then $iError = @error + 500 ExitLoop EndIf $hImage = $aRet[6] $aRet = DllCall('gdiplus.dll', 'int', 'GdipGetImageEncodersSize', 'uint*', 0, 'uint*', 0) If @error Or $aRet[0] Then $iError = @error + 600 ExitLoop EndIf $iCount = $aRet[1] $tData = DllStructCreate('byte[' & $aRet[2] & ']') If @error Then $iError = @error + 700 ExitLoop EndIf $pData = DllStructGetPtr($tData) $aRet = DllCall('gdiplus.dll', 'int', 'GdipGetImageEncoders', 'uint', $iCount, 'uint', $aRet[2], 'struct*', $tData) If @error Or $aRet[0] Then $iError = @error + 800 ExitLoop EndIf Local $tCodec, $pEncoder = 0 For $i = 1 To $iCount $tCodec = DllStructCreate($tagGDIPIMAGECODECINFO, $pData) If Not StringInStr(_WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, 'MimeType')), $sMime) Then $pData += DllStructGetSize($tagGDIPIMAGECODECINFO) Else $pEncoder = $pData $iError = 0 ExitLoop EndIf Next If Not $pEncoder Then $iError = 15 ExitLoop EndIf Switch $iCompression Case 0 Case 1 Local Const $tagENCODERPARAMETER = 'byte[16] GUID;ulong NumberOfValues;dword Type;ptr pValue' $tParam = DllStructCreate('dword Count;' & $tagENCODERPARAMETER & ';ulong Quality') DllStructSetData($tParam, 'Count', 1) DllStructSetData($tParam, 'NumberOfValues', 1) DllStructSetData($tParam, 'Type', 4) DllStructSetData($tParam, 'pValue', DllStructGetPtr($tParam, 'Quality')) DllStructSetData($tParam, 'Quality', $iQuality) $aRet = DllCall('ole32.dll', 'long', 'CLSIDFromString', 'wstr', '{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}', 'ptr', DllStructGetPtr($tParam, 2)) If @error Or $aRet[0] Then $tParam = 0 EndIf EndSwitch $pStream = _WinAPI_CreateStreamOnHGlobal() $aRet = DllCall('gdiplus.dll', 'int', 'GdipSaveImageToStream', 'handle', $hImage, 'ptr', $pStream, 'ptr', $pEncoder, 'struct*', $tParam) If @error Or $aRet[0] Then $iError = @error + 900 ExitLoop EndIf $hMem = _WinAPI_GetHGlobalFromStream($pStream) $aRet = DllCall('kernel32.dll', 'ulong_ptr', 'GlobalSize', 'handle', $hMem) If @error Or Not $aRet[0] Then $iError = @error + 1000 ExitLoop EndIf $iLength = $aRet[0] $aRet = DllCall('kernel32.dll', 'ptr', 'GlobalLock', 'handle', $hMem) If @error Or Not $aRet[0] Then $iError = @error + 1100 ExitLoop EndIf $pBuffer = __HeapReAlloc($pBuffer, $iLength, 1) If Not @error Then _WinAPI_MoveMemory($pBuffer, $aRet[0], $iLength) Else $iError = @error + 1300 EndIf Until 1 If $pStream Then _WinAPI_ReleaseStream($pStream) EndIf If $hImage Then DllCall('gdiplus.dll', 'int', 'GdipDisposeImage', 'handle', $hImage) EndIf If $hToken Then DllCall('gdiplus.dll', 'none', 'GdiplusShutdown', 'ulong_ptr', $hToken) EndIf If $hSource Then _WinAPI_DeleteObject($hSource) EndIf If $iError Then Return SetError($iError, 0, 0) Return $iLength EndFunc Func _WinAPI_CopyEnhMetaFile($hEmf, $sFilePath = '') Local $sTypeOfFile = 'wstr' If Not StringStripWS($sFilePath, $STR_STRIPLEADING + $STR_STRIPTRAILING) Then $sTypeOfFile = 'ptr' $sFilePath = 0 EndIf Local $aRet = DllCall('gdi32.dll', 'handle', 'CopyEnhMetaFileW', 'handle', $hEmf, $sTypeOfFile, $sFilePath) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CopyRect($tRECT) Local $tData = DllStructCreate($tagRECT) Local $aRet = DllCall('user32.dll', 'bool', 'CopyRect', 'struct*', $tData, 'struct*', $tRECT) If @error Or Not $aRet[0] Then SetError(@error + 10, @extended, 0) Return $tData EndFunc Func _WinAPI_Create32BitHBITMAP($hIcon, $bDib = False, $bDelete = False) Local $hBitmap = 0 Local $aDIB[2] = [0, 0] Local $hTemp = _WinAPI_Create32BitHICON($hIcon) If @error Then Return SetError(@error, @extended, 0) Local $iError = 0 Do Local $tICONINFO = DllStructCreate($tagICONINFO) Local $aRet = DllCall('user32.dll', 'bool', 'GetIconInfo', 'handle', $hTemp, 'struct*', $tICONINFO) If @error Or Not $aRet[0] Then $iError = @error + 10 ExitLoop EndIf For $i = 0 To 1 $aDIB[$i] = DllStructGetData($tICONINFO, $i + 4) Next Local $tBITMAP = DllStructCreate($tagBITMAP) If Not _WinAPI_GetObject($aDIB[0], DllStructGetSize($tBITMAP), $tBITMAP) Then $iError = @error + 20 ExitLoop EndIf If $bDib Then $hBitmap = _WinAPI_CreateDIB(DllStructGetData($tBITMAP, 'bmWidth'), DllStructGetData($tBITMAP, 'bmHeight')) Local $hDC = _WinAPI_CreateCompatibleDC(0) Local $hSv = _WinAPI_SelectObject($hDC, $hBitmap) _WinAPI_DrawIconEx($hDC, 0, 0, $hTemp) _WinAPI_SelectObject($hDC, $hSv) _WinAPI_DeleteDC($hDC) Else $hBitmap = $aDIB[1] $aDIB[1] = 0 EndIf Until 1 For $i = 0 To 1 If $aDIB[$i] Then _WinAPI_DeleteObject($aDIB[$i]) EndIf Next _WinAPI_DestroyIcon($hTemp) If $iError Then Return SetError($iError, 0, 0) If Not $hBitmap Then Return SetError(12, 0, 0) If $bDelete Then _WinAPI_DestroyIcon($hIcon) EndIf Return $hBitmap EndFunc Func _WinAPI_CreateBitmapIndirect(ByRef $tBITMAP) Local $aRet = DllCall('gdi32.dll', 'handle', 'CreateBitmapIndirect', 'struct*', $tBITMAP) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CreateBrushIndirect($iStyle, $iRGB, $iHatch = 0) Local $tLOGBRUSH = DllStructCreate($tagLOGBRUSH) DllStructSetData($tLOGBRUSH, 1, $iStyle) DllStructSetData($tLOGBRUSH, 2, __RGB($iRGB)) DllStructSetData($tLOGBRUSH, 3, $iHatch) Local $aRet = DllCall('gdi32.dll', 'handle', 'CreateBrushIndirect', 'struct*', $tLOGBRUSH) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CreateColorAdjustment($iFlags = 0, $iIlluminant = 0, $iGammaR = 10000, $iGammaG = 10000, $iGammaB = 10000, $iBlack = 0, $iWhite = 10000, $iContrast = 0, $iBrightness = 0, $iColorfulness = 0, $iTint = 0) Local $tCA = DllStructCreate($tagCOLORADJUSTMENT) DllStructSetData($tCA, 1, DllStructGetSize($tCA)) DllStructSetData($tCA, 2, $iFlags) DllStructSetData($tCA, 3, $iIlluminant) DllStructSetData($tCA, 4, $iGammaR) DllStructSetData($tCA, 5, $iGammaG) DllStructSetData($tCA, 6, $iGammaB) DllStructSetData($tCA, 7, $iBlack) DllStructSetData($tCA, 8, $iWhite) DllStructSetData($tCA, 9, $iContrast) DllStructSetData($tCA, 10, $iBrightness) DllStructSetData($tCA, 11, $iColorfulness) DllStructSetData($tCA, 12, $iTint) Return $tCA EndFunc Func _WinAPI_CreateCompatibleBitmapEx($hDC, $iWidth, $iHeight, $iRGB) Local $hBrush = _WinAPI_CreateBrushIndirect(0, $iRGB) Local $aRet = DllCall('gdi32.dll', 'handle', 'CreateCompatibleDC', 'handle', $hDC) Local $hDestDC = $aRet[0] $aRet = DllCall('gdi32.dll', 'handle', 'CreateCompatibleBitmap', 'handle', $hDC, 'int', $iWidth, 'int', $iHeight) Local $hBmp = $aRet[0] $aRet = DllCall('gdi32.dll', 'handle', 'SelectObject', 'handle', $hDestDC, 'handle', $hBmp) Local $hDestSv = $aRet[0] Local $tRECT = _WinAPI_CreateRectEx(0, 0, $iWidth, $iHeight) Local $iError = 0 $aRet = DllCall('user32.dll', 'int', 'FillRect', 'handle', $hDestDC, 'struct*', $tRECT, 'handle', $hBrush) If @error Or Not $aRet[0] Then $iError = @error + 10 _WinAPI_DeleteObject($hBmp) EndIf _WinAPI_DeleteObject($hBrush) DllCall('gdi32.dll', 'handle', 'SelectObject', 'handle', $hDestDC, 'handle', $hDestSv) DllCall('gdi32.dll', 'bool', 'DeleteDC', 'handle', $hDestDC) If $iError Then Return SetError($iError, 0, 0) Return $hBmp EndFunc Func _WinAPI_CreateDIBitmap($hDC, ByRef $tBITMAPINFO, $iUsage, $pBits = 0) Local $iInit = 0 If $pBits Then $iInit = 0x04 EndIf Local $aRet = DllCall('gdi32.dll', 'handle', 'CreateDIBitmap', 'handle', $hDC, 'struct*', $tBITMAPINFO, 'dword', $iInit, 'struct*', $pBits, 'struct*', $tBITMAPINFO, 'uint', $iUsage) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CreateEllipticRgn($tRECT) Local $aRet = DllCall('gdi32.dll', 'handle', 'CreateEllipticRgnIndirect', 'struct*', $tRECT) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_CreateEnhMetaFile($hDC = 0, $tRECT = 0, $bPixels = False, $sFilePath = '', $sDescription = '') Local $sTypeOfFile = 'wstr' If Not StringStripWS($sFilePath, $STR_STRIPLEADING + $STR_STRIPTRAILING) Then $sTypeOfFile = 'ptr' $sFilePath = 0 EndIf Local $tData = 0, $aData = StringSplit($sDescription, '|', $STR_NOCOUNT) If UBound($aData) < 2 Then ReDim $aData[2] $aData[1] = '' EndIf For $i = 0 To 1 $aData[$i] = StringStripWS($aData[$i], $STR_STRIPLEADING + $STR_STRIPTRAILING) Next If ($aData[0]) Or ($aData[1]) Then $tData = _WinAPI_ArrayToStruct($aData) EndIf Local $iXp, $iYp, $iXm, $iYm, $hRef = 0 If $bPixels And (IsDllStruct($tRECT)) Then If Not $hDC Then $hRef = _WinAPI_GetDC(0) EndIf $iXp = _WinAPI_GetDeviceCaps($hRef, 8) $iYp = _WinAPI_GetDeviceCaps($hRef, 10) $iXm = _WinAPI_GetDeviceCaps($hRef, 4) $iYm = _WinAPI_GetDeviceCaps($hRef, 6) If $hRef Then _WinAPI_ReleaseDC(0, $hRef) EndIf For $i = 1 To 3 Step 2 DllStructSetData($tRECT, $i, Round(DllStructGetData($tRECT, $i) * $iXm / $iXp * 100)) Next For $i = 2 To 4 Step 2 DllStructSetData($tRECT, $i, Round(DllStructGetData($tRECT, $i) * $iYm / $iYp * 100)) Next EndIf Local $aRet = DllCall('gdi32.dll', 'handle', 'CreateEnhMetaFileW', 'handle', $hDC, $sTypeOfFile, $sFilePath, 'struct*', $tRECT, 'struct*', $tData) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CreateFontEx($iHeight, $iWidth = 0, $iEscapement = 0, $iOrientation = 0, $iWeight = 400, $bItalic = False, $bUnderline = False, $bStrikeOut = False, $iCharSet = 1, $iOutPrecision = 0, $iClipPrecision = 0, $iQuality = 0, $iPitchAndFamily = 0, $sFaceName = '', $iStyle = 0) Local $aRet = DllCall('gdi32.dll', 'handle', 'CreateFontW', 'int', $iHeight, 'int', $iWidth, 'int', $iEscapement, 'int', $iOrientation, 'int', $iWeight, 'dword', $bItalic, 'dword', $bUnderline, 'dword', $bStrikeOut, 'dword', $iCharSet, 'dword', $iOutPrecision, 'dword', $iClipPrecision, 'dword', $iQuality, 'dword', $iPitchAndFamily, 'wstr', _WinAPI_GetFontName($sFaceName, $iStyle, $iCharSet)) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CreateNullRgn() Local $aRet = DllCall('gdi32.dll', 'handle', 'CreateRectRgn', 'int', 0, 'int', 0, 'int', 0, 'int', 0) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CreatePen($iPenStyle, $iWidth, $iColor) Local $aResult = DllCall("gdi32.dll", "handle", "CreatePen", "int", $iPenStyle, "int", $iWidth, "INT", $iColor) If @error Then Return SetError(@error, @extended, 0) Return $aResult[0] EndFunc Func _WinAPI_CreatePolygonRgn(Const ByRef $aPoint, $iStart = 0, $iEnd = -1, $iMode = 1) If __CheckErrorArrayBounds($aPoint, $iStart, $iEnd, 2, 2) Then Return SetError(@error + 10, @extended, 0) Local $tagStruct = '' For $i = $iStart To $iEnd $tagStruct &= 'int[2];' Next Local $tData = DllStructCreate($tagStruct) Local $iCount = 1 For $i = $iStart To $iEnd For $j = 0 To 1 DllStructSetData($tData, $iCount, $aPoint[$i][$j], $j + 1) Next $iCount += 1 Next Local $aRet = DllCall('gdi32.dll', 'handle', 'CreatePolygonRgn', 'struct*', $tData, 'int', $iCount - 1, 'int', $iMode) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CreateRectRgnIndirect($tRECT) Local $aRet = DllCall('gdi32.dll', 'handle', 'CreateRectRgnIndirect', 'struct*', $tRECT) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_CreateSolidBitmap($hWnd, $iColor, $iWidth, $iHeight, $bRGB = 1) Local $hDC = _WinAPI_GetDC($hWnd) Local $hDestDC = _WinAPI_CreateCompatibleDC($hDC) Local $hBitmap = _WinAPI_CreateCompatibleBitmap($hDC, $iWidth, $iHeight) Local $hOld = _WinAPI_SelectObject($hDestDC, $hBitmap) Local $tRECT = DllStructCreate($tagRECT) DllStructSetData($tRECT, 1, 0) DllStructSetData($tRECT, 2, 0) DllStructSetData($tRECT, 3, $iWidth) DllStructSetData($tRECT, 4, $iHeight) If $bRGB Then $iColor = BitOR(BitAND($iColor, 0x00FF00), BitShift(BitAND($iColor, 0x0000FF), -16), BitShift(BitAND($iColor, 0xFF0000), 16)) EndIf Local $hBrush = _WinAPI_CreateSolidBrush($iColor) If Not _WinAPI_FillRect($hDestDC, $tRECT, $hBrush) Then _WinAPI_DeleteObject($hBitmap) $hBitmap = 0 EndIf _WinAPI_DeleteObject($hBrush) _WinAPI_ReleaseDC($hWnd, $hDC) _WinAPI_SelectObject($hDestDC, $hOld) _WinAPI_DeleteDC($hDestDC) If Not $hBitmap Then Return SetError(1, 0, 0) Return $hBitmap EndFunc Func _WinAPI_CreateTransform($nM11 = 1, $nM12 = 0, $nM21 = 0, $nM22 = 1, $nDX = 0, $nDY = 0) Local $tXFORM = DllStructCreate($tagXFORM) DllStructSetData($tXFORM, 1, $nM11) DllStructSetData($tXFORM, 2, $nM12) DllStructSetData($tXFORM, 3, $nM21) DllStructSetData($tXFORM, 4, $nM22) DllStructSetData($tXFORM, 5, $nDX) DllStructSetData($tXFORM, 6, $nDY) Return $tXFORM EndFunc Func _WinAPI_DeleteEnhMetaFile($hEmf) Local $aRet = DllCall('gdi32.dll', 'bool', 'DeleteEnhMetaFile', 'handle', $hEmf) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_DPtoLP($hDC, ByRef $tPOINT, $iCount = 1) Local $aRet = DllCall('gdi32.dll', 'bool', 'DPtoLP', 'handle', $hDC, 'struct*', $tPOINT, 'int', $iCount) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_DrawAnimatedRects($hWnd, $tRectFrom, $tRectTo) Local $aRet = DllCall('user32.dll', 'bool', 'DrawAnimatedRects', 'hwnd', $hWnd, 'int', 3, 'struct*', $tRectFrom, 'struct*', $tRectTo) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_DrawBitmap($hDC, $iX, $iY, $hBitmap, $iRop = 0x00CC0020) Local $tObj = DllStructCreate($tagBITMAP) Local $aRet = DllCall('gdi32.dll', 'int', 'GetObject', 'handle', $hBitmap, 'int', DllStructGetSize($tObj), 'struct*', $tObj) If @error Or Not $aRet[0] Then Return SetError(@error + 20, @extended, 0) $aRet = DllCall('user32.dll', 'handle', 'GetDC', 'hwnd', 0) Local $_hDC = $aRet[0] $aRet = DllCall('gdi32.dll', 'handle', 'CreateCompatibleDC', 'handle', $_hDC) Local $hSrcDC = $aRet[0] $aRet = DllCall('gdi32.dll', 'handle', 'SelectObject', 'handle', $hSrcDC, 'handle', $hBitmap) Local $hSrcSv = $aRet[0] Local $iError = 0 $aRet = DllCall('gdi32.dll', 'int', 'BitBlt', 'hwnd', $hDC, 'int', $iX, 'int', $iY, 'int', DllStructGetData($tObj, 'bmWidth'), 'int', DllStructGetData($tObj, 'bmHeight'), 'hwnd', $hSrcDC, 'int', 0, 'int', 0, 'int', $iRop) If @error Or Not $aRet[0] Then $iError = @error + 1 EndIf DllCall('user32.dll', 'int', 'ReleaseDC', 'hwnd', 0, 'handle', $_hDC) DllCall('gdi32.dll', 'handle', 'SelectObject', 'handle', $hSrcDC, 'handle', $hSrcSv) DllCall('gdi32.dll', 'bool', 'DeleteDC', 'handle', $hSrcDC) If $iError Then Return SetError(10, 0, 0) Return 1 EndFunc Func _WinAPI_DrawFocusRect($hDC, $tRECT) Local $aRet = DllCall('user32.dll', 'bool', 'DrawFocusRect', 'handle', $hDC, 'struct*', $tRECT) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_DrawLine($hDC, $iX1, $iY1, $iX2, $iY2) _WinAPI_MoveTo($hDC, $iX1, $iY1) If @error Then Return SetError(@error, @extended, False) _WinAPI_LineTo($hDC, $iX2, $iY2) If @error Then Return SetError(@error + 10, @extended, False) Return True EndFunc Func _WinAPI_DrawShadowText($hDC, $sText, $iRGBText, $iRGBShadow, $iXOffset = 0, $iYOffset = 0, $tRECT = 0, $iFlags = 0) Local $aRet If Not IsDllStruct($tRECT) Then $tRECT = DllStructCreate($tagRECT) $aRet = DllCall('user32.dll', 'bool', 'GetClientRect', 'hwnd', _WinAPI_WindowFromDC($hDC), 'struct*', $tRECT) If @error Then Return SetError(@error + 10, @extended, 0) If Not $aRet[0] Then Return SetError(10, 0, 0) EndIf $aRet = DllCall('comctl32.dll', 'int', 'DrawShadowText', 'handle', $hDC, 'wstr', $sText, 'uint', -1, 'struct*', $tRECT, 'dword', $iFlags, 'int', __RGB($iRGBText), 'int', __RGB($iRGBShadow), 'int', $iXOffset, 'int', $iYOffset) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_DwmDefWindowProc($hWnd, $iMsg, $wParam, $lParam) Local $aRet = DllCall('dwmapi.dll', 'bool', 'DwmDefWindowProc', 'hwnd', $hWnd, 'uint', $iMsg, 'wparam', $wParam, 'lparam', $lParam, 'lresult*', 0) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $aRet[5] EndFunc Func _WinAPI_DwmEnableBlurBehindWindow($hWnd, $bEnable = True, $bTransition = False, $hRgn = 0) Local $tBLURBEHIND = DllStructCreate('dword;bool;handle;bool') Local $iFlags = 0 If $hRgn Then $iFlags += 2 DllStructSetData($tBLURBEHIND, 3, $hRgn) EndIf DllStructSetData($tBLURBEHIND, 1, BitOR($iFlags, 0x05)) DllStructSetData($tBLURBEHIND, 2, $bEnable) DllStructSetData($tBLURBEHIND, 4, $bTransition) Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmEnableBlurBehindWindow', 'hwnd', $hWnd, 'struct*', $tBLURBEHIND) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return 1 EndFunc Func _WinAPI_DwmEnableComposition($bEnable) If $bEnable Then $bEnable = 1 Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmEnableComposition', 'uint', $bEnable) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return 1 EndFunc Func _WinAPI_DwmExtendFrameIntoClientArea($hWnd, $tMARGINS = 0) If Not IsDllStruct($tMARGINS) Then $tMARGINS = _WinAPI_CreateMargins(-1, -1, -1, -1) EndIf Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmExtendFrameIntoClientArea', 'hwnd', $hWnd, 'struct*', $tMARGINS) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return 1 EndFunc Func _WinAPI_DwmGetColorizationColor() Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmGetColorizationColor', 'dword*', 0, 'bool*', 0) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return SetExtended($aRet[2], $aRet[1]) EndFunc Func _WinAPI_DwmGetColorizationParameters() Local $tDWMCP = DllStructCreate($tagDWM_COLORIZATION_PARAMETERS) Local $aRet = DllCall('dwmapi.dll', 'uint', 127, 'struct*', $tDWMCP) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return $tDWMCP EndFunc Func _WinAPI_DwmGetWindowAttribute($hWnd, $iAttribute) Local $tagStruct Switch $iAttribute Case 5, 9 $tagStruct = $tagRECT Case 1 $tagStruct = 'uint' Case Else Return SetError(11, 0, 0) EndSwitch Local $tData = DllStructCreate($tagStruct) Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmGetWindowAttribute', 'hwnd', $hWnd, 'dword', $iAttribute, 'struct*', $tData, 'dword', DllStructGetSize($tData)) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Switch $iAttribute Case 1 Return DllStructGetData($tData, 1) Case Else Return $tData EndSwitch EndFunc Func _WinAPI_DwmInvalidateIconicBitmaps($hWnd) Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmInvalidateIconicBitmaps', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return 1 EndFunc Func _WinAPI_DwmIsCompositionEnabled() Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmIsCompositionEnabled', 'bool*', 0) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return $aRet[1] EndFunc Func _WinAPI_DwmQueryThumbnailSourceSize($hThumbnail) Local $tSIZE = DllStructCreate($tagSIZE) Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmQueryThumbnailSourceSize', 'handle', $hThumbnail, 'struct*', $tSIZE) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return $tSIZE EndFunc Func _WinAPI_DwmRegisterThumbnail($hDestination, $hSource) Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmRegisterThumbnail', 'hwnd', $hDestination, 'hwnd', $hSource, 'handle*', 0) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return $aRet[3] EndFunc Func _WinAPI_DwmSetColorizationParameters($tDWMCP) Local $aRet = DllCall('dwmapi.dll', 'uint', 131, 'struct*', $tDWMCP, 'uint', 0) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return 1 EndFunc Func _WinAPI_DwmSetIconicLivePreviewBitmap($hWnd, $hBitmap, $bFrame = False, $tClient = 0) Local $iFlags If $bFrame Then $iFlags = 0x00000001 Else $iFlags = 0 EndIf Local $aRet = DllCall('dwmapi.dll', 'uint', 'DwmSetIconicLivePreviewBitmap', 'hwnd', $hWnd, 'handle', $hBitmap, 'struct*', $tClient, 'dword', $iFlags) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return 1 EndFunc Func _WinAPI_DwmSetIconicThumbnail($hWnd, $hBitmap, $bFrame = False) Local $iFlags If $bFrame Then $iFlags = 0x00000001 Else $iFlags = 0 EndIf Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmSetIconicThumbnail', 'hwnd', $hWnd, 'handle', $hBitmap, 'dword', $iFlags) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return 1 EndFunc Func _WinAPI_DwmSetWindowAttribute($hWnd, $iAttribute, $iData) Switch $iAttribute Case 2, 3, 4, 6, 7, 8, 10, 11, 12 Case Else Return SetError(1, 0, 0) EndSwitch Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmSetWindowAttribute', 'hwnd', $hWnd, 'dword', $iAttribute, 'dword*', $iData, 'dword', 4) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return 1 EndFunc Func _WinAPI_DwmUnregisterThumbnail($hThumbnail) Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmUnregisterThumbnail', 'handle', $hThumbnail) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return 1 EndFunc Func _WinAPI_DwmUpdateThumbnailProperties($hThumbnail, $bVisible = True, $bClientAreaOnly = False, $iOpacity = 255, $tRectDest = 0, $tRectSrc = 0) Local Const $tagDWM_THUMBNAIL_PROPERTIES = 'struct;dword dwFlags;int rcDestination[4];int rcSource[4];byte opacity;bool opacity;bool fSourceClientAreaOnly;endstruct' Local $tTHUMBNAILPROPERTIES = DllStructCreate($tagDWM_THUMBNAIL_PROPERTIES) Local $tSIZE, $iFlags = 0 If Not IsDllStruct($tRectDest) Then $tSIZE = _WinAPI_DwmQueryThumbnailSourceSize($hThumbnail) If @error Then Return SetError(@error + 10, @extended, 0) EndIf $tRectDest = _WinAPI_CreateRectEx(0, 0, DllStructGetData($tSIZE, 1), DllStructGetData($tSIZE, 2)) EndIf For $i = 1 To 4 DllStructSetData($tTHUMBNAILPROPERTIES, 2, DllStructGetData($tRectDest, $i), $i) Next If IsDllStruct($tRectSrc) Then $iFlags += 2 For $i = 1 To 4 DllStructSetData($tTHUMBNAILPROPERTIES, 3, DllStructGetData($tRectSrc, $i), $i) Next EndIf DllStructSetData($tTHUMBNAILPROPERTIES, 1, BitOR($iFlags, 0x1D)) DllStructSetData($tTHUMBNAILPROPERTIES, 4, $iOpacity) DllStructSetData($tTHUMBNAILPROPERTIES, 5, $bVisible) DllStructSetData($tTHUMBNAILPROPERTIES, 6, $bClientAreaOnly) Local $aRet = DllCall('dwmapi.dll', 'long', 'DwmUpdateThumbnailProperties', 'handle', $hThumbnail, 'struct*', $tTHUMBNAILPROPERTIES) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] Then Return SetError(10, $aRet[0], 0) Return 1 EndFunc Func _WinAPI_Ellipse($hDC, $tRECT) Local $aRet = DllCall('gdi32.dll', 'bool', 'Ellipse', 'handle', $hDC, 'int', DllStructGetData($tRECT, 1), 'int', DllStructGetData($tRECT, 2), 'int', DllStructGetData($tRECT, 3), 'int', DllStructGetData($tRECT, 4)) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_EndPaint($hWnd, ByRef $tPAINTSTRUCT) Local $aRet = DllCall('user32.dll', 'bool', 'EndPaint', 'hwnd', $hWnd, 'struct*', $tPAINTSTRUCT) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_EndPath($hDC) Local $aRet = DllCall('gdi32.dll', 'bool', 'EndPath', 'handle', $hDC) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_EnumDisplayMonitors($hDC = 0, $tRECT = 0) Local $hEnumProc = DllCallbackRegister('__EnumDisplayMonitorsProc', 'bool', 'handle;handle;ptr;lparam') Dim $__g_vEnum[101][2] = [[0]] Local $aRet = DllCall('user32.dll', 'bool', 'EnumDisplayMonitors', 'handle', $hDC, 'struct*', $tRECT, 'ptr', DllCallbackGetPtr($hEnumProc), 'lparam', 0) If @error Or Not $aRet[0] Or Not $__g_vEnum[0][0] Then $__g_vEnum = @error + 10 EndIf DllCallbackFree($hEnumProc) If $__g_vEnum Then Return SetError($__g_vEnum, 0, 0) __Inc($__g_vEnum, -1) Return $__g_vEnum EndFunc Func _WinAPI_EnumDisplaySettings($sDevice, $iMode) Local $sTypeOfDevice = 'wstr' If Not StringStripWS($sDevice, $STR_STRIPLEADING + $STR_STRIPTRAILING) Then $sTypeOfDevice = 'ptr' $sDevice = 0 EndIf Local $tDEVMODE = DllStructCreate($tagDEVMODE_DISPLAY) DllStructSetData($tDEVMODE, 'Size', DllStructGetSize($tDEVMODE)) DllStructSetData($tDEVMODE, 'DriverExtra', 0) Local $aRet = DllCall('user32.dll', 'bool', 'EnumDisplaySettingsW', $sTypeOfDevice, $sDevice, 'dword', $iMode, 'struct*', $tDEVMODE) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Local $aResult[5] $aResult[0] = DllStructGetData($tDEVMODE, 'PelsWidth') $aResult[1] = DllStructGetData($tDEVMODE, 'PelsHeight') $aResult[2] = DllStructGetData($tDEVMODE, 'BitsPerPel') $aResult[3] = DllStructGetData($tDEVMODE, 'DisplayFrequency') $aResult[4] = DllStructGetData($tDEVMODE, 'DisplayFlags') Return $aResult EndFunc Func _WinAPI_EnumFontFamilies($hDC = 0, $sFaceName = '', $iCharSet = 1, $iFontType = 0x07, $sPattern = '', $bExclude = False) Local $tLOGFONT = DllStructCreate($tagLOGFONT) Local $tPattern = DllStructCreate('uint;uint;ptr;wchar[' & (StringLen($sPattern) + 1) & ']') DllStructSetData($tPattern, 1, $iFontType) If Not $sPattern Then DllStructSetData($tPattern, 2, 0) DllStructSetData($tPattern, 3, 0) Else DllStructSetData($tPattern, 2, $bExclude) DllStructSetData($tPattern, 3, DllStructGetPtr($tPattern, 4)) DllStructSetData($tPattern, 4, $sPattern) EndIf DllStructSetData($tLOGFONT, 9, $iCharSet) DllStructSetData($tLOGFONT, 13, 0) DllStructSetData($tLOGFONT, 14, StringLeft($sFaceName, 31)) Local $hCDC If Not $hDC Then $hCDC = _WinAPI_CreateCompatibleDC(0) Else $hCDC = $hDC EndIf Dim $__g_vEnum[101][8] = [[0]] Local $hEnumProc = DllCallbackRegister('__EnumFontFamiliesProc', 'int', 'ptr;ptr;dword;PTR') Local $aRet = DllCall('gdi32.dll', 'int', 'EnumFontFamiliesExW', 'handle', $hCDC, 'struct*', $tLOGFONT, 'ptr', DllCallbackGetPtr($hEnumProc), 'struct*', $tPattern, 'dword', 0) If @error Or Not $aRet[0] Or Not $__g_vEnum[0][0] Then $__g_vEnum = @error + 10 EndIf DllCallbackFree($hEnumProc) If Not $hDC Then _WinAPI_DeleteDC($hCDC) EndIf If $__g_vEnum Then Return SetError($__g_vEnum, 0, 0) __Inc($__g_vEnum, -1) Return $__g_vEnum EndFunc Func _WinAPI_EqualRect($tRECT1, $tRECT2) Local $aRet = DllCall('user32.dll', 'bool', 'EqualRect', 'struct*', $tRECT1, 'struct*', $tRECT2) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_EqualRgn($hRgn1, $hRgn2) Local $aRet = DllCall('gdi32.dll', 'bool', 'EqualRgn', 'handle', $hRgn1, 'handle', $hRgn2) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_ExcludeClipRect($hDC, $tRECT) Local $aRet = DllCall('gdi32.dll', 'int', 'ExcludeClipRect', 'handle', $hDC, 'int', DllStructGetData($tRECT, 1), 'int', DllStructGetData($tRECT, 2), 'int', DllStructGetData($tRECT, 3), 'int', DllStructGetData($tRECT, 4)) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_ExtCreatePen($iPenStyle, $iWidth, $iBrushStyle, $iRGB, $iHatch = 0, $aUserStyle = 0, $iStart = 0, $iEnd = -1) Local $iCount = 0, $tStyle = 0 If BitAND($iPenStyle, 0xFF) = 7 Then If __CheckErrorArrayBounds($aUserStyle, $iStart, $iEnd) Then Return SetError(@error + 10, @extended, 0) $tStyle = DllStructCreate('dword[' & ($iEnd - $iStart + 1) & ']') For $i = $iStart To $iEnd DllStructSetData($tStyle, 1, $aUserStyle[$i], $iCount + 1) $iCount += 1 Next EndIf Local $tLOGBRUSH = DllStructCreate($tagLOGBRUSH) DllStructSetData($tLOGBRUSH, 1, $iBrushStyle) DllStructSetData($tLOGBRUSH, 2, __RGB($iRGB)) DllStructSetData($tLOGBRUSH, 3, $iHatch) Local $aRet = DllCall('gdi32.dll', 'handle', 'ExtCreatePen', 'dword', $iPenStyle, 'dword', $iWidth, 'struct*', $tLOGBRUSH, 'dword', $iCount, 'struct*', $tStyle) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_ExtCreateRegion($tRGNDATA, $tXFORM = 0) Local $aRet = DllCall('gdi32.dll', 'handle', 'ExtCreateRegion', 'struct*', $tXFORM, 'dword', DllStructGetSize($tRGNDATA), 'struct*', $tRGNDATA) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_ExtFloodFill($hDC, $iX, $iY, $iRGB, $iType = 0) Local $aRet = DllCall('gdi32.dll', 'bool', 'ExtFloodFill', 'handle', $hDC, 'int', $iX, 'int', $iY, 'dword', __RGB($iRGB), 'uint', $iType) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_ExtSelectClipRgn($hDC, $hRgn, $iMode = 5) Local $aRet = DllCall('gdi32.dll', 'int', 'ExtSelectClipRgn', 'handle', $hDC, 'handle', $hRgn, 'int', $iMode) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_FillPath($hDC) Local $aRet = DllCall('gdi32.dll', 'bool', 'FillPath', 'handle', $hDC) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_FillRgn($hDC, $hRgn, $hBrush) Local $aRet = DllCall('gdi32.dll', 'bool', 'FillRgn', 'handle', $hDC, 'handle', $hRgn, 'handle', $hBrush) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_FlattenPath($hDC) Local $aRet = DllCall('gdi32.dll', 'bool', 'FlattenPath', 'handle', $hDC) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_FrameRgn($hDC, $hRgn, $hBrush, $iWidth, $iHeight) Local $aRet = DllCall('gdi32.dll', 'bool', 'FrameRgn', 'handle', $hDC, 'handle', $hRgn, 'handle', $hBrush, 'int', $iWidth, 'int', $iHeight) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_GdiComment($hDC, $pBuffer, $iSize) Local $aRet = DllCall('gdi32.dll', 'bool', 'GdiComment', 'handle', $hDC, 'uint', $iSize, 'struct*', $pBuffer) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_GetArcDirection($hDC) Local $aRet = DllCall('gdi32.dll', 'int', 'GetArcDirection', 'handle', $hDC) If @error Then Return SetError(@error, @extended, 0) If ($aRet[0] < 1) Or ($aRet[0] > 2) Then Return SetError(10, $aRet[0], 0) Return $aRet[0] EndFunc Func _WinAPI_GetBitmapBits($hBitmap, $iSize, $pBits) Local $aRet = DllCall('gdi32.dll', 'long', 'GetBitmapBits', 'handle', $hBitmap, 'long', $iSize, 'struct*', $pBits) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetBitmapDimensionEx($hBitmap) Local $tSIZE = DllStructCreate($tagSIZE) Local $aRet = DllCall('gdi32.dll', 'bool', 'GetBitmapDimensionEx', 'handle', $hBitmap, 'struct*', $tSIZE) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tSIZE EndFunc Func _WinAPI_GetBkColor($hDC) Local $aRet = DllCall('gdi32.dll', 'dword', 'GetBkColor', 'handle', $hDC) If @error Or ($aRet[0] = -1) Then Return SetError(@error, @extended, -1) Return __RGB($aRet[0]) EndFunc Func _WinAPI_GetBoundsRect($hDC, $iFlags = 0) Local $tRECT = DllStructCreate($tagRECT) Local $aRet = DllCall('gdi32.dll', 'uint', 'GetBoundsRect', 'handle', $hDC, 'struct*', $tRECT, 'uint', $iFlags) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return SetExtended($aRet[0], $tRECT) EndFunc Func _WinAPI_GetBrushOrg($hDC) Local $tPOINT = DllStructCreate($tagPOINT) Local $aRet = DllCall('gdi32.dll', 'bool', 'GetBrushOrgEx', 'handle', $hDC, 'struct*', $tPOINT) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tPOINT EndFunc Func _WinAPI_GetBValue($iRGB) Return BitShift(BitAND(__RGB($iRGB), 0xFF0000), 16) EndFunc Func _WinAPI_GetClipBox($hDC, ByRef $tRECT) $tRECT = DllStructCreate($tagRECT) Local $aRet = DllCall('gdi32.dll', 'int', 'GetClipBox', 'handle', $hDC, 'struct*', $tRECT) If @error Or Not $aRet[0] Then $tRECT = 0 Return SetError(@error, @extended, 0) EndIf Return $aRet[0] EndFunc Func _WinAPI_GetClipRgn($hDC) Local $hRgn = _WinAPI_CreateRectRgn(0, 0, 0, 0) Local $iError = 0 Local $aRet = DllCall('gdi32.dll', 'int', 'GetClipRgn', 'handle', $hDC, 'handle', $hRgn) If @error Or ($aRet[0] = -1) Then $iError = @error + 10 If $iError Or Not $aRet[0] Then _WinAPI_DeleteObject($hRgn) $hRgn = 0 EndIf Return SetError($iError, 0, $hRgn) EndFunc Func _WinAPI_GetColorAdjustment($hDC) Local $tAdjustment = DllStructCreate($tagCOLORADJUSTMENT) Local $aRet = DllCall('gdi32.dll', 'bool', 'GetColorAdjustment', 'handle', $hDC, 'struct*', $tAdjustment) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tAdjustment EndFunc Func _WinAPI_GetCurrentPosition($hDC) Local $tPOINT = DllStructCreate($tagPOINT) Local $aRet = DllCall('gdi32.dll', 'int', 'GetCurrentPositionEx', 'handle', $hDC, 'struct*', $tPOINT) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tPOINT EndFunc Func _WinAPI_GetDeviceGammaRamp($hDC, ByRef $aRamp) $aRamp = 0 Local $tData = DllStructCreate('word[256];word[256];word[256]') Local $aRet = DllCall('gdi32.dll', 'bool', 'GetDeviceGammaRamp', 'handle', $hDC, 'struct*', $tData) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, 0) Dim $aRamp[256][3] For $i = 0 To 2 For $j = 0 To 255 $aRamp[$j][$i] = DllStructGetData($tData, $i + 1, $j + 1) Next Next Return 1 EndFunc Func _WinAPI_GetDIBColorTable($hBitmap) Local $hDC = _WinAPI_CreateCompatibleDC(0) Local $hSv = _WinAPI_SelectObject($hDC, $hBitmap) Local $tPeak = DllStructCreate('dword[256]') Local $iError = 0 Local $aRet = DllCall('gdi32.dll', 'uint', 'GetDIBColorTable', 'handle', $hDC, 'uint', 0, 'uint', 256, 'struct*', $tPeak) If @error Or Not $aRet[0] Then $iError = @error + 10 _WinAPI_SelectObject($hDC, $hSv) _WinAPI_DeleteDC($hDC) If $iError Then Return SetError($iError, 0, 0) Local $tData = DllStructCreate('dword[' & $aRet[0] & ']') If @error Then Return SetError(@error + 20, @extended, 0) _WinAPI_MoveMemory($tData, $aRet[4], 4 * $aRet[0]) Return SetExtended($aRet[0], $tData) EndFunc Func _WinAPI_GetDIBits($hDC, $hBitmap, $iStartScan, $iScanLines, $pBits, $tBI, $iUsage) Local $aResult = DllCall("gdi32.dll", "int", "GetDIBits", "handle", $hDC, "handle", $hBitmap, "uint", $iStartScan, "uint", $iScanLines, "struct*", $pBits, "struct*", $tBI, "uint", $iUsage) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_GetEnhMetaFile($sFilePath) Local $aRet = DllCall('gdi32.dll', 'handle', 'GetEnhMetaFileW', 'wstr', $sFilePath) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetEnhMetaFileBits($hEmf, ByRef $pBuffer) Local $aRet = DllCall('gdi32.dll', 'uint', 'GetEnhMetaFileBits', 'handle', $hEmf, 'uint', 0, 'ptr', 0) If @error Or Not $aRet[0] Then Return SetError(@error + 50, @extended, 0) $pBuffer = __HeapReAlloc($pBuffer, $aRet[0], 1) If @error Then Return SetError(@error, @extended, 0) $aRet = DllCall('gdi32.dll', 'uint', 'GetEnhMetaFileBits', 'handle', $hEmf, 'uint', $aRet[0], 'ptr', $pBuffer) If Not $aRet[0] Then Return SetError(60, 0, 0) Return $aRet[2] EndFunc Func _WinAPI_GetEnhMetaFileDescription($hEmf) Local $tData = DllStructCreate('wchar[4096]') Local $aRet = DllCall('gdi32.dll', 'uint', 'GetEnhMetaFileDescriptionW', 'handle', $hEmf, 'uint', 4096, 'struct*', $tData) If @error Or ($aRet[0] = 4294967295) Then Return SetError(@error + 20, $aRet[0], 0) If Not $aRet[0] Then Return 0 Local $aData = _WinAPI_StructToArray($tData) If @error Then Return SetError(@error, @extended, 0) Local $aResult[2] For $i = 0 To 1 If $aData[0] > $i Then $aResult[$i] = $aData[$i + 1] Else $aResult[$i] = '' EndIf Next Return $aResult EndFunc Func _WinAPI_GetEnhMetaFileDimension($hEmf) Local $tENHMETAHEADER = _WinAPI_GetEnhMetaFileHeader($hEmf) If @error Then Return SetError(@error, @extended, 0) Local $tSIZE = DllStructCreate($tagSIZE) DllStructSetData($tSIZE, 1, Round((DllStructGetData($tENHMETAHEADER, 'rcFrame', 3) - DllStructGetData($tENHMETAHEADER, 'rcFrame', 1)) * DllStructGetData($tENHMETAHEADER, 'Device', 1) / DllStructGetData($tENHMETAHEADER, 'Millimeters', 1) / 100)) DllStructSetData($tSIZE, 2, Round((DllStructGetData($tENHMETAHEADER, 'rcFrame', 4) - DllStructGetData($tENHMETAHEADER, 'rcFrame', 2)) * DllStructGetData($tENHMETAHEADER, 'Device', 2) / DllStructGetData($tENHMETAHEADER, 'Millimeters', 2) / 100)) Return $tSIZE EndFunc Func _WinAPI_GetEnhMetaFileHeader($hEmf) Local $tENHMETAHEADER = DllStructCreate($tagENHMETAHEADER) Local $aRet = DllCall('gdi32.dll', 'uint', 'GetEnhMetaFileHeader', 'handle', $hEmf, 'uint', DllStructGetSize($tENHMETAHEADER), 'struct*', $tENHMETAHEADER) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return SetExtended($aRet[0], $tENHMETAHEADER) EndFunc Func _WinAPI_GetFontName($sFaceName, $iStyle = 0, $iCharSet = 1) If Not $sFaceName Then Return SetError(1, 0, '') Local $iFlags = 0 If BitAND($iStyle, 0x01) Then $iFlags += 0x00000020 EndIf If BitAND($iStyle, 0x02) Then $iFlags += 0x00000001 EndIf If Not $iFlags Then $iFlags = 0x00000040 EndIf Local $tLOGFONT = DllStructCreate($tagLOGFONT) DllStructSetData($tLOGFONT, 9, $iCharSet) DllStructSetData($tLOGFONT, 13, 0) DllStructSetData($tLOGFONT, 14, StringLeft($sFaceName, 31)) Local $tFN = DllStructCreate('dword;wchar[64]') DllStructSetData($tFN, 1, $iFlags) DllStructSetData($tFN, 2, '') Local $hDC = _WinAPI_CreateCompatibleDC(0) Local $hEnumProc = DllCallbackRegister('__EnumFontStylesProc', 'int', 'ptr;ptr;dword;lparam') Local $sRet = '' Local $aRet = DllCall('gdi32.dll', 'int', 'EnumFontFamiliesExW', 'handle', $hDC, 'struct*', $tLOGFONT, 'ptr', DllCallbackGetPtr($hEnumProc), 'struct*', $tFN, 'dword', 0) If Not @error And Not $aRet[0] Then $sRet = DllStructGetData($tFN, 2) DllCallbackFree($hEnumProc) _WinAPI_DeleteDC($hDC) If Not $sRet Then Return SetError(2, 0, '') Return $sRet EndFunc Func _WinAPI_GetFontResourceInfo($sFont, $bForce = False, $iFlag = Default) If $iFlag = Default Then If $bForce Then If Not _WinAPI_AddFontResourceEx($sFont, $FR_NOT_ENUM) Then Return SetError(@error + 20, @extended, '') EndIf Local $iError = 0 Local $aRet = DllCall('gdi32.dll', 'bool', 'GetFontResourceInfoW', 'wstr', $sFont, 'dword*', 4096, 'wstr', '', 'dword', 0x01) If @error Or Not $aRet[0] Then $iError = @error + 10 If $bForce Then _WinAPI_RemoveFontResourceEx($sFont, $FR_NOT_ENUM) EndIf If $iError Then Return SetError($iError, 0, '') Return $aRet[3] Else If Not FileExists($sFont) Then $sFont = RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders", "Fonts") & "\" & $sFont If Not FileExists($sFont) Then Return SetError(31, 0, "") EndIf Local Const $hFile = _WinAPI_CreateFile($sFont, 2, 2, 2) If Not $hFile Then Return SetError(32, _WinAPI_GetLastError(), "") Local Const $iFile = FileGetSize($sFont) Local Const $tBuffer = DllStructCreate("byte[" & $iFile + 1 & "]") Local Const $pFile = DllStructGetPtr($tBuffer) Local $iRead _WinAPI_ReadFile($hFile, $pFile, $iFile, $iRead) _WinAPI_CloseHandle($hFile) Local $sTTFName = _WinAPI_GetFontMemoryResourceInfo($pFile, $iFlag) If @error Then If @error = 1 And $iFlag = 4 Then $sTTFName = _WinAPI_GetFontResourceInfo($sFont, True) Return SetError(@error, @extended, $sTTFName) EndIf Return SetError(33, @error, "") EndIf Return $sTTFName EndIf EndFunc Func _WinAPI_GetFontMemoryResourceInfo($pMemory, $iFlag = 1) Local Const $tagTT_OFFSET_TABLE = "USHORT uMajorVersion;USHORT uMinorVersion;USHORT uNumOfTables;USHORT uSearchRange;USHORT uEntrySelector;USHORT uRangeShift" Local Const $tagTT_TABLE_DIRECTORY = "char szTag[4];ULONG uCheckSum;ULONG uOffset;ULONG uLength" Local Const $tagTT_NAME_TABLE_HEADER = "USHORT uFSelector;USHORT uNRCount;USHORT uStorageOffset" Local Const $tagTT_NAME_RECORD = "USHORT uPlatformID;USHORT uEncodingID;USHORT uLanguageID;USHORT uNameID;USHORT uStringLength;USHORT uStringOffset" Local $tTTOffsetTable = DllStructCreate($tagTT_OFFSET_TABLE, $pMemory) Local $iNumOfTables = _WinAPI_SwapWord(DllStructGetData($tTTOffsetTable, "uNumOfTables")) If Not (_WinAPI_SwapWord(DllStructGetData($tTTOffsetTable, "uMajorVersion")) = 1 And _WinAPI_SwapWord(DllStructGetData($tTTOffsetTable, "uMinorVersion")) = 0) Then Return SetError(1, 0, "") Local $iTblDirSize = DllStructGetSize(DllStructCreate($tagTT_TABLE_DIRECTORY)) Local $bFound = False, $iOffset, $tTblDir For $i = 0 To $iNumOfTables - 1 $tTblDir = DllStructCreate($tagTT_TABLE_DIRECTORY, $pMemory + DllStructGetSize($tTTOffsetTable) + $i * $iTblDirSize) If StringLeft(DllStructGetData($tTblDir, "szTag"), 4) = "name" Then $bFound = True $iOffset = _WinAPI_SwapDWord(DllStructGetData($tTblDir, "uOffset")) ExitLoop EndIf Next If Not $bFound Then Return SetError(2, 0, "") Local $tNTHeader = DllStructCreate($tagTT_NAME_TABLE_HEADER, $pMemory + $iOffset) Local $iNTHeaderSize = DllStructGetSize($tNTHeader) Local $iNRCount = _WinAPI_SwapWord(DllStructGetData($tNTHeader, "uNRCount")) Local $iStorageOffset = _WinAPI_SwapWord(DllStructGetData($tNTHeader, "uStorageOffset")) Local $iTTRecordSize = DllStructGetSize(DllStructCreate($tagTT_NAME_RECORD)) Local $tResult, $sResult, $iStringLength, $iStringOffset, $iEncodingID, $tTTRecord For $i = 0 To $iNRCount - 1 $tTTRecord = DllStructCreate($tagTT_NAME_RECORD, $pMemory + $iOffset + $iNTHeaderSize + $i * $iTTRecordSize) If _WinAPI_SwapWord($tTTRecord.uNameID) = $iFlag Then $iStringLength = _WinAPI_SwapWord(DllStructGetData($tTTRecord, "uStringLength")) $iStringOffset = _WinAPI_SwapWord(DllStructGetData($tTTRecord, "uStringOffset")) $iEncodingID = _WinAPI_SwapWord(DllStructGetData($tTTRecord, "uEncodingID")) Local $sWchar = "char" If $iEncodingID = 1 Then $sWchar = "word" $iStringLength = $iStringLength / 2 EndIf $tResult = DllStructCreate($sWchar & " szTTFName[" & $iStringLength & "]", $pMemory + $iOffset + $iStringOffset + $iStorageOffset) If $iEncodingID = 1 Then $sResult = "" For $j = 1 To $iStringLength $sResult &= ChrW(_WinAPI_SwapWord(DllStructGetData($tResult, 1, $j))) Next Else $sResult = $tResult.szTTFName EndIf If StringLen($sResult) > 0 Then ExitLoop EndIf Next Return $sResult EndFunc Func _WinAPI_GetGlyphOutline($hDC, $sChar, $iFormat, ByRef $pBuffer, $tMAT2 = 0) Local $tGM = DllStructCreate($tagGLYPHMETRICS) Local $aRet, $iLength = 0 If Not IsDllStruct($tMAT2) Then $tMAT2 = DllStructCreate('short[8]') DllStructSetData($tMAT2, 1, 1, 2) DllStructSetData($tMAT2, 1, 1, 8) EndIf If $iFormat Then $aRet = DllCall('gdi32.dll', 'dword', 'GetGlyphOutlineW', 'handle', $hDC, 'uint', AscW($sChar), 'uint', $iFormat, 'struct*', $tGM, 'dword', 0, 'ptr', 0, 'struct*', $tMAT2) If @error Or ($aRet[0] = 4294967295) Then Return SetError(@error + 10, @extended, 0) $iLength = $aRet[0] $pBuffer = __HeapReAlloc($pBuffer, $iLength, 1) If @error Then Return SetError(@error + 20, @extended, 0) EndIf $aRet = DllCall('gdi32.dll', 'dword', 'GetGlyphOutlineW', 'handle', $hDC, 'uint', AscW($sChar), 'uint', $iFormat, 'struct*', $tGM, 'dword', $iLength, 'ptr', $pBuffer, 'struct*', $tMAT2) If @error Then Return SetError(@error, @extended, 0) If $aRet[0] = 4294967295 Then Return SetError(10, -1, 0) Return SetExtended($iLength, $tGM) EndFunc Func _WinAPI_GetGraphicsMode($hDC) Local $aRet = DllCall('gdi32.dll', 'int', 'GetGraphicsMode', 'handle', $hDC) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetGValue($iRGB) Return BitShift(BitAND(__RGB($iRGB), 0x00FF00), 8) EndFunc Func _WinAPI_GetMapMode($hDC) Local $aRet = DllCall('gdi32.dll', 'int', 'GetMapMode', 'handle', $hDC) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetMonitorInfo($hMonitor) Local $tMIEX = DllStructCreate('dword;long[4];long[4];dword;wchar[32]') DllStructSetData($tMIEX, 1, DllStructGetSize($tMIEX)) Local $aRet = DllCall('user32.dll', 'bool', 'GetMonitorInfoW', 'handle', $hMonitor, 'struct*', $tMIEX) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Local $aResult[4] For $i = 0 To 1 $aResult[$i] = DllStructCreate($tagRECT) _WinAPI_MoveMemory($aResult[$i], DllStructGetPtr($tMIEX, $i + 2), 16) Next $aResult[3] = DllStructGetData($tMIEX, 5) Switch DllStructGetData($tMIEX, 4) Case 1 $aResult[2] = 1 Case Else $aResult[2] = 0 EndSwitch Return $aResult EndFunc Func _WinAPI_GetOutlineTextMetrics($hDC) Local $aRet = DllCall('gdi32.dll', 'uint', 'GetOutlineTextMetricsW', 'handle', $hDC, 'uint', 0, 'ptr', 0) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Local $tData = DllStructCreate('byte[' & $aRet[0] & ']') Local $tOLTM = DllStructCreate($tagOUTLINETEXTMETRIC, DllStructGetPtr($tData)) $aRet = DllCall('gdi32.dll', 'uint', 'GetOutlineTextMetricsW', 'handle', $hDC, 'uint', $aRet[0], 'struct*', $tData) If Not $aRet[0] Then Return SetError(20, 0, 0) Return $tOLTM EndFunc Func _WinAPI_GetPixel($hDC, $iX, $iY) Local $aRet = DllCall('gdi32.dll', 'dword', 'GetPixel', 'handle', $hDC, 'int', $iX, 'int', $iY) If @error Or ($aRet[0] = 4294967295) Then Return SetError(@error, @extended, -1) Return __RGB($aRet[0]) EndFunc Func _WinAPI_GetPolyFillMode($hDC) Local $aRet = DllCall('gdi32.dll', 'int', 'GetPolyFillMode', 'handle', $hDC) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetPosFromRect($tRECT) Local $aResult[4] For $i = 0 To 3 $aResult[$i] = DllStructGetData($tRECT, $i + 1) If @error Then Return SetError(@error, @extended, 0) Next For $i = 2 To 3 $aResult[$i] -= $aResult[$i - 2] Next Return $aResult EndFunc Func _WinAPI_GetRegionData($hRgn, ByRef $tRGNDATA) Local $aRet = DllCall('gdi32.dll', 'dword', 'GetRegionData', 'handle', $hRgn, 'dword', 0, 'ptr', 0) If @error Or Not $aRet[0] Then $tRGNDATA = 0 Return SetError(@error, @extended, False) EndIf $tRGNDATA = DllStructCreate($tagRGNDATAHEADER) Local $iRectSize = $aRet[0] - DllStructGetSize($tRGNDATA) If $iRectSize > 0 Then $tRGNDATA = DllStructCreate($tagRGNDATAHEADER & ';byte[' & $iRectSize & ']') $aRet = DllCall('gdi32.dll', 'dword', 'GetRegionData', 'handle', $hRgn, 'dword', $aRet[0], 'struct*', $tRGNDATA) If Not $aRet[0] Then $tRGNDATA = 0 Return $aRet[0] EndFunc Func _WinAPI_GetRgnBox($hRgn, ByRef $tRECT) $tRECT = DllStructCreate($tagRECT) Local $aRet = DllCall('gdi32.dll', 'int', 'GetRgnBox', 'handle', $hRgn, 'struct*', $tRECT) If @error Or Not $aRet[0] Then $tRECT = 0 Return SetError(@error, @extended, 0) EndIf Return $aRet[0] EndFunc Func _WinAPI_GetROP2($hDC) Local $aRet = DllCall('gdi32.dll', 'int', 'GetROP2', 'handle', $hDC) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetRValue($iRGB) Return BitAND(__RGB($iRGB), 0x0000FF) EndFunc Func _WinAPI_GetStretchBltMode($hDC) Local $aRet = DllCall('gdi32.dll', 'int', 'GetStretchBltMode', 'handle', $hDC) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetTabbedTextExtent($hDC, $sText, $aTab = 0, $iStart = 0, $iEnd = -1) Local $iTab, $iCount If Not IsArray($aTab) Then If $aTab Then $iTab = $aTab Dim $aTab[1] = [$iTab] $iStart = 0 $iEnd = 0 $iCount = 1 Else $iCount = 0 EndIf Else $iCount = 1 EndIf Local $tTab = 0 If $iCount Then If __CheckErrorArrayBounds($aTab, $iStart, $iEnd) Then Return SetError(@error + 10, @extended, 0) $iCount = $iEnd - $iStart + 1 $tTab = DllStructCreate('uint[' & $iCount & ']') $iTab = 1 For $i = $iStart To $iEnd DllStructSetData($tTab, 1, $aTab[$i], $iTab) $iTab += 1 Next EndIf Local $aRet = DllCall('user32.dll', 'dword', 'GetTabbedTextExtentW', 'handle', $hDC, 'wstr', $sText, 'int', StringLen($sText), 'int', $iCount, 'struct*', $tTab) If @error Or Not $aRet[0] Then Return SetError(@error + 20, @extended, 0) Return _WinAPI_CreateSize(_WinAPI_LoWord($aRet[0]), _WinAPI_HiWord($aRet[0])) EndFunc Func _WinAPI_GetTextAlign($hDC) Local $aRet = DllCall('gdi32.dll', 'uint', 'GetTextAlign', 'handle', $hDC) If @error Or ($aRet[0] = 4294967295) Then Return SetError(@error, @extended, -1) Return $aRet[0] EndFunc Func _WinAPI_GetTextCharacterExtra($hDC) Local $aRet = DllCall('gdi32.dll', 'int', 'GetTextCharacterExtra', 'handle', $hDC) If @error Or ($aRet[0] = 0x8000000) Then Return SetError(@error, @extended, -1) Return $aRet[0] EndFunc Func _WinAPI_GetTextFace($hDC) Local $aRet = DllCall('gdi32.dll', 'int', 'GetTextFaceW', 'handle', $hDC, 'int', 2048, 'wstr', '') If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, '') Return $aRet[3] EndFunc Func _WinAPI_GetUDFColorMode() Return Number($__g_iRGBMode) EndFunc Func _WinAPI_GetUpdateRect($hWnd, $bErase = True) Local $tRECT = DllStructCreate($tagRECT) Local $aRet = DllCall('user32.dll', 'bool', 'GetUpdateRect', 'hwnd', $hWnd, 'struct*', $tRECT, 'bool', $bErase) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tRECT EndFunc Func _WinAPI_GetUpdateRgn($hWnd, $hRgn, $bErase = True) Local $aRet = DllCall('user32.dll', 'int', 'GetUpdateRgn', 'hwnd', $hWnd, 'handle', $hRgn, 'bool', $bErase) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetWindowExt($hDC) Local $tSIZE = DllStructCreate($tagSIZE) Local $aRet = DllCall('gdi32.dll', 'bool', 'GetWindowExtEx', 'handle', $hDC, 'struct*', $tSIZE) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tSIZE EndFunc Func _WinAPI_GetWindowOrg($hDC) Local $tPOINT = DllStructCreate($tagPOINT) Local $aRet = DllCall('gdi32.dll', 'bool', 'GetWindowOrgEx', 'handle', $hDC, 'struct*', $tPOINT) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tPOINT EndFunc Func _WinAPI_GetWindowRgnBox($hWnd, ByRef $tRECT) $tRECT = DllStructCreate($tagRECT) Local $aRet = DllCall('gdi32.dll', 'int', 'GetWindowRgnBox', 'hwnd', $hWnd, 'struct*', $tRECT) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_GetWorldTransform($hDC) Local $tXFORM = DllStructCreate($tagXFORM) Local $aRet = DllCall('gdi32.dll', 'bool', 'GetWorldTransform', 'handle', $hDC, 'struct*', $tXFORM) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tXFORM EndFunc Func _WinAPI_GradientFill($hDC, Const ByRef $aVertex, $iStart = 0, $iEnd = -1, $bRotate = False) If __CheckErrorArrayBounds($aVertex, $iStart, $iEnd, 2) Then Return SetError(@error + 10, @extended, 0) If UBound($aVertex, $UBOUND_COLUMNS) < 3 Then Return SetError(13, 0, 0) Local $iPoint = $iEnd - $iStart + 1 If $iPoint > 3 Then $iEnd = $iStart + 2 $iPoint = 3 EndIf Local $iMode Switch $iPoint Case 2 $iMode = Number(Not $bRotate) Case 3 $iMode = 2 Case Else Return SetError(15, 0, 0) EndSwitch Local $tagStruct = '' For $i = $iStart To $iEnd $tagStruct &= 'ushort[8];' Next Local $tVertex = DllStructCreate($tagStruct) Local $iCount = 1 Local $tGradient = DllStructCreate('ulong[' & $iPoint & ']') For $i = $iStart To $iEnd DllStructSetData($tGradient, 1, $iCount - 1, $iCount) DllStructSetData($tVertex, $iCount, _WinAPI_LoWord($aVertex[$i][0]), 1) DllStructSetData($tVertex, $iCount, _WinAPI_HiWord($aVertex[$i][0]), 2) DllStructSetData($tVertex, $iCount, _WinAPI_LoWord($aVertex[$i][1]), 3) DllStructSetData($tVertex, $iCount, _WinAPI_HiWord($aVertex[$i][1]), 4) DllStructSetData($tVertex, $iCount, BitShift(_WinAPI_GetRValue($aVertex[$i][2]), -8), 5) DllStructSetData($tVertex, $iCount, BitShift(_WinAPI_GetGValue($aVertex[$i][2]), -8), 6) DllStructSetData($tVertex, $iCount, BitShift(_WinAPI_GetBValue($aVertex[$i][2]), -8), 7) DllStructSetData($tVertex, $iCount, 0, 8) $iCount += 1 Next Local $aRet = DllCall('gdi32.dll', 'bool', 'GdiGradientFill', 'handle', $hDC, 'struct*', $tVertex, 'ulong', $iPoint, 'struct*', $tGradient, 'ulong', 1, 'ulong', $iMode) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_InflateRect(ByRef $tRECT, $iDX, $iDY) Local $aRet = DllCall('user32.dll', 'bool', 'InflateRect', 'struct*', $tRECT, 'int', $iDX, 'int', $iDY) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_IntersectClipRect($hDC, $tRECT) Local $aRet = DllCall('gdi32.dll', 'int', 'IntersectClipRect', 'handle', $hDC, 'int', DllStructGetData($tRECT, 1), 'int', DllStructGetData($tRECT, 2), 'int', DllStructGetData($tRECT, 3), 'int', DllStructGetData($tRECT, 4)) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_IntersectRect($tRECT1, $tRECT2) Local $tRECT = DllStructCreate($tagRECT) Local $aRet = DllCall('user32.dll', 'bool', 'IntersectRect', 'struct*', $tRECT, 'struct*', $tRECT1, 'struct*', $tRECT2) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tRECT EndFunc Func _WinAPI_InvalidateRgn($hWnd, $hRgn = 0, $bErase = True) Local $aRet = DllCall('user32.dll', 'bool', 'InvalidateRgn', 'hwnd', $hWnd, 'handle', $hRgn, 'bool', $bErase) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_InvertANDBitmap($hBitmap, $bDelete = False) Local $tBITMAP = DllStructCreate($tagBITMAP) If Not _WinAPI_GetObject($hBitmap, DllStructGetSize($tBITMAP), $tBITMAP) Or (DllStructGetData($tBITMAP, 'bmBitsPixel') <> 1) Then Return SetError(@error + 10, @extended, 0) EndIf Local $hResult = _WinAPI_CreateDIB(DllStructGetData($tBITMAP, 'bmWidth'), DllStructGetData($tBITMAP, 'bmHeight'), 1) If Not $hResult Then Return SetError(@error, @extended, 0) Local $hSrcDC = _WinAPI_CreateCompatibleDC(0) Local $hSrcSv = _WinAPI_SelectObject($hSrcDC, $hBitmap) Local $hDstDC = _WinAPI_CreateCompatibleDC(0) Local $hDstSv = _WinAPI_SelectObject($hDstDC, $hResult) _WinAPI_BitBlt($hDstDC, 0, 0, DllStructGetData($tBITMAP, 'bmWidth'), DllStructGetData($tBITMAP, 'bmHeight'), $hSrcDC, 0, 0, 0x00330008) _WinAPI_SelectObject($hSrcDC, $hSrcSv) _WinAPI_DeleteDC($hSrcDC) _WinAPI_SelectObject($hDstDC, $hDstSv) _WinAPI_DeleteDC($hDstDC) If $bDelete Then _WinAPI_DeleteObject($hBitmap) EndIf Return $hResult EndFunc Func _WinAPI_InvertColor($iColor) If $iColor = -1 Then Return 0 Return 0xFFFFFF - BitAND($iColor, 0xFFFFFF) EndFunc Func _WinAPI_InvertRect($hDC, ByRef $tRECT) Local $aRet = DllCall('user32.dll', 'bool', 'InvertRect', 'handle', $hDC, 'struct*', $tRECT) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_InvertRgn($hDC, $hRgn) Local $aRet = DllCall('gdi32.dll', 'bool', 'InvertRgn', 'handle', $hDC, 'handle', $hRgn) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_IsRectEmpty(ByRef $tRECT) Local $aRet = DllCall('user32.dll', 'bool', 'IsRectEmpty', 'struct*', $tRECT) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_LineDDA($iX1, $iY1, $iX2, $iY2, $pLineProc, $pData = 0) Local $aRet = DllCall('gdi32.dll', 'bool', 'LineDDA', 'int', $iX1, 'int', $iY1, 'int', $iX2, 'int', $iY2, 'ptr', $pLineProc, 'lparam', $pData) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_LineTo($hDC, $iX, $iY) Local $aResult = DllCall("gdi32.dll", "bool", "LineTo", "handle", $hDC, "int", $iX, "int", $iY) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_LockWindowUpdate($hWnd) Local $aRet = DllCall('user32.dll', 'bool', 'LockWindowUpdate', 'hwnd', $hWnd) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_LPtoDP($hDC, ByRef $tPOINT, $iCount = 1) Local $aRet = DllCall('gdi32.dll', 'bool', 'LPtoDP', 'handle', $hDC, 'struct*', $tPOINT, 'int', $iCount) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_MaskBlt($hDestDC, $iXDest, $iYDest, $iWidth, $iHeight, $hSrcDC, $iXSrc, $iYSrc, $hMask, $iXMask, $iYMask, $iRop) Local $aRet = DllCall('gdi32.dll', 'bool', 'MaskBlt', 'handle', $hDestDC, 'int', $iXDest, 'int', $iYDest, 'int', $iWidth, 'int', $iHeight, 'hwnd', $hSrcDC, 'int', $iXSrc, 'int', $iYSrc, 'handle', $hMask, 'int', $iXMask, 'int', $iYMask, 'dword', $iRop) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_ModifyWorldTransform($hDC, ByRef $tXFORM, $iMode) Local $aRet = DllCall('gdi32.dll', 'bool', 'ModifyWorldTransform', 'handle', $hDC, 'struct*', $tXFORM, 'dword', $iMode) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_MonitorFromPoint(ByRef $tPOINT, $iFlag = 1) If DllStructGetSize($tPOINT) <> 8 Then Return SetError(@error + 10, @extended, 0) Local $aRet = DllCall('user32.dll', 'handle', 'MonitorFromPoint', 'struct', $tPOINT, 'dword', $iFlag) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_MonitorFromRect(ByRef $tRECT, $iFlag = 1) Local $aRet = DllCall('user32.dll', 'ptr', 'MonitorFromRect', 'struct*', $tRECT, 'dword', $iFlag) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_MonitorFromWindow($hWnd, $iFlag = 1) Local $aRet = DllCall('user32.dll', 'handle', 'MonitorFromWindow', 'hwnd', $hWnd, 'dword', $iFlag) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_MoveTo($hDC, $iX, $iY) Local $aResult = DllCall("gdi32.dll", "bool", "MoveToEx", "handle", $hDC, "int", $iX, "int", $iY, "ptr", 0) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_MoveToEx($hDC, $iX, $iY) Local $tPOINT = DllStructCreate($tagPOINT) Local $aRet = DllCall('gdi32.dll', 'bool', 'MoveToEx', 'handle', $hDC, 'int', $iX, 'int', $iY, 'struct*', $tPOINT) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tPOINT EndFunc Func _WinAPI_OffsetClipRgn($hDC, $iXOffset, $iYOffset) Local $aRet = DllCall('gdi32.dll', 'int', 'OffsetClipRgn', 'handle', $hDC, 'int', $iXOffset, 'int', $iYOffset) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_OffsetPoints(ByRef $aPoint, $iXOffset, $iYOffset, $iStart = 0, $iEnd = -1) If __CheckErrorArrayBounds($aPoint, $iStart, $iEnd, 2) Then Return SetError(@error + 10, @extended, 0) If UBound($aPoint, $UBOUND_COLUMNS) < 2 Then Return SetError(13, 0, 0) For $i = $iStart To $iEnd $aPoint[$i][0] += $iXOffset $aPoint[$i][1] += $iYOffset Next Return 1 EndFunc Func _WinAPI_OffsetRect(ByRef $tRECT, $iDX, $iDY) Local $aRet = DllCall('user32.dll', 'bool', 'OffsetRect', 'struct*', $tRECT, 'int', $iDX, 'int', $iDY) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_OffsetRgn($hRgn, $iXOffset, $iYOffset) Local $aRet = DllCall('gdi32.dll', 'int', 'OffsetRgn', 'handle', $hRgn, 'int', $iXOffset, 'int', $iYOffset) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_OffsetWindowOrg($hDC, $iXOffset, $iYOffset) $__g_vExt = DllStructCreate($tagPOINT) Local $aRet = DllCall('gdi32.dll', 'bool', 'OffsetWindowOrgEx', 'handle', $hDC, 'int', $iXOffset, 'int', $iYOffset, 'struct*', $__g_vExt) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_PaintDesktop($hDC) Local $aRet = DllCall('user32.dll', 'bool', 'PaintDesktop', 'handle', $hDC) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_PaintRgn($hDC, $hRgn) Local $aRet = DllCall('gdi32.dll', 'bool', 'PaintRgn', 'handle', $hDC, 'handle', $hRgn) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_PatBlt($hDC, $iX, $iY, $iWidth, $iHeight, $iRop) Local $aRet = DllCall('gdi32.dll', 'bool', 'PatBlt', 'handle', $hDC, 'int', $iX, 'int', $iY, 'int', $iWidth, 'int', $iHeight, 'dword', $iRop) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_PathToRegion($hDC) Local $aRet = DllCall('gdi32.dll', 'handle', 'PathToRegion', 'handle', $hDC) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_PlayEnhMetaFile($hDC, $hEmf, ByRef $tRECT) Local $aRet = DllCall('gdi32.dll', 'bool', 'PlayEnhMetaFile', 'handle', $hDC, 'handle', $hEmf, 'struct*', $tRECT) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_PlgBlt($hDestDC, Const ByRef $aPoint, $hSrcDC, $iXSrc, $iYSrc, $iWidth, $iHeight, $hMask = 0, $iXMask = 0, $iYMask = 0) If (UBound($aPoint) < 3) Or (UBound($aPoint, $UBOUND_COLUMNS) < 2) Then Return SetError(12, 0, False) Local $tPoints = DllStructCreate('long[2];long[2];long[2]') For $i = 0 To 2 For $j = 0 To 1 DllStructSetData($tPoints, $i + 1, $aPoint[$i][$j], $j + 1) Next Next Local $aRet = DllCall('gdi32.dll', 'bool', 'PlgBlt', 'handle', $hDestDC, 'struct*', $tPoints, 'handle', $hSrcDC, 'int', $iXSrc, 'int', $iYSrc, 'int', $iWidth, 'int', $iHeight, 'handle', $hMask, 'int', $iXMask, 'int', $iYMask) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_PolyBezier($hDC, Const ByRef $aPoint, $iStart = 0, $iEnd = -1) If __CheckErrorArrayBounds($aPoint, $iStart, $iEnd, 2, 2) Then Return SetError(@error + 10, @extended, False) Local $iPoint = 1 + 3 * Floor(($iEnd - $iStart) / 3) If $iPoint < 1 Then Return SetError(15, 0, False) $iEnd = $iStart + $iPoint - 1 Local $tagStruct = '' For $i = $iStart To $iEnd $tagStruct &= 'long[2];' Next Local $tPOINT = DllStructCreate($tagStruct) Local $iCount = 0 For $i = $iStart To $iEnd $iCount += 1 For $j = 0 To 1 DllStructSetData($tPOINT, $iCount, $aPoint[$i][$j], $j + 1) Next Next Local $aRet = DllCall('gdi32.dll', 'bool', 'PolyBezier', 'handle', $hDC, 'struct*', $tPOINT, 'dword', $iPoint) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_PolyBezierTo($hDC, Const ByRef $aPoint, $iStart = 0, $iEnd = -1) If __CheckErrorArrayBounds($aPoint, $iStart, $iEnd, 2, 2) Then Return SetError(@error + 10, @extended, False) Local $iPoint = 3 * Floor(($iEnd - $iStart + 1) / 3) If $iPoint < 3 Then Return SetError(15, 0, False) $iEnd = $iStart + $iPoint - 1 Local $tagStruct = '' For $i = $iStart To $iEnd $tagStruct &= 'long[2];' Next Local $tPOINT = DllStructCreate($tagStruct) Local $iCount = 0 For $i = $iStart To $iEnd $iCount += 1 For $j = 0 To 1 DllStructSetData($tPOINT, $iCount, $aPoint[$i][$j], $j + 1) Next Next Local $aRet = DllCall('gdi32.dll', 'bool', 'PolyBezierTo', 'handle', $hDC, 'struct*', $tPOINT, 'dword', $iPoint) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_PolyDraw($hDC, Const ByRef $aPoint, $iStart = 0, $iEnd = -1) If __CheckErrorArrayBounds($aPoint, $iStart, $iEnd, 2) Then Return SetError(@error + 10, @extended, 0) If UBound($aPoint, $UBOUND_COLUMNS) < 3 Then Return SetError(13, 0, False) Local $iPoint = $iEnd - $iStart + 1 Local $tagStruct = '' For $i = $iStart To $iEnd $tagStruct &= 'long[2];' Next Local $tPOINT = DllStructCreate($tagStruct) Local $tTypes = DllStructCreate('byte[' & $iPoint & ']') Local $iCount = 0 For $i = $iStart To $iEnd $iCount += 1 For $j = 0 To 1 DllStructSetData($tPOINT, $iCount, $aPoint[$i][$j], $j + 1) Next DllStructSetData($tTypes, 1, $aPoint[$i][2], $iCount) Next Local $aRet = DllCall('gdi32.dll', 'bool', 'PolyDraw', 'handle', $hDC, 'struct*', $tPOINT, 'struct*', $tTypes, 'dword', $iPoint) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_Polygon($hDC, Const ByRef $aPoint, $iStart = 0, $iEnd = -1) If __CheckErrorArrayBounds($aPoint, $iStart, $iEnd, 2, 2) Then Return SetError(@error + 10, @extended, False) Local $tagStruct = '' For $i = $iStart To $iEnd $tagStruct &= 'int[2];' Next Local $tData = DllStructCreate($tagStruct) Local $iCount = 1 For $i = $iStart To $iEnd For $j = 0 To 1 DllStructSetData($tData, $iCount, $aPoint[$i][$j], $j + 1) Next $iCount += 1 Next Local $aRet = DllCall('gdi32.dll', 'bool', 'Polygon', 'handle', $hDC, 'struct*', $tData, 'int', $iCount - 1) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_PtInRectEx($iX, $iY, $iLeft, $iTop, $iRight, $iBottom) Local $tRECT = _WinAPI_CreateRect($iLeft, $iTop, $iRight, $iBottom) Local $tPOINT = _WinAPI_CreatePoint($iX, $iY) Local $aRet = DllCall('user32.dll', 'bool', 'PtInRect', 'struct*', $tRECT, 'struct', $tPOINT) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_PtInRegion($hRgn, $iX, $iY) Local $aRet = DllCall('gdi32.dll', 'bool', 'PtInRegion', 'handle', $hRgn, 'int', $iX, 'int', $iY) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_PtVisible($hDC, $iX, $iY) Local $aRet = DllCall('gdi32.dll', 'bool', 'PtVisible', 'handle', $hDC, 'int', $iX, 'int', $iY) If @error Then Return SetError(@error + 10, @extended, 0) If $aRet[0] = -1 Then Return SetError(10, $aRet[0], 0) Return $aRet[0] EndFunc Func _WinAPI_RadialGradientFill($hDC, $iX, $iY, $iRadius, $iRGB1, $iRGB2, $fAngleStart = 0, $fAngleEnd = 360, $fStep = 5) If Abs($fAngleStart) > 360 Then $fAngleStart = Mod($fAngleStart, 360) EndIf If Abs($fAngleEnd) > 360 Then $fAngleEnd = Mod($fAngleEnd, 360) EndIf If ($fAngleStart < 0) Or ($fAngleEnd < 0) Then $fAngleStart += 360 $fAngleEnd += 360 EndIf If $fAngleStart > $fAngleEnd Then Local $fVal = $fAngleStart $fAngleStart = $fAngleEnd $fAngleEnd = $fVal EndIf If $fStep < 1 Then $fStep = 1 EndIf Local $fKi = ATan(1) / 45 Local $iXp = Round($iX + $iRadius * Cos($fKi * $fAngleStart)) Local $iYp = Round($iY + $iRadius * Sin($fKi * $fAngleStart)) Local $iXn, $iYn, $fAn = $fAngleStart Local $aVertex[3][3] While $fAn < $fAngleEnd $fAn += $fStep If $fAn > $fAngleEnd Then $fAn = $fAngleEnd EndIf $iXn = Round($iX + $iRadius * Cos($fKi * $fAn)) $iYn = Round($iY + $iRadius * Sin($fKi * $fAn)) $aVertex[0][0] = $iX $aVertex[0][1] = $iY $aVertex[0][2] = $iRGB1 $aVertex[1][0] = $iXp $aVertex[1][1] = $iYp $aVertex[1][2] = $iRGB2 $aVertex[2][0] = $iXn $aVertex[2][1] = $iYn $aVertex[2][2] = $iRGB2 If Not _WinAPI_GradientFill($hDC, $aVertex, 0, 2) Then Return SetError(@error, @extended, 0) EndIf $iXp = $iXn $iYp = $iYn WEnd Return 1 EndFunc Func _WinAPI_Rectangle($hDC, $tRECT) Local $aRet = DllCall('gdi32.dll', 'bool', 'Rectangle', 'handle', $hDC, 'int', DllStructGetData($tRECT, 1), 'int', DllStructGetData($tRECT, 2), 'int', DllStructGetData($tRECT, 3), 'int', DllStructGetData($tRECT, 4)) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_RectInRegion($hRgn, $tRECT) Local $aRet = DllCall('gdi32.dll', 'bool', 'RectInRegion', 'handle', $hRgn, 'struct*', $tRECT) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_RectIsEmpty(ByRef $tRECT) Return (DllStructGetData($tRECT, "Left") = 0) And (DllStructGetData($tRECT, "Top") = 0) And (DllStructGetData($tRECT, "Right") = 0) And (DllStructGetData($tRECT, "Bottom") = 0) EndFunc Func _WinAPI_RectVisible($hDC, $tRECT) Local $aRet = DllCall('gdi32.dll', 'bool', 'RectVisible', 'handle', $hDC, 'struct*', $tRECT) If @error Then Return SetError(@error, @extended, 0) Switch $aRet[0] Case 0, 1, 2 Case Else Return SetError(10, $aRet[0], 0) EndSwitch Return $aRet[0] EndFunc Func _WinAPI_RemoveFontMemResourceEx($hFont) Local $aRet = DllCall('gdi32.dll', 'bool', 'RemoveFontMemResourceEx', 'handle', $hFont) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_RemoveFontResourceEx($sFont, $iFlag = 0, $bNotify = False) Local $aRet = DllCall('gdi32.dll', 'bool', 'RemoveFontResourceExW', 'wstr', $sFont, 'dword', $iFlag, 'ptr', 0) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, False) If $bNotify Then Local Const $WM_FONTCHANGE = 0x001D Local Const $HWND_BROADCAST = 0xFFFF DllCall('user32.dll', 'none', 'SendMessage', 'hwnd', $HWND_BROADCAST, 'uint', $WM_FONTCHANGE, 'wparam', 0, 'lparam', 0) EndIf Return $aRet[0] EndFunc Func _WinAPI_RGB($iRed, $iGreen, $iBlue) Return __RGB(BitOR(BitShift($iBlue, -16), BitShift($iGreen, -8), $iRed)) EndFunc Func _WinAPI_RotatePoints(ByRef $aPoint, $iXC, $iYC, $fAngle, $iStart = 0, $iEnd = -1) If __CheckErrorArrayBounds($aPoint, $iStart, $iEnd, 2) Then Return SetError(@error + 10, @extended, 0) If UBound($aPoint, $UBOUND_COLUMNS) < 2 Then Return SetError(13, 0, 0) Local $fCos = Cos(ATan(1) / 45 * $fAngle) Local $fSin = Sin(ATan(1) / 45 * $fAngle) Local $iXn, $iYn For $i = $iStart To $iEnd $iXn = $aPoint[$i][0] - $iXC $iYn = $aPoint[$i][1] - $iYC $aPoint[$i][0] = $iXC + Round($iXn * $fCos - $iYn * $fSin) $aPoint[$i][1] = $iYC + Round($iXn * $fSin + $iYn * $fCos) Next Return 1 EndFunc Func _WinAPI_RoundRect($hDC, $tRECT, $iWidth, $iHeight) Local $aRet = DllCall('gdi32.dll', 'bool', 'RoundRect', 'handle', $hDC, 'int', DllStructGetData($tRECT, 1), 'int', DllStructGetData($tRECT, 2), 'int', DllStructGetData($tRECT, 3), 'int', DllStructGetData($tRECT, 4), 'int', $iWidth, 'int', $iHeight) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SaveHBITMAPToFile($sFilePath, $hBitmap, $iXPelsPerMeter = Default, $iYPelsPerMeter = Default) Local $tBMP = DllStructCreate('align 1;ushort bfType;dword bfSize;ushort bfReserved1;ushort bfReserved2;dword bfOffset') Local $tDIB = DllStructCreate($tagDIBSECTION) Local $hDC, $hSv, $hSource = 0 While $hBitmap If (Not _WinAPI_GetObject($hBitmap, DllStructGetSize($tDIB), $tDIB)) Or (DllStructGetData($tDIB, 'biCompression')) Then $hBitmap = 0 Else Switch DllStructGetData($tDIB, 'bmBitsPixel') Case 32 If Not _WinAPI_IsAlphaBitmap($hBitmap) Then If Not $hSource Then $hSource = _WinAPI_CreateDIB(DllStructGetData($tDIB, 'bmWidth'), DllStructGetData($tDIB, 'bmHeight'), 24) If Not $hSource Then $hBitmap = 0 EndIf $hDC = _WinAPI_CreateCompatibleDC(0) $hSv = _WinAPI_SelectObject($hDC, $hSource) If _WinAPI_DrawBitmap($hDC, 0, 0, $hBitmap) Then $hBitmap = $hSource Else $hBitmap = 0 EndIf _WinAPI_SelectObject($hDC, $hSv) _WinAPI_DeleteDC($hDC) Else $hBitmap = 0 EndIf ContinueLoop EndIf Case Else EndSwitch If (Not DllStructGetData($tDIB, 'bmBits')) Or (Not DllStructGetData($tDIB, 'biSizeImage')) Then If Not $hSource Then $hBitmap = _WinAPI_CopyBitmap($hBitmap) $hSource = $hBitmap Else $hBitmap = 0 EndIf Else ExitLoop EndIf EndIf WEnd Local $hFile = 0, $iError = 0, $iResult = 0 Do If Not $hBitmap Then $iError = 1 ExitLoop EndIf Local $aData[4][2] $aData[0][0] = DllStructGetPtr($tBMP) $aData[0][1] = DllStructGetSize($tBMP) $aData[1][0] = DllStructGetPtr($tDIB, 'biSize') $aData[1][1] = 40 $aData[2][1] = DllStructGetData($tDIB, 'biClrUsed') * 4 Local $tTable = 0 If $aData[2][1] Then $tTable = _WinAPI_GetDIBColorTable($hBitmap) If @error Or (@extended <> $aData[2][1] / 4) Then $iError = @error + 10 ExitLoop EndIf EndIf $aData[2][0] = DllStructGetPtr($tTable) $aData[3][0] = DllStructGetData($tDIB, 'bmBits') $aData[3][1] = DllStructGetData($tDIB, 'biSizeImage') DllStructSetData($tBMP, 'bfType', 0x4D42) DllStructSetData($tBMP, 'bfSize', $aData[0][1] + $aData[1][1] + $aData[2][1] + $aData[3][1]) DllStructSetData($tBMP, 'bfReserved1', 0) DllStructSetData($tBMP, 'bfReserved2', 0) DllStructSetData($tBMP, 'bfOffset', $aData[0][1] + $aData[1][1] + $aData[2][1]) $hDC = _WinAPI_GetDC(0) If $iXPelsPerMeter = Default Then If Not DllStructGetData($tDIB, 'biXPelsPerMeter') Then DllStructSetData($tDIB, 'biXPelsPerMeter', _WinAPI_GetDeviceCaps($hDC, 8) / _WinAPI_GetDeviceCaps($hDC, 4) * 1000) EndIf Else DllStructSetData($tDIB, 'biXPelsPerMeter', $iXPelsPerMeter) EndIf If $iYPelsPerMeter = Default Then If Not DllStructGetData($tDIB, 'biYPelsPerMeter') Then DllStructSetData($tDIB, 'biYPelsPerMeter', _WinAPI_GetDeviceCaps($hDC, 10) / _WinAPI_GetDeviceCaps($hDC, 6) * 1000) EndIf Else DllStructSetData($tDIB, 'biYPelsPerMeter', $iYPelsPerMeter) EndIf _WinAPI_ReleaseDC(0, $hDC) $hFile = _WinAPI_CreateFile($sFilePath, 1, 4) If @error Then $iError = @error + 20 ExitLoop EndIf Local $iBytes For $i = 0 To 3 If $aData[$i][1] Then If Not _WinAPI_WriteFile($hFile, $aData[$i][0], $aData[$i][1], $iBytes) Then $iError = @error + 30 ExitLoop 2 EndIf EndIf Next $iResult = 1 Until 1 If $hSource Then _WinAPI_DeleteObject($hSource) EndIf _WinAPI_CloseHandle($hFile) If Not $iResult Then FileDelete($sFilePath) EndIf Return SetError($iError, 0, $iResult) EndFunc Func _WinAPI_SaveHICONToFile($sFilePath, Const ByRef $vIcon, $bCompress = 0, $iStart = 0, $iEnd = -1) Local $aIcon, $aTemp, $iCount = 1 If Not IsArray($vIcon) Then Dim $aIcon[1] = [$vIcon] Dim $aTemp[1] = [0] Else If __CheckErrorArrayBounds($vIcon, $iStart, $iEnd) Then Return SetError(@error + 10, @extended, 0) $iCount = $iEnd - $iStart + 1 If $iCount Then Dim $aIcon[$iCount] Dim $aTemp[$iCount] For $i = 0 To $iCount - 1 $aIcon[$i] = $vIcon[$iStart + $i] $aTemp[$i] = 0 Next EndIf EndIf Local $hFile = _WinAPI_CreateFile($sFilePath, 1, 4) If @error Then Return SetError(@error + 20, @extended, 0) Local $tIco = DllStructCreate('align 1;ushort Reserved;ushort Type;ushort Count;byte Data[' & (16 * $iCount) & ']') Local $iLength = DllStructGetSize($tIco) Local $tBI = DllStructCreate($tagBITMAPINFOHEADER) Local $tII = DllStructCreate($tagICONINFO) Local $tDIB = DllStructCreate($tagDIBSECTION) Local $iDIB = DllStructGetSize($tDIB) Local $pDIB = DllStructGetPtr($tDIB) Local $iOffset = $iLength DllStructSetData($tBI, 'biSize', 40) DllStructSetData($tBI, 'biPlanes', 1) DllStructSetData($tBI, 'biXPelsPerMeter', 0) DllStructSetData($tBI, 'biYPelsPerMeter', 0) DllStructSetData($tBI, 'biClrUsed', 0) DllStructSetData($tBI, 'biClrImportant', 0) DllStructSetData($tIco, 'Reserved', 0) DllStructSetData($tIco, 'Type', 1) DllStructSetData($tIco, 'Count', $iCount) Local $iResult = 0, $iError = 0, $iBytes Local $aInfo[8], $aRet, $pData = 0, $iIndex = 0 Local $aSize[2], $tData = 0 Do If Not _WinAPI_WriteFile($hFile, $tIco, $iLength, $iBytes) Then $iError = @error + 30 ExitLoop EndIf While $iCount > $iIndex $aRet = DllCall('user32.dll', 'bool', 'GetIconInfo', 'handle', $aIcon[$iIndex], 'struct*', $tII) If @error Or Not $aRet[0] Then $iError = @error + 40 ExitLoop 2 EndIf For $i = 4 To 5 $aInfo[$i] = _WinAPI_CopyImage(DllStructGetData($tII, $i), 0, 0, 0, 0x2008) If _WinAPI_GetObject($aInfo[$i], $iDIB, $pDIB) Then $aInfo[$i - 4] = DllStructGetData($tDIB, 'biSizeImage') $aInfo[$i - 2] = DllStructGetData($tDIB, 'bmBits') Else $iError = @error + 50 EndIf Next $aInfo[6] = 40 $aInfo[7] = DllStructGetData($tDIB, 'bmBitsPixel') Switch $aInfo[7] Case 16, 24 Case 32 If Not _WinAPI_IsAlphaBitmap($aInfo[5]) Then If Not $aTemp[$iIndex] Then $aIcon[$iIndex] = _WinAPI_Create32BitHICON($aIcon[$iIndex]) $aTemp[$iIndex] = $aIcon[$iIndex] If Not @error Then ContinueLoop Else ContinueCase EndIf EndIf Else If ($aInfo[1] >= 256 * 256 * 4) And ($bCompress) Then $iBytes = _WinAPI_CompressBitmapBits($aInfo[5], $pData) If Not @error Then $aInfo[0] = 0 $aInfo[1] = $iBytes $aInfo[2] = 0 $aInfo[3] = $pData $aInfo[6] = 0 EndIf EndIf EndIf Case Else $iError = 60 EndSwitch If Not $iError Then $tData = DllStructCreate('byte Width;byte Height;byte ColorCount;byte Reserved;ushort Planes;ushort BitCount;long Size;long Offset', DllStructGetPtr($tIco) + 6 + 16 * $iIndex) DllStructSetData($tData, 'ColorCount', 0) DllStructSetData($tData, 'Reserved', 0) DllStructSetData($tData, 'Planes', 1) DllStructSetData($tData, 'BitCount', $aInfo[7]) DllStructSetData($tData, 'Size', $aInfo[0] + $aInfo[1] + $aInfo[6]) DllStructSetData($tData, 'Offset', $iOffset) For $i = 0 To 1 $aSize[$i] = DllStructGetData($tDIB, $i + 2) If $aSize[$i] < 256 Then DllStructSetData($tData, $i + 1, $aSize[$i]) Else DllStructSetData($tData, $i + 1, 0) EndIf Next DllStructSetData($tBI, 'biWidth', $aSize[0]) DllStructSetData($tBI, 'biHeight', 2 * $aSize[1]) DllStructSetData($tBI, 'biBitCount', $aInfo[7]) DllStructSetData($tBI, 'biCompression', 0) DllStructSetData($tBI, 'biSizeImage', $aInfo[0] + $aInfo[1]) $iOffset += $aInfo[0] + $aInfo[1] + $aInfo[6] Do If $aInfo[6] Then If Not _WinAPI_WriteFile($hFile, $tBI, $aInfo[6], $iBytes) Then $iError = @error + 70 ExitLoop EndIf For $i = 1 To 0 Step -1 If Not _WinAPI_WriteFile($hFile, $aInfo[$i + 2], $aInfo[$i], $iBytes) Then $iError = @error + 80 ExitLoop 2 EndIf Next Else If Not _WinAPI_WriteFile($hFile, $aInfo[3], $aInfo[1], $iBytes) Then $iError = @error + 90 ExitLoop EndIf EndIf Until 1 EndIf For $i = 4 To 5 _WinAPI_DeleteObject($aInfo[$i]) Next If $iError Then ExitLoop 2 EndIf $iIndex += 1 WEnd $aRet = DllCall('kernel32.dll', 'bool', 'SetFilePointerEx', 'handle', $hFile, 'int64', 0, 'int64*', 0, 'dword', 0) If @error Or Not $aRet[0] Then $iError = @error + 100 ExitLoop EndIf If Not _WinAPI_WriteFile($hFile, $tIco, $iLength, $iBytes) Then $iError = @error + 110 ExitLoop EndIf $iResult = 1 Until 1 For $i = 0 To $iCount - 1 If $aTemp[$i] Then _WinAPI_DestroyIcon($aTemp[$i]) EndIf Next If $pData Then __HeapFree($pData) EndIf _WinAPI_CloseHandle($hFile) If Not $iResult Then FileDelete($sFilePath) EndIf Return SetError($iError, 0, $iResult) EndFunc Func _WinAPI_ScaleWindowExt($hDC, $iXNum, $iXDenom, $iYNum, $iYDenom) $__g_vExt = DllStructCreate($tagSIZE) Local $aRet = DllCall('gdi32.dll', 'bool', 'ScaleWindowExtEx', 'handle', $hDC, 'int', $iXNum, 'int', $iXDenom, 'int', $iYNum, 'int', $iYDenom, 'struct*', $__g_vExt) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SelectClipPath($hDC, $iMode = 5) Local $aRet = DllCall('gdi32.dll', 'bool', 'SelectClipPath', 'handle', $hDC, 'int', $iMode) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SelectClipRgn($hDC, $hRgn) Local $aRet = DllCall('gdi32.dll', 'int', 'SelectClipRgn', 'handle', $hDC, 'handle', $hRgn) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetArcDirection($hDC, $iDirection) Local $aRet = DllCall('gdi32.dll', 'int', 'SetArcDirection', 'handle', $hDC, 'int', $iDirection) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetBitmapBits($hBitmap, $iSize, $pBits) Local $aRet = DllCall('gdi32.dll', 'long', 'SetBitmapBits', 'handle', $hBitmap, 'dword', $iSize, 'struct*', $pBits) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetBitmapDimensionEx($hBitmap, $iWidth, $iHeight) $__g_vExt = DllStructCreate($tagSIZE) Local $aRet = DllCall('gdi32.dll', 'bool', 'SetBitmapDimensionEx', 'handle', $hBitmap, 'int', $iWidth, 'int', $iHeight, 'struct*', $__g_vExt) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetBoundsRect($hDC, $iFlags, $tRECT = 0) Local $aRet = DllCall('gdi32.dll', 'uint', 'SetBoundsRect', 'handle', $hDC, 'struct*', $tRECT, 'uint', $iFlags) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetBrushOrg($hDC, $iX, $iY) $__g_vExt = DllStructCreate($tagPOINT) Local $aRet = DllCall('gdi32.dll', 'bool', 'SetBrushOrgEx', 'handle', $hDC, 'int', $iX, 'int', $iY, 'struct*', $__g_vExt) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetColorAdjustment($hDC, $tAdjustment) Local $aRet = DllCall('gdi32.dll', 'bool', 'SetColorAdjustment', 'handle', $hDC, 'struct*', $tAdjustment) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetDCBrushColor($hDC, $iRGB) Local $aRet = DllCall('gdi32.dll', 'dword', 'SetDCBrushColor', 'handle', $hDC, 'dword', __RGB($iRGB)) If @error Or ($aRet[0] = 4294967295) Then Return SetError(@error, @extended, -1) Return __RGB($aRet[0]) EndFunc Func _WinAPI_SetDCPenColor($hDC, $iRGB) Local $aRet = DllCall('gdi32.dll', 'dword', 'SetDCPenColor', 'handle', $hDC, 'dword', __RGB($iRGB)) If @error Or ($aRet[0] = 4294967295) Then Return SetError(@error, @extended, -1) Return __RGB($aRet[0]) EndFunc Func _WinAPI_SetDeviceGammaRamp($hDC, Const ByRef $aRamp) If (UBound($aRamp, $UBOUND_DIMENSIONS) <> 2) Or (UBound($aRamp, $UBOUND_ROWS) <> 256) Or (UBound($aRamp, $UBOUND_COLUMNS) <> 3) Then Return SetError(12, 0, 0) EndIf Local $tData = DllStructCreate('ushort[256];ushort[256];ushort[256]') For $i = 0 To 2 For $j = 0 To 255 DllStructSetData($tData, $i + 1, $aRamp[$j][$i], $j + 1) Next Next Local $aRet = DllCall('gdi32.dll', 'bool', 'SetDeviceGammaRamp', 'handle', $hDC, 'struct*', $tData) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetDIBColorTable($hBitmap, $tColorTable, $iColorCount) If $iColorCount > DllStructGetSize($tColorTable) / 4 Then Return SetError(1, 0, 0) Local $hDC = _WinAPI_CreateCompatibleDC(0) Local $hSv = _WinAPI_SelectObject($hDC, $hBitmap) Local $iError = 0 Local $aRet = DllCall('gdi32.dll', 'uint', 'SetDIBColorTable', 'handle', $hDC, 'uint', 0, 'uint', $iColorCount, 'struct*', $tColorTable) If @error Then $iError = @error _WinAPI_SelectObject($hDC, $hSv) _WinAPI_DeleteDC($hDC) If $iError Then Return SetError($iError, 0, 0) Return $aRet[0] EndFunc Func _WinAPI_SetDIBits($hDC, $hBitmap, $iStartScan, $iScanLines, $pBits, $tBMI, $iColorUse = 0) Local $aResult = DllCall("gdi32.dll", "int", "SetDIBits", "handle", $hDC, "handle", $hBitmap, "uint", $iStartScan, "uint", $iScanLines, "struct*", $pBits, "struct*", $tBMI, "INT", $iColorUse) If @error Then Return SetError(@error, @extended, False) Return $aResult[0] EndFunc Func _WinAPI_SetDIBitsToDevice($hDC, $iXDest, $iYDest, $iWidth, $iHeight, $iXSrc, $iYSrc, $iStartScan, $iScanLines, $tBITMAPINFO, $iUsage, $pBits) Local $aRet = DllCall('gdi32.dll', 'int', 'SetDIBitsToDevice', 'handle', $hDC, 'int', $iXDest, 'int', $iYDest, 'dword', $iWidth, 'dword', $iHeight, 'int', $iXSrc, 'int', $iYSrc, 'uint', $iStartScan, 'uint', $iScanLines, 'struct*', $pBits, 'struct*', $tBITMAPINFO, 'uint', $iUsage) If @error Or ($aRet[0] = -1) Then Return SetError(@error + 10, $aRet[0], 0) Return $aRet[0] EndFunc Func _WinAPI_SetEnhMetaFileBits($pData, $iLength) Local $aRet = DllCall('gdi32.dll', 'handle', 'SetEnhMetaFileBits', 'uint', $iLength, 'struct*', $pData) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetGraphicsMode($hDC, $iMode) Local $aRet = DllCall('gdi32.dll', 'int', 'SetGraphicsMode', 'handle', $hDC, 'int', $iMode) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetMapMode($hDC, $iMode) Local $aRet = DllCall('gdi32.dll', 'int', 'SetMapMode', 'handle', $hDC, 'int', $iMode) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetPixel($hDC, $iX, $iY, $iRGB) Local $aRet = DllCall('gdi32.dll', 'bool', 'SetPixelV', 'handle', $hDC, 'int', $iX, 'int', $iY, 'dword', __RGB($iRGB)) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetPolyFillMode($hDC, $iMode = 1) Local $aRet = DllCall('gdi32.dll', 'int', 'SetPolyFillMode', 'handle', $hDC, 'int', $iMode) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetRectRgn($hRgn, $tRECT) Local $aRet = DllCall('gdi32.dll', 'bool', 'SetRectRgn', 'handle', $hRgn, 'int', DllStructGetData($tRECT, 1), 'int', DllStructGetData($tRECT, 2), 'int', DllStructGetData($tRECT, 3), 'int', DllStructGetData($tRECT, 4)) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetROP2($hDC, $iMode) Local $aRet = DllCall('gdi32.dll', 'int', 'SetROP2', 'handle', $hDC, 'int', $iMode) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_SetStretchBltMode($hDC, $iMode) Local $aRet = DllCall('gdi32.dll', 'int', 'SetStretchBltMode', 'handle', $hDC, 'int', $iMode) If @error Or Not $aRet[0] Or ($aRet[0] = 87) Then Return SetError(@error + 10, $aRet[0], 0) Return $aRet[0] EndFunc Func _WinAPI_SetTextAlign($hDC, $iMode = 0) Local $aRet = DllCall('gdi32.dll', 'uint', 'SetTextAlign', 'handle', $hDC, 'uint', $iMode) If @error Or ($aRet[0] = 4294967295) Then Return SetError(@error, @extended, -1) Return $aRet[0] EndFunc Func _WinAPI_SetTextCharacterExtra($hDC, $iCharExtra) Local $aRet = DllCall('gdi32.dll', 'int', 'SetTextCharacterExtra', 'handle', $hDC, 'int', $iCharExtra) If @error Or ($aRet[0] = 0x80000000) Then Return SetError(@error, @extended, -1) Return $aRet[0] EndFunc Func _WinAPI_SetTextJustification($hDC, $iBreakExtra, $iBreakCount) Local $aRet = DllCall('gdi32.dll', 'bool', 'SetTextJustification', 'handle', $hDC, 'int', $iBreakExtra, 'int', $iBreakCount) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetUDFColorMode($iMode) $__g_iRGBMode = Not ($iMode = 0) EndFunc Func _WinAPI_SetWindowExt($hDC, $iXExtent, $iYExtent) $__g_vExt = DllStructCreate($tagSIZE) Local $aRet = DllCall('gdi32.dll', 'bool', 'SetWindowExtEx', 'handle', $hDC, 'int', $iXExtent, 'int', $iYExtent, 'struct*', $__g_vExt) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetWindowOrg($hDC, $iX, $iY) $__g_vExt = DllStructCreate($tagPOINT) Local $aRet = DllCall('gdi32.dll', 'bool', 'SetWindowOrgEx', 'handle', $hDC, 'int', $iX, 'int', $iY, 'struct*', $__g_vExt) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SetWorldTransform($hDC, ByRef $tXFORM) Local $aRet = DllCall('gdi32.dll', 'bool', 'SetWorldTransform', 'handle', $hDC, 'struct*', $tXFORM) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_StretchBlt($hDestDC, $iXDest, $iYDest, $iWidthDest, $iHeightDest, $hSrcDC, $iXSrc, $iYSrc, $iWidthSrc, $iHeightSrc, $iRop) Local $aRet = DllCall('gdi32.dll', 'bool', 'StretchBlt', 'handle', $hDestDC, 'int', $iXDest, 'int', $iYDest, 'int', $iWidthDest, 'int', $iHeightDest, 'hwnd', $hSrcDC, 'int', $iXSrc, 'int', $iYSrc, 'int', $iWidthSrc, 'int', $iHeightSrc, 'dword', $iRop) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_StretchDIBits($hDestDC, $iXDest, $iYDest, $iWidthDest, $iHeightDest, $iXSrc, $iYSrc, $iWidthSrc, $iHeightSrc, $tBITMAPINFO, $iUsage, $pBits, $iRop) Local $aRet = DllCall('gdi32.dll', 'int', 'StretchDIBits', 'handle', $hDestDC, 'int', $iXDest, 'int', $iYDest, 'int', $iWidthDest, 'int', $iHeightDest, 'int', $iXSrc, 'int', $iYSrc, 'int', $iWidthSrc, 'int', $iHeightSrc, 'struct*', $pBits, 'struct*', $tBITMAPINFO, 'uint', $iUsage, 'dword', $iRop) If @error Or ($aRet[0] = -1) Then Return SetError(@error + 10, $aRet[0], 0) Return $aRet[0] EndFunc Func _WinAPI_StrokeAndFillPath($hDC) Local $aRet = DllCall('gdi32.dll', 'bool', 'StrokeAndFillPath', 'handle', $hDC) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_StrokePath($hDC) Local $aRet = DllCall('gdi32.dll', 'bool', 'StrokePath', 'handle', $hDC) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_SubtractRect(ByRef $tRECT1, ByRef $tRECT2) Local $tRECT = DllStructCreate($tagRECT) Local $aRet = DllCall('user32.dll', 'bool', 'SubtractRect', 'struct*', $tRECT, 'struct*', $tRECT1, 'struct*', $tRECT2) If @error Or Not $aRet[0] Then Return SetError(@error + 10, @extended, 0) Return $tRECT EndFunc Func _WinAPI_TabbedTextOut($hDC, $iX, $iY, $sText, $aTab = 0, $iStart = 0, $iEnd = -1, $iOrigin = 0) Local $iTab, $iCount If Not IsArray($aTab) Then If $aTab Then $iTab = $aTab Dim $aTab[1] = [$iTab] $iStart = 0 $iEnd = 0 $iCount = 1 Else $iCount = 0 EndIf Else $iCount = 1 EndIf Local $tTab = 0 If $iCount Then If __CheckErrorArrayBounds($aTab, $iStart, $iEnd) Then Return SetError(@error + 10, @extended, 0) $iCount = $iEnd - $iStart + 1 $tTab = DllStructCreate('uint[' & $iCount & ']') $iTab = 1 For $i = $iStart To $iEnd DllStructSetData($tTab, 1, $aTab[$i], $iTab) $iTab += 1 Next EndIf Local $aRet = DllCall('user32.dll', 'long', 'TabbedTextOutW', 'handle', $hDC, 'int', $iX, 'int', $iY, 'wstr', $sText, 'int', StringLen($sText), 'int', $iCount, 'struct*', $tTab, 'int', $iOrigin) If @error Or Not $aRet[0] Then Return SetError(@error, @extended, 0) $__g_vExt = _WinAPI_CreateSize(_WinAPI_LoWord($aRet[0]), _WinAPI_HiWord($aRet[0])) Return 1 EndFunc Func _WinAPI_TextOut($hDC, $iX, $iY, $sText) Local $aRet = DllCall('gdi32.dll', 'bool', 'TextOutW', 'handle', $hDC, 'int', $iX, 'int', $iY, 'wstr', $sText, 'int', StringLen($sText)) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_TransparentBlt($hDestDC, $iXDest, $iYDest, $iWidthDest, $iHeightDest, $hSrcDC, $iXSrc, $iYSrc, $iWidthSrc, $iHeightSrc, $iRGB) Local $aRet = DllCall('gdi32.dll', 'bool', 'GdiTransparentBlt', 'handle', $hDestDC, 'int', $iXDest, 'int', $iYDest, 'int', $iWidthDest, 'int', $iHeightDest, 'hwnd', $hSrcDC, 'int', $iXSrc, 'int', $iYSrc, 'int', $iWidthSrc, 'int', $iHeightSrc, 'dword', __RGB($iRGB)) If @error Then Return SetError(@error, @extended, False) Return $aRet[0] EndFunc Func _WinAPI_UnionRect(ByRef $tRECT1, ByRef $tRECT2) Local $tRECT = DllStructCreate($tagRECT) Local $aRet = DllCall('user32.dll', 'bool', 'UnionRect', 'struct*', $tRECT, 'struct*', $tRECT1, 'struct*', $tRECT2) If @error Or Not $aRet[0] Then Return SetError(@error + 10, 0, 0) Return $tRECT EndFunc Func _WinAPI_ValidateRect($hWnd, $tRECT = 0) Local $aRet = DllCall('user32.dll', 'bool', 'ValidateRect', 'hwnd', $hWnd, 'struct*', $tRECT) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_ValidateRgn($hWnd, $hRgn = 0) Local $aRet = DllCall('user32.dll', 'bool', 'ValidateRgn', 'hwnd', $hWnd, 'handle', $hRgn) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_WidenPath($hDC) Local $aRet = DllCall('gdi32.dll', 'bool', 'WidenPath', 'handle', $hDC) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc Func _WinAPI_WindowFromDC($hDC) Local $aRet = DllCall('user32.dll', 'hwnd', 'WindowFromDC', 'handle', $hDC) If @error Then Return SetError(@error, @extended, 0) Return $aRet[0] EndFunc #EndRegion Public Functions #Region Internal Functions Func __EnumDisplayMonitorsProc($hMonitor, $hDC, $pRECT, $lParam) #forceref $hDC, $lParam __Inc($__g_vEnum) $__g_vEnum[$__g_vEnum[0][0]][0] = $hMonitor If Not $pRECT Then $__g_vEnum[$__g_vEnum[0][0]][1] = 0 Else $__g_vEnum[$__g_vEnum[0][0]][1] = DllStructCreate($tagRECT) If Not _WinAPI_MoveMemory(DllStructGetPtr($__g_vEnum[$__g_vEnum[0][0]][1]), $pRECT, 16) Then Return 0 EndIf Return 1 EndFunc Func __EnumFontFamiliesProc($pELFEX, $pNTMEX, $iFontType, $pPattern) Local $tELFEX = DllStructCreate($tagLOGFONT & ';wchar FullName[64];wchar Style[32];wchar Script[32]', $pELFEX) Local $tNTMEX = DllStructCreate($tagNEWTEXTMETRICEX, $pNTMEX) Local $tPattern = DllStructCreate('uint;uint;ptr', $pPattern) If $iFontType And Not BitAND($iFontType, DllStructGetData($tPattern, 1)) Then Return 1 EndIf If DllStructGetData($tPattern, 3) Then Local $aRet = DllCall('shlwapi.dll', 'bool', 'PathMatchSpecW', 'ptr', DllStructGetPtr($tELFEX, 14), 'ptr', DllStructGetData($tPattern, 3)) If Not @error Then If DllStructGetData($tPattern, 2) Then If $aRet[0] Then Return 1 Else EndIf Else If $aRet[0] Then Else Return 1 EndIf EndIf EndIf EndIf __Inc($__g_vEnum) $__g_vEnum[$__g_vEnum[0][0]][0] = DllStructGetData($tELFEX, 14) $__g_vEnum[$__g_vEnum[0][0]][1] = DllStructGetData($tELFEX, 16) $__g_vEnum[$__g_vEnum[0][0]][2] = DllStructGetData($tELFEX, 15) $__g_vEnum[$__g_vEnum[0][0]][3] = DllStructGetData($tELFEX, 17) $__g_vEnum[$__g_vEnum[0][0]][4] = $iFontType $__g_vEnum[$__g_vEnum[0][0]][5] = DllStructGetData($tNTMEX, 19) $__g_vEnum[$__g_vEnum[0][0]][6] = DllStructGetData($tNTMEX, 20) $__g_vEnum[$__g_vEnum[0][0]][7] = DllStructGetData($tNTMEX, 21) Return 1 EndFunc Func __EnumFontStylesProc($pELFEX, $pNTMEX, $iFontType, $pFN) #forceref $iFontType Local $tELFEX = DllStructCreate($tagLOGFONT & ';wchar FullName[64];wchar Style[32];wchar Script[32]', $pELFEX) Local $tNTMEX = DllStructCreate($tagNEWTEXTMETRICEX, $pNTMEX) Local $tFN = DllStructCreate('dword;wchar[64]', $pFN) If BitAND(DllStructGetData($tNTMEX, 'ntmFlags'), 0x0061) = DllStructGetData($tFN, 1) Then DllStructSetData($tFN, 2, DllStructGetData($tELFEX, 'FullName')) Return 0 Else Return 1 EndIf EndFunc #EndRegion Internal Functions Global $__g_hGDIPBrush = 0 Global $__g_hGDIPDll = 0 Global $__g_hGDIPPen = 0 Global $__g_iGDIPRef = 0 Global $__g_iGDIPToken = 0 Global $__g_bGDIP_V1_0 = True Func _GDIPlus_ArrowCapCreate($fHeight, $fWidth, $bFilled = True) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateAdjustableArrowCap", "float", $fHeight, "float", $fWidth, "bool", $bFilled, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[4] EndFunc Func _GDIPlus_ArrowCapDispose($hCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeleteCustomLineCap", "handle", $hCap) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ArrowCapGetFillState($hArrowCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetAdjustableArrowCapFillState", "handle", $hArrowCap, "bool*", 0) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ArrowCapGetHeight($hArrowCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetAdjustableArrowCapHeight", "handle", $hArrowCap, "float*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_ArrowCapGetMiddleInset($hArrowCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetAdjustableArrowCapMiddleInset", "handle", $hArrowCap, "float*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_ArrowCapGetWidth($hArrowCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetAdjustableArrowCapWidth", "handle", $hArrowCap, "float*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_ArrowCapSetFillState($hArrowCap, $bFilled = True) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetAdjustableArrowCapFillState", "handle", $hArrowCap, "bool", $bFilled) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ArrowCapSetHeight($hArrowCap, $fHeight) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetAdjustableArrowCapHeight", "handle", $hArrowCap, "float", $fHeight) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ArrowCapSetMiddleInset($hArrowCap, $fInset) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetAdjustableArrowCapMiddleInset", "handle", $hArrowCap, "float", $fInset) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ArrowCapSetWidth($hArrowCap, $fWidth) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetAdjustableArrowCapWidth", "handle", $hArrowCap, "float", $fWidth) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_BitmapCloneArea($hBitmap, $nLeft, $nTop, $nWidth, $nHeight, $iFormat = 0x00021808) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCloneBitmapArea", "float", $nLeft, "float", $nTop, "float", $nWidth, "float", $nHeight, "int", $iFormat, "handle", $hBitmap, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[7] EndFunc Func _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap) Local $aRet = DllCall($__g_hGDIPDll, "uint", "GdipGetImageDimension", "handle", $hBitmap, "float*", 0, "float*", 0) If @error Or $aRet[0] Then Return SetError(@error + 10, $aRet[0], 0) Local $tData = _GDIPlus_BitmapLockBits($hBitmap, 0, 0, $aRet[2], $aRet[3], $GDIP_ILMREAD, $GDIP_PXF32ARGB) Local $pBits = DllStructGetData($tData, "Scan0") If Not $pBits Then Return 0 Local $tBIHDR = DllStructCreate($tagBITMAPV5HEADER) DllStructSetData($tBIHDR, "bV5Size", DllStructGetSize($tBIHDR)) DllStructSetData($tBIHDR, "bV5Width", $aRet[2]) DllStructSetData($tBIHDR, "bV5Height", $aRet[3]) DllStructSetData($tBIHDR, "bV5Planes", 1) DllStructSetData($tBIHDR, "bV5BitCount", 32) DllStructSetData($tBIHDR, "bV5Compression", 0) DllStructSetData($tBIHDR, "bV5SizeImage", $aRet[3] * DllStructGetData($tData, "Stride")) DllStructSetData($tBIHDR, "bV5AlphaMask", 0xFF000000) DllStructSetData($tBIHDR, "bV5RedMask", 0x00FF0000) DllStructSetData($tBIHDR, "bV5GreenMask", 0x0000FF00) DllStructSetData($tBIHDR, "bV5BlueMask", 0x000000FF) DllStructSetData($tBIHDR, "bV5CSType", 2) DllStructSetData($tBIHDR, "bV5Intent", 4) Local $hHBitmapv5 = DllCall("gdi32.dll", "ptr", "CreateDIBSection", "hwnd", 0, "struct*", $tBIHDR, "uint", 0, "ptr*", 0, "ptr", 0, "dword", 0) If Not @error And $hHBitmapv5[0] Then DllCall("gdi32.dll", "dword", "SetBitmapBits", "ptr", $hHBitmapv5[0], "dword", $aRet[2] * $aRet[3] * 4, "ptr", DllStructGetData($tData, "Scan0")) $hHBitmapv5 = $hHBitmapv5[0] Else $hHBitmapv5 = 0 EndIf _GDIPlus_BitmapUnlockBits($hBitmap, $tData) $tData = 0 $tBIHDR = 0 Return $hHBitmapv5 EndFunc Func _GDIPlus_BitmapCreateFromFile($sFileName) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateBitmapFromFile", "wstr", $sFileName, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_BitmapCreateFromGraphics($iWidth, $iHeight, $hGraphics) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateBitmapFromGraphics", "int", $iWidth, "int", $iHeight, "handle", $hGraphics, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[4] EndFunc Func _GDIPlus_BitmapCreateFromHBITMAP($hBitmap, $hPal = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateBitmapFromHBITMAP", "handle", $hBitmap, "handle", $hPal, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_BitmapCreateFromMemory($dImage, $bHBITMAP = False) If Not IsBinary($dImage) Then Return SetError(1, 0, 0) Local $aResult = 0 Local Const $dMemBitmap = Binary($dImage) Local Const $iLen = BinaryLen($dMemBitmap) Local Const $GMEM_MOVEABLE = 0x0002 $aResult = DllCall("kernel32.dll", "handle", "GlobalAlloc", "uint", $GMEM_MOVEABLE, "ulong_ptr", $iLen) If @error Then Return SetError(4, 0, 0) Local Const $hData = $aResult[0] $aResult = DllCall("kernel32.dll", "ptr", "GlobalLock", "handle", $hData) If @error Then Return SetError(5, 0, 0) Local $tMem = DllStructCreate("byte[" & $iLen & "]", $aResult[0]) DllStructSetData($tMem, 1, $dMemBitmap) DllCall("kernel32.dll", "bool", "GlobalUnlock", "handle", $hData) If @error Then Return SetError(6, 0, 0) Local Const $hStream = _WinAPI_CreateStreamOnHGlobal($hData) If @error Then Return SetError(2, 0, 0) Local Const $hBitmap = _GDIPlus_BitmapCreateFromStream($hStream) If @error Then Return SetError(3, 0, 0) DllCall("oleaut32.dll", "long", "DispCallFunc", "ptr", $hStream, "ulong_ptr", 8 * (1 + @AutoItX64), "uint", 4, "ushort", 23, "uint", 0, "ptr", 0, "ptr", 0, "str", "") If $bHBITMAP Then Local Const $hHBmp = _GDIPlus_BitmapCreateDIBFromBitmap($hBitmap) _GDIPlus_BitmapDispose($hBitmap) Return $hHBmp EndIf Return $hBitmap EndFunc Func _GDIPlus_BitmapCreateFromResource($hInst, $vResourceName) Local $sType = "int" If IsString($vResourceName) Then $sType = "wstr" Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateBitmapFromResource", "handle", $hInst, $sType, $vResourceName, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight, $iPixelFormat = $GDIP_PXF32ARGB, $iStride = 0, $pScan0 = 0) Local $aResult = DllCall($__g_hGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iWidth, "int", $iHeight, "int", $iStride, "int", $iPixelFormat, "struct*", $pScan0, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[6] EndFunc Func _GDIPlus_BitmapCreateFromStream($pStream) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateBitmapFromStream", "ptr", $pStream, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap, $iARGB = 0xFF000000) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateHBITMAPFromBitmap", "handle", $hBitmap, "handle*", 0, "dword", $iARGB) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_BitmapDispose($hBitmap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDisposeImage", "handle", $hBitmap) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_BitmapCreateFromHICON($hIcon) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateBitmapFromHICON", "handle", $hIcon, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_BitmapCreateFromHICON32($hIcon) Local $tSIZE = _WinAPI_GetIconDimension($hIcon) Local $iWidth = DllStructGetData($tSIZE, 'X') Local $iHeight = DllStructGetData($tSIZE, 'Y') If $iWidth <= 0 Or $iHeight <= 0 Then Return SetError(10, -1, 0) Local $tBITMAPINFO = DllStructCreate("dword Size;long Width;long Height;word Planes;word BitCount;dword Compression;dword SizeImage;long XPelsPerMeter;long YPelsPerMeter;dword ClrUsed;dword ClrImportant;dword RGBQuad") DllStructSetData($tBITMAPINFO, 'Size', DllStructGetSize($tBITMAPINFO) - 4) DllStructSetData($tBITMAPINFO, 'Width', $iWidth) DllStructSetData($tBITMAPINFO, 'Height', -$iHeight) DllStructSetData($tBITMAPINFO, 'Planes', 1) DllStructSetData($tBITMAPINFO, 'BitCount', 32) DllStructSetData($tBITMAPINFO, 'Compression', 0) DllStructSetData($tBITMAPINFO, 'SizeImage', 0) Local $hDC = _WinAPI_CreateCompatibleDC(0) Local $pBits Local $hBmp = _WinAPI_CreateDIBSection(0, $tBITMAPINFO, 0, $pBits) Local $hOrig = _WinAPI_SelectObject($hDC, $hBmp) _WinAPI_DrawIconEx($hDC, 0, 0, $hIcon, $iWidth, $iHeight) Local $hBitmapIcon = _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight, $GDIP_PXF32ARGB, $iWidth * 4, $pBits) Local $hBitmap = _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight) Local $hContext = _GDIPlus_ImageGetGraphicsContext($hBitmap) _GDIPlus_GraphicsDrawImage($hContext, $hBitmapIcon, 0, 0) _GDIPlus_GraphicsDispose($hContext) _GDIPlus_BitmapDispose($hBitmapIcon) _WinAPI_SelectObject($hDC, $hOrig) _WinAPI_DeleteDC($hDC) _WinAPI_DeleteObject($hBmp) Return $hBitmap EndFunc Func _GDIPlus_BitmapGetPixel($hBitmap, $iX, $iY) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipBitmapGetPixel", "handle", $hBitmap, "int", $iX, "int", $iY, "uint*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[4] EndFunc Func _GDIPlus_BitmapLockBits($hBitmap, $iLeft, $iTop, $iWidth, $iHeight, $iFlags = $GDIP_ILMREAD, $iFormat = $GDIP_PXF32RGB) Local $tData = DllStructCreate($tagGDIPBITMAPDATA) Local $tRECT = DllStructCreate($tagRECT) DllStructSetData($tRECT, "Left", $iLeft) DllStructSetData($tRECT, "Top", $iTop) DllStructSetData($tRECT, "Right", $iWidth) DllStructSetData($tRECT, "Bottom", $iHeight) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipBitmapLockBits", "handle", $hBitmap, "struct*", $tRECT, "uint", $iFlags, "int", $iFormat, "struct*", $tData) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $tData EndFunc Func _GDIPlus_BitmapSetPixel($hBitmap, $iX, $iY, $iARGB) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipBitmapSetPixel", "handle", $hBitmap, "int", $iX, "int", $iY, "uint", $iARGB) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_BitmapSetResolution($hBitmap, $fDpiX, $fDpiY) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipBitmapSetResolution", "handle", $hBitmap, "float", $fDpiX, "float", $fDpiY) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_BitmapUnlockBits($hBitmap, $tBitmapData) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipBitmapUnlockBits", "handle", $hBitmap, "struct*", $tBitmapData) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_BrushClone($hBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCloneBrush", "handle", $hBrush, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_BrushCreateSolid($iARGB = 0xFF000000) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateSolidFill", "int", $iARGB, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_BrushDispose($hBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeleteBrush", "handle", $hBrush) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_BrushGetSolidColor($hBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetSolidFillColor", "handle", $hBrush, "dword*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_BrushGetType($hBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetBrushType", "handle", $hBrush, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_BrushSetSolidColor($hBrush, $iARGB = 0xFF000000) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetSolidFillColor", "handle", $hBrush, "dword", $iARGB) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ColorMatrixCreate() Return _GDIPlus_ColorMatrixCreateScale(1, 1, 1, 1) EndFunc Func _GDIPlus_ColorMatrixCreateGrayScale() Local $iI, $iJ, $tCM, $aLums[4] = [$GDIP_RLUM, $GDIP_GLUM, $GDIP_BLUM, 0] $tCM = DllStructCreate($tagGDIPCOLORMATRIX) For $iI = 0 To 3 For $iJ = 1 To 3 DllStructSetData($tCM, "m", $aLums[$iI], $iI * 5 + $iJ) Next Next DllStructSetData($tCM, "m", 1, 19) DllStructSetData($tCM, "m", 1, 25) Return $tCM EndFunc Func _GDIPlus_ColorMatrixCreateNegative() Local $iI, $tCM $tCM = _GDIPlus_ColorMatrixCreateScale(-1, -1, -1, 1) For $iI = 1 To 4 DllStructSetData($tCM, "m", 1, 20 + $iI) Next Return $tCM EndFunc Func _GDIPlus_ColorMatrixCreateSaturation($fSat) Local $fSatComp, $tCM $tCM = DllStructCreate($tagGDIPCOLORMATRIX) $fSatComp = (1 - $fSat) DllStructSetData($tCM, "m", $fSatComp * $GDIP_RLUM + $fSat, 1) DllStructSetData($tCM, "m", $fSatComp * $GDIP_RLUM, 2) DllStructSetData($tCM, "m", $fSatComp * $GDIP_RLUM, 3) DllStructSetData($tCM, "m", $fSatComp * $GDIP_GLUM, 6) DllStructSetData($tCM, "m", $fSatComp * $GDIP_GLUM + $fSat, 7) DllStructSetData($tCM, "m", $fSatComp * $GDIP_GLUM, 8) DllStructSetData($tCM, "m", $fSatComp * $GDIP_BLUM, 11) DllStructSetData($tCM, "m", $fSatComp * $GDIP_BLUM, 12) DllStructSetData($tCM, "m", $fSatComp * $GDIP_BLUM + $fSat, 13) DllStructSetData($tCM, "m", 1, 19) DllStructSetData($tCM, "m", 1, 25) Return $tCM EndFunc Func _GDIPlus_ColorMatrixCreateScale($fRed, $fGreen, $fBlue, $fAlpha = 1) Local $tCM $tCM = DllStructCreate($tagGDIPCOLORMATRIX) DllStructSetData($tCM, "m", $fRed, 1) DllStructSetData($tCM, "m", $fGreen, 7) DllStructSetData($tCM, "m", $fBlue, 13) DllStructSetData($tCM, "m", $fAlpha, 19) DllStructSetData($tCM, "m", 1, 25) Return $tCM EndFunc Func _GDIPlus_ColorMatrixCreateTranslate($fRed, $fGreen, $fBlue, $fAlpha = 0) Local $iI, $tCM, $aFactors[4] = [$fRed, $fGreen, $fBlue, $fAlpha] $tCM = _GDIPlus_ColorMatrixCreate() For $iI = 0 To 3 DllStructSetData($tCM, "m", $aFactors[$iI], 21 + $iI) Next Return $tCM EndFunc Func _GDIPlus_CustomLineCapClone($hCustomLineCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCloneCustomLineCap", "handle", $hCustomLineCap, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_CustomLineCapCreate($hPathFill, $hPathStroke, $iLineCap = 0, $nBaseInset = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateCustomLineCap", "handle", $hPathFill, "handle", $hPathStroke, "int", $iLineCap, "float", $nBaseInset, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[5] EndFunc Func _GDIPlus_CustomLineCapDispose($hCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeleteCustomLineCap", "handle", $hCap) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_CustomLineCapGetStrokeCaps($hCustomLineCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetCustomLineCapStrokeCaps", "hwnd", $hCustomLineCap, "ptr*", 0, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then SetError(10, $aResult[0], 0) Local $aCaps[2] $aCaps[0] = $aResult[2] $aCaps[1] = $aResult[3] Return $aCaps EndFunc Func _GDIPlus_CustomLineCapSetStrokeCaps($hCustomLineCap, $iStartCap, $iEndCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetCustomLineCapStrokeCaps", "handle", $hCustomLineCap, "int", $iStartCap, "int", $iEndCap) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_Decoders() Local $iCount = _GDIPlus_DecodersGetCount() Local $iSize = _GDIPlus_DecodersGetSize() Local $tBuffer = DllStructCreate("byte[" & $iSize & "]") Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageDecoders", "uint", $iCount, "uint", $iSize, "struct*", $tBuffer) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Local $pBuffer = DllStructGetPtr($tBuffer) Local $tCodec, $aInfo[$iCount + 1][14] $aInfo[0][0] = $iCount For $iI = 1 To $iCount $tCodec = DllStructCreate($tagGDIPIMAGECODECINFO, $pBuffer) $aInfo[$iI][1] = _WinAPI_StringFromGUID(DllStructGetPtr($tCodec, "CLSID")) $aInfo[$iI][2] = _WinAPI_StringFromGUID(DllStructGetPtr($tCodec, "FormatID")) $aInfo[$iI][3] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "CodecName")) $aInfo[$iI][4] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "DllName")) $aInfo[$iI][5] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "FormatDesc")) $aInfo[$iI][6] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "FileExt")) $aInfo[$iI][7] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "MimeType")) $aInfo[$iI][8] = DllStructGetData($tCodec, "Flags") $aInfo[$iI][9] = DllStructGetData($tCodec, "Version") $aInfo[$iI][10] = DllStructGetData($tCodec, "SigCount") $aInfo[$iI][11] = DllStructGetData($tCodec, "SigSize") $aInfo[$iI][12] = DllStructGetData($tCodec, "SigPattern") $aInfo[$iI][13] = DllStructGetData($tCodec, "SigMask") $pBuffer += DllStructGetSize($tCodec) Next Return $aInfo EndFunc Func _GDIPlus_DecodersGetCount() Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageDecodersSize", "uint*", 0, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[1] EndFunc Func _GDIPlus_DecodersGetSize() Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageDecodersSize", "uint*", 0, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_DrawImagePoints($hGraphic, $hImage, $nULX, $nULY, $nURX, $nURY, $nLLX, $nLLY, $iCount = 3) Local $tPoint = DllStructCreate("float X;float Y;float X2;float Y2;float X3;float Y3") DllStructSetData($tPoint, "X", $nULX) DllStructSetData($tPoint, "Y", $nULY) DllStructSetData($tPoint, "X2", $nURX) DllStructSetData($tPoint, "Y2", $nURY) DllStructSetData($tPoint, "X3", $nLLX) DllStructSetData($tPoint, "Y3", $nLLY) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawImagePoints", "handle", $hGraphic, "handle", $hImage, "struct*", $tPoint, "int", $iCount) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_Encoders() Local $iCount = _GDIPlus_EncodersGetCount() Local $iSize = _GDIPlus_EncodersGetSize() Local $tBuffer = DllStructCreate("byte[" & $iSize & "]") Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageEncoders", "uint", $iCount, "uint", $iSize, "struct*", $tBuffer) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Local $pBuffer = DllStructGetPtr($tBuffer) Local $tCodec, $aInfo[$iCount + 1][14] $aInfo[0][0] = $iCount For $iI = 1 To $iCount $tCodec = DllStructCreate($tagGDIPIMAGECODECINFO, $pBuffer) $aInfo[$iI][1] = _WinAPI_StringFromGUID(DllStructGetPtr($tCodec, "CLSID")) $aInfo[$iI][2] = _WinAPI_StringFromGUID(DllStructGetPtr($tCodec, "FormatID")) $aInfo[$iI][3] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "CodecName")) $aInfo[$iI][4] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "DllName")) $aInfo[$iI][5] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "FormatDesc")) $aInfo[$iI][6] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "FileExt")) $aInfo[$iI][7] = _WinAPI_WideCharToMultiByte(DllStructGetData($tCodec, "MimeType")) $aInfo[$iI][8] = DllStructGetData($tCodec, "Flags") $aInfo[$iI][9] = DllStructGetData($tCodec, "Version") $aInfo[$iI][10] = DllStructGetData($tCodec, "SigCount") $aInfo[$iI][11] = DllStructGetData($tCodec, "SigSize") $aInfo[$iI][12] = DllStructGetData($tCodec, "SigPattern") $aInfo[$iI][13] = DllStructGetData($tCodec, "SigMask") $pBuffer += DllStructGetSize($tCodec) Next Return $aInfo EndFunc Func _GDIPlus_EncodersGetCLSID($sFileExtension) Local $aEncoders = _GDIPlus_Encoders() If @error Then Return SetError(@error, 0, "") For $iI = 1 To $aEncoders[0][0] If StringInStr($aEncoders[$iI][6], "*." & $sFileExtension) > 0 Then Return $aEncoders[$iI][1] Next Return SetError(-1, -1, "") EndFunc Func _GDIPlus_EncodersGetCount() Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageEncodersSize", "uint*", 0, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[1] EndFunc Func _GDIPlus_EncodersGetParamList($hImage, $sEncoder) Local $iSize = _GDIPlus_EncodersGetParamListSize($hImage, $sEncoder) If @error Then Return SetError(@error + 10, @extended, 0) Local $tGUID = _WinAPI_GUIDFromString($sEncoder) Local $iRemainingSize = $iSize - 4 - _GDIPlus_ParamSize() Local $tBuffer If $iRemainingSize Then $tBuffer = DllStructCreate("dword Count;" & $tagGDIPENCODERPARAM & ";byte [" & $iRemainingSize & "]") Else $tBuffer = DllStructCreate("dword Count;" & $tagGDIPENCODERPARAM) EndIf Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetEncoderParameterList", "handle", $hImage, "struct*", $tGUID, "uint", $iSize, "struct*", $tBuffer) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $tBuffer EndFunc Func _GDIPlus_EncodersGetParamListSize($hImage, $sEncoder) Local $tGUID = _WinAPI_GUIDFromString($sEncoder) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetEncoderParameterListSize", "handle", $hImage, "struct*", $tGUID, "uint*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_EncodersGetSize() Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageEncodersSize", "uint*", 0, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_FontCreate($hFamily, $fSize, $iStyle = 0, $iUnit = 3) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateFont", "handle", $hFamily, "float", $fSize, "int", $iStyle, "int", $iUnit, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[5] EndFunc Func _GDIPlus_FontDispose($hFont) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeleteFont", "handle", $hFont) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_FontFamilyCreate($sFamily, $pCollection = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateFontFamilyFromName", "wstr", $sFamily, "ptr", $pCollection, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_FontFamilyCreateFromCollection($sFontName, $hFontCollection) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateFontFamilyFromName", "wstr", $sFontName, "ptr", $hFontCollection, "ptr*", 0) If @error Then Return SetError(@error, @extended, "") If $aResult[0] Then Return SetError(10, $aResult[0], "") Return $aResult[3] EndFunc Func _GDIPlus_FontFamilyDispose($hFamily) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeleteFontFamily", "handle", $hFamily) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_FontFamilyGetCellAscent($hFontFamily, $iStyle = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetCellAscent", "handle", $hFontFamily, "int", $iStyle, "ushort*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_FontFamilyGetCellDescent($hFontFamily, $iStyle = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetCellDescent", "handle", $hFontFamily, "int", $iStyle, "ushort*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_FontFamilyGetEmHeight($hFontFamily, $iStyle = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetEmHeight", "handle", $hFontFamily, "int", $iStyle, "ushort*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_FontFamilyGetLineSpacing($hFontFamily, $iStyle = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetLineSpacing", "handle", $hFontFamily, "int", $iStyle, "ushort*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_FontGetHeight($hFont, $hGraphics) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetFontHeight", "handle", $hFont, "handle", $hGraphics, "float*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_FontPrivateAddFont($hFontCollection, $sFontFile) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipPrivateAddFontFile", "ptr", $hFontCollection, "wstr", $sFontFile) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_FontPrivateAddMemoryFont($hFontCollection, $tFont) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipPrivateAddMemoryFont", "handle", $hFontCollection, "struct*", $tFont, "int", DllStructGetSize($tFont)) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_FontPrivateCollectionDispose($hFontCollection) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeletePrivateFontCollection", "handle*", $hFontCollection) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_FontPrivateCreateCollection() Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipNewPrivateFontCollection", "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[1] EndFunc Func _GDIPlus_GraphicsClear($hGraphics, $iARGB = 0xFF000000) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGraphicsClear", "handle", $hGraphics, "dword", $iARGB) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsCreateFromHDC($hDC) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateFromHDC", "handle", $hDC, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_GraphicsCreateFromHWND($hWnd) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateFromHWND", "hwnd", $hWnd, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_GraphicsDispose($hGraphics) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeleteGraphics", "handle", $hGraphics) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawArc($hGraphics, $nX, $nY, $nWidth, $nHeight, $fStartAngle, $fSweepAngle, $hPen = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawArc", "handle", $hGraphics, "handle", $hPen, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight, "float", $fStartAngle, "float", $fSweepAngle) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawBezier($hGraphics, $nX1, $nY1, $nX2, $nY2, $nX3, $nY3, $nX4, $nY4, $hPen = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawBezier", "handle", $hGraphics, "handle", $hPen, "float", $nX1, "float", $nY1, "float", $nX2, "float", $nY2, "float", $nX3, "float", $nY3, "float", $nX4, "float", $nY4) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawClosedCurve($hGraphics, $aPoints, $hPen = 0) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawClosedCurve", "handle", $hGraphics, "handle", $hPen, "struct*", $tPoints, "int", $iCount) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawClosedCurve2($hGraphics, $aPoints, $nTension, $hPen = 0) Local $iI, $iCount, $tPoints, $aResult __GDIPlus_PenDefCreate($hPen) $iCount = $aPoints[0][0] $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawClosedCurve2", "handle", $hGraphics, "handle", $hPen, "struct*", $tPoints, "int", $iCount, "float", $nTension) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawCurve($hGraphics, $aPoints, $hPen = 0) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawCurve", "handle", $hGraphics, "handle", $hPen, "struct*", $tPoints, "int", $iCount) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawCurve2($hGraphics, $aPoints, $nTension, $hPen = 0) Local $iI, $iCount, $tPoints, $aResult __GDIPlus_PenDefCreate($hPen) $iCount = $aPoints[0][0] $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawCurve2", "handle", $hGraphics, "handle", $hPen, "struct*", $tPoints, "int", $iCount, "float", $nTension) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawEllipse($hGraphics, $nX, $nY, $nWidth, $nHeight, $hPen = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawEllipse", "handle", $hGraphics, "handle", $hPen, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawImage($hGraphics, $hImage, $nX, $nY) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawImage", "handle", $hGraphics, "handle", $hImage, "float", $nX, "float", $nY) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawImagePointsRect($hGraphics, $hImage, $nULX, $nULY, $nURX, $nURY, $nLLX, $nLLY, $nSrcX, $nSrcY, $nSrcWidth, $nSrcHeight, $hImageAttributes = 0, $iUnit = 2) Local $tPoints = DllStructCreate("float X; float Y; float X2; float Y2; float X3; float Y3;") DllStructSetData($tPoints, "X", $nULX) DllStructSetData($tPoints, "Y", $nULY) DllStructSetData($tPoints, "X2", $nURX) DllStructSetData($tPoints, "Y2", $nURY) DllStructSetData($tPoints, "X3", $nLLX) DllStructSetData($tPoints, "Y3", $nLLY) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawImagePointsRect", "handle", $hGraphics, "handle", $hImage, "struct*", $tPoints, "int", 3, "float", $nSrcX, "float", $nSrcY, "float", $nSrcWidth, "float", $nSrcHeight, "int", $iUnit, "handle", $hImageAttributes, "ptr", 0, "ptr", 0) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawImageRect($hGraphics, $hImage, $nX, $nY, $nW, $nH) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawImageRect", "handle", $hGraphics, "handle", $hImage, "float", $nX, "float", $nY, "float", $nW, "float", $nH) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawImageRectRect($hGraphics, $hImage, $nSrcX, $nSrcY, $nSrcWidth, $nSrcHeight, $nDstX, $nDstY, $nDstWidth, $nDstHeight, $pAttributes = 0, $iUnit = 2) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawImageRectRect", "handle", $hGraphics, "handle", $hImage, "float", $nDstX, "float", $nDstY, "float", $nDstWidth, "float", $nDstHeight, "float", $nSrcX, "float", $nSrcY, "float", $nSrcWidth, "float", $nSrcHeight, "int", $iUnit, "handle", $pAttributes, "ptr", 0, "ptr", 0) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawLine($hGraphics, $nX1, $nY1, $nX2, $nY2, $hPen = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawLine", "handle", $hGraphics, "handle", $hPen, "float", $nX1, "float", $nY1, "float", $nX2, "float", $nY2) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawPath($hGraphics, $hPath, $hPen = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawPath", "handle", $hGraphics, "handle", $hPen, "handle", $hPath) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawPie($hGraphics, $nX, $nY, $nWidth, $nHeight, $fStartAngle, $fSweepAngle, $hPen = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawPie", "handle", $hGraphics, "handle", $hPen, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight, "float", $fStartAngle, "float", $fSweepAngle) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawPolygon($hGraphics, $aPoints, $hPen = 0) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawPolygon", "handle", $hGraphics, "handle", $hPen, "struct*", $tPoints, "int", $iCount) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawRect($hGraphics, $nX, $nY, $nWidth, $nHeight, $hPen = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawRectangle", "handle", $hGraphics, "handle", $hPen, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsDrawString($hGraphics, $sString, $nX, $nY, $sFont = "Arial", $fSize = 10, $iFormat = 0) Local $hBrush = _GDIPlus_BrushCreateSolid() Local $hFormat = _GDIPlus_StringFormatCreate($iFormat) Local $hFamily = _GDIPlus_FontFamilyCreate($sFont) Local $hFont = _GDIPlus_FontCreate($hFamily, $fSize) Local $tLayout = _GDIPlus_RectFCreate($nX, $nY, 0.0, 0.0) Local $aInfo = _GDIPlus_GraphicsMeasureString($hGraphics, $sString, $hFont, $tLayout, $hFormat) If @error Then Return SetError(@error, @extended, 0) Local $aResult = _GDIPlus_GraphicsDrawStringEx($hGraphics, $sString, $hFont, $aInfo[0], $hFormat, $hBrush) Local $iError = @error, $iExtended = @extended _GDIPlus_FontDispose($hFont) _GDIPlus_FontFamilyDispose($hFamily) _GDIPlus_StringFormatDispose($hFormat) _GDIPlus_BrushDispose($hBrush) Return SetError($iError, $iExtended, $aResult) EndFunc Func _GDIPlus_GraphicsDrawStringEx($hGraphics, $sString, $hFont, $tLayout, $hFormat, $hBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawString", "handle", $hGraphics, "wstr", $sString, "int", -1, "handle", $hFont, "struct*", $tLayout, "handle", $hFormat, "handle", $hBrush) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsFillClosedCurve($hGraphics, $aPoints, $hBrush = 0) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next __GDIPlus_BrushDefCreate($hBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipFillClosedCurve", "handle", $hGraphics, "handle", $hBrush, "struct*", $tPoints, "int", $iCount) __GDIPlus_BrushDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsFillClosedCurve2($hGraphics, $aPoints, $nTension, $hBrush = 0, $iFillMode = 0) Local $iI, $iCount, $tPoints, $aResult __GDIPlus_BrushDefCreate($hBrush) $iCount = $aPoints[0][0] $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next $aResult = DllCall($__g_hGDIPDll, "int", "GdipFillClosedCurve2", "handle", $hGraphics, "handle", $hBrush, "struct*", $tPoints, "int", $iCount, "float", $nTension, "int", $iFillMode) __GDIPlus_BrushDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsFillEllipse($hGraphics, $nX, $nY, $nWidth, $nHeight, $hBrush = 0) __GDIPlus_BrushDefCreate($hBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipFillEllipse", "handle", $hGraphics, "handle", $hBrush, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight) __GDIPlus_BrushDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsFillPath($hGraphics, $hPath, $hBrush = 0) __GDIPlus_BrushDefCreate($hBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipFillPath", "handle", $hGraphics, "handle", $hBrush, "handle", $hPath) __GDIPlus_BrushDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsFillPie($hGraphics, $nX, $nY, $nWidth, $nHeight, $fStartAngle, $fSweepAngle, $hBrush = 0) __GDIPlus_BrushDefCreate($hBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipFillPie", "handle", $hGraphics, "handle", $hBrush, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight, "float", $fStartAngle, "float", $fSweepAngle) __GDIPlus_BrushDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsFillPolygon($hGraphics, $aPoints, $hBrush = 0) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next __GDIPlus_BrushDefCreate($hBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipFillPolygon", "handle", $hGraphics, "handle", $hBrush, "struct*", $tPoints, "int", $iCount, "int", "FillModeAlternate") __GDIPlus_BrushDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsFillRect($hGraphics, $nX, $nY, $nWidth, $nHeight, $hBrush = 0) __GDIPlus_BrushDefCreate($hBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipFillRectangle", "handle", $hGraphics, "handle", $hBrush, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight) __GDIPlus_BrushDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsFillRegion($hGraphics, $hRegion, $hBrush = 0) __GDIPlus_BrushDefCreate($hBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipFillRegion", "handle", $hGraphics, "handle", $hBrush, "handle", $hRegion) __GDIPlus_BrushDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsGetCompositingMode($hGraphics) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetCompositingMode", "handle", $hGraphics, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_GraphicsGetCompositingQuality($hGraphics) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetCompositingQuality", "handle", $hGraphics, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_GraphicsGetDC($hGraphics) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetDC", "handle", $hGraphics, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_GraphicsGetInterpolationMode($hGraphics) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetInterpolationMode", "handle", $hGraphics, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_GraphicsGetSmoothingMode($hGraphics) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetSmoothingMode", "handle", $hGraphics, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Switch $aResult[2] Case $GDIP_SMOOTHINGMODE_NONE Return 0 Case $GDIP_SMOOTHINGMODE_HIGHQUALITY, $GDIP_SMOOTHINGMODE_ANTIALIAS8X4 Return 1 Case $GDIP_SMOOTHINGMODE_ANTIALIAS8X8 Return 2 Case Else Return 0 EndSwitch EndFunc Func _GDIPlus_GraphicsGetTransform($hGraphics, $hMatrix) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetWorldTransform", "handle", $hGraphics, "handle", $hMatrix) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsMeasureCharacterRanges($hGraphics, $sString, $hFont, $tLayout, $hStringFormat) Local $iCount = _GDIPlus_StringFormatGetMeasurableCharacterRangeCount($hStringFormat) If @error Then Return SetError(@error, @extended, 0) Local $tRegions = DllStructCreate("handle[" & $iCount & "]") Local $aRegions[$iCount + 1] = [$iCount] For $iI = 1 To $iCount $aRegions[$iI] = _GDIPlus_RegionCreate() DllStructSetData($tRegions, 1, $aRegions[$iI], $iI) Next DllCall($__g_hGDIPDll, "int", "GdipMeasureCharacterRanges", "handle", $hGraphics, "wstr", $sString, "int", -1, "hwnd", $hFont, "struct*", $tLayout, "handle", $hStringFormat, "int", $iCount, "struct*", $tRegions) Local $iError = @error, $iExtended = @extended If $iError Then For $iI = 1 To $iCount _GDIPlus_RegionDispose($aRegions[$iI]) Next Return SetError($iError + 10, $iExtended, 0) EndIf Return $aRegions EndFunc Func _GDIPlus_GraphicsMeasureString($hGraphics, $sString, $hFont, $tLayout, $hFormat) Local $tRECTF = DllStructCreate($tagGDIPRECTF) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipMeasureString", "handle", $hGraphics, "wstr", $sString, "int", -1, "handle", $hFont, "struct*", $tLayout, "handle", $hFormat, "struct*", $tRECTF, "int*", 0, "int*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Local $aInfo[3] $aInfo[0] = $tRECTF $aInfo[1] = $aResult[8] $aInfo[2] = $aResult[9] Return $aInfo EndFunc Func _GDIPlus_GraphicsReleaseDC($hGraphics, $hDC) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipReleaseDC", "handle", $hGraphics, "handle", $hDC) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_GraphicsResetClip($hGraphics) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipResetClip", "handle", $hGraphics) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsResetTransform($hGraphics) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipResetWorldTransform", "handle", $hGraphics) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsRestore($hGraphics, $iState) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipRestoreGraphics", "handle", $hGraphics, "uint", $iState) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsRotateTransform($hGraphics, $fAngle, $iOrder = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipRotateWorldTransform", "handle", $hGraphics, "float", $fAngle, "int", $iOrder) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsSave($hGraphics) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSaveGraphics", "handle", $hGraphics, "uint*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_GraphicsScaleTransform($hGraphics, $fScaleX, $fScaleY, $iOrder = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipScaleWorldTransform", "handle", $hGraphics, "float", $fScaleX, "float", $fScaleY, "int", $iOrder) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsSetClipPath($hGraphics, $hPath, $iCombineMode = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetClipPath", "handle", $hGraphics, "handle", $hPath, "int", $iCombineMode) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsSetClipRect($hGraphics, $nX, $nY, $nWidth, $nHeight, $iCombineMode = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetClipRect", "handle", $hGraphics, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight, "int", $iCombineMode) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsSetClipRegion($hGraphics, $hRegion, $iCombineMode = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetClipRegion", "handle", $hGraphics, "handle", $hRegion, "int", $iCombineMode) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsSetCompositingMode($hGraphics, $iCompositionMode) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetCompositingMode", "handle", $hGraphics, "int", $iCompositionMode) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsSetCompositingQuality($hGraphics, $iCompositionQuality) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetCompositingQuality", "handle", $hGraphics, "int", $iCompositionQuality) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsSetInterpolationMode($hGraphics, $iInterpolationMode) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetInterpolationMode", "handle", $hGraphics, "int", $iInterpolationMode) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsSetPixelOffsetMode($hGraphics, $iPixelOffsetMode) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPixelOffsetMode", "handle", $hGraphics, "int", $iPixelOffsetMode) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsSetSmoothingMode($hGraphics, $iSmooth) If $iSmooth < $GDIP_SMOOTHINGMODE_DEFAULT Or $iSmooth > $GDIP_SMOOTHINGMODE_ANTIALIAS8X8 Then $iSmooth = $GDIP_SMOOTHINGMODE_DEFAULT Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetSmoothingMode", "handle", $hGraphics, "int", $iSmooth) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsSetTextRenderingHint($hGraphics, $iTextRenderingHint) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetTextRenderingHint", "handle", $hGraphics, "int", $iTextRenderingHint) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsSetTransform($hGraphics, $hMatrix) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetWorldTransform", "handle", $hGraphics, "handle", $hMatrix) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_GraphicsTransformPoints($hGraphics, ByRef $aPoints, $iCoordSpaceTo = 0, $iCoordSpaceFrom = 1) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], ($iI - 1) * 2 + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], ($iI - 1) * 2 + 2) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipTransformPoints", "handle", $hGraphics, "int", $iCoordSpaceTo, "int", $iCoordSpaceFrom, "struct*", $tPoints, "int", $iCount) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) For $iI = 1 To $iCount $aPoints[$iI][0] = DllStructGetData($tPoints, 1, ($iI - 1) * 2 + 1) $aPoints[$iI][1] = DllStructGetData($tPoints, 1, ($iI - 1) * 2 + 2) Next Return True EndFunc Func _GDIPlus_GraphicsTranslateTransform($hGraphics, $nDX, $nDY, $iOrder = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipTranslateWorldTransform", "handle", $hGraphics, "float", $nDX, "float", $nDY, "int", $iOrder) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_HatchBrushCreate($iHatchStyle = 0, $iARGBForeground = 0xFFFFFFFF, $iARGBBackground = 0xFFFFFFFF) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateHatchBrush", "int", $iHatchStyle, "uint", $iARGBForeground, "uint", $iARGBBackground, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[4] EndFunc Func _GDIPlus_HICONCreateFromBitmap($hBitmap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateHICONFromBitmap", "handle", $hBitmap, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_ImageAttributesCreate() Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateImageAttributes", "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[1] EndFunc Func _GDIPlus_ImageAttributesDispose($hImageAttributes) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDisposeImageAttributes", "handle", $hImageAttributes) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ImageAttributesSetColorKeys($hImageAttributes, $iColorAdjustType = 0, $bEnable = False, $iARGBLow = 0, $iARGBHigh = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetImageAttributesColorKeys", "handle", $hImageAttributes, "int", $iColorAdjustType, "int", $bEnable, "uint", $iARGBLow, "uint", $iARGBHigh) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ImageAttributesSetColorMatrix($hImageAttributes, $iColorAdjustType = 0, $bEnable = False, $tClrMatrix = 0, $tGrayMatrix = 0, $iColorMatrixFlags = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetImageAttributesColorMatrix", "handle", $hImageAttributes, "int", $iColorAdjustType, "int", $bEnable, "struct*", $tClrMatrix, "struct*", $tGrayMatrix, "int", $iColorMatrixFlags) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ImageAttributesSetRemapTable($hImageAttributes, $aColorMap = 0, $iColorAdjustType = 0, $bEnable = True) Local $aResult If IsArray($aColorMap) Then Local $iCount = $aColorMap[0][0] Local $tColorMap = DllStructCreate("uint[" & $iCount * 2 & "]") For $i = 1 To $iCount DllStructSetData($tColorMap, 1, $aColorMap[$i][0], ($i - 1) * 2 + 1) DllStructSetData($tColorMap, 1, $aColorMap[$i][1], ($i - 1) * 2 + 2) Next $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetImageAttributesRemapTable", "handle", $hImageAttributes, "int", $iColorAdjustType, "int", $bEnable, "int", $iCount, "struct*", $tColorMap) Else $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetImageAttributesRemapTable", "handle", $hImageAttributes, "int", $iColorAdjustType, "int", $bEnable, "int", 0, "struct*", 0) EndIf If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ImageAttributesSetThreshold($hImageAttributes, $fThreshold, $iColorAdjustType = $GDIP_COLORADJUSTTYPE_DEFAULT, $bEnable = True) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetImageAttributesThreshold", "handle", $hImageAttributes, "int", $iColorAdjustType, "bool", $bEnable, "float", $fThreshold) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ImageClone($hImage) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCloneImage", "handle", $hImage, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_ImageDispose($hImage) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDisposeImage", "handle", $hImage) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ImageGetDimension($hImage) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageDimension", "handle", $hImage, "float*", 0, "float*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Local $aImgDim[2] = [$aResult[2], $aResult[3]] Return $aImgDim EndFunc Func _GDIPlus_ImageGetFlags($hImage) Local $aFlag[2] = [0, ""] If ($hImage = -1) Or (Not $hImage) Then Return SetError(11, 0, $aFlag) Local $aImageFlags[13][2] = [["Pixel data Cacheable", $GDIP_IMAGEFLAGS_CACHING], ["Pixel data read-only", $GDIP_IMAGEFLAGS_READONLY], ["Pixel size in image", $GDIP_IMAGEFLAGS_HASREALPIXELSIZE], ["DPI info in image", $GDIP_IMAGEFLAGS_HASREALDPI], ["YCCK color space", $GDIP_IMAGEFLAGS_COLORSPACE_YCCK], ["YCBCR color space", $GDIP_IMAGEFLAGS_COLORSPACE_YCBCR], ["Grayscale image", $GDIP_IMAGEFLAGS_COLORSPACE_GRAY], ["CMYK color space", $GDIP_IMAGEFLAGS_COLORSPACE_CMYK], ["RGB color space", $GDIP_IMAGEFLAGS_COLORSPACE_RGB], ["Partially scalable", $GDIP_IMAGEFLAGS_PARTIALLYSCALABLE], ["Alpha values other than 0 (transparent) and 255 (opaque)", $GDIP_IMAGEFLAGS_HASTRANSLUCENT], ["Alpha values", $GDIP_IMAGEFLAGS_HASALPHA], ["Scalable", $GDIP_IMAGEFLAGS_SCALABLE]] Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageFlags", "handle", $hImage, "long*", 0) If @error Then Return SetError(@error, @extended, $aFlag) If $aResult[0] Then Return SetError(10, $aResult[0], $aFlag) If $aResult[2] = $GDIP_IMAGEFLAGS_NONE Then $aFlag[1] = "No pixel data" Return SetError(12, $aResult[2], $aFlag) EndIf $aFlag[0] = $aResult[2] For $i = 0 To 12 If BitAND($aResult[2], $aImageFlags[$i][1]) = $aImageFlags[$i][1] Then If StringLen($aFlag[1]) Then $aFlag[1] &= "|" $aResult[2] -= $aImageFlags[$i][1] $aFlag[1] &= $aImageFlags[$i][0] EndIf Next Return $aFlag EndFunc Func _GDIPlus_ImageGetFrameCount($hImage, $sDimensionID) Local $tGUID = _WinAPI_GUIDFromString($sDimensionID) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipImageGetFrameCount", "handle", $hImage, "struct*", $tGUID, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[3] EndFunc Func _GDIPlus_ImageGetGraphicsContext($hImage) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageGraphicsContext", "handle", $hImage, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_ImageGetHeight($hImage) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageHeight", "handle", $hImage, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_ImageGetHorizontalResolution($hImage) If ($hImage = -1) Or (Not $hImage) Then Return SetError(11, 0, 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageHorizontalResolution", "handle", $hImage, "float*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return Round($aResult[2]) EndFunc Func _GDIPlus_ImageGetPixelFormat($hImage) Local $aFormat[2] = [0, ""] If ($hImage = -1) Or (Not $hImage) Then Return SetError(11, 0, $aFormat) Local $aPixelFormat[14][2] = [["1 Bpp Indexed", $GDIP_PXF01INDEXED], ["4 Bpp Indexed", $GDIP_PXF04INDEXED], ["8 Bpp Indexed", $GDIP_PXF08INDEXED], ["16 Bpp Grayscale", $GDIP_PXF16GRAYSCALE], ["16 Bpp RGB 555", $GDIP_PXF16RGB555], ["16 Bpp RGB 565", $GDIP_PXF16RGB565], ["16 Bpp ARGB 1555", $GDIP_PXF16ARGB1555], ["24 Bpp RGB", $GDIP_PXF24RGB], ["32 Bpp RGB", $GDIP_PXF32RGB], ["32 Bpp ARGB", $GDIP_PXF32ARGB], ["32 Bpp PARGB", $GDIP_PXF32PARGB], ["48 Bpp RGB", $GDIP_PXF48RGB], ["64 Bpp ARGB", $GDIP_PXF64ARGB], ["64 Bpp PARGB", $GDIP_PXF64PARGB]] Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImagePixelFormat", "handle", $hImage, "int*", 0) If @error Then Return SetError(@error, @extended, $aFormat) If $aResult[0] Then Return SetError(10, $aResult[0], $aFormat) For $i = 0 To 13 If $aPixelFormat[$i][1] = $aResult[2] Then $aFormat[0] = $aPixelFormat[$i][1] $aFormat[1] = $aPixelFormat[$i][0] Return $aFormat EndIf Next Return SetError(12, 0, $aFormat) EndFunc Func __GDIPlus_ImageGetPropertyCount($hImage) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPropertyCount", "handle", $hImage, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_ImageGetPropertyIdList($hImage) Local $iCount = __GDIPlus_ImageGetPropertyCount($hImage) If @error Then Return SetError(@error, @extended, False) Local $tProperties = DllStructCreate("uint[" & $iCount & "]") Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPropertyIdList", "handle", $hImage, "int", $iCount, "struct*", $tProperties) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Local $sPropertyTagInfo = "0x0000=GpsVer;0x0001=GpsLatitudeRef;0x0002=GpsLatitude;0x0003=GpsLongitudeRef;0x0004=GpsLongitude;0x0005=GpsAltitudeRef;0x0006=GpsAltitude;0x0007=GpsGpsTime;0x0008=GpsGpsSatellites;0x0009=GpsGpsStatus;0x000A=GpsGpsMeasureMode;0x000B=GpsGpsDop;0x000C=GpsSpeedRef;0x000D=GpsSpeed;0x000E=GpsTrackRef;0x000F=GpsTrack;0x0010=GpsImgDirRef;0x0011=GpsImgDir;0x0012=GpsMapDatum;0x0013=GpsDestLatRef;0x0014=GpsDestLat;0x0015=GpsDestLongRef;0x0016=GpsDestLong;0x0017=GpsDestBearRef;0x0018=GpsDestBear;0x0019=GpsDestDistRef;0x001A=GpsDestDist;0x00FE=NewSubfileType;0x00FF=SubfileType;0x0100=ImageWidth;0x0101=ImageHeight;0x0102=BitsPerSample;0x0103=Compression;0x0106=PhotometricInterp;0x0107=ThreshHolding;0x0108=CellWidth;0x0109=CellHeight;0x010A=FillOrder;0x010D=DocumentName;0x010E=ImageDescription;0x010F=EquipMake;0x0110=EquipModel;0x0111=StripOffsets;0x0112=Orientation;0x0115=SamplesPerPixel;0x0116=RowsPerStrip;0x0117=StripBytesCount;0x0118=MinSampleValue;0x0119=MaxSampleValue;0x011A=XResolution;0x011B=YResolution;0x011C=PlanarConfig;0x011D=PageName;0x011E=XPosition;0x011F=YPosition;0x0120=FreeOffset;0x0121=FreeByteCounts;0x0122=GrayResponseUnit;0x0123=GrayResponseCurve;0x0124=T4Option;0x0125=T6Option;0x0128=ResolutionUnit;0x0129=PageNumber;0x012D=TransferFunction;0x0131=SoftwareUsed;0x0132=DateTime;0x013B=Artist;0x013C=HostComputer;0x013D=Predictor;0x013E=WhitePoint;0x013F=PrimaryChromaticities;0x0140=ColorMap;0x0141=HalftoneHints;0x0142=TileWidth;0x0143=TileLength;0x0144=TileOffset;0x0145=TileByteCounts;0x014C=InkSet;0x014D=InkNames;0x014E=NumberOfInks;0x0150=DotRange;0x0151=TargetPrinter;0x0152=ExtraSamples;0x0153=SampleFormat;0x0154=SMinSampleValue;0x0155=SMaxSampleValue;0x0156=TransferRange;0x0200=JPEGProc;0x0201=JPEGInterFormat;0x0202=JPEGInterLength;0x0203=JPEGRestartInterval;0x0205=JPEGLosslessPredictors;0x0206=JPEGPointTransforms;0x0207=JPEGQTables;0x0208=JPEGDCTables;0x0209=JPEGACTables;0x0211=YCbCrCoefficients;0x0212=YCbCrSubsampling;0x0213=YCbCrPositioning;0x0214=REFBlackWhite;0x0301=Gamma;0x0302=ICCProfileDescriptor;0x0303=SRGBRenderingIntent;0x0320=ImageTitle;0x5001=ResolutionXUnit;0x5002=ResolutionYUnit;0x5003=ResolutionXLengthUnit;0x5004=ResolutionYLengthUnit;0x5005=PrintFlags;0x5006=PrintFlagsVersion;0x5007=PrintFlagsCrop;0x5008=PrintFlagsBleedWidth;0x5009=PrintFlagsBleedWidthScale;0x500A=HalftoneLPI;0x500B=HalftoneLPIUnit;0x500C=HalftoneDegree;" & _ "0x500D=HalftoneShape;0x500E=HalftoneMisc;0x500F=HalftoneScreen;0x5010=JPEGQuality;0x5011=GridSize;0x5012=ThumbnailFormat;0x5013=ThumbnailWidth;0x5014=ThumbnailHeight;0x5015=ThumbnailColorDepth;0x5016=ThumbnailPlanes;0x5017=ThumbnailRawBytes;0x5018=ThumbnailSize;0x5019=ThumbnailCompressedSize;0x501A=ColorTransferFunction;0x501B=ThumbnailData;0x5020=ThumbnailImageWidth;0x5021=ThumbnailImageHeight;0x5022=ThumbnailBitsPerSample;0x5023=ThumbnailCompression;0x5024=ThumbnailPhotometricInterp;0x5025=ThumbnailImageDescription;0x5026=ThumbnailEquipMake;0x5027=ThumbnailEquipModel;0x5028=ThumbnailStripOffsets;0x5029=ThumbnailOrientation;0x502A=ThumbnailSamplesPerPixel;0x502B=ThumbnailRowsPerStrip;0x502C=ThumbnailStripBytesCount;0x502D=ThumbnailResolutionX;0x502E=ThumbnailResolutionY;0x502F=ThumbnailPlanarConfig;0x5030=ThumbnailResolutionUnit;0x5031=ThumbnailTransferFunction;0x5032=ThumbnailSoftwareUsed;0x5033=ThumbnailDateTime;0x5034=ThumbnailArtist;0x5035=ThumbnailWhitePoint;0x5036=ThumbnailPrimaryChromaticities;0x5037=ThumbnailYCbCrCoefficients;0x5038=ThumbnailYCbCrSubsampling;0x5039=ThumbnailYCbCrPositioning;0x503A=ThumbnailRefBlackWhite;0x503B=ThumbnailCopyRight;0x5090=LuminanceTable;0x5091=ChrominanceTable;0x5100=FrameDelay;0x5101=LoopCount;0x5102=GlobalPalette;0x5103=IndexBackground;0x5104=IndexTransparent;0x5110=PixelUnit;0x5111=PixelPerUnitX;0x5112=PixelPerUnitY;0x5113=PaletteHistogram;0x8298=Copyright;0x829A=ExifExposureTime;0x829D=ExifFNumber;0x8769=ExifIFD;0x8773=ICCProfile;0x8822=ExifExposureProg;0x8824=ExifSpectralSense;0x8825=GpsIFD;0x8827=ExifISOSpeed;0x8828=ExifOECF;0x9000=ExifVer;0x9003=ExifDTOrig;0x9004=ExifDTDigitized;0x9101=ExifCompConfig;0x9102=ExifCompBPP;0x9201=ExifShutterSpeed;0x9202=ExifAperture;0x9203=ExifBrightness;0x9204=ExifExposureBias;0x9205=ExifMaxAperture;0x9206=ExifSubjectDist;0x9207=ExifMeteringMode;0x9208=ExifLightSource;0x9209=ExifFlash;0x920A=ExifFocalLength;0x927C=ExifMakerNote;0x9286=ExifUserComment;0x9290=ExifDTSubsec;0x9291=ExifDTOrigSS;0x9292=ExifDTDigSS;0xA000=ExifFPXVer;0xA001=ExifColorSpace;0xA002=ExifPixXDim;0xA003=ExifPixYDim;0xA004=ExifRelatedWav;0xA005=ExifInterop;0xA20B=ExifFlashEnergy;0xA20C=ExifSpatialFR;0xA20E=ExifFocalXRes;0xA20F=ExifFocalYRes;0xA210=ExifFocalResUnit;0xA214=ExifSubjectLoc;0xA215=ExifExposureIndex;0xA217=ExifSensingMethod;0xA300=ExifFileSource;0xA301=ExifSceneType;0xA302=ExifCfaPattern" Local $aProperties[$iCount + 1][2] = [[$iCount]] Local $aRegExp For $i = 1 To $iCount $aProperties[$i][0] = DllStructGetData($tProperties, 1, $i) $aRegExp = StringRegExp($sPropertyTagInfo, "(?i)" & Hex(DllStructGetData($tProperties, 1, $i), 4) & "=(\w+)", 3) Switch IsArray($aRegExp) Case True $aProperties[$i][1] = $aRegExp[0] Case Else $aProperties[$i][1] = "PropertyTagUnKnown" EndSwitch Next Return $aProperties EndFunc Func __GDIPlus_ImageGetPropertyItemSize($hImage, $iPropID) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPropertyItemSize", "handle", $hImage, "uint", $iPropID, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[3] EndFunc Func _GDIPlus_ImageGetPropertyItem($hImage, $iPropID) Local $iSize = __GDIPlus_ImageGetPropertyItemSize($hImage, $iPropID) If @error Then Return SetError(@error, @extended, False) Local $tBuffer = DllStructCreate("byte[" & $iSize & "];") Local $pBuffer = DllStructGetPtr($tBuffer) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPropertyItem", "handle", $hImage, "uint", $iPropID, "uint", $iSize, "struct*", $tBuffer) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], False) Local $tPropertyItem = DllStructCreate("int id; int length; short type; ptr value;", $pBuffer) Local $iBytes = DllStructGetData($tPropertyItem, "length") Local $pValue = DllStructGetData($tPropertyItem, "value") Local $tValues, $iValues Switch DllStructGetData($tPropertyItem, "type") Case 2 $iValues = 1 $tValues = DllStructCreate("char[" & $iBytes & "];", $pValue) Case 3 $iValues = Int($iBytes / 2) $tValues = DllStructCreate("ushort[" & $iValues & "];", $pValue) Case 4, 5 $iValues = Int($iBytes / 4) $tValues = DllStructCreate("uint[" & $iValues & "];", $pValue) Case 9, 10 $iValues = Int($iBytes / 4) $tValues = DllStructCreate("int[" & $iValues & "];", $pValue) Case Else $iValues = 1 $tValues = DllStructCreate("byte[" & $iBytes & "];", $pValue) EndSwitch Local $aValues[$iValues + 1] = [$iValues] Switch DllStructGetData($tPropertyItem, "type") Case 5, 10 $iValues = Int($iValues / 2) ReDim $aValues[$iValues + 1] $aValues[0] = $iValues For $j = 1 To $iValues $aValues[$j] = DllStructGetData($tValues, 1, ($j - 1) * 2 + 1) / DllStructGetData($tValues, 1, ($j - 1) * 2 + 2) Next Case 3, 4, 9 For $j = 1 To $iValues $aValues[$j] = DllStructGetData($tValues, 1, $j) Next Case Else $aValues[1] = DllStructGetData($tValues, 1) EndSwitch Return $aValues EndFunc Func _GDIPlus_ImageGetRawFormat($hImage) Local $aGuid[2] If ($hImage = -1) Or (Not $hImage) Then Return SetError(11, 0, $aGuid) Local $aImageType[11][2] = [["UNDEFINED", $GDIP_IMAGEFORMAT_UNDEFINED], ["MEMORYBMP", $GDIP_IMAGEFORMAT_MEMORYBMP], ["BMP", $GDIP_IMAGEFORMAT_BMP], ["EMF", $GDIP_IMAGEFORMAT_EMF], ["WMF", $GDIP_IMAGEFORMAT_WMF], ["JPEG", $GDIP_IMAGEFORMAT_JPEG], ["PNG", $GDIP_IMAGEFORMAT_PNG], ["GIF", $GDIP_IMAGEFORMAT_GIF], ["TIFF", $GDIP_IMAGEFORMAT_TIFF], ["EXIF", $GDIP_IMAGEFORMAT_EXIF], ["ICON", $GDIP_IMAGEFORMAT_ICON]] Local $tStruct = DllStructCreate("byte[16]") Local $aResult1 = DllCall($__g_hGDIPDll, "int", "GdipGetImageRawFormat", "handle", $hImage, "struct*", $tStruct) If @error Then Return SetError(@error, @extended, $aGuid) If $aResult1[0] Then Return SetError(10, $aResult1[0], $aGuid) Local $sResult2 = _WinAPI_StringFromGUID($aResult1[2]) If @error Then Return SetError(@error + 20, @extended, $aGuid) If $sResult2 = "" Then Return SetError(12, 0, $aGuid) For $i = 0 To 10 If $aImageType[$i][1] == $sResult2 Then $aGuid[0] = $aImageType[$i][1] $aGuid[1] = $aImageType[$i][0] Return $aGuid EndIf Next Return SetError(13, 0, $aGuid) EndFunc Func _GDIPlus_ImageGetThumbnail($hImage, $iWidth = 0, $iHeight = 0, $bKeepRatio = True, $hCallback = Null, $hCallbackData = Null) If $bKeepRatio Then Local $aImgDim = _GDIPlus_ImageGetDimension($hImage) If @error Then Return SetError(@error + 20, @extended, False) Local $f If $iWidth < 1 Or $iHeight < 1 Then $iWidth = 0 $iHeight = 0 Else If ($aImgDim[0] / $aImgDim[1]) > 1 Then $f = $aImgDim[0] / $iWidth Else $f = $aImgDim[1] / $iHeight EndIf $iWidth = Int($aImgDim[0] / $f) $iHeight = Int($aImgDim[1] / $f) EndIf EndIf Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageThumbnail", "handle", $hImage, "uint", $iWidth, "uint", $iHeight, "ptr*", 0, "ptr", $hCallback, "ptr", $hCallbackData) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return $aResult[4] EndFunc Func _GDIPlus_ImageGetType($hImage) If ($hImage = -1) Or (Not $hImage) Then Return SetError(11, 0, -1) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageType", "handle", $hImage, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_ImageGetVerticalResolution($hImage) If ($hImage = -1) Or (Not $hImage) Then Return SetError(11, 0, 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageVerticalResolution", "handle", $hImage, "float*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return Round($aResult[2]) EndFunc Func _GDIPlus_ImageGetWidth($hImage) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetImageWidth", "handle", $hImage, "uint*", -1) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_ImageLoadFromFile($sFileName) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipLoadImageFromFile", "wstr", $sFileName, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_ImageLoadFromStream($pStream) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipLoadImageFromStream", "ptr", $pStream, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_ImageRotateFlip($hImage, $iRotateFlipType) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipImageRotateFlip", "handle", $hImage, "int", $iRotateFlipType) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ImageSaveAdd($hImage, $tParams) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSaveAdd", "handle", $hImage, "struct*", $tParams) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ImageSaveAddImage($hImage, $hImageNew, $tParams) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSaveAddImage", "handle", $hImage, "handle", $hImageNew, "struct*", $tParams) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ImageSaveToFile($hImage, $sFileName) Local $sExt = __GDIPlus_ExtractFileExt($sFileName) Local $sCLSID = _GDIPlus_EncodersGetCLSID($sExt) If $sCLSID = "" Then Return SetError(-1, 0, False) Local $bRet = _GDIPlus_ImageSaveToFileEx($hImage, $sFileName, $sCLSID, 0) Return SetError(@error, @extended, $bRet) EndFunc Func _GDIPlus_ImageSaveToFileEx($hImage, $sFileName, $sEncoder, $tParams = 0) Local $tGUID = _WinAPI_GUIDFromString($sEncoder) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSaveImageToFile", "handle", $hImage, "wstr", $sFileName, "struct*", $tGUID, "struct*", $tParams) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ImageSaveToStream($hImage, $pStream, $tEncoder, $tParams = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSaveImageToStream", "handle", $hImage, "ptr", $pStream, "struct*", $tEncoder, "struct*", $tParams) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ImageScale($hImage, $iScaleW, $iScaleH, $iInterpolationMode = $GDIP_INTERPOLATIONMODE_HIGHQUALITYBICUBIC) Local $iWidth = _GDIPlus_ImageGetWidth($hImage) * $iScaleW If @error Then Return SetError(1, 0, 0) Local $iHeight = _GDIPlus_ImageGetHeight($hImage) * $iScaleH If @error Then Return SetError(2, 0, 0) Local $hBitmap = _GDIPlus_BitmapCreateFromScan0($iWidth, $iHeight) If @error Then Return SetError(3, 0, 0) Local $hBmpCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap) If @error Then _GDIPlus_BitmapDispose($hBitmap) Return SetError(4, 0, 0) EndIf _GDIPlus_GraphicsSetInterpolationMode($hBmpCtxt, $iInterpolationMode) If @error Then _GDIPlus_GraphicsDispose($hBmpCtxt) _GDIPlus_BitmapDispose($hBitmap) Return SetError(5, 0, 0) EndIf _GDIPlus_GraphicsDrawImageRect($hBmpCtxt, $hImage, 0, 0, $iWidth, $iHeight) If @error Then _GDIPlus_GraphicsDispose($hBmpCtxt) _GDIPlus_BitmapDispose($hBitmap) Return SetError(6, 0, 0) EndIf _GDIPlus_GraphicsDispose($hBmpCtxt) Return $hBitmap EndFunc Func _GDIPlus_ImageSelectActiveFrame($hImage, $sDimensionID, $iFrameIndex) Local $tGUID = _WinAPI_GUIDFromString($sDimensionID) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipImageSelectActiveFrame", "handle", $hImage, "struct*", $tGUID, "uint", $iFrameIndex) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ImageResize($hImage, $iNewWidth, $iNewHeight, $iInterpolationMode = $GDIP_INTERPOLATIONMODE_HIGHQUALITYBICUBIC) Local $hBitmap = _GDIPlus_BitmapCreateFromScan0($iNewWidth, $iNewHeight) If @error Then Return SetError(1, 0, 0) Local $hBmpCtxt = _GDIPlus_ImageGetGraphicsContext($hBitmap) If @error Then _GDIPlus_BitmapDispose($hBitmap) Return SetError(2, @extended, 0) EndIf _GDIPlus_GraphicsSetInterpolationMode($hBmpCtxt, $iInterpolationMode) If @error Then _GDIPlus_GraphicsDispose($hBmpCtxt) _GDIPlus_BitmapDispose($hBitmap) Return SetError(3, @extended, 0) EndIf _GDIPlus_GraphicsDrawImageRect($hBmpCtxt, $hImage, 0, 0, $iNewWidth, $iNewHeight) If @error Then _GDIPlus_GraphicsDispose($hBmpCtxt) _GDIPlus_BitmapDispose($hBitmap) Return SetError(4, @extended, 0) EndIf _GDIPlus_GraphicsDispose($hBmpCtxt) Return $hBitmap EndFunc Func _GDIPlus_LineBrushCreate($nX1, $nY1, $nX2, $nY2, $iARGBClr1, $iARGBClr2, $iWrapMode = 0) Local $tPointF1, $tPointF2, $aResult $tPointF1 = DllStructCreate("float;float") $tPointF2 = DllStructCreate("float;float") DllStructSetData($tPointF1, 1, $nX1) DllStructSetData($tPointF1, 2, $nY1) DllStructSetData($tPointF2, 1, $nX2) DllStructSetData($tPointF2, 2, $nY2) $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateLineBrush", "struct*", $tPointF1, "struct*", $tPointF2, "uint", $iARGBClr1, "uint", $iARGBClr2, "int", $iWrapMode, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[6] EndFunc Func _GDIPlus_LineBrushCreateFromRect($tRECTF, $iARGBClr1, $iARGBClr2, $iGradientMode = 0, $iWrapMode = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateLineBrushFromRect", "struct*", $tRECTF, "uint", $iARGBClr1, "uint", $iARGBClr2, "int", $iGradientMode, "int", $iWrapMode, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[6] EndFunc Func _GDIPlus_LineBrushCreateFromRectWithAngle($tRECTF, $iARGBClr1, $iARGBClr2, $fAngle, $bIsAngleScalable = True, $iWrapMode = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateLineBrushFromRectWithAngle", "struct*", $tRECTF, "uint", $iARGBClr1, "uint", $iARGBClr2, "float", $fAngle, "int", $bIsAngleScalable, "int", $iWrapMode, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[7] EndFunc Func _GDIPlus_LineBrushGetColors($hLineGradientBrush) Local $tARGBs, $aARGBs[2], $aResult $tARGBs = DllStructCreate("uint;uint") $aResult = DllCall($__g_hGDIPDll, "uint", "GdipGetLineColors", "handle", $hLineGradientBrush, "struct*", $tARGBs) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) $aARGBs[0] = DllStructGetData($tARGBs, 1) $aARGBs[1] = DllStructGetData($tARGBs, 2) Return $aARGBs EndFunc Func _GDIPlus_LineBrushGetRect($hLineGradientBrush) Local $tRECTF = DllStructCreate($tagGDIPRECTF) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetLineRect", "handle", $hLineGradientBrush, "struct*", $tRECTF) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Local $aRectF[4] For $iI = 1 To 4 $aRectF[$iI - 1] = DllStructGetData($tRECTF, $iI) Next Return $aRectF EndFunc Func _GDIPlus_LineBrushMultiplyTransform($hLineGradientBrush, $hMatrix, $iOrder = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipMultiplyLineTransform", "handle", $hLineGradientBrush, "handle", $hMatrix, "int", $iOrder) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_LineBrushResetTransform($hLineGradientBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipResetLineTransform", "handle", $hLineGradientBrush) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_LineBrushSetBlend($hLineGradientBrush, $aBlends) Local $iI, $iCount, $tFactors, $tPositions, $aResult $iCount = $aBlends[0][0] $tFactors = DllStructCreate("float[" & $iCount & "]") $tPositions = DllStructCreate("float[" & $iCount & "]") For $iI = 1 To $iCount DllStructSetData($tFactors, 1, $aBlends[$iI][0], $iI) DllStructSetData($tPositions, 1, $aBlends[$iI][1], $iI) Next $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetLineBlend", "handle", $hLineGradientBrush, "struct*", $tFactors, "struct*", $tPositions, "int", $iCount) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_LineBrushSetColors($hLineGradientBrush, $iARGBStart, $iARGBEnd) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetLineColors", "handle", $hLineGradientBrush, "uint", $iARGBStart, "uint", $iARGBEnd) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_LineBrushSetGammaCorrection($hLineGradientBrush, $bUseGammaCorrection = True) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetLineGammaCorrection", "handle", $hLineGradientBrush, "int", $bUseGammaCorrection) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_LineBrushSetLinearBlend($hLineGradientBrush, $fFocus, $fScale = 1) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetLineLinearBlend", "handle", $hLineGradientBrush, "float", $fFocus, "float", $fScale) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_LineBrushSetPresetBlend($hLineGradientBrush, $aInterpolations) Local $iI, $iCount, $tColors, $tPositions, $aResult $iCount = $aInterpolations[0][0] $tColors = DllStructCreate("uint[" & $iCount & "]") $tPositions = DllStructCreate("float[" & $iCount & "]") For $iI = 1 To $iCount DllStructSetData($tColors, 1, $aInterpolations[$iI][0], $iI) DllStructSetData($tPositions, 1, $aInterpolations[$iI][1], $iI) Next $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetLinePresetBlend", "handle", $hLineGradientBrush, "struct*", $tColors, "struct*", $tPositions, "int", $iCount) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_LineBrushSetSigmaBlend($hLineGradientBrush, $fFocus, $fScale = 1) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetLineSigmaBlend", "handle", $hLineGradientBrush, "float", $fFocus, "float", $fScale) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_LineBrushSetTransform($hLineGradientBrush, $hMatrix) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetLineTransform", "handle", $hLineGradientBrush, "handle", $hMatrix) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_MatrixCreate() Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateMatrix", "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[1] EndFunc Func _GDIPlus_MatrixCreate2($nM11 = 1, $nM12 = 1, $nM21 = 1, $nM22 = 1, $nDX = 0, $nDY = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateMatrix2", "float", $nM11, "float", $nM12, "float", $nM21, "float", $nM22, "float", $nDX, "float", $nDY, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[7] EndFunc Func _GDIPlus_MatrixClone($hMatrix) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCloneMatrix", "handle", $hMatrix, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_MatrixDispose($hMatrix) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeleteMatrix", "handle", $hMatrix) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_MatrixGetElements($hMatrix) Local $tElements = DllStructCreate("float[6]") Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetMatrixElements", "handle", $hMatrix, "struct*", $tElements) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Local $aElements[6] For $iI = 1 To 6 $aElements[$iI - 1] = DllStructGetData($tElements, 1, $iI) Next Return $aElements EndFunc Func _GDIPlus_MatrixInvert($hMatrix) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipInvertMatrix", "handle", $hMatrix) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_MatrixMultiply($hMatrix1, $hMatrix2, $iOrder = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipMultiplyMatrix", "handle", $hMatrix1, "handle", $hMatrix2, "int", $iOrder) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_MatrixRotate($hMatrix, $fAngle, $bAppend = False) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipRotateMatrix", "handle", $hMatrix, "float", $fAngle, "int", $bAppend) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_MatrixScale($hMatrix, $fScaleX, $fScaleY, $bOrder = False) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipScaleMatrix", "handle", $hMatrix, "float", $fScaleX, "float", $fScaleY, "int", $bOrder) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_MatrixSetElements($hMatrix, $nM11 = 1, $nM12 = 0, $nM21 = 0, $nM22 = 1, $nDX = 0, $nDY = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetMatrixElements", "handle", $hMatrix, "float", $nM11, "float", $nM12, "float", $nM21, "float", $nM22, "float", $nDX, "float", $nDY) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_MatrixShear($hMatrix, $fShearX, $fShearY, $iOrder = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipShearMatrix", "handle", $hMatrix, "float", $fShearX, "float", $fShearY, "int", $iOrder) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_MatrixTransformPoints($hMatrix, ByRef $aPoints) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], ($iI - 1) * 2 + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], ($iI - 1) * 2 + 2) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipTransformMatrixPoints", "handle", $hMatrix, "struct*", $tPoints, "int", $iCount) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) For $iI = 1 To $iCount $aPoints[$iI][0] = DllStructGetData($tPoints, 1, ($iI - 1) * 2 + 1) $aPoints[$iI][1] = DllStructGetData($tPoints, 1, ($iI - 1) * 2 + 2) Next Return True EndFunc Func _GDIPlus_MatrixTranslate($hMatrix, $fOffsetX, $fOffsetY, $bAppend = False) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipTranslateMatrix", "handle", $hMatrix, "float", $fOffsetX, "float", $fOffsetY, "int", $bAppend) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_ParamAdd(ByRef $tParams, $sGUID, $iNbOfValues, $iType, $pValues) Local $iCount = DllStructGetData($tParams, "Count") Local $pGUID = DllStructGetPtr($tParams, "GUID") + ($iCount * _GDIPlus_ParamSize()) Local $tParam = DllStructCreate($tagGDIPENCODERPARAM, $pGUID) _WinAPI_GUIDFromStringEx($sGUID, $pGUID) DllStructSetData($tParam, "Type", $iType) DllStructSetData($tParam, "NumberOfValues", $iNbOfValues) DllStructSetData($tParam, "Values", $pValues) DllStructSetData($tParams, "Count", $iCount + 1) EndFunc Func _GDIPlus_ParamInit($iCount) Local $sStruct = $tagGDIPENCODERPARAMS For $i = 2 To $iCount $sStruct &= ";struct;byte[16];ulong;ulong;ptr;endstruct" Next Return DllStructCreate($sStruct) EndFunc Func _GDIPlus_ParamSize() Local $tParam = DllStructCreate($tagGDIPENCODERPARAM) Return DllStructGetSize($tParam) EndFunc Func _GDIPlus_PathAddArc($hPath, $nX, $nY, $nWidth, $nHeight, $fStartAngle, $fSweepAngle) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathArc", "handle", $hPath, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight, "float", $fStartAngle, "float", $fSweepAngle) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddBezier($hPath, $nX1, $nY1, $nX2, $nY2, $nX3, $nY3, $nX4, $nY4) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathBezier", "handle", $hPath, "float", $nX1, "float", $nY1, "float", $nX2, "float", $nY2, "float", $nX3, "float", $nY3, "float", $nX4, "float", $nY4) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddClosedCurve($hPath, $aPoints) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathClosedCurve", "handle", $hPath, "struct*", $tPoints, "int", $iCount) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddClosedCurve2($hPath, $aPoints, $nTension = 0.5) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathClosedCurve2", "handle", $hPath, "struct*", $tPoints, "int", $iCount, "float", $nTension) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddCurve($hPath, $aPoints) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathCurve", "handle", $hPath, "struct*", $tPoints, "int", $iCount) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddCurve2($hPath, $aPoints, $nTension = 0.5) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathCurve2", "handle", $hPath, "struct*", $tPoints, "int", $iCount, "float", $nTension) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddCurve3($hPath, $aPoints, $iOffset, $iNumOfSegments, $nTension = 0.5) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathCurve3", "handle", $hPath, "struct*", $tPoints, "int", $iCount, "int", $iOffset, "int", $iNumOfSegments, "float", $nTension) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddEllipse($hPath, $nX, $nY, $nWidth, $nHeight) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathEllipse", "handle", $hPath, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddLine($hPath, $nX1, $nY1, $nX2, $nY2) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathLine", "handle", $hPath, "float", $nX1, "float", $nY1, "float", $nX2, "float", $nY2) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddLine2($hPath, $aPoints) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathLine2", "handle", $hPath, "struct*", $tPoints, "int", $iCount) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddPath($hPath1, $hPath2, $bConnect = True) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathPath", "handle", $hPath1, "handle", $hPath2, "int", $bConnect) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddPie($hPath, $nX, $nY, $nWidth, $nHeight, $fStartAngle, $fSweepAngle) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathPie", "handle", $hPath, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight, "float", $fStartAngle, "float", $fSweepAngle) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddPolygon($hPath, $aPoints) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathPolygon", "handle", $hPath, "struct*", $tPoints, "int", $iCount) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddRectangle($hPath, $nX, $nY, $nWidth, $nHeight) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathRectangle", "handle", $hPath, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathAddString($hPath, $sString, $tLayout, $hFamily, $iStyle = 0, $fSize = 8.5, $hFormat = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipAddPathString", "handle", $hPath, "wstr", $sString, "int", -1, "handle", $hFamily, "int", $iStyle, "float", $fSize, "struct*", $tLayout, "handle", $hFormat) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushCreate($aPoints, $iWrapMode = 0) Local $iCount = $aPoints[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], (($iI - 1) * 2) + 2) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreatePathGradient", "struct*", $tPoints, "int", $iCount, "int", $iWrapMode, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[4] EndFunc Func _GDIPlus_PathBrushCreateFromPath($hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreatePathGradientFromPath", "handle", $hPath, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_PathBrushGetCenterPoint($hPathGradientBrush) Local $tPointF = DllStructCreate("float;float") Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPathGradientCenterPoint", "handle", $hPathGradientBrush, "struct*", $tPointF) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Local $aPointF[2] $aPointF[0] = DllStructGetData($tPointF, 1) $aPointF[1] = DllStructGetData($tPointF, 2) Return $aPointF EndFunc Func _GDIPlus_PathBrushGetFocusScales($hPathGradientBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPathGradientFocusScales", "handle", $hPathGradientBrush, "float*", 0, "float*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Local $aScales[2] $aScales[0] = $aResult[2] $aScales[1] = $aResult[3] Return $aScales EndFunc Func _GDIPlus_PathBrushGetPointCount($hPathGradientBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPathGradientPointCount", "handle", $hPathGradientBrush, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_PathBrushGetRect($hPathGradientBrush) Local $tRECTF = DllStructCreate($tagGDIPRECTF) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPathGradientRect", "handle", $hPathGradientBrush, "struct*", $tRECTF) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Local $aRectF[4] For $iI = 1 To 4 $aRectF[$iI - 1] = DllStructGetData($tRECTF, $iI) Next Return $aRectF EndFunc Func _GDIPlus_PathBrushGetWrapMode($hPathGradientBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPathGradientWrapMode", "handle", $hPathGradientBrush, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_PathBrushMultiplyTransform($hPathGradientBrush, $hMatrix, $iOrder = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipMultiplyPathGradientTransform", "handle", $hPathGradientBrush, "handle", $hMatrix, "int", $iOrder) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushResetTransform($hPathGradientBrush) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipResetPathGradientTransform", "handle", $hPathGradientBrush) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushSetBlend($hPathGradientBrush, $aBlends) Local $iCount = $aBlends[0][0] Local $tFactors = DllStructCreate("float[" & $iCount & "]") Local $tPositions = DllStructCreate("float[" & $iCount & "]") For $iI = 1 To $iCount DllStructSetData($tFactors, 1, $aBlends[$iI][0], $iI) DllStructSetData($tPositions, 1, $aBlends[$iI][1], $iI) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathGradientBlend", "handle", $hPathGradientBrush, "struct*", $tFactors, "struct*", $tPositions, "int", $iCount) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushSetCenterColor($hPathGradientBrush, $iARGB) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathGradientCenterColor", "handle", $hPathGradientBrush, "uint", $iARGB) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushSetCenterPoint($hPathGradientBrush, $nX, $nY) Local $tPointF = DllStructCreate("float;float") DllStructSetData($tPointF, 1, $nX) DllStructSetData($tPointF, 2, $nY) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathGradientCenterPoint", "handle", $hPathGradientBrush, "struct*", $tPointF) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushSetFocusScales($hPathGradientBrush, $fScaleX, $fScaleY) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathGradientFocusScales", "handle", $hPathGradientBrush, "float", $fScaleX, "float", $fScaleY) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushSetGammaCorrection($hPathGradientBrush, $bUseGammaCorrection) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathGradientGammaCorrection", "handle", $hPathGradientBrush, "int", $bUseGammaCorrection) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushSetLinearBlend($hPathGradientBrush, $fFocus, $fScale = 1) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathGradientLinearBlend", "handle", $hPathGradientBrush, "float", $fFocus, "float", $fScale) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushSetPresetBlend($hPathGradientBrush, $aInterpolations) Local $iCount = $aInterpolations[0][0] Local $tColors = DllStructCreate("uint[" & $iCount & "]") Local $tPositions = DllStructCreate("float[" & $iCount & "]") For $iI = 1 To $iCount DllStructSetData($tColors, 1, $aInterpolations[$iI][0], $iI) DllStructSetData($tPositions, 1, $aInterpolations[$iI][1], $iI) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathGradientPresetBlend", "handle", $hPathGradientBrush, "struct*", $tColors, "struct*", $tPositions, "int", $iCount) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushSetSigmaBlend($hPathGradientBrush, $fFocus, $fScale = 1) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathGradientSigmaBlend", "handle", $hPathGradientBrush, "float", $fFocus, "float", $fScale) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushSetSurroundColor($hPathGradientBrush, $iARGB) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathGradientSurroundColorsWithCount", "handle", $hPathGradientBrush, "uint*", $iARGB, "int*", 1) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushSetSurroundColorsWithCount($hPathGradientBrush, $aColors) Local $iCount = $aColors[0] Local $iColors = _GDIPlus_PathBrushGetPointCount($hPathGradientBrush) If $iColors < $iCount Then $iCount = $iColors Local $tColors = DllStructCreate("uint[" & $iCount & "]") For $iI = 1 To $iCount DllStructSetData($tColors, 1, $aColors[$iI], $iI) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathGradientSurroundColorsWithCount", "handle", $hPathGradientBrush, "struct*", $tColors, "int*", $iCount) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_PathBrushSetTransform($hPathGradientBrush, $hMatrix) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathGradientTransform", "handle", $hPathGradientBrush, "handle", $hMatrix) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathBrushSetWrapMode($hPathGradientBrush, $iWrapMode) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathGradientWrapMode", "handle", $hPathGradientBrush, "int", $iWrapMode) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathClone($hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipClonePath", "handle", $hPath, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_PathCloseFigure($hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipClosePathFigure", "handle", $hPath) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathCreate($iFillMode = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreatePath", "int", $iFillMode, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_PathCreate2($aPathData, $iFillMode = 0) Local $iCount = $aPathData[0][0] Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") Local $tTypes = DllStructCreate("byte[" & $iCount & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPathData[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tPoints, 1, $aPathData[$iI][1], (($iI - 1) * 2) + 2) DllStructSetData($tTypes, 1, $aPathData[$iI][2], $iI) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreatePath2", "struct*", $tPoints, "struct*", $tTypes, "int", $iCount, "int", $iFillMode, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[5] EndFunc Func _GDIPlus_PathDispose($hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeletePath", "handle", $hPath) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathFlatten($hPath, $fFlatness = 0.25, $hMatrix = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipFlattenPath", "handle", $hPath, "handle", $hMatrix, "float", $fFlatness) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathGetData($hPath) Local $iCount = _GDIPlus_PathGetPointCount($hPath) Local $tPathData = DllStructCreate("int Count; ptr Points; ptr Types;") Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") Local $tTypes = DllStructCreate("byte[" & $iCount & "]") DllStructSetData($tPathData, "Count", $iCount) DllStructSetData($tPathData, "Points", DllStructGetPtr($tPoints)) DllStructSetData($tPathData, "Types", DllStructGetPtr($tTypes)) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPathData", "handle", $hPath, "struct*", $tPathData) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError($aResult[0], $aResult[0], -1) Local $aData[$iCount + 1][3] $aData[0][0] = $iCount For $iI = 1 To $iCount $aData[$iI][0] = DllStructGetData($tPoints, 1, (($iI - 1) * 2) + 1) $aData[$iI][1] = DllStructGetData($tPoints, 1, (($iI - 1) * 2) + 2) $aData[$iI][2] = DllStructGetData($tTypes, 1, $iI) Next Return $aData EndFunc Func _GDIPlus_PathGetFillMode($hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPathFillMode", "handle", $hPath, "int*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_PathGetLastPoint($hPath) Local $tPointF = DllStructCreate("float;float") Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPathLastPoint", "handle", $hPath, "struct*", $tPointF) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Local $aPointF[2] $aPointF[0] = DllStructGetData($tPointF, 1) $aPointF[1] = DllStructGetData($tPointF, 2) Return $aPointF EndFunc Func _GDIPlus_PathGetPointCount($hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPointCount", "handle", $hPath, "int*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_PathGetPoints($hPath) Local $iI, $iCount, $tPoints, $aPoints[1][1], $aResult $iCount = _GDIPlus_PathGetPointCount($hPath) If @error Then Return SetError(@error + 10, @extended, -1) $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPathPoints", "handle", $hPath, "struct*", $tPoints, "int", $iCount) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Local $aPoints[$iCount + 1][2] $aPoints[0][0] = $iCount For $iI = 1 To $iCount $aPoints[$iI][0] = DllStructGetData($tPoints, 1, (($iI - 1) * 2) + 1) $aPoints[$iI][1] = DllStructGetData($tPoints, 1, (($iI - 1) * 2) + 2) Next Return $aPoints EndFunc Func _GDIPlus_PathGetWorldBounds($hPath, $hMatrix = 0, $hPen = 0) Local $tRECTF = DllStructCreate($tagGDIPRECTF) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPathWorldBounds", "handle", $hPath, "struct*", $tRECTF, "handle", $hMatrix, "handle", $hPen) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Local $aRectF[4] For $iI = 1 To 4 $aRectF[$iI - 1] = DllStructGetData($tRECTF, $iI) Next Return $aRectF EndFunc Func _GDIPlus_PathIsOutlineVisiblePoint($hPath, $nX, $nY, $hPen = 0, $hGraphics = 0) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipIsOutlineVisiblePathPoint", "handle", $hPath, "float", $nX, "float", $nY, "handle", $hPen, "handle", $hGraphics, "int*", 0) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return $aResult[6] <> 0 EndFunc Func _GDIPlus_PathIsVisiblePoint($hPath, $nX, $nY, $hGraphics = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipIsVisiblePathPoint", "handle", $hPath, "float", $nX, "float", $nY, "handle", $hGraphics, "int*", 0) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return $aResult[5] <> 0 EndFunc Func _GDIPlus_PathIterCreate($hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreatePathIter", "handle*", 0, "handle", $hPath) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[1] EndFunc Func _GDIPlus_PathIterDispose($hPathIter) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeletePathIter", "handle", $hPathIter) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathIterGetSubpathCount($hPathIter) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipPathIterGetSubpathCount", "handle", $hPathIter, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_PathIterNextMarkerPath($hPathIter, $hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipPathIterNextMarkerPath", "handle", $hPathIter, "int*", 0, "handle", $hPath) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_PathIterNextSubpathPath($hPathIter, $hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipPathIterNextSubpathPath", "handle", $hPathIter, "int*", 0, "handle", $hPath, "bool*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Local $aReturn[2] $aReturn[0] = $aResult[2] $aReturn[1] = $aResult[4] Return $aReturn EndFunc Func _GDIPlus_PathIterRewind($hPathIter) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipPathIterRewind", "handle", $hPathIter) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathReset($hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipResetPath", "handle", $hPath) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathReverse($hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipReversePath", "handle", $hPath) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathSetFillMode($hPath, $iFillMode) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathFillMode", "handle", $hPath, "int", $iFillMode) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathSetMarker($hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPathMarker", "handle", $hPath) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathStartFigure($hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipStartPathFigure", "handle", $hPath) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathTransform($hPath, $hMatrix) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipTransformPath", "handle", $hPath, "handle", $hMatrix) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathWarp($hPath, $hMatrix, $aPoints, $nX, $nY, $nWidth, $nHeight, $iWarpMode = 0, $fFlatness = 0.25) Local $iCount = $aPoints[0][0] If $iCount <> 3 And $iCount <> 4 Then Return SetError(11, 0, False) Local $tPoints = DllStructCreate("float[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tPoints, 1, $aPoints[$iI][0], ($iI - 1) * 2 + 1) DllStructSetData($tPoints, 1, $aPoints[$iI][1], ($iI - 1) * 2 + 2) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipWarpPath", "handle", $hPath, "handle", $hMatrix, "struct*", $tPoints, "int", $iCount, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight, "int", $iWarpMode, "float", $fFlatness) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathWiden($hPath, $hPen, $hMatrix = 0, $fFlatness = 0.25) __GDIPlus_PenDefCreate($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipWidenPath", "handle", $hPath, "handle", $hPen, "handle", $hMatrix, "float", $fFlatness) __GDIPlus_PenDefDispose() If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PathWindingModeOutline($hPath, $hMatrix = 0, $fFlatness = 0.25) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipWindingModeOutline", "handle", $hPath, "handle", $hMatrix, "float", $fFlatness) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenCreate($iARGB = 0xFF000000, $nWidth = 1, $iUnit = 2) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreatePen1", "dword", $iARGB, "float", $nWidth, "int", $iUnit, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[4] EndFunc Func _GDIPlus_PenCreate2($hBrush, $nWidth = 1, $iUnit = 2) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreatePen2", "handle", $hBrush, "float", $nWidth, "int", $iUnit, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[4] EndFunc Func _GDIPlus_PenDispose($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeletePen", "handle", $hPen) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenGetAlignment($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPenMode", "handle", $hPen, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_PenGetColor($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPenColor", "handle", $hPen, "dword*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_PenGetCustomEndCap($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPenCustomEndCap", "handle", $hPen, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_PenGetDashCap($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPenDashCap197819", "handle", $hPen, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_PenGetDashStyle($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPenDashStyle", "handle", $hPen, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_PenGetEndCap($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPenEndCap", "handle", $hPen, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_PenGetMiterLimit($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPenMiterLimit", "handle", $hPen, "float*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_PenGetWidth($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetPenWidth", "handle", $hPen, "float*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_PenResetTransform($hPen) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipResetPenTransform", "handle", $hPen) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenRotateTransform($hPen, $fAngle, $iOrder = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipRotatePenTransform", "handle", $hPen, "float", $fAngle, "int", $iOrder) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenScaleTransform($hPen, $fScaleX, $fScaleY, $iOrder = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipScalePenTransform", "handle", $hPen, "float", $fScaleX, "float", $fScaleY, "int", $iOrder) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetAlignment($hPen, $iAlignment = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenMode", "handle", $hPen, "int", $iAlignment) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetColor($hPen, $iARGB) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenColor", "handle", $hPen, "dword", $iARGB) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetCompound($hPen, $aCompounds) Local $iCount = $aCompounds[0] Local $tCompounds = DllStructCreate("float[" & $iCount & "];") For $i = 1 To $iCount DllStructSetData($tCompounds, 1, $aCompounds[$i], $i) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenCompoundArray", "handle", $hPen, "struct*", $tCompounds, "int", $iCount) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetCustomEndCap($hPen, $hEndCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenCustomEndCap", "handle", $hPen, "handle", $hEndCap) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetDashCap($hPen, $iDash = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenDashCap197819", "handle", $hPen, "int", $iDash) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetDashStyle($hPen, $iStyle = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenDashStyle", "handle", $hPen, "int", $iStyle) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetEndCap($hPen, $iEndCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenEndCap", "handle", $hPen, "int", $iEndCap) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetLineCap($hPen, $iStartCap, $iEndCap, $iDashCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenLineCap197819", "handle", $hPen, "int", $iStartCap, "int", $iEndCap, "int", $iDashCap) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetLineJoin($hPen, $iLineJoin) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenLineJoin", "handle", $hPen, "int", $iLineJoin) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetMiterLimit($hPen, $fMiterLimit) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenMiterLimit", "handle", $hPen, "float", $fMiterLimit) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetStartCap($hPen, $iLineCap) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenStartCap", "handle", $hPen, "int", $iLineCap) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetTransform($hPen, $hMatrix) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenTransform", "handle", $hPen, "handle", $hMatrix) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PenSetWidth($hPen, $fWidth) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetPenWidth", "handle", $hPen, "float", $fWidth) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_RectFCreate($nX = 0, $nY = 0, $nWidth = 0, $nHeight = 0) Local $tRECTF = DllStructCreate($tagGDIPRECTF) DllStructSetData($tRECTF, "X", $nX) DllStructSetData($tRECTF, "Y", $nY) DllStructSetData($tRECTF, "Width", $nWidth) DllStructSetData($tRECTF, "Height", $nHeight) Return $tRECTF EndFunc Func _GDIPlus_RegionClone($hRegion) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCloneRegion", "handle", $hRegion, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_RegionCombinePath($hRegion, $hPath, $iCombineMode = 2) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCombineRegionPath", "handle", $hRegion, "handle", $hPath, "int", $iCombineMode) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_RegionCombineRect($hRegion, $nX, $nY, $nWidth, $nHeight, $iCombineMode = 2) Local $tRECTF = _GDIPlus_RectFCreate($nX, $nY, $nWidth, $nHeight) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCombineRegionRect", "handle", $hRegion, "struct*", $tRECTF, "int", $iCombineMode) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_RegionCombineRegion($hRegionDst, $hRegionSrc, $iCombineMode = 2) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCombineRegionRegion", "handle", $hRegionDst, "handle", $hRegionSrc, "int", $iCombineMode) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_RegionCreate() Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateRegion", "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[1] EndFunc Func _GDIPlus_RegionCreateFromPath($hPath) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateRegionPath", "handle", $hPath, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_RegionCreateFromRect($nX, $nY, $nWidth, $nHeight) Local $tRECTF = _GDIPlus_RectFCreate($nX, $nY, $nWidth, $nHeight) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateRegionRect", "struct*", $tRECTF, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_RegionDispose($hRegion) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeleteRegion", "handle", $hRegion) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_RegionGetBounds($hRegion, $hGraphics) Local $tRECTF = DllStructCreate($tagGDIPRECTF) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetRegionBounds", "handle", $hRegion, "handle", $hGraphics, "struct*", $tRECTF) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Local $aBounds[4] For $iI = 1 To 4 $aBounds[$iI - 1] = DllStructGetData($tRECTF, $iI) Next Return $aBounds EndFunc Func _GDIPlus_RegionGetHRgn($hRegion, $hGraphics = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetRegionHRgn", "handle", $hRegion, "handle", $hGraphics, "handle*", 0) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return $aResult[3] EndFunc Func _GDIPlus_RegionSetEmpty($hRegion) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetEmpty", "handle", $hRegion) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_RegionSetInfinite($hRegion) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetInfinite", "handle", $hRegion) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_RegionTransform($hRegion, $hMatrix) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipTransformRegion", "handle", $hRegion, "handle", $hMatrix) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_RegionTranslate($hRegion, $nDX, $nDY) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipTranslateRegion", "handle", $hRegion, "float", $nDX, "float", $nDY) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_Shutdown() If $__g_hGDIPDll = 0 Then Return SetError(-1, -1, False) $__g_iGDIPRef -= 1 If $__g_iGDIPRef = 0 Then DllCall($__g_hGDIPDll, "none", "GdiplusShutdown", "ulong_ptr", $__g_iGDIPToken) DllClose($__g_hGDIPDll) $__g_hGDIPDll = 0 EndIf Return True EndFunc Func _GDIPlus_Startup($sGDIPDLL = Default, $bRetDllHandle = False) $__g_iGDIPRef += 1 If $__g_iGDIPRef > 1 Then Return True If $sGDIPDLL = Default Then $sGDIPDLL = "gdiplus.dll" $__g_hGDIPDll = DllOpen($sGDIPDLL) If $__g_hGDIPDll = -1 Then $__g_iGDIPRef = 0 Return SetError(1, 2, False) EndIf Local $sVer = FileGetVersion($sGDIPDLL) $sVer = StringSplit($sVer, ".") If $sVer[1] > 5 Then $__g_bGDIP_V1_0 = False Local $tInput = DllStructCreate($tagGDIPSTARTUPINPUT) Local $tToken = DllStructCreate("ulong_ptr Data") DllStructSetData($tInput, "Version", 1) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdiplusStartup", "struct*", $tToken, "struct*", $tInput, "ptr", 0) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) $__g_iGDIPToken = DllStructGetData($tToken, "Data") If $bRetDllHandle Then Return $__g_hGDIPDll Return SetExtended($sVer[1], True) EndFunc Func _GDIPlus_StringFormatCreate($iFormat = 0, $iLangID = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateStringFormat", "int", $iFormat, "word", $iLangID, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_StringFormatDispose($hFormat) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeleteStringFormat", "handle", $hFormat) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_StringFormatGetMeasurableCharacterRangeCount($hStringFormat) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetStringFormatMeasurableCharacterRangeCount", "handle", $hStringFormat, "int*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_StringFormatSetAlign($hStringFormat, $iFlag) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetStringFormatAlign", "handle", $hStringFormat, "int", $iFlag) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_StringFormatSetLineAlign($hStringFormat, $iStringAlign) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetStringFormatLineAlign", "handle", $hStringFormat, "int", $iStringAlign) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_StringFormatSetMeasurableCharacterRanges($hStringFormat, $aRanges) Local $iCount = $aRanges[0][0] Local $tCharacterRanges = DllStructCreate("int[" & $iCount * 2 & "]") For $iI = 1 To $iCount DllStructSetData($tCharacterRanges, 1, $aRanges[$iI][0], (($iI - 1) * 2) + 1) DllStructSetData($tCharacterRanges, 1, $aRanges[$iI][1], (($iI - 1) * 2) + 2) Next Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetStringFormatMeasurableCharacterRanges", "handle", $hStringFormat, "int", $iCount, "struct*", $tCharacterRanges) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_TextureCreate($hImage, $iWrapMode = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateTexture", "handle", $hImage, "int", $iWrapMode, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_TextureCreate2($hImage, $nX, $nY, $nWidth, $nHeight, $iWrapMode = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateTexture2", "handle", $hImage, "int", $iWrapMode, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[7] EndFunc Func _GDIPlus_TextureCreateIA($hImage, $nX, $nY, $nWidth, $nHeight, $pImageAttributes = 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateTextureIA", "handle", $hImage, "handle", $pImageAttributes, "float", $nX, "float", $nY, "float", $nWidth, "float", $nHeight, "ptr*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[7] EndFunc Func __GDIPlus_BrushDefCreate(ByRef $hBrush) If $hBrush = 0 Then $__g_hGDIPBrush = _GDIPlus_BrushCreateSolid() $hBrush = $__g_hGDIPBrush EndIf EndFunc Func __GDIPlus_BrushDefDispose($iCurError = @error, $iCurExtended = @extended) If $__g_hGDIPBrush <> 0 Then _GDIPlus_BrushDispose($__g_hGDIPBrush) $__g_hGDIPBrush = 0 EndIf Return SetError($iCurError, $iCurExtended) EndFunc Func __GDIPlus_ExtractFileExt($sFileName, $bNoDot = True) Local $iIndex = __GDIPlus_LastDelimiter(".\:", $sFileName) If ($iIndex > 0) And (StringMid($sFileName, $iIndex, 1) = '.') Then If $bNoDot Then Return StringMid($sFileName, $iIndex + 1) Else Return StringMid($sFileName, $iIndex) EndIf Else Return "" EndIf EndFunc Func __GDIPlus_LastDelimiter($sDelimiters, $sString) Local $sDelimiter, $iN For $iI = 1 To StringLen($sDelimiters) $sDelimiter = StringMid($sDelimiters, $iI, 1) $iN = StringInStr($sString, $sDelimiter, $STR_NOCASESENSEBASIC, -1) If $iN > 0 Then Return $iN Next EndFunc Func __GDIPlus_PenDefCreate(ByRef $hPen) If $hPen = 0 Then $__g_hGDIPPen = _GDIPlus_PenCreate() $hPen = $__g_hGDIPPen EndIf EndFunc Func __GDIPlus_PenDefDispose($iCurError = @error, $iCurExtended = @extended) If $__g_hGDIPPen <> 0 Then _GDIPlus_PenDispose($__g_hGDIPPen) $__g_hGDIPPen = 0 EndIf Return SetError($iCurError, $iCurExtended) EndFunc Func _GDIPlus_BitmapApplyEffect($hBitmap, $hEffect, $tRECT = Null) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, False) If Not IsPtr($hEffect) Then Return SetError(10, 0, False) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipBitmapApplyEffect", "handle", $hBitmap, "handle", $hEffect, "struct*", $tRECT, "int", 0, "ptr*", 0, "int*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_BitmapApplyEffectEx($hBitmap, $hEffect, $iX = 0, $iY = 0, $iW = 0, $iH = 0) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, False) Local $tRECT = 0 If BitOR($iX, $iY, $iW, $iH) Then $tRECT = DllStructCreate("int Left; int Top; int Right; int Bottom;") DllStructSetData($tRECT, "Right", $iW + DllStructSetData($tRECT, "Left", $iX)) DllStructSetData($tRECT, "Bottom", $iH + DllStructSetData($tRECT, "Top", $iY)) EndIf Local $iStatus = _GDIPlus_BitmapApplyEffect($hBitmap, $hEffect, $tRECT) If Not $iStatus Then Return SetError(@error, @extended, False) Return True EndFunc Func _GDIPlus_BitmapConvertFormat($hBitmap, $iPixelFormat, $iDitherType, $iPaletteType, $tPalette, $fAlphaThresholdPercent = 0.0) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, False) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipBitmapConvertFormat", "handle", $hBitmap, "uint", $iPixelFormat, "uint", $iDitherType, "uint", $iPaletteType, "struct*", $tPalette, "float", $fAlphaThresholdPercent) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_BitmapCreateApplyEffect($hBitmap, $hEffect, $tRECT = Null, $tOutRECT = Null) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipBitmapCreateApplyEffect", "handle*", $hBitmap, "int", 1, "handle", $hEffect, "struct*", $tRECT, "struct*", $tOutRECT, "handle*", 0, "int", 0, "ptr*", 0, "int*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[6] EndFunc Func _GDIPlus_BitmapCreateApplyEffectEx($hBitmap, $hEffect, $iX = 0, $iY = 0, $iW = 0, $iH = 0) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $tRECT = 0 If BitOR($iX, $iY, $iW, $iH) Then $tRECT = DllStructCreate("int Left; int Top; int Right; int Bottom;") DllStructSetData($tRECT, "Right", $iW + DllStructSetData($tRECT, "Left", $iX)) DllStructSetData($tRECT, "Bottom", $iH + DllStructSetData($tRECT, "Top", $iY)) EndIf Local $hBitmap_FX = _GDIPlus_BitmapCreateApplyEffect($hBitmap, $hEffect, $tRECT, Null) Return SetError(@error, @extended, $hBitmap_FX) EndFunc Func _GDIPlus_BitmapGetHistogram($hBitmap, $iHistogramFormat, $iHistogramSize, $tChannel_0, $tChannel_1 = 0, $tChannel_2 = 0, $tChannel_3 = 0) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, False) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipBitmapGetHistogram", "handle", $hBitmap, "uint", $iHistogramFormat, "uint", $iHistogramSize, "struct*", $tChannel_0, "struct*", $tChannel_1, "struct*", $tChannel_2, "struct*", $tChannel_3) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_BitmapGetHistogramEx($hBitmap) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $iSize = _GDIPlus_BitmapGetHistogramSize($GDIP_HistogramFormatARGB) Local $tHistogram = DllStructCreate("int Size; uint Red[" & $iSize & "]; uint MaxRed; uint Green[" & $iSize & "]; uint MaxGreen; uint Blue[" & $iSize & "]; uint MaxBlue; uint Alpha[" & $iSize & "]; uint MaxAlpha; uint Grey[" & $iSize & "]; uint MaxGrey;") DllStructSetData($tHistogram, "Size", $iSize) Local $iStatus = _GDIPlus_BitmapGetHistogram($hBitmap, $GDIP_HistogramFormatARGB, $iSize, DllStructGetPtr($tHistogram, "Alpha"), DllStructGetPtr($tHistogram, "Red"), DllStructGetPtr($tHistogram, "Green"), DllStructGetPtr($tHistogram, "Blue")) If Not $iStatus Then Return SetError(@error, @extended, 0) $iStatus = _GDIPlus_BitmapGetHistogram($hBitmap, $GDIP_HistogramFormatGray, $iSize, DllStructGetPtr($tHistogram, "Grey")) If Not $iStatus Then Return SetError(@error + 10, @extended, 0) Local $iMaxRed = 0, $iMaxGreen = 0, $iMaxBlue = 0, $iMaxAlpha = 0, $iMaxGrey = 0 For $i = 1 To $iSize If DllStructGetData($tHistogram, "Red", $i) > $iMaxRed Then $iMaxRed = DllStructGetData($tHistogram, "Red", $i) If DllStructGetData($tHistogram, "Green", $i) > $iMaxGreen Then $iMaxGreen = DllStructGetData($tHistogram, "Green", $i) If DllStructGetData($tHistogram, "Blue", $i) > $iMaxBlue Then $iMaxBlue = DllStructGetData($tHistogram, "Blue", $i) If DllStructGetData($tHistogram, "Alpha", $i) > $iMaxAlpha Then $iMaxAlpha = DllStructGetData($tHistogram, "Alpha", $i) If DllStructGetData($tHistogram, "Grey", $i) > $iMaxGrey Then $iMaxGrey = DllStructGetData($tHistogram, "Grey", $i) Next DllStructSetData($tHistogram, "MaxRed", $iMaxRed) DllStructSetData($tHistogram, "MaxGreen", $iMaxGreen) DllStructSetData($tHistogram, "MaxBlue", $iMaxBlue) DllStructSetData($tHistogram, "MaxAlpha", $iMaxAlpha) DllStructSetData($tHistogram, "MaxGrey", $iMaxGrey) Return $tHistogram EndFunc Func _GDIPlus_BitmapGetHistogramSize($iFormat) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipBitmapGetHistogramSize", "uint", $iFormat, "uint*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndFunc Func _GDIPlus_DrawImageFX($hGraphics, $hImage, $hEffect, $tRECTF = 0, $hMatrix = 0, $hImgAttributes = 0, $iUnit = 2) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, False) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDrawImageFX", "handle", $hGraphics, "handle", $hImage, "struct*", $tRECTF, "handle", $hMatrix, "handle", $hEffect, "handle", $hImgAttributes, "uint", $iUnit) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_DrawImageFXEx($hGraphics, $hImage, $hEffect, $nX = 0, $nY = 0, $nW = 0, $nH = 0, $hMatrix = 0, $hImgAttributes = 0, $iUnit = 2) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, False) Local $tRECTF = 0 If BitOR($nX, $nY, $nW, $nH) Then $tRECTF = _GDIPlus_RectFCreate($nX, $nY, $nW, $nH) Local $iStatus = _GDIPlus_DrawImageFX($hGraphics, $hImage, $hEffect, $tRECTF, $hMatrix, $hImgAttributes, $iUnit) Return SetError(@error, @extended, $iStatus) EndFunc Func _GDIPlus_EffectCreate($sEffectGUID) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $tGUID = _WinAPI_GUIDFromString($sEffectGUID) Local $aResult = 0 If @AutoItX64 Then $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateEffect", "struct*", $tGUID, "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[2] EndIf Local $tElem = DllStructCreate("uint64[2];", DllStructGetPtr($tGUID)) $aResult = DllCall($__g_hGDIPDll, "int", "GdipCreateEffect", "uint64", DllStructGetData($tElem, 1, 1), "uint64", DllStructGetData($tElem, 1, 2), "handle*", 0) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $aResult[3] EndFunc Func _GDIPlus_EffectCreateBlur($fRadius = 10.0, $bExpandEdge = False) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $tEffectParameters = DllStructCreate($tagGDIP_EFFECTPARAMS_Blur) DllStructSetData($tEffectParameters, "Radius", $fRadius) DllStructSetData($tEffectParameters, "ExpandEdge", $bExpandEdge) Local $hEffect = _GDIPlus_EffectCreate($GDIP_BlurEffectGuid) If @error Then Return SetError(@error, @extended, 0) _GDIPlus_EffectSetParameters($hEffect, $tEffectParameters) If @error Then Return SetError(@error + 10, @extended, 0) Return $hEffect EndFunc Func _GDIPlus_EffectCreateBrightnessContrast($iBrightnessLevel = 0, $iContrastLevel = 0) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $tEffectParameters = DllStructCreate($tagGDIP_EFFECTPARAMS_BrightnessContrast) DllStructSetData($tEffectParameters, "BrightnessLevel", $iBrightnessLevel) DllStructSetData($tEffectParameters, "ContrastLevel", $iContrastLevel) Local $hEffect = _GDIPlus_EffectCreate($GDIP_BrightnessContrastEffectGuid) If @error Then Return SetError(@error, @extended, 0) _GDIPlus_EffectSetParameters($hEffect, $tEffectParameters) If @error Then Return SetError(@error + 10, @extended, 0) Return $hEffect EndFunc Func _GDIPlus_EffectCreateColorBalance($iCyanRed = 0, $iMagentaGreen = 0, $iYellowBlue = 0) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $tEffectParameters = DllStructCreate($tagGDIP_EFFECTPARAMS_ColorBalance) DllStructSetData($tEffectParameters, "CyanRed", $iCyanRed) DllStructSetData($tEffectParameters, "MagentaGreen", $iMagentaGreen) DllStructSetData($tEffectParameters, "YellowBlue", $iYellowBlue) Local $hEffect = _GDIPlus_EffectCreate($GDIP_ColorBalanceEffectGuid) If @error Then Return SetError(@error, @extended, 0) _GDIPlus_EffectSetParameters($hEffect, $tEffectParameters) If @error Then Return SetError(@error + 10, @extended, 0) Return $hEffect EndFunc Func _GDIPlus_EffectCreateColorCurve($iAdjustment, $iChannel, $iAdjustValue) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $tEffectParameters = DllStructCreate($tagGDIP_EFFECTPARAMS_ColorCurve) DllStructSetData($tEffectParameters, "Adjustment", $iAdjustment) DllStructSetData($tEffectParameters, "Channel", $iChannel) DllStructSetData($tEffectParameters, "AdjustValue", $iAdjustValue) Local $hEffect = _GDIPlus_EffectCreate($GDIP_ColorCurveEffectGuid) If @error Then Return SetError(@error, @extended, 0) _GDIPlus_EffectSetParameters($hEffect, $tEffectParameters) If @error Then Return SetError(@error + 10, @extended, 0) Return $hEffect EndFunc Func _GDIPlus_EffectCreateColorLUT($aColorLUT) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $tEffectParameters = DllStructCreate($tagGDIP_EFFECTPARAMS_ColorLUT) For $iI = 0 To 255 DllStructSetData($tEffectParameters, "LutA", $aColorLUT[$iI][0], $iI + 1) DllStructSetData($tEffectParameters, "LutR", $aColorLUT[$iI][1], $iI + 1) DllStructSetData($tEffectParameters, "LutG", $aColorLUT[$iI][2], $iI + 1) DllStructSetData($tEffectParameters, "LutB", $aColorLUT[$iI][3], $iI + 1) Next Local $hEffect = _GDIPlus_EffectCreate($GDIP_ColorLUTEffectGuid) If @error Then Return SetError(@error, @extended, 0) _GDIPlus_EffectSetParameters($hEffect, $tEffectParameters) If @error Then Return SetError(@error + 10, @extended, 0) Return $hEffect EndFunc Func _GDIPlus_EffectCreateColorMatrix($tColorMatrix) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $hEffect = _GDIPlus_EffectCreate($GDIP_ColorMatrixEffectGuid) If @error Then Return SetError(@error, @extended, 0) _GDIPlus_EffectSetParameters($hEffect, $tColorMatrix) If @error Then Return SetError(@error + 10, @extended, 0) Return $hEffect EndFunc Func _GDIPlus_EffectCreateHueSaturationLightness($iHueLevel = 0, $iSaturationLevel = 0, $iLightnessLevel = 0) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $tEffectParameters = DllStructCreate($tagGDIP_EFFECTPARAMS_HueSaturationLightness) DllStructSetData($tEffectParameters, "HueLevel", $iHueLevel) DllStructSetData($tEffectParameters, "SaturationLevel", $iSaturationLevel) DllStructSetData($tEffectParameters, "LightnessLevel", $iLightnessLevel) Local $hEffect = _GDIPlus_EffectCreate($GDIP_HueSaturationLightnessEffectGuid) If @error Then Return SetError(@error, @extended, 0) _GDIPlus_EffectSetParameters($hEffect, $tEffectParameters) If @error Then Return SetError(@error + 10, @extended, 0) Return $hEffect EndFunc Func _GDIPlus_EffectCreateLevels($iHighlight = 100, $iMidtone = 0, $iShadow = 0) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $tEffectParameters = DllStructCreate($tagGDIP_EFFECTPARAMS_Levels) DllStructSetData($tEffectParameters, "Highlight", $iHighlight) DllStructSetData($tEffectParameters, "Midtone", $iMidtone) DllStructSetData($tEffectParameters, "Shadow", $iShadow) Local $hEffect = _GDIPlus_EffectCreate($GDIP_LevelsEffectGuid) If @error Then Return SetError(@error, @extended, 0) _GDIPlus_EffectSetParameters($hEffect, $tEffectParameters) If @error Then Return SetError(@error + 10, @extended, 0) Return $hEffect EndFunc Func _GDIPlus_EffectCreateRedEyeCorrection($aAreas) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $iCount = $aAreas[0][0] Local $tAreas = DllStructCreate("long[" & $iCount * 4 & "]") For $iI = 1 To $iCount DllStructSetData($tAreas, 1, DllStructSetData($tAreas, 1, $aAreas[$iI][0], (($iI - 1) * 4) + 1) + $aAreas[$iI][2], (($iI - 1) * 4) + 3) DllStructSetData($tAreas, 1, DllStructSetData($tAreas, 1, $aAreas[$iI][1], (($iI - 1) * 4) + 2) + $aAreas[$iI][3], (($iI - 1) * 4) + 4) Next Local $tEffectParameters = DllStructCreate($tagGDIP_EFFECTPARAMS_RedEyeCorrection) DllStructSetData($tEffectParameters, "NumberOfAreas", $iCount) DllStructSetData($tEffectParameters, "Areas", DllStructGetPtr($tAreas)) Local $hEffect = _GDIPlus_EffectCreate($GDIP_RedEyeCorrectionEffectGuid) If @error Then Return SetError(@error, @extended, 0) _GDIPlus_EffectSetParameters($hEffect, $tEffectParameters, (DllStructGetSize($tAreas) + DllStructGetSize($tEffectParameters)) / DllStructGetSize($tEffectParameters)) If @error Then Return SetError(@error + 10, @extended, 0) Return $hEffect EndFunc Func _GDIPlus_EffectCreateSharpen($fRadius = 10.0, $fAmount = 50.0) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $tEffectParameters = DllStructCreate($tagGDIP_EFFECTPARAMS_Sharpen) DllStructSetData($tEffectParameters, "Radius", $fRadius) DllStructSetData($tEffectParameters, "Amount", $fAmount) Local $hEffect = _GDIPlus_EffectCreate($GDIP_SharpenEffectGuid) If @error Then Return SetError(@error, @extended, 0) _GDIPlus_EffectSetParameters($hEffect, $tEffectParameters) If @error Then Return SetError(@error + 10, @extended, 0) Return $hEffect EndFunc Func _GDIPlus_EffectCreateTint($iHue = 0, $iAmount = 0) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) Local $tEffectParameters = DllStructCreate($tagGDIP_EFFECTPARAMS_Tint) DllStructSetData($tEffectParameters, "Hue", $iHue) DllStructSetData($tEffectParameters, "Amount", $iAmount) Local $hEffect = _GDIPlus_EffectCreate($GDIP_TintEffectGuid) If @error Then Return SetError(@error, @extended, 0) _GDIPlus_EffectSetParameters($hEffect, $tEffectParameters) If @error Then Return SetError(@error + 10, @extended, 0) Return $hEffect EndFunc Func _GDIPlus_EffectDispose($hEffect) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, False) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipDeleteEffect", "handle", $hEffect) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_EffectGetParameters($hEffect, $tEffectParameters) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, False) If DllStructGetSize($tEffectParameters) < __GDIPlus_EffectGetParameterSize($hEffect) Then Return SetError(2, 5, False) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetEffectParameters", "handle", $hEffect, "uint*", DllStructGetSize($tEffectParameters), "struct*", $tEffectParameters) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func __GDIPlus_EffectGetParameterSize($hEffect) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, -1) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipGetEffectParameterSize", "handle", $hEffect, "uint*", 0) If @error Then Return SetError(@error, @extended, -1) If $aResult[0] Then Return SetError(10, $aResult[0], -1) Return $aResult[2] EndFunc Func _GDIPlus_EffectSetParameters($hEffect, $tEffectParameters, $iSizeAdjust = 1) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, False) Local $iSize = __GDIPlus_EffectGetParameterSize($hEffect) If @error Then Return SetError(@error, @extended, False) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipSetEffectParameters", "handle", $hEffect, "struct*", $tEffectParameters, "uint", $iSize * $iSizeAdjust) If @error Then Return SetError(@error, @extended, False) If $aResult[0] Then Return SetError(10, $aResult[0], False) Return True EndFunc Func _GDIPlus_PaletteInitialize($iEntries, $iPaletteType = $GDIP_PaletteTypeOptimal, $iOptimalColors = 0, $bUseTransparentColor = True, $hBitmap = Null) If $__g_bGDIP_V1_0 Then Return SetError(-1, 0, 0) If $iOptimalColors > 0 Then $iPaletteType = $GDIP_PaletteTypeOptimal Local $tPalette = DllStructCreate("uint Flags; uint Count; uint ARGB[" & $iEntries & "];") DllStructSetData($tPalette, "Flags", $iPaletteType) DllStructSetData($tPalette, "Count", $iEntries) Local $aResult = DllCall($__g_hGDIPDll, "int", "GdipInitializePalette", "struct*", $tPalette, "uint", $iPaletteType, "uint", $iOptimalColors, "bool", $bUseTransparentColor, "handle", $hBitmap) If @error Then Return SetError(@error, @extended, 0) If $aResult[0] Then Return SetError(10, $aResult[0], 0) Return $tPalette EndFunc Opt("GUIOnEventMode", 1) Opt("GUIResizeMode", $GUI_DOCKLEFT + $GUI_DOCKTOP) $aUtilVerStable = "v2.5.1" $aUtilVerBeta = "v2.5.1" $aUtilVersion = $aUtilVerStable Global $aUtilVerNumber = 4 Global Const $aUtilName = "7dtdServerUpdateUtility" Global Const $aServerEXE = "7DaysToDieServer.exe" Global Const $aServerShort = "7DTD" Global $aGameName1 = "7 Days To Die" Global Const $aIniFile = @ScriptDir & "\" & $aUtilName & ".ini" Global $aUtilityVer = $aUtilName & " " & $aUtilVersion Global $aUtilUpdateFile = @ScriptDir & "\__UTIL_UPDATE_AVAILABLE___.txt" Global $aIniFailFile = @ScriptDir & "\___INI_FAIL_VARIABLES___.txt" Global $aFolderLog = @ScriptDir & "\_Log\" Global $aLogFile = $aFolderLog & $aUtilName & "_Log_" & @YEAR & "-" & @MON & "-" & @MDAY & ".txt" Global $aLogDebugFile = $aFolderLog & $aUtilName & "_LogFull_" & @YEAR & "-" & @MON & "-" & @MDAY & ".txt" Global $aFolderTemp = @ScriptDir & "\" & $aUtilName & "UtilFiles\" DirCreate($aFolderTemp) Global $aUtilCFGFile = $aFolderTemp & $aUtilName & "_cfg.ini" Global $aDiscordSendWebhookEXE = $aFolderTemp & "DiscordSendWebhook.exe" Global $aFilePlink = $aFolderTemp & "plink.exe" Global $aServerBatchFile = @ScriptDir & "\_start_" & $aUtilName & ".bat" Global $aBatchDIR = @ScriptDir & "\BatchFiles" Global $aSteamUpdateCMDValY = $aBatchDIR & "\Update_7DTD_Validate_YES.bat" Global $aSteamUpdateCMDValN = $aBatchDIR & "\Update_7DTD_Validate_NO.bat" DirCreate($aBatchDIR) FileInstall("K:\AutoIT\_MyProgs\7dtdServerUpdateUtility\Resources\zombieGroup.jpg", $aFolderTemp, 0) FileInstall("K:\AutoIT\_MyProgs\7dtdServerUpdateUtility\Resources\zombiehorde.jpg", $aFolderTemp, 0) FileInstall("K:\AutoIT\_MyProgs\7dtdServerUpdateUtility\Resources\zombie1.jpg", $aFolderTemp, 0) FileInstall("K:\AutoIT\_MyProgs\7dtdServerUpdateUtility\Resources\zombie2.jpg", $aFolderTemp, 0) FileInstall("K:\AutoIT\_MyProgs\7dtdServerUpdateUtility\Resources\zombie3.jpg", $aFolderTemp, 0) FileInstall("K:\AutoIT\_MyProgs\7dtdServerUpdateUtility\Resources\zombie6.jpg", $aFolderTemp, 0) FileInstall("K:\AutoIT\_MyProgs\7dtdServerUpdateUtility\Resources\zombiedog.jpg", $aFolderTemp, 0) FileInstall("K:\AutoIT\_MyProgs\7dtdServerUpdateUtility\Resources\7DTDLogoPx.png", $aFolderTemp, 0) #Region If @Compiled = 0 Then Global $aIconFile = @ScriptDir & "\7dtdServerUpdateUtility_Icons.exe" Else Global $aIconFile = @ScriptFullPath EndIf Global $aTimeCheck0 = _NowCalc() Global $aTimeCheck1 = _NowCalc() Global $aTimeCheck2 = _NowCalc() Global $aTimeCheck3 = _NowCalc() Global $aTimeCheck4 = _NowCalc() Global $aTimeCheck8 = _NowCalc() Global $aPlinkPID = -1 Global $aTelnetBuffer = "" Global $aBeginDelayedShutdown = 0 Global $aFirstBoot = 1 Global $aRebootMe = "no" Global $aUseSteamCMD = "yes" Global $aOnlinePlayerLast = "" Global $aRCONError = False Global $aServerReadyTF = False Global $aServerReadyOnce = True Global $aNoExistingPID = True Global $hGUI = 0 Global $aGUIW = 275 Global $aGUIH = 250 Global $tUserCtTF = False Global $iEdit = 0 Global $tUserCnt = 1 Global $aBusy = False Global $aSteamUpdateNow = False Global $tOnlinePlayerReady = False Global $aPlayerCountShowTF = True Global $aPlayersOnlineName = "" Global $aPlayersOnlineSteamID = "" Global $aPlayersJoined = "" Global $aPlayersLeft = "" Global $aPlayersName = "" Local $aFirstStartDiscordAnnounce = True Local $xLabels[15] = ["Raw", "Name", "Map", "Folder", "Game", "ID", "Players", "Max Players", "Bots", "Server Type", "Environment", "Visibility", "VAC", "Version", "Extra Data Field"] Global $aServerQueryName = "[Not Read Yet]" Global $aPlayersCount = 0 Global $aPlayersMax = 0 Global $gWatchdogServerStartTimeCheck = _NowCalc() Global $aIniExist = False Global $aRemoteRestartUse = "no" Global $aGameTime = "Day 1, 00:00" Global $aNextHorde = 7 Global $tQueryLogReadDoneTF = False Global $aServerNamFromLog = "[Not Read Yet]" Global $tFailedCountQuery = 0 Global $tFailedCountTelnet = 0 Global $wGUIMainWindow = -1 Global $Config = -1 Global $wGUIMainWindow = -1 Global $hGUI_LoginLogo = -1 Global $aServerRebootReason = "" Global $aRebootReason = "" Global $aRebootConfigUpdate = "no" Global $aAnnounceCount1 = 0 Global $aFPCount = 0 Global $aFPClock = _NowCalc() Global $aServerName = "7 Days To Die" Global $aSteamAppID = "294420" Global $aUpdateSource = "0" $aServerUpdateLinkVerStable = "http://www.phoenix125.com/share/7dtdlatestver.txt" $aServerUpdateLinkVerBeta = "http://www.phoenix125.com/share/7dtdlatestbeta.txt" $aServerUpdateLinkDLStable = "http://www.phoenix125.com/share/7dtdServerUpdateUtility.zip" $aServerUpdateLinkDLBeta = "http://www.phoenix125.com/share/7dtdServerUpdateUtilityBeta.zip" Global $aShowUpdate = False Global $aTelnetIP, $aTelnetPort, $aTelnetPass #EndRegion Global Enum $WinHttpRequestOption_UserAgentString, $WinHttpRequestOption_URL, $WinHttpRequestOption_URLCodePage, $WinHttpRequestOption_EscapePercentInURL, $WinHttpRequestOption_SslErrorIgnoreFlags, $WinHttpRequestOption_SelectCertificate, $WinHttpRequestOption_EnableRedirects, $WinHttpRequestOption_UrlEscapeDisable, $WinHttpRequestOption_UrlEscapeDisableQuery, $WinHttpRequestOption_SecureProtocols, $WinHttpRequestOption_EnableTracing, $WinHttpRequestOption_RevertImpersonationOverSsl, $WinHttpRequestOption_EnableHttpsToHttpRedirects, $WinHttpRequestOption_EnablePassportAuthentication, $WinHttpRequestOption_MaxAutomaticRedirects, $WinHttpRequestOption_MaxResponseHeaderSize, $WinHttpRequestOption_MaxResponseDrainSize, $WinHttpRequestOption_EnableHttp1_1, $WinHttpRequestOption_EnableCertificateRevocationCheck Global Const $WinHttpRequestOption_SslErrorIgnoreFlags_UnknownCA = 0x0100 Global Const $WinHttpRequestOption_SslErrorIgnoreFlags_CertWrongUsage = 0x0200 Global Const $WinHttpRequestOption_SslErrorIgnoreFlags_CertCNInvalid = 0x1000 Global Const $WinHttpRequestOption_SslErrorIgnoreFlags_CertDateInvalid = 0x2000 Global Const $WinHttpRequestOption_SslErrorIgnoreFlags_IgnoreAll = 0x3300 Global $oErrorFunc = ObjEvent("AutoIt.Error", "_ErrFunc") Global $aObjErrFunc = "System" Func _ErrFunc($oError = 0) LogWrite(" [" & $aObjErrFunc & "] Error in ObjEvent [0x" & Hex($oError.number) & "] " & _ErrorCode($tHex)) EndFunc _ShowLoginLogo() If FileExists($aFolderTemp) = 0 Then DirCreate($aFolderTemp) If FileExists($aFolderLog) = 0 Then DirCreate($aFolderLog) If FileExists($aIniFile) Then _FileWriteToLine($aIniFile, 3, "Version : " & $aUtilityVer, True) Global $aCFGLastVerNumber = IniRead($aUtilCFGFile, "CFG", "LastVerNumber", $aUtilVerNumber) IniWrite($aUtilCFGFile, "CFG", "LastVerNumber", $aUtilVerNumber) Local $tUpdateINI = False If $aCFGLastVerNumber < 1 Then FileCopy(@ScriptDir & "\*.log*", $aFolderLog) FileDelete(@ScriptDir & "\*.log*") FileCopy(@ScriptDir & "\tt\*.*", $aFolderTemp & "tt\", $FC_OVERWRITE + $FC_CREATEPATH) DirRemove(@ScriptDir & "\tt\", 1) FileDelete(@ScriptDir & "\" & $aUtilName & "_lastpid.tmp") FileDelete(@ScriptDir & "\7dtdServerUpdateUtility_PurgeLogFile.bat") FileDelete(@ScriptDir & "\tt.zip") $sDiscordPlayersMsg = "Players Online: **\o / \m** Game Time: **\t** Next Horde: **\n days**" IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Online Player Message (\o - Online Player Count, \m - Max Players, \t - Game Time, \n - Days to Next Horde) ###", $sDiscordPlayersMsg) $tUpdateINI = True EndIf If $aCFGLastVerNumber < 2 Then Global $aSteamExtraCMD = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD extra commandline parameters (ex. -latest_experimental) ###", "public") IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD extra commandline parameters (See note below) ###", $aSteamExtraCMD) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG --------------- ", "Number of failed responses (after server has responded at least once) before restarting server (1-10) (Default is 3) ###", "3") $tUpdateINI = True EndIf If $aCFGLastVerNumber < 3 Then Local $sDiscordWebHookURLs = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "WebHook URL ###", "https://discordapp.com/api/webhooks/012345678901234567/abcdefghijklmnopqrstuvwxyz01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcde") Local $sDiscordWHPlayers = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "WebHook Online Player Count URL ###", "https://discordapp.com/api/webhooks/012345678901234567/abcdefghijklmnopqrstuvwxyz01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcde") Local $sDiscordBotName = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Bot Name ###", "7DTD Bot") Local $bDiscordBotUseTTS = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Use TTS? (yes/no) ###", "no") Local $sDiscordBotAvatar = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Bot Avatar Link ###", "") IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Webhook URL ###", $sDiscordWebHookURLs) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Bot Name (optional) ###", $sDiscordBotName) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Avatar URL (optional) ###", $sDiscordBotAvatar) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Use TTS (optional) (yes/no) ###", $bDiscordBotUseTTS) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Webhook URL ###", $sDiscordWHPlayers) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Bot Name (optional) ###", $sDiscordBotName) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Avatar URL (optional) ###", $sDiscordBotAvatar) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Use TTS (optional) (yes/no) ###", $bDiscordBotUseTTS) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Webhook URL ###", $sDiscordWHPlayers) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Bot Name (optional) ###", $sDiscordBotName) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Avatar URL (optional) ###", $sDiscordBotAvatar) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Use TTS (optional) (yes/no) ###", $bDiscordBotUseTTS) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Webhook URL ###", "https://discordapp.com/api/webhooks/012345678901234567/abcdefghijklmnopqrstuvwxyz01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcde") IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Bot Name (optional) ###", $sDiscordBotName) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Avatar URL (optional) ###", $sDiscordBotAvatar) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Use TTS (optional) (yes/no) ###", $bDiscordBotUseTTS) IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send RESTART/STATUS Msg (ie 1) ###", "1") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS ONLINE Msg (ie 2) ###", "2") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send CHAT Msg (ie 23) ###", "2") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS DIE Msg (ie 1234) ###", "2") Local $sUseDiscordBotDaily = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for DAILY reboot? (yes/no) ###", "yes") Local $sUseDiscordBotUpdate = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for UPDATE reboot? (yes/no) ###", "yes") Local $sUseDiscordBotRemoteRestart = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for REMOTE RESTART reboot? (yes/no) ###", "eys") Local $sUseDiscordBotServersUpYN = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message when server is back online (yes/no) ###", "yes") Local $sUseDiscordBotFirstAnnouncement = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for first ANNOUNCEMENT only? (reduces bot spam)(yes/no) ###", "no") IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for DAILY reboot? (yes/no) ###", $sUseDiscordBotDaily) IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for UPDATE reboot? (yes/no) ###", $sUseDiscordBotUpdate) IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for REMOTE RESTART reboot? (yes/no) ###", $sUseDiscordBotRemoteRestart) IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message when server is back online (yes/no) ###", $sUseDiscordBotServersUpYN) IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for first ANNOUNCEMENT only? (reduces bot spam)(yes/no) ###", $sUseDiscordBotFirstAnnouncement) Local $sDiscordDailyMessage = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Announcement DAILY (\m - minutes) ###", "Daily server restart begins in \m minute(s).") Local $sDiscordUpdateMessage = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Announcement UPDATES (\m - minutes) ###", "Fun Pimps have released a new update. Server is rebooting in \m minute(s).") Local $sDiscordRemoteRestartMessage = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Announcement REMOTE RESTART (\m - minutes) ###", "Admin has requested a server reboot. Server is rebooting in \m minute(s).") Local $sDiscordServersUpMessage = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Announcement when server is back online ###", "Server is online and ready for connection.") IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement DAILY (\m - minutes) ###", $sDiscordDailyMessage) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement UPDATES (\m - minutes) ###", $sDiscordUpdateMessage) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement REMOTE RESTART (\m - minutes) ###", $sDiscordRemoteRestartMessage) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement when server is back online ###", $sDiscordServersUpMessage) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "__ Online Player message substitutions (\o Online Player Count, \m Max Players, \t Game Time, \h Days to Next Horde, \j Joined Sub-Msg, \l Left Sub-Msn, \a Online Players Sub-Msg) \n Next Line) __", "") IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Online Player Message (see above for substitutions) ###", 'Players Online: **\o / \m** Game Time: **\t** Next Horde: **\h days**\j\l\a') IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Join Player Sub-Message (\p - Player Name(s) of player(s) that joined server, \n Next Line) ###", 'Joined: *\p*') IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Left Player Sub-Message (\p - Player Name(s) of player(s) that left server, \n Next Line) ###", 'Left: *\p*') IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Online Player Sub-Message (\p - Player Name(s) of player(s) online, \n Next Line) ###", '\nOnline Players: **\p**') IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Player Died Message (\p - Player Name, \n Next Line) ###", '*\p died.*') IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Player Chat (\p - Player Name, \m Message) ###", '[Chat] **\p**: \m') IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Telnet: Stay Connected (Required for chat and death messaging) (yes/no) ###", "yes") IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Use scheduled backups? (yes/no) ###", "yes") IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Backup days (comma separated 0-Everyday 1-Sunday 7-Saturday 0-7 ex.2,4,6) ###", "0") $aBackupHours = "00,06,12,18" IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Backup hours (comma separated 00-23 ex.04,16) ###", $aBackupHours) $aBackupMin = "00" IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Backup minute (00-59) ###", $aBackupMin) $aBackupFull = "10" IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Full " & $aGameName1 & " and Util folder backup every __ backups (0 to disable)(0-99) ###", $aBackupFull) $aBackupAddedFolders = "" IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Additional backup folders / files (comma separated. Folders add \ at end. ex. C:\7DTD\,D:\7DTD Server\) ###", $aBackupAddedFolders) $aBackupOutputFolder = @ScriptDir & "\Backups" IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Output folder ###", $aBackupOutputFolder) $aBackupNumberToKeep = "56" IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Number of backups to keep (1-999) ###", $aBackupNumberToKeep) $aBackupTimeoutSec = "600" IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Max time in seconds to wait for backup to complete (30-999) ###", $aBackupTimeoutSec) $aBackupCommandLine = "a -spf -r -tzip -ssw" IniWrite($aIniFile, " --------------- BACKUP --------------- ", "7zip backup additional command line parameters (Default: a -spf -r -tzip -ssw) ###", $aBackupCommandLine) $aBackupInGame = "Server backup started." IniWrite($aIniFile, " --------------- BACKUP --------------- ", "In-Game announcement when backup initiated (Leave blank to disable) ###", $aBackupInGame) $aBackupDiscord = "Server backup started." IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Discord announcement when backup initiated ###", $aBackupDiscord) $aBackupTwitch = "Server backup started." IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Twitch announcement when backup initiated ###", $aBackupTwitch) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD Username (optional) ###", "") IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD Password (optional) ###", "") IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD commandline (caution: overwrites all settings above) ###", "") IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD commandline (caution: overwrites all settings above) Write between lines below ###", "(Write between lines below)") IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Send Discord announcement when backup initiated (yes/no) ###", "no") IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Send Twitch announcement when backup initiated (yes/no) ###", "no") IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for Online Player changes? (yes/no) ###", "yes") IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message when player dies? (yes/no) ###", "yes") IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for Player Chat? (yes/no) ###", "yes") FileWriteLine($aIniFile, '<--- BEGIN SteamCMD CODE --->') FileWriteLine($aIniFile, '') FileWriteLine($aIniFile, '<--- END SteamCMD CODE --->') IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Execute external script BEFORE update? (yes/no) ###", "no") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Script to execute ###", "") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Wait for script to complete? (yes/no) ###", "no") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Execute external script AFTER update but BEFORE server start? (yes/no) ###", "no") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Script to execute ###", "") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Wait for script to complete? (yes/no) ###", "no") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Execute external script for server update restarts? (yes/no) ###", "no") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Script to execute ###", "") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Wait for script to complete? (yes/no) ###", "no") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Execute external script for daily server restarts? (yes/no) ###", "no") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Script to execute ###", "") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Wait for script to complete? (yes/no) ###", "no") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Execute external script when first restart announcement is made? (yes/no) ###", "no") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Script to execute ###", "") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Wait for script to complete? (yes/no) ###", "no") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Execute external script during restart when a remote restart request is made? (yes/no) ###", "no") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Script to execute ###", "") IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Wait for script to complete? (yes/no) ###", "no") IniWrite($aIniFile, " --------------- (ALMOST) FUTURE PROOF UPDATE OPTIONS --------------- ", "Rename the Mod Folder (therefore saving and disabling it) if Future Proof was needed (3 consecutive failed starts after an update)? (yes/no) ###", "yes") $tUpdateINI = True EndIf If $aCFGLastVerNumber < 4 Then IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Telnet: Monitor all traffic (Required for player chat and death announcements) (yes/no) ###", "yes") IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Telnet: Check traffic every _ seconds) (1-10) ###", 5) $tUpdateINI = True EndIf If $tUpdateINI Then ReadUini($aIniFile, $aLogFile) FileDelete($aIniFile) UpdateIni($aIniFile) EndIf #Region OnAutoItExitRegister("Gamercide") Local $tSplash = SplashTextOn($aUtilName, "7dtdServerUpdateUtility started.", 400, 110, -1, -1, $DLG_MOVEABLE, "") LogWrite(" ============================ " & $aUtilityVer & " Started ============================") Global $aServerPID = PIDReadServer($tSplash) Global $gWatchdogServerStartTimeCheck = IniRead($aUtilCFGFile, "CFG", "Last Server Start", "no") If $gWatchdogServerStartTimeCheck = "no" Then $gWatchdogServerStartTimeCheck = _NowCalc() IniWrite($aUtilCFGFile, "CFG", "Last Server Start", $gWatchdogServerStartTimeCheck) EndIf ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Importing settings from " & $aIniFile & ".") ReadUini($aIniFile, $aLogFile) If FileExists($aBackupOutputFolder) = 0 Then DirCreate($aBackupOutputFolder) If $aTelnetIP = "" Then $aTelnetIP = $aServerIP EndIf If $aUtilBetaYN = "1" Then $aServerUpdateLinkVerUse = $aServerUpdateLinkVerBeta $aServerUpdateLinkDLUse = $aServerUpdateLinkDLBeta $aUtilVersion = $aUtilVerBeta Else $aServerUpdateLinkVerUse = $aServerUpdateLinkVerStable $aServerUpdateLinkDLUse = $aServerUpdateLinkDLStable $aUtilVersion = $aUtilVerStable EndIf $aUtilityVer = $aUtilName & " " & $aUtilVersion ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Updating config file.") If $aUpdateUtil = "yes" Then UtilUpdate($aServerUpdateLinkVerUse, $aServerUpdateLinkDLUse, $aUtilVersion, $aUtilName) EndIf ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Creating temp config file.") Global $sConfigPath = $aServerDirLocal & "\" & $aConfigFile Local $sFileExists = FileExists($sConfigPath) If $sFileExists = 0 Then LogWrite("!!! ERROR !!! Could not find " & $sConfigPath) SplashOff() Local $xFileName = _PathSplit($sConfigPath, "", "", "", "") Local $tFileName = $xFileName[3] & $xFileName[4] $aContinue = MsgBox($MB_YESNO, $aConfigFile & " Not Found", "Could not find 7DTD Config: [" & $tFileName & "]" & @CRLF & @CRLF & $sConfigPath & @CRLF & @CRLF & "This is normal for New Install" & @CRLF & "Do you wish to continue with installation?", 60) If $aContinue = 7 Then LogWrite("!!! ERROR !!! Could not find " & $sConfigPath & ". Program terminated by user.") _ExitUtil() Else EndIf EndIf Global $aServerTelnetReboot = "no" _ImportServerConfig() Func _ImportServerConfig() Local $kServerPort = "}ServerPort}value=}" Local $kServerName = "}ServerName}value=}" Local $kServerTelnetEnable = "}TelnetEnabled}value=}" Local $kServerTelnetPort = "}TelnetPort}value=}" Local $kServerTelnetPass = "}TelnetPassword}value=}" Local $kServerDataFolder = "}UserDataFolder}value=}" Local $kServerSaveGame = "}SaveGameFolder}value=}" Local $kServerTerminalWindow = "}TerminalWindowEnabled}value=}" Local $kFPServerPass = "}ServerPass}value=}" Local $kFPServerMaxPlayerCount = "}ServerMaxPlayerCount}value=}" Local $kFPServerDescription = "}ServerDescription}value=}" Local $kFPServerWebsiteURL = "}ServerWebsiteURL}value=}" Local $kFPGameWorld = "}GameWorld}value=}" Local $kFPWorldGenSeed = "}WorldGenSeed}value=}" Local $kFPWorldGenSize = "}WorldGenSize}value=}" Local $kFPGameName = "}GameName}value=}" Local $kFPGameDifficulty = "}GameDifficulty}value=}" Local $kFPAdminFileName = "}AdminFileName}value=}" Local $kFPDropOnDeath = "}DropOnDeath}value=}" Local $kMaxPlayers = "}ServerMaxPlayerCount}value=}" Local $kFPServerLoginConfirmationText = "}ServerLoginConfirmationText}value=}" Local $sConfigPathOpen = FileOpen($sConfigPath, 0) Local $sConfigRead4 = FileRead($sConfigPathOpen) Local $sConfigRead3 = StringRegExpReplace($sConfigRead4, """", "}") Local $sConfigRead2 = StringRegExpReplace($sConfigRead3, "\t", "") Local $sConfigRead1 = StringRegExpReplace($sConfigRead2, " ", "") Local $sConfigRead = StringRegExpReplace($sConfigRead1, " value=", "value=") Local $xServerPort = _StringBetween($sConfigRead, $kServerPort, "}") Global $aServerPort = _ArrayToString($xServerPort) Local $xServerName = _StringBetween($sConfigRead, $kServerName, "}") Global $aServerName = _ArrayToString($xServerName) Local $xServerTelnetEnable = _StringBetween($sConfigRead, $kServerTelnetEnable, "}") Global $aServerTelnetEnable = _ArrayToString($xServerTelnetEnable) Local $xServerTelnetPort = _StringBetween($sConfigRead, $kServerTelnetPort, "}") Global $aTelnetPort = _ArrayToString($xServerTelnetPort) Local $xServerTelnetPass = _StringBetween($sConfigRead, $kServerTelnetPass, "}") Global $aTelnetPass = _ArrayToString($xServerTelnetPass) Local $xServerDataFolder = _StringBetween($sConfigRead, $kServerDataFolder, "}") Global $aServerDataFolder = _ArrayToString($xServerDataFolder) Local $xServerSaveGame = _StringBetween($sConfigRead, $kServerSaveGame, "}") Global $aServerSaveGame = _ArrayToString($xServerSaveGame) Local $xServerTerminalWindow = _StringBetween($sConfigRead, $kServerTerminalWindow, "}") Global $aServerTerminalWindow = _ArrayToString($xServerTerminalWindow) Local $xFPServerPass = _StringBetween($sConfigRead, $kFPServerPass, "}") Global $aFPServerPass = _ArrayToString($xFPServerPass) Local $xFPServerMaxPlayerCount = _StringBetween($sConfigRead, $kFPServerMaxPlayerCount, "}") Global $aFPServerMaxPlayerCount = _ArrayToString($xFPServerMaxPlayerCount) Local $xFPServerDescription = _StringBetween($sConfigRead, $kFPServerDescription, "}") Global $aFPServerDescription = _ArrayToString($xFPServerDescription) Local $xFPServerWebsiteURL = _StringBetween($sConfigRead, $kFPServerWebsiteURL, "}") Global $aFPServerWebsiteURL = _ArrayToString($xFPServerWebsiteURL) Local $xFPGameWorld = _StringBetween($sConfigRead, $kFPGameWorld, "}") Global $aFPGameWorld = _ArrayToString($xFPGameWorld) Local $xFPWorldGenSeed = _StringBetween($sConfigRead, $kFPWorldGenSeed, "}") Global $aFPWorldGenSeed = _ArrayToString($xFPWorldGenSeed) Local $xFPWorldGenSize = _StringBetween($sConfigRead, $kFPWorldGenSize, "}") Global $aFPWorldGenSize = _ArrayToString($xFPWorldGenSize) Local $xFPGameName = _StringBetween($sConfigRead, $kFPGameName, "}") Global $aFPGameName = _ArrayToString($xFPGameName) Local $xFPGameDifficulty = _StringBetween($sConfigRead, $kFPGameDifficulty, "}") Global $aFPGameDifficulty = _ArrayToString($xFPGameDifficulty) Local $xFPAdminFileName = _StringBetween($sConfigRead, $kFPAdminFileName, "}") Global $aFPAdminFileName = _ArrayToString($xFPAdminFileName) Local $xFPDropOnDeath = _StringBetween($sConfigRead, $kFPDropOnDeath, "}") Global $aFPDropOnDeath = _ArrayToString($xFPDropOnDeath) Local $xMaxPlayers = _StringBetween($sConfigRead, $kMaxPlayers, "}") Global $aMaxPlayers = _ArrayToString($xMaxPlayers) Local $xFPServerLoginConfirmationText = _StringBetween($sConfigRead, $kFPServerLoginConfirmationText, "}") Global $aFPServerLoginConfirmationText = _ArrayToString($xFPServerLoginConfirmationText) $aServerQueryName = $aServerName If $aServerSaveGame = "absolute path" Then Global $aServerSaveGame = _PathFull("7DaysToDieFolder", @AppDataDir) EndIf If $aServerDataFolder = "absolute path" Then Global $aServerDataFolder = $aServerDirLocal & "\UserData" EndIf If $aServerTelnetEnable = "no" Or $aServerTelnetEnable = "false" Then LogWrite(" . . . Server telnet was disabled. Telnet required for this utility. TelnetEnabled set to: true") $aServerTelnetReboot = "yes" $aServerRebootReason = $aServerRebootReason & "Telnet was disabled." & @CRLF EndIf Global $aServerTelnetEnable = "true" If $aTelnetPort = "" Then LogWrite(" . . . Server telnet port was blank. Port CHANGED to default value: 8081") $aTelnetPort = "8081" $aServerTelnetReboot = "yes" $aServerRebootReason = $aServerRebootReason & "Telnet port was blank." & @CRLF EndIf If $aTelnetPass = "CHANGEME" Or $aTelnetPass = "" Then If $sObfuscatePass = "yes" Then LogWrite(" . . . Server telnet password was " & $aTelnetPass & ". Password CHANGED to: [hidden]. Recommend change telnet password in " & $aConfigFile) Else LogWrite(" . . . Server telnet password was " & $aTelnetPass & ". Password CHANGED to: 7dtdServerUpdateUtility. Recommend change telnet password in " & $aConfigFile) EndIf Global $aTelnetPass = "7dtdServerUpdateUtility" $aServerTelnetReboot = "yes" $aServerRebootReason = $aServerRebootReason & "Telnet password was blank or CHANGEME." & @CRLF EndIf If $aServerTerminalWindow = "false" Then Else LogWrite(" . . . Terminal window was enabled. Utility cannot function with it enabled. Terminal window set to: false") $aServerTelnetReboot = "yes" $aServerRebootReason = $aServerRebootReason & "Terminal window was enabled." & @CRLF EndIf LogWrite(" [Config] Retrieving data from " & $aConfigFile & ".") LogWrite("", " . . . Server Port = " & $aServerPort) LogWrite("", " . . . Server Name = " & $aServerName) LogWrite("", " . . . Server Telnet Port = " & $aTelnetPort) If $sObfuscatePass = "no" Then LogWrite("", " . . . Server Telnet Password = " & $aTelnetPass) Else LogWrite("", " . . . Server Telnet Password = [hidden]" & $aTelnetPass) EndIf LogWrite("", " . . . Server Save Game Folder = " & $aServerSaveGame) LogWrite("", " . . . Server UserData Folder = " & $aServerDataFolder) FileClose($sConfigRead) AppendConfigSettings() EndFunc #EndRegion If $aUseSteamCMD = "yes" Then Local $sFileExists = FileExists($aSteamCMDDir & "\steamcmd.exe") If $sFileExists = 0 Then SplashTextOn($aUtilName, $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Downloading and installing SteamCMD.", 400, 110, -1, -1, $DLG_MOVEABLE, "") InetGet("https://steamcdn-a.akamaihd.net/client/installer/steamcmd.zip", @ScriptDir & "\steamcmd.zip", 0) DirCreate($aSteamCMDDir) _ExtractZip(@ScriptDir & "\steamcmd.zip", "", "steamcmd.exe", $aSteamCMDDir) FileDelete(@ScriptDir & "\steamcmd.zip") LogWrite(" [Steam Update] Running SteamCMD. [steamcmd.exe +quit]") RunWait("" & $aSteamCMDDir & "\steamcmd.exe +quit", @SW_MINIMIZE) If Not FileExists($aSteamCMDDir & "\steamcmd.exe") Then MsgBox(0x0, "SteamCMD Not Found", "Could not find steamcmd.exe at " & $aSteamCMDDir) _ExitUtil() EndIf EndIf Else Local $cFileExists = FileExists($aServerDirLocal & "\" & $aServerEXE) If $cFileExists = 0 Then MsgBox(0x0, "7 Days To Die Server Not Found", "Could not find " & $aServerEXE & " at " & $aServerDirLocal) _ExitUtil() EndIf EndIf _SteamCMDCommandlineRead() If $aSteamUpdateCommandline = "" Then _SteamCMDCreate() _SteamCMDCommandlineWrite() EndIf Func _SteamCMDCommandlineWrite() UpdateIni($aIniFile) EndFunc Func _SteamCMDCommandlineRead() $tRead = FileRead($aIniFile) $aSteamUpdateCommandline = _ArrayToString(_StringBetween($tRead, '<--- BEGIN SteamCMD CODE --->' & @CRLF, '<--- END SteamCMD CODE --->')) EndFunc Func _SteamCMDCreate() Local $ServExp = "" If $aServerVer = "public" Then Else $ServExp = " -beta " & $aServerVer EndIf If $aSteamCMDUserName = "" Then Local $tLogin = "anonymous" Else Local $tLogin = $aSteamCMDUserName EndIf Local $tCmd = 'SET steampath=' & $aSteamCMDDir & @CRLF & 'SET gamepath=' & $aServerDirLocal & @CRLF & '"%steampath%\steamcmd.exe" +@ShutdownOnFailedCommand 1 +@NoPromptForPassword 1 +login ' & $tLogin & ' ' & $aSteamCMDPassword & ' +force_install_dir "%gamepath%" +app_update ' & $aSteamAppID & ' ' & $ServExp If $aValidate = "yes" Then $tCmd &= " validate +quit" Else $tCmd &= " +quit" EndIf $aSteamUpdateCommandline = $tCmd _SteamCMDCommandlineWrite() _SteamCMDBatchFilesCreate() EndFunc _SteamCMDBatchFilesCreate() Func _SteamCMDBatchFilesCreate() #Region FileDelete($aSteamUpdateCMDValY) FileDelete($aSteamUpdateCMDValN) If StringInStr($aSteamUpdateCommandline, "validate") Then FileWrite($aSteamUpdateCMDValY, $aSteamUpdateCommandline) Else FileWrite($aSteamUpdateCMDValY, StringReplace($aSteamUpdateCommandline, "+quit", "vaidate +quit")) EndIf If StringInStr($aSteamUpdateCommandline, "validate") Then FileWrite($aSteamUpdateCMDValN, StringReplace($aSteamUpdateCommandline, " validate", "")) Else FileWrite($aSteamUpdateCMDValN, $aSteamUpdateCommandline) EndIf Local $xArray[85] $xArray[0] = '@echo off' $xArray[1] = 'rem Starts a dedicated server' $xArray[2] = 'rem' $xArray[3] = 'rem -quit, -batchmode, -nographics: Unity commands' $xArray[4] = 'rem -configfile : Allows server settings to be set up in an xml config file. Use no path if in same dir or full path.' $xArray[5] = 'rem -dedicated : Has to be the last option to start the dedicated server.' $xArray[6] = '' $xArray[7] = 'set LOGTIMESTAMP=' $xArray[8] = '' $xArray[9] = '' $xArray[10] = 'IF EXIST 7DaysToDieServer.exe (' $xArray[11] = ' set GAMENAME=7DaysToDieServer' $xArray[12] = ' set LOGNAME=output_log_dedi' $xArray[13] = ') ELSE (' $xArray[14] = ' set GAMENAME=7DaysToDie' $xArray[15] = ' set LOGNAME=output_log' $xArray[16] = ')' $xArray[17] = '' $xArray[18] = ':: --------------------------------------------' $xArray[19] = ':: REMOVE OLD LOGS (only keep latest 20)' $xArray[20] = '' $xArray[21] = 'for /f "tokens=* skip=19" %%F in (' & "'dir %GAMENAME%_Data\%LOGNAME%*.txt /o-d /tc /b'" & ") do del %GAMENAME%_Data\%%F" $xArray[22] = '' $xArray[23] = '' $xArray[24] = '' $xArray[25] = ':: --------------------------------------------' $xArray[26] = ':: BUILDING TIMESTAMP FOR LOGFILE' $xArray[27] = '' $xArray[28] = ':: Check WMIC is available' $xArray[29] = 'WMIC.EXE Alias /? >NUL 2>&1 || GOTO s_start' $xArray[30] = '' $xArray[31] = ':: Use WMIC to retrieve date and time' $xArray[32] = 'FOR /F "skip=1 tokens=1-6" %%G IN (' & "'WMIC Path Win32_LocalTime Get Day^,Hour^,Minute^,Month^,Second^,Year /Format:table'" & ") DO (" $xArray[33] = ' IF "%%~L"=="" goto s_done' $xArray[34] = ' Set _yyyy=%%L' $xArray[35] = ' Set _mm=00%%J' $xArray[36] = ' Set _dd=00%%G' $xArray[37] = ' Set _hour=00%%H' $xArray[38] = ' Set _minute=00%%I' $xArray[39] = ' Set _second=00%%K' $xArray[40] = ')' $xArray[41] = ':s_done' $xArray[42] = '' $xArray[43] = ':: Pad digits with leading zeros' $xArray[44] = 'Set _mm=%_mm:~-2%' $xArray[45] = 'Set _dd=%_dd:~-2%' $xArray[46] = 'Set _hour=%_hour:~-2%' $xArray[47] = 'Set _minute=%_minute:~-2%' $xArray[48] = 'Set _second=%_second:~-2%' $xArray[49] = '' $xArray[50] = 'Set LOGTIMESTAMP=__%_yyyy%-%_mm%-%_dd%__%_hour%-%_minute%-%_second%' $xArray[51] = '' $xArray[52] = ':s_start' $xArray[53] = '' $xArray[54] = '' $xArray[55] = ':: --------------------------------------------' $xArray[56] = ':: STARTING SERVER' $xArray[57] = '' $xArray[58] = '' $xArray[59] = 'echo|set /p="251570" > steam_appid.txt' $xArray[60] = 'set SteamAppId=251570' $xArray[61] = 'set SteamGameId=251570' $xArray[62] = '' $xArray[63] = 'set LOGFILE=%~dp0\%GAMENAME%_Data\%LOGNAME%%LOGTIMESTAMP%.txt' $xArray[64] = '' $xArray[65] = '' $xArray[66] = 'echo Writing log file to: %LOGFILE%' $xArray[67] = '' $xArray[68] = 'start %GAMENAME% -logfile "%LOGFILE%" -quit -batchmode -nographics -configfile=' & $aConfigFile & ' -dedicated' $xArray[69] = '' $xArray[70] = '' $xArray[71] = 'echo Starting server ...' $xArray[72] = 'timeout 15' $xArray[73] = '' $xArray[74] = 'cls' $xArray[75] = '' $xArray[76] = 'echo.' $xArray[77] = 'echo Server running in background, you can close this window.' $xArray[78] = 'echo You can check the task manager if the server process is really running.' $xArray[79] = 'echo.' $xArray[80] = 'echo.' $xArray[81] = '' $xArray[82] = 'pause' FileDelete($aServerDirLocal & "\Start_7DTD_Dedicated_Server.bat") _FileWriteFromArray($aServerDirLocal & "\Start_7DTD_Dedicated_Server.bat", $xArray) FileDelete($aBatchDIR & "\Start_7DTD_Dedicated_Server.bat") Local $xArray[2] $xArray[0] = '@echo off' $xArray[1] = 'start "7 Days To Die Dedicated Server" /D "' & $aServerDirLocal & '" Start_7DTD_Dedicated_Server.bat"' _FileWriteFromArray($aBatchDIR & "\Start_7DTD_Dedicated_Server.bat", $xArray) #EndRegion Global $aUtilExe = @ScriptName FileDelete($aServerBatchFile) FileWrite($aServerBatchFile, '@echo off' & @CRLF & 'START "' & $aUtilName & '" "' & @ScriptDir & '\' & $aUtilExe & '"' & @CRLF & "EXIT") EndFunc #Region If ($aCheckForUpdate = "yes") Then ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Checking for server updates.") LogWrite(" [Update] Running initial update check . . ") Local $bRestart = UpdateCheck(True, $tSplash, True) If $bRestart Then If ProcessExists($aServerPID) Then $aBeginDelayedShutdown = 1 ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Server outdated. Server update scheduled.") Sleep(5000) Else ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Server outdated. Server update process inititiated.") SteamUpdate() EndIf EndIf SplashOff() EndIf #EndRegion ExternalScriptExist() _StartRemoteRestart() Func _StartRemoteRestart() If $aRemoteRestartUse = "yes" Then ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Starting Remote Restart.") TCPStartup() Global $MainSocket = TCPListen($aServerIP, $aRemoteRestartPort, 100) If $MainSocket = -1 Then MsgBox(0x0, "Remote Restart", "Could not bind to [" & $aServerIP & ":" & $aRemoteRestartPort & "] Check server IP or disable Remote Restart in INI", 10) LogWrite(" [Remote Restart] Remote Restart enabled but could not bind to " & $aServerIP & ":" & $aRemoteRestartPort) Else If $sObfuscatePass = "no" Then LogWrite(" [Remote Restart] Remote Restart enabled. Listening for restart request at http://" & $aServerIP & ":" & $aRemoteRestartPort & "/?[key]=[password]", " [Remote Restart] Remote Restart enabled. Listening for restart request at http://" & $aServerIP & ":" & $aRemoteRestartPort & "/?" & $aRemoteRestartKey & "=" & $aRemoteRestartCode) Else LogWrite(" [Remote Restart] Remote Restart enabled. Listening for restart request at http://" & $aServerIP & ":" & $aRemoteRestartPort & "/?[key]=[password]") EndIf EndIf EndIf EndFunc ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Preparing icon tray.") Opt("TrayMenuMode", 3) Opt("TrayOnEventMode", 1) Global $iTrayQueryServerName = TrayCreateItem("PID(" & $aServerPID & ") " & $aServerQueryName) TrayItemSetOnEvent(-1, "TrayShowPlayerCount") Global $iTrayQueryPlayers = TrayCreateItem("Players Online: [Enable Query or Online Player Check]") TrayItemSetOnEvent(-1, "TrayShowPlayerCount") TrayCreateItem("") Local $iTrayExitCloseN = TrayCreateItem("Util CONFIG") TrayItemSetOnEvent(-1, "TrayUtilConfig") Local $iTrayExitCloseN = TrayCreateItem("Util LOG") TrayItemSetOnEvent(-1, "TrayUtilLog") Local $iTrayAbout = TrayCreateItem("About") TrayItemSetOnEvent(-1, "TrayAbout") Local $iTrayAbout = TrayCreateItem("Restart Util") TrayItemSetOnEvent(-1, "TrayRestartUtil") Local $iTrayUpdateUtilCheck = TrayCreateItem("Check for Util Update") TrayItemSetOnEvent(-1, "TrayUpdateUtilCheck") Local $iTrayUpdateUtilPause = TrayCreateItem("Pause Util") TrayItemSetOnEvent(-1, "TrayUpdateUtilPause") TrayCreateItem("") Local $iTrayBackupFocused = TrayCreateItem("Backup: Focused (Save & Config Files)") TrayItemSetOnEvent(-1, "TrayBackupFocused") Local $iTrayBackupFocused = TrayCreateItem("Backup: Full (Entire Server & Config)") TrayItemSetOnEvent(-1, "TrayBackupFull") TrayCreateItem("") Local $iTraySendMessage = TrayCreateItem("Send global chat message") TrayItemSetOnEvent(-1, "TraySendMessage") Local $iTraySendInGame = TrayCreateItem("Send telnet command") TrayItemSetOnEvent(-1, "TraySendInGame") TrayCreateItem("") Local $iTrayPlayerCount = TrayCreateItem("Show Online Players Window") TrayItemSetOnEvent(-1, "TrayShowPlayerCount") Local $iTrayPlayerCheckPause = TrayCreateItem("Disable Online Players Check/Log") TrayItemSetOnEvent(-1, "TrayShowPlayerCheckPause") Local $iTrayPlayerCheckUnPause = TrayCreateItem("Enable Online Players Check/Log") TrayItemSetOnEvent(-1, "TrayShowPlayerCheckUnPause") TrayCreateItem("") Local $iTrayUpdateServCheck = TrayCreateItem("Check for Server Update") TrayItemSetOnEvent(-1, "TrayUpdateServCheck") Local $iTrayUpdateServPause = TrayCreateItem("Disable Server Update Check") TrayItemSetOnEvent(-1, "TrayUpdateServPause") Local $iTrayUpdateServUnPause = TrayCreateItem("Enable Server Update Check") TrayItemSetOnEvent(-1, "TrayUpdateServUnPause") TrayCreateItem("") Local $iTrayRemoteRestart = TrayCreateItem("Initiate Remote Restart") TrayItemSetOnEvent(-1, "TrayRemoteRestart") Local $iTrayRestartNow = TrayCreateItem("Restart Server Now") TrayItemSetOnEvent(-1, "TrayRestartNow") TrayCreateItem("") Local $iTrayExitCloseN = TrayCreateItem("Server CONFIG") TrayItemSetOnEvent(-1, "TrayServerConfig") Local $iTrayExitCloseN = TrayCreateItem("Server LOG") TrayItemSetOnEvent(-1, "TrayServerLog") TrayCreateItem("") Local $iTrayExitCloseN = TrayCreateItem("Exit: Do NOT Shut Down Servers") TrayItemSetOnEvent(-1, "TrayExitCloseN") Local $iTrayExitCloseY = TrayCreateItem("Exit: Shut Down Servers") TrayItemSetOnEvent(-1, "TrayExitCloseY") If $aCheckForUpdate = "yes" Then TrayItemSetState($iTrayUpdateServPause, $TRAY_ENABLE) TrayItemSetState($iTrayUpdateServUnPause, $TRAY_DISABLE) Else TrayItemSetState($iTrayUpdateServPause, $TRAY_DISABLE) TrayItemSetState($iTrayUpdateServUnPause, $TRAY_ENABLE) EndIf If $aServerOnlinePlayerYN = "yes" Then TrayItemSetState($iTrayPlayerCheckPause, $TRAY_ENABLE) TrayItemSetState($iTrayPlayerCheckUnPause, $TRAY_DISABLE) Else TrayItemSetState($iTrayPlayerCheckPause, $TRAY_DISABLE) TrayItemSetState($iTrayPlayerCheckUnPause, $TRAY_ENABLE) EndIf TraySetState($TRAY_ICONSTATE_SHOW) Func TrayAbout() MsgBox($MB_SYSTEMMODAL, $aUtilName, $aUtilName & @CRLF & "Version: " & $aUtilVersion & @CRLF & @CRLF & "Install Path: " & @ScriptDir & @CRLF & @CRLF & "Discord: http://discord.gg/EU7pzPs" & @CRLF & "Website: http://www.phoenix125.com", 15) EndFunc Func TrayRestartUtil() _RestartUtil() EndFunc If WinExists($hGUI_LoginLogo) Then GUIDelete($hGUI_LoginLogo) ShowOnlineGUI(True) _UpdateTray() If $aUpdateUtil = "yes" Then AdlibRegister("RunUtilUpdate", 28800000) Func RunUtilUpdate() UtilUpdate($aServerUpdateLinkVerUse, $aServerUpdateLinkDLUse, $aUtilVersion, $aUtilName) EndFunc Global $gTelnetTimeCheck0 = _NowCalc() Global $gQueryTimeCheck0 = _DateAdd('h', -2, _NowCalc()) Global $gServerUpdatedTimeCheck0 = IniRead($aUtilCFGFile, "CFG", "Last Server Update", "no") If $gServerUpdatedTimeCheck0 = "no" Then $gServerUpdatedTimeCheck0 = _NowCalc() IniWrite($aUtilCFGFile, "CFG", "Last Server Update", $gServerUpdatedTimeCheck0) EndIf $aServerCheck = TimerInit() $aTelnetCheckTimer = TimerInit() If ProcessExists($aServerPID) Then $aTimeCheck8 = _DateAdd('h', -1, $aTimeCheck8) $aServerCheck = _DateAdd('h', -1, $aServerCheck) Else $aServerCheck = _DateAdd('h', -1, $aServerCheck) ControlSetText($tSplash, "", "Static1", "Preparing to start server...") EndIf While True #Region If $aTelnetMonitorAllYN = "yes" Then If TimerDiff($aTelnetCheckTimer) > ($aTelnetTrafficCheckSec * 1000) Then _TelnetLookForAll(_PlinkRead()) If $aTelnetStayConnectedYN = "no" Then _PlinkDisconnect() $aTelnetCheckTimer = TimerInit() EndIf EndIf If TimerDiff($aServerCheck) > 10000 Then TraySetToolTip("Server process check in progress...") TraySetIcon(@ScriptName, 201) If $aRemoteRestartUse = "yes" Then Local $sRestart = _RemoteRestart($MainSocket, $aRemoteRestartCode, $aRemoteRestartKey, $sObfuscatePass, $aServerIP, $aServerName) Switch @error Case 0 If ProcessExists($aServerPID) And ($aBeginDelayedShutdown = 0) Then Local $MEM = ProcessGetStats($aServerPID, 0) LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] [Work Memory:" & $MEM[0] & " | Peak Memory:" & $MEM[1] & "] " & $sRestart) If ($sUseDiscordBotDaily = "yes") Or ($sUseDiscordBotUpdate = "yes") Or ($sUseTwitchBotDaily = "yes") Or ($sUseTwitchBotUpdate = "yes") Or ($sInGameAnnounce = "yes") Then $aBeginDelayedShutdown = 1 $aRebootReason = "remoterestart" $aTimeCheck0 = _NowCalc Else RunExternalRemoteRestart() CloseServer($aTelnetIP, $aTelnetPort, $aTelnetPass) EndIf EndIf Case 1 To 4 LogWrite(" " & $sRestart & @CRLF) EndSwitch EndIf #EndRegion #Region If Not ProcessExists($aServerPID) Then $tReturn = _CheckForExistingServer() If $tReturn = 0 Then $aBeginDelayedShutdown = 0 $tSplash = SplashTextOn($aUtilName, "Starting server.", 550, 110, -1, -1, $DLG_MOVEABLE, "") If $aExecuteExternalScript = "yes" Then LogWrite(" Executing External Script " & $aExternalScriptDir & "\" & $aExternalScriptName) If $aExternalScriptAnnounceWait = "no" Then If $aExternalScriptHideYN = "yes" Then Run($aExternalScriptFile, @SW_HIDE) Else Run($aExternalScriptFile) EndIf Else If $aExternalScriptHideYN = "yes" Then RunWait($aExternalScriptFile, @SW_HIDE) Else RunWait($aExternalScriptFile) EndIf EndIf EndIf $LogTimeStamp = $aServerDirLocal & '\7DaysToDieServer_Data\output_log_dedi' & StringRegExpReplace(_NowCalc(), "[\\\/\: ]", "_") & ".txt" IniWrite($aUtilCFGFile, "CFG", "Last Log Time Stamp", $LogTimeStamp) Local $tRun = "" & $aServerDirLocal & "\" & $aServerEXE & ' -logfile "' & $LogTimeStamp & '" -quit -batchmode -nographics ' & $aServerExtraCMD & " -configfile=" & $aConfigFileTemp & " -dedicated" PurgeLogFile() $aServerPID = Run($tRun, $aServerDirLocal, @SW_HIDE) LogWrite(" [Server] **** Server Started **** PID(" & $aServerPID & ")", " [Server] **** Server Started **** PID(" & $aServerPID & ") [" & $tRun & "]") $gWatchdogServerStartTimeCheck = _NowCalc() IniWrite($aUtilCFGFile, "CFG", "Last Server Start", $gWatchdogServerStartTimeCheck) ControlSetText($tSplash, "", "Static1", "Server Started." & @CRLF & @CRLF & "PID[" & $aServerPID & "]") $gTelnetTimeCheck0 = _NowCalc() $tQueryLogReadDoneTF = False $aFPCount = $aFPCount + 1 If ($aFPCount = 3) And ($aFPAutoUpdateYN = "yes") Then FPRun() Sleep(3000) ControlSetText($tSplash, "", "Static1", "Server Started." & @CRLF & @CRLF & "Retrieving server version from log.") Local $sLogPath = $LogTimeStamp Local $sLogPathOpen = FileOpen($sLogPath, 0) Local $sLogRead = StringLeft(FileRead($sLogPathOpen), 2500) $aGameVer = _ArrayToString(_StringBetween($sLogRead, "INF Version: ", " Compatibility Version")) FileClose($sLogPath) If $aGameVer = "-1" Then Sleep(2000) Local $sLogPath = $LogTimeStamp Local $sLogPathOpen = FileOpen($sLogPath, 0) Local $sLogRead = StringLeft(FileRead($sLogPathOpen), 2500) $xGameVer = _StringBetween($sLogRead, "INF Version: ", " Compatibility Version") If @error Then ControlSetText($tSplash, "", "Static1", "Server Started." & @CRLF & @CRLF & "Unable to retrieve server version from log.") Sleep(5000) $aGameVer = "[Unable to retrieve]" Else $aGameVer = $xGameVer[0] EndIf $aGameVer = _ArrayToString(_StringBetween($sLogRead, "INF Version: ", " Compatibility Version")) FileClose($sLogPath) EndIf ControlSetText($tSplash, "", "Static1", "Server Started." & @CRLF & @CRLF & "Server Version: " & $aGameVer) LogWrite(" [Server] Server version: " & $aGameVer & ".", " [Server] Server version: " & $aGameVer & ". Version derived from """ & $LogTimeStamp & """.") IniWrite($aUtilCFGFile, "CFG", "Last Server Version", $aGameVer) Sleep(3000) Local $tRebootTF = False If $aAppendVerBegin = "yes" Or $aAppendVerEnd = "yes" Then ControlSetText($tSplash, "", "Static1", "Server Started." & @CRLF & @CRLF & "Waiting for Server Name to be written in log") $aServerNamFromLog = _GetServerNameFromLog($tSplash) Local $tConfigPathOpen = FileOpen($aConfigFileTempFull, 0) Local $tConfigRead2 = FileRead($tConfigPathOpen) FileClose($tConfigPathOpen) Local $tConfigRead1 = StringRegExpReplace($tConfigRead2, "", "") Local $sConfigFileTempExists = FileExists($aConfigFileTempFull) If $sConfigFileTempExists = 1 Then FileDelete($aConfigFileTempFull) EndIf FileWrite($aConfigFileTempFull, $tConfigRead1) If ($aAppendVerBegin = "no") And ($aAppendVerEnd = "no") Then $aServerNameVer = $aServerName Else If $aGameVer = "[Unable to retrieve]" Then $aServerNameVer = $aServerName Else If $aAppendVerShort = "short" Then $aGameVerTemp1 = $aGameVer $aGameVerTemp1 = _StringBetween($aGameVerTemp1, "(", ")") $aGameVer = _ArrayToString($aGameVerTemp1) EndIf $aServerNameVer = $aServerName If $aAppendVerBegin = "yes" Then $aServerNameVer = $aGameVer & $aServerNameVer EndIf If $aAppendVerEnd = "yes" Then $aServerNameVer = $aServerNameVer & $aGameVer EndIf EndIf $aPropertyName = "ServerName" FileWriteLine($aConfigFileTempFull, "") IniWrite($aUtilCFGFile, "CFG", "Last Server Name", $aServerNameVer) EndIf If $aServerNamFromLog = $aServerNameVer Then LogWrite("", " [Server] Running server name contains correct server name. No restart necessary. [" & $aServerNameVer & "]") Else If $aServerNamFromLog = "[Unable to retrieve]" Then ControlSetText($tSplash, "", "Static1", "Server Started." & @CRLF & @CRLF & "Unable to retrieve server name from log.") Sleep(5000) Else $tRebootTF = True LogWrite("", " [Server] Changing Server Name to [" & $aServerNameVer & "]. Reboot necessary") EndIf EndIf EndIf If $aWipeServer = "no" Then $aGameName = "[no change]" Else Local $tGameName = IniRead($aUtilCFGFile, "CFG", "Last Game Name", $aFPGameName) $aPropertyName = "GameName" $aGameName = StringRegExpReplace($aGameVer, "[\(\)]", "") FileWriteLine($aConfigFileTempFull, "") LogWrite("", " [Server] Changing GameName to """ & $aGameName & """ in " & $aConfigFileTempFull & ".") IniWrite($aUtilCFGFile, "CFG", "Last Game Name", $aGameName) If $tGameName = $aGameName Then LogWrite(" [Server] Running server Game Name = Appended server Game Name. No restart necessary.", " [Server] Running server Game Name = Appended server Game Name. No restart necessary. [" & $aGameName & "]") Else $tRebootTF = True EndIf EndIf If $aAppendVerBegin = "yes" Or $aAppendVerEnd = "yes" Or $aWipeServer = "yes" Then FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") EndIf If $aQueryYN = "no" Then $aServerQueryName = $aServerNamFromLog If $tRebootTF Then ControlSetText($tSplash, "", "Static1", "Restarting server to apply config change(s)." & @CRLF & "Server name: " & $aServerNameVer & @CRLF & "Game Name: " & $aGameName) LogWrite(" [Server] ----- Restarting server to apply config change(s).") $aRebootConfigUpdate = "yes" $aRebootMe = "no" $aServerTelnetReboot = "no" CloseServer($aTelnetIP, $aTelnetPort, $aTelnetPass) EndIf SplashOff() Else LogWrite("", " [Server} Notice! Utility reported server PID(" & $aServerPID & ") not running, but searched and found a running server PID(" & $tReturn & "). New PID assigned.") $aServerPID = $tReturn SplashOff() EndIf If @error Or Not $aServerPID Then If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer $iMsgBoxAnswer = MsgBox(262405, "Server Failed to Start", "The server tried to start, but it failed. Try again? This will automatically close in 60 seconds and try to start again.", 60) Select Case $iMsgBoxAnswer = 4 LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] Server Failed to Start. User Initiated a Restart Attempt.") Case $iMsgBoxAnswer = 2 LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] Server Failed to Start - " & $aUtilName & " Shutdown - Initiated by User") _ExitUtil() Case $iMsgBoxAnswer = -1 LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] Server Failed to Start. Script Initiated Restart Attempt after 60 seconds of no User Input.") EndSelect EndIf IniWrite($aUtilCFGFile, "CFG", "PID", $aServerPID) ElseIf ((_DateDiff('n', $aTimeCheck1, _NowCalc())) >= 5) Then Local $MEM = ProcessGetStats($aServerPID, 0) If $MEM[0] > $aExMemAmt And $aExMemRestart = "yes" Then LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] Work Memory:" & $MEM[0] & " Peak Memory:" & $MEM[1] & " Excessive Memory Use - Restart requested by " & $aUtilName & " Script", " [" & $aServerName & " (PID: " & $aServerPID & ")] Work Memory:" & $MEM[0] & " Peak Memory:" & $MEM[1]) CloseServer($aTelnetIP, $aTelnetPort, $aTelnetPass) EndIf $aTimeCheck1 = _NowCalc() EndIf If $aQueryYN = "no" And $tQueryLogReadDoneTF = False Then Local $tDiffStart = _DateDiff('n', $gWatchdogServerStartTimeCheck, _NowCalc()) If $tDiffStart < 1 Then Else $aServerNamFromLog = _GetServerNameFromLog($tSplash) $tQueryLogReadDoneTF = True EndIf EndIf #EndRegion #Region If $aServerOnlinePlayerYN = "yes" Then If ((_DateDiff('s', $aTimeCheck8, _NowCalc())) >= $aServerOnlinePlayerSec) Then _PlayersOnlineCheck() $aTimeCheck8 = _NowCalc() EndIf EndIf #EndRegion #Region If (($aRestartDaily = "yes") And ((_DateDiff('n', $aTimeCheck2, _NowCalc())) >= 1) And (DailyRestartCheck($aRestartDays, $aRestartHours, $aRestartMin)) And ($aBeginDelayedShutdown = 0)) Then If ProcessExists($aServerPID) Then Local $MEM = ProcessGetStats($aServerPID, 0) LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] Work Memory:" & $MEM[0] & " Peak Memory:" & $MEM[1] & " - Daily restart requested by " & $aUtilName & ".") If $aDelayShutdownTime Not = 0 Then $aBeginDelayedShutdown = 1 $aRebootReason = "daily" $aTimeCheck0 = _NowCalc $aAnnounceCount1 = $aAnnounceCount1 + 1 Else RunExternalScriptDaily() CloseServer($aTelnetIP, $aTelnetPort, $aTelnetPass) EndIf EndIf $aTimeCheck2 = _NowCalc() EndIf #EndRegion #Region If ($aBackupYN = "yes") And ((_DateDiff('n', $aTimeCheck4, _NowCalc())) >= 1) And (BackupCheck($aBackupDays, $aBackupHours, $aBackupMin)) Then _BackupGame(True) $aTimeCheck4 = _NowCalc() EndIf #EndRegion #Region If ($aTelnetCheckYN = "yes") And (_DateDiff('s', $gTelnetTimeCheck0, _NowCalc()) >= $aTelnetCheckSec) Then Local $tSkipUpdateCheckTF = False Local $tSkipStartCheckTF = False Local $tDiffUpdate = _DateDiff('n', $gServerUpdatedTimeCheck0, _NowCalc()) Local $tDiffStart = _DateDiff('n', $gWatchdogServerStartTimeCheck, _NowCalc()) If $tDiffUpdate <= $aWatchdogWaitServerUpdate Then $tSkipUpdateCheckTF = True LogWrite("", " [Telnet] KeepAlive check SKIPPED due to Server Update: " & Int($aWatchdogWaitServerUpdate - $tDiffUpdate) & " minutes remain.") EndIf If $tDiffStart <= $aWatchdogWaitServerStart Then $tSkipStartCheckTF = True LogWrite("", " [Telnet] KeepAlive check SKIPPED due to Server Start: " & Int($aWatchdogWaitServerStart - $tDiffStart) & " minutes remain.") EndIf If $tSkipUpdateCheckTF = False And $tSkipStartCheckTF = False Then For $i = 1 To 6 $aReply = _PlinkSend("version") If $i = 6 Then $tFailedCountTelnet += 1 If $tFailedCountTelnet > $aWatchdogAttemptsBeforeRestart Then LogWrite(" [Telnet] KeepAlive check FAILED " & $aWatchdogAttemptsBeforeRestart & " attempts. Restarting server.") CloseServer($ip, $port, $pass) ExitLoop Else LogWrite(" [Telnet] KeepAlive check FAILED. Attempt " & $tFailedCountTelnet & " of " & $aWatchdogAttemptsBeforeRestart & ".") EndIf EndIf If StringInStr($aReply, "Game version") = 0 Then Sleep(1000) LogWrite("", " [Telnet] KeepAlive check failed. Count:" & $i & " of 5") Else $tFailedCountTelnet = 0 ExitLoop EndIf Next If $i < 6 Then LogWrite("", " [Telnet] KeepAlive check OK.") EndIf $gTelnetTimeCheck0 = _NowCalc() EndIf #EndRegion #Region If ($aQueryYN = "yes") And (_DateDiff('s', $gQueryTimeCheck0, _NowCalc()) >= $aQueryCheckSec) Then $tQueryResponseOK = _QueryCheck(True) $gQueryTimeCheck0 = _NowCalc() EndIf #EndRegion If $aGameTime = "Day 1, 00:00" Then Else If $aPlayersOnlineName <> IniRead($aUtilCFGFile, "CFG", "Players Name", "") Then _SendDiscordPlayer() IniWrite($aUtilCFGFile, "CFG", "Players Name", $aPlayersOnlineName) IniWrite($aUtilCFGFile, "CFG", "Last Online Player Count", $aPlayersCount) EndIf EndIf #Region If ($aCheckForUpdate = "yes") And ((_DateDiff('n', $aTimeCheck0, _NowCalc())) >= $aUpdateCheckInterval) And ($aBeginDelayedShutdown = 0) Then Local $bRestart = UpdateCheck(False) If $bRestart And (($sUseDiscordBotDaily = "yes") Or ($sUseDiscordBotUpdate = "yes") Or ($sUseTwitchBotDaily = "yes") Or ($sUseTwitchBotUpdate = "yes") Or ($sInGameAnnounce = "yes")) Then $aBeginDelayedShutdown = 1 $aRebootReason = "update" ElseIf $bRestart Then RunExternalScriptUpdate() CloseServer($aTelnetIP, $aTelnetPort, $aTelnetPass) $gServerUpdatedTimeCheck0 = _NowCalc() IniWrite($aUtilCFGFile, "CFG", "Last Server Update", $gServerUpdatedTimeCheck0) EndIf $aTimeCheck0 = _NowCalc() EndIf #EndRegion #Region If $aDelayShutdownTime Not = 0 Then If $aBeginDelayedShutdown = 1 Then RunExternalScriptAnnounce() If $aRebootReason = "daily" Then $aAnnounceCount0 = $aDailyCnt $aAnnounceCount1 = $aAnnounceCount0 - 1 If $aAnnounceCount1 = 0 Then $aDelayShutdownTime = 0 $aBeginDelayedShutdown = 3 Else $aDelayShutdownTime = $aDailyTime[$aAnnounceCount0] - $aDailyTime[$aAnnounceCount1] EndIf If $sInGameAnnounce = "yes" Then SendInGame($aTelnetIP, $aTelnetPort, $aTelnetPass, $aDailyMsgInGame[$aAnnounceCount0]) EndIf If $sUseDiscordBotDaily = "yes" Then _SendDiscordStatus($aDailyMsgDiscord[$aAnnounceCount0]) If $sUseTwitchBotDaily = "yes" Then TwitchMsgLog($aDailyMsgTwitch[$aAnnounceCount0]) EndIf EndIf If $aRebootReason = "remoterestart" Then $aAnnounceCount0 = $aRemoteCnt $aDelayShutdownTime = $aRemoteTime[$aAnnounceCount0] - $aRemoteTime[$aAnnounceCount1] $aAnnounceCount1 = $aAnnounceCount0 - 1 If $aAnnounceCount1 = 0 Then $aDelayShutdownTime = 0 $aBeginDelayedShutdown = 3 Else $aDelayShutdownTime = $aRemoteTime[$aAnnounceCount0] - $aRemoteTime[$aAnnounceCount1] EndIf If $sInGameAnnounce = "yes" Then SendInGame($aTelnetIP, $aTelnetPort, $aTelnetPass, $aRemoteMsgInGame[$aAnnounceCount0]) EndIf If $sUseDiscordBotRemoteRestart = "yes" Then _SendDiscordStatus($aRemoteMsgDiscord[$aAnnounceCount0]) If $sUseTwitchBotRemoteRestart = "yes" Then TwitchMsgLog($aRemoteMsgTwitch[$aAnnounceCount0]) EndIf EndIf If $aRebootReason = "update" Then $aAnnounceCount0 = $aUpdateCnt $aDelayShutdownTime = $aUpdateTime[$aAnnounceCount0] - $aUpdateTime[$aAnnounceCount1] $aAnnounceCount1 = $aAnnounceCount0 - 1 If $aAnnounceCount1 = 0 Then $aDelayShutdownTime = 0 $aBeginDelayedShutdown = 3 Else $aDelayShutdownTime = $aUpdateTime[$aAnnounceCount0] - $aUpdateTime[$aAnnounceCount1] EndIf If $sInGameAnnounce = "yes" Then SendInGame($aTelnetIP, $aTelnetPort, $aTelnetPass, $aUpdateMsgInGame[$aAnnounceCount0]) EndIf If $sUseDiscordBotUpdate = "yes" Then _SendDiscordStatus($aUpdateMsgDiscord[$aAnnounceCount0]) If $sUseTwitchBotUpdate = "yes" Then TwitchMsgLog($aUpdateMsgTwitch[$aAnnounceCount0]) EndIf EndIf $aBeginDelayedShutdown = 2 $aTimeCheck0 = _NowCalc() ElseIf ($aBeginDelayedShutdown > 2 And ((_DateDiff('n', $aTimeCheck0, _NowCalc())) >= $aDelayShutdownTime)) Then $aBeginDelayedShutdown = 0 $aTimeCheck0 = _NowCalc() If $aRebootReason = "daily" Then SplashTextOn($aUtilName, "Daily server request. Restarting server . . .", 350, 50, -1, -1, $DLG_MOVEABLE, "") RunExternalScriptDaily() EndIf If $aRebootReason = "update" Then SplashTextOn($aUtilName, "New server update. Restarting server . . .", 350, 50, -1, -1, $DLG_MOVEABLE, "") RunExternalScriptUpdate() $gServerUpdatedTimeCheck0 = _NowCalc() IniWrite($aUtilCFGFile, "CFG", "Last Server Update", $gServerUpdatedTimeCheck0) EndIf If $aRebootReason = "remoterestart" Then SplashTextOn($aUtilName, "Remote Restart request. Restarting server . . .", 350, 50, -1, -1, $DLG_MOVEABLE, "") RunExternalRemoteRestart() EndIf If $sInGameAnnounce = "yes" Then SendInGame($aTelnetIP, $aTelnetPort, $aTelnetPass, "FINAL WARNING! Rebooting server in 10 seconds...") Sleep(10000) EndIf CloseServer($aTelnetIP, $aTelnetPort, $aTelnetPass) ElseIf ($aBeginDelayedShutdown = 2) And (_DateDiff('n', $aTimeCheck0, _NowCalc()) >= $aDelayShutdownTime) Then If $aRebootReason = "daily" Then If $aAnnounceCount1 > 1 Then $aDelayShutdownTime = $aDailyTime[$aAnnounceCount1] - $aDailyTime[($aAnnounceCount1 - 1)] Else $aDelayShutdownTime = $aDailyTime[$aAnnounceCount1] EndIf If $sInGameAnnounce = "yes" Then SendInGame($aTelnetIP, $aTelnetPort, $aTelnetPass, $aDailyMsgInGame[$aAnnounceCount1]) EndIf If $sUseDiscordBotDaily = "yes" And ($sUseDiscordBotFirstAnnouncement = "no") Then _SendDiscordStatus($aDailyMsgDiscord[$aAnnounceCount1]) If $sUseTwitchBotDaily = "yes" And ($sUseTwitchFirstAnnouncement = "no") Then TwitchMsgLog($aDailyMsgTwitch[$aAnnounceCount1]) EndIf EndIf If $aRebootReason = "remoterestart" Then If $aAnnounceCount1 > 1 Then $aDelayShutdownTime = $aRemoteTime[$aAnnounceCount1] - $aRemoteTime[($aAnnounceCount1 - 1)] Else $aDelayShutdownTime = $aRemoteTime[$aAnnounceCount1] EndIf If $sInGameAnnounce = "yes" Then SendInGame($aTelnetIP, $aTelnetPort, $aTelnetPass, $aRemoteMsgInGame[$aAnnounceCount1]) EndIf If ($sUseDiscordBotRemoteRestart = "yes") And ($sUseDiscordBotFirstAnnouncement = "no") Then _SendDiscordStatus($aRemoteMsgDiscord[$aAnnounceCount1]) If $sUseTwitchBotRemoteRestart = "yes" And ($sUseTwitchFirstAnnouncement = "no") Then TwitchMsgLog($aRemoteMsgTwitch[$aAnnounceCount1]) EndIf EndIf If $aRebootReason = "update" Then If $aAnnounceCount1 > 1 Then $aDelayShutdownTime = $aUpdateTime[$aAnnounceCount1] - $aUpdateTime[($aAnnounceCount1 - 1)] Else $aDelayShutdownTime = $aUpdateTime[$aAnnounceCount1] EndIf If $sInGameAnnounce = "yes" Then SendInGame($aTelnetIP, $aTelnetPort, $aTelnetPass, $aUpdateMsgInGame[$aAnnounceCount1]) EndIf If $sUseDiscordBotUpdate = "yes" And ($sUseDiscordBotFirstAnnouncement = "no") Then _SendDiscordStatus($aUpdateMsgDiscord[$aAnnounceCount1]) If $sUseTwitchBotUpdate = "yes" And ($sUseTwitchFirstAnnouncement = "no") Then TwitchMsgLog($aUpdateMsgTwitch[$aAnnounceCount1]) EndIf EndIf $aAnnounceCount1 = $aAnnounceCount1 - 1 If $aAnnounceCount1 = 0 Then $aBeginDelayedShutdown = 3 EndIf $aTimeCheck0 = _NowCalc() EndIf Else $aBeginDelayedShutdown = 0 EndIf #EndRegion _UpdateTray() $aServerCheck = TimerInit() TraySetToolTip(@ScriptName) TraySetIcon(@ScriptName, 99) EndIf Sleep(100) WEnd #Region Func Gamercide() SplashOff() Local $aMsg = "Thank you for using " & $aUtilName & "." & @CRLF & "Please report any problems or comments to: " & @CRLF & "Discord: http://discord.gg/EU7pzPs or " & @CRLF & "Forum: http://phoenix125.createaforum.com/index.php. " & @CRLF & @CRLF & "Visit http://www.Phoenix125.com" If @exitMethod <> 1 Then $Shutdown = MsgBox($MB_YESNOCANCEL, $aUtilName, "Utility exited unexpectedly or before it was fully initialized." & @CRLF & @CRLF & "Close utility?" & @CRLF & @CRLF & "Click (YES) to shutdown server and exit utility." & @CRLF & "Click (NO) or (CANCEL) to exit utility but leave server running.", 60) If $Shutdown = 6 Then LogWrite(" [Server] Server Shutdown - Initiated by User when closing " & $aUtilityVer & " Script") CloseServer($aTelnetIP, $aTelnetPort, $aTelnetPass) SplashOff() If $aRemoteRestartUse = "yes" Then TCPShutdown() EndIf MsgBox(4096, $aUtilityVer, $aMsg, 20) LogWrite(" [Server] Stopped by User") IniWrite($aUtilCFGFile, "CFG", "PID", "0") _ExitUtil() ElseIf $Shutdown = 7 Then LogWrite(" [Server] Server Shutdown - Initiated by User when closing " & $aUtilityVer & " Script") If $aRemoteRestartUse = "yes" Then TCPShutdown() EndIf IniWrite($aUtilCFGFile, "CFG", "PID", $aServerPID) MsgBox(4096, $aUtilityVer, $aMsg, 20) LogWrite(" [Server] Stopped by User") _ExitUtil() ElseIf $Shutdown = 2 Then LogWrite(" [Server] Server Shutdown - Initiated by User when closing " & $aUtilityVer & " Script") If $aRemoteRestartUse = "yes" Then TCPShutdown() EndIf IniWrite($aUtilCFGFile, "CFG", "PID", $aServerPID) MsgBox(4096, $aUtilityVer, $aMsg, 20) LogWrite(" [Server] Stopped by User") EndIf Else LogWrite(" [Server] Server Shutdown - Initiated by User when closing " & $aUtilityVer & " Script") SplashOff() _ExitUtil() EndIf EndFunc #EndRegion Func BackupCheck($sWDays, $sHours, $sMin) Local $iDay = -1 Local $iHour = -1 Local $aDays = StringSplit($sWDays, ",") Local $aHours = StringSplit($sHours, ",") For $d = 1 To $aDays[0] $iDay = StringStripWS($aDays[$d], 8) If Int($iDay) = Int(@WDAY) Or Int($iDay) = 0 Then For $h = 1 To $aHours[0] $iHour = StringStripWS($aHours[$h], 8) If Int($iHour) = Int(@HOUR) And Int($sMin) = Int(@MIN) Then Return True EndIf Next EndIf Next Return False EndFunc Func _PlayersOnlineCheck() _GetPlayerCount() If $aQueryYN = "yes" Then $tQueryResponseOK = _QueryCheck(False) If $tQueryResponseOK Then $aServerReadyTF = True Else $aServerReadyTF = False EndIf EndIf If $aServerReadyTF And $aServerReadyOnce Then If $aNoExistingPID Then If $sUseDiscordBotServersUpYN = "yes" Then Local $aAnnounceCount3 = 0 If $aRebootReason = "remoterestart" And $sUseDiscordBotRemoteRestart = "yes" Then SplashTextOn($aUtilName, " Server online and ready for connection." & @CRLF & @CRLF & "Discord announcement sent . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") _SendDiscordStatus($sDiscordServersUpMessage) If StringLen($aGameTime) > 5 Then _SendDiscordPlayer() $aAnnounceCount3 = $aAnnounceCount3 + 1 EndIf If $aRebootReason = "update" And $sUseDiscordBotUpdate = "yes" And ($aAnnounceCount3 = 0) Then SplashTextOn($aUtilName, " Server online and ready for connection." & @CRLF & @CRLF & "Discord announcement sent . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") _SendDiscordStatus($sDiscordServersUpMessage) If StringLen($aGameTime) > 5 Then _SendDiscordPlayer() $aAnnounceCount3 = $aAnnounceCount3 + 1 EndIf If $aRebootReason = "mod" And $sUseDiscordBotUpdate = "yes" And ($aAnnounceCount3 = 0) Then SplashTextOn($aUtilName, " Server online and ready for connection." & @CRLF & @CRLF & "Discord announcement sent . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") _SendDiscordStatus($sDiscordServersUpMessage) If StringLen($aGameTime) > 5 Then _SendDiscordPlayer() $aAnnounceCount3 = $aAnnounceCount3 + 1 EndIf If $aRebootReason = "daily" And $sUseDiscordBotDaily = "yes" And ($aAnnounceCount3 = 0) Then SplashTextOn($aUtilName, " Server online and ready for connection." & @CRLF & @CRLF & "Discord announcement sent . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") _SendDiscordStatus($sDiscordServersUpMessage) If StringLen($aGameTime) > 5 Then _SendDiscordPlayer() $aAnnounceCount3 = $aAnnounceCount3 + 1 EndIf If $aFirstStartDiscordAnnounce And ($aAnnounceCount3 = 0) Then SplashTextOn($aUtilName, " Server online and ready for connection." & @CRLF & @CRLF & "Discord announcement sent . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") _SendDiscordStatus($sDiscordServersUpMessage) If StringLen($aGameTime) > 5 Then _SendDiscordPlayer() $aFirstStartDiscordAnnounce = False EndIf Else SplashTextOn($aUtilName, " Server online and ready for connection." & @CRLF & @CRLF & "Discord announcement NOT sent. Enable first announcement and/or daily, mod, update, remote restart annoucements in config if desired.", 400, 200, -1, -1, $DLG_MOVEABLE, "") EndIf Else SplashTextOn($aUtilName, " Server online and ready for connection." & @CRLF & @CRLF & "Discord announcement SKIPPED because server was already running or feature disabled in config.", 400, 110, -1, -1, $DLG_MOVEABLE, "") $aNoExistingPID = True EndIf $aServerReadyOnce = False Sleep(5000) SplashOff() EndIf EndFunc Func _BackupGame($tMinimizeTF = True, $tFullTF = False, $tRunWait = False) If $aBackupInGame <> "" Then LogWrite(" [Backup] In-Game Announcement sent: " & $aBackupInGame) SendInGame($aTelnetIP, $aTelnetPort, $aTelnetPass, $aBackupInGame) EndIf Local $tCount = IniRead($aUtilCFGFile, "CFG", "aLastBackupCount", 0) $tCount += 1 If $aBackupSendDiscordYN = "yes" Then _SendDiscordStatus($aBackupDiscord) If $aBackupSendTwitchYN = "yes" Then TwitchMsgLog($aBackupTwitch) _DownloadAndExtractFile("7z", "http://phoenix125.com/share/7dtdshare/7z.zip", "https://github.com/phoenix125/7dtdServerUpdateUtility/releases/download/LatestVersion/7z.zip", 0, $aFolderTemp, "7z.dll") Local $tTime = @YEAR & "-" & @MON & "-" & @MDAY & "_" & @HOUR & "-" & @MIN Local $tName = $aGameName1 & "_Backup_" & $tTime & ".zip" Local $tFull = $aBackupOutputFolder & "\" & $tName Local $tConfigPath = $aServerDirLocal & "\" & $aConfigFile Local $tCmd = '"' & $aFolderTemp & '7z" ' & $aBackupCommandLine & ' -xr0!"' & $aGameName1 & '_Backup*.zip" "' & $tFull & '" "' & $tConfigPath & '" "' & $aServerDataFolder & '" "' & $aServerSaveGame & '" ' $tCmd = StringRegExpReplace($tCmd, " ", " ") If StringInStr($aBackupAddedFolders, "example:") = 0 And $aBackupAddedFolders <> "" Then Local $xBackupFolders = StringSplit($aBackupAddedFolders, ",") For $i = 1 To $xBackupFolders[0] Local $bString = StringRight($xBackupFolders[$i], 1) If $bString = "\" Then $xBackupFolders[$i] &= "*" $tCmd &= '"' & $xBackupFolders[$i] & '" ' Next EndIf If $aBackupFull > 0 Then If $tCount >= $aBackupFull Or $tFullTF Then $tCmd &= '"' & $aServerDirLocal & '\" "' & @ScriptDir & '\"' $tCount = 0 EndIf EndIf $tCmd = StringRegExpReplace($tCmd, " ", " ") LogWrite(" [Backup] Backup started. File:" & $tName, " [Backup] Backup initiated: " & $tCmd) If $tMinimizeTF Then If $tRunWait = False Then Local $tPID = Run($tCmd, "", @SW_MINIMIZE) Else Local $tPID = RunWait($tCmd, "", @SW_MINIMIZE) EndIf Else If $tRunWait = False Then Local $tPID = Run($tCmd, "") Else Local $tPID = RunWait($tCmd, "") EndIf EndIf IniWrite($aUtilCFGFile, "CFG", "aLastBackupCount", $tCount) PurgeBackups() EndFunc Func PurgeBackups() Local $aPurgeBackups = $aFolderTemp & $aUtilName & "_PurgeBackups.bat" Local $sFileExists = FileExists($aPurgeBackups) If $sFileExists = 1 Then FileDelete($aPurgeBackups) EndIf FileWriteLine($aPurgeBackups, "for /f ""tokens=* skip=" & $aBackupNumberToKeep & """ %%F in " & Chr(40) & "'dir """ & $aBackupOutputFolder & "\" & $aGameName1 & "_Backup_*.zip"" /o-d /tc /b'" & Chr(41) & " do del """ & $aBackupOutputFolder & "\%%F""") LogWrite("", " Deleting Backups > " & $aBackupNumberToKeep & " in folder " & $aBackupOutputFolder) Run($aPurgeBackups, "", @SW_HIDE) EndFunc Func _GetPlayerCount() $aOnlinePlayers = GetPlayerCount(False) If $aGameTime = "Day 1, 00:00" Then LogWrite("", " [Players] Failed to get player count. Retry attempt 1 of 2") Sleep(1000) $aOnlinePlayers = GetPlayerCount(False) If $aGameTime = "Day 1, 00:00" Then LogWrite("", " [Players] Failed to get player count. Retry attempt 2 of 2") Sleep(1000) $aOnlinePlayers = GetPlayerCount(False) If $aGameTime = "Day 1, 00:00" Then LogWrite("", " [Players] Failed to get player count.") EndIf EndIf ShowPlayerCount() EndFunc Func _QueryCheck($tRestart1 = True) Local $tReturn3 = False Local $tSkipUpdateCheckTF = False Local $tSkipStartCheckTF = False Local $tDiffUpdate = _DateDiff('n', $gServerUpdatedTimeCheck0, _NowCalc()) Local $tDiffStart = _DateDiff('n', $gWatchdogServerStartTimeCheck, _NowCalc()) If $tDiffUpdate <= $aWatchdogWaitServerUpdate Then $tSkipUpdateCheckTF = True LogWrite("", " [Query] KeepAlive check SKIPPED due to Server Update: " & Int($aWatchdogWaitServerUpdate - $tDiffUpdate) & " minutes remain.") EndIf If $tDiffStart <= $aWatchdogWaitServerStart Then $tSkipStartCheckTF = True LogWrite("", " [Query] KeepAlive check SKIPPED due to Server Start: " & Int($aWatchdogWaitServerStart - $tDiffStart) & " minutes remain.") EndIf For $i = 1 To 6 Local $tQueryCheckResult = _GetQuery($aQueryIP, $aServerPort) If UBound($tQueryCheckResult) < 10 Then If $i = 6 Then If $tSkipUpdateCheckTF = False And $tSkipStartCheckTF = False Then If $tRestart1 Then $tFailedCountQuery += 1 If $tFailedCountQuery > $aWatchdogAttemptsBeforeRestart Then LogWrite(" [Query] KeepAlive check FAILED " & $aWatchdogAttemptsBeforeRestart & " attempts. Restarting server.") CloseServer($aTelnetIP, $aTelnetPort, $aTelnetPass) ExitLoop Else LogWrite(" [Query] KeepAlive check FAILED. Attempt " & $tFailedCountQuery & " of " & $aWatchdogAttemptsBeforeRestart & ".") EndIf Else $tReturn3 = False EndIf ExitLoop EndIf EndIf Else $tFailedCountQuery = 0 $tReturn3 = True $aServerQueryName = StringReplace($tQueryCheckResult[1], "$~!", "|") If $aServerOnlinePlayerYN = "no" Then Local $tPlayers = IniRead($aUtilCFGFile, "CFG", "Last Online Player Count", 0) If $tQueryCheckResult[6] <> $tPlayers Then If $aGameTime = "Day 1, 00:00" Then If $aServerOnlinePlayerYN = "yes" Or $aTelnetCheckYN = "yes" Then GetPlayerCount(False) EndIf $aPlayersCount = $tQueryCheckResult[6] $aServerQueryName = StringReplace($tQueryCheckResult[1], "$~!", "|") EndIf EndIf ExitLoop EndIf Sleep(500) Next Return $tReturn3 EndFunc Func _SendDiscordPlayer() If $aGameTime = "Day 1, 00:00" Then LogWrite("", " [Discord] Online player count error or not ready. Discord message not sent.") Else If $sUseDiscordBotPlayerChangeYN = "yes" Then Local $tDiscordPlayersMsg = StringReplace($sDiscordPlayersMsg, "\o", $aPlayersCount) $tDiscordPlayersMsg = StringReplace($tDiscordPlayersMsg, "\m", $aMaxPlayers) $tDiscordPlayersMsg = StringReplace($tDiscordPlayersMsg, "\t", $aGameTime) $tDiscordPlayersMsg = StringReplace($tDiscordPlayersMsg, "\h", $aNextHorde) $tDiscordPlayersMsg = StringReplace($tDiscordPlayersMsg, "\j", _DiscordPlayersJoined()) $tDiscordPlayersMsg = StringReplace($tDiscordPlayersMsg, "\l", _DiscordPlayersLeft()) $tDiscordPlayersMsg = StringReplace($tDiscordPlayersMsg, "\a", _DiscordPlayersOnline()) $tDiscordPlayersMsg = StringReplace($tDiscordPlayersMsg, "\n", @CRLF) _SendDiscordMsg($tDiscordPlayersMsg, $aServerDiscordWHSelPlayers) EndIf EndIf EndFunc Func _DiscordPlayersJoined() Local $tTxt2 = "" If StringLen($aPlayersJoined) > 1 Then $tTxt2 &= StringReplace($sDiscordPlayerJoinMsg, "\p", $aPlayersJoined) EndIf Return $tTxt2 EndFunc Func _DiscordPlayersLeft() Local $tTxt2 = "" If StringLen($aPlayersLeft) > 1 Then $tTxt2 &= StringReplace($sDiscordPlayerLeftMsg, "\p", $aPlayersLeft) EndIf Return $tTxt2 EndFunc Func _DiscordPlayersOnline() Local $tTxt2 = "" If StringLen($aPlayersName) > 1 Then $tTxt2 &= StringReplace($sDiscordPlayerOnlineMsg, "\p", $aPlayersName) Else $tTxt2 &= StringReplace($sDiscordPlayerOnlineMsg, "\p", "[None]") EndIf Return $tTxt2 EndFunc Func _SendDiscordStatus($tMsg) _SendDiscordMsg($tMsg, $aServerDiscordWHSelStatus) EndFunc Func _SendDiscordChat($tMsg) If $sUseDiscordBotPlayerChatYN = "yes" Then _SendDiscordMsg($tMsg, $aServerDiscordWHSelChat) EndFunc Func _SendDiscordDie($tMsg) _SendDiscordMsg($tMsg, $aServerDiscordWHSelDie) EndFunc Func _SendDiscordMsg($tMsg, $tSel) If $aServerDiscord1TTSYN = "yes" Then $aServerDiscord1TTSYN = True If StringInStr($tSel, "1") Then SendDiscordMsg($aServerDiscord1URL, $tMsg, $aServerDiscord1BotName, $aServerDiscord1TTSYN, $aServerDiscord1Avatar, 1) If StringInStr($tSel, "2") Then SendDiscordMsg($aServerDiscord2URL, $tMsg, $aServerDiscord2BotName, $aServerDiscord2TTSYN, $aServerDiscord2Avatar, 2) If StringInStr($tSel, "3") Then SendDiscordMsg($aServerDiscord3URL, $tMsg, $aServerDiscord3BotName, $aServerDiscord3TTSYN, $aServerDiscord3Avatar, 3) If StringInStr($tSel, "4") Then SendDiscordMsg($aServerDiscord4URL, $tMsg, $aServerDiscord4BotName, $aServerDiscord4TTSYN, $aServerDiscord4Avatar, 4) EndFunc Func _UpdateTray() If $aQueryYN = "yes" Then $aServerNameToDisplay = $aServerQueryName Else $aServerNameToDisplay = $aServerNamFromLog EndIf TrayItemSetText($iTrayQueryServerName, "PID(" & $aServerPID & ") " & $aServerNameToDisplay) If $aServerOnlinePlayerYN = "yes" Then TrayItemSetText($iTrayQueryPlayers, "Players Online: " & $aPlayersCount & " / " & $aMaxPlayers & " | Game Time: " & $aGameTime & " | Next Horde: " & $aNextHorde & " days") Else If $aQueryYN = "yes" Then TrayItemSetText($iTrayQueryPlayers, "Players Online: " & $aPlayersCount & " / " & $aMaxPlayers) Else TrayItemSetText($iTrayQueryPlayers, "Players Online: [Enable Query or Online Player Check]") EndIf EndIf EndFunc Func _GetServerNameFromLog($tSplash = 0) Local $tReturn = "" Local $sLogPath = IniRead($aUtilCFGFile, "CFG", "Last Log Time Stamp", $aServerDirLocal & '\7DaysToDieServer_Data\output_log_dedi' & StringRegExpReplace(_NowCalc(), "[\\\/\: ]", "_") & ".txt") Local $sLogPathOpen = FileOpen($sLogPath, 0) Local $sLogRead = StringLeft(FileRead($sLogPathOpen), 20000) FileClose($sLogPath) $sLogRead = StringReplace($sLogRead, "|", "~!~!") $tReturn = _ArrayToString(_StringBetween($sLogRead, "GamePref.ServerName = ", "GamePref")) $tReturn = StringReplace($tReturn, @CRLF, "") If $tReturn = "-1" Then For $t = 1 To 10 ControlSetText($tSplash, "", "Static1", "Waiting for Server Name to be written in log." & @CRLF & @CRLF & "Attempt " & $t & " out of 10") Sleep(5000) Local $sLogPathOpen = FileOpen($sLogPath, 0) Local $sLogRead = StringLeft(FileRead($sLogPathOpen), 20000) FileClose($sLogPath) $tReturn = _ArrayToString(_StringBetween($sLogRead, "GamePref.ServerName = ", "GamePref")) $tReturn = StringReplace($tReturn, @CRLF, "") If $tReturn = "-1" Then $tReturn = "[Unable to retrieve]" Else ExitLoop EndIf Next EndIf $tReturn = StringReplace($tReturn, "~!~!", "|") LogWrite(" [Server] Server name from server log file:[" & $tReturn & "]", " [Server] Server name from server log file:[" & $tReturn & "] Version derived from """ & $sLogPath & """.") Return $tReturn EndFunc #Region Func CloseServer($ip, $port, $pass) If $aRebootConfigUpdate = "no" Then $tSplash = SplashTextOn($aUtilName, "Shutting down 7 Days to Die server . . .", 350, 110, -1, -1, $DLG_MOVEABLE, "") EndIf $aServerReadyOnce = True $aServerReadyTF = False $aAnnounceCount1 = 0 $aFPCount = 0 $tQueryLogReadDoneTF = False For $i = 1 To 5 If $aRebootConfigUpdate = "no" Then ControlSetText($tSplash, "", "Static1", "Sending shutdown command to server . . ." & @CRLF & @CRLF & "Countdown: " & (6 - $i)) EndIf LogWrite(" [Server] Sending shutdown command to server. Countdown:" & (6 - $i)) $aReply = _PlinkSend("shutdown") If StringInStr($aReply, "shutting server down") = 0 Then Sleep(1000) Else If $aTelnetStayConnectedYN = "no" Then _PlinkDisconnect() ExitLoop EndIf Next For $i = 1 To 10 If ProcessExists($aServerPID) Then If $aRebootConfigUpdate = "no" Then ControlSetText($tSplash, "", "Static1", "Waiting for server to finish shutting down." & @CRLF & @CRLF & "Countdown: " & (11 - $i)) EndIf Sleep(1000) Else SplashOff() ExitLoop EndIf Next For $i = 1 To 10 If ProcessExists($aServerPID) Then ProcessClose($aServerPID) If $aRebootConfigUpdate = "no" Then ControlSetText($tSplash, "", "Static1", "Server failed to shutdown. Killing process." & @CRLF & @CRLF & "Countdown: " & (11 - $i)) EndIf LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] Server failed to shutdown. Killing process. Countdown:" & (11 - $i)) Sleep(1000) Else ExitLoop EndIf Next If $aRebootConfigUpdate = "no" Then SplashOff() EndIf IniWrite($aUtilCFGFile, "CFG", "PID", "0") SplashOff() If $aSteamUpdateNow Then SteamUpdate() EndIf $aRebootConfigUpdate = "no" EndFunc #EndRegion #Region Func SendInGame($ip, $port, $pass, $tMsg) $tMsg = "say """ & $tMsg & """" $aReply = _PlinkSend($tMsg) LogWrite(" [Telnet] In-game message sent (" & $tMsg & ") " & $aReply) EndFunc #EndRegion #Region Func _Discord_ErrFunc($oError) LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] Error: 0x" & Hex($oError.number) & " While Sending Discord Bot Message.") EndFunc Func ReplaceCRLF($tMsg0) Return StringRegExpReplace($tMsg0, '(*BSR_ANYCRLF)\R', "|") EndFunc Func SendDiscordMsg($sHookURL, $sBotMessage, $sBotName = "", $sBotTTS = False, $sBotAvatar = "", $tWH = 1) If $sHookURL <> "https://discordapp.com/api/webhooks/012345678901234567/abcdefghijklmnopqrstuvwxyz01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcde" Then $aObjErrFunc = "Discord" If $sBotTTS = "yes" Then $sBotTTS = True If $sBotTTS = "no" Then $sBotTTS = False Local $tErr = True $sBotMessage = StringLeft($sBotMessage, 2000) $sBotMessage = StringReplace($sBotMessage, "\'", "'") $sBotMessage = StringReplace($sBotMessage, @CRLF, "\n") $sBotMessage = StringReplace($sBotMessage, @LF, "\n") $sBotMessage = StringReplace($sBotMessage, @CR, "\n") $sBotMessage = StringReplace($sBotMessage, '"', "") Local $sJsonMessage = '{"username": "' & $sBotName & '", "avatar_url": "' & $sBotAvatar & '", "content": "' & $sBotMessage & '", "tts": "' & $sBotTTS & '"}' Local $oHTTPOST = ObjCreate("WinHttp.WinHttpRequest.5.1") $oHTTPOST.Open("POST", StringStripWS($sHookURL, 3) & "?wait=True", False) $oHTTPOST.SetRequestHeader("Content-Type", "application/json") $oHTTPOST.Send($sJsonMessage) Local $oStatusCode = $oHTTPOST.Status Local $oReceived = $oHTTPOST.ResponseText If (Int($oStatusCode) = 200) Or (Int($oStatusCode) = 204) Then LogWrite(" [Discord] Message to WH" & $tWH & " sent. Message:" & $sBotMessage, " [Discord] (Fast Method) Message to WH" & $tWH & " sent (" & $sJsonMessage & "). Status Code (" & $oStatusCode & ") " & $oReceived) $tErr = False ElseIf Int($oStatusCode) = 429 Then LogWrite(" [Discord] ERROR! Message to WH" & $tWH & " failed due to too many requests. Message(" & $sBotMessage & ")", " [Discord] (Fast Method) ERROR! Message to WH" & $tWH & " failed due to too many requests (" & $sJsonMessage & ". Status Code (" & $oStatusCode & ") " & $oReceived) $tErr = False Else LogWrite(" [Discord] ERROR! Message to WH" & $tWH & " failed. Message:" & $sBotMessage, " [Discord] (Fast Method) ERROR! Message to WH" & $tWH & " failed (" & $sJsonMessage & ". Status Code (" & $oStatusCode & ") " & $oReceived) $tErr = True EndIf If $tErr Then $sBotMessage = StringReplace($sBotMessage, @CRLF, " | ") $sBotMessage = StringReplace($sBotMessage, @LF, " | ") $sBotMessage = StringReplace($sBotMessage, @CR, " | ") $sBotMessage = StringReplace($sBotMessage, "```css", "") $sBotMessage = StringReplace($sBotMessage, "```cs", "") $sBotMessage = StringReplace($sBotMessage, "```html", "") $sBotMessage = StringReplace($sBotMessage, "```diff", "") $sBotMessage = StringReplace($sBotMessage, "```json", "") $sBotMessage = StringReplace($sBotMessage, "```md", "") $sBotMessage = StringReplace($sBotMessage, "```yaml", "") $sBotMessage = StringReplace($sBotMessage, "```", "") $sBotMessage = StringReplace($sBotMessage, "> ", "") $sBotMessage = StringReplace($sBotMessage, "\n", " | ") If FileExists($aDiscordSendWebhookEXE) = 0 Then _DownloadAndExtractFile("DiscordSendWebhook", "http://www.phoenix125.com/share/atlas/DiscordSendWebhook.zip", "https://github.com/phoenix125/DiscordSendWebhook/releases/download/DiscordSendWebhook/DiscordSendWebhook.zip", $tSplash) Local $tFile = $aFolderTemp & "DiscordResponse.txt" FileDelete($tFile) Local $tCmd = @ComSpec & ' /c ' & '""' & $aDiscordSendWebhookEXE & '" "' & $sHookURL & '" "' & $sBotMessage & '" "' & $sBotName & '"' & ' > "' & $tFile & '"' Local $mOut = Run($tCmd, $aFolderTemp, @SW_HIDE) Local $tErr = ProcessWaitClose($mOut, 4) If $tErr = 0 Then $aRCONError = True EndIf For $i = 0 To 5 $tFileOpen = FileOpen($tFile) $tcrcatch = FileRead($tFileOpen, 100000000) FileClose($tFileOpen) If $tcrcatch <> "" Then ExitLoop Sleep(100) Next Local $tReply = ReplaceCRLF($tcrcatch) If (StringInStr($tReply, "[200]") > 0) Or (StringInStr($tReply, "[204]") > 0) Then LogWrite(" [Discord] (Backup Method) Message to WH" & $tWH & " sent: " & $sBotMessage, " [Discord] (Backup Method) Message sent to WH" & $tWH & ":[" & $tCmd & "] | Response:[" & $tReply & "]") Else FileDelete($tFile) LogWrite(" [Discord] (Backup Method) ERROR!!! Send message to WH" & $tWH & " failed 1st attempt: " & $sBotMessage, " [Discord] (Backup Method) ERROR!!! Send message to WH" & $tWH & " failed 1st attempt:[" & $tCmd & "] Response:[" & $tReply & "]") Local $mOut = Run($tCmd, $aFolderTemp, @SW_HIDE) $tErr = ProcessWaitClose($mOut, 4) If $tErr = 0 Then $aRCONError = True EndIf For $i = 0 To 5 $tFileOpen = FileOpen($tFile) $tcrcatch = FileRead($tFileOpen, 100000000) FileClose($tFileOpen) If $tcrcatch <> "" Then ExitLoop Sleep(100) Next Local $tReply = ReplaceCRLF($tcrcatch) If (StringInStr($tReply, "[200]") > 0) Or (StringInStr($tReply, "[204]") > 0) Then LogWrite(" [Discord] Message to WH" & $tWH & " sent: " & $sBotMessage, " [Discord] Message sent to WH" & $tWH & ":[" & $tCmd & "] | Response:[" & $tReply & "]") Else LogWrite(" [Discord] ERROR!!! Send message to WH" & $tWH & " failed 2nd attempt: " & $sBotMessage, " [Discord] ERROR!!! Send message to WH" & $tWH & " failed 2nd attempt:[" & $tCmd & "] Response:[" & $tReply & "]") Local $sJsonMessage = '{"content" : "' & $sBotMessage & '", "username" : "' & $sBotName & '", "tts" : "' & $sBotTTS & '", "avatar_url" : "' & $sBotAvatar & '"}' Local $oHTTPOST = ObjCreate("WinHttp.WinHttpRequest.5.1") $oHTTPOST.Open("POST", StringStripWS($sHookURL, 3) & "?wait=True", False) $oHTTPOST.Option(4) = 0x3300 $oHTTPOST.SetRequestHeader("Content-Type", "multipart/form-data") $oHTTPOST.Send($sJsonMessage) Local $oStatusCode = $oHTTPOST.Status Local $oReceived = $oHTTPOST.ResponseText If (Int($oStatusCode) = 200) Or (Int($oStatusCode) = 204) Then LogWrite(" [Discord] (Attempt #3) Message to WH" & $tWH & " sent. Message(" & $sBotMessage & ")", " [Discord] (Fast Method) Message to WH" & $tWH & " sent. Status Code (" & $oStatusCode & ") " & $oReceived) $tErr = False Else LogWrite(" [Discord] (Attempt #3) ERROR! Message to WH" & $tWH & " failed. Message(" & $sBotMessage & ")", " [Discord] (Fast Method) ERROR! Message to WH" & $tWH & " failed. Status Code (" & $oStatusCode & ") " & $oReceived) $tErr = True EndIf EndIf EndIf EndIf $aObjErrFunc = "System" Else LogWrite(" [Discord] ERROR! Message to WH" & $tWH & " failed. No webhook is assigned (" & $sBotMessage & ")") EndIf EndFunc #EndRegion #Region Opt("TCPTimeout", 500) Func SendTwitchMsg($sT_Nick, $sT_OAuth, $sT_Channels, $sT_Message) Local $aTwitchReturn[4] = [False, False, "", False] Local $sTwitchIRC = TCPConnect(TCPNameToIP("irc.chat.twitch.tv"), 6667) If @error Then TCPCloseSocket($sTwitchIRC) Return $aTwitchReturn Else $aTwitchReturn[0] = True TCPSend($sTwitchIRC, "PASS " & StringLower($sT_OAuth) & @CRLF) TCPSend($sTwitchIRC, "NICK " & StringLower($sT_Nick) & @CRLF) Local $sTwitchReceive = "" Local $iTimer1 = TimerInit() While TimerDiff($iTimer1) < 1000 $sTwitchReceive &= TCPRecv($sTwitchIRC, 1) If @error Then ExitLoop WEnd Local $aTwitchReceiveLines = StringSplit($sTwitchReceive, @CRLF, 1) $aTwitchReturn[2] = $aTwitchReceiveLines[1] If StringRegExp($aTwitchReceiveLines[$aTwitchReceiveLines[0] - 1], "(?i):tmi.twitch.tv 376 " & $sT_Nick & " :>") Then $aTwitchReturn[1] = True Local $aTwitchChannels = StringSplit($sT_Channels, ",") For $i = 1 To $aTwitchChannels[0] TCPSend($sTwitchIRC, "PRIVMSG #" & StringLower($aTwitchChannels[$i]) & " :" & $sT_Message & @CRLF) If @error Then TCPCloseSocket($sTwitchIRC) $aTwitchReturn[3] = False Return $aTwitchReturn ExitLoop Else $aTwitchReturn[3] = True If $aTwitchChannels[0] > 17 Then Sleep(1600) Else Sleep(100) EndIf EndIf Next TCPSend($sTwitchIRC, "QUIT") TCPCloseSocket($sTwitchIRC) Else Return $aTwitchReturn EndIf EndIf Return $aTwitchReturn EndFunc Func TwitchMsgLog($sT_Msg) Local $aTwitchIRC = SendTwitchMsg($sTwitchNick, $sChatOAuth, $sTwitchChannels, $sT_Msg) If $aTwitchIRC[0] Then LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] [Twitch Bot] Successfully Connected to Twitch IRC") If $aTwitchIRC[1] Then LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] [Twitch Bot] Username and OAuth Accepted. [" & $aTwitchIRC[2] & "]") If $aTwitchIRC[3] Then LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] [Twitch Bot] Successfully sent ( " & $sT_Msg & " ) to all Channels") Else LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] [Twitch Bot] ERROR | Failed sending message ( " & $sT_Msg & " ) to one or more channels") EndIf Else LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] [Twitch Bot] ERROR | Username and OAuth Denied [" & $aTwitchIRC[2] & "]") EndIf Else LogWrite(" [" & $aServerName & " (PID: " & $aServerPID & ")] [Twitch Bot] ERROR | Could not connect to Twitch IRC. Is this URL or port blocked? [irc.chat.twitch.tv:6667]") EndIf EndFunc #EndRegion #Region Func DailyRestartCheck($sWDays, $sHours, $sMin) Local $iDay = -1 Local $iHour = -1 Local $aDays = StringSplit($sWDays, ",") Local $aHours = StringSplit($sHours, ",") For $d = 1 To $aDays[0] $iDay = StringStripWS($aDays[$d], 8) If Int($iDay) = Int(@WDAY) Or Int($iDay) = 0 Then For $h = 1 To $aHours[0] $iHour = StringStripWS($aHours[$h], 8) If Int($iHour) = Int(@HOUR) And Int($sMin) = Int(@MIN) Then Return True EndIf Next EndIf Next Return False EndFunc #EndRegion Func RunExternalScriptDaily() If $aExternalScriptDailyYN = "yes" Then LogWrite(" Executing DAILY restart external script " & $aExternalScriptDailyFile) If $aExternalScriptDailyWait = "no" Then If $aExternalScriptHideYN = "yes" Then Run($aExternalScriptDailyFile, @SW_HIDE) Else Run($aExternalScriptDailyFile) EndIf Else If $aExternalScriptHideYN = "yes" Then RunWait($aExternalScriptDailyFile, @SW_HIDE) Else RunWait($aExternalScriptDailyFile) EndIf EndIf EndIf EndFunc Func RunExternalScriptAnnounce() If $aExternalScriptAnnounceYN = "yes" Then LogWrite(" Executing FIRST ANNOUNCEMENT external script " & $aExternalScriptAnnounceFile) If $aExternalScriptAnnounceWait = "no" Then If $aExternalScriptHideYN = "yes" Then Run($aExternalScriptAnnounceFile, @SW_HIDE) Else Run($aExternalScriptAnnounceFile) EndIf Else If $aExternalScriptHideYN = "yes" Then RunWait($aExternalScriptAnnounceFile, @SW_HIDE) Else RunWait($aExternalScriptAnnounceFile) EndIf EndIf EndIf EndFunc Func RunExternalRemoteRestart() If $aExternalScriptRemoteYN = "yes" Then LogWrite(" Executing REMOTE RESTART external script " & $aExternalScriptRemoteFile) If $aExternalScriptRemoteWait = "no" Then If $aExternalScriptHideYN = "yes" Then Run($aExternalScriptRemoteFile, @SW_HIDE) Else Run($aExternalScriptRemoteFile) EndIf Else If $aExternalScriptHideYN = "yes" Then RunWait($aExternalScriptRemoteFile, @SW_HIDE) Else RunWait($aExternalScriptRemoteFile) EndIf EndIf EndIf EndFunc Func RunExternalScriptUpdate() If $aExternalScriptUpdateYN = "yes" Then LogWrite(" Executing Script When Restarting For Server Update: " & $aExternalScriptUpdateFile) If $aExternalScriptUpdateWait = "no" Then If $aExternalScriptHideYN = "yes" Then Run($aExternalScriptUpdateFile, @SW_HIDE) Else Run($aExternalScriptUpdateFile) EndIf Else If $aExternalScriptHideYN = "yes" Then RunWait($aExternalScriptUpdateFile, @SW_HIDE) Else RunWait($aExternalScriptUpdateFile) EndIf EndIf EndIf EndFunc Func ExternalScriptExist() If $aExecuteExternalScript = "yes" Then Local $sFileExists = FileExists($aExternalScriptFile) If $sFileExists = 0 Then SplashOff() Local $ExtScriptNotFound = MsgBox(4100, "External BEFORE update script not found", "Could not find " & $aExternalScriptFile & @CRLF & "Would you like to exit now to fix?", 20) If $ExtScriptNotFound = 6 Then _ExitUtil() Else $aExecuteExternalScript = "no" LogWrite(" External BEFORE update script execution disabled - Could not find " & $aExternalScriptFile) EndIf EndIf EndIf If $aExternalScriptValidateYN = "yes" Then Local $sFileExists = FileExists($aExternalScriptValidateFile) If $sFileExists = 0 Then SplashOff() Local $ExtScriptNotFound = MsgBox(4100, "External AFTER update script not found", "Could not find " & $aExternalScriptValidateFile & @CRLF & "Would you like to exit now to fix?", 20) If $ExtScriptNotFound = 6 Then _ExitUtil() Else $aExternalScriptValidateYN = "no" LogWrite(" External AFTER update script execution disabled - Could not find " & $aExternalScriptValidateFile) EndIf EndIf EndIf If $aExternalScriptDailyYN = "yes" Then Local $sFileExists = FileExists($aExternalScriptDailyFile) If $sFileExists = 0 Then SplashOff() Local $ExtScriptNotFound = MsgBox(4100, "External DAILY restart script not found", "Could not find " & $aExternalScriptDailyFile & @CRLF & "Would you like to Exit Now to fix?", 20) If $ExtScriptNotFound = 6 Then _ExitUtil() Else $aExternalScriptDailyYN = "no" LogWrite(" External DAILY restart script execution disabled - Could not find " & $aExternalScriptDailyFile) EndIf EndIf EndIf If $aExternalScriptUpdateYN = "yes" Then Local $sFileExists = FileExists($aExternalScriptUpdateFile) If $sFileExists = 0 Then SplashOff() Local $ExtScriptNotFound = MsgBox(4100, "External UPDATE restart script not found", "Could not find " & $aExternalScriptUpdateFile & @CRLF & "Would you like to Exit Now to fix?", 20) If $ExtScriptNotFound = 6 Then _ExitUtil() Else $aExternalScriptUpdateYN = "no" LogWrite(" External UPDATE restart script execution disabled - Could not find " & $aExternalScriptUpdateFile) EndIf EndIf EndIf If $aExternalScriptAnnounceYN = "yes" Then Local $sFileExists = FileExists($aExternalScriptAnnounceFile) If $sFileExists = 0 Then SplashOff() Local $ExtScriptNotFound = MsgBox(4100, "External DAILY restart script not found", "Could not find " & $aExternalScriptAnnounceFile & @CRLF & "Would you like to Exit Now to fix?", 20) If $ExtScriptNotFound = 6 Then _ExitUtil() Else $aExternalScriptDailyYN = "no" LogWrite(" External DAILY restart script execution disabled - Could not find " & $aExternalScriptAnnounceFile) EndIf EndIf EndIf If $aExternalScriptRemoteYN = "yes" Then Local $sFileExists = FileExists($aExternalScriptRemoteFile) If $sFileExists = 0 Then SplashOff() Local $ExtScriptNotFound = MsgBox(4100, "External DAILY restart script not found", "Could not find " & $aExternalScriptRemoteFile & @CRLF & "Would you like to Exit Now to fix?", 20) If $ExtScriptNotFound = 6 Then _ExitUtil() Else $aExternalScriptDailyYN = "no" LogWrite(" External DAILY restart script execution disabled - Could not find " & $aExternalScriptRemoteFile) EndIf EndIf EndIf EndFunc #Region Func GetLatestVerSteamDB($bSteamAppID, $bServerVer) Local $aReturn[2] = [False, ""] $aSteamDB1 = _IECreate($aSteamDBURL, 0, 0) $aSteamDB = _IEDocReadHTML($aSteamDB1) _IEQuit($aSteamDB1) FileWrite(@ScriptDir & "\SteamDB.tmp", $aSteamDB) Local Const $sFilePath = @ScriptDir & "\SteamDB.tmp" Local $hFileOpen = FileOpen($sFilePath, 0) Local $hFileRead1 = FileRead($hFileOpen) If $hFileOpen = -1 Then $aReturn[0] = False Else Local $xBuildID = _ArrayToString(_StringBetween($hFileRead1, "buildid: ", "
  • timeupdated")) Local $hBuildID = Int($xBuildID) LogWrite(" [Update] Using SteamDB " & $bServerVer & " branch. Latest version: " & $hBuildID) EndIf FileClose($hFileOpen) If $hBuildID < 100000 Then SplashOff() MsgBox($mb_ok, "ERROR", " [Update] Error retrieving buildid via SteamDB website. Please visit:" & @CRLF & @CRLF & $aURL & @CRLF & @CRLF & "in *Internet Explorer* (NOT Chrome.. must be Internet Explorer) to CAPTCHA authorize your PC or use SteamCMD for updates." & @CRLF & "! Press OK to close " & $aUtilName & " !") LogWrite("Error retrieving buildid via SteamDB website. Please visit:" & $aURL & "in **Internet Explorer** (NOT Chrome.. must be Internet Explorer) to CAPTCHA authorize your PC or use SteamCMD for updates.") EndIf If FileExists($sFilePath) Then FileDelete($sFilePath) EndIf $aReturn[0] = True $aReturn[1] = $hBuildID Return $aReturn EndFunc Func GetLatestVersion($sCmdDir) $hBuildID = "0" Local $aReturn[2] = [False, ""] DirRemove($sCmdDir & "\appcache", 1) DirRemove($sCmdDir & "\depotcache", 1) $sAppInfoTemp = "app_info_" & StringRegExpReplace(_NowCalc(), "[\\\/\: ]", "_") & ".tmp" $aSteamUpdateCheck = '"' & @ComSpec & '" /c "' & $sCmdDir & "\steamcmd.exe"" +login anonymous +app_info_update 1 +app_info_print " & $aSteamAppID & " +app_info_print " & $aSteamAppID & " +app_info_print " & $aSteamAppID & " +exit > " & $sAppInfoTemp RunWait($aSteamUpdateCheck, $aSteamCMDDir, @SW_MINIMIZE) Local Const $sFilePath = $sCmdDir & "\" & $sAppInfoTemp Local $hFileOpen = FileOpen($sFilePath, 0) Local $hFileRead1 = FileRead($hFileOpen) If $hFileOpen = -1 Then $aReturn[0] = False LogWrite(" [Update] SteamCMD update check FAILED to create update file. Skipping this update check.") Else If StringInStr($hFileRead1, "buildid") > 0 Then Local $hFileReadArray = _StringBetween($hFileRead1, "branches", "AppID") Local $hFileRead = _ArrayToString($hFileReadArray) Local $hString1 = _StringBetween($hFileRead, $aServerVer, "timeupdated") If @error Then LogWrite(" [Update] ERROR!!! " & $aServerVer & " branch not found by SteamCMD") SplashOff() For $x1 = 0 To 5 Local $tSplash = SplashTextOn($aUtilName, "ERROR! " & $aServerVer & " branch not found by SteamCMD.", 300, 75, -1, -1, $DLG_MOVEABLE, "") Sleep(850) ControlSetText($tSplash, "", "Static1", "") Sleep(150) Next SplashOff() Else Local $hString2 = StringSplit($hString1[0], '"', 2) $hString3 = _ArrayToString($hString2) Local $hString4 = StringRegExpReplace($hString3, "\t", "") Local $hString5 = StringRegExpReplace($hString4, @CR & @LF, ".") Local $hString6 = StringRegExpReplace($hString5, "{", "") Local $hBuildIDArray = _StringBetween($hString6, "buildid||", "|.") Local $hBuildID = _ArrayToString($hBuildIDArray) LogWrite("", " [Update] Update Check via " & $aServerVer & " Branch. Latest version: " & $hBuildID) If FileExists($sFilePath) Then FileDelete($sFilePath) EndIf $aReturn[0] = True EndIf Else $aReturn[0] = False LogWrite(" [Update] SteamCMD update check returned a FAILURE reponse. Skipping this update check.") EndIf FileClose($hFileOpen) EndIf $aReturn[1] = $hBuildID Return $aReturn EndFunc Func GetInstalledVersion($sGameDir) Local $aReturn[2] = [False, ""] Local Const $sFilePath = $sGameDir & "\steamapps\appmanifest_" & $aSteamAppID & ".acf" Local $hFileOpen = FileOpen($sFilePath, 0) If $hFileOpen = -1 Then $aReturn[0] = False Else Local $sFileRead = FileRead($hFileOpen) Local $aAppInfo = StringSplit($sFileRead, '"buildid"', 1) If UBound($aAppInfo) >= 3 Then $aAppInfo = StringSplit($aAppInfo[2], '"buildid"', 1) EndIf If UBound($aAppInfo) >= 2 Then $aAppInfo = StringSplit($aAppInfo[1], '"LastOwner"', 1) EndIf If UBound($aAppInfo) >= 2 Then $aAppInfo = StringSplit($aAppInfo[1], '"', 1) EndIf If UBound($aAppInfo) >= 2 Then $aReturn[0] = True $aReturn[1] = $aAppInfo[2] EndIf If FileExists($sFilePath) Then FileClose($hFileOpen) EndIf EndIf Return $aReturn EndFunc Func UpdateCheck($tAsk, $tSplash = 0, $tShowIfNoUpdate = False) Local $bUpdateRequired = False $aSteamUpdateNow = False If $aUpdateSource = "1" Then If $aFirstBoot Or $tAsk Then If $tSplash > 0 Then ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Acquiring latest buildid from SteamDB.") Else SplashTextOn($aUtilName, $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Acquiring latest buildid from SteamDB.", 400, 110, -1, -1, $DLG_MOVEABLE, "") EndIf EndIf Local $aLatestVersion = GetLatestVerSteamDB($aSteamAppID, $aServerVer) Else If $aFirstBoot Or $tAsk Then If $tSplash > 0 Then ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Acquiring latest BuildID from SteamCMD.") Else SplashTextOn($aUtilName, $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Acquiring latest BuildID from SteamCMD.", 400, 110, -1, -1, $DLG_MOVEABLE, "") EndIf EndIf Local $aLatestVersion = GetLatestVersion($aSteamCMDDir) EndIf If $aFirstBoot Or $tAsk Then If $tSplash > 0 Then ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Retrieving installed BuildID.") Else SplashTextOn($aUtilName, $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Retrieving installed BuildID.", 400, 110, -1, -1, $DLG_MOVEABLE, "") EndIf EndIf Local $aInstalledVersion = GetInstalledVersion($aServerDirLocal) If $tSplash = 0 Then SplashOff() If ($aLatestVersion[0] And $aInstalledVersion[0]) Then If StringCompare($aLatestVersion[1], $aInstalledVersion[1]) = 0 Then LogWrite(" [Update] Server is Up to Date. Installed BuildID: " & $aInstalledVersion[1]) If $tSplash > 0 Then ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Server is Up to Date." & @CRLF & "BuildID: " & $aInstalledVersion[1]) Sleep(3000) Else If $tShowIfNoUpdate Then MsgBox($MB_OK, $aUtilityVer, "Server is Up to Date." & @CRLF & @CRLF & "BuildID: " & $aInstalledVersion[1], 5) EndIf Else LogWrite(" [Server] Server is Out of Date! Installed BuildID: " & $aInstalledVersion[1] & " Latest BuildID: " & $aLatestVersion[1]) If $tAsk Then SplashOff() $tMB = MsgBox($MB_YESNOCANCEL, $aUtilityVer, "Server is Out of Date!!!" & @CRLF & @CRLF & "Installed BuildID: " & $aInstalledVersion[1] & @CRLF & " Latest BuildID: " & $aLatestVersion[1] & @CRLF & @CRLF & "Click (YES) to update server NOW." & @CRLF & "Click (NO) to update server with " & $aUpdateTime[UBound($aUpdateTime) - 1] & " minute announcements." & @CRLF & "Click (CANCEL) to continue without updating.", 15) If $tMB = 6 Then $bUpdateRequired = True $aSteamUpdateNow = True $aUpdateVerify = "yes" RunExternalScriptUpdate() $TimeStamp = StringRegExpReplace(_NowCalc(), "[\\\/\: ]", "_") SplashTextOn($aUtilName, "Beginning update. Shutting down and updating server now.", 400, 110, -1, -1, $DLG_MOVEABLE, "") CloseServer($aTelnetIP, $aTelnetPort, $aTelnetPass) SplashOff() ElseIf $tMB = 7 Then $bUpdateRequired = True $aSteamUpdateNow = True $aUpdateVerify = "yes" RunExternalScriptUpdate() $TimeStamp = StringRegExpReplace(_NowCalc(), "[\\\/\: ]", "_") Else $tSplash = SplashTextOn($aUtilName, "Utility update check canceled by user." & @CRLF & "Resuming utility . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") EndIf Else If $aFirstBoot Then SplashOff() $tSplash = SplashTextOn($aUtilName, "Server is Out of Date!" & @CRLF & "Installed BuildID: " & $aInstalledVersion[1] & @CRLF & "Latest BuildID: " & $aLatestVersion[1] & @CRLF & "Updating server . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") EndIf $bUpdateRequired = True $aSteamUpdateNow = True $aUpdateVerify = "yes" RunExternalScriptUpdate() $TimeStamp = StringRegExpReplace(_NowCalc(), "[\\\/\: ]", "_") $aRebootMe = "yes" $bUpdateRequired = True EndIf EndIf ElseIf Not $aLatestVersion[0] And Not $aInstalledVersion[0] Then LogWrite(" [Update] Something went wrong retrieving Latest & Installed Versions. Running update with -validate") $tSplash = SplashTextOn($aUtilName, "Something went wrong retrieving Latest & Installed Versions." & @CRLF & "- Running update with -validate" & @CRLF & @CRLF & "(Restart will be delayed if 'announce restart' is enabled)", 500, 125, -1, -1, $DLG_MOVEABLE, "") $bUpdateRequired = True $aSteamUpdateNow = True ElseIf Not $aInstalledVersion[0] Then LogWrite(" [Update] Something went wrong retrieving Installed Version. Running update with -validate. (This is normal for new install)") $tSplash = SplashTextOn($aUtilName, "Something went wrong retrieving Installed Version." & @CRLF & "(This is normal for new install)" & @CRLF & "- Running update with -validate" & @CRLF & @CRLF & "(Restart will be delayed if 'announce restart' is enabled)", 450, 175, -1, -1, $DLG_MOVEABLE, "") $bUpdateRequired = True $aSteamUpdateNow = True ElseIf Not $aLatestVersion[0] Then LogWrite(" [Update] Something went wrong retrieving Latest Version. Skipping this update check.") $tSplash = SplashTextOn($aUtilName, "Something went wrong retrieving Latest Version. Skipping this update check." & @CRLF & @CRLF & "(This window will close in 5 seconds)", 450, 175, -1, -1, $DLG_MOVEABLE, "") Sleep(5000) SplashOff() EndIf $aFirstBoot = False Return $bUpdateRequired EndFunc #EndRegion #Region Func DailyRestartOffset($bHour0, $sMin, $sTime) If $bRestartMin - $sTime < 0 Then Local $bHour1 = -1 Local $bHour2 = "" Local $bHour3 = StringSplit($bHour0, ",") For $bRestartHours = 1 To $bHour3[0] $bHour1 = StringStripWS($bHour3[$bRestartHours], 8) - 1 If Int($bHour1) = -1 Then $bHour1 = 23 EndIf $bHour2 = $bHour2 & "," & Int($bHour1) Next Global $aRestartMin = 60 - $sTime + $bRestartMin Global $aRestartHours = StringTrimLeft($bHour2, 1) Else Global $aRestartMin = $bRestartMin - $sTime Global $aRestartHours = $bRestartHours EndIf EndFunc #EndRegion #Region Func AnnounceReplaceTime($tTime0, $tMsg0) If StringInStr($tMsg0, "\m") = "0" Then Else Local $tTime2 = -1 Local $tTime3 = StringSplit($tTime0, ",") Local $tMsg1 = $tTime3 For $tTime2 = 1 To $tTime3[0] $tTime1 = StringStripWS($tTime3[$tTime2], 8) - 1 $tMsg1[$tTime2] = StringReplace($tMsg0, "\m", $tTime3[$tTime2]) Next Return $tMsg1 EndIf EndFunc #EndRegion #Region Func RemoveInvalidCharacters($aString) Local $bString = StringRegExpReplace($aString, "[\x3D\x22\x3B\x3C\x3E\x3F\x25\x27\x7C]", "") If $aString = $bString Then Else LogWrite(" [ERROR] Invalid character found in " & $aIniFile & ". Changed parameter from """ & $aString & """ to """ & $bString & """.") EndIf Return $bString EndFunc #EndRegion Func SteamUpdate() SplashTextOn($aUtilName, "Updating server now...", 400, 110, -1, -1, $DLG_MOVEABLE, "") $TimeStamp = StringRegExpReplace(_NowCalc(), "[\\\/\: ]", "_") _SteamCMDCreate() Local $sManifestExists = FileExists($aSteamCMDDir & "\steamapps\appmanifest_" & $aSteamAppID & ".acf") If ($sManifestExists = 1) And ($aFirstBoot = 0) Then FileMove($aSteamCMDDir & "\steamapps\appmanifest_" & $aSteamAppID & ".acf", $aSteamCMDDir & "\steamapps\appmanifest_" & $aSteamAppID & "_" & $TimeStamp & ".acf", 1) LogWrite("", " Notice: Install manifest found at " & $aSteamCMDDir & "\steamapps\appmanifest_" & $aSteamAppID & ".acf & renamed to appmanifest_" & $aSteamAppID & "_" & $TimeStamp & ".acf") Else $aFirstBoot = 0 EndIf If ($sManifestExists = 1) And ($aFirstBoot = 0) Then FileMove($aServerDirLocal & "\steamapps\appmanifest_" & $aSteamAppID & ".acf", $aServerDirLocal & "\steamapps\appmanifest_" & $aSteamAppID & "_" & $TimeStamp & ".acf", 1) LogWrite("", " Notice: Install manifest found at " & $aServerDirLocal & "\steamapps\appmanifest_" & $aSteamAppID & ".acf & renamed to appmanifest_" & $aSteamAppID & "_" & $TimeStamp & ".acf") Else $aFirstBoot = 0 EndIf $aSteamUpdateNow = False If $aValidate = "yes" Then LogWrite(" [Steam Update] Running SteamCMD " & $aServerVer & " branch with validate.", " [Steam Update] Running SteamCMD " & $aServerVer & " branch with validate: [" & $aSteamUpdateCMDValY & "]") RunWait($aSteamUpdateCMDValY) Else LogWrite(" [Steam Update] Running SteamCMD " & $aServerVer & " branch without validate.", " [Steam Update] Running SteamCMD " & $aServerVer & " branch without validate. [" & $aSteamUpdateCMDValN & "]") RunWait($aSteamUpdateCMDValN) EndIf SplashOff() EndFunc #Region Func _ExtractZip($sZipFile, $sFolderStructure, $sFile, $sDestinationFolder) Local $i Do $i += 1 $sTempZipFolder = @TempDir & "\Temporary Directory " & $i & " for " & StringRegExpReplace($sZipFile, ".*\\", "") Until Not FileExists($sTempZipFolder) Local $oShell = ObjCreate("Shell.Application") If Not IsObj($oShell) Then Return SetError(1, 0, 0) EndIf Local $oDestinationFolder = $oShell.NameSpace($sDestinationFolder) If Not IsObj($oDestinationFolder) Then Return SetError(2, 0, 0) EndIf Local $oOriginFolder = $oShell.NameSpace($sZipFile & "\" & $sFolderStructure) If Not IsObj($oOriginFolder) Then Return SetError(3, 0, 0) EndIf Local $oOriginFile = $oOriginFolder.ParseName($sFile) If Not IsObj($oOriginFile) Then Return SetError(4, 0, 0) EndIf $oDestinationFolder.CopyHere($oOriginFile, 4) DirRemove($sTempZipFolder, 1) Return 1 EndFunc #EndRegion #Region Func UtilUpdate($tLink, $tDL, $tUtil, $tUtilName) SplashTextOn($aUtilName, $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Checking for " & $tUtilName & " updates.", 400, 110, -1, -1, $DLG_MOVEABLE, "") Local $tVer[2] $hFileRead = _INetGetSource($tLink) If @error Then LogWrite(" [UTIL] " & $tUtilName & " update check failed to download latest version: " & $tLink) If $aShowUpdate Then SplashTextOn($aUtilName, $aUtilName & " update check failed." & @CRLF & "Please try again later.", 400, 110, -1, -1, $DLG_MOVEABLE, "") Sleep(2000) $aShowUpdate = False EndIf Else $tVer = StringSplit($hFileRead, "^", 2) If $tVer[0] = $tUtil Then LogWrite(" [UTIL] " & $tUtilName & " up to date.", " [UTIL] " & $tUtilName & " up to date. Version: " & $tVer[0] & " , Notes: " & $tVer[1]) FileDelete($aUtilUpdateFile) If $aShowUpdate Then SplashTextOn($aUtilName, $aUtilName & " up to date . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") Sleep(2000) $aShowUpdate = False SplashOff() EndIf Else LogWrite(" [UTIL] New " & $aUtilName & " update available. Installed version: " & $tUtil & ", Latest version: " & $tVer[0] & ", Notes: " & $tVer[1]) FileWrite($aUtilUpdateFile, _NowCalc() & " [UTIL] New " & $aUtilName & " update available. Installed version: " & $tUtil & ", Latest version: " & $tVer[0] & ", Notes: " & $tVer[1]) SplashOff() $tVer[1] = ReplaceReturn($tVer[1]) $tMB = MsgBox($MB_YESNOCANCEL, $aUtilityVer, "New " & $aUtilName & " update available. " & @CRLF & "Installed version: " & $tUtil & @CRLF & "Latest version: " & $tVer[0] & @CRLF & @CRLF & "Notes: " & @CRLF & $tVer[1] & @CRLF & @CRLF & "Click (YES) to download update to " & @CRLF & @ScriptDir & @CRLF & "Click (NO) to stop checking for updates." & @CRLF & "Click (CANCEL) to skip this update check.", 15) If $tMB = 6 Then SplashTextOn($aUtilityVer, " Downloading latest version of " & @CRLF & $tUtilName, 400, 110, -1, -1, $DLG_MOVEABLE, "") Local $tZIP = @ScriptDir & "\" & $tUtilName & "_" & $tVer[0] & ".zip" If FileExists($tZIP) Then FileDelete($tZIP) EndIf If FileExists($tUtilName & "_" & $tVer[0] & ".exe") Then FileDelete($tUtilName & "_" & $tVer[0] & ".exe") EndIf InetGet($tDL, $tZIP, 1) _ExtractZip($tZIP, "", $tUtilName & "_" & $tVer[0] & ".exe", @ScriptDir) If FileExists(@ScriptDir & "\readme.txt") Then FileDelete(@ScriptDir & "\readme.txt") EndIf _ExtractZip($tZIP, "", "readme.txt", @ScriptDir) If Not FileExists(@ScriptDir & "\" & $tUtilName & "_" & $tVer[0] & ".exe") Then LogWrite(" [UTIL] ERROR! " & $tUtilName & ".exe download failed.") SplashOff() $tMB = MsgBox($MB_OKCANCEL, $aUtilityVer, "Download failed . . . " & @CRLF & "Go to """ & $tLink & """ to download latest version." & @CRLF & @CRLF & "Click (OK), (CANCEL), or wait 15 seconds, to resume current version.", 15) Else SplashOff() $tMB = MsgBox($MB_OKCANCEL, $aUtilityVer, "Download complete. . . " & @CRLF & @CRLF & "Click (OK) to run new version (server will remain running) OR" & @CRLF & "Click (CANCEL), or wait 15 seconds, to resume current version.", 15) If $tMB = 1 Then LogWrite(" [" & $aServerName & "] Util Shutdown - Initiated by User to run update.") If $aRemoteRestartUse = "yes" Then TCPShutdown() EndIf IniWrite($aUtilCFGFile, "CFG", "PID", $aServerPID) Run(@ScriptDir & "\" & $tUtilName & "_" & $tVer[0] & ".exe") _ExitUtil() EndIf EndIf ElseIf $tMB = 7 Then $aUpdateUtil = "no" IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Check for " & $aUtilName & " updates? (yes/no) ###", "no") LogWrite(" [UTIL] " & "Utility update check disabled. To enable update check, change [Check for Updates ###=yes] in the .ini.") SplashTextOn($aUtilName, "Utility update check disabled." & @CRLF & "To enable update check, change [Check for Updates ###=yes] in the .ini.", 500, 110, -1, -1, $DLG_MOVEABLE, "") Sleep(5000) ElseIf $tMB = 2 Then LogWrite(" [UTIL] Utility update check canceled by user. Resuming utility . . .") SplashTextOn($aUtilName, "Utility update check canceled by user." & @CRLF & "Resuming utility . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") Sleep(2000) EndIf SplashOff() EndIf EndIf EndFunc Func ReplaceReturn($tMsg0) If StringInStr($tMsg0, "|") = "0" Then Return $tMsg0 Else Return StringReplace($tMsg0, "|", @CRLF) EndIf EndFunc #EndRegion #Region Func PassCheck($sPass, $sPassString) Local $aPassReturn[3] = [False, "", ""] Local $aPasswords = StringSplit($sPassString, ",") For $i = 1 To $aPasswords[0] If (StringCompare($sPass, $aPasswords[$i], 1) = 0) Then Local $aUserPass = StringSplit($aPasswords[$i], "_") If $aUserPass[0] > 1 Then $aPassReturn[0] = True $aPassReturn[1] = $aUserPass[1] $aPassReturn[2] = $aUserPass[2] Else $aPassReturn[0] = True $aPassReturn[1] = "Anonymous" $aPassReturn[2] = $aUserPass[1] EndIf ExitLoop EndIf Next Return $aPassReturn EndFunc #EndRegion Func FPRun() Local $tConfigPath = $aServerDirLocal & "\" & $aConfigFile Local $aFPConfigDefault = $aServerDirLocal & "\serverconfig.xml" Local $sConfigFileTempExists = FileExists($aConfigFileTempFull) If $sConfigFileTempExists = 1 Then FileDelete($aConfigFileTempFull) EndIf Local $tConfigPathOpen = FileOpen($aFPConfigDefault, 0) Local $tConfigRead2 = FileRead($tConfigPathOpen) Local $tConfigRead1 = StringRegExpReplace($tConfigRead2, "", "" & @CRLF) Local $tConfigReada = StringRegExpReplace($tConfigRead1, "(*CRLF)(?m)^.*?\Q" & "TerminalWindowEnabled" & "\E.*?\r\n", "") Local $tConfigReadb = StringRegExpReplace($tConfigReada, "(*CRLF)(?m)^.*?\Q" & "TerminalWindowEnabled" & "\E.*?\r\n", "") Local $tConfigReadc = StringRegExpReplace($tConfigReadb, "(*CRLF)(?m)^.*?\Q" & "TelnetPort" & "\E.*?\r\n", "") Local $tConfigReadd = StringRegExpReplace($tConfigReadc, "(*CRLF)(?m)^.*?\Q" & "TelnetPassword" & "\E.*?\r\n", "") Local $tConfigReade = StringRegExpReplace($tConfigReadd, "(*CRLF)(?m)^.*?\Q" & "ServerPort" & "\E.*?\r\n", "") Local $tConfigReadf = StringRegExpReplace($tConfigReade, "(*CRLF)(?m)^.*?\Q" & "ServerName" & "\E.*?\r\n", "") Local $tConfigReadg = StringRegExpReplace($tConfigReadf, "(*CRLF)(?m)^.*?\Q" & "SaveGameFolder" & "\E.*?\r\n", "") Local $tConfigReadh = StringRegExpReplace($tConfigReadg, "(*CRLF)(?m)^.*?\Q" & "ServerMaxPlayerCount" & "\E.*?\r\n", "") Local $tConfigReadi = StringRegExpReplace($tConfigReadh, "(*CRLF)(?m)^.*?\Q" & "ServerDescription" & "\E.*?\r\n", "") Local $tConfigReadj = StringRegExpReplace($tConfigReadi, "(*CRLF)(?m)^.*?\Q" & "ServerWebsiteURL" & "\E.*?\r\n", "") Local $tConfigReadk = StringRegExpReplace($tConfigReadj, "(*CRLF)(?m)^.*?\Q" & "GameWorld" & "\E.*?\r\n", "") Local $tConfigReadl = StringRegExpReplace($tConfigReadk, "(*CRLF)(?m)^.*?\Q" & "WorldGenSeed" & "\E.*?\r\n", "") Local $tConfigReadm = StringRegExpReplace($tConfigReadl, "(*CRLF)(?m)^.*?\Q" & "WorldGenSize" & "\E.*?\r\n", "") Local $tConfigReadn = StringRegExpReplace($tConfigReadm, "(*CRLF)(?m)^.*?\Q" & "GameName" & "\E.*?\r\n", "") Local $tConfigReado = StringRegExpReplace($tConfigReadn, "(*CRLF)(?m)^.*?\Q" & "GameDifficulty" & "\E.*?\r\n", "") Local $tConfigReadp = StringRegExpReplace($tConfigReado, "(*CRLF)(?m)^.*?\Q" & "AdminFileName" & "\E.*?\r\n", "") Local $tConfigReadq = StringRegExpReplace($tConfigReadp, "(*CRLF)(?m)^.*?\Q" & "DropOnDeath" & "\E.*?\r\n", "") Local $tConfigReadr = StringRegExpReplace($tConfigReadq, "(*CRLF)(?m)^.*?\Q" & "ServerLoginConfirmationText" & "\E.*?\r\n", "") FileWrite($aConfigFileTempFull, $tConfigReadr) FileClose($aFPConfigDefault) $aServerNameVer = $aServerName FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") If ($aFPServerPass = "-1") Or ($aFPServerPass = "") Then FileWriteLine($aConfigFileTempFull, "") Else FileWriteLine($aConfigFileTempFull, "") EndIf FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") If $aWipeServer = "no" Then FileWriteLine($aConfigFileTempFull, "") Else FileWriteLine($aConfigFileTempFull, "") EndIf FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") LogWrite(" [FutureProof] ### WARNING! ### Server failed to boot 3x's after update. The default serverconfig.xml settings and 18 existing parameters were imported to " & $aConfigFileTempFull & ".") LogWrite(" PLEASE EDIT THE " & $aConfigFile & " as soon as possible to reflect desired settings.") If $aFPRenameModsYN = "yes" Then Local $tTime = @YEAR & "-" & @MON & "-" & @MDAY & "_" & @HOUR & "-" & @MIN DirMove($aServerDirLocal & "\Mods", $aServerDirLocal & "\Mods_Backup_" & $tTime) LogWrite(" [FutureProof] Mods folder renamed to [" & $aServerDirLocal & "\Mods_Backup_" & $tTime & "]") EndIf $aFPCount = 0 EndFunc #Region Func ObfPass($sObfPassString) Local $sObfPass = "" For $i = 1 To (StringLen($sObfPassString) - 3) If $i <> 4 Then $sObfPass = $sObfPass & "*" Else $sObfPass = $sObfPass & StringMid($sObfPassString, 4, 4) EndIf Next Return $sObfPass EndFunc #EndRegion Func _ShowLoginLogo() If WinExists($hGUI_LoginLogo) Then Else Local $Pic, $hImage, $hBmp, $iW, $iH _GDIPlus_Startup() $hImage = _GDIPlus_ImageLoadFromFile($aFolderTemp & "7DTDLogoPx.png") $iW = _GDIPlus_ImageGetWidth($hImage) $iH = _GDIPlus_ImageGetHeight($hImage) $hBitmap = _GDIPlus_BitmapCloneArea($hImage, 0, 0, $iW, $iH, $GDIP_PXF32ARGB) Local $iTransColor, $iTransGUI $hBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBitmap) _GDIPlus_BitmapDispose($hBitmap) _GDIPlus_ImageDispose($hImage) _GDIPlus_Shutdown() $hGUI_LoginLogo = GUICreate("7DTD Logo", $iW, $iH, -1, -1, $WS_POPUP, $WS_EX_LAYERED) GUISetBkColor(0xFFFFFF) GUISetState() $Pic = GUICtrlCreatePic("" & $aFolderTemp & "", 0, 0, 0, 0) GUICtrlSendMsg($Pic, $STM_SETIMAGE, 0, $hBmp) _WinAPI_DeleteObject($hBmp) _WinAPI_SetLayeredWindowAttributes($hGUI_LoginLogo, 0xFFFFFF) EndIf EndFunc #Region Func _TCP_Server_ClientIP($hSocket) Local $pSocketAddress, $aReturn $pSocketAddress = DllStructCreate("short;ushort;uint;char[8]") $aReturn = DllCall("ws2_32.dll", "int", "getpeername", "int", $hSocket, "ptr", DllStructGetPtr($pSocketAddress), "int*", DllStructGetSize($pSocketAddress)) If @error Or $aReturn[0] <> 0 Then Return $hSocket $aReturn = DllCall("ws2_32.dll", "str", "inet_ntoa", "int", DllStructGetData($pSocketAddress, 3)) If @error Then Return $hSocket $pSocketAddress = 0 Return $aReturn[0] EndFunc #EndRegion #Region Func CheckHTTPReq($sRequest, $sKey = "restart") If IsString($sRequest) Then Local $aRequest = StringRegExp($sRequest, '^GET[[:blank:]]\/\?(?i)' & $sKey & '(?-i)=(\S+)[[:blank:]]HTTP\/\d.\d\R', 2) If Not @error Then Return SetError(0, 0, $aRequest[1]) ElseIf @error = 1 Then Return SetError(1, @extended, "Invalid Request") ElseIf @error = 2 Then Return SetError(2, @extended, "Bad pattern, array is invalid. @extended = offset of error in pattern.") EndIf Else Return SetError(3, 0, "Not A String") EndIf EndFunc #EndRegion #Region Func RemoveTrailingSlash($aString) Local $bString = StringRight($aString, 1) If $bString = "\" Then $aString = StringTrimRight($aString, 1) Return $aString EndFunc #EndRegion #Region Func MultipleAttempts($sRemoteIP, $bFailure = False, $bSuccess = False) Local $aPassFailure[1][3] = [[0, 0, 0]] For $i = 1 To UBound($aPassFailure, 1) - 1 If StringCompare($aPassFailure[$i][0], $sRemoteIP) = 0 Then If (_DateDiff('n', $aPassFailure[$i][2], _NowCalc()) >= 10) Or $bSuccess Then $aPassFailure[$i][1] = 0 $aPassFailure[$i][2] = _NowCalc() Return SetError(0, 0, "Maximum Attempts Reset") ElseIf $bFailure Then $aPassFailure[$i][1] += 1 $aPassFailure[$i][2] = _NowCalc() EndIf If $aPassFailure[$i][1] >= 15 Then Return SetError(1, $aPassFailure[$i][1], "Maximum Number of Attempts Exceeded. Wait 10 minutes before trying again.") Else Return SetError(0, $aPassFailure[$i][1], $aPassFailure[$i][1] & " attempts out of 15 used.") EndIf ExitLoop EndIf Next ReDim $aPassFailure[(UBound($aPassFailure, 1) + 1)][3] $aPassFailure[(UBound($aPassFailure, 1) - 1)][0] = $sRemoteIP $aPassFailure[(UBound($aPassFailure, 1) - 1)][1] = 0 $aPassFailure[(UBound($aPassFailure, 1) - 1)][2] = _NowCalc Return SetError(0, 0, "IP Added to List") EndFunc #EndRegion #Region Func _RemoteRestart($vMSocket, $sCodes, $sKey, $sHideCodes = "no", $sServIP = "127.0.0.1", $sName = "7DTD Server") Local $vConnectedSocket = TCPAccept($vMSocket) If $vConnectedSocket >= 0 Then Local $sRecvIP = _TCP_Server_ClientIP($vConnectedSocket) Local $sRECV = TCPRecv($vConnectedSocket, 512) Local $iError = 0 Local $iExtended = 0 If @error = 0 Then Local $sRecvPass = CheckHTTPReq($sRECV, $sKey) If @error = 0 Then Local $sCheckMaxAttempts = MultipleAttempts($sRecvIP) If @error = 1 Then TCPSend($vConnectedSocket, "HTTP/1.1 429 Too Many Requests" & @CRLF & "Retry-After: 600" & @CRLF & "Connection: close" & @CRLF & "Content-Type: text/html; charset=iso-8859-1" & @CRLF & "Cache-Control: no-cache" & @CRLF & "Server: " & $sServIP & @CRLF & @CRLF) TCPSend($vConnectedSocket, "" & $sName & " Remote Restart

    429 Too Many Requests

    You tried to Restart " & $sName & " 15 times in a row.
    " & $sCheckMaxAttempts & "") If $vConnectedSocket <> -1 Then TCPCloseSocket($vConnectedSocket) Return SetError(1, 0, "Restart ATTEMPT by Remote Host: " & $sRecvIP & " | Wrong Code was entered 15 times. User must wait 10 minutes before trying again.") EndIf Local $aPassCompare = PassCheck($sRecvPass, $sCodes) If $sHideCodes = "yes" Then $aPassCompare[2] = ObfPass($aPassCompare[2]) EndIf If $aPassCompare[0] Then TCPSend($vConnectedSocket, "HTTP/1.1 200 OK" & @CRLF & "Connection: close" & @CRLF & "Content-Type: text/html; charset=iso-8859-1" & @CRLF & "Cache-Control: no-cache" & @CRLF & "Server: " & $sServIP & @CRLF & @CRLF) TCPSend($vConnectedSocket, "" & $sName & " Remote Restart

    Authentication Accepted. " & $sName & " Restarting.

    ") If $vConnectedSocket <> -1 Then TCPCloseSocket($vConnectedSocket) $sCheckMaxAttempts = MultipleAttempts($sRecvIP, False, True) Return SetError(0, 0, "Restart Requested by Remote Host: " & $sRecvIP & " | User: " & $aPassCompare[1] & " | Pass: " & $aPassCompare[2]) Else TCPSend($vConnectedSocket, "HTTP/1.1 403 Forbidden" & @CRLF & "Connection: close" & @CRLF & "Content-Type: text/html; charset=iso-8859-1" & @CRLF & "Cache-Control: no-cache" & @CRLF & "Server: " & $sServIP & @CRLF & @CRLF) TCPSend($vConnectedSocket, "" & $sName & " Remote Restart

    403 Forbidden

    You are not allowed to restart " & $sName & ".
    Attempt from " & $sRecvIP & " has been logged.") If $vConnectedSocket <> -1 Then TCPCloseSocket($vConnectedSocket) $sCheckMaxAttempts = MultipleAttempts($sRecvIP, True, False) Return SetError(1, 0, "Restart ATTEMPT by Remote Host: " & $sRecvIP & " | Unknown Restart Code: " & $sRecvPass) EndIf Else $iError = @error $iExtended = @extended TCPSend($vConnectedSocket, "HTTP/1.1 404 Not Found" & @CRLF & "Connection: close" & @CRLF & "Content-Type: text/html; charset=iso-8859-1" & @CRLF & "Cache-Control: no-cache" & @CRLF & "Server: " & $sServIP & @CRLF & @CRLF) TCPSend($vConnectedSocket, "404 Not Found

    404 Not Found.

    ") If $vConnectedSocket <> -1 Then TCPCloseSocket($vConnectedSocket) If $iError = 1 Then $sRECV = "Full TCP Request: " & @CRLF & $sRECV Return SetError(2, 0, "Invalid Restart Request by: " & $sRecvIP & ".") Else Return SetError(3, 0, "CheckHTTPReq Failed with Error: " & $iError & " Extended: " & $iExtended & " [" & $sRecvPass & "]") EndIf EndIf Else $iError = @error $iExtended = @extended TCPSend($vConnectedSocket, "HTTP/1.1 400 Bad Request" & @CRLF & "Connection: close" & @CRLF & "Content-Type: text/html; charset=iso-8859-1" & @CRLF & "Cache-Control: no-cache" & @CRLF & "Server: " & $sServIP & @CRLF & @CRLF) TCPSend($vConnectedSocket, "400 Bad Request

    400 Bad Request.

    ") If $vConnectedSocket <> -1 Then TCPCloseSocket($vConnectedSocket) Return SetError(4, 0, "TCPRecv Failed to Complete with Error: " & $iError & " Extended: " & $iExtended) EndIf EndIf Return SetError(-1, 0, "No Connection") If $vConnectedSocket <> -1 Then TCPCloseSocket($vConnectedSocket) EndFunc #EndRegion #Region Func ReadUini($aIniFile, $sLogFile) If FileExists($aIniFailFile) Then FileDelete($aIniFailFile) EndIf Local $iIniError = "" Local $iIniFail = 0 Local $iniCheck = "" Local $aChar[3] For $i = 1 To 13 $aChar[0] = Chr(Random(97, 122, 1)) $aChar[1] = Chr(Random(48, 57, 1)) $iniCheck &= $aChar[Random(0, 1, 1)] Next Global $aServerDirLocal = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", $aServerShort & " DIR ###", $iniCheck) Global $aConfigFile = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", $aServerShort & " config ###", $iniCheck) Global $aServerVer = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Version (ex. public/latest_experimental/alpha18.4) ###", $iniCheck) Global $aServerExtraCMD = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", $aServerShort & " extra commandline parameters (ex. -serverpassword) ###", $iniCheck) Global $aServerIP = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Server Local IP (ex. 192.168.1.10) ###", $iniCheck) Global $aSteamCMDDir = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD DIR ###", $iniCheck) Global $aSteamCMDUserName = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD Username (optional) ###", $iniCheck) Global $aSteamCMDPassword = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD Password (optional) ###", $iniCheck) Global $aSteamUpdateCommandline = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD commandline (caution: overwrites all settings above) ###", $iniCheck) Global $aServerOnlinePlayerYN = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Check for, and log, online players? (yes/no) ###", $iniCheck) Global $aServerOnlinePlayerSec = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Check for online players every _ seconds (30-600) ###", $iniCheck) Global $aWipeServer = IniRead($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Rename GameSave with updates causing a SERVER WIPE (while retaining old save files) ###", $iniCheck) Global $aAppendVerBegin = IniRead($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Append Server Version (ex. Alpha 16.4 (b8)) at BEGINNING of Server Name? (yes/no) ###", $iniCheck) Global $aAppendVerEnd = IniRead($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Append Server Version (ex. Alpha 16.4 (b8)) at END of Server Name? (yes/no) ###", $iniCheck) Global $aAppendVerShort = IniRead($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Use SHORT name (B9) or LONG (Alpha 17.1 (B9))? (short/long) ###", $iniCheck) Global $aQueryYN = IniRead($aIniFile, " --------------- KEEP ALIVE WATCHDOG --------------- ", "Use Query Port to check if server is alive? (yes/no) ###", $iniCheck) Global $aQueryCheckSec = IniRead($aIniFile, " --------------- KEEP ALIVE WATCHDOG --------------- ", "Query Port check interval in seconds (30-900) ###", $iniCheck) Global $aQueryIP = IniRead($aIniFile, " --------------- KEEP ALIVE WATCHDOG --------------- ", "Query IP (ex. 127.0.0.1 - Leave BLANK for server IP) ###", $iniCheck) Global $aTelnetCheckYN = IniRead($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Use telnet to check if server is alive? (yes/no) ###", $iniCheck) Global $aTelnetIP = IniRead($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Telnet IP (ex. 127.0.0.1 - Leave BLANK for server IP) ###", $iniCheck) Global $aTelnetCheckSec = IniRead($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Telnet check interval in seconds (30-900) ###", $iniCheck) Global $aWatchdogWaitServerUpdate = IniRead($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Pause watchdog for _ minutes after server updated to allow map generation (1-360) ###", $iniCheck) Global $aWatchdogWaitServerStart = IniRead($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Pause watchdog for _ minutes after server started to allow server to come online (1-60) ###", $iniCheck) Global $aWatchdogAttemptsBeforeRestart = IniRead($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Number of failed responses (after server has responded at least once) before restarting server (1-10) (Default is 3) ###", $iniCheck) Global $aExMemRestart = IniRead($aIniFile, " --------------- RESTART ON EXCESSIVE MEMORY USE --------------- ", "Restart on excessive memory use? (yes/no) ###", $iniCheck) Global $aExMemAmt = IniRead($aIniFile, " --------------- RESTART ON EXCESSIVE MEMORY USE --------------- ", "Excessive memory amount? ###", $iniCheck) Global $aBackupYN = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Use scheduled backups? (yes/no) ###", $iniCheck) Global $aBackupDays = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Backup days (comma separated 0-Everyday 1-Sunday 7-Saturday 0-7 ex.2,4,6) ###", $iniCheck) Global $aBackupHours = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Backup hours (comma separated 00-23 ex.04,16) ###", $iniCheck) Global $aBackupMin = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Backup minute (00-59) ###", $iniCheck) Global $aBackupFull = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Full " & $aGameName1 & " and Util folder backup every __ backups (0 to disable)(0-99) ###", $iniCheck) Global $aBackupAddedFolders = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Additional backup folders / files (comma separated. Folders add \ at end. ex. C:\7DTD\,D:\7DTD Server\) ###", $iniCheck) Global $aBackupOutputFolder = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Output folder ###", $iniCheck) Global $aBackupNumberToKeep = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Number of backups to keep (1-999) ###", $iniCheck) Global $aBackupTimeoutSec = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Max time in seconds to wait for backup to complete (30-999) ###", $iniCheck) Global $aBackupCommandLine = IniRead($aIniFile, " --------------- BACKUP --------------- ", "7zip backup additional command line parameters (Default: a -spf -r -tzip -ssw) ###", $iniCheck) Global $aBackupSendDiscordYN = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Send Discord announcement when backup initiated (yes/no) ###", $iniCheck) Global $aBackupSendTwitchYN = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Send Twitch announcement when backup initiated (yes/no) ###", $iniCheck) Global $aBackupInGame = IniRead($aIniFile, " --------------- BACKUP --------------- ", "In-Game announcement when backup initiated (Leave blank to disable) ###", $iniCheck) Global $aBackupDiscord = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Discord announcement when backup initiated ###", $iniCheck) Global $aBackupTwitch = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Twitch announcement when backup initiated ###", $iniCheck) Global $aRemoteRestartUse = IniRead($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Use Remote Restart? (yes/no) ###", $iniCheck) Global $aRemoteRestartPort = IniRead($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Restart Port ###", $iniCheck) Global $aRemoteRestartKey = IniRead($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Restart Key ###", $iniCheck) Global $aRemoteRestartCode = IniRead($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Restart Code ###", $iniCheck) Global $aCheckForUpdate = IniRead($aIniFile, " --------------- CHECK FOR UPDATE --------------- ", "Check for server updates? (yes/no) ###", $iniCheck) Global $aUpdateCheckInterval = IniRead($aIniFile, " --------------- CHECK FOR UPDATE --------------- ", "Update check interval in Minutes (05-59) ###", $iniCheck) Global $aRestartDaily = IniRead($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Use scheduled restarts? (yes/no) ###", $iniCheck) Global $aRestartDays = IniRead($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Restart days (comma separated 0-Everyday 1-Sunday 7-Saturday 0-7 ex.2,4,6) ###", $iniCheck) Global $bRestartHours = IniRead($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Restart hours (comma separated 00-23 ex.04,16) ###", $iniCheck) Global $bRestartMin = IniRead($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Restart minute (00-59) ###", $iniCheck) Global $sAnnounceNotifyTime1 = IniRead($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before DAILY reboot (comma separated 0-60) ###", $iniCheck) Global $sAnnounceNotifyTime2 = IniRead($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before UPDATES reboot (comma separated 0-60) ###", $iniCheck) Global $sAnnounceNotifyTime3 = IniRead($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before REMOTE RESTART reboot (comma separated 0-60) ###", $iniCheck) Global $sInGameAnnounce = IniRead($aIniFile, " --------------- IN-GAME ANNOUNCEMENT CONFIGURATION --------------- ", "Announce messages in-game? (Requires telnet) (yes/no) ###", $iniCheck) Global $sInGameDailyMessage = IniRead($aIniFile, " --------------- IN-GAME ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement DAILY (\m - minutes) ###", $iniCheck) Global $sInGameUpdateMessage = IniRead($aIniFile, " --------------- IN-GAME ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement UPDATES (\m - minutes) ###", $iniCheck) Global $sInGameRemoteRestartMessage = IniRead($aIniFile, " --------------- IN-GAME ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement REMOTE RESTART (\m - minutes) ###", $iniCheck) Global $aServerDiscord1URL = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Webhook URL ###", $iniCheck) Global $aServerDiscord1BotName = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Bot Name (optional) ###", $iniCheck) Global $aServerDiscord1Avatar = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Avatar URL (optional) ###", $iniCheck) Global $aServerDiscord1TTSYN = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Use TTS (optional) (yes/no) ###", $iniCheck) Global $aServerDiscord2URL = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Webhook URL ###", $iniCheck) Global $aServerDiscord2BotName = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Bot Name (optional) ###", $iniCheck) Global $aServerDiscord2Avatar = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Avatar URL (optional) ###", $iniCheck) Global $aServerDiscord2TTSYN = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Use TTS (optional) (yes/no) ###", $iniCheck) Global $aServerDiscord3URL = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Webhook URL ###", $iniCheck) Global $aServerDiscord3BotName = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Bot Name (optional) ###", $iniCheck) Global $aServerDiscord3Avatar = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Avatar URL (optional) ###", $iniCheck) Global $aServerDiscord3TTSYN = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Use TTS (optional) (yes/no) ###", $iniCheck) Global $aServerDiscord4URL = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Webhook URL ###", $iniCheck) Global $aServerDiscord4BotName = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Bot Name (optional) ###", $iniCheck) Global $aServerDiscord4Avatar = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Avatar URL (optional) ###", $iniCheck) Global $aServerDiscord4TTSYN = IniRead($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Use TTS (optional) (yes/no) ###", $iniCheck) Global $aServerDiscordWHSelStatus = IniRead($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send RESTART/STATUS Msg (ie 1) ###", $iniCheck) Global $aServerDiscordWHSelPlayers = IniRead($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS ONLINE Msg (ie 2) ###", $iniCheck) Global $aServerDiscordWHSelChat = IniRead($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send CHAT Msg (ie 23) ###", $iniCheck) Global $aServerDiscordWHSelDie = IniRead($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS DIE Msg (ie 1234) ###", $iniCheck) Global $sUseDiscordBotDaily = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for DAILY reboot? (yes/no) ###", $iniCheck) Global $sUseDiscordBotUpdate = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for UPDATE reboot? (yes/no) ###", $iniCheck) Global $sUseDiscordBotRemoteRestart = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for REMOTE RESTART reboot? (yes/no) ###", $iniCheck) Global $sUseDiscordBotServersUpYN = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message when server is back online (yes/no) ###", $iniCheck) Global $sUseDiscordBotPlayerChangeYN = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for Online Player changes? (yes/no) ###", $iniCheck) Global $sUseDiscordBotPlayerChatYN = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for Player Chat? (yes/no) ###", $iniCheck) Global $sUseDiscordBotPlayerDiedYN = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message when player dies? (yes/no) ###", $iniCheck) Global $sUseDiscordBotFirstAnnouncement = IniRead($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for first ANNOUNCEMENT only? (reduces bot spam)(yes/no) ###", $iniCheck) Global $sDiscordDailyMessage = IniRead($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement DAILY (\m - minutes) ###", $iniCheck) Global $sDiscordUpdateMessage = IniRead($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement UPDATES (\m - minutes) ###", $iniCheck) Global $sDiscordRemoteRestartMessage = IniRead($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement REMOTE RESTART (\m - minutes) ###", $iniCheck) Global $sDiscordServersUpMessage = IniRead($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement when server is back online ###", $iniCheck) Global $sDiscordPlayersMsg = IniRead($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Online Player Message (see above for substitutions) ###", $iniCheck) Global $sDiscordPlayerJoinMsg = IniRead($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Join Player Sub-Message (\p - Player Name(s) of player(s) that joined server, \n Next Line) ###", $iniCheck) Global $sDiscordPlayerLeftMsg = IniRead($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Left Player Sub-Message (\p - Player Name(s) of player(s) that left server, \n Next Line) ###", $iniCheck) Global $sDiscordPlayerOnlineMsg = IniRead($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Online Player Sub-Message (\p - Player Name(s) of player(s) online, \n Next Line) ###", $iniCheck) Global $sDiscordPlayerDiedMsg = IniRead($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Player Died Message (\p - Player Name, \n Next Line) ###", $iniCheck) Global $sDiscordPlayerChatMsg = IniRead($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Player Chat (\p - Player Name, \m Message) ###", $iniCheck) Global $sUseTwitchBotDaily = IniRead($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Send Twitch message for DAILY reboot? (yes/no) ###", $iniCheck) Global $sUseTwitchBotUpdate = IniRead($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Send Twitch message for UPDATE reboot? (yes/no) ###", $iniCheck) Global $sUseTwitchBotRemoteRestart = IniRead($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Send Twitch message for REMOTE RESTART reboot? (yes/no) ###", $iniCheck) Global $sUseTwitchFirstAnnouncement = IniRead($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Send Twitch message for first announcement only? (reduces bot spam)(yes/no) ###", $iniCheck) Global $sTwitchDailyMessage = IniRead($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Announcement DAILY (\m - minutes) ###", $iniCheck) Global $sTwitchUpdateMessage = IniRead($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Announcement UPDATES (\m - minutes) ###", $iniCheck) Global $sTwitchRemoteRestartMessage = IniRead($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Announcement REMOTE RESTART (\m - minutes) ###", $iniCheck) Global $sTwitchNick = IniRead($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Nick ###", $iniCheck) Global $sChatOAuth = IniRead($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "ChatOAuth ###", $iniCheck) Global $sTwitchChannels = IniRead($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Channels ###", $iniCheck) Global $aExecuteExternalScript = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Execute external script BEFORE update? (yes/no) ###", $iniCheck) Global $aExternalScriptFile = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Script to execute ###", $iniCheck) Global $aExternalScriptWait = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Wait for script to complete? (yes/no) ###", $iniCheck) Global $aExternalScriptValidateYN = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Execute external script AFTER update but BEFORE server start? (yes/no) ###", $iniCheck) Global $aExternalScriptValidateFile = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Script to execute ###", $iniCheck) Global $aExternalScriptValidateWait = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Wait for script to complete? (yes/no) ###", $iniCheck) Global $aExternalScriptUpdateYN = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Execute external script for server update restarts? (yes/no) ###", $iniCheck) Global $aExternalScriptUpdateFile = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Script to execute ###", $iniCheck) Global $aExternalScriptUpdateWait = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Wait for script to complete? (yes/no) ###", $iniCheck) Global $aExternalScriptDailyYN = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Execute external script for daily server restarts? (yes/no) ###", $iniCheck) Global $aExternalScriptDailyFile = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Script to execute ###", $iniCheck) Global $aExternalScriptDailyWait = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Wait for script to complete? (yes/no) ###", $iniCheck) Global $aExternalScriptAnnounceYN = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Execute external script when first restart announcement is made? (yes/no) ###", $iniCheck) Global $aExternalScriptAnnounceFile = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Script to execute ###", $iniCheck) Global $aExternalScriptAnnounceWait = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Wait for script to complete? (yes/no) ###", $iniCheck) Global $aExternalScriptRemoteYN = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Execute external script during restart when a remote restart request is made? (yes/no) ###", $iniCheck) Global $aExternalScriptRemoteFile = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Script to execute ###", $iniCheck) Global $aExternalScriptRemoteWait = IniRead($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Wait for script to complete? (yes/no) ###", $iniCheck) Global $aLogQuantity = IniRead($aIniFile, " --------------- LOG FILE OPTIONS --------------- ", "Number of logs ###", $iniCheck) Global $aValidate = IniRead($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Validate files with SteamCMD update? (yes/no) ###", $iniCheck) Global $aTelnetStayConnectedYN = IniRead($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Telnet: Stay Connected (Required for chat and death messaging) (yes/no) ###", $iniCheck) Global $aTelnetMonitorAllYN = IniRead($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Telnet: Monitor all traffic (Required for player chat and death announcements) (yes/no) ###", $iniCheck) Global $aTelnetTrafficCheckSec = IniRead($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Telnet: Check traffic every _ seconds) (1-10) ###", $iniCheck) Global $aUpdateSource = IniRead($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "For update checks, use (0)SteamCMD or (1)SteamDB.com ###", $iniCheck) Global $sObfuscatePass = IniRead($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Hide passwords in log files? (yes/no) ###", $iniCheck) Global $aUpdateUtil = IniRead($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Check for " & $aUtilName & " updates? (yes/no) ###", $iniCheck) Global $aUtilBetaYN = IniRead($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", $aUtilName & " version: (0)Stable, (1)Beta ###", $iniCheck) Global $aExternalScriptHideYN = IniRead($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Hide external scripts when executed? (if yes, scripts may not execute properly) (yes/no) ###", $iniCheck) Global $aFPAutoUpdateYN = IniRead($aIniFile, " --------------- (ALMOST) FUTURE PROOF UPDATE OPTIONS --------------- ", "Automatically import old priority settings into new config? (yes/no) ###", $iniCheck) Global $aFPRenameModsYN = IniRead($aIniFile, " --------------- (ALMOST) FUTURE PROOF UPDATE OPTIONS --------------- ", "Rename the Mod Folder (therefore saving and disabling it) if Future Proof was needed (3 consecutive failed starts after an update)? (yes/no) ###", $iniCheck) If $iniCheck = $aServerDirLocal Then $aServerDirLocal = @ScriptDir & "\7 Days to Die Dedicated Server" $iIniFail += 1 $iIniError = $iIniError & "ServerDirLocal, " EndIf If $iniCheck = $aSteamCMDDir Then $aSteamCMDDir = @ScriptDir & "\7 Days to Die Dedicated Server\SteamCMD" $iIniFail += 1 $iIniError = $iIniError & "SteamCMDDir, " EndIf If $iniCheck = $aSteamCMDUserName Then $aSteamCMDUserName = "" $iIniFail += 1 $iIniError = $iIniError & "SteamCMDUserName, " EndIf If $iniCheck = $aSteamCMDPassword Then $aSteamCMDPassword = "" $iIniFail += 1 $iIniError = $iIniError & "SteamCMDPassword, " EndIf If $iniCheck = $aServerVer Then $aServerVer = "public" $iIniFail += 1 $iIniError = $iIniError & "ServerVer, " EndIf If $aServerVer = "0" Then $aServerVer = "public" If $aServerVer = "1" Then $aServerVer = "latest_experimental" Global $aSteamDBURL = "https://steamdb.info/app/" & $aSteamAppID & "/depots/?branch=" & $aServerVer If $iniCheck = $aServerExtraCMD Then $aServerExtraCMD = "" $iIniFail += 1 $iIniError = $iIniError & "ServerExtraCMD, " EndIf If $iniCheck = $aConfigFile Then $aConfigFile = "serverconfig.xml" $iIniFail += 1 $iIniError = $iIniError & "ConfigFile, " EndIf If $iniCheck = $aWipeServer Then $aWipeServer = "no" $iIniFail += 1 $iIniError = $iIniError & "WipeServer, " EndIf If $iniCheck = $aAppendVerBegin Then $aAppendVerBegin = "no" $iIniFail += 1 $iIniError = $iIniError & "AppendVerBegin, " EndIf If $iniCheck = $aServerOnlinePlayerYN Then $aServerOnlinePlayerYN = "yes" $iIniFail += 1 $iIniError = $iIniError & "ServerOnlinePLayerYN, " EndIf If $iniCheck = $aServerOnlinePlayerSec Then $aServerOnlinePlayerSec = "60" $iIniFail += 1 $iIniError = $iIniError & "ServerOnlinePlayerSec, " ElseIf $aServerOnlinePlayerSec < 30 Then $aServerOnlinePlayerSec = 30 ElseIf $aServerOnlinePlayerSec > 600 Then $aServerOnlinePlayerSec = 600 EndIf If $iniCheck = $aAppendVerEnd Then $aAppendVerEnd = "no" $iIniFail += 1 $iIniError = $iIniError & "AppendVerEnd, " EndIf If $iniCheck = $aAppendVerShort Then $aAppendVerShort = "long" $iIniFail += 1 $iIniError = $iIniError & "AppendVerShort, " EndIf If $iniCheck = $aServerIP Then $aServerIP = @IPAddress1 $iIniFail += 1 $iIniError = $iIniError & "AppendVerShort, " EndIf If $iniCheck = $aValidate Then $aValidate = "no" $iIniFail += 1 $iIniError = $iIniError & "Validate, " EndIf If $iniCheck = $aTelnetStayConnectedYN Then $aTelnetStayConnectedYN = "yes" $iIniFail += 1 $iIniError = $iIniError & "TelnetStayConnectedYN, " EndIf If $iniCheck = $aTelnetMonitorAllYN Then $aTelnetMonitorAllYN = "yes" $iIniFail += 1 $iIniError = $iIniError & "TelnetMonitorAllYN, " EndIf If $iniCheck = $aTelnetTrafficCheckSec Then $aTelnetTrafficCheckSec = "5" $iIniFail += 1 $iIniError = $iIniError & "TelnetTrafficCheckSec, " ElseIf $aTelnetTrafficCheckSec < 1 Then $aTelnetTrafficCheckSec = 1 ElseIf $aTelnetTrafficCheckSec > 10 Then $aTelnetTrafficCheckSec = 10 EndIf If $iniCheck = $aUpdateSource Then $aUpdateSource = "0" $iIniFail += 1 $iIniError = $iIniError & "UpdateSource, " EndIf If $iniCheck = $aRemoteRestartUse Then $aRemoteRestartUse = "no" $iIniFail += 1 $iIniError = $iIniError & "RemoteRestartUse, " EndIf If $iniCheck = $aRemoteRestartPort Then $aRemoteRestartPort = "57520" $iIniFail += 1 $iIniError = $iIniError & "RemoteRestartPort, " EndIf If $iniCheck = $aRemoteRestartKey Then $aRemoteRestartKey = "restart" $iIniFail += 1 $iIniError = $iIniError & "RemoteRestartKey, " EndIf If $iniCheck = $aRemoteRestartCode Then $aRemoteRestartCode = "password" $iIniFail += 1 $iIniError = $iIniError & "RemoteRestartCode, " EndIf If $iniCheck = $aQueryYN Then $aQueryYN = "yes" $iIniFail += 1 $iIniError = $iIniError & "QueryYN, " EndIf If $iniCheck = $aQueryCheckSec Then $aQueryCheckSec = "180" $iIniFail += 1 $iIniError = $iIniError & "TelnetCheckSec, " ElseIf $aQueryCheckSec < 30 Then $aQueryCheckSec = 30 LogWrite(" [Notice] Query Port server-is-alive check interval was out of range. Interval set to: " & $aQueryCheckSec & " seconds.") ElseIf $aQueryCheckSec > 900 Then $aQueryCheckSec = 900 LogWrite(" [Notice] Query Port server-is-alive check interval was out of range. Interval set to: " & $aQueryCheckSec & " seconds.") EndIf If $iniCheck = $aQueryIP Then $aQueryIP = "127.0.0.1" $iIniFail += 1 $iIniError = $iIniError & "QueryIP, " EndIf If $iniCheck = $aTelnetIP Then $aTelnetIP = "127.0.0.1" $iIniFail += 1 $iIniError = $iIniError & "TelnetIP, " EndIf If $iniCheck = $aTelnetCheckYN Then $aTelnetCheckYN = "yes" $iIniFail += 1 $iIniError = $iIniError & "TelnetCheckYN, " EndIf If $iniCheck = $aTelnetCheckSec Then $aTelnetCheckSec = "180" $iIniFail += 1 $iIniError = $iIniError & "TelnetCheckSec, " ElseIf $aTelnetCheckSec < 30 Then $aTelnetCheckSec = 30 LogWrite(" [Notice] Telnet server-is-alive check interval was out of range. Interval set to: " & $aTelnetCheckSec & " seconds.") ElseIf $aTelnetCheckSec > 900 Then $aTelnetCheckSec = 900 LogWrite(" [Notice] Telnet server-is-alive check interval was out of range. Interval set to: " & $aTelnetCheckSec & " seconds.") EndIf If $iniCheck = $aWatchdogWaitServerUpdate Then $aWatchdogWaitServerUpdate = "60" $iIniFail += 1 $iIniError = $iIniError & "TelnetDelayAfterUpdate, " ElseIf $aWatchdogWaitServerUpdate < 1 Then $aWatchdogWaitServerUpdate = 1 LogWrite(" [Notice] Telnet server-is-alive check interval was out of range. Interval set to: " & $aWatchdogWaitServerUpdate & " minutes.") ElseIf $aWatchdogWaitServerUpdate > 360 Then $aWatchdogWaitServerUpdate = 360 LogWrite(" [Notice] Telnet server-is-alive check interval was out of range. Interval set to: " & $aWatchdogWaitServerUpdate & " minutes.") EndIf If $iniCheck = $aWatchdogWaitServerStart Then $aWatchdogWaitServerStart = "5" $iIniFail += 1 $iIniError = $iIniError & "WatchdogWaitServerStart, " ElseIf $aWatchdogWaitServerStart < 1 Then $aWatchdogWaitServerStart = 1 LogWrite(" [Watchdog] Watchdog wait for server to start was out of range. Interval set to: " & $aWatchdogWaitServerStart & " minutes.") ElseIf $aWatchdogWaitServerStart > 60 Then $aWatchdogWaitServerStart = 60 LogWrite(" [Watchdog] Watchdog wait for server to start was out of range. Interval set to: " & $aWatchdogWaitServerStart & " minutes.") EndIf If $iniCheck = $aWatchdogAttemptsBeforeRestart Then $aWatchdogWaitServerStart = "3" $iIniFail += 1 $iIniError = $iIniError & "WatchdogAttemptsBeforeRestart, " ElseIf $aWatchdogAttemptsBeforeRestart < 1 Then $aWatchdogAttemptsBeforeRestart = 1 LogWrite(" [Watchdog] Watchdog Attempts Before Restart was out of range. Attempts set to: " & $aWatchdogAttemptsBeforeRestart & ".") ElseIf $aWatchdogAttemptsBeforeRestart > 10 Then $aWatchdogAttemptsBeforeRestart = 10 LogWrite(" [Watchdog] Watchdog Attempts Before Restart was out of range. Attempts set to: " & $aWatchdogAttemptsBeforeRestart & ".") EndIf If $iniCheck = $sObfuscatePass Then $sObfuscatePass = "no" $iIniFail += 1 $iIniError = $iIniError & "ObfuscatePass ," EndIf If $iniCheck = $aCheckForUpdate Then $aCheckForUpdate = "yes" $iIniFail += 1 $iIniError = $iIniError & "CheckForUpdate, " EndIf If $iniCheck = $aUpdateCheckInterval Then $aUpdateCheckInterval = "15" $iIniFail += 1 $iIniError = $iIniError & "UpdateCheckInterval, " ElseIf $aUpdateCheckInterval < 5 Then $aUpdateCheckInterval = 5 LogWrite(" [Notice] Update check interval was out of range. Interval set to: " & $aUpdateCheckInterval & " minutes.") EndIf If $iniCheck = $aRestartDaily Then $aRestartDaily = "yes" $iIniFail += 1 $iIniError = $iIniError & "RestartDaily, " EndIf If $iniCheck = $aRestartDays Then $aRestartDays = "0" $iIniFail += 1 $iIniError = $iIniError & "RestartDays, " EndIf If $iniCheck = $bRestartHours Then $bRestartHours = "04,16" $iIniFail += 1 $iIniError = $iIniError & "RestartHours, " EndIf If $iniCheck = $bRestartMin Then $bRestartMin = "00" $iIniFail += 1 $iIniError = $iIniError & "RestartMin, " EndIf If $iniCheck = $aExMemAmt Then $aExMemAmt = "6000000000" $iIniFail += 1 $iIniError = $iIniError & "$aExMemAmt, " EndIf If $iniCheck = $aBackupYN Then $aBackupYN = "yes" $iIniFail += 1 $iIniError = $iIniError & "BackupYN, " EndIf If $iniCheck = $aBackupDays Then $aBackupDays = "0" $iIniFail += 1 $iIniError = $iIniError & "BackupDays, " EndIf If $iniCheck = $aBackupHours Then $aBackupHours = "00,06,12,18" $iIniFail += 1 $iIniError = $iIniError & "BackupHours, " EndIf If $iniCheck = $aBackupMin Then $aBackupMin = "00" $iIniFail += 1 $iIniError = $iIniError & "BackupMin, " EndIf If $iniCheck = $aBackupFull Then $aBackupFull = "10" $iIniFail += 1 $iIniError = $iIniError & "BackupFull, " EndIf If $iniCheck = $aBackupOutputFolder Then $aBackupOutputFolder = @ScriptDir & "\Backups" $iIniFail += 1 $iIniError = $iIniError & "BackupOutputFolder, " EndIf If $iniCheck = $aBackupAddedFolders Then $aBackupAddedFolders = "" $iIniFail += 1 $iIniError = $iIniError & "BackupAddedFolders, " EndIf If $iniCheck = $aBackupNumberToKeep Then $aBackupNumberToKeep = "56" $iIniFail += 1 $iIniError = $iIniError & "BackupDeleteOlder, " ElseIf $aBackupNumberToKeep < 0 Then $aBackupNumberToKeep = 1 ElseIf $aBackupNumberToKeep > 999 Then $aBackupNumberToKeep = 999 EndIf If $iniCheck = $aBackupTimeoutSec Then $aBackupTimeoutSec = "600" $iIniFail += 1 $iIniError = $iIniError & "BackupTimeoutSec, " ElseIf $aBackupTimeoutSec < 30 Then $aBackupTimeoutSec = 30 ElseIf $aBackupTimeoutSec > 999 Then $aBackupTimeoutSec = 999 EndIf If $iniCheck = $aBackupCommandLine Then $aBackupCommandLine = "a -spf -r -tzip -ssw" $iIniFail += 1 $iIniError = $iIniError & "BackupCommandLine, " EndIf If $iniCheck = $aBackupSendDiscordYN Then $aBackupSendDiscordYN = "no" $iIniFail += 1 $iIniError = $iIniError & "BackupSendDiscordYN, " EndIf If $iniCheck = $aBackupSendTwitchYN Then $aBackupSendTwitchYN = "no" $iIniFail += 1 $iIniError = $iIniError & "BackupSendTwitchYN, " EndIf If $iniCheck = $aBackupInGame Then $aBackupInGame = "Server backup started." $iIniFail += 1 $iIniError = $iIniError & "BackupInGame, " EndIf If $iniCheck = $aBackupDiscord Then $aBackupDiscord = "Server backup started." $iIniFail += 1 $iIniError = $iIniError & "BackupDiscord, " EndIf If $iniCheck = $aBackupTwitch Then $aBackupTwitch = "Server backup started." $iIniFail += 1 $iIniError = $iIniError & "BackupTwitch, " EndIf If $iniCheck = $aExMemRestart Then $aExMemRestart = "no" $iIniFail += 1 $iIniError = $iIniError & "ExMemRestart, " EndIf If $iniCheck = $aLogQuantity Then $aLogQuantity = "30" $iIniFail += 1 $iIniError = $iIniError & "LogQuantity, " EndIf If $iniCheck = $sAnnounceNotifyTime1 Then $sAnnounceNotifyTime1 = "1,2,5,10,15" $iIniFail += 1 $iIniError = $iIniError & "AnnounceNotifyTime1, " EndIf If $iniCheck = $sAnnounceNotifyTime2 Then $sAnnounceNotifyTime2 = "1,2,5,10" $iIniFail += 1 $iIniError = $iIniError & "AnnounceNotifyTime2, " EndIf If $iniCheck = $sAnnounceNotifyTime3 Then $sAnnounceNotifyTime3 = "1,3" $iIniFail += 1 $iIniError = $iIniError & "AnnounceNotifyTime3, " EndIf If $iniCheck = $sInGameDailyMessage Then $sInGameDailyMessage = "Daily server restart begins in \m minute(s)." $iIniFail += 1 $iIniError = $iIniError & "InGameDailyMessage, " EndIf If $iniCheck = $sInGameUpdateMessage Then $sInGameUpdateMessage = "Fun Pimps have released a new update. Server is rebooting in \m minute(s)." $iIniFail += 1 $iIniError = $iIniError & "InGameUpdateMessage, " EndIf If $iniCheck = $sInGameRemoteRestartMessage Then $sInGameRemoteRestartMessage = "Admin has requested a server reboot. Server is rebooting in \m minute(s)." $iIniFail += 1 $iIniError = $iIniError & "InGameRemoteRestartMessage, " EndIf If $iniCheck = $aServerDiscord1URL Then $aServerDiscord1URL = "https://discordapp.com/api/webhooks/012345678901234567/abcdefghijklmnopqrstuvwxyz01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcde" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord1URL, " EndIf If $iniCheck = $aServerDiscord1BotName Then $aServerDiscord1BotName = "7DTD Bot" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord1BotName, " EndIf If $iniCheck = $aServerDiscord1Avatar Then $aServerDiscord1Avatar = "" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord1Avatar, " EndIf If $iniCheck = $aServerDiscord1TTSYN Then $aServerDiscord1TTSYN = "no" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord1TTSYN, " EndIf If $iniCheck = $aServerDiscord2URL Then $aServerDiscord2URL = "https://discordapp.com/api/webhooks/012345678901234567/abcdefghijklmnopqrstuvwxyz01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcde" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord2URL, " EndIf If $iniCheck = $aServerDiscord2BotName Then $aServerDiscord2BotName = "7DTD Bot" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord2BotName, " EndIf If $iniCheck = $aServerDiscord2Avatar Then $aServerDiscord2Avatar = "" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord2Avatar, " EndIf If $iniCheck = $aServerDiscord2TTSYN Then $aServerDiscord2TTSYN = "no" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord2TTSYN, " EndIf If $iniCheck = $aServerDiscord3URL Then $aServerDiscord3URL = "https://discordapp.com/api/webhooks/012345678901234567/abcdefghijklmnopqrstuvwxyz01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcde" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord3URL, " EndIf If $iniCheck = $aServerDiscord3BotName Then $aServerDiscord3BotName = "7DTD Bot" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord3BotName, " EndIf If $iniCheck = $aServerDiscord3Avatar Then $aServerDiscord3Avatar = "" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord3Avatar, " EndIf If $iniCheck = $aServerDiscord3TTSYN Then $aServerDiscord3TTSYN = "no" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord3TTSYN, " EndIf If $iniCheck = $aServerDiscord4URL Then $aServerDiscord4URL = "https://discordapp.com/api/webhooks/012345678901234567/abcdefghijklmnopqrstuvwxyz01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcde" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord4URL, " EndIf If $iniCheck = $aServerDiscord4BotName Then $aServerDiscord4BotName = "7DTD Bot" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord4BotName, " EndIf If $iniCheck = $aServerDiscord4Avatar Then $aServerDiscord4Avatar = "" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord4Avatar, " EndIf If $iniCheck = $aServerDiscord4TTSYN Then $aServerDiscord4TTSYN = "no" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscord4TTSYN, " EndIf If $iniCheck = $aServerDiscordWHSelStatus Then $aServerDiscordWHSelStatus = "1" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscordWHSelStatus, " EndIf If $iniCheck = $aServerDiscordWHSelPlayers Then $aServerDiscordWHSelPlayers = "2" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscordWHSelPlayers, " EndIf If $iniCheck = $aServerDiscordWHSelChat Then $aServerDiscordWHSelChat = "3" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscordWHSelChat, " EndIf If $iniCheck = $aServerDiscordWHSelDie Then $aServerDiscordWHSelDie = "3" $iIniFail += 1 $iIniError = $iIniError & "ServerDiscordWHSelDie, " EndIf If $iniCheck = $sDiscordDailyMessage Then $sDiscordDailyMessage = "Daily server restart begins in \m minute(s)." $iIniFail += 1 $iIniError = $iIniError & "DiscordDailyMessage, " EndIf If $iniCheck = $sDiscordUpdateMessage Then $sDiscordUpdateMessage = "Fun Pimps have released a new update. Server is rebooting in \m minute(s)." $iIniFail += 1 $iIniError = $iIniError & "DiscordUpdateMessage, " EndIf If $iniCheck = $sDiscordRemoteRestartMessage Then $sDiscordRemoteRestartMessage = "Admin has requested a server reboot. Server is rebooting in \m minute(s)." $iIniFail += 1 $iIniError = $iIniError & "DiscordRemoteRestartMessage, " EndIf If $iniCheck = $sDiscordServersUpMessage Then $sDiscordServersUpMessage = $aGameName1 & " server is online and ready for connection." $iIniFail += 1 $iIniError = $iIniError & "DiscordServersUpMessage, " EndIf If $iniCheck = $sTwitchDailyMessage Then $sTwitchDailyMessage = "Daily server restart begins in \m minute(s)." $iIniFail += 1 $iIniError = $iIniError & "TwitchDailyMessage, " EndIf If $iniCheck = $sTwitchUpdateMessage Then $sTwitchUpdateMessage = "Fun Pimps have released a new update. Server is rebooting in \m minute(s)." $iIniFail += 1 $iIniError = $iIniError & "TwitchUpdateMessage, " EndIf If $iniCheck = $sTwitchRemoteRestartMessage Then $sTwitchRemoteRestartMessage = "Admin has requested a server reboot. Server is rebooting in \m minute(s)." $iIniFail += 1 $iIniError = $iIniError & "TwitchRemoteRestartMessage, " EndIf If $iniCheck = $sInGameAnnounce Then $sInGameAnnounce = "yes" $iIniFail += 1 $iIniError = $iIniError & "InGameAnnounce, " EndIf If $iniCheck = $sUseDiscordBotDaily Then $sUseDiscordBotDaily = "yes" $iIniFail += 1 $iIniError = $iIniError & "UseDiscordBotDaily, " EndIf If $iniCheck = $sUseDiscordBotUpdate Then $sUseDiscordBotUpdate = "yes" $iIniFail += 1 $iIniError = $iIniError & "UseDiscordBotUpdate, " EndIf If $iniCheck = $sUseDiscordBotRemoteRestart Then $sUseDiscordBotRemoteRestart = "yes" $iIniFail += 1 $iIniError = $iIniError & "UseDiscordBotRemoteRestart, " EndIf If $iniCheck = $sUseDiscordBotServersUpYN Then $sUseDiscordBotServersUpYN = "yes" $iIniFail += 1 $iIniError = $iIniError & "UseDiscordBotSereversUpYN, " EndIf If $iniCheck = $sUseDiscordBotPlayerChangeYN Then $sUseDiscordBotPlayerChangeYN = "yes" $iIniFail += 1 $iIniError = $iIniError & "UseDiscordBotPlayerChangeYN, " EndIf If $iniCheck = $sUseDiscordBotPlayerChatYN Then $sUseDiscordBotPlayerChatYN = "yes" $iIniFail += 1 $iIniError = $iIniError & "UseDiscordBotPlayerChatYN, " EndIf If $iniCheck = $sUseDiscordBotPlayerDiedYN Then $sUseDiscordBotPlayerDiedYN = "yes" $iIniFail += 1 $iIniError = $iIniError & "UseDiscordBotPlayerDiedYN, " EndIf If $iniCheck = $sUseDiscordBotFirstAnnouncement Then $sUseDiscordBotFirstAnnouncement = "no" $iIniFail += 1 $iIniError = $iIniError & "UseDiscordBotFirstAnnouncement, " EndIf If $iniCheck = $sDiscordPlayersMsg Then $sDiscordPlayersMsg = 'Players Online: **\o / \m** Game Time: **\t** Next Horde: **\h days**\j\l\a' $iIniFail += 1 $iIniError = $iIniError & "DiscordPlayersMsg, " EndIf If $iniCheck = $sDiscordPlayerJoinMsg Then $sDiscordPlayerJoinMsg = 'Joined: *\p*' $iIniFail += 1 $iIniError = $iIniError & "DiscordPlayerJoinedMsg, " EndIf If $iniCheck = $sDiscordPlayerLeftMsg Then $sDiscordPlayerLeftMsg = 'Left: *\p*' $iIniFail += 1 $iIniError = $iIniError & "DiscordPlayerLeftMsg, " EndIf If $iniCheck = $sDiscordPlayerOnlineMsg Then $sDiscordPlayerOnlineMsg = '\nOnline Players: **\p**' $iIniFail += 1 $iIniError = $iIniError & "DiscordPlayerOnlineMsg, " EndIf If $iniCheck = $sDiscordPlayerDiedMsg Then $sDiscordPlayerDiedMsg = '*\p died.*' $iIniFail += 1 $iIniError = $iIniError & "DiscordPlayerDiedMsg, " EndIf If $iniCheck = $sDiscordPlayerChatMsg Then $sDiscordPlayerChatMsg = '[Chat] **\p**: \m' $iIniFail += 1 $iIniError = $iIniError & "DiscordPlayerChatMsg, " EndIf If $iniCheck = $sUseTwitchBotDaily Then $sUseTwitchBotDaily = "no" $iIniFail += 1 $iIniError = $iIniError & "UseTwitchBotDaily, " EndIf If $iniCheck = $sUseTwitchBotUpdate Then $sUseTwitchBotUpdate = "no" $iIniFail += 1 $iIniError = $iIniError & "UseTwitchBotUpdate, " EndIf If $iniCheck = $sUseTwitchBotRemoteRestart Then $sUseTwitchBotRemoteRestart = "no" $iIniFail += 1 $iIniError = $iIniError & "UseTwitchBotRemoteRestart, " EndIf If $iniCheck = $sUseTwitchFirstAnnouncement Then $sUseTwitchFirstAnnouncement = "no" $iIniFail += 1 $iIniError = $iIniError & "UseTwitchFirstAnnouncement, " EndIf If $iniCheck = $sTwitchNick Then $sTwitchNick = "twitchbotusername" $iIniFail += 1 $iIniError = $iIniError & "TwitchNick, " EndIf If $iniCheck = $sChatOAuth Then $sChatOAuth = "oauth:1234(Generate OAuth Token Here: https://twitchapps.com/tmi)" $iIniFail += 1 $iIniError = $iIniError & "ChatOAuth, " EndIf If $iniCheck = $sTwitchChannels Then $sTwitchChannels = "channel1,channel2,channel3" $iIniFail += 1 $iIniError = $iIniError & "TwitchChannels, " EndIf If $iniCheck = $aExecuteExternalScript Then $aExecuteExternalScript = "no" $iIniFail += 1 $iIniError = $iIniError & "ExecuteExternalScript, " EndIf If $iniCheck = $aExternalScriptFile Then $aExternalScriptFile = "" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptFile, " EndIf If $iniCheck = $aExternalScriptWait Then $aExternalScriptWait = "no" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptWait, " EndIf If $iniCheck = $aExternalScriptValidateYN Then $aExternalScriptValidateYN = "no" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptValidateYN, " EndIf If $iniCheck = $aExternalScriptValidateFile Then $aExternalScriptValidateFile = "" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptValidateFile, " EndIf If $iniCheck = $aExternalScriptValidateWait Then $aExternalScriptValidateWait = "no" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptValidateWait, " EndIf If $iniCheck = $aExternalScriptUpdateYN Then $aExternalScriptUpdateYN = "no" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptUpdateYN, " EndIf If $iniCheck = $aExternalScriptUpdateFile Then $aExternalScriptUpdateFile = "" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptUpdateFile, " EndIf If $iniCheck = $aExternalScriptUpdateWait Then $aExternalScriptUpdateWait = "no" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptUpdateFileName, " EndIf If $iniCheck = $aExternalScriptDailyYN Then $aExternalScriptDailyYN = "no" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptDailyYN, " EndIf If $iniCheck = $aExternalScriptDailyFile Then $aExternalScriptDailyFile = "" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptDailyFile, " EndIf If $iniCheck = $aExternalScriptDailyWait Then $aExternalScriptDailyWait = "no" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptDailyWait, " EndIf If $iniCheck = $aExternalScriptAnnounceYN Then $aExternalScriptAnnounceYN = "no" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptAnnounceYN, " EndIf If $iniCheck = $aExternalScriptAnnounceFile Then $aExternalScriptAnnounceFile = "" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptAnnounceFile, " EndIf If $iniCheck = $aExternalScriptAnnounceWait Then $aExternalScriptAnnounceWait = "no" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptAnnounceWait, " EndIf If $iniCheck = $aExternalScriptRemoteYN Then $aExternalScriptRemoteYN = "no" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptRemoteYN, " EndIf If $iniCheck = $aExternalScriptRemoteFile Then $aExternalScriptRemoteFile = "" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptRemoteDir, " EndIf If $iniCheck = $aExternalScriptRemoteWait Then $aExternalScriptRemoteWait = "no" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptRemoteWait, " EndIf If $iniCheck = $aExternalScriptHideYN Then $aExternalScriptHideYN = "no" $iIniFail += 1 $iIniError = $iIniError & "ExternalScriptHideYN, " EndIf If $iniCheck = $aUpdateUtil Then $aUpdateUtil = "yes" $iIniFail += 1 $iIniError = $iIniError & "UpdateUtil, " EndIf If $iniCheck = $aUtilBetaYN Then $aUtilBetaYN = "1" $iIniFail += 1 $iIniError = $iIniError & "UtilBetaYN, " EndIf If $iniCheck = $aFPAutoUpdateYN Then $aFPAutoUpdateYN = "yes" $iIniFail += 1 $iIniError = $iIniError & "FPAutoUpdateYN, " EndIf If $iniCheck = $aFPRenameModsYN Then $aFPRenameModsYN = "yes" $iIniFail += 1 $iIniError = $iIniError & "FPRenameModsYN, " EndIf LogWrite(" [Config] Importing settings from 7dtdServerUtil.ini.") $aServerDirLocal = RemoveInvalidCharacters($aServerDirLocal) $aServerDirLocal = RemoveTrailingSlash($aServerDirLocal) $aSteamCMDDir = RemoveInvalidCharacters($aSteamCMDDir) $aSteamCMDDir = RemoveTrailingSlash($aSteamCMDDir) $aConfigFile = RemoveInvalidCharacters($aConfigFile) If $sUseDiscordBotRemoteRestart = "yes" Or $sUseDiscordBotDaily = "yes" Or $sUseDiscordBotUpdate = "yes" Or $sUseTwitchBotRemoteRestart = "yes" Or $sUseTwitchBotDaily = "yes" Or $sUseTwitchBotUpdate = "yes" Or $sInGameAnnounce = "yes" Then Global $aDailyMsgInGame = AnnounceReplaceTime($sAnnounceNotifyTime1, $sInGameDailyMessage) Global $aDailyMsgDiscord = AnnounceReplaceTime($sAnnounceNotifyTime1, $sDiscordDailyMessage) Global $aDailyMsgTwitch = AnnounceReplaceTime($sAnnounceNotifyTime1, $sTwitchDailyMessage) Global $aDailyTime = StringSplit($sAnnounceNotifyTime1, ",") Global $aDailyCnt = Int($aDailyTime[0]) Global $aUpdateMsgInGame = AnnounceReplaceTime($sAnnounceNotifyTime2, $sInGameUpdateMessage) Global $aUpdateMsgDiscord = AnnounceReplaceTime($sAnnounceNotifyTime2, $sDiscordUpdateMessage) Global $aUpdateMsgTwitch = AnnounceReplaceTime($sAnnounceNotifyTime2, $sTwitchUpdateMessage) Global $aUpdateTime = StringSplit($sAnnounceNotifyTime2, ",") Global $aUpdateCnt = Int($aUpdateTime[0]) Global $aRemoteMsgInGame = AnnounceReplaceTime($sAnnounceNotifyTime3, $sInGameRemoteRestartMessage) Global $aRemoteMsgDiscord = AnnounceReplaceTime($sAnnounceNotifyTime3, $sDiscordRemoteRestartMessage) Global $aRemoteMsgTwitch = AnnounceReplaceTime($sAnnounceNotifyTime3, $sTwitchRemoteRestartMessage) Global $aRemoteTime = StringSplit($sAnnounceNotifyTime3, ",") Global $aRemoteCnt = Int($aRemoteTime[0]) Global $aDelayShutdownTime = Int($aDailyTime[$aDailyCnt]) DailyRestartOffset($bRestartHours, $bRestartMin, $aDelayShutdownTime) Else Global $aDelayShutdownTime = 0 EndIf LogWrite("", " . . . Server Folder = " & $aServerDirLocal) LogWrite("", " . . . SteamCMD Folder = " & $aSteamCMDDir) _SteamCMDCommandlineRead() If StringLen($aSteamUpdateCommandline) < 20 Then _SteamCMDCreate() If FileExists($aBackupOutputFolder) = 0 Then DirCreate($aBackupOutputFolder) If $iIniFail > 0 Then iniFileCheck($aIniFile, $iIniFail, $iIniError) EndIf EndFunc Func _RestartUtil($fQuickRebootTF = True, $tAdmin = False) Local $Pid Local $xArray[13] $xArray[0] = '@echo off' $xArray[1] = 'echo --------------------------------------------' $xArray[2] = 'echo Waiting 5 seconds for shutdown to complete' $xArray[3] = 'echo --------------------------------------------' $xArray[4] = 'timeout 5' $xArray[5] = 'start "Starting ' & $aUtilName & '" "' & $aServerBatchFile & '"' $xArray[6] = 'echo --------------------------------------------' $xArray[7] = 'echo AtlasServerUpdateUtility started . . .' $xArray[8] = 'echo --------------------------------------------' $xArray[9] = 'timeout 3' $xArray[10] = 'exit' Local $tBatFile = $aFolderTemp & $aUtilName & "_Delay_Restart.bat" FileDelete($tBatFile) _FileWriteFromArray($tBatFile, $xArray) If @Compiled Then If $tAdmin Then ShellExecute($tBatFile, "", "", "runas") Else $Pid = Run($tBatFile, "", @SW_HIDE) EndIf Else If $tAdmin Then _Splash("Run as administrator selected", 2000) ShellExecute(@AutoItExe & ' "' & @ScriptFullPath & '" ' & $CmdLineRaw, "", "", "runas") Else $Pid = Run(@AutoItExe & ' "' & @ScriptFullPath & '" ' & $CmdLineRaw, @ScriptDir, Default, 1) EndIf If @error Then Return SetError(@error, 0, 0) EndIf StdinWrite($Pid, @AutoItPID) EndIf Sleep(50) _ExitUtil() EndFunc Func _ExitUtil() _PlinkDisconnect() Exit EndFunc Func iniFileCheck($aIniFile, $iIniFail, $iIniError) Local $tFileLen = FileRead($aIniFile) If $tFileLen > 8000 Then Local $aMyDate, $aMyTime _DateTimeSplit(_NowCalc(), $aMyDate, $aMyTime) Local $iniDate = StringFormat("%04i.%02i.%02i.%02i%02i", $aMyDate[1], $aMyDate[2], $aMyDate[3], $aMyTime[1], $aMyTime[2]) FileMove($aIniFile, $aIniFile & "_" & $iniDate & ".bak", 1) UpdateIni($aIniFile) Local $iIniErrorCRLF = StringRegExpReplace($iIniError, ", ", @CRLF & @TAB) FileWriteLine($aIniFailFile, _NowCalc() & @CRLF & " ---------- Parameters missing or changed ----------" & @CRLF & @CRLF & @TAB & $iIniErrorCRLF) LogWrite(" INI MISMATCH: Found " & $iIniFail & " missing variable(s) in " & $aUtilName & ".ini. Backup created and all existing settings transfered to new INI. Please modify INI and restart.") LogWrite(" INI MISMATCH: Parameters missing: " & $iIniFail) SplashOff() MsgBox(4096, "INI MISMATCH", "INI FILE WAS UPDATED." & @CRLF & "Found " & $iIniFail & " missing variable(s) in " & $aUtilName & ".ini:" & @CRLF & @CRLF & $iIniError & @CRLF & @CRLF & "Backup created and all existing settings transfered to new INI." & @CRLF & @CRLF & "Click OK to open config." & @CRLF & @CRLF & "File created: ___INI_FAIL_VARIABLES___.txt") ShellExecute($aIniFailFile) _PlinkDisconnect() Global $sConfigPath = $aServerDirLocal & "\" & $aConfigFile GUI_Config() Else UpdateIni($aIniFile) SplashOff() GUI_Config(True) EndIf EndFunc Func UpdateIni($aIniFile) FileDelete($aIniFile) FileWriteLine($aIniFile, "[ --------------- " & StringUpper($aUtilName) & " INFORMATION --------------- ]") FileWriteLine($aIniFile, "Author : Phoenix125") FileWriteLine($aIniFile, "Version : " & $aUtilityVer) FileWriteLine($aIniFile, "Website : http://www.Phoenix125.com") FileWriteLine($aIniFile, "Discord : http://discord.gg/EU7pzPs") FileWriteLine($aIniFile, "Forum : https://phoenix125.createaforum.com/index.php") FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", $aServerShort & " DIR ###", $aServerDirLocal) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", $aServerShort & " config ###", $aConfigFile) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Version (ex. public/latest_experimental/alpha18.4) ###", $aServerVer) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", $aServerShort & " extra commandline parameters (ex. -serverpassword) ###", $aServerExtraCMD) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Server Local IP (ex. 192.168.1.10) ###", $aServerIP) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD DIR ###", $aSteamCMDDir) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD Username (optional) ###", $aSteamCMDUserName) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD Password (optional) ###", $aSteamCMDPassword) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD commandline (caution: overwrites all settings above) Write between lines below ###", "(Write between lines below)") FileWriteLine($aIniFile, '<--- BEGIN SteamCMD CODE --->') FileWriteLine($aIniFile, $aSteamUpdateCommandline) FileWriteLine($aIniFile, '<--- END SteamCMD CODE --->') FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Check for, and log, online players? (yes/no) ###", $aServerOnlinePlayerYN) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Check for online players every _ seconds (30-600) ###", $aServerOnlinePlayerSec) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Rename GameSave with updates causing a SERVER WIPE (while retaining old save files) ###", $aWipeServer) IniWrite($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Append Server Version (ex. Alpha 16.4 (b8)) at BEGINNING of Server Name? (yes/no) ###", $aAppendVerBegin) IniWrite($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Append Server Version (ex. Alpha 16.4 (b8)) at END of Server Name? (yes/no) ###", $aAppendVerEnd) IniWrite($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Use SHORT name (B9) or LONG (Alpha 17.1 (B9))? (short/long) ###", $aAppendVerShort) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Pause watchdog for _ minutes after server updated to allow map generation (1-360) ###", $aWatchdogWaitServerUpdate) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Pause watchdog for _ minutes after server started to allow server to come online (1-60) ###", $aWatchdogWaitServerStart) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG --------------- ", "Number of failed responses (after server has responded at least once) before restarting server (1-10) (Default is 3) ###", $aWatchdogAttemptsBeforeRestart) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG --------------- ", "Use Query Port to check if server is alive? (yes/no) ###", $aQueryYN) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG --------------- ", "Query IP (ex. 127.0.0.1 - Leave BLANK for server IP) ###", $aQueryIP) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG --------------- ", "Query Port check interval in seconds (30-900) ###", $aQueryCheckSec) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Use telnet to check if server is alive? (yes/no) ###", $aTelnetCheckYN) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Telnet IP (ex. 127.0.0.1 - Leave BLANK for server IP) ###", $aTelnetIP) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Telnet check interval in seconds (30-900) ###", $aTelnetCheckSec) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- RESTART ON EXCESSIVE MEMORY USE --------------- ", "Restart on excessive memory use? (yes/no) ###", $aExMemRestart) IniWrite($aIniFile, " --------------- RESTART ON EXCESSIVE MEMORY USE --------------- ", "Excessive memory amount? ###", $aExMemAmt) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Use Remote Restart? (yes/no) ###", $aRemoteRestartUse) IniWrite($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Restart Port ###", $aRemoteRestartPort) IniWrite($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Restart Key ###", $aRemoteRestartKey) IniWrite($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Restart Code ###", $aRemoteRestartCode) FileWriteLine($aIniFile, "(Usage example: http://192.168.1.10:57520/?restart=password)") FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- CHECK FOR UPDATE --------------- ", "Check for server updates? (yes/no) ###", $aCheckForUpdate) IniWrite($aIniFile, " --------------- CHECK FOR UPDATE --------------- ", "Update check interval in Minutes (05-59) ###", $aUpdateCheckInterval) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Use scheduled backups? (yes/no) ###", $aBackupYN) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Backup days (comma separated 0-Everyday 1-Sunday 7-Saturday 0-7 ex.2,4,6) ###", $aBackupDays) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Backup hours (comma separated 00-23 ex.04,16) ###", $aBackupHours) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Backup minute (00-59) ###", $aBackupMin) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Full " & $aGameName1 & " and Util folder backup every __ backups (0 to disable)(0-99) ###", $aBackupFull) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Additional backup folders / files (comma separated. Folders add \ at end. ex. C:\7DTD\,D:\7DTD Server\) ###", $aBackupAddedFolders) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Output folder ###", $aBackupOutputFolder) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Number of backups to keep (1-999) ###", $aBackupNumberToKeep) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Max time in seconds to wait for backup to complete (30-999) ###", $aBackupTimeoutSec) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "7zip backup additional command line parameters (Default: a -spf -r -tzip -ssw) ###", $aBackupCommandLine) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Send Discord announcement when backup initiated (yes/no) ###", $aBackupSendDiscordYN) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Send Twitch announcement when backup initiated (yes/no) ###", $aBackupSendTwitchYN) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "In-Game announcement when backup initiated (Leave blank to disable) ###", $aBackupInGame) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Discord announcement when backup initiated ###", $aBackupDiscord) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Twitch announcement when backup initiated ###", $aBackupTwitch) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Use scheduled restarts? (yes/no) ###", $aRestartDaily) IniWrite($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Restart days (comma separated 0-Everyday 1-Sunday 7-Saturday 0-7 ex.2,4,6) ###", $aRestartDays) IniWrite($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Restart hours (comma separated 00-23 ex.04,16) ###", $bRestartHours) IniWrite($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Restart minute (00-59) ###", $bRestartMin) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before DAILY reboot (comma separated 0-60) ###", $sAnnounceNotifyTime1) IniWrite($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before UPDATES reboot (comma separated 0-60) ###", $sAnnounceNotifyTime2) IniWrite($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before REMOTE RESTART reboot (comma separated 0-60) ###", $sAnnounceNotifyTime3) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- IN-GAME ANNOUNCEMENT CONFIGURATION --------------- ", "Announce messages in-game? (Requires telnet) (yes/no) ###", $sInGameAnnounce) IniWrite($aIniFile, " --------------- IN-GAME ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement DAILY (\m - minutes) ###", $sInGameDailyMessage) IniWrite($aIniFile, " --------------- IN-GAME ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement UPDATES (\m - minutes) ###", $sInGameUpdateMessage) IniWrite($aIniFile, " --------------- IN-GAME ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement REMOTE RESTART (\m - minutes) ###", $sInGameRemoteRestartMessage) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Webhook URL ###", $aServerDiscord1URL) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Bot Name (optional) ###", $aServerDiscord1BotName) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Avatar URL (optional) ###", $aServerDiscord1Avatar) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Use TTS (optional) (yes/no) ###", $aServerDiscord1TTSYN) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Webhook URL ###", $aServerDiscord2URL) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Bot Name (optional) ###", $aServerDiscord2BotName) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Avatar URL (optional) ###", $aServerDiscord2Avatar) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Use TTS (optional) (yes/no) ###", $aServerDiscord2TTSYN) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Webhook URL ###", $aServerDiscord3URL) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Bot Name (optional) ###", $aServerDiscord3BotName) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Avatar URL (optional) ###", $aServerDiscord3Avatar) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Use TTS (optional) (yes/no) ###", $aServerDiscord3TTSYN) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Webhook URL ###", $aServerDiscord4URL) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Bot Name (optional) ###", $aServerDiscord4BotName) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Avatar URL (optional) ###", $aServerDiscord4Avatar) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Use TTS (optional) (yes/no) ###", $aServerDiscord4TTSYN) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send RESTART/STATUS Msg (ie 1) ###", $aServerDiscordWHSelStatus) IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS ONLINE Msg (ie 2) ###", $aServerDiscordWHSelPlayers) IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send CHAT Msg (ie 23) ###", $aServerDiscordWHSelChat) IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS DIE Msg (ie 1234) ###", $aServerDiscordWHSelDie) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for DAILY reboot? (yes/no) ###", $sUseDiscordBotDaily) IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for UPDATE reboot? (yes/no) ###", $sUseDiscordBotUpdate) IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for REMOTE RESTART reboot? (yes/no) ###", $sUseDiscordBotRemoteRestart) IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message when server is back online (yes/no) ###", $sUseDiscordBotServersUpYN) IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for Online Player changes? (yes/no) ###", $sUseDiscordBotPlayerChangeYN) IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for Player Chat? (yes/no) ###", $sUseDiscordBotPlayerChatYN) IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message when player dies? (yes/no) ###", $sUseDiscordBotPlayerDiedYN) IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for first ANNOUNCEMENT only? (reduces bot spam)(yes/no) ###", $sUseDiscordBotFirstAnnouncement) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement DAILY (\m - minutes) ###", $sDiscordDailyMessage) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement UPDATES (\m - minutes) ###", $sDiscordUpdateMessage) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement REMOTE RESTART (\m - minutes) ###", $sDiscordRemoteRestartMessage) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement when server is back online ###", $sDiscordServersUpMessage) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "__ Online Player message substitutions (\o Online Player Count, \m Max Players, \t Game Time, \h Days to Next Horde, \j Joined Sub-Msg, \l Left Sub-Msn, \a Online Players Sub-Msg) \n Next Line) __", "") IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Online Player Message (see above for substitutions) ###", $sDiscordPlayersMsg) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Join Player Sub-Message (\p - Player Name(s) of player(s) that joined server, \n Next Line) ###", $sDiscordPlayerJoinMsg) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Left Player Sub-Message (\p - Player Name(s) of player(s) that left server, \n Next Line) ###", $sDiscordPlayerLeftMsg) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Online Player Sub-Message (\p - Player Name(s) of player(s) online, \n Next Line) ###", $sDiscordPlayerOnlineMsg) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Player Died Message (\p - Player Name, \n Next Line) ###", $sDiscordPlayerDiedMsg) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Player Chat (\p - Player Name, \m Message) ###", $sDiscordPlayerChatMsg) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Send Twitch message for DAILY reboot? (yes/no) ###", $sUseTwitchBotDaily) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Send Twitch message for UPDATE reboot? (yes/no) ###", $sUseTwitchBotUpdate) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Send Twitch message for REMOTE RESTART reboot? (yes/no) ###", $sUseTwitchBotRemoteRestart) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Send Twitch message for first announcement only? (reduces bot spam)(yes/no) ###", $sUseTwitchFirstAnnouncement) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Announcement DAILY (\m - minutes) ###", $sTwitchDailyMessage) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Announcement UPDATES (\m - minutes) ###", $sTwitchUpdateMessage) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Announcement REMOTE RESTART (\m - minutes) ###", $sTwitchRemoteRestartMessage) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Nick ###", $sTwitchNick) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "ChatOAuth ###", $sChatOAuth) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Channels ###", $sTwitchChannels) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Execute external script BEFORE update? (yes/no) ###", $aExecuteExternalScript) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Script to execute ###", $aExternalScriptFile) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Wait for script to complete? (yes/no) ###", $aExternalScriptWait) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Execute external script AFTER update but BEFORE server start? (yes/no) ###", $aExternalScriptValidateYN) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Script to execute ###", $aExternalScriptValidateFile) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Wait for script to complete? (yes/no) ###", $aExternalScriptValidateWait) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Execute external script for server update restarts? (yes/no) ###", $aExternalScriptUpdateYN) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Script to execute ###", $aExternalScriptUpdateFile) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Wait for script to complete? (yes/no) ###", $aExternalScriptUpdateWait) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Execute external script for daily server restarts? (yes/no) ###", $aExternalScriptDailyYN) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Script to execute ###", $aExternalScriptDailyFile) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Wait for script to complete? (yes/no) ###", $aExternalScriptDailyWait) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Execute external script when first restart announcement is made? (yes/no) ###", $aExternalScriptAnnounceYN) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Script to execute ###", $aExternalScriptAnnounceFile) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Wait for script to complete? (yes/no) ###", $aExternalScriptAnnounceWait) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Execute external script during restart when a remote restart request is made? (yes/no) ###", $aExternalScriptRemoteYN) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Script to execute ###", $aExternalScriptRemoteFile) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Wait for script to complete? (yes/no) ###", $aExternalScriptRemoteWait) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- LOG FILE OPTIONS --------------- ", "Number of logs ###", $aLogQuantity) FileWriteLine($aIniFile, @CRLF) IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Validate files with SteamCMD update? (yes/no) ###", $aValidate) IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Telnet: Stay Connected (Required for chat and death messaging) (yes/no) ###", $aTelnetStayConnectedYN) IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Telnet: Monitor all traffic (Required for player chat and death announcements) (yes/no) ###", $aTelnetMonitorAllYN) IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Telnet: Check traffic every _ seconds) (1-10) ###", $aTelnetTrafficCheckSec) IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "For update checks, use (0)SteamCMD or (1)SteamDB.com ###", $aUpdateSource) IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Hide passwords in log files? (yes/no) ###", $sObfuscatePass) IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Hide external scripts when executed? (if yes, scripts may not execute properly) (yes/no) ###", $aExternalScriptHideYN) IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Check for " & $aUtilName & " updates? (yes/no) ###", $aUpdateUtil) IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", $aUtilName & " version: (0)Stable, (1)Beta ###", $aUtilBetaYN) FileWriteLine($aIniFile, @CRLF) FileWriteLine($aIniFile, "[--------------- (ALMOST) FUTURE PROOF UPDATE OPTIONS ---------------]") FileWriteLine($aIniFile, "During updates, The Fun Pimps sometimes make changes to the ServerConfig.xml file, which can cause the server to fail to start when using the old config file.") FileWriteLine($aIniFile, " This section is a best-effort attempt to temporarily adjust to those changes during server updates to keep your server running.") FileWriteLine($aIniFile, " If automatic import enabled above, this utility will attempt two reboots. If The server fails to boot after the second reboot,") FileWriteLine($aIniFile, " it will backup of your existing serverconfig file (as listed in Game Server Configuration section),") FileWriteLine($aIniFile, " copy the contents from the new ServerConfig.xml, import data from your existing config file, and add this data") FileWriteLine($aIniFile, " to your serverconfig file (as listed above) at the end of the file.") FileWriteLine($aIniFile, "Therefore, after an update, it is recommended that you review your config file and make any changes.") FileWriteLine($aIniFile, "The following parameters will be imported:") FileWriteLine($aIniFile, " ServerName, ServerPort, ServerPassword, TelnetPort, TelnetPassword, ServerLoginConfirmationText, ServerMaxPlayerCount, ServerDescription,") FileWriteLine($aIniFile, " ServerWebsiteURL,, ServerDisabledNetworkProtocols, GameWorld, WorldGenSeed, WorldGenSize, GameName, GameDifficulty, ServerLoginConfirmationText, DropOnDeath") IniWrite($aIniFile, " --------------- (ALMOST) FUTURE PROOF UPDATE OPTIONS --------------- ", "Automatically import old priority settings into new config? (yes/no) ###", $aFPAutoUpdateYN) IniWrite($aIniFile, " --------------- (ALMOST) FUTURE PROOF UPDATE OPTIONS --------------- ", "Rename the Mod Folder (therefore saving and disabling it) if Future Proof was needed (3 consecutive failed starts after an update)? (yes/no) ###", $aFPRenameModsYN) FileWriteLine($aIniFile, @CRLF) EndFunc #EndRegion #Region Func AppendConfigSettings() Global $aConfigFileTemp = "ServerConfig7dtdServerUtilTemp.xml" Global $aConfigFileTempFull = $aServerDirLocal & "\" & $aConfigFileTemp Local $tConfigPath = $aServerDirLocal & "\" & $aConfigFile Local $sConfigFileTempExists = FileExists($aConfigFileTempFull) If $sConfigFileTempExists = 1 Then FileDelete($aConfigFileTempFull) EndIf Local $tConfigPathOpen = FileOpen($tConfigPath, 0) Local $tConfigRead2 = FileRead($tConfigPathOpen) Local $tConfigRead1 = StringRegExpReplace($tConfigRead2, "", "" & @CRLF) FileWrite($aConfigFileTempFull, $tConfigRead1) FileClose($tConfigPath) If $aAppendVerBegin = "yes" Or $aAppendVerEnd = "yes" Then Local $tName = IniRead($aUtilCFGFile, "CFG", "Last Server Name", $aServerName) FileWriteLine($aConfigFileTempFull, "") EndIf If $aWipeServer = "yes" Then Local $tName = IniRead($aUtilCFGFile, "CFG", "Last Game Name", $aFPGameName) FileWriteLine($aConfigFileTempFull, "") EndIf FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") FileWriteLine($aConfigFileTempFull, "") EndFunc #EndRegion Func _CheckForExistingServer() Local $tReturn2 = 0 Local $tProcess = ProcessList($aServerEXE) For $x = 1 To $tProcess[0][0] Local $tProcessFolder = _ProcessGetLocation($tProcess[$x][1]) Global $aServerDirLocal = IniRead($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", $aServerShort & " DIR ###", @ScriptDir) If $tProcessFolder = $aServerDirLocal & "\" & $aServerEXE Then $tReturn2 = $tProcess[$x][1] IniWrite($aUtilCFGFile, "CFG", "PID", $tReturn2) LogWrite(" [Server] Existing server found by Process search. PID(" & $tReturn2 & ")") EndIf Next Return $tReturn2 EndFunc Func _CheckForExistingPlink() Local $xFileName = _PathSplit($aFilePlink, "", "", "", "") Local $tFileName = $xFileName[3] & $xFileName[4] Local $tReturn2 = 0 Local $tProcess = ProcessList($tFileName) For $x = 1 To $tProcess[0][0] Local $tProcessFolder = _ProcessGetLocation($tProcess[$x][1]) If $tProcessFolder = $aFilePlink Then $tReturn2 = $tProcess[$x][1] If $tReturn2 <> $aPlinkPID Then IniWrite($aUtilCFGFile, "CFG", "PID", $tReturn2) LogWrite(" [Telnet] Existing Plink found by Process search. PID(" & $tReturn2 & ")") $aPlinkPID = $tReturn2 EndIf EndIf Next Return $tReturn2 EndFunc Func PIDReadServer($tSplash = 0) Local $tReturn = IniRead($aUtilCFGFile, "CFG", "PID", "0") Local $tReturn1 = _CheckForExistingServer() If $tReturn1 > 0 Then $tReturn = $tReturn1 If $tReturn = "0" Then LogWrite(" [Util] No existing server found. Will start new server.") $aNoExistingPID = True Else $aNoExistingPID = False If ProcessExists($tReturn) Then LogWrite(" [Server] Server PID(" & $tReturn & ") found.") If $tSplash = 0 Then SplashTextOn($aUtilName, $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Running server found." & @CRLF & "PID(" & $tReturn & ")", 400, 110, -1, -1, $DLG_MOVEABLE, "") Else ControlSetText($tSplash, "", "Static1", $aUtilName & " " & $aUtilVersion & " started." & @CRLF & @CRLF & "Running server found." & @CRLF & "PID(" & $tReturn & ")") EndIf Else $aNoExistingPID = True LogWrite(" [Server] -ERROR- Server PID(" & $tReturn & ") NOT found. Server will be restarted.") EndIf Sleep(2500) EndIf Return $tReturn EndFunc Func TrayUtilConfig() GUI_Config() EndFunc Func TrayUtilLog() ShellExecute($aLogFile) EndFunc Func TrayServerLog() Local $sLogPath = IniRead($aUtilCFGFile, "CFG", "Last Log Time Stamp", $aServerDirLocal & '\7DaysToDieServer_Data\output_log_dedi' & StringRegExpReplace(_NowCalc(), "[\\\/\: ]", "_") & ".txt") ShellExecute($sLogPath) EndFunc Func TrayServerConfig() ShellExecute($aServerDirLocal & "\" & $aConfigFile) EndFunc Func TrayExitCloseN() LogWrite(" [Server] Utility exit without server shutdown initiated by user via tray icon (Exit: Do NOT Shut Down Servers).") $tMB = MsgBox($MB_YESNOCANCEL, $aUtilName, "Do you wish to close this utility?" & @CRLF & "(Server will remain running)" & @CRLF & @CRLF & "Click (YES) to close this utility." & @CRLF & "Click (NO) or (CANCEL) to cancel.", 15) If $tMB = 6 Then MsgBox(4096, $aUtilityVer, "Thank you for using " & $aUtilName & "." & @CRLF & @CRLF & "SERVER IS STILL RUNNING ! ! !" & @CRLF & @CRLF & "Please report any problems or comments to: " & @CRLF & "Discord: http://discord.gg/EU7pzPs or " & @CRLF & "Forum: http://phoenix125.createaforum.com/index.php. " & @CRLF & @CRLF & "Visit http://www.Phoenix125.com", 20) LogWrite(" " & $aUtilityVer & " Stopped by User") IniWrite($aUtilCFGFile, "CFG", "PID", $aServerPID) If $aRemoteRestartUse = "yes" Then TCPShutdown() EndIf _ExitUtil() Else SplashTextOn($aUtilName, "Shutdown canceled. Resuming utility . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") Sleep(2000) EndIf SplashOff() EndFunc Func TrayExitCloseY() LogWrite(" [" & $aServerName & "] Utility exit with server shutdown initiated by user via tray icon (Exit: Shut Down Servers).") $tMB = MsgBox($MB_YESNOCANCEL, $aUtilName, "Do you wish to shut down server and exit this utility?" & @CRLF & @CRLF & "Click (YES) to Shutdown server and exit." & @CRLF & "Click (NO) or (CANCEL) to cancel.", 15) If $tMB = 6 Then CloseServer($aTelnetIP, $aTelnetPort, $aTelnetPass) SplashOff() MsgBox(4096, $aUtilityVer, "Thank you for using " & $aUtilName & "." & @CRLF & "Please report any problems or comments to: " & @CRLF & "Discord: http://discord.gg/EU7pzPs or " & @CRLF & "Forum: http://phoenix125.createaforum.com/index.php. " & @CRLF & @CRLF & "Visit http://www.Phoenix125.com", 20) LogWrite(" " & $aUtilityVer & " Stopped by User") LogWrite(" " & $aUtilityVer & " Stopped") If $aRemoteRestartUse = "yes" Then TCPShutdown() EndIf SplashOff() _ExitUtil() Else SplashTextOn($aUtilName, "Shutdown canceled. Resuming utility . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") Sleep(2000) EndIf SplashOff() EndFunc Func TrayRestartNow() LogWrite(" [Server] Restart Server Now requested by user via tray icon (Restart Server Now).") $tMB = MsgBox($MB_YESNOCANCEL, $aUtilName, "Do you wish to Restart Server Now?" & @CRLF & @CRLF & "Click (YES) to Restart Server Now." & @CRLF & "Click (NO) or (CANCEL) to cancel.", 15) If $tMB = 6 Then LogWrite(" [Server] Restart Server Now request initiated by user.") CloseServer($aTelnetIP, $aTelnetPort, $aTelnetPass) Else LogWrite(" [Server] Restart Server Now request canceled by user.") SplashTextOn($aUtilName, "Restart Server Now canceled. Resuming utility . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") Sleep(2000) EndIf SplashOff() EndFunc Func TrayRemoteRestart() LogWrite(" [Remote Restart] Remote Restart requested by user via tray icon (Initiate Remote Restart).") If $aRemoteRestartUse <> "yes" Then $tMB = MsgBox($MB_YESNOCANCEL, $aUtilName, "You must enable Remote Restart in the " & $aUtilName & ".ini." & @CRLF & @CRLF & "Would you like to enable it? (Port:" & $aRemoteRestartPort & ")" & @CRLF & "Click (YES) to enable Remote Restart." & @CRLF & "Click (NO) or (CANCEL) to skip.", 15) If $tMB = 6 Then LogWrite(" [Remote Restart] Remote Restart enabled in " & $aUtilName & ".ini per user request") IniWrite($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Use Remote Restart? (yes/no) ###", "yes") $aRemoteRestartUse = "yes" MsgBox($MB_OK, $aUtilityVer, "Remote Restart enabled in " & $aUtilName & ".ini. " & @CRLF & "Please restart this utility for Remote Restart to be started.", 5) TCPStartup() Global $MainSocket = TCPListen($aServerIP, $aRemoteRestartPort, 100) If $MainSocket = -1 Then MsgBox(0x0, "Remote Restart", "Could not bind to [" & $aServerIP & ":" & $aRemoteRestartPort & "] Check server IP or disable Remote Restart in INI") LogWrite(" [Remote Restart] Remote Restart enabled. Could not bind to " & $aServerIP & ":" & $aRemoteRestartPort) _ExitUtil() Else If $sObfuscatePass = "no" Then LogWrite("", " [Remote Restart] Remote Restart enabled. Listening for restart request at http://" & $aServerIP & ":" & $aRemoteRestartPort & "/?" & $aRemoteRestartKey & "=" & $aRemoteRestartCode) Else LogWrite(" [Remote Restart] Remote Restart enabled. Listening for restart request at http://" & $aServerIP & ":" & $aRemoteRestartPort & "/?[key]=[password]") EndIf EndIf Else LogWrite(" [Remote Restart] No changes made to Remote Restart setting in " & $aUtilName & ".ini per user request.") SplashTextOn($aUtilName, "No changes were made. Resuming utility . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") Sleep(2000) SplashOff() EndIf Else $tMB = MsgBox($MB_YESNOCANCEL, $aUtilName, "Do you wish to initiate Remote Restart (reboot server in " & $aRemoteTime[$aRemoteCnt] & "min)?" & @CRLF & @CRLF & "Click (YES) to Initiate Remote Restart." & @CRLF & "Click (NO) or (CANCEL) to cancel.", 15) If $tMB = 6 Then If $aBeginDelayedShutdown = 0 Then LogWrite(" [Remote Restart] Remote Restart request initiated by user.") If ($sUseDiscordBotDaily = "yes") Or ($sUseDiscordBotUpdate = "yes") Or ($sUseTwitchBotDaily = "yes") Or ($sUseTwitchBotUpdate = "yes") Or ($sInGameAnnounce = "yes") Then $aRebootReason = "remoterestart" $aBeginDelayedShutdown = 1 $aTimeCheck0 = _NowCalc Else RunExternalRemoteRestart() CloseServer($aTelnetIP, $aTelnetPort, $aTelnetPass) EndIf EndIf Else LogWrite(" [Remote Restart] Remote Restart request canceled by user.") SplashTextOn($aUtilName, "Remote Restart canceled. Resuming utility . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") Sleep(2000) EndIf SplashOff() EndIf EndFunc Func TrayUpdateUtilCheck() LogWrite(" [Update] " & $aUtilName & " update check requested by user via tray icon (Check for Updates).") $aShowUpdate = True UtilUpdate($aServerUpdateLinkVerUse, $aServerUpdateLinkDLUse, $aUtilVersion, $aUtilName) EndFunc Func TraySendMessage() LogWrite(" [Telnet] Global chat message requested by user via tray icon. (Send global chat message).") SplashOff() $tMsg = InputBox($aUtilName, "Enter global chat message", "", "", 400, 125) If $tMsg = "" Then LogWrite(" [Telnet] Global chat message canceled by user.") SplashTextOn($aUtilName, "Global chat Message canceled. Resuming utility . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") Sleep(2000) Else $tMsg = "say """ & $tMsg & """" SplashTextOn($aUtilName, "Sending global chat message:" & @CRLF & $tMsg, 400, 110, -1, -1, $DLG_MOVEABLE, "") $aReply = _PlinkSend($tMsg) LogWrite(" [Telnet] Global chat Message sent (" & $tMsg & ") " & $aReply) SplashOff() MsgBox($MB_OKCANCEL, $aUtilityVer, "Global chat Message sent:" & @CRLF & $tMsg & @CRLF & @CRLF & "Response:" & @CRLF & $aReply, 10) EndIf SplashOff() EndFunc Func TraySendInGame() LogWrite(" [Telnet] Send Telnet command requested by user via tray icon (Send telnet command).") SplashOff() $tMsg = InputBox($aUtilName, "Enter Telnet command to send to server", "", "", 400, 125) If $tMsg = "" Then LogWrite(" [Telnet] Send Telnet command canceled by user.") SplashTextOn($aUtilName, "Send Telnet command canceled. Resuming utility . . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") Sleep(2000) Else SplashTextOn($aUtilName, "Sending Telnet command. " & @CRLF & $tMsg, 400, 110, -1, -1, $DLG_MOVEABLE, "") $aReply = _PlinkSend($tMsg) LogWrite(" [Telnet] Telnet command sent (" & $tMsg & ") " & $aReply) SplashOff() MsgBox($MB_OKCANCEL, $aUtilityVer, "Telnet command sent: " & @CRLF & $tMsg & @CRLF & @CRLF & "Response:" & @CRLF & $aReply, 15) EndIf SplashOff() EndFunc Func TrayUpdateServCheck() SplashOff() SplashTextOn($aUtilName, "Checking for server update.", 400, 110, -1, -1, $DLG_MOVEABLE, "") UpdateCheck(True) SplashOff() EndFunc Func GetPlayerCount($tSplash) Local $aCMD = "listplayers" $tOnlinePlayerReady = True Global $aServerPlayers[2] Global $tOnlinePlayers[4] Local $aErr = False $aServerReadyTF = False TraySetToolTip("Scanning server for online players.") TraySetIcon(@ScriptName, 201) If $tSplash Then SplashTextOn($aUtilName, " Checking online players. . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") EndIf Local $tTime9 = "00:00" $sMsg = TelnetOnlinePlayers($aTelnetIP, $aTelnetPort, $aTelnetPass) If $sMsg[0] = "Error: Timed Out" Then $tOnlinePlayers[0] = False $tOnlinePlayers[1] = "Error: Online Players Check Timed Out " $tOnlinePlayers[2] = "Error: Online Players Check Timed Out " Else If StringLen($sMsg[0]) < 12 Then $aGameTime = "Day 1, 00:00" $tDay = 1 Else $tOnlinePlayers[0] = False For $t = 1 To 20 $tStr = StringMid($sMsg[0], $t, 1) If $tStr = "," Then $tTime9 = StringMid($sMsg[0], $t + 2, 5) ExitLoop EndIf Next If StringInStr($tTime9, ":") <> 3 Then $tTime9 = "00:00" Local $tTxt1 = _StringBetween($sMsg[0], "Day ", ",") If @error Then Local $tDay = "1" Else Local $tDay = Int($tTxt1[0]) EndIf $aGameTime = "Day " & $tDay & ", " & $tTime9 EndIf Local $t2 = (Int($tDay / 7) * 7) $aNextHorde = 7 - ($tDay - $t2) $tOnlinePlayers[1] = "Game Time: " & $aGameTime & @CRLF & "Total Players " $tOnlinePlayers[2] = "Game Time(" & $aGameTime & ") Total Players " If StringInStr($sMsg[1], "Total of 0 in the game") <> 0 Then $aServerPlayers = "0" $tOnlinePlayers[1] = $tOnlinePlayers[1] & "(0)" $tOnlinePlayers[2] = $tOnlinePlayers[2] & "(0)" $aPlayersCount = 0 $aPlayersOnlineName = "" $aPlayersOnlineSteamID = "" Else Local $tUser1 = _StringBetween($sMsg[1], ". id=", "pos=") Global $tUserCnt = UBound($tUser1) $aPlayersCount = $tUserCnt Local $tSteamIDArray = _StringBetween($sMsg[1], "steamid=", ",") Local $tUserAll[$tUserCnt] $tOnlinePlayers[1] = $tOnlinePlayers[1] & "(" & $tUserCnt & ") " & @CRLF $tOnlinePlayers[2] = $tOnlinePlayers[2] & "(" & $tUserCnt & ") " For $i = 0 To ($tUserCnt - 1) $tUserAll[$i] = _ArrayToString(_StringBetween($tUser1[$i], ", ", ", ")) $tOnlinePlayers[1] = $tOnlinePlayers[1] & $tUserAll[$i] & " - " & $tSteamIDArray[$i] & @CRLF $tOnlinePlayers[2] = $tOnlinePlayers[2] & $tUserAll[$i] & " [" & $tSteamIDArray[$i] & "] , " Next $aPlayersOnlineName = _ArrayToString($tUserAll, Chr(238)) $aPlayersOnlineSteamID = _ArrayToString($tSteamIDArray) EndIf If $aRCONError Then LogWrite(" [Online Players] Error receiving online players.") $aErr = True $aRCONError = False EndIf SplashOff() TraySetToolTip(@ScriptName) TraySetIcon(@ScriptName, 99) $tPlayersBeforeString = IniRead($aUtilCFGFile, "CFG", "Players Name", "") If ($tPlayersBeforeString <> $aPlayersOnlineName) And $aGameTime <> "Day 1, 00:00" Then Local $tPlayersBeforeArray = StringSplit($tPlayersBeforeString, Chr(238), 2) Local $tPlayersAfterArray = StringSplit($aPlayersOnlineName, Chr(238), 2) $tTempArray = _ArrayCompare($tPlayersBeforeArray, $tPlayersAfterArray) $aPlayersJoined = _ArrayToString($tTempArray[1], " , ") $aPlayersLeft = _ArrayToString($tTempArray[0], " , ") $aPlayersName = _ArrayToString($tPlayersAfterArray, " , ") $tOnlinePlayers[0] = True LogWrite(" [Online Players] " & _PlayersChangedText() & $tOnlinePlayers[2]) WriteOnlineLog(_PlayersChangedText() & $tOnlinePlayers[2]) If $tSplash Then MsgBox($MB_OK, $aUtilityVer, "ONLINE PLAYERS CHANGED!" & @CRLF & @CRLF & "Online players: " & @CRLF & $tOnlinePlayers[1], 10) EndIf Else If $tSplash Then MsgBox($MB_OK, $aUtilityVer, "No Change in online players: " & @CRLF & $tOnlinePlayers[1], 10) WriteOnlineLog("[Usr Ck] " & $tOnlinePlayers[2]) EndIf EndIf If $aGameTime <> "Day 1, 00:00" Then $aOnlinePlayerLast = $tOnlinePlayers[1] If $aErr = 0 Then $aServerReadyTF = True EndIf Return $tOnlinePlayers EndIf EndFunc Func _PlayersChangedText() Local $tTxt2 = "" If StringLen($aPlayersJoined) > 1 Then $tTxt2 &= "Joined:[" & $aPlayersJoined & "] " If StringLen($aPlayersLeft) > 1 Then $tTxt2 &= "Left:[" & $aPlayersLeft & "] " Return $tTxt2 EndFunc Func _PlayersOnlineText() Local $tTxt2 = "" If StringLen($aPlayersName) > 1 Then $tTxt2 &= "Online:[" & $aPlayersName & "] " Return $tTxt2 EndFunc Func TelnetOnlinePlayers($ip, $port, $pwd) Local $sReturn[2] Local $tTxt0 = "" $tErr = False $tRead1 = _PlinkSend("listplayers") Local $tArray3 = StringSplit($tRead1, @CRLF) $sReturn[1] = "Error" If IsArray($tArray3) Then For $t1 = 1 To ($tArray3[0] - 1) If StringInStr($tArray3[$t1], "Executing command 'listplayers'") Then For $t2 = ($t1 + 1) To ($tArray3[0] - 1) If StringInStr($tArray3[$t2], "Total of 0 in the game") Then $sReturn[1] = "Total of 0 in the game" ExitLoop EndIf $tTxt0 &= $tArray3[$t2] If StringRegExp($tTxt0, "Total of .* in the game") Then $sReturn[1] = $tTxt0 ExitLoop EndIf Next EndIf Next EndIf Local $tRead2 = _PlinkSend("gettime") Local $tArray3 = StringSplit($tRead2, @CRLF) $sReturn[0] = "Day 1, 00:00" If IsArray($tArray3) Then For $t1 = 1 To ($tArray3[0] - 1) If StringInStr($tArray3[$t1], "Executing command 'gettime'") Then For $t2 = $t1 To ($tArray3[0] - 1) If StringInStr($tArray3[$t2], "Day") Then $sReturn[0] = StringStripCR($tArray3[$t2]) ExitLoop EndIf Next EndIf Next EndIf If $aTelnetStayConnectedYN = "no" Then _PlinkDisconnect() Return $sReturn EndFunc Func ShowOnlineGUI($tForceOnTopTF = False) If $aServerOnlinePlayerYN = "yes" Then If $aPlayerCountShowTF Then Global $aPlayerWindowClose = False If WinExists($wGUIMainWindow) = 0 Then If $tUserCnt > 13 Then $aGUIH = 500 Else $aGUIH = 250 EndIf $wGUIMainWindow = GUICreate(@ScriptName, $aGUIW, $aGUIH, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_THICKFRAME)) GUICtrlSetResizing(-1, $GUI_DOCKAUTO) GUICtrlSetLimit(-1, 0xFFFFFF) GUISetOnEvent($GUI_EVENT_CLOSE, "PlayerClose") $iEdit = GUICtrlCreateEdit("", 0, 0, $aGUIW, $aGUIH, BitOR($ES_AUTOVSCROLL, $ES_NOHIDESEL, $ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL, $ES_READONLY), $WS_EX_STATICEDGE) EndIf If $tOnlinePlayerReady Then $tTxt = _DateTimeFormat(_NowCalc(), 0) & @CRLF & $tOnlinePlayers[1] Else $tTxt = _DateTimeFormat(_NowCalc(), 0) & @CRLF & "Waiting for first Online Player and Game Time check." EndIf If $iEdit <> 0 Then GUICtrlSetData($iEdit, $tTxt) EndIf ControlClick($wGUIMainWindow, "", $iEdit) If $tForceOnTopTF Then GUISetState(@SW_SHOW) EndIf EndIf EndFunc Func PlayerClose() GUIDelete($wGUIMainWindow) $aPlayerCountShowTF = False EndFunc Func ShowPlayerCount() $aServerOnlinePlayerYN = "yes" ShowOnlineGUI() EndFunc Func TrayShowPlayerCount() $aPlayerCountShowTF = True If $aServerOnlinePlayerYN = "no" Then SplashTextOn($aUtilName, "To show online players, you must Enable Online Players Check/Log. . .", 400, 110, -1, -1, $DLG_MOVEABLE, "") Sleep(2000) SplashOff() Else ShowOnlineGUI(True) EndIf EndFunc Func WriteOnlineLog($aMsg) FileWriteLine($aFolderLog & $aUtilName & "_OnlineUserLog_" & @YEAR & "-" & @MON & "-" & @MDAY & ".txt", _NowCalc() & " " & $aMsg) EndFunc Func TrayShowPlayerCheckPause() TrayItemSetState($iTrayPlayerCheckPause, $TRAY_DISABLE) TrayItemSetState($iTrayPlayerCheckUnPause, $TRAY_ENABLE) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Check for, and log, online players? (yes/no) ###", "no") $aServerOnlinePlayerYN = "no" EndFunc Func TrayShowPlayerCheckUnPause() TrayItemSetState($iTrayPlayerCheckPause, $TRAY_ENABLE) TrayItemSetState($iTrayPlayerCheckUnPause, $TRAY_DISABLE) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Check for, and log, online players? (yes/no) ###", "yes") $aServerOnlinePlayerYN = "yes" EndFunc Func TrayUpdateServPause() TrayItemSetState($iTrayUpdateServPause, $TRAY_DISABLE) TrayItemSetState($iTrayUpdateServUnPause, $TRAY_ENABLE) IniWrite($aIniFile, " --------------- CHECK FOR UPDATE --------------- ", "Check for server updates? (yes/no) ###", "no") $aCheckForUpdate = "no" EndFunc Func TrayUpdateServUnPause() TrayItemSetState($iTrayUpdateServPause, $TRAY_ENABLE) TrayItemSetState($iTrayUpdateServUnPause, $TRAY_DISABLE) IniWrite($aIniFile, " --------------- CHECK FOR UPDATE --------------- ", "Check for server updates? (yes/no) ###", "yes") $aCheckForUpdate = "yes" EndFunc Func ReplaceSingleQuote($tMsg0) If StringInStr($tMsg0, "'") = "0" Then Return $tMsg0 Else Return StringReplace($tMsg0, "'", "' 39 '") EndIf EndFunc Func TrayUpdateUtilPause() SplashOff() MsgBox($MB_OK, $aUtilityVer, $aUtilityVer & " Paused. Press OK to resume.") EndFunc Func _GetQuery($tIP, $tPort) Local $tFileBase = "SteamServerQuery" Local $tFileDL = $tFileBase & ".zip" Local $tFileRun = $aFolderTemp & $tFileBase & ".exe" If FileExists($tFileRun) = 0 Then Local $tFileExist = _DownloadAndExtractFile($tFileBase, "http://www.phoenix125.com/share/steamserverquery/" & $tFileDL, "https://github.com/phoenix125/SteamServerQuery/releases/download/Latest_Version/SteamServerQuery.zip", 0, $aFolderTemp) If $tFileExist = False Then LogWrite(" [Query] ERROR!! Failed to download and extract " & $tFileBase & ". Query watchdog disabled until tool restarted.") $aQueryYN = "no" EndIf EndIf If $aQueryYN = "yes" Then EndIf Local $mWaitms = 1000 Local $tQuerycmd = $tFileRun & " -po " & $tIP & ":" & $tPort Local $mOut = Run($tQuerycmd, @ScriptDir, @SW_HIDE, $STDOUT_CHILD) Local $tTimer1 = TimerInit() Local $tExit = False While ProcessExists($mOut) And $tExit = False Sleep(50) If TimerDiff($tTimer1) > $mWaitms Then $tExit = True WEnd Local $tcrcatch = StdoutRead($mOut) StdioClose($mOut) If ProcessExists($mOut) Then ProcessClose($mOut) Local $tReturn = StringSplit($tcrcatch, @CRLF, 3) Return $tReturn EndFunc Func _Splash($tTxt, $tTime = 0, $tWidth = 400, $tHeight = 125) Local $tPID = SplashTextOn($aUtilName, $tTxt, $tWidth, $tHeight, -1, -1, $DLG_MOVEABLE, "") If $tTime > 0 Then Sleep($tTime) SplashOff() EndIf Return $tPID EndFunc Func TrayBackupFocused() _BackupGame(False, False) EndFunc Func TrayBackupFull() _BackupGame(False, True) EndFunc Func _DownloadAndExtractFile($tFileName, $tURL1, $tURL2 = "", $tSplash = 0, $tFolder = @ScriptDir, $tFile2 = 0, $tFile3 = 0, $tFile4 = 0, $tFile5 = 0) $tFolder = RemoveTrailingSlash($tFolder) If FileExists($tFolder & "\" & $tFileName & ".exe") = 0 Then If $tSplash > 0 Then ControlSetText($tSplash, "", "Static1", "Downloading " & $tFileName & ".exe.") Else _Splash("Downloading " & $tFileName & ".exe.", 0, 475) EndIf DirCreate($tFolder) InetGet($tURL1, $tFolder & "\" & $tFileName & ".zip", 1) If Not FileExists($tFolder & "\" & $tFileName & ".zip") Then SetError(1, 1) LogWrite(" [Util] Error downloading " & $tFileName & " from Source1: " & $tURL1) InetGet($tURL2, $tFolder & "\" & $tFileName & ".zip", 1) If Not FileExists($tFolder & "\" & $tFileName & ".zip") Then SetError(1, 2) LogWrite(" [Util] Error downloading " & $tFileName & " from Source2: " & $tURL2) SplashOff() MsgBox($MB_OK, $aUtilName, "ERROR!!! " & $tFileName & ".zip download failed.") $aSplashStartUp = _Splash($aStartText, 0, 475) Return EndIf EndIf DirCreate($tFolder) _ExtractZip($tFolder & "\" & $tFileName & ".zip", "", $tFileName & ".exe", $tFolder) If $tFile2 <> 0 Then _ExtractZip($tFolder & "\" & $tFileName & ".zip", "", $tFile2, $tFolder) If $tFile3 <> 0 Then _ExtractZip($tFolder & "\" & $tFileName & ".zip", "", $tFile3, $tFolder) If $tFile4 <> 0 Then _ExtractZip($tFolder & "\" & $tFileName & ".zip", "", $tFile4, $tFolder) If $tFile5 <> 0 Then _ExtractZip($tFolder & "\" & $tFileName & ".zip", "", $tFile5, $tFolder) If FileExists($tFolder & "\" & $tFileName & ".exe") Then LogWrite(" [Util] Downloaded and installed " & $tFileName & ".") Else LogWrite(" [Util] Error extracting " & $tFileName & ".exe from " & $tFileName & ".zip") SetError(1, 3) SplashOff() MsgBox($MB_OK, $aUtilName, "ERROR!!! Extracting " & $tFileName & ".exe from " & $tFileName & ".zip failed.") $aSplashStartUp = _Splash($aStartText, 0, 475) SplashOff() Return EndIf FileDelete($tFolder & "\" & $tFileName & ".zip") SplashOff() Return True Else SplashOff() Return False EndIf EndFunc Func LogWrite($Msg, $msgdebug = -1) $aLogFile = $aFolderLog & $aUtilName & "_Log_" & @YEAR & "-" & @MON & "-" & @MDAY & ".txt" $aLogDebugFile = $aFolderLog & $aUtilName & "_LogFull_" & @YEAR & "-" & @MON & "-" & @MDAY & ".txt" Local $tFileSize = FileGetSize($aLogFile) If $tFileSize > 10000000 Then FileMove($aLogFile, $aFolderLog & $aUtilName & "_Log_" & @YEAR & "-" & @MON & "-" & @MDAY & "-Part1.txt") FileWriteLine($aLogFile, _NowCalc() & " Log File Split. First file:" & $aFolderLog & $aUtilName & "_Log_" & @YEAR & "-" & @MON & "-" & @MDAY & "-Part1.txt") EndIf Local $tFileSize = FileGetSize($aLogDebugFile) If $tFileSize > 10000000 Then FileMove($aLogDebugFile, $aFolderLog & $aUtilName & "_LogFull_" & @YEAR & "-" & @MON & "-" & @MDAY & "-Part1.txt") FileWriteLine($aLogFile, _NowCalc() & " Log File Split. First file:" & $aFolderLog & $aUtilName & "_LogFull_" & @YEAR & "-" & @MON & "-" & @MDAY & "-Part1.txt") EndIf If $Msg <> "" Then FileWriteLine($aLogFile, _NowCalc() & $Msg) EndIf If $msgdebug <> "no" Then If $msgdebug = -1 Then FileWriteLine($aLogDebugFile, _NowCalc() & $Msg) Else FileWriteLine($aLogDebugFile, _NowCalc() & $msgdebug) EndIf EndIf EndFunc Func PurgeLogFile() $aPurgeLogFileName = $aFolderTemp & $aUtilName & "_PurgeLogFile.bat" Local $sFileExists = FileExists($aPurgeLogFileName) If $sFileExists = 1 Then FileDelete($aPurgeLogFileName) EndIf FileWriteLine($aPurgeLogFileName, "for /f ""tokens=* skip=" & $aLogQuantity & """ %%F in " & Chr(40) & "'dir """ & $aFolderLog & $aUtilName & "_Log_*.txt"" /o-d /tc /b'" & Chr(41) & " do del """ & $aFolderLog & "%%F""") FileWriteLine($aPurgeLogFileName, "for /f ""tokens=* skip=" & $aLogQuantity & """ %%F in " & Chr(40) & "'dir """ & $aFolderLog & $aUtilName & "_LogFull_*.txt"" /o-d /tc /b'" & Chr(41) & " do del """ & $aFolderLog & "%%F""") FileWriteLine($aPurgeLogFileName, "for /f ""tokens=* skip=" & $aLogQuantity & """ %%F in " & Chr(40) & "'dir """ & $aFolderLog & $aUtilName & "_OnlineUserLog_*.txt"" /o-d /tc /b'" & Chr(41) & " do del """ & $aFolderLog & "%%F""") LogWrite("", " Deleting log files >" & $aLogQuantity & " in folder " & $aFolderTemp) Run($aPurgeLogFileName, "", @SW_HIDE) EndFunc Func _ProcessGetLocation($iPID) Local $aProc = DllCall('kernel32.dll', 'hwnd', 'OpenProcess', 'int', BitOR(0x0400, 0x0010), 'int', 0, 'int', $iPID) If $aProc[0] = 0 Then Return SetError(1, 0, '') Local $vStruct = DllStructCreate('int[1024]') DllCall('psapi.dll', 'int', 'EnumProcessModules', 'hwnd', $aProc[0], 'ptr', DllStructGetPtr($vStruct), 'int', DllStructGetSize($vStruct), 'int_ptr', 0) Local $aReturn = DllCall('psapi.dll', 'int', 'GetModuleFileNameEx', 'hwnd', $aProc[0], 'int', DllStructGetData($vStruct, 1), 'str', '', 'int', 2048) If StringLen($aReturn[3]) = 0 Then Return SetError(2, 0, '') Return $aReturn[3] EndFunc Func _ArrayCompare($tArray1, $tArray2) Local $sda = ObjCreate("Scripting.Dictionary") Local $sdb = ObjCreate("Scripting.Dictionary") Local $sdc = ObjCreate("Scripting.Dictionary") For $i9 In $tArray1 $sda.Item($i9) Next For $i9 In $tArray2 $sdb.Item($i9) Next $aKeys = $sdb.Keys() For $i9 In $tArray1 If $sdb.Exists($i9) Then $sdc.Item($i9) Next $asd3 = $sdc.Keys() For $i9 In $asd3 If $sda.Exists($i9) Then $sda.Remove($i9) If $sdb.Exists($i9) Then $sdb.Remove($i9) Next $asd1 = $sda.Keys() $asd2 = $sdb.Keys() Local $tReturn[3] $tReturn[0] = $asd1 $tReturn[1] = $asd2 $tReturn[2] = $asd3 Return $tReturn EndFunc Func _PlinkConnect($tIP, $tPort, $tPwd, $tLog012 = 2, $tSkipVerifyTF = False) Local $sReturn = -1 Local $kReturn = "" _DownloadAndExtractFile("plink", "http://www.phoenix125.com/share/plink/plink.zip", "https://github.com/phoenix125/7dtdServerUpdateUtility/releases/download/LatestVersion/plink.zip", $tSplash, $aFolderTemp) Local $tPID = _CheckForExistingPlink() If $tPID > 0 Then Local $sReturn = $tPID If $tLog012 = 2 Then LogWrite(" [Telnet] Existing Plink session found. PID:(" & $tPID & ")") ElseIf $tLog012 = 1 Then LogWrite("", " [Telnet] Existing Plink session found. PID:(" & $tPID & ")") EndIf Else Local $tCmd = '"' & $aFilePlink & '" -telnet ' & $tIP & ' -P ' & $tPort $aPlinkPID = Run($tCmd, @ScriptDir, @SW_HIDE, $STDIN_CHILD + $STDERR_MERGED) Local $sReturn = $aPlinkPID If Not $aPlinkPID Then LogWrite(" [Telnet] ERROR! Failed to connect to telnet. [" & $tIP & ":" & $tPort & "]", " [Telnet] ERROR! Fialed to connect to telnet. [" & $tIP & ":" & $tPort & "] " & $tCmd) Return SetError(2, 0, 0) EndIf If $tSkipVerifyTF = False Then For $i = 1 To 6 If $i = 6 Then LogWrite(" [Telnet] ERROR! Plink failed to connect to server [" & $tIP & ":" & $tPort & "] PID:" & $aPlinkPID, " [Telnet] ERROR! Plink failed to connect to server [" & $tIP & ":" & $tPort & "] PID[" & $aPlinkPID & "]" & $tCmd) Return SetError(2, 0, 0) EndIf $kReturn = _PlinkSend(@CRLF & $tPwd, True, True) If StringInStr($kReturn, "Logon successful.") > 0 Then ExitLoop Sleep(500) Next EndIf LogWrite(" [Telnet] Plink Started. PID(" & $aPlinkPID & ") Connected to server [" & $tIP & ":" & $tPort & "]", " [Telnet] Plink Started. PID(" & $aPlinkPID & ") Connected to server [" & $tIP & ":" & $tPort & "] " & $tCmd & " [" & ReplaceCRLF($kReturn) & "]") EndIf Return $sReturn EndFunc Func _PlinkRead($aSkipConnectTF = False) If $aSkipConnectTF = False Then _PlinkConnect($aTelnetIP, $aTelnetPort, $aTelnetPass, 0, True) Local $sDataA Local $sDataB Do $sDataB = $sDataA Sleep(100) $sDataA &= StdoutRead($aPlinkPID) If $sDataA = "" Then Return StringRegExpReplace($sDataA, "\00", "") If @error Then ExitLoop Until $sDataB = $sDataA And $sDataA And $sDataB Return StringRegExpReplace($sDataA, "\00", "") EndFunc Func _PlinkSend($sCmd, $tReadTF = True, $aSkipConnectTF = False) If $aSkipConnectTF = False Then _PlinkConnect($aTelnetIP, $aTelnetPort, $aTelnetPass, 0, True) $iChars = StdinWrite($aPlinkPID, $sCmd & @CRLF) Local $tRead3 = _PlinkRead($aSkipConnectTF) If StringInStr($tRead3, "Password incorrect, please enter password") Then StdinWrite($aPlinkPID, $aTelnetPass & @CRLF) Sleep(250) $iChars = StdinWrite($aPlinkPID, $sCmd & @CRLF) Local $tRead3 = _PlinkRead($aSkipConnectTF) EndIf Return SetError(@error, 0, $tRead3) EndFunc Func _PlinkDisconnect() $iClosed = ProcessClose($aPlinkPID) Return SetError(@error, 0, $iClosed) EndFunc Func _TelnetBufferTrim() $aTelnetBuffer = StringRight($aTelnetBuffer, 10000) EndFunc Func _TelnetLookForAll($tTxt5) Local $tArray3 = StringSplit($tTxt5, @CRLF) If IsArray($tArray3) Then For $t1 = 1 To $tArray3[0] _TelnetLookForDeath($tArray3[$t1]) _TelnetLookForJoin($tArray3[$t1]) _TelnetLookForLeave($tArray3[$t1]) _TelnetLookForChat($tArray3[$t1]) Next EndIf EndFunc Func _TelnetLookForDeath($tTxt4) Local $tMsg4 = $sDiscordPlayerDiedMsg If $sUseDiscordBotPlayerDiedYN = "yes" Then If StringRegExp($tTxt4, "Player '.*' died") Then Local $tName = _ArrayToString(_StringBetween($tTxt4, "'", "'")) $tMsg4 = StringReplace($tMsg4, "\p", $tName) $tMsg4 = StringReplace($tMsg4, "\n", @CRLF) _SendDiscordDie($tMsg4) EndIf EndIf EndFunc Func _TelnetLookForJoin($tTxt4) Local $tMsg4 = $sDiscordPlayerJoinMsg If $tMsg4 <> "" Then If StringRegExp($tTxt4, "Player '.*' joined the game") Then Local $tName = _ArrayToString(_StringBetween($tTxt4, "'", "'")) $tMsg4 = StringReplace($tMsg4, "\p", $tName) $tMsg4 = StringReplace($tMsg4, "\n", @CRLF) _SendDiscordJoin($tMsg4) _PlayersOnlineCheck() EndIf EndIf EndFunc Func _TelnetLookForLeave($tTxt4) Local $tMsg4 = $sDiscordPlayerLeftMsg If $tMsg4 <> "" Then If StringRegExp($tTxt4, "Player '.*' left the game") Then Local $tName = _ArrayToString(_StringBetween($tTxt4, "'", "'")) $tMsg4 = StringReplace($tMsg4, "\p", $tName) $tMsg4 = StringReplace($tMsg4, "\n", @CRLF) _SendDiscordJoin($tMsg4) _PlayersOnlineCheck() EndIf EndIf EndFunc Func _TelnetLookForChat($tTxt4) Local $tMsg4 = $sDiscordPlayerChatMsg If $tMsg4 <> "" Then If StringInStr($tTxt4, " INF Chat (from") Then Local $tName = _ArrayToString(_StringBetween($tTxt4, "'): '", "': ")) Local $tChat = StringMid($tTxt4, StringInStr($tTxt4, $tName & "': ") + StringLen($tName & "': ")) $tMsg4 = StringReplace($tMsg4, "\p", $tName) $tMsg4 = StringReplace($tMsg4, "\m", $tChat) $tMsg4 = StringReplace($tMsg4, "\n", @CRLF) _SendDiscordChat($tMsg4) EndIf EndIf EndFunc Func _SendDiscordJoin($tMsg) _GetPlayerCount() EndFunc Func _SendDiscordLeave($tMsg) _GetPlayerCount() EndFunc Func _DisableCloseButton($tHwd) $aSysMenu = DllCall("User32.dll", "hwnd", "GetSystemMenu", "hwnd", $tHwd, "int", 0) $hSysMenu = $aSysMenu[0] DllCall("User32.dll", "int", "RemoveMenu", "hwnd", $hSysMenu, "int", 0xF060, "int", 0) DllCall("User32.dll", "int", "DrawMenuBar", "hwnd", $tHwd) EndFunc #Region ### START Koda GUI section ### Form=K:\AutoIT\_MyProgs\7dtdServerUpdateUtility\Koda GUIs\7DTD_W1(b3).kxf Func GUI_Config($tNewInstallTF = False) If WinExists($hGUI_LoginLogo) Then GUIDelete($hGUI_LoginLogo) If WinExists($Config) Then _WinAPI_SetWindowPos($Config, $HWND_TOPMOST, 0, 0, 0, 0, BitOR($SWP_NOACTIVATE, $SWP_NOMOVE, $SWP_NOSIZE)) _WinAPI_SetWindowPos($Config, $HWND_NOTOPMOST, 0, 0, 0, 0, BitOR($SWP_NOACTIVATE, $SWP_NOMOVE, $SWP_NOSIZE)) Else Global $aConfigWindowClose = False SplashOff() $Config = GUICreate("7DTDServerUpdateUtility Config", 906, 576, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_THICKFRAME)) GUISetIcon($aIconFile, 99) GUISetBkColor(0x646464) GUISetOnEvent($GUI_EVENT_CLOSE, "ConfigClose") GUISetOnEvent($GUI_EVENT_MINIMIZE, "ConfigMinimize") GUISetOnEvent($GUI_EVENT_MAXIMIZE, "ConfigMaximize") GUISetOnEvent($GUI_EVENT_RESTORE, "ConfigRestore") _DisableCloseButton($Config) Global $ConfigTabWindow = GUICtrlCreateTab(8, 31, 889, 537) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "ConfigTabWindowChange") Global $Tab1 = GUICtrlCreateTabItem("1 Server Setup") Global $Label1 = GUICtrlCreateLabel("", 72, 87, 4, 4) GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label1Click") Global $Group5 = GUICtrlCreateGroup("Server", 16, 59, 515, 123) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $Label2 = GUICtrlCreateLabel("Server Folder", 33, 84, 86, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label2Click") Global $W1_T1_I_DIR = GUICtrlCreateInput("W1_T1_I_DIR", 124, 83, 300, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_DIRChange") Global $W1_T1_B_DIR = GUICtrlCreateButton("Select Folder", 427, 81, 95, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_B_DIRClick") Global $W1_T1_I_ConfigFile = GUICtrlCreateInput("W1_T1_I_ConfigFile", 124, 113, 220, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_ConfigFileChange") Global $W1_T1_B_Config = GUICtrlCreateButton("Select File", 347, 111, 76, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_B_ConfigClick") Global $W1_T1_B_ImportSettings = GUICtrlCreateButton("Import Settings", 427, 111, 95, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF3E747) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_B_ImportSettingsClick") Global $W1_T1_I_IP = GUICtrlCreateInput("192.168.1.1", 124, 143, 86, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_IPChange") Global $Label4 = GUICtrlCreateLabel("Config File", 52, 114, 67, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label4Click") Global $Label3 = GUICtrlCreateLabel("Local IP", 66, 144, 52, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label3Click") Global $Label36 = GUICtrlCreateLabel("(ie. 192.168.1.10)", 215, 144, 101, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label36Click") Global $W1_T1_B_OpenServerConfig = GUICtrlCreateButton("Open Config File", 381, 141, 141, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xB9D1EA) GUICtrlSetOnEvent(-1, "W1_T1_B_OpenServerConfigClick") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group6 = GUICtrlCreateGroup("SteamCMD", 16, 185, 591, 175) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $Label5 = GUICtrlCreateLabel("Steam Branch", 32, 222, 88, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label5Click") Global $W1_T1_R_BranchPublic = GUICtrlCreateRadio("public", 126, 220, 56, 21) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_R_BranchPublicClick") Global $W1_T1_R_BranchExperimental = GUICtrlCreateRadio("latest_experimental", 193, 221, 138, 19) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_R_BranchExperimentalClick") Global $W1_T1_I_SteamBranch = GUICtrlCreateInput("W1_T1_I_SteamBranch", 353, 218, 118, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_SteamBranchChange") Global $W1_T1_I_SteamUsername = GUICtrlCreateInput("(optional)", 195, 246, 86, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_SteamUsernameChange") Global $W1_T1_I_SteamPassword = GUICtrlCreateInput("(optional)", 385, 246, 86, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_SteamPasswordChange") Global $W1_T1_E_Commandline = GUICtrlCreateEdit("", 122, 276, 471, 74, BitOR($ES_AUTOVSCROLL, $ES_AUTOHSCROLL, $ES_WANTRETURN)) GUICtrlSetData(-1, "Edit3") GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_E_CommandlineChange") Global $Label32 = GUICtrlCreateLabel("Username", 125, 249, 67, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label32Click") Global $Label34 = GUICtrlCreateLabel("Password", 318, 249, 64, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label34Click") Global $Label35 = GUICtrlCreateLabel("Commandline", 29, 276, 87, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label35Click") Global $W1_T1_R_BranchManual = GUICtrlCreateRadio("", 337, 221, 15, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_R_BranchManualClick") Global $Group16 = GUICtrlCreateGroup("", 480, 202, 114, 69) Global $W1_T1_R_NOValidate = GUICtrlCreateRadio("NO Validate", 489, 221, 96, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_R_NOValidateClick") Global $W1_T1_R_Validate = GUICtrlCreateRadio("Validate", 489, 243, 67, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_R_ValidateClick") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $W1_T1_B_ResetCMD = GUICtrlCreateButton("Reset Cmd", 36, 321, 75, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0x99B4D1) GUICtrlSetOnEvent(-1, "W1_T1_B_ResetCMDClick") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group1 = GUICtrlCreateGroup("Server Update Check", 536, 60, 353, 123) GUICtrlSetFont(-1, 10, 400, 0, "Arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $Label45 = GUICtrlCreateLabel("Check for updates every", 551, 117, 149, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label45Click") Global $W1_T1_C_ServerUpdateCheck = GUICtrlCreateCheckbox("Check For Server Updates", 555, 90, 187, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_ServerUpdateCheckClick") Global $W1_T1_I_UpdateMinutes = GUICtrlCreateInput("5", 705, 113, 47, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_UpdateMinutesChange") Global $W1_T1_U_UpdateMinutes = GUICtrlCreateUpdown($W1_T1_I_UpdateMinutes) GUICtrlSetLimit(-1, 59, 5) GUICtrlSetOnEvent(-1, "W1_T1_U_UpdateMinutesChange") Global $W1_T1_R_UpdateViaSteamCMD = GUICtrlCreateRadio("SteamCMD", 706, 148, 93, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_R_UpdateViaSteamCMDClick") Global $W1_T1_R_UpdateViaSteamDB = GUICtrlCreateRadio("SteamDB", 802, 148, 77, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_R_UpdateViaSteamDBClick") Global $Label46 = GUICtrlCreateLabel("minutes (05-59)", 757, 117, 93, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label46Click") Global $Label47 = GUICtrlCreateLabel("For update checks, use: ", 556, 148, 149, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label47Click") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group17 = GUICtrlCreateGroup("Backups", 16, 365, 873, 197) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $W1_T1_C_Enable = GUICtrlCreateCheckbox("Enable", 68, 388, 75, 18) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T1_C_EnableClick") Global $Label69 = GUICtrlCreateLabel("Days", 20, 388, 36, 20, $SS_RIGHT) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label69Click") Global $W1_T1_C_Daily = GUICtrlCreateCheckbox("Daily", 153, 388, 51, 18) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_DailyClick") Global $W1_T1_C_Sun = GUICtrlCreateCheckbox("Sun", 209, 388, 45, 18) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_SunClick") Global $W1_T1_C_Mon = GUICtrlCreateCheckbox("Mon", 254, 388, 47, 18) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_MonClick") Global $W1_T1_C_Tues = GUICtrlCreateCheckbox("Tues", 305, 388, 50, 18) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_TuesClick") Global $W1_T1_C_Wed = GUICtrlCreateCheckbox("Wed", 357, 388, 53, 18) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_WedClick") Global $W1_T1_C_Thurs = GUICtrlCreateCheckbox("Thur", 413, 388, 51, 18) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_ThursClick") Global $W1_T1_C_Fri = GUICtrlCreateCheckbox("Fri", 467, 388, 39, 18) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_FriClick") Global $W1_T1_C_Sat = GUICtrlCreateCheckbox("Sat", 506, 388, 51, 18) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_SatClick") Global $W1_T1_C_00 = GUICtrlCreateCheckbox("00", 61, 422, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_00Click") Global $W1_T1_C_01 = GUICtrlCreateCheckbox("01", 100, 422, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_01Click") Global $W1_T1_C_02 = GUICtrlCreateCheckbox("02", 141, 422, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_02Click") Global $W1_T1_C_03 = GUICtrlCreateCheckbox("03", 182, 422, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_03Click") Global $W1_T1_C_04 = GUICtrlCreateCheckbox("04", 222, 422, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_04Click") Global $W1_T1_C_05 = GUICtrlCreateCheckbox("05", 263, 422, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_05Click") Global $W1_T1_C_06 = GUICtrlCreateCheckbox("06", 303, 422, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_06Click") Global $W1_T1_C_07 = GUICtrlCreateCheckbox("07", 343, 422, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_07Click") Global $W1_T1_C_08 = GUICtrlCreateCheckbox("08", 383, 422, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_08Click") Global $W1_T1_C_09 = GUICtrlCreateCheckbox("09", 423, 422, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_09Click") Global $W1_T1_C_10 = GUICtrlCreateCheckbox("10", 463, 422, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_10Click") Global $W1_T1_C_11 = GUICtrlCreateCheckbox("11", 501, 422, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_11Click") Global $W1_T1_C_12 = GUICtrlCreateCheckbox("12", 61, 448, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_12Click") Global $W1_T1_C_13 = GUICtrlCreateCheckbox("13", 100, 448, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_13Click") Global $W1_T1_C_14 = GUICtrlCreateCheckbox("14", 141, 448, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_14Click") Global $W1_T1_C_15 = GUICtrlCreateCheckbox("15", 182, 448, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_15Click") Global $W1_T1_C_16 = GUICtrlCreateCheckbox("16", 222, 448, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_16Click") Global $W1_T1_C_17 = GUICtrlCreateCheckbox("17", 263, 448, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_17Click") Global $W1_T1_C_18 = GUICtrlCreateCheckbox("18", 303, 448, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_18Click") Global $W1_T1_C_19 = GUICtrlCreateCheckbox("19", 343, 448, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_19Click") Global $W1_T1_C_20 = GUICtrlCreateCheckbox("20", 383, 448, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_20Click") Global $W1_T1_C_21 = GUICtrlCreateCheckbox("21", 423, 448, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_21Click") Global $W1_T1_C_22 = GUICtrlCreateCheckbox("22", 463, 448, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_22Click") Global $W1_T1_C_23 = GUICtrlCreateCheckbox("23", 501, 448, 30, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_C_23Click") Global $W1_T1_I_BackupMin = GUICtrlCreateInput("0", 64, 475, 47, 24) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_BackupMinChange") Global $W1_T1_U_BackupMinute = GUICtrlCreateUpdown($W1_T1_I_BackupMin) GUICtrlSetLimit(-1, 59, 0) GUICtrlSetOnEvent(-1, "W1_T1_U_BackupMinuteChange") Global $W1_T1_I_BackupOutFolder = GUICtrlCreateInput("W1_T1_I_DIR", 188, 476, 267, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_BackupOutFolderChange") Global $W1_T1_B_BackupOutFolder = GUICtrlCreateButton("Select Folder", 456, 474, 73, 25) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_B_BackupOutFolderClick") Global $W1_T1_I_BackupCm = GUICtrlCreateInput("W1_T1_I_DIR", 387, 505, 183, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_BackupCmChange") Global $W1_T1_I_BackupNumberToKeep = GUICtrlCreateInput("1", 792, 383, 47, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_BackupNumberToKeepChange") Global $W1_T1_U_BackupNumberToKeep = GUICtrlCreateUpdown($W1_T1_I_BackupNumberToKeep) GUICtrlSetLimit(-1, 999, 1) GUICtrlSetOnEvent(-1, "W1_T1_U_BackupNumberToKeepChange") Global $W1_T1_I_BackupFullEvery = GUICtrlCreateInput("0", 758, 453, 48, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_BackupFullEveryChange") Global $W1_T1_U_BackupFullEvery = GUICtrlCreateUpdown($W1_T1_I_BackupFullEvery) GUICtrlSetLimit(-1, 99, 0) GUICtrlSetOnEvent(-1, "W1_T1_U_BackupFullEveryChange") Global $W1_T1_I_BackupMaxWaitSec = GUICtrlCreateInput("30", 792, 499, 47, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_BackupMaxWaitSecChange") Global $W1_T1_U_BackupMaxSecToWait = GUICtrlCreateUpdown($W1_T1_I_BackupMaxWaitSec) GUICtrlSetLimit(-1, 999, 30) GUICtrlSetOnEvent(-1, "W1_T1_U_BackupMaxSecToWaitChange") Global $W1_T1_I_BackupCmd = GUICtrlCreateInput("W1_T1_I_DIR", 566, 531, 316, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T1_I_BackupCmdChange") Global $Label70 = GUICtrlCreateLabel("Hours", 20, 424, 40, 20) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label70Click") Global $Label71 = GUICtrlCreateLabel("Minute", 19, 477, 43, 20, $SS_RIGHT) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label71Click") Global $Label72 = GUICtrlCreateLabel("Number of backups to Keep", 650, 385, 137, 17, $SS_RIGHT) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label72Click") Global $Label73 = GUICtrlCreateLabel("Full server and util backup every", 599, 456, 157, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label73Click") Global $Label74 = GUICtrlCreateLabel("backup (0-99)", 809, 456, 70, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label74Click") Global $Label75 = GUICtrlCreateLabel("Routine backups include SAVE && MODS folders and config files", 573, 419, 311, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label75Click") Global $Label76 = GUICtrlCreateLabel("Full backups include entire server && util folders", 657, 436, 227, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label76Click") Global $Label77 = GUICtrlCreateLabel("(1-999)", 843, 385, 37, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label77Click") Global $Label78 = GUICtrlCreateLabel("0 = disable", 824, 471, 55, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label78Click") Global $Label79 = GUICtrlCreateLabel("Output Folder", 120, 479, 68, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label79Click") Global $Label80 = GUICtrlCreateLabel("Additional backup folders / files (comma separated. Folders add \ at end. ex. ""C:\7DTD\"",""D:\7DTD\config.xml"")", 24, 535, 559, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label80Click") Global $Label81 = GUICtrlCreateLabel("7zip backup additional command line parameters (Default: a -spf -r -tzip -ssw)", 24, 508, 363, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label81Click") Global $Label82 = GUICtrlCreateLabel("Max seconds to wait for backup to complete", 579, 502, 213, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label82Click") Global $Label83 = GUICtrlCreateLabel("(30-999)", 843, 501, 43, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label83Click") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Pic1 = GUICtrlCreatePic("" & $aFolderTemp & "zombiehorde.jpg", 614, 193, 274, 165) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Pic1Click") Global $Tab2 = GUICtrlCreateTabItem("2 Watchdog") Global $Watchdog = GUICtrlCreateGroup("KeepAlive Watchdog", 40, 83, 793, 253) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $Label8 = GUICtrlCreateLabel("(1-360)", 57, 112, 44, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label8Click") Global $W1_T2_E_PauseForMapGeneration = GUICtrlCreateInput("0", 107, 109, 53, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T2_E_PauseForMapGenerationChange") Global $W1_T2_U_PauseForUpdate = GUICtrlCreateUpdown($W1_T2_E_PauseForMapGeneration) GUICtrlSetLimit(-1, 360, 1) GUICtrlSetOnEvent(-1, "W1_T2_U_PauseForUpdateChange") Global $W1_T2_I_PauseForStarted = GUICtrlCreateInput("0", 107, 138, 53, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T2_I_PauseForStartedChange") Global $W1_T2_U_PauseForStarted = GUICtrlCreateUpdown($W1_T2_I_PauseForStarted) GUICtrlSetLimit(-1, 60, 1) GUICtrlSetOnEvent(-1, "W1_T2_U_PauseForStartedChange") Global $W1_T2_I_FailedResponses = GUICtrlCreateInput("0", 107, 167, 53, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T2_I_FailedResponsesChange") Global $W1_T2_U_FailedResponse = GUICtrlCreateUpdown($W1_T2_I_FailedResponses) GUICtrlSetLimit(-1, 10, 1) GUICtrlSetOnEvent(-1, "W1_T2_U_FailedResponseChange") Global $W1_T2_C_UseQuery = GUICtrlCreateCheckbox("Use QUERY PORT to check if server is alive", 97, 235, 287, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T2_C_UseQueryClick") Global $W1_T2_I_QueryIP = GUICtrlCreateInput("127.0.0.1", 453, 231, 86, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T2_I_QueryIPChange") Global $W1_T2_I_QueryCheckEvery = GUICtrlCreateInput("0", 651, 230, 49, 24) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T2_I_QueryCheckEveryChange") Global $W1_T2_U_QueryCheck = GUICtrlCreateUpdown($W1_T2_I_QueryCheckEvery) GUICtrlSetLimit(-1, 900, 30) GUICtrlSetOnEvent(-1, "W1_T2_U_QueryCheckChange") Global $W1_T2_C_UseTelnet = GUICtrlCreateCheckbox("Use TELNET to check if server is alive", 97, 268, 277, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T2_C_UseTelnetClick") Global $W1_T2_I_TelnetIP = GUICtrlCreateInput("127.0.0.1", 453, 264, 86, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T2_I_TelnetIPChange") Global $W1_T2_I_TelnetCheckEvery = GUICtrlCreateInput("0", 651, 263, 49, 24) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T2_I_TelnetCheckEveryChange") Global $W1_T2_U_TelnetCheck = GUICtrlCreateUpdown($W1_T2_I_TelnetCheckEvery) GUICtrlSetLimit(-1, 900, 30) GUICtrlSetOnEvent(-1, "W1_T2_U_TelnetCheckChange") Global $Label22 = GUICtrlCreateLabel("Pause watchdog for _ minutes after server updated to allow map generation", 165, 113, 449, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label22Click") Global $Label6 = GUICtrlCreateLabel("Pause watchdog for _ minutes after server started to allow server to come online", 165, 142, 474, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label6Click") Global $Label7 = GUICtrlCreateLabel("(1-60)", 63, 141, 37, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label7Click") Global $Label37 = GUICtrlCreateLabel("Number of failed responses (after server has responded at least once) before restarting server (Default is 3)", 165, 171, 637, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label37Click") Global $Label38 = GUICtrlCreateLabel("(1-10)", 61, 170, 37, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label38Click") Global $Label39 = GUICtrlCreateLabel("Query IP", 394, 235, 55, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label39Click") Global $Label40 = GUICtrlCreateLabel("Check Every", 570, 233, 80, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label40Click") Global $Label41 = GUICtrlCreateLabel("seconds (30-900)", 708, 233, 104, 20) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label41Click") Global $Label42 = GUICtrlCreateLabel("Telnet IP", 394, 268, 57, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label42Click") Global $Label43 = GUICtrlCreateLabel("Check Every", 570, 266, 80, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label43Click") Global $Label44 = GUICtrlCreateLabel("seconds (30-900)", 708, 266, 106, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label44Click") Global $Label101 = GUICtrlCreateLabel("Used when [monitor all telnet traffic] is disabled", 114, 290, 279, 20) GUICtrlSetFont(-1, 10, 400, 2, "arial") GUICtrlSetOnEvent(-1, "Label101Click") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group7 = GUICtrlCreateGroup("Excessive Memory Watchdog", 39, 431, 331, 109) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $W1_T2_C_RestartExcessiveMemory = GUICtrlCreateCheckbox("Restart on excessive memory use", 55, 455, 223, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T2_C_RestartExcessiveMemoryClick") Global $Label48 = GUICtrlCreateLabel("Excessive memory amount", 51, 487, 165, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label48Click") Global $W1_T2_I_RestartExcessiveMemoryAmt = GUICtrlCreateInput("W1_T2_I_RestartExcessiveMemoryAmt", 216, 483, 137, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T2_I_RestartExcessiveMemoryAmtChange") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Pic2 = GUICtrlCreatePic("" & $aFolderTemp & "zombiedog.jpg", 610, 359, 222, 180) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Pic2Click") Global $Tab3 = GUICtrlCreateTabItem("3 Restarts") Global $Group2 = GUICtrlCreateGroup("Server Restart Schedules", 31, 79, 649, 165) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) Global $Label9 = GUICtrlCreateLabel("Restart Days", 51, 113, 82, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "Label9Click") Global $W1_T3_C_Daily = GUICtrlCreateCheckbox("Daily", 230, 113, 49, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_DailyClick") Global $W1_T3_C_Sun = GUICtrlCreateCheckbox("Sun", 284, 113, 41, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_SunClick") Global $W1_T3_C_Mon = GUICtrlCreateCheckbox("Mon", 329, 113, 47, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_MonClick") Global $W1_T3_C_Tues = GUICtrlCreateCheckbox("Tues", 376, 113, 49, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_TuesClick") Global $W1_T3_C_Wed = GUICtrlCreateCheckbox("Wed", 432, 113, 49, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_WedClick") Global $W1_T3_C_Thur = GUICtrlCreateCheckbox("Thur", 482, 113, 51, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_ThurClick") Global $W1_T3_C_Fri = GUICtrlCreateCheckbox("Fri", 534, 113, 38, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_FriClick") Global $W1_T3_C_Sat = GUICtrlCreateCheckbox("Sat", 575, 113, 51, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_SatClick") Global $W1_T3_C_00 = GUICtrlCreateCheckbox("00", 142, 147, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_00Click") Global $Label10 = GUICtrlCreateLabel("Restart Hours", 52, 147, 86, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "Label10Click") Global $W1_T3_C_01 = GUICtrlCreateCheckbox("01", 181, 147, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_01Click") Global $W1_T3_C_02 = GUICtrlCreateCheckbox("02", 222, 147, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_02Click") Global $W1_T3_C_03 = GUICtrlCreateCheckbox("03", 263, 147, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_03Click") Global $W1_T3_C_04 = GUICtrlCreateCheckbox("04", 303, 147, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_04Click") Global $W1_T3_C_05 = GUICtrlCreateCheckbox("05", 344, 147, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_05Click") Global $W1_T3_C_06 = GUICtrlCreateCheckbox("06", 384, 147, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_06Click") Global $W1_T3_C_07 = GUICtrlCreateCheckbox("07", 424, 147, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_07Click") Global $W1_T3_C_08 = GUICtrlCreateCheckbox("08", 464, 147, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_08Click") Global $W1_T3_C_09 = GUICtrlCreateCheckbox("09", 504, 147, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_09Click") Global $W1_T3_C_10 = GUICtrlCreateCheckbox("10", 544, 147, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_10Click") Global $W1_T3_C_11 = GUICtrlCreateCheckbox("11", 582, 147, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_11Click") Global $W1_T3_C_12 = GUICtrlCreateCheckbox("12", 142, 173, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_12Click") Global $W1_T3_C_13 = GUICtrlCreateCheckbox("13", 181, 173, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_13Click") Global $W1_T3_C_14 = GUICtrlCreateCheckbox("14", 222, 173, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_14Click") Global $W1_T3_C_15 = GUICtrlCreateCheckbox("15", 263, 173, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_15Click") Global $W1_T3_C_16 = GUICtrlCreateCheckbox("16", 303, 173, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_16Click") Global $W1_T3_C_17 = GUICtrlCreateCheckbox("17", 344, 173, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_17Click") Global $W1_T3_C_18 = GUICtrlCreateCheckbox("18", 384, 173, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_18Click") Global $W1_T3_C_19 = GUICtrlCreateCheckbox("19", 424, 173, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_19Click") Global $W1_T3_C_20 = GUICtrlCreateCheckbox("20", 464, 173, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_20Click") Global $W1_T3_C_21 = GUICtrlCreateCheckbox("21", 504, 173, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_21Click") Global $W1_T3_C_22 = GUICtrlCreateCheckbox("22", 544, 173, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_22Click") Global $W1_T3_C_23 = GUICtrlCreateCheckbox("23", 582, 173, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "W1_T3_C_23Click") Global $Label11 = GUICtrlCreateLabel("Restart Minute", 45, 207, 89, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH) GUICtrlSetOnEvent(-1, "Label11Click") Global $W1_T3_I_RestartMinute = GUICtrlCreateInput("0", 141, 205, 47, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T3_I_RestartMinuteChange") Global $W1_T3_U_RestartMinute = GUICtrlCreateUpdown($W1_T3_I_RestartMinute) GUICtrlSetLimit(-1, 59, 0) GUICtrlSetOnEvent(-1, "W1_T3_U_RestartMinuteChange") Global $W1_T3_C_EnableRestart = GUICtrlCreateCheckbox("Enable", 142, 113, 75, 18) GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T3_C_EnableRestartClick") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group4 = GUICtrlCreateGroup("Remote Restart", 30, 261, 649, 77) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $Label23 = GUICtrlCreateLabel("Port", 228, 286, 28, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label23Click") Global $W1_T3_C_EnableRemoteRestart = GUICtrlCreateCheckbox("Enable Remote Restart", 42, 287, 171, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T3_C_EnableRemoteRestartClick") Global $W1_T3_I_RemoteRestartPort = GUICtrlCreateInput("W1_T3_I_RemoteRestartPort", 256, 283, 65, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T3_I_RemoteRestartPortChange") Global $W1_T3_I_RemoteRestartKey = GUICtrlCreateInput("Input1", 367, 283, 65, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T3_I_RemoteRestartKeyChange") Global $W1_T3_I_RemoteRestartCode = GUICtrlCreateInput("Input1", 491, 283, 65, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T3_I_RemoteRestartCodeChange") Global $Label31 = GUICtrlCreateLabel("Key", 338, 286, 27, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label31Click") Global $Label49 = GUICtrlCreateLabel("Code", 455, 286, 37, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label49Click") Global $Label50 = GUICtrlCreateLabel("(Usage example: in any web brower, enter http://192.168.1.10:57520/?restart=password) to restart server)", 48, 312, 505, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label50Click") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group8 = GUICtrlCreateGroup("Append Server Version to Name", 30, 361, 649, 157) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $W1_T3_C_RenameGameSave = GUICtrlCreateCheckbox("Rename GameSave with updates causing a SERVER WIPE (while retaining old save files)", 46, 391, 567, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T3_C_RenameGameSaveClick") Global $W1_T3_C_AppendBefore = GUICtrlCreateCheckbox("Append Server Version at BEGINNING of Server Name example: Alpha 19 (b163) | My Server Name", 46, 416, 641, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T3_C_AppendBeforeClick") Global $W1_T3_C_AppendAfter = GUICtrlCreateCheckbox("Append Server Version at END of Server Name. example: My Server Name | Alpha 19 (b163)", 46, 440, 625, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T3_C_AppendAfterClick") Global $W1_T3_R_AppendShort = GUICtrlCreateRadio("Use SHORT server version. example: b163", 80, 460, 355, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T3_R_AppendShortClick") Global $W1_T3_R_AppendLong = GUICtrlCreateRadio("Use LONG server version. example: Alpha 19 (b163)", 80, 481, 337, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T3_R_AppendLongClick") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Pic3 = GUICtrlCreatePic("" & $aFolderTemp & "zombie1.jpg", 702, 187, 173, 251) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Pic3Click") Global $Tab4 = GUICtrlCreateTabItem("4 Announcements") Global $Group9 = GUICtrlCreateGroup("Announcement Intervals (Applies to all methods)", 20, 235, 863, 119) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $Label12 = GUICtrlCreateLabel("Announcement _ minutes before DAILY restarts", 33, 265, 282, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label12Click") Global $W1_T4_I_DailyMins = GUICtrlCreateInput("W1_T4_I_DailyMins", 356, 260, 75, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_I_DailyMinsChange") Global $W1_T4_C_Daily01 = GUICtrlCreateCheckbox("01", 436, 263, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Daily01Click") Global $W1_T4_C_Daily02 = GUICtrlCreateCheckbox("02", 477, 263, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Daily02Click") Global $W1_T4_C_Daily03 = GUICtrlCreateCheckbox("03", 518, 263, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Daily03Click") Global $W1_T4_C_Daily05 = GUICtrlCreateCheckbox("05", 560, 263, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Daily05Click") Global $W1_T4_C_Daily10 = GUICtrlCreateCheckbox("10", 599, 263, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Daily10Click") Global $W1_T4_C_Daily15 = GUICtrlCreateCheckbox("15", 637, 263, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Daily15Click") Global $Label13 = GUICtrlCreateLabel("Announcement _ minutes before UPDATE restarts", 33, 294, 300, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label13Click") Global $W1_T4_I_UpdateMins = GUICtrlCreateInput("Input1", 356, 289, 75, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_I_UpdateMinsChange") Global $W1_T4_C_Update01 = GUICtrlCreateCheckbox("01", 436, 292, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Update01Click") Global $W1_T4_C_Update02 = GUICtrlCreateCheckbox("02", 477, 292, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Update02Click") Global $W1_T4_C_Update03 = GUICtrlCreateCheckbox("03", 518, 292, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Update03Click") Global $W1_T4_C_Update05 = GUICtrlCreateCheckbox("05", 560, 292, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Update05Click") Global $W1_T4_C_Update10 = GUICtrlCreateCheckbox("10", 599, 292, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Update10Click") Global $W1_T4_C_Update15 = GUICtrlCreateCheckbox("15", 637, 292, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Update15Click") Global $Label24 = GUICtrlCreateLabel("Announcement _ minutes before REMOTE RESTART", 33, 323, 323, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label24Click") Global $W1_T4_I_UpdateRemote = GUICtrlCreateInput("Input1", 356, 318, 75, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_I_UpdateRemoteChange") Global $W1_T4_C_Remote01 = GUICtrlCreateCheckbox("01", 436, 321, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Remote01Click") Global $W1_T4_C_Remote02 = GUICtrlCreateCheckbox("02", 477, 321, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Remote02Click") Global $W1_T4_C_Remote03 = GUICtrlCreateCheckbox("03", 518, 321, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Remote03Click") Global $W1_T4_C_Remote05 = GUICtrlCreateCheckbox("05", 560, 321, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Remote05Click") Global $W1_T4_C_Remote10 = GUICtrlCreateCheckbox("10", 599, 321, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Remote10Click") Global $W1_T4_C_Remote15 = GUICtrlCreateCheckbox("15", 637, 321, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_Remote15Click") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group10 = GUICtrlCreateGroup("In-Game Announcements", 20, 363, 865, 193) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $W1_T4_C_AnnounceInGame = GUICtrlCreateCheckbox("Announce Messages In-Game", 30, 387, 211, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_AnnounceInGameClick") Global $Label51 = GUICtrlCreateLabel("DAILY Restarts", 96, 424, 95, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label51Click") Global $W1_T4_I_AnnounceDaily = GUICtrlCreateInput("W1_T4_I_AnnounceDaily", 195, 421, 677, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_I_AnnounceDailyChange") Global $Label52 = GUICtrlCreateLabel("Text substitution: \m - minutes", 314, 383, 176, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label52Click") Global $Label53 = GUICtrlCreateLabel("UPDATE Restarts", 78, 452, 113, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label53Click") Global $W1_T4_I_AnnounceUpdate = GUICtrlCreateInput("W1_T4_I_AnnounceDaily", 195, 449, 677, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_I_AnnounceUpdateChange") Global $Label54 = GUICtrlCreateLabel("REMOTE RESTART", 61, 480, 130, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label54Click") Global $W1_T4_I_AnnounceRemote = GUICtrlCreateInput("W1_T4_I_AnnounceDaily", 195, 477, 677, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_I_AnnounceRemoteChange") Global $Label84 = GUICtrlCreateLabel("BACKUP started", 88, 523, 102, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label84Click") Global $W1_T4_I_BackupStarted = GUICtrlCreateInput("W1_T4_I_AnnounceBackup", 195, 520, 677, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_I_BackupStartedChange") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group18 = GUICtrlCreateGroup("Online Players Check", 20, 149, 533, 77) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $W1_T4_C_LogOnlinePlayers = GUICtrlCreateCheckbox("Check for, and log, online players every", 34, 173, 255, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T4_C_LogOnlinePlayersClick") Global $W1_T4_I_LogOnlinePlaySeconds = GUICtrlCreateInput("0", 289, 170, 49, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T4_I_LogOnlinePlaySecondsChange") Global $W1_T4_U_OnlinePlayers = GUICtrlCreateUpdown($W1_T4_I_LogOnlinePlaySeconds) GUICtrlSetOnEvent(-1, "W1_T4_U_OnlinePlayersChange") Global $Label91 = GUICtrlCreateLabel("seconds", 344, 173, 56, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "Label91Click") Global $Label92 = GUICtrlCreateLabel("Used when [monitor all telnet traffic] is disabled", 48, 195, 279, 20) GUICtrlSetFont(-1, 10, 400, 2, "arial") GUICtrlSetOnEvent(-1, "Label92Click") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Pic6 = GUICtrlCreatePic("" & $aFolderTemp & "zombie6.jpg", 586, 69, 263, 161) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Pic6Click") Global $Group19 = GUICtrlCreateGroup("Telnet", 20, 63, 533, 83) GUICtrlSetFont(-1, 10, 400, 0, "arial") Global $W1_T4_C_TelnetStayConnected = GUICtrlCreateCheckbox("Stay connected to telnet.", 30, 115, 167, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T4_C_TelnetStayConnectedClick") Global $W1_T4_C_TelnetMonitorAll = GUICtrlCreateCheckbox("Monitor all telnet traffic. (Required for player chat and death announcements)", 30, 83, 467, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T4_C_TelnetMonitorAllClick") Global $Label97 = GUICtrlCreateLabel("Check telnet traffic every", 236, 115, 148, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "Label97Click") Global $W1_T4_I_TelnetCheckEverySec = GUICtrlCreateInput("0", 389, 112, 49, 24) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T4_I_TelnetCheckEverySecChange") Global $W1_T4_U_TelnetCheckEverySec = GUICtrlCreateUpdown($W1_T4_I_TelnetCheckEverySec) GUICtrlSetLimit(-1, 600, 1) GUICtrlSetOnEvent(-1, "W1_T4_U_TelnetCheckEverySecChange") Global $Label100 = GUICtrlCreateLabel("seconds (1-600)", 444, 114, 99, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "Label100Click") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Tab5 = GUICtrlCreateTabItem("5 Discord Webhooks") Global $Group3 = GUICtrlCreateGroup("Discord Webhooks", 38, 65, 831, 355) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $Label14 = GUICtrlCreateLabel("Discord #1", 48, 88, 90, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label14Click") Global $W1_T5_I_D1URL = GUICtrlCreateInput("W1_T5_I_D1URL", 181, 87, 677, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_I_D1URLChange") Global $W1_T5_I_D1Bot = GUICtrlCreateInput("Input1", 181, 116, 101, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_I_D1BotChange") Global $W1_T5_I_D1Avatar = GUICtrlCreateInput("Input1", 365, 117, 415, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_I_D1AvatarChange") Global $W1_T5_C_D1TTS = GUICtrlCreateCheckbox("Use TTS", 786, 120, 79, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_D1TTSClick") Global $Label15 = GUICtrlCreateLabel("URL", 145, 90, 31, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label15Click") Global $Label16 = GUICtrlCreateLabel("Bot Name", 113, 119, 64, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label16Click") Global $Label17 = GUICtrlCreateLabel("Avatar URL", 288, 120, 73, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label17Click") Global $Label18 = GUICtrlCreateLabel("Discord #2", 47, 177, 90, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label18Click") Global $Label19 = GUICtrlCreateLabel("URL", 144, 179, 31, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label19Click") Global $Label20 = GUICtrlCreateLabel("Bot Name", 112, 208, 64, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label20Click") Global $W1_T5_I_D2URL = GUICtrlCreateInput("Input1", 180, 176, 677, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_I_D2URLChange") Global $W1_T5_I_D2Bot = GUICtrlCreateInput("Input1", 180, 205, 101, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_I_D2BotChange") Global $Label25 = GUICtrlCreateLabel("Avatar URL", 287, 209, 73, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label25Click") Global $W1_T5_I_D2Avatar = GUICtrlCreateInput("Input1", 364, 206, 415, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_I_D2AvatarChange") Global $W1_T5_C_D2TTS = GUICtrlCreateCheckbox("Use TTS", 785, 209, 79, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_D2TTSClick") Global $Label55 = GUICtrlCreateLabel("Discord #3", 47, 266, 90, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label55Click") Global $Label56 = GUICtrlCreateLabel("URL", 142, 268, 31, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label56Click") Global $Label57 = GUICtrlCreateLabel("Bot Name", 110, 297, 64, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label57Click") Global $W1_T5_I_D3URL = GUICtrlCreateInput("Input1", 178, 265, 677, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_I_D3URLChange") Global $W1_T5_I_D3Bot = GUICtrlCreateInput("Input1", 178, 294, 101, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_I_D3BotChange") Global $Label58 = GUICtrlCreateLabel("Avatar URL", 285, 298, 73, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label58Click") Global $W1_T5_I_D3Avatar = GUICtrlCreateInput("Input1", 362, 295, 415, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_I_D3AvatarChange") Global $W1_T5_C_D3TTS = GUICtrlCreateCheckbox("Use TTS", 783, 298, 79, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_D3TTSClick") Global $Label59 = GUICtrlCreateLabel("Discord #4", 47, 351, 90, 24) GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label59Click") Global $Label60 = GUICtrlCreateLabel("URL", 142, 354, 31, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label60Click") Global $Label61 = GUICtrlCreateLabel("Bot Name", 110, 383, 64, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label61Click") Global $W1_T5_I_D4URL = GUICtrlCreateInput("Input1", 178, 351, 677, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_I_D4URLChange") Global $W1_T5_I_D4Bot = GUICtrlCreateInput("Input1", 178, 380, 101, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_I_D4BotChange") Global $Label62 = GUICtrlCreateLabel("Avatar URL", 285, 384, 73, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label62Click") Global $W1_T5_I_D4Avatar = GUICtrlCreateInput("Input1", 362, 381, 415, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_I_D4AvatarChange") Global $W1_T5_C_D4TTS = GUICtrlCreateCheckbox("Use TTS", 783, 384, 79, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_D4TTSClick") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Group11 = GUICtrlCreateGroup("Discord Webhook Select", 38, 431, 535, 117) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $Label63 = GUICtrlCreateLabel("Webhook(s) to send RESTART / STATUS Messages to:", 54, 453, 342, 20, $SS_RIGHT) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label63Click") Global $W1_T5_C_WHRestart1 = GUICtrlCreateCheckbox("#1", 403, 454, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHRestart1Click") Global $W1_T5_C_WHRestart2 = GUICtrlCreateCheckbox("#2", 444, 454, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHRestart2Click") Global $W1_T5_C_WHRestart3 = GUICtrlCreateCheckbox("#3", 485, 454, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHRestart3Click") Global $W1_T5_C_WHRestart4 = GUICtrlCreateCheckbox("#4", 527, 454, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHRestart4Click") Global $Label64 = GUICtrlCreateLabel("Webhook(s) to send PLAYERS ONLINE Messages to:", 58, 475, 326, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label64Click") Global $W1_T5_C_WHOnline1 = GUICtrlCreateCheckbox("#1", 403, 476, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHOnline1Click") Global $W1_T5_C_WHOnline2 = GUICtrlCreateCheckbox("#2", 444, 476, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHOnline2Click") Global $W1_T5_C_WHOnline3 = GUICtrlCreateCheckbox("#3", 485, 476, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHOnline3Click") Global $W1_T5_C_WHOnline4 = GUICtrlCreateCheckbox("#4", 527, 476, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHOnline4Click") Global $Label65 = GUICtrlCreateLabel("Webhook(s) to send CHAT Messages to:", 58, 497, 249, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label65Click") Global $W1_T5_C_WHChat1 = GUICtrlCreateCheckbox("#1", 403, 498, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHChat1Click") Global $W1_T5_C_WHChat2 = GUICtrlCreateCheckbox("#2", 444, 498, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHChat2Click") Global $W1_T5_C_WHChat3 = GUICtrlCreateCheckbox("#3", 485, 498, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHChat3Click") Global $W1_T5_C_WHChat4 = GUICtrlCreateCheckbox("#4", 527, 498, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHChat4Click") Global $Label66 = GUICtrlCreateLabel("Webhook(s) to send PLAYER DEATH Messages to:", 58, 519, 315, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label66Click") Global $W1_T5_C_WHDie1 = GUICtrlCreateCheckbox("#1", 403, 520, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHDie1Click") Global $W1_T5_C_WHDie2 = GUICtrlCreateCheckbox("#2", 444, 520, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHDie2Click") Global $W1_T5_C_WHDie3 = GUICtrlCreateCheckbox("#3", 485, 520, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHDie3Click") Global $W1_T5_C_WHDie4 = GUICtrlCreateCheckbox("#4", 527, 520, 30, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T5_C_WHDie4Click") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Pic4 = GUICtrlCreatePic("" & $aFolderTemp & "zombie2.jpg", 722, 429, 53, 123) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Pic4Click") Global $Tab6 = GUICtrlCreateTabItem("6 Discord Announcements") Global $Group12 = GUICtrlCreateGroup("Discord Announcements", 18, 75, 867, 455) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $W1_T6_C_Daily = GUICtrlCreateCheckbox("Daily", 32, 118, 112, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_C_DailyClick") Global $W1_T6_I_Daily = GUICtrlCreateInput("W1_T6_I_Daily", 147, 115, 728, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_I_DailyChange") Global $W1_T6_C_Update = GUICtrlCreateCheckbox("Update", 32, 147, 112, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_C_UpdateClick") Global $W1_T6_I_Update = GUICtrlCreateInput("Input13", 147, 144, 728, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_I_UpdateChange") Global $W1_T6_C_Remote = GUICtrlCreateCheckbox("Remote Restart", 32, 176, 112, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_C_RemoteClick") Global $W1_T6_I_Remote = GUICtrlCreateInput("Input13", 147, 173, 728, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_I_RemoteChange") Global $Label29 = GUICtrlCreateLabel("Text substitution: \m - minutes", 146, 93, 174, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label29Click") Global $W1_T6_C_BackOnline = GUICtrlCreateCheckbox("When server is back online", 32, 215, 183, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_C_BackOnlineClick") Global $W1_T6_I_BackOnline = GUICtrlCreateInput("W1_T6_I_BackOnline", 218, 213, 657, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_I_BackOnlineChange") Global $W1_T6_C_PlayerChange = GUICtrlCreateCheckbox("Online Player Change", 31, 275, 147, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_C_PlayerChangeClick") Global $W1_T6_I_PlayerChange = GUICtrlCreateInput("Input13", 182, 272, 692, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_I_PlayerChangeChange") Global $W1_T6_I_SubJoined = GUICtrlCreateInput("Input13", 230, 299, 644, 22) GUICtrlSetFont(-1, 8, 400, 0, "Arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_I_SubJoinedChange") Global $Label21 = GUICtrlCreateLabel("Joined Player Sub-Message ( \j )", 69, 303, 157, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label21Click") Global $W1_T6_I_SubLeft = GUICtrlCreateInput("Input13", 230, 326, 644, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_I_SubLeftChange") Global $Label67 = GUICtrlCreateLabel("Left Player Sub-Message ( \l )", 81, 330, 144, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label67Click") Global $Label68 = GUICtrlCreateLabel("Online Player Sub-Message ( \o )", 67, 357, 160, 17) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label68Click") Global $W1_T6_I_SubOnlinePlayer = GUICtrlCreateInput("Input13", 230, 353, 644, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_I_SubOnlinePlayerChange") Global $W1_T6_C_PlayerDie = GUICtrlCreateCheckbox("Player Died (\p - Player Name, \n Next Line)", 30, 389, 277, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_C_PlayerDieClick") Global $W1_T6_I_PlayerDie = GUICtrlCreateInput("Input13", 312, 386, 562, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_I_PlayerDieChange") Global $W1_T6_C_PlayerChat = GUICtrlCreateCheckbox("Player Chat (\p - Player Name, \m Message)", 30, 418, 277, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_C_PlayerChatClick") Global $W1_T6_I_PlayerChat = GUICtrlCreateInput("Input13", 312, 415, 562, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_I_PlayerChatChange") Global $W1_T6_C_FirstAnnounceOnly = GUICtrlCreateCheckbox("Send Discord message for FIRST ANNOUNCEMENT only (reduces bot spam)", 30, 447, 491, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_C_FirstAnnounceOnlyClick") Global $W1_T6_C_BackupStarted = GUICtrlCreateCheckbox("Backup Started", 30, 491, 111, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_C_BackupStartedClick") Global $W1_T6_I_BackupStarted = GUICtrlCreateInput("Input13", 142, 488, 732, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T6_I_BackupStartedChange") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Label26 = GUICtrlCreateLabel("\o Online Player Count, \m Max Players, \t Game Time, \h Days to Next Horde, \j Joined Sub-Msg, \l Left Sub-Msg, \a Online Players Sub-Msg, \n Next Line", 38, 253, 827, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label26Click") Global $Tab7 = GUICtrlCreateTabItem("7 Twitch") Global $Group13 = GUICtrlCreateGroup("Twitch Announcements", 18, 75, 865, 369) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $Label27 = GUICtrlCreateLabel("Text substitution: \m - minutes", 144, 108, 174, 18) GUICtrlSetFont(-1, 8, 800, 0, "Arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label27Click") Global $W1_T7_C_TwitchDaily = GUICtrlCreateCheckbox("Daily", 30, 133, 112, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T7_C_TwitchDailyClick") Global $W1_T7_I_TwitchDaily = GUICtrlCreateInput("Input13", 145, 130, 728, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T7_I_TwitchDailyChange") Global $W1_T7_C_TwitchUpdate = GUICtrlCreateCheckbox("Update", 30, 162, 112, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T7_C_TwitchUpdateClick") Global $W1_T7_I_TwitchUpdate = GUICtrlCreateInput("Input13", 145, 159, 728, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T7_I_TwitchUpdateChange") Global $W1_T7_C_TwitchRemote = GUICtrlCreateCheckbox("Remote Restart", 30, 191, 112, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T7_C_TwitchRemoteClick") Global $W1_T7_I_TwitchRemote = GUICtrlCreateInput("Input13", 145, 188, 728, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T7_I_TwitchRemoteChange") Global $Label28 = GUICtrlCreateLabel("Nick #", 61, 251, 41, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label28Click") Global $Label30 = GUICtrlCreateLabel("ChatOAuth", 37, 281, 67, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label30Click") Global $Label33 = GUICtrlCreateLabel("Channels", 44, 311, 60, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label33Click") Global $W1_T7_I_TwitchNick = GUICtrlCreateInput("W1_T7_I_TwitchNick", 107, 250, 201, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T7_I_TwitchNickChange") Global $W1_T7_I_TwitchChatOAuth = GUICtrlCreateInput("Input1", 107, 279, 633, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T7_I_TwitchChatOAuthChange") Global $W1_T7_I_TwitchChannels = GUICtrlCreateInput("Input1", 106, 308, 633, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T7_I_TwitchChannelsChange") Global $W1_T7_C_TwitchFirstAnnounceOnly = GUICtrlCreateCheckbox("Send Twitch message for FIRST ANNOUNCEMENT only (reduces bot spam)", 32, 358, 491, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T7_C_TwitchFirstAnnounceOnlyClick") Global $W1_T7_C_BackupStarted = GUICtrlCreateCheckbox("Backup Started", 32, 406, 112, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T7_C_BackupStartedClick") Global $W1_T7_I_TwitchBackStarted = GUICtrlCreateInput("Input13", 147, 403, 728, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T7_I_TwitchBackStartedChange") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Tab8 = GUICtrlCreateTabItem("8 Scripts") Global $Group14 = GUICtrlCreateGroup("External Scripts", 50, 65, 575, 457) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $W1_T8_C_ExecuteBeforeSteamAndStart = GUICtrlCreateCheckbox("Execute before SteamCMD update and server start", 65, 93, 358, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T8_C_ExecuteBeforeSteamAndStartClick") Global $W1_T8_C_ExecuteBeforeSteamandStartWait = GUICtrlCreateCheckbox("Wait for script to complete", 430, 91, 179, 16) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T8_C_ExecuteBeforeSteamandStartWaitClick") Global $Label85 = GUICtrlCreateLabel("File to run", 67, 118, 61, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label85Click") Global $W1_T8_I_ExecuteBeforeSteamandStart = GUICtrlCreateInput("W1_T1_I_DIR", 129, 114, 376, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T8_I_ExecuteBeforeSteamandStartChange") Global $W1_T8_B_ExecuteBeforeSteamandStart = GUICtrlCreateButton("Select File", 509, 113, 95, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T8_B_ExecuteBeforeSteamandStartClick") Global $W1_T8_C_ExecuteAfterSteamBeforeStart = GUICtrlCreateCheckbox("Execute after SteamCMD update but before server start", 66, 162, 357, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T8_C_ExecuteAfterSteamBeforeStartClick") Global $W1_T8_C_ExecuteAfterSteamBeforeStartWait = GUICtrlCreateCheckbox("Wait for script to complete", 430, 162, 179, 16) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T8_C_ExecuteAfterSteamBeforeStartWaitClick") Global $Label86 = GUICtrlCreateLabel("File to run", 67, 189, 61, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label86Click") Global $W1_T8_I_ExecuteAfterSteamBeforeStart = GUICtrlCreateInput("W1_T1_I_DIR", 129, 185, 376, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T8_I_ExecuteAfterSteamBeforeStartChange") Global $W1_T8_B_ExecuteAfterSteamBeforeStart = GUICtrlCreateButton("Select File", 509, 184, 95, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T8_B_ExecuteAfterSteamBeforeStartClick") Global $W1_T8_C_ExecuteAfterUpdate = GUICtrlCreateCheckbox("Execute when restarting for server update", 66, 235, 357, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T8_C_ExecuteAfterUpdateClick") Global $W1_T8_C_ExecuteAfterUpdateWait = GUICtrlCreateCheckbox("Wait for script to complete", 430, 235, 179, 16) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T8_C_ExecuteAfterUpdateWaitClick") Global $Label87 = GUICtrlCreateLabel("File to run", 67, 264, 61, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label87Click") Global $W1_T8_I_ExecuteAfterUpdate = GUICtrlCreateInput("W1_T1_I_DIR", 129, 258, 376, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T8_I_ExecuteAfterUpdateChange") Global $W1_T8_B_ExecuteAfterUpdate = GUICtrlCreateButton("Select File", 509, 257, 95, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T8_B_ExecuteAfterUpdateClick") Global $W1_T8_C_ExecuteAfterRestart = GUICtrlCreateCheckbox("Execute when restarting for daily server restart", 66, 315, 357, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T8_C_ExecuteAfterRestartClick") Global $W1_T8_C_ExecuteAfterRestartWait = GUICtrlCreateCheckbox("Wait for script to complete", 429, 312, 179, 16) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T8_C_ExecuteAfterRestartWaitClick") Global $Label88 = GUICtrlCreateLabel("File to run", 66, 341, 61, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label88Click") Global $W1_T8_I_ExecuteAfterRestart = GUICtrlCreateInput("W1_T1_I_DIR", 128, 335, 376, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T8_I_ExecuteAfterRestartChange") Global $W1_T8_B_ExecuteAfterRestart = GUICtrlCreateButton("Select File", 508, 334, 95, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T8_B_ExecuteAfterRestartClick") Global $W1_T8_C_ExecuteAFirstRestartAnnouncement = GUICtrlCreateCheckbox("Execute when first restart announcement is made", 64, 385, 357, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T8_C_ExecuteAFirstRestartAnnouncementClick") Global $W1_T8_C_ExecuteAFirstRestartAnnouncementWait = GUICtrlCreateCheckbox("Wait for script to complete", 428, 385, 179, 16) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T8_C_ExecuteAFirstRestartAnnouncementWaitClick") Global $Label89 = GUICtrlCreateLabel("File to run", 65, 414, 61, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label89Click") Global $W1_T8_I_ExecuteAFirstRestartAnnouncement = GUICtrlCreateInput("W1_T1_I_DIR", 127, 408, 376, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T8_I_ExecuteAFirstRestartAnnouncementChange") Global $W1_T8_B_ExecuteFirstRestartAnnouncement = GUICtrlCreateButton("Select File", 507, 407, 95, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T8_B_ExecuteFirstRestartAnnouncementClick") Global $W1_T8_C_ExecuteRemoteRestart = GUICtrlCreateCheckbox("Execute before restart for Remote Restart", 63, 452, 357, 17) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T8_C_ExecuteRemoteRestartClick") Global $W1_T8_C_ExecuteRemoteRestartWait = GUICtrlCreateCheckbox("Wait for script to complete", 427, 452, 179, 16) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetOnEvent(-1, "W1_T8_C_ExecuteRemoteRestartWaitClick") Global $Label90 = GUICtrlCreateLabel("File to run", 64, 481, 61, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label90Click") Global $W1_T8_I_ExecuteRemoteRestart = GUICtrlCreateInput("W1_T1_I_DIR", 126, 475, 376, 22) GUICtrlSetFont(-1, 8, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T8_I_ExecuteRemoteRestartChange") Global $W1_T8_B_ExecuteRemoteRestart = GUICtrlCreateButton("Select File", 506, 474, 95, 25) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T8_B_ExecuteRemoteRestartClick") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Pic5 = GUICtrlCreatePic("" & $aFolderTemp & "zombie3.jpg", 696, 117, 125, 353) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Pic5Click") Global $Tab9 = GUICtrlCreateTabItem("9 Future-Proof") Global $Group15 = GUICtrlCreateGroup("Future Proof", 26, 97, 849, 427) GUICtrlSetFont(-1, 10, 400, 0, "arial") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) Global $Label93 = GUICtrlCreateLabel("During updates, The Fun Pimps sometimes make changes to the ServerConfig.xml file, which can cause the server to fail to start when using the old config file." & @CRLF & " This section is a best-effort attempt to temporarily adjust to those changes during server updates to keep your server running." & @CRLF & " If automatic import enabled above, this utility will attempt two reboots. If The server fails to boot after the second reboot," & @CRLF & " it will backup of your existing serverconfig file (as listed in Game Server Configuration section)," & @CRLF & " copy the contents from the new ServerConfig.xml, import data from your existing config file, and add this data" & @CRLF & " to your serverconfig file (as listed above) at the end of the file." & @CRLF & "Therefore, after an update, it is recommended that you review your config file and make any changes." & @CRLF & "The following parameters will be imported:" & @CRLF & " ServerName, ServerPort, ServerPassword, TelnetPort, TelnetPassword, ServerLoginConfirmationText, ServerMaxPlayerCount, ServerDescription," & @CRLF & " ServerWebsiteURL, ServerDisabledNetworkProtocols, GameWorld, WorldGenSeed, WorldGenSize, GameName, GameDifficulty, " & @CRLF & " ServerLoginConfirmationText, DropOnDeath" & @CRLF & "", 40, 295, 800, 180) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label93Click") Global $W1_T9_C_EnableFutureProof = GUICtrlCreateCheckbox("Enable Future Proof", 48, 131, 149, 29) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T9_C_EnableFutureProofClick") Global $Label94 = GUICtrlCreateLabel("After a server update, if the server crashes three times in-a-row,", 52, 199, 374, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label94Click") Global $Label95 = GUICtrlCreateLabel("Future Proof will use the new default ServerConfig.xml and add your server's essential parameters.", 79, 220, 582, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label95Click") Global $Label96 = GUICtrlCreateLabel("This is useful when The Fun Pimps change the ServerConfig.xml ", 79, 242, 384, 20) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label96Click") Global $W1_T9_C_RenameModFolder = GUICtrlCreateCheckbox("Rename the Mod Folder (therefore saving and disabling it) if Future Proof was needed (3 consecutive failed starts after an update)", 64, 163, 787, 29) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T9_C_RenameModFolderClick") GUICtrlCreateGroup("", -99, -99, 1, 1) Global $Tab10 = GUICtrlCreateTabItem("10 FINISH / SAVE") Global $Pic7 = GUICtrlCreatePic("" & $aFolderTemp & "zombieGroup.jpg", 104, 337, 637, 197) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Pic7Click") Global $Label98 = GUICtrlCreateLabel("Click to restart the utility with your new settings.", 213, 125, 459, 29) GUICtrlSetFont(-1, 16, 800, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label98Click") Global $W1_T10_B_RestartUtil = GUICtrlCreateButton("RESTART Util", 293, 165, 115, 29) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF3E747) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T10_B_RestartUtilClick") Global $W1_T10_B_ExitNoRestart = GUICtrlCreateButton("Exit without Restarting Util or Server", 345, 233, 191, 25) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T10_B_ExitNoRestartClick") Global $Label99 = GUICtrlCreateLabel("(Warning! Some settings will not take effect until utility and/or server are restarted)", 201, 273, 479, 20, $SS_CENTER) GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif") GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "Label99Click") Global $W1_T10_B_RestartBoth = GUICtrlCreateButton("RESTART Util && SERVER", 427, 165, 179, 29) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xFF4A4A) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_T10_B_RestartBothClick") GUICtrlCreateTabItem("") Global $W1_B_RestartServerAndUtil = GUICtrlCreateButton("RESTART Util && SERVER", 584, 4, 179, 25) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xFF4A4A) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_B_RestartServerAndUtilClick") Global $W1_B_RestartUtil = GUICtrlCreateButton("RESTART Util", 467, 4, 115, 25) GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif") GUICtrlSetBkColor(-1, 0xF3E747) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_B_RestartUtilClick") Global $W1_B_Exit = GUICtrlCreateButton("Exit without Restarting", 765, 4, 131, 25) GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKTOP + $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT) GUICtrlSetOnEvent(-1, "W1_B_ExitClick") GUISetState(@SW_SHOW) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### _UpdateWindowConfig() If WinExists($wGUIMainWindow) Then Else If $tNewInstallTF Then LogWrite(" Default INI File Created . . Please Modify Default Values and Restart Program.") MsgBox(4096, "7DTDServerUpdateUtility", "Welcome to 7DTDServerUpdateUtility! Please modify desired values then choose RESTART Util in the last tab." & @CRLF & @CRLF & "Visit us on Discord: http://discord.gg/EU7pzPs") EndIf While $aConfigWindowClose = False Sleep(100) WEnd GUIDelete($Config) $aConfigWindowClose = False EndIf EndIf EndFunc Func _UpdateWindowConfig() GUICtrlSetData($W1_T1_I_BackupOutFolder, $aBackupOutputFolder) GUICtrlSetData($W1_T1_I_ConfigFile, $aConfigFile) GUICtrlSetData($W1_T1_I_DIR, $aServerDirLocal) GUICtrlSetData($W1_T1_I_IP, $aServerIP) If StringInStr($aBackupHours, "00") Then GUICtrlSetState($W1_T1_C_00, $GUI_CHECKED) If StringInStr($aBackupHours, "01") Then GUICtrlSetState($W1_T1_C_01, $GUI_CHECKED) If StringInStr($aBackupHours, "02") Then GUICtrlSetState($W1_T1_C_02, $GUI_CHECKED) If StringInStr($aBackupHours, "03") Then GUICtrlSetState($W1_T1_C_03, $GUI_CHECKED) If StringInStr($aBackupHours, "04") Then GUICtrlSetState($W1_T1_C_04, $GUI_CHECKED) If StringInStr($aBackupHours, "05") Then GUICtrlSetState($W1_T1_C_05, $GUI_CHECKED) If StringInStr($aBackupHours, "06") Then GUICtrlSetState($W1_T1_C_06, $GUI_CHECKED) If StringInStr($aBackupHours, "07") Then GUICtrlSetState($W1_T1_C_07, $GUI_CHECKED) If StringInStr($aBackupHours, "08") Then GUICtrlSetState($W1_T1_C_08, $GUI_CHECKED) If StringInStr($aBackupHours, "09") Then GUICtrlSetState($W1_T1_C_09, $GUI_CHECKED) If StringInStr($aBackupHours, "10") Then GUICtrlSetState($W1_T1_C_10, $GUI_CHECKED) If StringInStr($aBackupHours, "11") Then GUICtrlSetState($W1_T1_C_11, $GUI_CHECKED) If StringInStr($aBackupHours, "12") Then GUICtrlSetState($W1_T1_C_12, $GUI_CHECKED) If StringInStr($aBackupHours, "13") Then GUICtrlSetState($W1_T1_C_13, $GUI_CHECKED) If StringInStr($aBackupHours, "14") Then GUICtrlSetState($W1_T1_C_14, $GUI_CHECKED) If StringInStr($aBackupHours, "15") Then GUICtrlSetState($W1_T1_C_15, $GUI_CHECKED) If StringInStr($aBackupHours, "16") Then GUICtrlSetState($W1_T1_C_16, $GUI_CHECKED) If StringInStr($aBackupHours, "17") Then GUICtrlSetState($W1_T1_C_17, $GUI_CHECKED) If StringInStr($aBackupHours, "18") Then GUICtrlSetState($W1_T1_C_18, $GUI_CHECKED) If StringInStr($aBackupHours, "19") Then GUICtrlSetState($W1_T1_C_19, $GUI_CHECKED) If StringInStr($aBackupHours, "20") Then GUICtrlSetState($W1_T1_C_20, $GUI_CHECKED) If StringInStr($aBackupHours, "21") Then GUICtrlSetState($W1_T1_C_21, $GUI_CHECKED) If StringInStr($aBackupHours, "22") Then GUICtrlSetState($W1_T1_C_22, $GUI_CHECKED) If StringInStr($aBackupHours, "23") Then GUICtrlSetState($W1_T1_C_23, $GUI_CHECKED) If StringInStr($aBackupDays, "0") Then GUICtrlSetState($W1_T1_C_Daily, $GUI_CHECKED) GUICtrlSetState($W1_T1_C_Sun, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Mon, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Tues, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Wed, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Thurs, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Fri, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Sat, $GUI_CHECKED + $GUI_DISABLE) Else If StringInStr($aBackupDays, "1") Then GUICtrlSetState($W1_T1_C_Sun, $GUI_CHECKED + $GUI_ENABLE) If StringInStr($aBackupDays, "2") Then GUICtrlSetState($W1_T1_C_Mon, $GUI_CHECKED + $GUI_ENABLE) If StringInStr($aBackupDays, "3") Then GUICtrlSetState($W1_T1_C_Tues, $GUI_CHECKED + $GUI_ENABLE) If StringInStr($aBackupDays, "4") Then GUICtrlSetState($W1_T1_C_Wed, $GUI_CHECKED + $GUI_ENABLE) If StringInStr($aBackupDays, "5") Then GUICtrlSetState($W1_T1_C_Thurs, $GUI_CHECKED + $GUI_ENABLE) If StringInStr($aBackupDays, "6") Then GUICtrlSetState($W1_T1_C_Fri, $GUI_CHECKED + $GUI_ENABLE) If StringInStr($aBackupDays, "7") Then GUICtrlSetState($W1_T1_C_Sat, $GUI_CHECKED + $GUI_ENABLE) EndIf GUICtrlSetData($W1_T1_I_UpdateMinutes, $aUpdateCheckInterval) If $aUpdateSource = "0" Then GUICtrlSetState($W1_T1_R_UpdateViaSteamCMD, $GUI_CHECKED) If $aUpdateSource = "1" Then GUICtrlSetState($W1_T1_R_UpdateViaSteamDB, $GUI_CHECKED) GUICtrlSetData($W1_T1_I_BackupCm, $aBackupCommandLine) GUICtrlSetData($W1_T1_I_BackupCmd, $aBackupAddedFolders) GUICtrlSetData($W1_T1_I_BackupFullEvery, $aBackupFull) GUICtrlSetData($W1_T1_I_BackupMaxWaitSec, $aBackupTimeoutSec) GUICtrlSetData($W1_T1_I_BackupMin, $aBackupMin) GUICtrlSetData($W1_T1_I_BackupNumberToKeep, $aBackupNumberToKeep) If $aCheckForUpdate = "yes" Then GUICtrlSetState($W1_T1_C_ServerUpdateCheck, $GUI_CHECKED) Else GUICtrlSetState($W1_T1_C_ServerUpdateCheck, $GUI_CHECKED) EndIf GUICtrlSetData($W1_T1_I_SteamPassword, $aSteamCMDPassword) GUICtrlSetData($W1_T1_I_SteamUsername, $aSteamCMDUserName) If $aServerVer = "public" Then GUICtrlSetState($W1_T1_R_BranchPublic, $GUI_CHECKED) GUICtrlSetData($W1_T1_I_SteamBranch, "") ElseIf $aServerVer = "latest_experimental" Then GUICtrlSetState($W1_T1_R_BranchExperimental, $GUI_CHECKED) GUICtrlSetData($W1_T1_I_SteamBranch, "") Else GUICtrlSetState($W1_T1_R_BranchManual, $GUI_CHECKED) GUICtrlSetData($W1_T1_I_SteamBranch, $aServerVer) EndIf If $aValidate = "no" Then GUICtrlSetState($W1_T1_R_NOValidate, $GUI_CHECKED) Else GUICtrlSetState($W1_T1_R_Validate, $GUI_CHECKED) EndIf GUICtrlSetData($W1_T1_E_Commandline, $aSteamUpdateCommandline) GUICtrlSetData($W1_T2_I_RestartExcessiveMemoryAmt, $aExMemAmt) If $aExMemRestart = "yes" Then GUICtrlSetState($W1_T2_C_RestartExcessiveMemory, $GUI_CHECKED) Else GUICtrlSetState($W1_T2_C_RestartExcessiveMemory, $GUI_UNCHECKED) EndIf GUICtrlSetData($W1_T2_E_PauseForMapGeneration, $aWatchdogWaitServerUpdate) GUICtrlSetData($W1_T2_I_FailedResponses, $aWatchdogAttemptsBeforeRestart) GUICtrlSetData($W1_T2_I_PauseForStarted, $aWatchdogWaitServerStart) If $aTelnetStayConnectedYN = "yes" Then GUICtrlSetState($W1_T4_C_TelnetStayConnected, $GUI_CHECKED) Else GUICtrlSetState($W1_T4_C_TelnetStayConnected, $GUI_UNCHECKED) EndIf If $aTelnetMonitorAllYN = "yes" Then GUICtrlSetState($W1_T4_C_TelnetMonitorAll, $GUI_CHECKED) GUICtrlSetState($W1_T4_I_TelnetCheckEverySec, $GUI_ENABLE) GUICtrlSetState($W1_T4_C_TelnetStayConnected, $GUI_ENABLE) Else GUICtrlSetState($W1_T4_C_TelnetMonitorAll, $GUI_UNCHECKED) GUICtrlSetState($W1_T4_I_TelnetCheckEverySec, $GUI_DISABLE) GUICtrlSetState($W1_T4_C_TelnetStayConnected, $GUI_DISABLE) EndIf If $aQueryYN = "yes" Then GUICtrlSetState($W1_T2_C_UseQuery, $GUI_CHECKED) Else GUICtrlSetState($W1_T2_C_UseQuery, $GUI_UNCHECKED) EndIf If $aTelnetCheckYN = "yes" Then GUICtrlSetState($W1_T2_C_UseTelnet, $GUI_CHECKED) Else GUICtrlSetState($W1_T2_C_UseTelnet, $GUI_UNCHECKED) EndIf GUICtrlSetData($W1_T2_E_PauseForMapGeneration, $aWatchdogWaitServerUpdate) GUICtrlSetData($W1_T2_I_QueryCheckEvery, $aQueryCheckSec) GUICtrlSetData($W1_T2_I_QueryIP, $aQueryIP) GUICtrlSetData($W1_T2_I_TelnetCheckEvery, $aTelnetCheckSec) GUICtrlSetData($W1_T2_I_TelnetIP, $aTelnetIP) If StringInStr($bRestartHours, "00") Then GUICtrlSetState($W1_T3_C_00, $GUI_CHECKED) If StringInStr($bRestartHours, "01") Then GUICtrlSetState($W1_T3_C_01, $GUI_CHECKED) If StringInStr($bRestartHours, "02") Then GUICtrlSetState($W1_T3_C_02, $GUI_CHECKED) If StringInStr($bRestartHours, "03") Then GUICtrlSetState($W1_T3_C_03, $GUI_CHECKED) If StringInStr($bRestartHours, "04") Then GUICtrlSetState($W1_T3_C_04, $GUI_CHECKED) If StringInStr($bRestartHours, "05") Then GUICtrlSetState($W1_T3_C_05, $GUI_CHECKED) If StringInStr($bRestartHours, "06") Then GUICtrlSetState($W1_T3_C_06, $GUI_CHECKED) If StringInStr($bRestartHours, "07") Then GUICtrlSetState($W1_T3_C_07, $GUI_CHECKED) If StringInStr($bRestartHours, "08") Then GUICtrlSetState($W1_T3_C_08, $GUI_CHECKED) If StringInStr($bRestartHours, "09") Then GUICtrlSetState($W1_T3_C_09, $GUI_CHECKED) If StringInStr($bRestartHours, "10") Then GUICtrlSetState($W1_T3_C_10, $GUI_CHECKED) If StringInStr($bRestartHours, "11") Then GUICtrlSetState($W1_T3_C_11, $GUI_CHECKED) If StringInStr($bRestartHours, "12") Then GUICtrlSetState($W1_T3_C_12, $GUI_CHECKED) If StringInStr($bRestartHours, "13") Then GUICtrlSetState($W1_T3_C_13, $GUI_CHECKED) If StringInStr($bRestartHours, "14") Then GUICtrlSetState($W1_T3_C_14, $GUI_CHECKED) If StringInStr($bRestartHours, "15") Then GUICtrlSetState($W1_T3_C_15, $GUI_CHECKED) If StringInStr($bRestartHours, "16") Then GUICtrlSetState($W1_T3_C_16, $GUI_CHECKED) If StringInStr($bRestartHours, "17") Then GUICtrlSetState($W1_T3_C_17, $GUI_CHECKED) If StringInStr($bRestartHours, "18") Then GUICtrlSetState($W1_T3_C_18, $GUI_CHECKED) If StringInStr($bRestartHours, "19") Then GUICtrlSetState($W1_T3_C_19, $GUI_CHECKED) If StringInStr($bRestartHours, "20") Then GUICtrlSetState($W1_T3_C_20, $GUI_CHECKED) If StringInStr($bRestartHours, "21") Then GUICtrlSetState($W1_T3_C_21, $GUI_CHECKED) If StringInStr($bRestartHours, "22") Then GUICtrlSetState($W1_T3_C_22, $GUI_CHECKED) If StringInStr($bRestartHours, "23") Then GUICtrlSetState($W1_T3_C_23, $GUI_CHECKED) If StringInStr($aBackupDays, "0") Then GUICtrlSetState($W1_T3_C_Daily, $GUI_CHECKED) GUICtrlSetState($W1_T3_C_Sun, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Mon, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Tues, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Wed, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Thur, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Fri, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Sat, $GUI_CHECKED + $GUI_DISABLE) Else If StringInStr($aBackupDays, "1") Then GUICtrlSetState($W1_T3_C_Sun, $GUI_CHECKED + $GUI_ENABLE) If StringInStr($aBackupDays, "2") Then GUICtrlSetState($W1_T3_C_Mon, $GUI_CHECKED + $GUI_ENABLE) If StringInStr($aBackupDays, "3") Then GUICtrlSetState($W1_T3_C_Tues, $GUI_CHECKED + $GUI_ENABLE) If StringInStr($aBackupDays, "4") Then GUICtrlSetState($W1_T3_C_Wed, $GUI_CHECKED + $GUI_ENABLE) If StringInStr($aBackupDays, "5") Then GUICtrlSetState($W1_T3_C_Thur, $GUI_CHECKED + $GUI_ENABLE) If StringInStr($aBackupDays, "6") Then GUICtrlSetState($W1_T3_C_Fri, $GUI_CHECKED + $GUI_ENABLE) If StringInStr($aBackupDays, "7") Then GUICtrlSetState($W1_T3_C_Sat, $GUI_CHECKED + $GUI_ENABLE) EndIf If $aAppendVerEnd = "yes" Then GUICtrlSetState($W1_T3_C_AppendAfter, $GUI_CHECKED) Else GUICtrlSetState($W1_T3_C_AppendAfter, $GUI_UNCHECKED) EndIf If $aAppendVerBegin = "yes" Then GUICtrlSetState($W1_T3_C_AppendBefore, $GUI_CHECKED) Else GUICtrlSetState($W1_T3_C_AppendBefore, $GUI_UNCHECKED) EndIf If $aWipeServer = "yes" Then GUICtrlSetState($W1_T3_C_RenameGameSave, $GUI_CHECKED) Else GUICtrlSetState($W1_T3_C_RenameGameSave, $GUI_UNCHECKED) EndIf If $aRemoteRestartUse = "yes" Then GUICtrlSetState($W1_T3_C_EnableRemoteRestart, $GUI_CHECKED) Else GUICtrlSetState($W1_T3_C_EnableRemoteRestart, $GUI_UNCHECKED) EndIf If $aAppendVerShort = "long" Then GUICtrlSetState($W1_T3_R_AppendLong, $GUI_CHECKED) Else GUICtrlSetState($W1_T3_R_AppendShort, $GUI_CHECKED) EndIf GUICtrlSetData($W1_T3_I_RemoteRestartCode, $aRemoteRestartCode) GUICtrlSetData($W1_T3_I_RemoteRestartKey, $aRemoteRestartKey) GUICtrlSetData($W1_T3_I_RemoteRestartPort, $aRemoteRestartPort) GUICtrlSetData($W1_T3_I_RestartMinute, $bRestartMin) If $aBackupYN = "yes" Then GUICtrlSetState($W1_T1_C_Enable, $GUI_CHECKED) Else GUICtrlSetState($W1_T1_C_Enable, $GUI_UNCHECKED) EndIf If $aRestartDaily = "yes" Then GUICtrlSetState($W1_T3_C_EnableRestart, $GUI_CHECKED) Else GUICtrlSetState($W1_T3_C_EnableRestart, $GUI_UNCHECKED) EndIf If $sInGameAnnounce = "yes" Then GUICtrlSetState($W1_T4_C_AnnounceInGame, $GUI_CHECKED) Else GUICtrlSetState($W1_T4_C_AnnounceInGame, $GUI_UNCHECKED) EndIf If $aServerOnlinePlayerYN = "yes" Then GUICtrlSetState($W1_T4_C_LogOnlinePlayers, $GUI_CHECKED) Else GUICtrlSetState($W1_T4_C_LogOnlinePlayers, $GUI_UNCHECKED) EndIf Local $tArray = StringSplit($sAnnounceNotifyTime1, ",") If @error Then If $sAnnounceNotifyTime1 = "1" Then GUICtrlSetState($W1_T4_C_Daily01, $GUI_CHECKED) If $sAnnounceNotifyTime1 = "2" Then GUICtrlSetState($W1_T4_C_Daily02, $GUI_CHECKED) If $sAnnounceNotifyTime1 = "3" Then GUICtrlSetState($W1_T4_C_Daily03, $GUI_CHECKED) If $sAnnounceNotifyTime1 = "5" Then GUICtrlSetState($W1_T4_C_Daily05, $GUI_CHECKED) If $sAnnounceNotifyTime1 = "10" Then GUICtrlSetState($W1_T4_C_Daily10, $GUI_CHECKED) If $sAnnounceNotifyTime1 = "15" Then GUICtrlSetState($W1_T4_C_Daily15, $GUI_CHECKED) Else For $i = 1 To $tArray[0] If $tArray[$i] = "1" Then GUICtrlSetState($W1_T4_C_Daily01, $GUI_CHECKED) If $tArray[$i] = "2" Then GUICtrlSetState($W1_T4_C_Daily02, $GUI_CHECKED) If $tArray[$i] = "3" Then GUICtrlSetState($W1_T4_C_Daily03, $GUI_CHECKED) If $tArray[$i] = "5" Then GUICtrlSetState($W1_T4_C_Daily05, $GUI_CHECKED) If $tArray[$i] = "10" Then GUICtrlSetState($W1_T4_C_Daily10, $GUI_CHECKED) If $tArray[$i] = "15" Then GUICtrlSetState($W1_T4_C_Daily15, $GUI_CHECKED) Next EndIf Local $tArray = StringSplit($sAnnounceNotifyTime2, ",") If @error Then If $sAnnounceNotifyTime2 = "1" Then GUICtrlSetState($W1_T4_C_Update01, $GUI_CHECKED) If $sAnnounceNotifyTime2 = "2" Then GUICtrlSetState($W1_T4_C_Update02, $GUI_CHECKED) If $sAnnounceNotifyTime2 = "3" Then GUICtrlSetState($W1_T4_C_Update03, $GUI_CHECKED) If $sAnnounceNotifyTime2 = "5" Then GUICtrlSetState($W1_T4_C_Update05, $GUI_CHECKED) If $sAnnounceNotifyTime2 = "10" Then GUICtrlSetState($W1_T4_C_Update10, $GUI_CHECKED) If $sAnnounceNotifyTime2 = "15" Then GUICtrlSetState($W1_T4_C_Update15, $GUI_CHECKED) Else For $i = 1 To $tArray[0] If $tArray[$i] = "1" Then GUICtrlSetState($W1_T4_C_Update01, $GUI_CHECKED) If $tArray[$i] = "2" Then GUICtrlSetState($W1_T4_C_Update02, $GUI_CHECKED) If $tArray[$i] = "3" Then GUICtrlSetState($W1_T4_C_Update03, $GUI_CHECKED) If $tArray[$i] = "5" Then GUICtrlSetState($W1_T4_C_Update05, $GUI_CHECKED) If $tArray[$i] = "10" Then GUICtrlSetState($W1_T4_C_Update10, $GUI_CHECKED) If $tArray[$i] = "15" Then GUICtrlSetState($W1_T4_C_Update15, $GUI_CHECKED) Next EndIf Local $tArray = StringSplit($sAnnounceNotifyTime3, ",") If @error Then If $sAnnounceNotifyTime3 = "1" Then GUICtrlSetState($W1_T4_C_Remote01, $GUI_CHECKED) If $sAnnounceNotifyTime3 = "2" Then GUICtrlSetState($W1_T4_C_Remote02, $GUI_CHECKED) If $sAnnounceNotifyTime3 = "3" Then GUICtrlSetState($W1_T4_C_Remote03, $GUI_CHECKED) If $sAnnounceNotifyTime3 = "5" Then GUICtrlSetState($W1_T4_C_Remote05, $GUI_CHECKED) If $sAnnounceNotifyTime3 = "10" Then GUICtrlSetState($W1_T4_C_Remote10, $GUI_CHECKED) If $sAnnounceNotifyTime3 = "15" Then GUICtrlSetState($W1_T4_C_Remote15, $GUI_CHECKED) Else For $i = 1 To $tArray[0] If $tArray[$i] = "1" Then GUICtrlSetState($W1_T4_C_Remote01, $GUI_CHECKED) If $tArray[$i] = "2" Then GUICtrlSetState($W1_T4_C_Remote02, $GUI_CHECKED) If $tArray[$i] = "3" Then GUICtrlSetState($W1_T4_C_Remote03, $GUI_CHECKED) If $tArray[$i] = "5" Then GUICtrlSetState($W1_T4_C_Remote05, $GUI_CHECKED) If $tArray[$i] = "10" Then GUICtrlSetState($W1_T4_C_Remote10, $GUI_CHECKED) If $tArray[$i] = "15" Then GUICtrlSetState($W1_T4_C_Remote15, $GUI_CHECKED) Next EndIf GUICtrlSetData($W1_T4_I_UpdateMins, $sAnnounceNotifyTime2) GUICtrlSetData($W1_T4_I_UpdateRemote, $sAnnounceNotifyTime3) GUICtrlSetData($W1_T4_I_DailyMins, $sAnnounceNotifyTime1) GUICtrlSetData($W1_T4_I_AnnounceDaily, $sInGameDailyMessage) GUICtrlSetData($W1_T4_I_AnnounceRemote, $sInGameRemoteRestartMessage) GUICtrlSetData($W1_T4_I_AnnounceUpdate, $sInGameUpdateMessage) GUICtrlSetData($W1_T4_I_BackupStarted, $aBackupInGame) GUICtrlSetData($W1_T4_I_LogOnlinePlaySeconds, $aServerOnlinePlayerSec) GUICtrlSetData($W1_T4_I_TelnetCheckEverySec, $aTelnetTrafficCheckSec) If $aServerDiscord1TTSYN = "yes" Then GUICtrlSetState($W1_T5_C_D1TTS, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_D1TTS, $GUI_UNCHECKED) EndIf If $aServerDiscord2TTSYN = "yes" Then GUICtrlSetState($W1_T5_C_D2TTS, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_D2TTS, $GUI_UNCHECKED) EndIf If $aServerDiscord3TTSYN = "yes" Then GUICtrlSetState($W1_T5_C_D3TTS, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_D3TTS, $GUI_UNCHECKED) EndIf If $aServerDiscord4TTSYN = "yes" Then GUICtrlSetState($W1_T5_C_D4TTS, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_D4TTS, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelChat, "1") Then GUICtrlSetState($W1_T5_C_WHChat1, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHChat1, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelChat, "2") Then GUICtrlSetState($W1_T5_C_WHChat2, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHChat2, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelChat, "3") Then GUICtrlSetState($W1_T5_C_WHChat3, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHChat3, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelChat, "4") Then GUICtrlSetState($W1_T5_C_WHChat4, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHChat4, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelDie, "1") Then GUICtrlSetState($W1_T5_C_WHDie1, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHDie1, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelDie, "2") Then GUICtrlSetState($W1_T5_C_WHDie2, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHDie2, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelDie, "3") Then GUICtrlSetState($W1_T5_C_WHDie3, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHDie3, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelDie, "4") Then GUICtrlSetState($W1_T5_C_WHDie4, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHDie4, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelPlayers, "1") Then GUICtrlSetState($W1_T5_C_WHOnline1, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHOnline1, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelPlayers, "2") Then GUICtrlSetState($W1_T5_C_WHOnline2, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHOnline2, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelPlayers, "3") Then GUICtrlSetState($W1_T5_C_WHOnline3, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHOnline3, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelPlayers, "4") Then GUICtrlSetState($W1_T5_C_WHOnline4, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHOnline4, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelStatus, "1") Then GUICtrlSetState($W1_T5_C_WHRestart1, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHRestart1, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelStatus, "2") Then GUICtrlSetState($W1_T5_C_WHRestart2, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHRestart2, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelStatus, "3") Then GUICtrlSetState($W1_T5_C_WHRestart3, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHRestart3, $GUI_UNCHECKED) EndIf If StringInStr($aServerDiscordWHSelStatus, "4") Then GUICtrlSetState($W1_T5_C_WHRestart4, $GUI_CHECKED) Else GUICtrlSetState($W1_T5_C_WHRestart4, $GUI_UNCHECKED) EndIf GUICtrlSetData($W1_T5_I_D1Avatar, $aServerDiscord1Avatar) GUICtrlSetData($W1_T5_I_D2Avatar, $aServerDiscord2Avatar) GUICtrlSetData($W1_T5_I_D3Avatar, $aServerDiscord3Avatar) GUICtrlSetData($W1_T5_I_D4Avatar, $aServerDiscord4Avatar) GUICtrlSetData($W1_T5_I_D1Bot, $aServerDiscord1BotName) GUICtrlSetData($W1_T5_I_D2Bot, $aServerDiscord2BotName) GUICtrlSetData($W1_T5_I_D3Bot, $aServerDiscord3BotName) GUICtrlSetData($W1_T5_I_D4Bot, $aServerDiscord4BotName) GUICtrlSetData($W1_T5_I_D1URL, $aServerDiscord1URL) GUICtrlSetData($W1_T5_I_D2URL, $aServerDiscord2URL) GUICtrlSetData($W1_T5_I_D3URL, $aServerDiscord3URL) GUICtrlSetData($W1_T5_I_D4URL, $aServerDiscord4URL) If $sUseDiscordBotServersUpYN = "yes" Then GUICtrlSetState($W1_T6_C_BackOnline, $GUI_CHECKED) Else GUICtrlSetState($W1_T6_C_BackOnline, $GUI_UNCHECKED) EndIf If $aBackupSendDiscordYN = "yes" Then GUICtrlSetState($W1_T6_C_BackupStarted, $GUI_CHECKED) Else GUICtrlSetState($W1_T6_C_BackupStarted, $GUI_UNCHECKED) EndIf If $sUseDiscordBotDaily = "yes" Then GUICtrlSetState($W1_T6_C_Daily, $GUI_CHECKED) Else GUICtrlSetState($W1_T6_C_Daily, $GUI_UNCHECKED) EndIf If $sUseDiscordBotFirstAnnouncement = "yes" Then GUICtrlSetState($W1_T6_C_FirstAnnounceOnly, $GUI_CHECKED) Else GUICtrlSetState($W1_T6_C_FirstAnnounceOnly, $GUI_UNCHECKED) EndIf If $sUseDiscordBotPlayerChangeYN = "yes" Then GUICtrlSetState($W1_T6_C_PlayerChange, $GUI_CHECKED) Else GUICtrlSetState($W1_T6_C_PlayerChange, $GUI_UNCHECKED) EndIf If $sUseDiscordBotPlayerChatYN = "yes" Then GUICtrlSetState($W1_T6_C_PlayerChat, $GUI_CHECKED) Else GUICtrlSetState($W1_T6_C_PlayerChat, $GUI_UNCHECKED) EndIf If $sUseDiscordBotPlayerDiedYN = "yes" Then GUICtrlSetState($W1_T6_C_PlayerDie, $GUI_CHECKED) Else GUICtrlSetState($W1_T6_C_PlayerDie, $GUI_UNCHECKED) EndIf If $sUseDiscordBotRemoteRestart = "yes" Then GUICtrlSetState($W1_T6_C_Remote, $GUI_CHECKED) Else GUICtrlSetState($W1_T6_C_Remote, $GUI_UNCHECKED) EndIf If $sUseDiscordBotUpdate = "yes" Then GUICtrlSetState($W1_T6_C_Update, $GUI_CHECKED) Else GUICtrlSetState($W1_T6_C_Update, $GUI_UNCHECKED) EndIf GUICtrlSetData($W1_T6_I_BackupStarted, $aBackupDiscord) GUICtrlSetData($W1_T6_I_Daily, $sDiscordDailyMessage) GUICtrlSetData($W1_T6_I_PlayerChange, $sDiscordPlayersMsg) GUICtrlSetData($W1_T6_I_PlayerChat, $sDiscordPlayerChatMsg) GUICtrlSetData($W1_T6_I_PlayerDie, $sDiscordPlayerDiedMsg) GUICtrlSetData($W1_T6_I_Remote, $sDiscordRemoteRestartMessage) GUICtrlSetData($W1_T6_I_SubJoined, $sDiscordPlayerJoinMsg) GUICtrlSetData($W1_T6_I_SubLeft, $sDiscordPlayerLeftMsg) GUICtrlSetData($W1_T6_I_SubOnlinePlayer, $sDiscordPlayerOnlineMsg) GUICtrlSetData($W1_T6_I_Update, $sDiscordUpdateMessage) GUICtrlSetData($W1_T6_I_BackOnline, $sDiscordServersUpMessage) If $aBackupSendTwitchYN = "yes" Then GUICtrlSetState($W1_T7_C_BackupStarted, $GUI_CHECKED) Else GUICtrlSetState($W1_T7_C_BackupStarted, $GUI_UNCHECKED) EndIf If $sUseTwitchBotDaily = "yes" Then GUICtrlSetState($W1_T7_C_TwitchDaily, $GUI_CHECKED) Else GUICtrlSetState($W1_T7_C_TwitchDaily, $GUI_UNCHECKED) EndIf If $sUseTwitchFirstAnnouncement = "yes" Then GUICtrlSetState($W1_T7_C_TwitchFirstAnnounceOnly, $GUI_CHECKED) Else GUICtrlSetState($W1_T7_C_TwitchFirstAnnounceOnly, $GUI_UNCHECKED) EndIf If $sUseTwitchBotRemoteRestart = "yes" Then GUICtrlSetState($W1_T7_C_TwitchRemote, $GUI_CHECKED) Else GUICtrlSetState($W1_T7_C_TwitchRemote, $GUI_UNCHECKED) EndIf If $sUseTwitchBotUpdate = "yes" Then GUICtrlSetState($W1_T7_C_TwitchUpdate, $GUI_CHECKED) Else GUICtrlSetState($W1_T7_C_TwitchUpdate, $GUI_UNCHECKED) EndIf GUICtrlSetData($W1_T7_I_TwitchBackStarted, $aBackupTwitch) GUICtrlSetData($W1_T7_I_TwitchChannels, $sTwitchChannels) GUICtrlSetData($W1_T7_I_TwitchChatOAuth, $sChatOAuth) GUICtrlSetData($W1_T7_I_TwitchDaily, $sTwitchDailyMessage) GUICtrlSetData($W1_T7_I_TwitchNick, $sTwitchNick) GUICtrlSetData($W1_T7_I_TwitchRemote, $sTwitchRemoteRestartMessage) GUICtrlSetData($W1_T7_I_TwitchUpdate, $sTwitchUpdateMessage) If $aExternalScriptAnnounceYN = "yes" Then GUICtrlSetState($W1_T8_C_ExecuteAFirstRestartAnnouncement, $GUI_CHECKED) Else GUICtrlSetState($W1_T8_C_ExecuteAFirstRestartAnnouncement, $GUI_UNCHECKED) EndIf If $aExternalScriptAnnounceWait = "yes" Then GUICtrlSetState($W1_T8_C_ExecuteAFirstRestartAnnouncementWait, $GUI_CHECKED) Else GUICtrlSetState($W1_T8_C_ExecuteAFirstRestartAnnouncementWait, $GUI_UNCHECKED) EndIf If $aExternalScriptDailyYN = "yes" Then GUICtrlSetState($W1_T8_C_ExecuteAfterRestart, $GUI_CHECKED) Else GUICtrlSetState($W1_T8_C_ExecuteAfterRestart, $GUI_UNCHECKED) EndIf If $aExternalScriptDailyWait = "yes" Then GUICtrlSetState($W1_T8_C_ExecuteAfterRestartWait, $GUI_CHECKED) Else GUICtrlSetState($W1_T8_C_ExecuteAfterRestartWait, $GUI_UNCHECKED) EndIf If $aExecuteExternalScript = "yes" Then GUICtrlSetState($W1_T8_C_ExecuteBeforeSteamAndStart, $GUI_CHECKED) Else GUICtrlSetState($W1_T8_C_ExecuteBeforeSteamAndStart, $GUI_UNCHECKED) EndIf If $aExternalScriptWait = "yes" Then GUICtrlSetState($W1_T8_C_ExecuteBeforeSteamandStartWait, $GUI_CHECKED) Else GUICtrlSetState($W1_T8_C_ExecuteBeforeSteamandStartWait, $GUI_UNCHECKED) EndIf If $aExternalScriptValidateYN = "yes" Then GUICtrlSetState($W1_T8_C_ExecuteAfterSteamBeforeStart, $GUI_CHECKED) Else GUICtrlSetState($W1_T8_C_ExecuteAfterSteamBeforeStart, $GUI_UNCHECKED) EndIf If $aExternalScriptValidateWait = "yes" Then GUICtrlSetState($W1_T8_C_ExecuteAfterSteamBeforeStartWait, $GUI_CHECKED) Else GUICtrlSetState($W1_T8_C_ExecuteAfterSteamBeforeStartWait, $GUI_UNCHECKED) EndIf If $aExternalScriptUpdateYN = "yes" Then GUICtrlSetState($W1_T8_C_ExecuteAfterUpdate, $GUI_CHECKED) Else GUICtrlSetState($W1_T8_C_ExecuteAfterUpdate, $GUI_UNCHECKED) EndIf If $aExternalScriptUpdateWait = "yes" Then GUICtrlSetState($W1_T8_C_ExecuteAfterUpdateWait, $GUI_CHECKED) Else GUICtrlSetState($W1_T8_C_ExecuteAfterUpdateWait, $GUI_UNCHECKED) EndIf If $aExternalScriptRemoteYN = "yes" Then GUICtrlSetState($W1_T8_C_ExecuteRemoteRestart, $GUI_CHECKED) Else GUICtrlSetState($W1_T8_C_ExecuteRemoteRestart, $GUI_UNCHECKED) EndIf If $aExternalScriptRemoteWait = "yes" Then GUICtrlSetState($W1_T8_C_ExecuteRemoteRestartWait, $GUI_CHECKED) Else GUICtrlSetState($W1_T8_C_ExecuteRemoteRestartWait, $GUI_UNCHECKED) EndIf GUICtrlSetData($W1_T8_I_ExecuteAFirstRestartAnnouncement, $aExternalScriptAnnounceFile) GUICtrlSetData($W1_T8_I_ExecuteAfterRestart, $aExternalScriptDailyFile) GUICtrlSetData($W1_T8_I_ExecuteBeforeSteamandStart, $aExternalScriptFile) GUICtrlSetData($W1_T8_I_ExecuteAfterSteamBeforeStart, $aExternalScriptValidateFile) GUICtrlSetData($W1_T8_I_ExecuteAfterUpdate, $aExternalScriptUpdateFile) GUICtrlSetData($W1_T8_I_ExecuteRemoteRestart, $aExternalScriptRemoteFile) If $aFPAutoUpdateYN = "yes" Then GUICtrlSetState($W1_T9_C_EnableFutureProof, $GUI_CHECKED) Else GUICtrlSetState($W1_T9_C_EnableFutureProof, $GUI_UNCHECKED) EndIf If $aFPRenameModsYN = "yes" Then GUICtrlSetState($W1_T9_C_RenameModFolder, $GUI_CHECKED) Else GUICtrlSetState($W1_T9_C_RenameModFolder, $GUI_UNCHECKED) EndIf EndFunc Func W1_B_RestartServerAndUtilClick() W1_T10_B_RestartBothClick() EndFunc Func W1_B_RestartUtilClick() W1_T10_B_RestartUtilClick() EndFunc Func W1_B_ExitClick() W1_T10_B_ExitNoRestartClick() EndFunc Func _BackupTimeCB($tCID, $tTxt) If GUICtrlRead($tCID) = $GUI_CHECKED Then $aBackupHours = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Backup hours (comma separated 00-23 ex.04,16) ###", "00,06,12,18") $aBackupHours = _SortString($aBackupHours & "," & $tTxt, "D") Else $aBackupHours = _RemoveFromStringCommaSeparated($aBackupHours, $tTxt, "SD") EndIf If $aBackupHours = "" Then $aBackupHours = "00" IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Backup hours (comma separated 00-23 ex.04,16) ###", $aBackupHours) EndFunc Func _BackupDayCB($tCID, $tTxt) If GUICtrlRead($tCID) = $GUI_CHECKED Then $aBackupDays = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Backup days (comma separated 0-Everyday 1-Sunday 7-Saturday 0-7 ex.2,4,6) ###", "0") $aBackupDays = _SortString($aBackupDays & "," & $tTxt) Else $aBackupDays = _RemoveFromStringCommaSeparated($aBackupDays, $tTxt, "SND") EndIf IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Backup days (comma separated 0-Everyday 1-Sunday 7-Saturday 0-7 ex.2,4,6) ###", $aBackupDays) EndFunc Func ConfigClose() If WinExists($wGUIMainWindow) Then GUIDelete($Config) Else $aConfigWindowClose = True EndIf EndFunc Func ConfigTabWindowChange() EndFunc Func W1_T1_B_BackupOutFolderClick() Local $tCtrlID = $W1_T1_I_BackupOutFolder Local $tInput = FileSelectFolder("Please select Backup Output Folder", $aBackupOutputFolder, 7, @ScriptDir) If @error Then Local $tRead = GUICtrlRead($tCtrlID) GUICtrlSetData($tCtrlID, $tRead) Else GUICtrlSetData($tCtrlID, $tInput) EndIf $aBackupOutputFolder = GUICtrlRead($tCtrlID) $aBackupOutputFolder = RemoveInvalidCharacters($aBackupOutputFolder) $aBackupOutputFolder = RemoveTrailingSlash($aBackupOutputFolder) GUICtrlSetData($tCtrlID, $aBackupOutputFolder) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Output folder ###", $aBackupOutputFolder) EndFunc Func W1_T1_B_ResetCMDClick() _SteamCMDCreate() GUICtrlSetData($W1_T1_E_Commandline, $aSteamUpdateCommandline) EndFunc Func W1_T1_B_ConfigClick() Local $tCtrlID = $W1_T1_I_ConfigFile Local $tInput = FileOpenDialog("Please select config file", $aServerDirLocal, "XML File (*.xml)", 3, $aConfigFile) If @error Then Local $tRead = GUICtrlRead($tCtrlID) GUICtrlSetData($tCtrlID, $tRead) Else GUICtrlSetData($tCtrlID, $tInput) EndIf $aConfigFile = GUICtrlRead($tCtrlID) $aConfigFile = StringRegExpReplace($aConfigFile, "^.*\\", "") $aConfigFile = RemoveInvalidCharacters($aConfigFile) $aConfigFile = RemoveTrailingSlash($aConfigFile) GUICtrlSetData($tCtrlID, $aConfigFile) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", $aServerShort & " config ###", $aConfigFile) EndFunc Func W1_T1_B_DIRClick() Local $tCtrlID = $W1_T1_I_DIR Local $tFile = $aServerDirLocal Local $tInput = FileSelectFolder("Please select server foler", $tFile) If @error Then Local $tRead = GUICtrlRead($tCtrlID) GUICtrlSetData($tCtrlID, $tRead) Else GUICtrlSetData($tCtrlID, $tInput) EndIf $tFile = GUICtrlRead($tCtrlID) $tFile = RemoveInvalidCharacters($tFile) $tFile = RemoveTrailingSlash($tFile) GUICtrlSetData($tCtrlID, $tFile) $aServerDirLocal = $tFile IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", $aServerShort & " DIR ###", $aServerDirLocal) EndFunc Func W1_T1_B_ImportSettingsClick() _ImportServerConfig() _Splash("7DTD Config Import Updated.", 750) EndFunc Func W1_T1_C_00Click() _BackupTimeCB($W1_T1_C_00, "00") EndFunc Func W1_T1_C_01Click() _BackupTimeCB($W1_T1_C_01, "01") EndFunc Func W1_T1_C_02Click() _BackupTimeCB($W1_T1_C_02, "02") EndFunc Func W1_T1_C_03Click() _BackupTimeCB($W1_T1_C_03, "03") EndFunc Func W1_T1_C_04Click() _BackupTimeCB($W1_T1_C_04, "04") EndFunc Func W1_T1_C_05Click() _BackupTimeCB($W1_T1_C_05, "05") EndFunc Func W1_T1_C_06Click() _BackupTimeCB($W1_T1_C_06, "06") EndFunc Func W1_T1_C_07Click() _BackupTimeCB($W1_T1_C_07, "07") EndFunc Func W1_T1_C_08Click() _BackupTimeCB($W1_T1_C_08, "08") EndFunc Func W1_T1_C_09Click() _BackupTimeCB($W1_T1_C_09, "09") EndFunc Func W1_T1_C_10Click() _BackupTimeCB($W1_T1_C_10, "10") EndFunc Func W1_T1_C_11Click() _BackupTimeCB($W1_T1_C_11, "11") EndFunc Func W1_T1_C_12Click() _BackupTimeCB($W1_T1_C_12, "12") EndFunc Func W1_T1_C_13Click() _BackupTimeCB($W1_T1_C_13, "13") EndFunc Func W1_T1_C_14Click() _BackupTimeCB($W1_T1_C_14, "14") EndFunc Func W1_T1_C_15Click() _BackupTimeCB($W1_T1_C_15, "15") EndFunc Func W1_T1_C_16Click() _BackupTimeCB($W1_T1_C_16, "16") EndFunc Func W1_T1_C_17Click() _BackupTimeCB($W1_T1_C_17, "17") EndFunc Func W1_T1_C_18Click() _BackupTimeCB($W1_T1_C_18, "18") EndFunc Func W1_T1_C_19Click() _BackupTimeCB($W1_T1_C_19, "19") EndFunc Func W1_T1_C_20Click() _BackupTimeCB($W1_T1_C_20, "20") EndFunc Func W1_T1_C_21Click() _BackupTimeCB($W1_T1_C_21, "21") EndFunc Func W1_T1_C_22Click() _BackupTimeCB($W1_T1_C_22, "22") EndFunc Func W1_T1_C_23Click() _BackupTimeCB($W1_T1_C_23, "23") EndFunc Func W1_T1_C_DailyClick() If GUICtrlRead($W1_T1_C_Daily) = $GUI_CHECKED Then GUICtrlSetState($W1_T1_C_Sun, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Mon, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Tues, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Wed, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Thurs, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Fri, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Sat, $GUI_CHECKED + $GUI_DISABLE) $aBackupDays = "0" Else GUICtrlSetState($W1_T1_C_Sun, $GUI_CHECKED + $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Mon, $GUI_CHECKED + $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Tues, $GUI_CHECKED + $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Wed, $GUI_CHECKED + $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Thurs, $GUI_CHECKED + $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Fri, $GUI_CHECKED + $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Sat, $GUI_CHECKED + $GUI_ENABLE) $aBackupDays = "1,2,3,4,5,6,7" EndIf IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Backup days (comma separated 0-Everyday 1-Sunday 7-Saturday 0-7 ex.2,4,6) ###", $aBackupDays) EndFunc Func W1_T1_C_FriClick() _BackupDayCB($W1_T1_C_Fri, "6") EndFunc Func W1_T1_C_MonClick() _BackupDayCB($W1_T1_C_Mon, "2") EndFunc Func W1_T1_C_SatClick() _BackupDayCB($W1_T1_C_Sat, "7") EndFunc Func W1_T1_C_ServerUpdateCheckClick() If GUICtrlRead($W1_T1_C_ServerUpdateCheck) = $GUI_CHECKED Then $aCheckForUpdate = "yes" Else $aCheckForUpdate = "no" EndIf IniWrite($aIniFile, " --------------- CHECK FOR UPDATE --------------- ", "Check for server updates? (yes/no) ###", $aCheckForUpdate) EndFunc Func W1_T1_C_SunClick() _BackupDayCB($W1_T1_C_Sun, "1") EndFunc Func W1_T1_C_ThursClick() _BackupDayCB($W1_T1_C_Thurs, "5") EndFunc Func W1_T1_C_TuesClick() _BackupDayCB($W1_T1_C_Tues, "3") EndFunc Func W1_T1_C_WedClick() _BackupDayCB($W1_T1_C_Wed, "4") EndFunc Func W1_T1_C_EnableClick() If GUICtrlRead($W1_T1_C_Enable) = $GUI_CHECKED Then $aBackupYN = "yes" GUICtrlSetState($W1_T1_C_Daily, $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Sun, $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Mon, $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Tues, $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Wed, $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Thurs, $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Fri, $GUI_ENABLE) GUICtrlSetState($W1_T1_C_Sat, $GUI_ENABLE) Else $aBackupYN = "no" GUICtrlSetState($W1_T1_C_Daily, $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Sun, $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Mon, $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Tues, $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Wed, $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Thurs, $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Fri, $GUI_DISABLE) GUICtrlSetState($W1_T1_C_Sat, $GUI_DISABLE) EndIf IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Use scheduled backups? (yes/no) ###", $aBackupYN) EndFunc Func W1_T1_E_CommandlineChange() $aSteamUpdateCommandline = GUICtrlRead($W1_T1_E_Commandline) _SteamCMDCommandlineWrite() EndFunc Func W1_T1_I_BackupCmChange() $aBackupCommandLine = GUICtrlRead($W1_T1_I_BackupCm) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "7zip backup additional command line parameters (Default: a -spf -r -tzip -ssw) ###", $aBackupCommandLine) EndFunc Func W1_T1_I_BackupCmdChange() $aBackupAddedFolders = GUICtrlRead($W1_T1_I_BackupCmd) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Additional backup folders / files (comma separated. Folders add \ at end. ex. C:\7DTD\,D:\7DTD Server\) ###", $aBackupAddedFolders) EndFunc Func W1_T1_I_BackupFullEveryChange() $aBackupFull = GUICtrlRead($W1_T1_I_BackupFullEvery) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Full " & $aGameName1 & " and Util folder backup every __ backups (0 to disable)(0-99) ###", $aBackupFull) EndFunc Func W1_T1_I_BackupMaxWaitSecChange() $aBackupTimeoutSec = GUICtrlRead($W1_T1_I_BackupMaxWaitSec) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Max time in seconds to wait for backup to complete (30-999) ###", $aBackupTimeoutSec) EndFunc Func W1_T1_I_BackupMinChange() $aBackupMin = GUICtrlRead($W1_T1_I_BackupMin) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Backup minute (00-59) ###", $aBackupMin) EndFunc Func W1_T1_I_BackupNumberToKeepChange() $aBackupNumberToKeep = GUICtrlRead($W1_T1_I_BackupNumberToKeep) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Number of backups to keep (1-999) ###", $aBackupNumberToKeep) EndFunc Func W1_T1_I_BackupOutFolderChange() Local $tCtrlID = $W1_T1_I_BackupOutFolder $aBackupOutputFolder = GUICtrlRead($tCtrlID) $aBackupOutputFolder = RemoveInvalidCharacters($aBackupOutputFolder) $aBackupOutputFolder = RemoveTrailingSlash($aBackupOutputFolder) GUICtrlSetData($tCtrlID, $aBackupOutputFolder) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Output folder ###", $aBackupOutputFolder) EndFunc Func W1_T1_I_ConfigFileChange() Local $tCtrlID = $W1_T1_I_ConfigFile $aConfigFile = GUICtrlRead($tCtrlID) $aConfigFile = FileGetShortName($aConfigFile) $aConfigFile = RemoveInvalidCharacters($aConfigFile) $aConfigFile = RemoveTrailingSlash($aConfigFile) GUICtrlSetData($tCtrlID, $aConfigFile) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", $aServerShort & " config ###", $aConfigFile) EndFunc Func W1_T1_I_DIRChange() Local $tCtrlID = $W1_T1_I_DIR Local $tFile = $aServerDirLocal $tFile = GUICtrlRead($tCtrlID) $tFile = RemoveInvalidCharacters($tFile) $tFile = RemoveTrailingSlash($tFile) GUICtrlSetData($tCtrlID, $tFile) $aServerDirLocal = $tFile IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", $aServerShort & " DIR ###", $aServerDirLocal) EndFunc Func W1_T1_I_IPChange() Local $tCtrlID = $W1_T1_I_IP $tMsg = InputBox($aUtilName, "Local IP:", "Enter local IP", $tCtrlID, 400, 125, Default, Default, 360) GUICtrlSetData($tCtrlID, $tMsg) $aServerIP = $tFile IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Server Local IP (ex. 192.168.1.10) ###", $aServerIP) EndFunc Func W1_T1_B_OpenServerConfigClick() ShellExecute($aServerDirLocal & "\" & $aConfigFile) EndFunc Func W1_T1_I_SteamBranchChange() $aServerVer = GUICtrlRead($W1_T1_I_SteamBranch) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Version (ex. public/latest_experimental/alpha18.4) ###", $aServerVer) EndFunc Func W1_T1_I_SteamPasswordChange() $aSteamCMDPassword = GUICtrlRead($W1_T1_I_SteamPassword) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD Password (optional) ###", $aSteamCMDPassword) _SteamCMDCreate() _SteamCMDCommandlineWrite() GUICtrlSetData($W1_T1_E_Commandline, $aSteamUpdateCommandline) EndFunc Func W1_T1_I_SteamUsernameChange() $aSteamCMDUserName = GUICtrlRead($W1_T1_I_SteamUsername) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "SteamCMD Username (optional) ###", $aSteamCMDUserName) _SteamCMDCreate() _SteamCMDCommandlineWrite() GUICtrlSetData($W1_T1_E_Commandline, $aSteamUpdateCommandline) EndFunc Func W1_T1_I_UpdateMinutesChange() $aUpdateCheckInterval = GUICtrlRead($W1_T1_I_UpdateMinutes) IniWrite($aIniFile, " --------------- CHECK FOR UPDATE --------------- ", "Update check interval in Minutes (05-59) ###", $aUpdateCheckInterval) EndFunc Func W1_T1_R_BranchExperimentalClick() $aServerVer = "latest_experimental" IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Version (ex. public/latest_experimental/alpha18.4) ###", $aServerVer) EndFunc Func W1_T1_R_BranchManualClick() $aServerVer = GUICtrlRead($W1_T1_I_SteamBranch) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Version (ex. public/latest_experimental/alpha18.4) ###", $aServerVer) EndFunc Func W1_T1_R_BranchPublicClick() $aServerVer = "public" IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Version (ex. public/latest_experimental/alpha18.4) ###", $aServerVer) EndFunc Func W1_T1_R_NOValidateClick() $aValidate = "no" IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Validate files with SteamCMD update? (yes/no) ###", $aValidate) EndFunc Func W1_T1_R_UpdateViaSteamCMDClick() $aUpdateSource = "0" IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "For update checks, use (0)SteamCMD or (1)SteamDB.com ###", $aUpdateSource) EndFunc Func W1_T1_R_UpdateViaSteamDBClick() $aUpdateSource = "1" IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "For update checks, use (0)SteamCMD or (1)SteamDB.com ###", $aUpdateSource) EndFunc Func W1_T1_R_ValidateClick() $aValidate = "yes" IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Validate files with SteamCMD update? (yes/no) ###", $aValidate) EndFunc Func W1_T1_U_BackupFullEveryChange() EndFunc Func W1_T1_U_BackupMaxSecToWaitChange() EndFunc Func W1_T1_U_BackupMinuteChange() EndFunc Func W1_T1_U_BackupNumberToKeepChange() EndFunc Func W1_T1_U_UpdateMinutesChange() EndFunc Func W1_T10_B_ExitNoRestartClick() ConfigClose() EndFunc Func W1_T10_B_RestartUtilClick() ConfigClose() _RestartUtil() EndFunc Func W1_T10_B_RestartBothClick() ConfigClose() TrayRestartNow() _RestartUtil() EndFunc Func W1_T2_C_RestartExcessiveMemoryClick() If GUICtrlRead($W1_T2_C_RestartExcessiveMemory) = $GUI_CHECKED Then $aExMemRestart = "yes" Else $aExMemRestart = "no" EndIf IniWrite($aIniFile, " --------------- RESTART ON EXCESSIVE MEMORY USE --------------- ", "Restart on excessive memory use? (yes/no) ###", $aExMemRestart) EndFunc Func W1_T2_C_UseQueryClick() If GUICtrlRead($W1_T2_C_UseQuery) = $GUI_CHECKED Then $aQueryYN = "yes" Else $aQueryYN = "no" EndIf IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG --------------- ", "Use Query Port to check if server is alive? (yes/no) ###", $aQueryYN) EndFunc Func W1_T2_C_UseTelnetClick() If GUICtrlRead($W1_T2_C_UseTelnet) = $GUI_CHECKED Then $aTelnetCheckYN = "yes" Else $aTelnetCheckYN = "no" EndIf IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Use telnet to check if server is alive? (yes/no) ###", $aTelnetCheckYN) EndFunc Func W1_T2_E_PauseForMapGenerationChange() $aWatchdogWaitServerUpdate = GUICtrlRead($W1_T2_E_PauseForMapGeneration) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Pause watchdog for _ minutes after server updated to allow map generation (1-360) ###", $aWatchdogWaitServerUpdate) EndFunc Func W1_T2_I_FailedResponsesChange() $aWatchdogAttemptsBeforeRestart = GUICtrlRead($W1_T2_I_FailedResponses) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG --------------- ", "Number of failed responses (after server has responded at least once) before restarting server (1-10) (Default is 3) ###", $aWatchdogAttemptsBeforeRestart) EndFunc Func W1_T2_I_PauseForStartedChange() $aWatchdogWaitServerStart = GUICtrlRead($W1_T2_I_PauseForStarted) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Pause watchdog for _ minutes after server started to allow server to come online (1-60) ###", $aWatchdogWaitServerStart) EndFunc Func W1_T2_I_QueryCheckEveryChange() $aQueryCheckSec = GUICtrlRead($W1_T2_I_QueryCheckEvery) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG --------------- ", "Query Port check interval in seconds (30-900) ###", $aQueryCheckSec) EndFunc Func W1_T2_I_QueryIPChange() $aQueryIP = GUICtrlRead($W1_T2_I_QueryIP) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG --------------- ", "Query IP (ex. 127.0.0.1 - Leave BLANK for server IP) ###", $aQueryIP) EndFunc Func W1_T2_I_RestartExcessiveMemoryAmtChange() $aExMemAmt = GUICtrlRead($W1_T2_I_RestartExcessiveMemoryAmt) IniWrite($aIniFile, " --------------- RESTART ON EXCESSIVE MEMORY USE --------------- ", "Excessive memory amount? ###", $aExMemAmt) EndFunc Func W1_T2_I_TelnetCheckEveryChange() $aTelnetCheckSec = GUICtrlRead($W1_T2_I_TelnetCheckEvery) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Telnet check interval in seconds (30-900) ###", $aTelnetCheckSec) EndFunc Func W1_T2_I_TelnetIPChange() $aTelnetIP = GUICtrlRead($W1_T2_I_TelnetIP) IniWrite($aIniFile, " --------------- KEEP ALIVE WATCHDOG ---------------", "Telnet IP (ex. 127.0.0.1 - Leave BLANK for server IP) ###", $aTelnetIP) EndFunc Func W1_T2_U_FailedResponseChange() EndFunc Func W1_T2_U_PauseForStartedChange() EndFunc Func W1_T2_U_PauseForUpdateChange() EndFunc Func W1_T2_U_QueryCheckChange() EndFunc Func W1_T2_U_TelnetCheckChange() EndFunc Func _RestartTimeCB($tCID, $tTxt) If GUICtrlRead($tCID) = $GUI_CHECKED Then $bRestartHours = IniRead($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Restart hours (comma separated 00-23 ex.04,16) ###", "04,16") $bRestartHours = _SortString($bRestartHours & "," & $tTxt, "D") Else $bRestartHours = _RemoveFromStringCommaSeparated($bRestartHours, $tTxt, "SD") EndIf If $bRestartHours = "" Then $bRestartHours = "00" IniWrite($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Restart hours (comma separated 00-23 ex.04,16) ###", $bRestartHours) EndFunc Func W1_T3_C_00Click() _RestartTimeCB($W1_T3_C_00, "00") EndFunc Func W1_T3_C_01Click() _RestartTimeCB($W1_T3_C_01, "01") EndFunc Func W1_T3_C_02Click() _RestartTimeCB($W1_T3_C_02, "02") EndFunc Func W1_T3_C_03Click() _RestartTimeCB($W1_T3_C_03, "03") EndFunc Func W1_T3_C_04Click() _RestartTimeCB($W1_T3_C_04, "04") EndFunc Func W1_T3_C_05Click() _RestartTimeCB($W1_T3_C_05, "05") EndFunc Func W1_T3_C_06Click() _RestartTimeCB($W1_T3_C_06, "06") EndFunc Func W1_T3_C_07Click() _RestartTimeCB($W1_T3_C_07, "07") EndFunc Func W1_T3_C_08Click() _RestartTimeCB($W1_T3_C_08, "08") EndFunc Func W1_T3_C_09Click() _RestartTimeCB($W1_T3_C_09, "09") EndFunc Func W1_T3_C_10Click() _RestartTimeCB($W1_T3_C_10, "10") EndFunc Func W1_T3_C_11Click() _RestartTimeCB($W1_T3_C_11, "11") EndFunc Func W1_T3_C_12Click() _RestartTimeCB($W1_T3_C_12, "12") EndFunc Func W1_T3_C_13Click() _RestartTimeCB($W1_T3_C_13, "13") EndFunc Func W1_T3_C_14Click() _RestartTimeCB($W1_T3_C_14, "14") EndFunc Func W1_T3_C_15Click() _RestartTimeCB($W1_T3_C_15, "15") EndFunc Func W1_T3_C_16Click() _RestartTimeCB($W1_T3_C_16, "16") EndFunc Func W1_T3_C_17Click() _RestartTimeCB($W1_T3_C_17, "17") EndFunc Func W1_T3_C_18Click() _RestartTimeCB($W1_T3_C_18, "18") EndFunc Func W1_T3_C_19Click() _RestartTimeCB($W1_T3_C_19, "19") EndFunc Func W1_T3_C_20Click() _RestartTimeCB($W1_T3_C_20, "20") EndFunc Func W1_T3_C_21Click() _RestartTimeCB($W1_T3_C_21, "21") EndFunc Func W1_T3_C_22Click() _RestartTimeCB($W1_T3_C_22, "22") EndFunc Func W1_T3_C_23Click() _RestartTimeCB($W1_T3_C_23, "23") EndFunc Func W1_T3_C_AppendAfterClick() If GUICtrlRead($W1_T3_C_AppendAfter) = $GUI_CHECKED Then $aAppendVerEnd = "yes" Else $aAppendVerEnd = "no" EndIf IniWrite($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Append Server Version (ex. Alpha 16.4 (b8)) at END of Server Name? (yes/no) ###", $aAppendVerEnd) EndFunc Func W1_T3_C_AppendBeforeClick() If GUICtrlRead($W1_T3_C_AppendBefore) = $GUI_CHECKED Then $aAppendVerBegin = "yes" Else $aAppendVerBegin = "no" EndIf IniWrite($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Append Server Version (ex. Alpha 16.4 (b8)) at BEGINNING of Server Name? (yes/no) ###", $aAppendVerBegin) EndFunc Func W1_T3_C_DailyClick() If GUICtrlRead($W1_T3_C_Daily) = $GUI_CHECKED Then GUICtrlSetState($W1_T3_C_Sun, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Mon, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Tues, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Wed, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Thur, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Fri, $GUI_CHECKED + $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Sat, $GUI_CHECKED + $GUI_DISABLE) $aRestartDays = "0" Else GUICtrlSetState($W1_T3_C_Sun, $GUI_CHECKED + $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Mon, $GUI_CHECKED + $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Tues, $GUI_CHECKED + $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Wed, $GUI_CHECKED + $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Thur, $GUI_CHECKED + $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Fri, $GUI_CHECKED + $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Sat, $GUI_CHECKED + $GUI_ENABLE) $aRestartDays = "1,2,3,4,5,6,7" EndIf IniWrite($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Restart days (comma separated 0-Everyday 1-Sunday 7-Saturday 0-7 ex.2,4,6) ###", $aRestartDays) EndFunc Func _RestartDayCB($tCID, $tTxt) If GUICtrlRead($tCID) = $GUI_CHECKED Then $aRestartDays = IniRead($aIniFile, " --------------- BACKUP --------------- ", "Backup days (comma separated 0-Everyday 1-Sunday 7-Saturday 0-7 ex.2,4,6) ###", "0") $aRestartDays = _SortString($aRestartDays & "," & $tTxt) Else $aRestartDays = _RemoveFromStringCommaSeparated($aRestartDays, $tTxt, "SND") EndIf IniWrite($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Restart days (comma separated 0-Everyday 1-Sunday 7-Saturday 0-7 ex.2,4,6) ###", $aRestartDays) EndFunc Func W1_T3_C_FriClick() _RestartDayCB($W1_T3_C_Fri, "6") EndFunc Func W1_T3_C_MonClick() _RestartDayCB($W1_T3_C_Mon, "2") EndFunc Func W1_T3_C_SatClick() _RestartDayCB($W1_T3_C_Sat, "7") EndFunc Func W1_T3_C_SunClick() _RestartDayCB($W1_T3_C_Sun, "1") EndFunc Func W1_T3_C_ThursClick() _RestartDayCB($W1_T3_C_Thur, "5") EndFunc Func W1_T3_C_TuesClick() _RestartDayCB($W1_T3_C_Tues, "3") EndFunc Func W1_T3_C_WedClick() _RestartDayCB($W1_T3_C_Wed, "4") EndFunc Func W1_T3_C_EnableRemoteRestartClick() If GUICtrlRead($W1_T3_C_EnableRemoteRestart) = $GUI_CHECKED Then $aRemoteRestartUse = "yes" IniWrite($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Use Remote Restart? (yes/no) ###", $aRemoteRestartUse) _StartRemoteRestart() Else $aRemoteRestartUse = "no" IniWrite($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Use Remote Restart? (yes/no) ###", $aRemoteRestartUse) EndIf EndFunc Func W1_T3_C_EnableRestartClick() If GUICtrlRead($W1_T3_C_EnableRestart) = $GUI_CHECKED Then $aRestartDaily = "yes" GUICtrlSetState($W1_T3_C_Daily, $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Sun, $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Mon, $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Tues, $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Wed, $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Thur, $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Fri, $GUI_ENABLE) GUICtrlSetState($W1_T3_C_Sat, $GUI_ENABLE) Else $aRestartDaily = "no" GUICtrlSetState($W1_T3_C_Daily, $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Sun, $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Mon, $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Tues, $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Wed, $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Thur, $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Fri, $GUI_DISABLE) GUICtrlSetState($W1_T3_C_Sat, $GUI_DISABLE) EndIf IniWrite($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Use scheduled restarts? (yes/no) ###", $aRestartDaily) EndFunc Func W1_T3_C_RenameGameSaveClick() If GUICtrlRead($W1_T3_C_RenameGameSave) = $GUI_CHECKED Then $aWipeServer = "yes" Else $aWipeServer = "no" EndIf IniWrite($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Rename GameSave with updates causing a SERVER WIPE (while retaining old save files) ###", $aWipeServer) EndFunc Func W1_T3_I_RemoteRestartCodeChange() $aRemoteRestartCode = GUICtrlRead($W1_T3_I_RemoteRestartCode) IniWrite($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Restart Code ###", $aRemoteRestartCode) EndFunc Func W1_T3_I_RemoteRestartKeyChange() $aRemoteRestartKey = GUICtrlRead($W1_T3_I_RemoteRestartKey) IniWrite($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Restart Key ###", $aRemoteRestartKey) EndFunc Func W1_T3_I_RemoteRestartPortChange() $aRemoteRestartPort = GUICtrlRead($W1_T3_I_RemoteRestartPort) IniWrite($aIniFile, " --------------- REMOTE RESTART OPTIONS --------------- ", "Restart Port ###", $aRemoteRestartPort) EndFunc Func W1_T3_I_RestartMinuteChange() $bRestartMin = GUICtrlRead($W1_T3_I_RestartMinute) IniWrite($aIniFile, " --------------- SCHEDULED RESTARTS --------------- ", "Restart minute (00-59) ###", $bRestartMin) EndFunc Func W1_T3_R_AppendLongClick() If GUICtrlRead($W1_T3_R_AppendLong) = $GUI_CHECKED Then $aAppendVerShort = "long" Else $aAppendVerShort = "short" EndIf IniWrite($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Use SHORT name (B9) or LONG (Alpha 17.1 (B9))? (short/long) ###", $aAppendVerShort) EndFunc Func W1_T3_R_AppendShortClick() If GUICtrlRead($W1_T3_R_AppendShort) = $GUI_CHECKED Then $aAppendVerShort = "short" Else $aAppendVerShort = "long" EndIf IniWrite($aIniFile, " --------------- APPEND SERVER VERSION TO NAME --------------- ", "Use SHORT name (B9) or LONG (Alpha 17.1 (B9))? (short/long) ###", $aAppendVerShort) EndFunc Func W1_T3_U_RestartMinuteChange() EndFunc Func W1_T4_C_AnnounceInGameClick() If GUICtrlRead($W1_T4_C_AnnounceInGame) = $GUI_CHECKED Then $sInGameAnnounce = "yes" Else $sInGameAnnounce = "no" EndIf IniWrite($aIniFile, " --------------- IN-GAME ANNOUNCEMENT CONFIGURATION --------------- ", "Announce messages in-game? (Requires telnet) (yes/no) ###", $sInGameAnnounce) EndFunc Func _AnnounceDailyCB($tCID, $tTxt) If GUICtrlRead($tCID) = $GUI_CHECKED Then $sAnnounceNotifyTime1 = IniRead($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before DAILY reboot (comma separated 0-60) ###", "1,3,5,10") $sAnnounceNotifyTime1 = _SortString($sAnnounceNotifyTime1 & "," & $tTxt) Else $sAnnounceNotifyTime1 = _RemoveFromStringCommaSeparated($sAnnounceNotifyTime1, $tTxt, "0SND") EndIf GUICtrlSetData($W1_T4_I_DailyMins, $sAnnounceNotifyTime1) IniWrite($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before DAILY reboot (comma separated 0-60) ###", $sAnnounceNotifyTime1) EndFunc Func W1_T4_C_Daily01Click() _AnnounceDailyCB($W1_T4_C_Daily01, "1") EndFunc Func W1_T4_C_Daily02Click() _AnnounceDailyCB($W1_T4_C_Daily02, "2") EndFunc Func W1_T4_C_Daily03Click() _AnnounceDailyCB($W1_T4_C_Daily03, "3") EndFunc Func W1_T4_C_Daily05Click() _AnnounceDailyCB($W1_T4_C_Daily05, "5") EndFunc Func W1_T4_C_Daily10Click() _AnnounceDailyCB($W1_T4_C_Daily10, "10") EndFunc Func W1_T4_C_Daily15Click() _AnnounceDailyCB($W1_T4_C_Daily15, "15") EndFunc Func W1_T4_C_LogOnlinePlayersClick() If GUICtrlRead($W1_T4_C_LogOnlinePlayers) = $GUI_CHECKED Then $aServerOnlinePlayerYN = "yes" Else $aServerOnlinePlayerYN = "no" EndIf IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Check for, and log, online players? (yes/no) ###", $aServerOnlinePlayerYN) EndFunc Func _AnnounceRemoteCB($tCID, $tTxt) If GUICtrlRead($tCID) = $GUI_CHECKED Then $sAnnounceNotifyTime3 = IniRead($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before REMOTE RESTART reboot (comma separated 0-60) ###", "1,3,5,10") $sAnnounceNotifyTime3 = _SortString($sAnnounceNotifyTime3 & "," & $tTxt) Else $sAnnounceNotifyTime3 = _RemoveFromStringCommaSeparated($sAnnounceNotifyTime3, $tTxt, "0SND") EndIf GUICtrlSetData($W1_T4_I_UpdateRemote, $sAnnounceNotifyTime3) IniWrite($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before REMOTE RESTART reboot (comma separated 0-60) ###", $sAnnounceNotifyTime3) EndFunc Func W1_T4_C_Remote01Click() _AnnounceRemoteCB($W1_T4_C_Remote01, "1") EndFunc Func W1_T4_C_Remote02Click() _AnnounceRemoteCB($W1_T4_C_Remote02, "2") EndFunc Func W1_T4_C_Remote03Click() _AnnounceRemoteCB($W1_T4_C_Remote03, "3") EndFunc Func W1_T4_C_Remote05Click() _AnnounceRemoteCB($W1_T4_C_Remote05, "5") EndFunc Func W1_T4_C_Remote10Click() _AnnounceRemoteCB($W1_T4_C_Remote10, "10") EndFunc Func W1_T4_C_Remote15Click() _AnnounceRemoteCB($W1_T4_C_Remote15, "15") EndFunc Func _AnnounceUpdateCB($tCID, $tTxt) If GUICtrlRead($tCID) = $GUI_CHECKED Then $sAnnounceNotifyTime2 = IniRead($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before UPDATES reboot (comma separated 0-60) ###", "1,3,5,10") $sAnnounceNotifyTime2 = _SortString($sAnnounceNotifyTime2 & "," & $tTxt) Else $sAnnounceNotifyTime2 = _RemoveFromStringCommaSeparated($sAnnounceNotifyTime2, $tTxt, "0SND") EndIf GUICtrlSetData($W1_T4_I_UpdateMins, $sAnnounceNotifyTime2) IniWrite($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before UPDATES reboot (comma separated 0-60) ###", $sAnnounceNotifyTime2) EndFunc Func _RemoveFromStringCommaSeparated($tString, $tRemove, $tOpt = "SND") Local $tArray5 = StringSplit($tString, ",", 2) $tArray5 = _ArrayUnique($tArray5, 0, 0, 0, 0) For $i8 = 0 To (UBound($tArray5) - 1) If $tArray5[$i8] = $tRemove Then _ArrayDelete($tArray5, $i8) ExitLoop EndIf Next $tString = _ArrayToString($tArray5, ",") If StringInStr($tOpt, "0") Then If StringLeft($tString, 2) = "0," Then $tString = StringTrimLeft($tString, 2) If $tString = 0 Or $tString = "0" Then $tString = "1" EndIf If StringInStr($tOpt, "S") Then $tString = _SortString($tString, $tOpt) Return $tString EndFunc Func _SortString($tString, $tOpt = "ND") Local $tArray4 = StringSplit($tString, ",", 2) If StringInStr($tOpt, "N") Then For $t2 = 0 To (UBound($tArray4) - 1) $tArray4[$t2] = Number($tArray4[$t2]) Next EndIf _ArraySort($tArray4) If StringInStr($tOpt, "D") Then $tArray4 = _ArrayUnique($tArray4, 0, 0, 0, 0) $tString = _ArrayToString($tArray4, ",") If StringLeft($tString, 2) = "0," Then $tString = StringTrimLeft($tString, 2) Return $tString EndFunc Func W1_T4_C_TelnetStayConnectedClick() If GUICtrlRead($W1_T4_C_TelnetStayConnected) = $GUI_CHECKED Then $aTelnetStayConnectedYN = "yes" Else $aTelnetStayConnectedYN = "no" EndIf IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Telnet: Stay Connected (Required for chat and death messaging) (yes/no) ###", $aTelnetStayConnectedYN) EndFunc Func W1_T4_C_TelnetMonitorAllClick() If GUICtrlRead($W1_T4_C_TelnetMonitorAll) = $GUI_CHECKED Then $aTelnetMonitorAllYN = "yes" GUICtrlSetState($W1_T4_I_TelnetCheckEverySec, $GUI_ENABLE) GUICtrlSetState($W1_T4_C_TelnetStayConnected, $GUI_ENABLE) Else $aTelnetMonitorAllYN = "no" GUICtrlSetState($W1_T4_I_TelnetCheckEverySec, $GUI_DISABLE) GUICtrlSetState($W1_T4_C_TelnetStayConnected, $GUI_DISABLE) EndIf IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Telnet: Monitor all traffic (Required for player chat and death announcements) (yes/no) ###", $aTelnetMonitorAllYN) EndFunc Func W1_T4_I_TelnetCheckEverySecChange() $aTelnetTrafficCheckSec = GUICtrlRead($W1_T4_I_TelnetCheckEverySec) IniWrite($aIniFile, " --------------- " & StringUpper($aUtilName) & " MISC OPTIONS --------------- ", "Telnet: Check traffic every _ seconds) (1-10) ###", $aTelnetTrafficCheckSec) EndFunc Func W1_T4_U_TelnetCheckEverySecChange() EndFunc Func W1_T4_C_Update01Click() _AnnounceUpdateCB($W1_T4_C_Update01, "1") EndFunc Func W1_T4_C_Update02Click() _AnnounceUpdateCB($W1_T4_C_Update02, "2") EndFunc Func W1_T4_C_Update03Click() _AnnounceUpdateCB($W1_T4_C_Update03, "3") EndFunc Func W1_T4_C_Update05Click() _AnnounceUpdateCB($W1_T4_C_Update05, "5") EndFunc Func W1_T4_C_Update10Click() _AnnounceUpdateCB($W1_T4_C_Update10, "10") EndFunc Func W1_T4_C_Update15Click() _AnnounceUpdateCB($W1_T4_C_Update15, "15") EndFunc Func W1_T4_I_AnnounceDailyChange() $sInGameDailyMessage = GUICtrlRead($W1_T4_I_AnnounceDaily) IniWrite($aIniFile, " --------------- IN-GAME ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement DAILY (\m - minutes) ###", $sInGameDailyMessage) EndFunc Func W1_T4_I_AnnounceRemoteChange() $sInGameRemoteRestartMessage = GUICtrlRead($W1_T4_I_AnnounceRemote) IniWrite($aIniFile, " --------------- IN-GAME ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement REMOTE RESTART (\m - minutes) ###", $sInGameRemoteRestartMessage) EndFunc Func W1_T4_I_AnnounceUpdateChange() $sInGameUpdateMessage = GUICtrlRead($W1_T4_I_AnnounceUpdate) IniWrite($aIniFile, " --------------- IN-GAME ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement UPDATES (\m - minutes) ###", $sInGameUpdateMessage) EndFunc Func W1_T4_I_BackupStartedChange() $aBackupInGame = GUICtrlRead($W1_T4_I_BackupStarted) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "In-Game announcement when backup initiated (Leave blank to disable) ###", $aBackupInGame) EndFunc Func W1_T4_I_DailyMinsChange() $sAnnounceNotifyTime1 = GUICtrlRead($W1_T4_I_DailyMins) IniWrite($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before DAILY reboot (comma separated 0-60) ###", $sAnnounceNotifyTime1) EndFunc Func W1_T4_I_LogOnlinePlaySecondsChange() $aServerOnlinePlayerSec = GUICtrlRead($W1_T4_I_LogOnlinePlaySeconds) IniWrite($aIniFile, " --------------- GAME SERVER CONFIGURATION --------------- ", "Check for online players every _ seconds (30-600) ###", $aServerOnlinePlayerSec) EndFunc Func W1_T4_I_UpdateMinsChange() $sAnnounceNotifyTime2 = GUICtrlRead($W1_T4_I_UpdateMins) IniWrite($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before UPDATES reboot (comma separated 0-60) ###", $sAnnounceNotifyTime2) EndFunc Func W1_T4_I_UpdateRemoteChange() $sAnnounceNotifyTime3 = GUICtrlRead($W1_T4_I_UpdateRemote) IniWrite($aIniFile, " --------------- ANNOUNCEMENT CONFIGURATION --------------- ", "Announcement _ minutes before REMOTE RESTART reboot (comma separated 0-60) ###", $sAnnounceNotifyTime3) EndFunc Func W1_T5_C_D1TTSClick() If GUICtrlRead($W1_T5_C_D1TTS) = $GUI_CHECKED Then $aServerDiscord1TTSYN = "yes" Else $aServerDiscord1TTSYN = "no" EndIf IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Use TTS (optional) (yes/no) ###", $aServerDiscord1TTSYN) EndFunc Func W1_T5_C_D2TTSClick() If GUICtrlRead($W1_T5_C_D2TTS) = $GUI_CHECKED Then $aServerDiscord2TTSYN = "yes" Else $aServerDiscord2TTSYN = "no" EndIf IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Use TTS (optional) (yes/no) ###", $aServerDiscord2TTSYN) EndFunc Func W1_T5_C_D3TTSClick() If GUICtrlRead($W1_T5_C_D3TTS) = $GUI_CHECKED Then $aServerDiscord3TTSYN = "yes" Else $aServerDiscord3TTSYN = "no" EndIf IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Use TTS (optional) (yes/no) ###", $aServerDiscord3TTSYN) EndFunc Func W1_T5_C_D4TTSClick() If GUICtrlRead($W1_T5_C_D4TTS) = $GUI_CHECKED Then $aServerDiscord4TTSYN = "yes" Else $aServerDiscord4TTSYN = "no" EndIf IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Use TTS (optional) (yes/no) ###", $aServerDiscord4TTSYN) EndFunc Func _ConfigWH($tCB, $tWH, $tPar) If GUICtrlRead($tCB) = $GUI_CHECKED Then If StringInStr($tWH, $tPar) = 0 Then $tWH &= $tPar Else $tWH = StringReplace($tWH, $tPar, "") EndIf Return $tWH EndFunc Func W1_T5_C_WHChat1Click() $aServerDiscordWHSelChat = _ConfigWH($W1_T5_C_WHChat1, $aServerDiscordWHSelChat, "1") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send CHAT Msg (ie 23) ###", $aServerDiscordWHSelChat) EndFunc Func W1_T5_C_WHChat2Click() $aServerDiscordWHSelChat = _ConfigWH($W1_T5_C_WHChat2, $aServerDiscordWHSelChat, "2") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send CHAT Msg (ie 23) ###", $aServerDiscordWHSelChat) EndFunc Func W1_T5_C_WHChat3Click() $aServerDiscordWHSelChat = _ConfigWH($W1_T5_C_WHChat3, $aServerDiscordWHSelChat, "3") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send CHAT Msg (ie 23) ###", $aServerDiscordWHSelChat) EndFunc Func W1_T5_C_WHChat4Click() $aServerDiscordWHSelChat = _ConfigWH($W1_T5_C_WHChat4, $aServerDiscordWHSelChat, "4") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send CHAT Msg (ie 23) ###", $aServerDiscordWHSelChat) EndFunc Func W1_T5_C_WHDie1Click() $aServerDiscordWHSelDie = _ConfigWH($W1_T5_C_WHDie1, $aServerDiscordWHSelDie, "1") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS DIE Msg (ie 1234) ###", $aServerDiscordWHSelDie) EndFunc Func W1_T5_C_WHDie2Click() $aServerDiscordWHSelDie = _ConfigWH($W1_T5_C_WHDie2, $aServerDiscordWHSelDie, "2") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS DIE Msg (ie 1234) ###", $aServerDiscordWHSelDie) EndFunc Func W1_T5_C_WHDie3Click() $aServerDiscordWHSelDie = _ConfigWH($W1_T5_C_WHDie3, $aServerDiscordWHSelDie, "3") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS DIE Msg (ie 1234) ###", $aServerDiscordWHSelDie) EndFunc Func W1_T5_C_WHDie4Click() $aServerDiscordWHSelDie = _ConfigWH($W1_T5_C_WHDie4, $aServerDiscordWHSelDie, "4") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS DIE Msg (ie 1234) ###", $aServerDiscordWHSelDie) EndFunc Func W1_T5_C_WHOnline1Click() $aServerDiscordWHSelPlayers = _ConfigWH($W1_T5_C_WHOnline1, $aServerDiscordWHSelPlayers, "1") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS ONLINE Msg (ie 2) ###", $aServerDiscordWHSelPlayers) EndFunc Func W1_T5_C_WHOnline2Click() $aServerDiscordWHSelPlayers = _ConfigWH($W1_T5_C_WHOnline2, $aServerDiscordWHSelPlayers, "2") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS ONLINE Msg (ie 2) ###", $aServerDiscordWHSelPlayers) EndFunc Func W1_T5_C_WHOnline3Click() $aServerDiscordWHSelPlayers = _ConfigWH($W1_T5_C_WHOnline3, $aServerDiscordWHSelPlayers, "3") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS ONLINE Msg (ie 2) ###", $aServerDiscordWHSelPlayers) EndFunc Func W1_T5_C_WHOnline4Click() $aServerDiscordWHSelPlayers = _ConfigWH($W1_T5_C_WHOnline4, $aServerDiscordWHSelPlayers, "4") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send PLAYERS ONLINE Msg (ie 2) ###", $aServerDiscordWHSelPlayers) EndFunc Func W1_T5_C_WHRestart1Click() $aServerDiscordWHSelStatus = _ConfigWH($W1_T5_C_WHRestart1, $aServerDiscordWHSelStatus, "1") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send RESTART/STATUS Msg (ie 1) ###", $aServerDiscordWHSelStatus) EndFunc Func W1_T5_C_WHRestart2Click() $aServerDiscordWHSelStatus = _ConfigWH($W1_T5_C_WHRestart2, $aServerDiscordWHSelStatus, "2") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send RESTART/STATUS Msg (ie 1) ###", $aServerDiscordWHSelStatus) EndFunc Func W1_T5_C_WHRestart3Click() $aServerDiscordWHSelStatus = _ConfigWH($W1_T5_C_WHRestart3, $aServerDiscordWHSelStatus, "3") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send RESTART/STATUS Msg (ie 1) ###", $aServerDiscordWHSelStatus) EndFunc Func W1_T5_C_WHRestart4Click() $aServerDiscordWHSelStatus = _ConfigWH($W1_T5_C_WHRestart4, $aServerDiscordWHSelStatus, "4") IniWrite($aIniFile, " --------------- DISCORD MESSAGE WEBHOOK SELECT --------------- ", "Webhook number(s) to send RESTART/STATUS Msg (ie 1) ###", $aServerDiscordWHSelStatus) EndFunc Func W1_T5_I_D1AvatarChange() $aServerDiscord1Avatar = GUICtrlRead($W1_T5_I_D1Avatar) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Avatar URL (optional) ###", $aServerDiscord1Avatar) EndFunc Func W1_T5_I_D1BotChange() $aServerDiscord1BotName = GUICtrlRead($W1_T5_I_D1Bot) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Bot Name (optional) ###", $aServerDiscord1BotName) EndFunc Func W1_T5_I_D1URLChange() $aServerDiscord1URL = GUICtrlRead($W1_T5_I_D1URL) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #1 Webhook URL ###", $aServerDiscord1URL) EndFunc Func W1_T5_I_D2AvatarChange() $aServerDiscord2Avatar = GUICtrlRead($W1_T5_I_D2Avatar) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Avatar URL (optional) ###", $aServerDiscord2Avatar) EndFunc Func W1_T5_I_D2BotChange() $aServerDiscord2BotName = GUICtrlRead($W1_T5_I_D2Bot) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Bot Name (optional) ###", $aServerDiscord2BotName) EndFunc Func W1_T5_I_D2URLChange() $aServerDiscord2URL = GUICtrlRead($W1_T5_I_D2URL) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #2 Webhook URL ###", $aServerDiscord2URL) EndFunc Func W1_T5_I_D3AvatarChange() $aServerDiscord3Avatar = GUICtrlRead($W1_T5_I_D3Avatar) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Avatar URL (optional) ###", $aServerDiscord3Avatar) EndFunc Func W1_T5_I_D3BotChange() $aServerDiscord3BotName = GUICtrlRead($W1_T5_I_D3Bot) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Bot Name (optional) ###", $aServerDiscord3BotName) EndFunc Func W1_T5_I_D3URLChange() $aServerDiscord3URL = GUICtrlRead($W1_T5_I_D3URL) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #3 Webhook URL ###", $aServerDiscord3URL) EndFunc Func W1_T5_I_D4AvatarChange() $aServerDiscord4Avatar = GUICtrlRead($W1_T5_I_D4Avatar) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Avatar URL (optional) ###", $aServerDiscord4Avatar) EndFunc Func W1_T5_I_D4BotChange() $aServerDiscord4BotName = GUICtrlRead($W1_T5_I_D4Bot) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Bot Name (optional) ###", $aServerDiscord4BotName) EndFunc Func W1_T5_I_D4URLChange() $aServerDiscord4URL = GUICtrlRead($W1_T5_I_D4URL) IniWrite($aIniFile, " --------------- DISCORD WEBHOOK --------------- ", "Discord #4 Webhook URL ###", $aServerDiscord4URL) EndFunc Func W1_T6_C_BackOnlineClick() If GUICtrlRead($W1_T6_C_BackOnline) = $GUI_CHECKED Then $sUseDiscordBotServersUpYN = "yes" Else $sUseDiscordBotServersUpYN = "no" EndIf IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message when server is back online (yes/no) ###", $sUseDiscordBotServersUpYN) EndFunc Func W1_T6_C_BackupStartedClick() If GUICtrlRead($W1_T6_C_BackupStarted) = $GUI_CHECKED Then $aBackupSendDiscordYN = "yes" Else $aBackupSendDiscordYN = "no" EndIf IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Send Discord announcement when backup initiated (yes/no) ###", $aBackupSendDiscordYN) EndFunc Func W1_T6_C_DailyClick() If GUICtrlRead($W1_T6_C_Daily) = $GUI_CHECKED Then $sUseDiscordBotDaily = "yes" Else $sUseDiscordBotDaily = "no" EndIf IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for DAILY reboot? (yes/no) ###", $sUseDiscordBotDaily) EndFunc Func W1_T6_C_FirstAnnounceOnlyClick() If GUICtrlRead($W1_T6_C_FirstAnnounceOnly) = $GUI_CHECKED Then $sUseDiscordBotFirstAnnouncement = "yes" Else $sUseDiscordBotFirstAnnouncement = "no" EndIf IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for first ANNOUNCEMENT only? (reduces bot spam)(yes/no) ###", $sUseDiscordBotFirstAnnouncement) EndFunc Func W1_T6_C_PlayerChangeClick() If GUICtrlRead($W1_T6_C_PlayerChange) = $GUI_CHECKED Then $sUseDiscordBotPlayerChangeYN = "yes" Else $sUseDiscordBotPlayerChangeYN = "no" EndIf IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for Online Player changes? (yes/no) ###", $sUseDiscordBotPlayerChangeYN) EndFunc Func W1_T6_C_PlayerChatClick() If GUICtrlRead($W1_T6_C_PlayerChat) = $GUI_CHECKED Then $sUseDiscordBotPlayerChatYN = "yes" Else $sUseDiscordBotPlayerChatYN = "no" EndIf IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for Player Chat? (yes/no) ###", $sUseDiscordBotPlayerChatYN) EndFunc Func W1_T6_C_PlayerDieClick() If GUICtrlRead($W1_T6_C_PlayerDie) = $GUI_CHECKED Then $sUseDiscordBotPlayerDiedYN = "yes" Else $sUseDiscordBotPlayerDiedYN = "no" EndIf IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message when player dies? (yes/no) ###", $sUseDiscordBotPlayerDiedYN) EndFunc Func W1_T6_C_RemoteClick() If GUICtrlRead($W1_T6_C_Remote) = $GUI_CHECKED Then $sUseDiscordBotRemoteRestart = "yes" Else $sUseDiscordBotRemoteRestart = "no" EndIf IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for REMOTE RESTART reboot? (yes/no) ###", $sUseDiscordBotRemoteRestart) EndFunc Func W1_T6_C_UpdateClick() If GUICtrlRead($W1_T6_C_Update) = $GUI_CHECKED Then $sUseDiscordBotUpdate = "yes" Else $sUseDiscordBotUpdate = "no" EndIf IniWrite($aIniFile, " --------------- DISCORD INTEGRATION --------------- ", "Send Discord message for UPDATE reboot? (yes/no) ###", $sUseDiscordBotUpdate) EndFunc Func W1_T6_I_BackOnlineChange() $sDiscordServersUpMessage = GUICtrlRead($W1_T6_I_BackOnline) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement when server is back online ###", $sDiscordServersUpMessage) EndFunc Func W1_T6_I_BackupStartedChange() $aBackupDiscord = GUICtrlRead($W1_T6_I_BackupStarted) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Discord announcement when backup initiated ###", $aBackupDiscord) EndFunc Func W1_T6_I_DailyChange() $sDiscordDailyMessage = GUICtrlRead($W1_T6_I_Daily) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement DAILY (\m - minutes) ###", $sDiscordDailyMessage) EndFunc Func W1_T6_I_PlayerChangeChange() $sDiscordPlayersMsg = GUICtrlRead($W1_T6_I_PlayerChange) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Online Player Message (see above for substitutions) ###", $sDiscordPlayersMsg) EndFunc Func W1_T6_I_PlayerChatChange() $sDiscordPlayerChatMsg = GUICtrlRead($W1_T6_I_PlayerChat) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Player Chat (\p - Player Name, \m Message) ###", $sDiscordPlayerChatMsg) EndFunc Func W1_T6_I_PlayerDieChange() $sDiscordPlayerDiedMsg = GUICtrlRead($W1_T6_I_PlayerDie) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Player Died Message (\p - Player Name, \n Next Line) ###", $sDiscordPlayerDiedMsg) EndFunc Func W1_T6_I_RemoteChange() $sDiscordRemoteRestartMessage = GUICtrlRead($W1_T6_I_Remote) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement REMOTE RESTART (\m - minutes) ###", $sDiscordRemoteRestartMessage) EndFunc Func W1_T6_I_SubJoinedChange() $sDiscordPlayerJoinMsg = GUICtrlRead($W1_T6_I_SubJoined) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Join Player Sub-Message (\p - Player Name(s) of player(s) that joined server, \n Next Line) ###", $sDiscordPlayerJoinMsg) EndFunc Func W1_T6_I_SubLeftChange() $sDiscordPlayerLeftMsg = GUICtrlRead($W1_T6_I_SubLeft) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Left Player Sub-Message (\p - Player Name(s) of player(s) that left server, \n Next Line) ###", $sDiscordPlayerLeftMsg) EndFunc Func W1_T6_I_SubOnlinePlayerChange() $sDiscordPlayerOnlineMsg = GUICtrlRead($W1_T6_I_SubOnlinePlayer) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Online Player Sub-Message (\p - Player Name(s) of player(s) online, \n Next Line) ###", $sDiscordPlayerOnlineMsg) EndFunc Func W1_T6_I_UpdateChange() $sDiscordUpdateMessage = GUICtrlRead($W1_T6_I_Update) IniWrite($aIniFile, " --------------- DISCORD MESSAGES --------------- ", "Announcement UPDATES (\m - minutes) ###", $sDiscordUpdateMessage) EndFunc Func W1_T7_C_BackupStartedClick() If GUICtrlRead($W1_T7_C_BackupStarted) = $GUI_CHECKED Then $aBackupSendTwitchYN = "yes" Else $aBackupSendTwitchYN = "no" EndIf IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Send Twitch announcement when backup initiated (yes/no) ###", $aBackupSendTwitchYN) EndFunc Func W1_T7_C_TwitchDailyClick() If GUICtrlRead($W1_T7_C_TwitchDaily) = $GUI_CHECKED Then $sUseTwitchBotDaily = "yes" Else $sUseTwitchBotDaily = "no" EndIf IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Send Twitch message for DAILY reboot? (yes/no) ###", $sUseTwitchBotDaily) EndFunc Func W1_T7_C_TwitchFirstAnnounceOnlyClick() If GUICtrlRead($W1_T7_C_TwitchFirstAnnounceOnly) = $GUI_CHECKED Then $sUseTwitchFirstAnnouncement = "yes" Else $sUseTwitchFirstAnnouncement = "no" EndIf IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Send Twitch message for first announcement only? (reduces bot spam)(yes/no) ###", $sUseTwitchFirstAnnouncement) EndFunc Func W1_T7_C_TwitchRemoteClick() If GUICtrlRead($W1_T7_C_TwitchRemote) = $GUI_CHECKED Then $sUseTwitchBotRemoteRestart = "yes" Else $sUseTwitchBotRemoteRestart = "no" EndIf IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Send Twitch message for REMOTE RESTART reboot? (yes/no) ###", $sUseTwitchBotRemoteRestart) EndFunc Func W1_T7_C_TwitchUpdateClick() If GUICtrlRead($W1_T7_C_TwitchUpdate) = $GUI_CHECKED Then $sUseTwitchBotUpdate = "yes" Else $sUseTwitchBotUpdate = "no" EndIf IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Send Twitch message for UPDATE reboot? (yes/no) ###", $sUseTwitchBotUpdate) EndFunc Func W1_T7_I_TwitchBackStartedChange() $aBackupTwitch = GUICtrlRead($W1_T7_I_TwitchBackStarted) IniWrite($aIniFile, " --------------- BACKUP --------------- ", "Twitch announcement when backup initiated ###", $aBackupTwitch) EndFunc Func W1_T7_I_TwitchChannelsChange() $sTwitchChannels = GUICtrlRead($W1_T7_I_TwitchChannels) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Channels ###", $sTwitchChannels) EndFunc Func W1_T7_I_TwitchChatOAuthChange() $sChatOAuth = GUICtrlRead($W1_T7_I_TwitchChatOAuth) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "ChatOAuth ###", $sChatOAuth) EndFunc Func W1_T7_I_TwitchDailyChange() $sTwitchDailyMessage = GUICtrlRead($W1_T7_I_TwitchDaily) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Announcement DAILY (\m - minutes) ###", $sTwitchDailyMessage) EndFunc Func W1_T7_I_TwitchNickChange() $sTwitchNick = GUICtrlRead($W1_T7_I_TwitchNick) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Nick ###", $sTwitchNick) EndFunc Func W1_T7_I_TwitchRemoteChange() $sTwitchRemoteRestartMessage = GUICtrlRead($W1_T7_I_TwitchRemote) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Announcement REMOTE RESTART (\m - minutes) ###", $sTwitchRemoteRestartMessage) EndFunc Func W1_T7_I_TwitchUpdateChange() $sTwitchUpdateMessage = GUICtrlRead($W1_T7_I_TwitchUpdate) IniWrite($aIniFile, " --------------- TWITCH INTEGRATION --------------- ", "Announcement UPDATES (\m - minutes) ###", $sTwitchUpdateMessage) EndFunc Func W1_T8_B_ExecuteAFirstRestartAnnouncementClick() Local $tCtrlID = $W1_T8_I_ExecuteAFirstRestartAnnouncement Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = "" Local $xFileName = _PathSplit($aExternalScriptAnnounceFile, $sDrive, $sDir, $sFileName, $sExtension) Local $tFileName = $xFileName[3] & $xFileName[4] Local $tFolder = $xFileName[1] & $xFileName[2] If $tFolder = "" Then $tFolder = @ScriptDir Local $tInput = FileOpenDialog("Please select file", @ScriptDir, "All (*.*)", 3, $tFileName) If @error Then Local $tRead = GUICtrlRead($tCtrlID) GUICtrlSetData($tCtrlID, $tRead) Else GUICtrlSetData($tCtrlID, $tInput) EndIf $tFile = GUICtrlRead($tCtrlID) $tFile = RemoveInvalidCharacters($tFile) $tFile = RemoveTrailingSlash($tFile) GUICtrlSetData($tCtrlID, $tFile) $aExternalScriptAnnounceFile = $tFile IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Script to execute ###", $aExternalScriptAnnounceFile) EndFunc Func W1_T8_B_ExecuteAfterRestartClick() Local $tCtrlID = $W1_T8_I_ExecuteAfterRestart Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = "" Local $xFileName = _PathSplit($aExternalScriptDailyFile, $sDrive, $sDir, $sFileName, $sExtension) Local $tFileName = $xFileName[3] & $xFileName[4] Local $tFolder = $xFileName[1] & $xFileName[2] If $tFolder = "" Then $tFolder = @ScriptDir Local $tInput = FileOpenDialog("Please select file", @ScriptDir, "All (*.*)", 3, $tFileName) If @error Then Local $tRead = GUICtrlRead($tCtrlID) GUICtrlSetData($tCtrlID, $tRead) Else GUICtrlSetData($tCtrlID, $tInput) EndIf $tFile = GUICtrlRead($tCtrlID) $tFile = RemoveInvalidCharacters($tFile) $tFile = RemoveTrailingSlash($tFile) GUICtrlSetData($tCtrlID, $tFile) $aExternalScriptDailyFile = $tFile IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Script to execute ###", $aExternalScriptDailyFile) EndFunc Func W1_T8_B_ExecuteBeforeSteamandStart() Local $tCtrlID = $W1_T8_I_ExecuteBeforeSteamandStart Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = "" Local $xFileName = _PathSplit($aExternalScriptFile, $sDrive, $sDir, $sFileName, $sExtension) Local $tFileName = $xFileName[3] & $xFileName[4] Local $tFolder = $xFileName[1] & $xFileName[2] If $tFolder = "" Then $tFolder = @ScriptDir Local $tInput = FileOpenDialog("Please select file", @ScriptDir, "All (*.*)", 3, $tFileName) If @error Then Local $tRead = GUICtrlRead($tCtrlID) GUICtrlSetData($tCtrlID, $tRead) Else GUICtrlSetData($tCtrlID, $tInput) EndIf $tFile = GUICtrlRead($tCtrlID) $tFile = RemoveInvalidCharacters($tFile) $tFile = RemoveTrailingSlash($tFile) GUICtrlSetData($tCtrlID, $tFile) $aExternalScriptFile = $tFile IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Script to execute ###", $aExternalScriptFile) EndFunc Func W1_T8_B_ExecuteAfterSteamBeforeStartClick() Local $tCtrlID = $W1_T8_I_ExecuteAfterSteamBeforeStart Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = "" Local $xFileName = _PathSplit($aExternalScriptValidateFile, $sDrive, $sDir, $sFileName, $sExtension) Local $tFileName = $xFileName[3] & $xFileName[4] Local $tFolder = $xFileName[1] & $xFileName[2] If $tFolder = "" Then $tFolder = @ScriptDir Local $tInput = FileOpenDialog("Please select file", @ScriptDir, "All (*.*)", 3, $tFileName) If @error Then Local $tRead = GUICtrlRead($tCtrlID) GUICtrlSetData($tCtrlID, $tRead) Else GUICtrlSetData($tCtrlID, $tInput) EndIf $tFile = GUICtrlRead($tCtrlID) $tFile = RemoveInvalidCharacters($tFile) $tFile = RemoveTrailingSlash($tFile) GUICtrlSetData($tCtrlID, $tFile) $aExternalScriptValidateFile = $tFile IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Script to execute ###", $aExternalScriptValidateFile) EndFunc Func W1_T8_B_ExecuteAfterUpdateClick() Local $tCtrlID = $W1_T8_I_ExecuteAfterUpdate Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = "" Local $xFileName = _PathSplit($aExternalScriptUpdateFile, $sDrive, $sDir, $sFileName, $sExtension) Local $tFileName = $xFileName[3] & $xFileName[4] Local $tFolder = $xFileName[1] & $xFileName[2] If $tFolder = "" Then $tFolder = @ScriptDir Local $tInput = FileOpenDialog("Please select file", @ScriptDir, "All (*.*)", 3, $tFileName) If @error Then Local $tRead = GUICtrlRead($tCtrlID) GUICtrlSetData($tCtrlID, $tRead) Else GUICtrlSetData($tCtrlID, $tInput) EndIf $tFile = GUICtrlRead($tCtrlID) $tFile = RemoveInvalidCharacters($tFile) $tFile = RemoveTrailingSlash($tFile) GUICtrlSetData($tCtrlID, $tFile) $aExternalScriptUpdateFile = $tFile IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Script to execute ###", $aExternalScriptUpdateFile) EndFunc Func W1_T8_B_ExecuteRemoteRestartClick() Local $tCtrlID = $W1_T8_I_ExecuteRemoteRestart Local $sDrive = "", $sDir = "", $sFileName = "", $sExtension = "" Local $xFileName = _PathSplit($aExternalScriptRemoteFile, $sDrive, $sDir, $sFileName, $sExtension) Local $tFileName = $xFileName[3] & $xFileName[4] Local $tFolder = $xFileName[1] & $xFileName[2] If $tFolder = "" Then $tFolder = @ScriptDir Local $tInput = FileOpenDialog("Please select file", @ScriptDir, "All (*.*)", 3, $tFileName) If @error Then Local $tRead = GUICtrlRead($tCtrlID) GUICtrlSetData($tCtrlID, $tRead) Else GUICtrlSetData($tCtrlID, $tInput) EndIf $tFile = GUICtrlRead($tCtrlID) $tFile = RemoveInvalidCharacters($tFile) $tFile = RemoveTrailingSlash($tFile) GUICtrlSetData($tCtrlID, $tFile) $aExternalScriptRemoteFile = $tFile IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Script to execute ###", $aExternalScriptRemoteFile) EndFunc Func W1_T8_C_ExecuteAFirstRestartAnnouncementClick() If GUICtrlRead($W1_T8_C_ExecuteAFirstRestartAnnouncement) = $GUI_CHECKED Then $aExternalScriptAnnounceYN = "yes" Else $aExternalScriptAnnounceYN = "no" EndIf IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Execute external script when first restart announcement is made? (yes/no) ###", $aExternalScriptAnnounceYN) EndFunc Func W1_T8_C_ExecuteAFirstRestartAnnouncementWaitClick() If GUICtrlRead($W1_T8_C_ExecuteAFirstRestartAnnouncementWait) = $GUI_CHECKED Then $aExternalScriptAnnounceWait = "yes" Else $aExternalScriptAnnounceWait = "no" EndIf IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Wait for script to complete? (yes/no) ###", $aExternalScriptAnnounceWait) EndFunc Func W1_T8_C_ExecuteAfterRestartClick() If GUICtrlRead($W1_T8_C_ExecuteAfterRestart) = $GUI_CHECKED Then $aExternalScriptDailyYN = "yes" Else $aExternalScriptDailyYN = "no" EndIf IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Execute external script for daily server restarts? (yes/no) ###", $aExternalScriptDailyYN) EndFunc Func W1_T8_C_ExecuteAfterRestartWaitClick() If GUICtrlRead($W1_T8_C_ExecuteAfterRestartWait) = $GUI_CHECKED Then $aExternalScriptDailyWait = "yes" Else $aExternalScriptDailyWait = "no" EndIf IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Wait for script to complete? (yes/no) ###", $aExternalScriptDailyWait) EndFunc Func W1_T8_C_ExecuteBeforeSteamAndStart() If GUICtrlRead($W1_T8_C_ExecuteBeforeSteamAndStart) = $GUI_CHECKED Then $aExecuteExternalScript = "yes" Else $aExecuteExternalScript = "no" EndIf IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Execute external script BEFORE update? (yes/no) ###", $aExecuteExternalScript) EndFunc Func W1_T8_C_ExecuteBeforeSteamandStartWaitClick() If GUICtrlRead($W1_T8_C_ExecuteBeforeSteamandStartWait) = $GUI_CHECKED Then $aExternalScriptWait = "yes" Else $aExternalScriptWait = "no" EndIf IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Wait for script to complete? (yes/no) ###", $aExternalScriptWait) EndFunc Func W1_T8_C_ExecuteAfterSteamBeforeStartClick() If GUICtrlRead($W1_T8_C_ExecuteAfterSteamBeforeStart) = $GUI_CHECKED Then $aExternalScriptValidateYN = "yes" Else $aExternalScriptValidateYN = "no" EndIf IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Execute external script AFTER update but BEFORE server start? (yes/no) ###", $aExternalScriptValidateYN) EndFunc Func W1_T8_C_ExecuteAfterSteamBeforeStartWaitClick() If GUICtrlRead($W1_T8_C_ExecuteAfterSteamBeforeStartWait) = $GUI_CHECKED Then $aExternalScriptValidateWait = "yes" Else $aExternalScriptValidateWait = "no" EndIf IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Wait for script to complete? (yes/no) ###", $aExternalScriptValidateWait) EndFunc Func W1_T8_C_ExecuteAfterUpdateClick() If GUICtrlRead($W1_T8_C_ExecuteAfterUpdate) = $GUI_CHECKED Then $aExternalScriptUpdateYN = "yes" Else $aExternalScriptUpdateYN = "no" EndIf IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Execute external script for server update restarts? (yes/no) ###", $aExternalScriptUpdateYN) EndFunc Func W1_T8_C_ExecuteAfterUpdateWaitClick() If GUICtrlRead($W1_T8_C_ExecuteAfterUpdateWait) = $GUI_CHECKED Then $aExternalScriptUpdateWait = "yes" Else $aExternalScriptUpdateWait = "no" EndIf IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Wait for script to complete? (yes/no) ###", $aExternalScriptUpdateWait) EndFunc Func W1_T8_C_ExecuteRemoteRestartClick() If GUICtrlRead($W1_T8_C_ExecuteRemoteRestart) = $GUI_CHECKED Then $aExternalScriptRemoteYN = "yes" Else $aExternalScriptRemoteYN = "no" EndIf IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Execute external script during restart when a remote restart request is made? (yes/no) ###", $aExternalScriptRemoteYN) EndFunc Func W1_T8_C_ExecuteRemoteRestartWaitClick() If GUICtrlRead($W1_T8_C_ExecuteRemoteRestartWait) = $GUI_CHECKED Then $aExternalScriptRemoteWait = "yes" Else $aExternalScriptRemoteWait = "no" EndIf IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Wait for script to complete? (yes/no) ###", $aExternalScriptRemoteWait) EndFunc Func W1_T8_I_ExecuteFirstRestartAnnouncementChange() $aExternalScriptAnnounceFile = GUICtrlRead($W1_T8_I_ExecuteAFirstRestartAnnouncement) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN FIRST RESTART ANNOUNCEMENT IS MADE --------------- ", "5-Script to execute ###", $aExternalScriptAnnounceFile) EndFunc Func W1_T8_I_ExecuteAfterRestartChange() $aExternalScriptDailyFile = GUICtrlRead($W1_T8_I_ExecuteAfterRestart) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR *DAILY* SERVER RESTART --------------- ", "4-Script to execute ###", $aExternalScriptDailyFile) EndFunc Func W1_T8_I_ExecuteBeforeSteamandStartChange() $aExternalScriptFile = GUICtrlRead($W1_T8_I_ExecuteBeforeSteamandStart) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT BEFORE SteamCMD UPDATE AND SERVER START --------------- ", "1-Script to execute ###", $aExternalScriptFile) EndFunc Func W1_T8_I_ExecuteAfterSteamBeforeStartChange() $aExternalScriptValidateFile = GUICtrlRead($W1_T8_I_ExecuteAfterSteamBeforeStart) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT AFTER SteamCMD BUT BEFORE SERVER START --------------- ", "2-Script to execute ###", $aExternalScriptValidateFile) EndFunc Func W1_T8_I_ExecuteAfterUpdateChange() $aExternalScriptUpdateFile = GUICtrlRead($W1_T8_I_ExecuteAfterUpdate) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT WHEN RESTARTING FOR SERVER *UPDATE* --------------- ", "3-Script to execute ###", $aExternalScriptUpdateFile) EndFunc Func W1_T8_I_ExecuteRemoteRestartChange() $aExternalScriptRemoteFile = GUICtrlRead($W1_T8_I_ExecuteRemoteRestart) IniWrite($aIniFile, " --------------- EXECUTE EXTERNAL SCRIPT DURING RESTART WHEN REMOTE RESTART REQUEST IS MADE --------------- ", "6-Script to execute ###", $aExternalScriptRemoteFile) EndFunc Func W1_T9_C_EnableFutureProofClick() If GUICtrlRead($W1_T9_C_EnableFutureProof) = $GUI_CHECKED Then $aFPAutoUpdateYN = "yes" Else $aFPAutoUpdateYN = "no" EndIf IniWrite($aIniFile, " --------------- (ALMOST) FUTURE PROOF UPDATE OPTIONS --------------- ", "Automatically import old priority settings into new config? (yes/no) ###", $aFPAutoUpdateYN) EndFunc Func W1_T9_C_RenameModFolderClick() If GUICtrlRead($W1_T9_C_RenameModFolder) = $GUI_CHECKED Then $aFPRenameModsYN = "yes" Else $aFPRenameModsYN = "no" EndIf IniWrite($aIniFile, " --------------- (ALMOST) FUTURE PROOF UPDATE OPTIONS --------------- ", "Rename the Mod Folder (therefore saving and disabling it) if Future Proof was needed (3 consecutive failed starts after an update)? (yes/no) ###", $aFPRenameModsYN) EndFunc Func Label10Click() EndFunc Func Label11Click() EndFunc Func Label12Click() EndFunc Func Label13Click() EndFunc Func Label14Click() EndFunc Func Label15Click() EndFunc Func Label16Click() EndFunc Func Label17Click() EndFunc Func Label18Click() EndFunc Func Label19Click() EndFunc Func Label1Click() EndFunc Func Label20Click() EndFunc Func Label21Click() EndFunc Func Label22Click() EndFunc Func Label23Click() EndFunc Func Label24Click() EndFunc Func Label25Click() EndFunc Func Label26Click() EndFunc Func Label27Click() EndFunc Func Label28Click() EndFunc Func Label29Click() EndFunc Func Label2Click() EndFunc Func Label30Click() EndFunc Func Label31Click() EndFunc Func Label32Click() EndFunc Func Label33Click() EndFunc Func Label34Click() EndFunc Func Label35Click() EndFunc Func Label36Click() EndFunc Func Label37Click() EndFunc Func Label38Click() EndFunc Func Label39Click() EndFunc Func Label3Click() EndFunc Func Label40Click() EndFunc Func Label41Click() EndFunc Func Label42Click() EndFunc Func Label43Click() EndFunc Func Label44Click() EndFunc Func Label45Click() EndFunc Func Label46Click() EndFunc Func Label47Click() EndFunc Func Label48Click() EndFunc Func Label49Click() EndFunc Func Label4Click() EndFunc Func Label50Click() EndFunc Func Label51Click() EndFunc Func Label52Click() EndFunc Func Label53Click() EndFunc Func Label54Click() EndFunc Func Label55Click() EndFunc Func Label56Click() EndFunc Func Label57Click() EndFunc Func Label58Click() EndFunc Func Label59Click() EndFunc Func Label5Click() EndFunc Func Label60Click() EndFunc Func Label61Click() EndFunc Func Label62Click() EndFunc Func Label63Click() EndFunc Func Label64Click() EndFunc Func Label65Click() EndFunc Func Label66Click() EndFunc Func Label67Click() EndFunc Func Label68Click() EndFunc Func Label69Click() EndFunc Func Label6Click() EndFunc Func Label70Click() EndFunc Func Label71Click() EndFunc Func Label72Click() EndFunc Func Label73Click() EndFunc Func Label74Click() EndFunc Func Label75Click() EndFunc Func Label76Click() EndFunc Func Label77Click() EndFunc Func Label78Click() EndFunc Func Label79Click() EndFunc Func Label7Click() EndFunc Func Label80Click() EndFunc Func Label81Click() EndFunc Func Label82Click() EndFunc Func Label83Click() EndFunc Func Label84Click() EndFunc Func Label85Click() EndFunc Func Label86Click() EndFunc Func Label87Click() EndFunc Func Label88Click() EndFunc Func Label89Click() EndFunc Func Label8Click() EndFunc Func Label90Click() EndFunc Func Label91Click() EndFunc Func Label92Click() EndFunc Func Label93Click() EndFunc Func Label94Click() EndFunc Func Label95Click() EndFunc Func Label96Click() EndFunc Func Label98Click() EndFunc Func Label99Click() EndFunc Func Label9Click() EndFunc Func Pic1Click() EndFunc Func Pic2Click() EndFunc Func Pic3Click() EndFunc Func Pic4Click() EndFunc Func Pic5Click() EndFunc Func Pic6Click() EndFunc Func Pic7Click() EndFunc Func _ErrorCode($tError) If IsDeclared("xErrorCodes") = 0 Then Global $xErrorCodes[0][2] _ArrayAdd($xErrorCodes, "0x00084009|Unable to initialize class cache.") _ArrayAdd($xErrorCodes, "0x0008400A|Unable to initialize RPC services.") _ArrayAdd($xErrorCodes, "0x80000001|Not implemented.") _ArrayAdd($xErrorCodes, "0x80000002|Ran out of memory.") _ArrayAdd($xErrorCodes, "0x80000003|One or more arguments are invalid.") _ArrayAdd($xErrorCodes, "0x80000004|No such interface supported.") _ArrayAdd($xErrorCodes, "0x80000005|Invalid pointer.") _ArrayAdd($xErrorCodes, "0x80000006|Invalid handle.") _ArrayAdd($xErrorCodes, "0x80000007|Operation aborted.") _ArrayAdd($xErrorCodes, "0x80000008|Unspecified error.") _ArrayAdd($xErrorCodes, "0x80000009|General access denied error.") _ArrayAdd($xErrorCodes, "0x8000000A|The data necessary to complete this operation not yet available.") _ArrayAdd($xErrorCodes, "0x80004001|Not implemented.") _ArrayAdd($xErrorCodes, "0x80004002|No such interface supported.") _ArrayAdd($xErrorCodes, "0x80004003|Invalid pointer.") _ArrayAdd($xErrorCodes, "0x80004004|Operation aborted.") _ArrayAdd($xErrorCodes, "0x80004005|Unspecified error.") _ArrayAdd($xErrorCodes, "0x80004006|Thread local storage failure.") _ArrayAdd($xErrorCodes, "0x80004007|Get shared memory allocator failure.") _ArrayAdd($xErrorCodes, "0x80004008|Get memory allocator failure.") _ArrayAdd($xErrorCodes, "0x8000400B|Cannot set thread local storage channel control.") _ArrayAdd($xErrorCodes, "0x8000400C|Could not allocate thread local storage channel control.") _ArrayAdd($xErrorCodes, "0x8000400D|The user supplied memory allocator is unacceptable.") _ArrayAdd($xErrorCodes, "0x8000400E|The OLE service mutex already exists.") _ArrayAdd($xErrorCodes, "0x8000400F|The OLE service file mapping already exists.") _ArrayAdd($xErrorCodes, "0x80004010|Unable to map view of file for OLE service.") _ArrayAdd($xErrorCodes, "0x80004011|Failure attempting to launch OLE service.") _ArrayAdd($xErrorCodes, "0x80004012|There was an attempt to call CoInitialize a second time while single threaded.") _ArrayAdd($xErrorCodes, "0x80004013|A Remote activation was necessary but was not allowed.") _ArrayAdd($xErrorCodes, "0x80004014|A Remote activation was necessary but the server name provided was invalid.") _ArrayAdd($xErrorCodes, "0x80004015|The class is configured to run as a security id different from the caller.") _ArrayAdd($xErrorCodes, "0x80004016|Use of Ole1 services requiring DDE windows is disabled.") _ArrayAdd($xErrorCodes, "0x80004017|A RunAs specification must be A RunAs specification must be \ or simply .") _ArrayAdd($xErrorCodes, "0x80004018|The server process could not be started. The pathname may be incorrect.") _ArrayAdd($xErrorCodes, "0x80004019|The server process could not be started as the configured identity. The pathname may be incorrect or unavailable.") _ArrayAdd($xErrorCodes, "0x8000401A|The server process could not be started because the configured identity is incorrect. Check the username and password.") _ArrayAdd($xErrorCodes, "0x8000401B|The client is not allowed to launch this server.") _ArrayAdd($xErrorCodes, "0x8000401C|The service providing this server could not be started.") _ArrayAdd($xErrorCodes, "0x8000401D|This computer was unable to communicate with the computer providing the server.") _ArrayAdd($xErrorCodes, "0x8000401E|The server did not respond after being launched.") _ArrayAdd($xErrorCodes, "0x8000401F|The registration information for this server is inconsistent or incomplete.") _ArrayAdd($xErrorCodes, "0x80004020|The registration information for this interface is inconsistent or incomplete.") _ArrayAdd($xErrorCodes, "0x80004021|The operation attempted is not supported.") _ArrayAdd($xErrorCodes, "0x8000FFFF|Catastrophic failure.") _ArrayAdd($xErrorCodes, "0x80010001|Call was rejected by callee.") _ArrayAdd($xErrorCodes, "0x80010002|Call was canceled by the message filter.") _ArrayAdd($xErrorCodes, "0x80010003|The caller is dispatching an intertask SendMessage call and cannot call out via PostMessage.") _ArrayAdd($xErrorCodes, "0x80010004|The caller is dispatching an asynchronous call and cannot make an outgoing call on behalf of this call.") _ArrayAdd($xErrorCodes, "0x80010005|It is illegal to call out while inside message filter.") _ArrayAdd($xErrorCodes, "0x80010006|The connection terminated or is in a bogus state and cannot be used any more. Other connections are still valid.") _ArrayAdd($xErrorCodes, "0x80010007|The callee (server [not server application]) is not available and disappeared; all connections are invalid. The call may have executed.") _ArrayAdd($xErrorCodes, "0x80010008|The caller (client) disappeared while the callee (server) was processing a call.") _ArrayAdd($xErrorCodes, "0x80010009|The data packet with the marshalled parameter data is incorrect.") _ArrayAdd($xErrorCodes, "0x8001000A|The call was not transmitted properly; the message queue was full and was not emptied after yielding.") _ArrayAdd($xErrorCodes, "0x8001000B|The client (caller) cannot marshal the parameter data - low memory, etc.") _ArrayAdd($xErrorCodes, "0x8001000C|The client (caller) cannot unmarshal the return data - low memory, etc.") _ArrayAdd($xErrorCodes, "0x8001000D|The server (callee) cannot marshal the return data - low memory, etc.") _ArrayAdd($xErrorCodes, "0x8001000E|The server (callee) cannot unmarshal the parameter data - low memory, etc.") _ArrayAdd($xErrorCodes, "0x8001000F|Received data is invalid; could be server or client data.") _ArrayAdd($xErrorCodes, "0x80010010|A particular parameter is invalid and cannot be (un)marshalled.") _ArrayAdd($xErrorCodes, "0x80010011|There is no second outgoing call on same channel in DDE conversation.") _ArrayAdd($xErrorCodes, "0x80010012|The callee (server [not server application]) is not available and disappeared; all connections are invalid. The call did not execute.") _ArrayAdd($xErrorCodes, "0x80010100|System call failed.") _ArrayAdd($xErrorCodes, "0x80010101|Could not allocate some required resource (memory, events, ...)") _ArrayAdd($xErrorCodes, "0x80010102|Attempted to make calls on more than one thread in single threaded mode.") _ArrayAdd($xErrorCodes, "0x80010103|The requested interface is not registered on the server object.") _ArrayAdd($xErrorCodes, "0x80010104|RPC could not call the server or could not return the results of calling the server.") _ArrayAdd($xErrorCodes, "0x80010105|The server threw an exception.") _ArrayAdd($xErrorCodes, "0x80010106|Cannot change thread mode after it is set.") _ArrayAdd($xErrorCodes, "0x80010107|The method called does not exist on the server.") _ArrayAdd($xErrorCodes, "0x80010108|The object invoked has disconnected from its clients.") _ArrayAdd($xErrorCodes, "0x80010109|The object invoked chose not to process the call now. Try again later.") _ArrayAdd($xErrorCodes, "0x8001010A|The message filter indicated that the application is busy.") _ArrayAdd($xErrorCodes, "0x8001010B|The message filter rejected the call.") _ArrayAdd($xErrorCodes, "0x8001010C|A call control interfaces was called with invalid data.") _ArrayAdd($xErrorCodes, "0x8001010D|An outgoing call cannot be made since the application is dispatching an input-synchronous call.") _ArrayAdd($xErrorCodes, "0x8001010E|The application called an interface that was marshalled for a different thread.") _ArrayAdd($xErrorCodes, "0x8001010F|CoInitialize has not been called on the current thread.") _ArrayAdd($xErrorCodes, "0x80010110|The version of OLE on the client and server machines does not match.") _ArrayAdd($xErrorCodes, "0x80010111|OLE received a packet with an invalid header.") _ArrayAdd($xErrorCodes, "0x80010112|OLE received a packet with an invalid extension.") _ArrayAdd($xErrorCodes, "0x80010113|The requested object or interface does not exist.") _ArrayAdd($xErrorCodes, "0x80010114|The requested object does not exist.") _ArrayAdd($xErrorCodes, "0x80010115|OLE has sent a request and is waiting for a reply.") _ArrayAdd($xErrorCodes, "0x80010116|OLE is waiting before retrying a request.") _ArrayAdd($xErrorCodes, "0x80010117|Call context cannot be accessed after call completed.") _ArrayAdd($xErrorCodes, "0x80010118|Impersonate on unsecured calls is not supported.") _ArrayAdd($xErrorCodes, "0x80010119|Security must be initialized before any interfaces are marshalled or unmarshalled. It cannot be changed once initialized.") _ArrayAdd($xErrorCodes, "0x8001011A|No security packages are installed on this machine or the user is not logged on or there are no compatible security packages between the client and server.") _ArrayAdd($xErrorCodes, "0x8001011B|Access is denied.") _ArrayAdd($xErrorCodes, "0x8001011C|Remote calls are not allowed for this process.") _ArrayAdd($xErrorCodes, "0x8001011D|The marshalled interface data packet (oBJREF) has an invalid or unknown format.") _ArrayAdd($xErrorCodes, "0x8001FFFF|An internal error occurred.") _ArrayAdd($xErrorCodes, "0x80020001|Unknown interface.") _ArrayAdd($xErrorCodes, "0x80020003|Member not found.") _ArrayAdd($xErrorCodes, "0x80020004|Parameter not found.") _ArrayAdd($xErrorCodes, "0x80020005|Type mismatch.") _ArrayAdd($xErrorCodes, "0x80020006|Unknown name.") _ArrayAdd($xErrorCodes, "0x80020007|No named arguments.") _ArrayAdd($xErrorCodes, "0x80020008|Bad variable type.") _ArrayAdd($xErrorCodes, "0x80020009|Exception occurred.") _ArrayAdd($xErrorCodes, "0x8002000A|Out of present range.") _ArrayAdd($xErrorCodes, "0x8002000B|Invalid index.") _ArrayAdd($xErrorCodes, "0x8002000C|Unknown language.") _ArrayAdd($xErrorCodes, "0x8002000D|Memory is locked.") _ArrayAdd($xErrorCodes, "0x8002000E|Invalid number of parameters.") _ArrayAdd($xErrorCodes, "0x8002000F|Parameter not optional.") _ArrayAdd($xErrorCodes, "0x80020010|Invalid callee.") _ArrayAdd($xErrorCodes, "0x80020011|Does not support a collection.") _ArrayAdd($xErrorCodes, "0x80028016|Buffer too small.") _ArrayAdd($xErrorCodes, "0x80028018|Old format or invalid type library.") _ArrayAdd($xErrorCodes, "0x80028019|Old format or invalid type library.") _ArrayAdd($xErrorCodes, "0x8002801C|Error accessing the OLE registry.") _ArrayAdd($xErrorCodes, "0x8002801D|Library not registered.") _ArrayAdd($xErrorCodes, "0x80028027|Bound to unknown type.") _ArrayAdd($xErrorCodes, "0x80028028|Qualified name disallowed.") _ArrayAdd($xErrorCodes, "0x80028029|Invalid forward reference, or reference to uncompiled type.") _ArrayAdd($xErrorCodes, "0x8002802A|Type mismatch.") _ArrayAdd($xErrorCodes, "0x8002802B|Element not found.") _ArrayAdd($xErrorCodes, "0x8002802C|Ambiguous name.") _ArrayAdd($xErrorCodes, "0x8002802D|Name already exists in the library.") _ArrayAdd($xErrorCodes, "0x8002802E|Unknown LCID.") _ArrayAdd($xErrorCodes, "0x8002802F|Function not defined in specified DLL.") _ArrayAdd($xErrorCodes, "0x800288BD|Wrong module kind for the operation.") _ArrayAdd($xErrorCodes, "0x800288C5|Size may not exceed 64K.") _ArrayAdd($xErrorCodes, "0x800288C6|Duplicate ID in inheritance hierarchy.") _ArrayAdd($xErrorCodes, "0x800288CF|Incorrect inheritance depth in standard OLE hmember.") _ArrayAdd($xErrorCodes, "0x80028CA0|Type mismatch.") _ArrayAdd($xErrorCodes, "0x80028CA1|Invalid number of arguments.") _ArrayAdd($xErrorCodes, "0x80028CA2|I/O Error.") _ArrayAdd($xErrorCodes, "0x80028CA3|Error creating unique tmp file.") _ArrayAdd($xErrorCodes, "0x80029C4A|Error loading type library/DLL.") _ArrayAdd($xErrorCodes, "0x80029C83|Inconsistent property functions.") _ArrayAdd($xErrorCodes, "0x80029C84|Circular dependency between types/modules.") _ArrayAdd($xErrorCodes, "0x80030001|Unable to perform requested operation.") _ArrayAdd($xErrorCodes, "0x80030002|") _ArrayAdd($xErrorCodes, "0x80030003|The path ") _ArrayAdd($xErrorCodes, "0x80030004|There are insufficient resources to open another file.") _ArrayAdd($xErrorCodes, "0x80030005|Access Denied.") _ArrayAdd($xErrorCodes, "0x80030006|Attempted an operation on an invalid object.") _ArrayAdd($xErrorCodes, "0x80030008|There is insufficient memory available to complete operation.") _ArrayAdd($xErrorCodes, "0x80030009|Invalid pointer error.") _ArrayAdd($xErrorCodes, "0x80030012|There are no more entries to return.") _ArrayAdd($xErrorCodes, "0x80030013|Disk is write-protected.") _ArrayAdd($xErrorCodes, "0x80030019|An error occurred during a seek operation.") _ArrayAdd($xErrorCodes, "0x8003001D|A disk error occurred during a write operation.") _ArrayAdd($xErrorCodes, "0x8003001E|A disk error occurred during a read operation.") _ArrayAdd($xErrorCodes, "0x80030020|A share violation has occurred.") _ArrayAdd($xErrorCodes, "0x80030021|A lock violation has occurred.") _ArrayAdd($xErrorCodes, "0x80030050|") _ArrayAdd($xErrorCodes, "0x80030057|Invalid parameter error.") _ArrayAdd($xErrorCodes, "0x80030070|There is insufficient disk space to complete operation.") _ArrayAdd($xErrorCodes, "0x800300F0|Illegal write of non-simple property to simple property set.") _ArrayAdd($xErrorCodes, "0x800300FA|An API call exited abnormally.") _ArrayAdd($xErrorCodes, "0x800300FB|The file ") _ArrayAdd($xErrorCodes, "0x800300FC|The name ") _ArrayAdd($xErrorCodes, "0x800300FD|An unexpected error occurred.") _ArrayAdd($xErrorCodes, "0x800300FE|That function is not implemented.") _ArrayAdd($xErrorCodes, "0x800300FF|Invalid flag error.") _ArrayAdd($xErrorCodes, "0x80030100|Attempted to use an object that is busy.") _ArrayAdd($xErrorCodes, "0x80030101|The storage has been changed since the last commit.") _ArrayAdd($xErrorCodes, "0x80030102|Attempted to use an object that has ceased to exist.") _ArrayAdd($xErrorCodes, "0x80030103|Can't save.") _ArrayAdd($xErrorCodes, "0x80030104|The compound file ") _ArrayAdd($xErrorCodes, "0x80030105|The compound file ") _ArrayAdd($xErrorCodes, "0x80030106|Share.exe or equivalent is required for operation.") _ArrayAdd($xErrorCodes, "0x80030107|Illegal operation called on non-file based storage.") _ArrayAdd($xErrorCodes, "0x80030108|Illegal operation called on object with extant marshallings.") _ArrayAdd($xErrorCodes, "0x80030109|The docfile has been corrupted.") _ArrayAdd($xErrorCodes, "0x80030110|OLE32.DLL has been loaded at the wrong address.") _ArrayAdd($xErrorCodes, "0x80030201|The file download was aborted abnormally. The file is incomplete.") _ArrayAdd($xErrorCodes, "0x80030202|The file download has been terminated.") _ArrayAdd($xErrorCodes, "0x80040000|Invalid OLEVERB structure.") _ArrayAdd($xErrorCodes, "0x80040001|Invalid advise flags.") _ArrayAdd($xErrorCodes, "0x80040002|Can't enumerate anymore, because the associated data is missing.") _ArrayAdd($xErrorCodes, "0x80040003|This implementation doesn't take advises.") _ArrayAdd($xErrorCodes, "0x80040004|There is no connection for this connection ID.") _ArrayAdd($xErrorCodes, "0x80040005|Need to run the object to perform this operation.") _ArrayAdd($xErrorCodes, "0x80040006|There is no cache to operate on.") _ArrayAdd($xErrorCodes, "0x80040007|Uninitialized object.") _ArrayAdd($xErrorCodes, "0x80040008|Linked object's source class has changed.") _ArrayAdd($xErrorCodes, "0x80040009|Not able to get the moniker of the object.") _ArrayAdd($xErrorCodes, "0x8004000A|Not able to bind to the source.") _ArrayAdd($xErrorCodes, "0x8004000B|Object is static; operation not allowed.") _ArrayAdd($xErrorCodes, "0x8004000C|User cancelled out of save dialog.") _ArrayAdd($xErrorCodes, "0x8004000D|Invalid rectangle.") _ArrayAdd($xErrorCodes, "0x8004000E|compobj.dll is too old for the ole2.dll initialized.") _ArrayAdd($xErrorCodes, "0x8004000F|Invalid window handle.") _ArrayAdd($xErrorCodes, "0x80040010|Object is not in any of the inplace active states.") _ArrayAdd($xErrorCodes, "0x80040011|Not able to convert object.") _ArrayAdd($xErrorCodes, "0x80040012|Not able to perform the operation because object is not given storage yet.") _ArrayAdd($xErrorCodes, "0x80040064|Invalid FORMATETC structure.") _ArrayAdd($xErrorCodes, "0x80040065|Invalid DVTARGETDEVICE structure.") _ArrayAdd($xErrorCodes, "0x80040066|Invalid STDGMEDIUM structure.") _ArrayAdd($xErrorCodes, "0x80040067|Invalid STATDATA structure.") _ArrayAdd($xErrorCodes, "0x80040068|Invalid lindex.") _ArrayAdd($xErrorCodes, "0x80040069|Invalid tymed.") _ArrayAdd($xErrorCodes, "0x8004006A|Invalid clipboard format.") _ArrayAdd($xErrorCodes, "0x8004006B|Invalid aspect(s).") _ArrayAdd($xErrorCodes, "0x8004006C|tdSize parameter of the DVTARGETDEVICE structure is invalid.") _ArrayAdd($xErrorCodes, "0x8004006D|Object doesn't support IViewObject interface.") _ArrayAdd($xErrorCodes, "0x80040100|Trying to revoke a drop target that has not been registered.") _ArrayAdd($xErrorCodes, "0x80040101|This window has already been registered as a drop target.") _ArrayAdd($xErrorCodes, "0x80040102|Invalid window handle.") _ArrayAdd($xErrorCodes, "0x80040110|Class does not support aggregation (or class object is remote).") _ArrayAdd($xErrorCodes, "0x80040111|ClassFactory cannot supply requested class.") _ArrayAdd($xErrorCodes, "0x80040140|Error drawing view.") _ArrayAdd($xErrorCodes, "0x80040150|Could not read key from registry.") _ArrayAdd($xErrorCodes, "0x80040151|Could not write key to registry.") _ArrayAdd($xErrorCodes, "0x80040152|Could not find the key in the registry.") _ArrayAdd($xErrorCodes, "0x80040153|Invalid value for registry.") _ArrayAdd($xErrorCodes, "0x80040154|Class not registered.") _ArrayAdd($xErrorCodes, "0x80040155|Interface not registered.") _ArrayAdd($xErrorCodes, "0x80040170|Cache not updated.") _ArrayAdd($xErrorCodes, "0x80040180|No verbs for OLE object.") _ArrayAdd($xErrorCodes, "0x80040181|Invalid verb for OLE object.") _ArrayAdd($xErrorCodes, "0x800401A0|Undo is not available.") _ArrayAdd($xErrorCodes, "0x800401A1|Space for tools is not available.") _ArrayAdd($xErrorCodes, "0x800401C0|OLESTREAM Get method failed.") _ArrayAdd($xErrorCodes, "0x800401C1|OLESTREAM Put method failed.") _ArrayAdd($xErrorCodes, "0x800401C2|Contents of the OLESTREAM not in correct format.") _ArrayAdd($xErrorCodes, "0x800401C3|There was an error in a Windows GDI call while converting the bitmap to a DIB.") _ArrayAdd($xErrorCodes, "0x800401C4|Contents of the IStorage not in correct format.") _ArrayAdd($xErrorCodes, "0x800401C5|Contents of IStorage is missing one of the standard streams.") _ArrayAdd($xErrorCodes, "0x800401C6|There was an error in a Windows GDI call while converting the DIB to a bitmap.") _ArrayAdd($xErrorCodes, "0x800401D0|OpenClipboard Failed.") _ArrayAdd($xErrorCodes, "0x800401D1|EmptyClipboard Failed.") _ArrayAdd($xErrorCodes, "0x800401D2|SetClipboard Failed.") _ArrayAdd($xErrorCodes, "0x800401D3|Data on clipboard is invalid.") _ArrayAdd($xErrorCodes, "0x800401D4|CloseClipboard Failed.") _ArrayAdd($xErrorCodes, "0x800401E0|Moniker needs to be connected manually.") _ArrayAdd($xErrorCodes, "0x800401E1|Operation exceeded deadline.") _ArrayAdd($xErrorCodes, "0x800401E2|Moniker needs to be generic.") _ArrayAdd($xErrorCodes, "0x800401E3|Operation unavailable.") _ArrayAdd($xErrorCodes, "0x800401E4|Invalid syntax.") _ArrayAdd($xErrorCodes, "0x800401E5|No object for moniker.") _ArrayAdd($xErrorCodes, "0x800401E6|Bad extension for file.") _ArrayAdd($xErrorCodes, "0x800401E7|Intermediate operation failed.") _ArrayAdd($xErrorCodes, "0x800401E8|Moniker is not bindable.") _ArrayAdd($xErrorCodes, "0x800401E9|Moniker is not bound.") _ArrayAdd($xErrorCodes, "0x800401EA|Moniker cannot open file.") _ArrayAdd($xErrorCodes, "0x800401EB|User input required for operation to succeed.") _ArrayAdd($xErrorCodes, "0x800401EC|Moniker class has no inverse.") _ArrayAdd($xErrorCodes, "0x800401ED|Moniker does not refer to storage.") _ArrayAdd($xErrorCodes, "0x800401EE|No common prefix.") _ArrayAdd($xErrorCodes, "0x800401EF|Moniker could not be enumerated.") _ArrayAdd($xErrorCodes, "0x800401F0|CoInitialize has not been called.") _ArrayAdd($xErrorCodes, "0x800401F1|CoInitialize has already been called.") _ArrayAdd($xErrorCodes, "0x800401F2|Class of object cannot be determined.") _ArrayAdd($xErrorCodes, "0x800401F3|Invalid class string.") _ArrayAdd($xErrorCodes, "0x800401F4|Invalid interface string.") _ArrayAdd($xErrorCodes, "0x800401F5|Application not found.") _ArrayAdd($xErrorCodes, "0x800401F6|Application cannot be run more than once.") _ArrayAdd($xErrorCodes, "0x800401F7|Some error in application program.") _ArrayAdd($xErrorCodes, "0x800401F8|DLL for class not found.") _ArrayAdd($xErrorCodes, "0x800401F9|Error in the DLL.") _ArrayAdd($xErrorCodes, "0x800401FA|Wrong OS or OS version for application.") _ArrayAdd($xErrorCodes, "0x800401FB|Object is not registered.") _ArrayAdd($xErrorCodes, "0x800401FC|Object is already registered.") _ArrayAdd($xErrorCodes, "0x800401FD|Object is not connected to server.") _ArrayAdd($xErrorCodes, "0x800401FE|Application was launched but it didn't register a class factory.") _ArrayAdd($xErrorCodes, "0x800401FF|Object has been released.") _ArrayAdd($xErrorCodes, "0x80041001|Failed") _ArrayAdd($xErrorCodes, "0x80041002|Not Found") _ArrayAdd($xErrorCodes, "0x80041003|Access Denied (user rights)") _ArrayAdd($xErrorCodes, "0x80041004|Provider Failure") _ArrayAdd($xErrorCodes, "0x80041005|Type Mismatch") _ArrayAdd($xErrorCodes, "0x80041006|Out Of Memory") _ArrayAdd($xErrorCodes, "0x80041007|Invalid Context") _ArrayAdd($xErrorCodes, "0x80041008|Invalid Parameter") _ArrayAdd($xErrorCodes, "0x80041009|Not Available") _ArrayAdd($xErrorCodes, "0x8004100A|Critical Error") _ArrayAdd($xErrorCodes, "0x8004100B|Invalid Stream") _ArrayAdd($xErrorCodes, "0x8004100C|Not Supported") _ArrayAdd($xErrorCodes, "0x8004100D|Invalid Superclass") _ArrayAdd($xErrorCodes, "0x8004100E|Invalid Namespace") _ArrayAdd($xErrorCodes, "0x8004100F|Invalid Object") _ArrayAdd($xErrorCodes, "0x80041010|Invalid Class") _ArrayAdd($xErrorCodes, "0x80041011|Provider Not Found") _ArrayAdd($xErrorCodes, "0x80041012|Invalid Provider Registration") _ArrayAdd($xErrorCodes, "0x80041013|Provider Load Failure") _ArrayAdd($xErrorCodes, "0x80041014|Initialization Failure") _ArrayAdd($xErrorCodes, "0x80041015|Transport Failure") _ArrayAdd($xErrorCodes, "0x80041016|Invalid Operation") _ArrayAdd($xErrorCodes, "0x80041017|Invalid Query") _ArrayAdd($xErrorCodes, "0x80041018|Invalid Query Type") _ArrayAdd($xErrorCodes, "0x80041019|Already Exists") _ArrayAdd($xErrorCodes, "0x8004101A|Override Not Allowed") _ArrayAdd($xErrorCodes, "0x8004101B|Propagated Qualifier") _ArrayAdd($xErrorCodes, "0x8004101C|Propagated Property") _ArrayAdd($xErrorCodes, "0x8004101D|Unexpected") _ArrayAdd($xErrorCodes, "0x8004101E|Illegal Operation") _ArrayAdd($xErrorCodes, "0x8004101F|Cannot Be Key") _ArrayAdd($xErrorCodes, "0x80041020|Incomplete Class") _ArrayAdd($xErrorCodes, "0x80041021|Invalid Syntax") _ArrayAdd($xErrorCodes, "0x80041022|Nondecorated Object") _ArrayAdd($xErrorCodes, "0x80041023|Read Only") _ArrayAdd($xErrorCodes, "0x80041024|Provider Not Capable") _ArrayAdd($xErrorCodes, "0x80041025|Class Has Children") _ArrayAdd($xErrorCodes, "0x80041026|Class Has Instances") _ArrayAdd($xErrorCodes, "0x80041027|Query Not Implemented") _ArrayAdd($xErrorCodes, "0x80041028|Illegal Null") _ArrayAdd($xErrorCodes, "0x80041029|Invalid Qualifier Type") _ArrayAdd($xErrorCodes, "0x8004102A|Invalid Property Type") _ArrayAdd($xErrorCodes, "0x8004102B|Value Out Of Range") _ArrayAdd($xErrorCodes, "0x8004102C|Cannot Be Singleton") _ArrayAdd($xErrorCodes, "0x8004102D|Invalid Cim Type") _ArrayAdd($xErrorCodes, "0x8004102E|Invalid Method") _ArrayAdd($xErrorCodes, "0x8004102F|Invalid Method Parameters") _ArrayAdd($xErrorCodes, "0x80041030|System Property") _ArrayAdd($xErrorCodes, "0x80041031|Invalid Property") _ArrayAdd($xErrorCodes, "0x80041032|Call Cancelled") _ArrayAdd($xErrorCodes, "0x80041033|Shutting Down") _ArrayAdd($xErrorCodes, "0x80041034|Propagated Method") _ArrayAdd($xErrorCodes, "0x80041035|Unsupported Parameter") _ArrayAdd($xErrorCodes, "0x80041036|Missing Parameter Id") _ArrayAdd($xErrorCodes, "0x80041037|Invalid Parameter Id") _ArrayAdd($xErrorCodes, "0x80041038|Nonconsecutive Parameter Ids") _ArrayAdd($xErrorCodes, "0x80041039|Parameter Id On Retval") _ArrayAdd($xErrorCodes, "0x8004103A|Invalid Object Path") _ArrayAdd($xErrorCodes, "0x8004103B|Out Of Disk Space") _ArrayAdd($xErrorCodes, "0x8004103C|Buffer Too Small") _ArrayAdd($xErrorCodes, "0x8004103D|Unsupported Put Extension") _ArrayAdd($xErrorCodes, "0x8004103E|Unknown Object Type") _ArrayAdd($xErrorCodes, "0x8004103F|Unknown Packet Type") _ArrayAdd($xErrorCodes, "0x80041040|Marshal Version Mismatch") _ArrayAdd($xErrorCodes, "0x80041041|Marshal Invalid Signature") _ArrayAdd($xErrorCodes, "0x80041042|Invalid Qualifier") _ArrayAdd($xErrorCodes, "0x80041043|Invalid Duplicate Parameter") _ArrayAdd($xErrorCodes, "0x80041044|Too Much Data") _ArrayAdd($xErrorCodes, "0x80041045|Server Too Busy") _ArrayAdd($xErrorCodes, "0x80041046|Invalid Flavor") _ArrayAdd($xErrorCodes, "0x80041047|Circular Reference") _ArrayAdd($xErrorCodes, "0x80041048|Unsupported Class Update") _ArrayAdd($xErrorCodes, "0x80041049|Cannot Change Key Inheritance") _ArrayAdd($xErrorCodes, "0x80041050|Cannot Change Index Inheritance") _ArrayAdd($xErrorCodes, "0x80041051|Too Many Properties") _ArrayAdd($xErrorCodes, "0x80041052|Update Type Mismatch") _ArrayAdd($xErrorCodes, "0x80041053|Update Override Not Allowed") _ArrayAdd($xErrorCodes, "0x80041054|Update Propagated Method") _ArrayAdd($xErrorCodes, "0x80041055|Method Not Implemented") _ArrayAdd($xErrorCodes, "0x80041056|Method Disabled") _ArrayAdd($xErrorCodes, "0x80041064|User credentials cannot be used for local connections") _ArrayAdd($xErrorCodes, "0x8004106C|WMI is taking up too much memory") _ArrayAdd($xErrorCodes, "0x80042001|Wbemess E Registration Too Broad") _ArrayAdd($xErrorCodes, "0x80042002|Wbemess E Registration Too Precise") _ArrayAdd($xErrorCodes, "0x80070005|General access denied error (incorrect login).") _ArrayAdd($xErrorCodes, "0x80070006|Invalid handle.") _ArrayAdd($xErrorCodes, "0x8007000D|The Data is invalid.") _ArrayAdd($xErrorCodes, "0x8007000E|Ran out of memory.") _ArrayAdd($xErrorCodes, "0x80070057|One or more arguments are invalid.") _ArrayAdd($xErrorCodes, "0x800706BA|The RPC server is unavailable") _ArrayAdd($xErrorCodes, "0x80080001|Attempt to create a class object failed.") _ArrayAdd($xErrorCodes, "0x80080002|OLE service could not bind object.") _ArrayAdd($xErrorCodes, "0x80080003|RPC communication failed with OLE service.") _ArrayAdd($xErrorCodes, "0x80080004|Bad path to object.") _ArrayAdd($xErrorCodes, "0x80080005|Internal execution failure in the WMI Service.") _ArrayAdd($xErrorCodes, "0x80080006|OLE service could not communicate with the object server.") _ArrayAdd($xErrorCodes, "0x80080007|Moniker path could not be normalized.") _ArrayAdd($xErrorCodes, "0x80080008|Object server is stopping when OLE service contacts it.") _ArrayAdd($xErrorCodes, "0x80080009|An invalid root block pointer was specified.") _ArrayAdd($xErrorCodes, "0x80080010|An allocation chain contained an invalid link pointer.") _ArrayAdd($xErrorCodes, "0x80080011|The requested allocation size was too large.") _ArrayAdd($xErrorCodes, "0x80090001|Bad UID.") _ArrayAdd($xErrorCodes, "0x80090002|Bad Hash.") _ArrayAdd($xErrorCodes, "0x80090003|Bad Key.") _ArrayAdd($xErrorCodes, "0x80090004|Bad Length.") _ArrayAdd($xErrorCodes, "0x80090005|Bad Data.") _ArrayAdd($xErrorCodes, "0x80090006|Invalid Signature.") _ArrayAdd($xErrorCodes, "0x80090007|Bad Version of provider.") _ArrayAdd($xErrorCodes, "0x80090008|Invalid algorithm specified.") _ArrayAdd($xErrorCodes, "0x80090009|Invalid flags specified.") _ArrayAdd($xErrorCodes, "0x8009000A|Invalid type specified.") _ArrayAdd($xErrorCodes, "0x8009000B|Key not valid for use in specified state.") _ArrayAdd($xErrorCodes, "0x8009000C|Hash not valid for use in specified state.") _ArrayAdd($xErrorCodes, "0x8009000D|Key does not exist.") _ArrayAdd($xErrorCodes, "0x8009000E|Insufficient memory available for the operation.") _ArrayAdd($xErrorCodes, "0x8009000F|Object already exists.") _ArrayAdd($xErrorCodes, "0x80090010|Access denied.") _ArrayAdd($xErrorCodes, "0x80090011|Object was not found.") _ArrayAdd($xErrorCodes, "0x80090012|Data already encrypted.") _ArrayAdd($xErrorCodes, "0x80090013|Invalid provider specified.") _ArrayAdd($xErrorCodes, "0x80090014|Invalid provider type specified.") _ArrayAdd($xErrorCodes, "0x80090015|Provider's public key is invalid.") _ArrayAdd($xErrorCodes, "0x80090016|Keyset does not exist.") _ArrayAdd($xErrorCodes, "0x80090017|Provider type not defined.") _ArrayAdd($xErrorCodes, "0x80090018|Provider type as registered is invalid.") _ArrayAdd($xErrorCodes, "0x80090019|The keyset is not defined.") _ArrayAdd($xErrorCodes, "0x8009001A|Keyset as registered is invalid.") _ArrayAdd($xErrorCodes, "0x8009001B|Provider type does not match registered value.") _ArrayAdd($xErrorCodes, "0x8009001C|The digital signature file is corrupt.") _ArrayAdd($xErrorCodes, "0x8009001D|Provider DLL failed to initialize correctly.") _ArrayAdd($xErrorCodes, "0x8009001E|Provider DLL could not be found.") _ArrayAdd($xErrorCodes, "0x8009001F|The Keyset parameter is invalid.") _ArrayAdd($xErrorCodes, "0x80090020|An internal error occurred.") _ArrayAdd($xErrorCodes, "0x80090021|A base error occurred.") _ArrayAdd($xErrorCodes, "0x800B0001|The specified trust provider is not known on this system.") _ArrayAdd($xErrorCodes, "0x800B0002|The trust verification action specified is not supported by the specified trust provider.") _ArrayAdd($xErrorCodes, "0x800B0003|The form specified for the subject is not one supported or known by the specified trust provider.") _ArrayAdd($xErrorCodes, "0x800B0004|The subject is not trusted for the specified action.") _ArrayAdd($xErrorCodes, "0x800B0005|Error due to problem in ASN.1 encoding process.") _ArrayAdd($xErrorCodes, "0x800B0006|Error due to problem in ASN.1 decoding process.") _ArrayAdd($xErrorCodes, "0x800B0007|Reading / writing Extensions where Attributes are appropriate, and visa versa.") _ArrayAdd($xErrorCodes, "0x800B0008|Unspecified cryptographic failure.") _ArrayAdd($xErrorCodes, "0x800B0009|The size of the data could not be determined.") _ArrayAdd($xErrorCodes, "0x800B000A|The size of the indefinite-sized data could not be determined.") _ArrayAdd($xErrorCodes, "0x800B000B|This object does not read and write self-sizing data.") _ArrayAdd($xErrorCodes, "0x800B0100|No signature was present in the subject.") _ArrayAdd($xErrorCodes, "0x800B0101|A required certificate is not within its validity period.") _ArrayAdd($xErrorCodes, "0x800B0102|The validity periods of the certification chain do not nest correctly.") _ArrayAdd($xErrorCodes, "0x800B0103|A certificate that can only be used as an end-entity is being used as a CA or visa versa.") _ArrayAdd($xErrorCodes, "0x800B0104|A path length constraint in the certification chain has been violated.") _ArrayAdd($xErrorCodes, "0x800B0105|An extension of unknown type that is labeled 'critical' is present in a certificate.") _ArrayAdd($xErrorCodes, "0x800B0106|A certificate is being used for a purpose other than that for which it is permitted.") _ArrayAdd($xErrorCodes, "0x800B0107|A parent of a given certificate in fact did not issue that child certificate.") _ArrayAdd($xErrorCodes, "0x800B0108|A certificate is missing or has an empty value for an important field, such as a subject or issuer name.") _ArrayAdd($xErrorCodes, "0x800B0109|A certification chain processed correctly, but terminated in a root certificate which isn't trusted by the trust provider.") _ArrayAdd($xErrorCodes, "0x800B010A|A chain of certs didn't chain as they should in a certain application of chaining.") EndIf For $x7 = 0 To (UBound($xErrorCodes) - 1) If $tError = $xErrorCodes[$x7][0] Then Return $xErrorCodes[$x7][1] Next Return "Error code [" & $tError & "] Not Found." EndFunc