[Source Code]Robocrosshair
[Source Code]Robocrosshair
link: http://www.mpgh.net/forum/201-allian...crosshair.html
part:1
part:1
Code:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("RoboCrosshair by:MPGF", 293, 39, 0, 0)
GUISetIcon("C:\Users\kamyas\Desktop\deathmatch classic.ico", -1)
$Label1 = GUICtrlCreateLabel("Press END key to exit", 4, -1, 135, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetBkColor(-1, 0xFF0000)
$Label2 = GUICtrlCreateLabel("Press HOME key to change colors", 4, 17, 204, 17)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlSetBkColor(-1, 0x00FF00)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Obfuscator_Ignore_Funcs=_XH_GUIClicked
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 $TA****TEMTIME = "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;" & $TA****TEMTIME
GLOBAL CONST $TAGNMDATETIMEFORMAT = $TAGNMHDR & ";ptr Format;" & $TA****TEMTIME & ";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;" & $TA****TEMTIME
GLOBAL CONST $TAGNMDATETIMESTRING = $TAGNMHDR & ";ptr UserString;" & $TA****TEMTIME & ";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 $TAGGDIPBITMAPDATA = "uint Width;uint Height;int Stride;int Format;ptr Scan0;uint_ptr Reserved"
GLOBAL CONST $TAGGDIPENCODERPARAM = "byte GUID[16];ulong Count;ulong Type;ptr Values"
GLOBAL CONST $TAGGDIPENCODERPARAMS = "uint Count;byte Params[1]"
GLOBAL CONST $TAGGDIPRECTF = "float X;float Y;float Width;float Height"
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;" & $TA****TEMTIME & ";" & $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 & ";" & $TA****TEMTIME & ";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 $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;" & $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;align;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 $TAGBITMAPINFO = "struct;dword Size;long Width;long Height;word Planes;word BitCount;dword Compression;dword SizeImage;" & "long XPelsPerMeter;long YPelsPerMeter;dword ClrUsed;dword ClrImportant;endstruct;dword RGBQuad"
GLOBAL CONST $TAGBLENDFUNCTION = "byte Op;byte Flags;byte Alpha;byte Format"
GLOBAL CONST $TAGGUID = "ulong Data1;ushort Data2;ushort Data3;byte Data4[8]"
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 = "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]"
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 $FC_NOOVERWRITE = 0
GLOBAL CONST $FC_OVERWRITE = 1
GLOBAL CONST $FT_MODIFIED = 0
GLOBAL CONST $FT_CREATED = 1
GLOBAL CONST $FT_ACCESSED = 2
GLOBAL CONST $FO_READ = 0
GLOBAL CONST $FO_APPEND = 1
GLOBAL CONST $FO_OVERWRITE = 2
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 $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 = 1
GLOBAL CONST $FILE_ATTRIBUTE_HIDDEN = 2
GLOBAL CONST $FILE_ATTRIBUTE_SYSTEM = 4
GLOBAL CONST $FILE_ATTRIBUTE_DIRECTORY = 16
GLOBAL CONST $FILE_ATTRIBUTE_ARCHIVE = 32
GLOBAL CONST $FILE_ATTRIBUTE_DEVICE = 64
GLOBAL CONST $FILE_ATTRIBUTE_NORMAL = 128
GLOBAL CONST $FILE_ATTRIBUTE_TEMPORARY = 256
GLOBAL CONST $FILE_ATTRIBUTE_SPARSE_FILE = 512
GLOBAL CONST $FILE_ATTRIBUTE_REPARSE_POINT = 1024
GLOBAL CONST $FILE_ATTRIBUTE_COMPRESSED = 2048
GLOBAL CONST $FILE_ATTRIBUTE_OFFLINE = 4096
GLOBAL CONST $FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = 8192
GLOBAL CONST $FILE_ATTRIBUTE_ENCRYPTED = 16384
GLOBAL CONST $FILE_SHARE_READ = 1
GLOBAL CONST $FILE_SHARE_WRITE = 2
GLOBAL CONST $FILE_SHARE_DELETE = 4
GLOBAL CONST $GENERIC_ALL = 268435456
GLOBAL CONST $GENERIC_EXECUTE = 536870912
GLOBAL CONST $GENERIC_WRITE = 1073741824
GLOBAL CONST $GENERIC_READ = -2147483648
GLOBAL CONST $ERROR_NO_TOKEN = 1008
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_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_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_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_UNSOLICITED_INPUT_NAME = "SeUnsolicitedInputPrivilege"
GLOBAL CONST $SE_UNDOCK_NAME = "SeUndockPrivilege"
GLOBAL CONST $SE_PRIVILEGE_ENABLED_BY_DEFAULT = 1
GLOBAL CONST $SE_PRIVILEGE_ENABLED = 2
GLOBAL CONST $SE_PRIVILEGE_REMOVED = 4
GLOBAL CONST $SE_PRIVILEGE_USED_FOR_ACCESS = -2147483648
GLOBAL CONST $SE_GROUP_MANDATORY = 1
GLOBAL CONST $SE_GROUP_ENABLED_BY_DEFAULT = 2
GLOBAL CONST $SE_GROUP_ENABLED = 4
GLOBAL CONST $SE_GROUP_OWNER = 8
GLOBAL CONST $SE_GROUP_USE_FOR_DENY_ONLY = 16
GLOBAL CONST $SE_GROUP_INTEGRITY = 32
GLOBAL CONST $SE_GROUP_INTEGRITY_ENABLED = 64
GLOBAL CONST $SE_GROUP_RESOURCE = 536870912
GLOBAL CONST $SE_GROUP_LOGON_ID = -1073741824
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 = 1
GLOBAL CONST $TOKEN_DUPLICATE = 2
GLOBAL CONST $TOKEN_IMPERSONATE = 4
GLOBAL CONST $TOKEN_QUERY = 8
GLOBAL CONST $TOKEN_QUERY_SOURCE = 16
GLOBAL CONST $TOKEN_ADJUST_PRIVILEGES = 32
GLOBAL CONST $TOKEN_ADJUST_GROUPS = 64
GLOBAL CONST $TOKEN_ADJUST_DEFAULT = 128
GLOBAL CONST $TOKEN_ADJUST_SESSIONID = 256
GLOBAL CONST $TOKEN_ALL_ACCESS = 983551
GLOBAL CONST $TOKEN_READ = 131080
GLOBAL CONST $TOKEN_WRITE = 131296
GLOBAL CONST $TOKEN_EXECUTE = 131072
GLOBAL CONST $TOKEN_HAS_TRAVERSE_PRIVILEGE = 1
GLOBAL CONST $TOKEN_HAS_BACKUP_PRIVILEGE = 2
GLOBAL CONST $TOKEN_HAS_RESTORE_PRIVILEGE = 4
GLOBAL CONST $TOKEN_HAS_ADMIN_GROUP = 8
GLOBAL CONST $TOKEN_IS_RESTRICTED = 16
GLOBAL CONST $TOKEN_SESSION_NOT_REFERENCED = 32
GLOBAL CONST $TOKEN_SANDBOX_INERT = 64
GLOBAL CONST $TOKEN_HAS_IMPERSONATE_PRIVILEGE = 128
GLOBAL CONST $RIGHTS_DELETE = 65536
GLOBAL CONST $READ_CONTROL = 131072
GLOBAL CONST $WRITE_DAC = 262144
GLOBAL CONST $WRITE_OWNER = 524288
GLOBAL CONST $SYNCHRONIZE = 1048576
GLOBAL CONST $STANDARD_RIGHTS_REQUIRED = 983040
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 = 2031616
GLOBAL CONST $SPECIFIC_RIGHTS_ALL = 65535
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 = 1
GLOBAL CONST $LOGON_NETCREDENTIALS_ONLY = 2
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"
FUNC _WINAPI_GETLASTERROR ( $CURERR = @error , $CUREXT = @extendED )
LOCAL $ARESULT = DLLCALL ( "kernel32.dll" , "dword" , "GetLastError" )
RETURN SETERROR ( $CURERR , $CUREXT , $ARESULT [ 0 ] )
ENDFUNC
FUNC _WINAPI_SETLASTERROR ( $IERRCODE , $CURERR = @error , $CUREXT = @extendED )
DLLCALL ( "kernel32.dll" , "none" , "SetLastError" , "dword" , $IERRCODE )
RETURN SETERROR ( $CURERR , $CUREXT )
ENDFUNC
FUNC _SECURITY__ADJUSTTOKENPRIVILEGES ( $HTOKEN , $FDISABLEALL , $PNEWSTATE , $IBUFFERLEN , $PPREVSTATE = 0 , $PREQUIRED = 0 )
LOCAL $ACALL = DLLCALL ( "advapi32.dll" , "bool" , "AdjustTokenPrivileges" , "handle" , $HTOKEN , "bool" , $FDISABLEALL , "struct*" , $PNEWSTATE , "dword" , $IBUFFERLEN , "struct*" , $PPREVSTATE , "struct*" , $PREQUIRED )
IF @error THEN RETURN SETERROR ( 1 , @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 ( 1 , @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 ( 1 , @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 ( 1 , @extendED , 0 )
LOCAL $ACALL = DLLCALL ( "advapi32.dll" , "dword" , "GetLengthSid" , "struct*" , $PSID )
IF @error THEN RETURN SETERROR ( 2 , @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 ( 1 , @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 ( 2 , @extendED , 0 )
RETURN $TBUFFER
ENDFUNC
FUNC _SECURITY__IMPERSONATESELF ( $ILEVEL = $SECURITYIMPERSONATION )
LOCAL $ACALL = DLLCALL ( "advapi32.dll" , "bool" , "ImpersonateSelf" , "int" , $ILEVEL )
IF @error THEN RETURN SETERROR ( 1 , @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 ( 1 , @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 ( 1 , @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 ( 1 , @extendED , 0 )
LOCAL $TYPESYSTEM = "ptr"
IF $SSYSTEM THEN $TYPESYSTEM = "wstr"
LOCAL $ACALL = DLLCALL ( "advapi32.dll" , "bool" , "LookupAccountSidW" , $TYPESYSTEM , $SSYSTEM , "struct*" , $PSID , "wstr" , "" , "dword*" , 65536 , "wstr" , "" , "dword*" , 65536 , "int*" , 0 )
IF @error OR NOT $ACALL [ 0 ] THEN RETURN SETERROR ( 2 , @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 ( 1 , @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 ( 1 , @extendED , 0 )
RETURN $ACALL [ 3 ]
ENDFUNC
FUNC _SECURITY__OPENTHREADTOKEN ( $IACCESS , $HTHREAD = 0 , $FOPENASSELF = FALSE )
IF $HTHREAD = 0 THEN $HTHREAD = _WINAPI_GETCURRENTTHREAD ( )
IF @error THEN RETURN SETERROR ( 1 , @extendED , 0 )
LOCAL $ACALL = DLLCALL ( "advapi32.dll" , "bool" , "OpenThreadToken" , "handle" , $HTHREAD , "dword" , $IACCESS , "bool" , $FOPENASSELF , "handle*" , 0 )
IF @error OR NOT $ACALL [ 0 ] THEN RETURN SETERROR ( 2 , @extendED , 0 )
RETURN $ACALL [ 4 ]
ENDFUNC
FUNC _SECURITY__OPENTHREADTOKENEX ( $IACCESS , $HTHREAD = 0 , $FOPENASSELF = FALSE )
LOCAL $HTOKEN = _SECURITY__OPENTHREADTOKEN ( $IACCESS , $HTHREAD , $FOPENASSELF )
IF $HTOKEN = 0 THEN
IF _WINAPI_GETLASTERROR ( ) <> $ERROR_NO_TOKEN THEN RETURN SETERROR ( 3 , _WINAPI_GETLASTERROR ( ) , 0 )
IF NOT _SECURITY__IMPERSONATESELF ( ) THEN RETURN SETERROR ( 1 , _WINAPI_GETLASTERROR ( ) , 0 )
$HTOKEN = _SECURITY__OPENTHREADTOKEN ( $IACCESS , $HTHREAD , $FOPENASSELF )
IF $HTOKEN = 0 THEN RETURN SETERROR ( 2 , _WINAPI_GETLASTERROR ( ) , 0 )
ENDIF
RETURN $HTOKEN
ENDFUNC
FUNC _SECURITY__SETPRIVILEGE ( $HTOKEN , $SPRIVILEGE , $FENABLE )
LOCAL $ILUID = _SECURITY__LOOKUPPRIVILEGEVALUE ( "" , $SPRIVILEGE )
IF $ILUID = 0 THEN RETURN SETERROR ( 1 , @extendED , FALSE )
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 $FENABLE 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 ( 1 , @extendED , FALSE )
RETURN TRUE
ENDFUNC
FUNC _SECURITY__SIDTOSTRINGSID ( $PSID )
IF NOT _SECURITY__ISVALIDSID ( $PSID ) THEN RETURN SETERROR ( 1 , 0 , "" )
LOCAL $ACALL = DLLCALL ( "advapi32.dll" , "bool" , "ConvertSidToStringSidW" , "struct*" , $PSID , "ptr*" , 0 )
IF @error OR NOT $ACALL [ 0 ] THEN RETURN SETERROR ( 2 , @extendED , "" )
LOCAL $PSTRINGSID = $ACALL [ 2 ]
LOCAL $SSID = DLLSTRUCTGETDATA ( DLLSTRUCTCREATE ( "wchar Text[" & _WINAPI_STRINGLENW ( $PSTRINGSID ) + 1 & "]" , $PSTRINGSID ) , "Text" )
_WINAPI_LOCALFREE ( $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 ( 1 , @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" ) )
_WINAPI_LOCALFREE ( $PSID )
RETURN $TSID
ENDFUNC
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
GLOBAL $__GAINPROCESS_WINAPI [ 64 ] [ 2 ] = [ [ 0 , 0 ] ]
GLOBAL $__GAWINLIST_WINAPI [ 64 ] [ 2 ] = [ [ 0 , 0 ] ]
GLOBAL CONST $__WINAPICONSTANT_WM_SETFONT = 48
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
GLOBAL CONST $__WINAPICONSTANT_FORMAT_MESSAGE_ALLOCATE_BUFFER = 256
GLOBAL CONST $__WINAPICONSTANT_FORMAT_MESSAGE_FROM_SYSTEM = 4096
GLOBAL CONST $__WINAPICONSTANT_LOGPIXELSX = 88
GLOBAL CONST $__WINAPICONSTANT_LOGPIXELSY = 90
GLOBAL CONST $HGDI_ERROR = PTR ( - 1 )
GLOBAL CONST $INVALID_HANDLE_VALUE = PTR ( - 1 )
GLOBAL CONST $CLR_INVALID = - 1
GLOBAL CONST $__WINAPICONSTANT_FLASHW_CAPTION = 1
GLOBAL CONST $__WINAPICONSTANT_FLASHW_TRAY = 2
GLOBAL CONST $__WINAPICONSTANT_FLASHW_TIMER = 4
GLOBAL CONST $__WINAPICONSTANT_FLASHW_TIMERNOFG = 12
GLOBAL CONST $__WINAPICONSTANT_GW_HWNDNEXT = 2
GLOBAL CONST $__WINAPICONSTANT_GW_CHILD = 5
GLOBAL CONST $__WINAPICONSTANT_DI_MASK = 1
GLOBAL CONST $__WINAPICONSTANT_DI_IMAGE = 2
GLOBAL CONST $__WINAPICONSTANT_DI_NORMAL = 3
GLOBAL CONST $__WINAPICONSTANT_DI_COMPAT = 4
GLOBAL CONST $__WINAPICONSTANT_DI_DEFAULTSIZE = 8
GLOBAL CONST $__WINAPICONSTANT_DI_NOMIRROR = 16
GLOBAL CONST $__WINAPICONSTANT_DISPLAY_DEVICE_ATTACHED_TO_DESKTOP = 1
GLOBAL CONST $__WINAPICONSTANT_DISPLAY_DEVICE_PRIMARY_DEVICE = 4
GLOBAL CONST $__WINAPICONSTANT_DISPLAY_DEVICE_MIRRORING_DRIVER = 8
GLOBAL CONST $__WINAPICONSTANT_DISPLAY_DEVICE_VGA_COMPATIBLE = 16
GLOBAL CONST $__WINAPICONSTANT_DISPLAY_DEVICE_REMOVABLE = 32
GLOBAL CONST $__WINAPICONSTANT_DISPLAY_DEVICE_MODESPRUNED = 134217728
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
GLOBAL CONST $MB_PRECOMPOSED = 1
GLOBAL CONST $MB_COMPOSITE = 2
GLOBAL CONST $MB_USEGLYPHCHARS = 4
GLOBAL CONST $ULW_ALPHA = 2
GLOBAL CONST $ULW_COLORKEY = 1
GLOBAL CONST $ULW_OPAQUE = 4
GLOBAL CONST $WH_CALLWNDPROC = 4
GLOBAL CONST $WH_CALLWNDPROCRET = 12
GLOBAL CONST $WH_CBT = 5
GLOBAL CONST $WH_DEBUG = 9
GLOBAL CONST $WH_FOREGROUNDIDLE = 11
GLOBAL CONST $WH_GETMESSAGE = 3
GLOBAL CONST $WH_JOURNALPLAYBACK = 1
GLOBAL CONST $WH_JOURNALRECORD = 0
GLOBAL CONST $WH_KEYBOARD = 2
GLOBAL CONST $WH_KEYBOARD_LL = 13
GLOBAL CONST $WH_MOUSE = 7
GLOBAL CONST $WH_MOUSE_LL = 14
GLOBAL CONST $WH_MSGFILTER = - 1
GLOBAL CONST $WH_SHELL = 10
GLOBAL CONST $WH_SYSMSGFILTER = 6
GLOBAL CONST $WPF_ASYNCWINDOWPLACEMENT = 4
GLOBAL CONST $WPF_RESTORETOMAXIMIZED = 2
GLOBAL CONST $WPF_SETMINPOSITION = 1
GLOBAL CONST $KF_EXTENDED = 256
GLOBAL CONST $KF_ALTDOWN = 8192
GLOBAL CONST $KF_UP = 32768
GLOBAL CONST $LLKHF_EXTENDED = BITSHIFT ( $KF_EXTENDED , 8 )
GLOBAL CONST $LLKHF_INJECTED = 16
GLOBAL CONST $LLKHF_ALTDOWN = BITSHIFT ( $KF_ALTDOWN , 8 )
GLOBAL CONST $LLKHF_UP = BITSHIFT ( $KF_UP , 8 )
GLOBAL CONST $OFN_ALLOWMULTISELECT = 512
GLOBAL CONST $OFN_CREATEPROMPT = 8192
GLOBAL CONST $OFN_DONTADDTORECENT = 33554432
GLOBAL CONST $OFN_ENABLEHOOK = 32
GLOBAL CONST $OFN_ENABLEINCLUDENOTIFY = 4194304
GLOBAL CONST $OFN_ENABLESIZING = 8388608
GLOBAL CONST $OFN_ENABLETEMPLATE = 64
GLOBAL CONST $OFN_ENABLETEMPLATEHANDLE = 128
GLOBAL CONST $OFN_EXPLORER = 524288
GLOBAL CONST $OFN_EXTENSIONDIFFERENT = 1024
GLOBAL CONST $OFN_FILEMUSTEXIST = 4096
GLOBAL CONST $OFN_FORCESHOWHIDDEN = 268435456
GLOBAL CONST $OFN_HIDEREADONLY = 4
GLOBAL CONST $OFN_LONGNAMES = 2097152
GLOBAL CONST $OFN_NOCHANGEDIR = 8
GLOBAL CONST $OFN_NODEREFERENCELINKS = 1048576
GLOBAL CONST $OFN_NOLONGNAMES = 262144
GLOBAL CONST $OFN_NONETWORKBUTTON = 131072
GLOBAL CONST $OFN_NOREADONLYRETURN = 32768
GLOBAL CONST $OFN_NOTESTFILECREATE = 65536
GLOBAL CONST $OFN_NOVALIDATE = 256
GLOBAL CONST $OFN_OVERWRITEPROMPT = 2
GLOBAL CONST $OFN_PATHMUSTEXIST = 2048
GLOBAL CONST $OFN_READONLY = 1
GLOBAL CONST $OFN_SHAREAWARE = 16384
GLOBAL CONST $OFN_SHOWHELP = 16
GLOBAL CONST $OFN_EX_NOPLACESBAR = 1
GLOBAL CONST $TMPF_FIXED_PITCH = 1
GLOBAL CONST $TMPF_VECTOR = 2
GLOBAL CONST $TMPF_TRUETYPE = 4
GLOBAL CONST $TMPF_DEVICE = 8
GLOBAL CONST $DUPLICATE_CLOSE_SOURCE = 1
GLOBAL CONST $DUPLICATE_SAME_ACCESS = 2
GLOBAL CONST $TAGCURSORINFO = "dword Size;dword Flags;handle hCursor;" & $TAGPOINT
GLOBAL CONST $TAGDISPLAY_DEVICE = "dword Size;wchar Name[32];wchar String[128];dword Flags;wchar ID[128];wchar Key[128]"
GLOBAL CONST $TAGFLASHWINFO = "uint Size;hwnd hWnd;dword Flags;uint Count;dword TimeOut"
GLOBAL CONST $TAGICONINFO = "bool Icon;dword XHotSpot;dword YHotSpot;handle hMask;handle hColor"
GLOBAL CONST $TAGMEMORYSTATUSEX = "dword Length;dword MemoryLoad;" & "uint64 TotalPhys;uint64 AvailPhys;uint64 TotalPageFile;uint64 AvailPageFile;" & "uint64 TotalVirtual;uint64 AvailVirtual;uint64 AvailExtendedVirtual"
FUNC _WINAPI_ATTACHCONSOLE ( $IPROCESSID = - 1 )
LOCAL $ARESULT = DLLCALL ( "kernel32.dll" , "bool" , "AttachConsole" , "dword" , $IPROCESSID )
IF @error THEN RETURN SETERROR ( @error , @extendED , FALSE )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_ATTACHTHREADINPUT ( $IATTACH , $IATTACHTO , $FATTACH )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "bool" , "AttachThreadInput" , "dword" , $IATTACH , "dword" , $IATTACHTO , "bool" , $FATTACH )
IF @error THEN RETURN SETERROR ( @error , @extendED , FALSE )
RETURN $ARESULT [ 0 ]
ENDFUNC
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_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_CALLNEXTHOOKEX ( $HHK , $ICODE , $WPARAM , $LPARAM )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "lresult" , "CallNextHookEx" , "handle" , $HHK , "int" , $ICODE , "wparam" , $WPARAM , "lparam" , $LPARAM )
IF @error THEN RETURN SETERROR ( @error , @extendED , - 1 )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_CALLWINDOWPROC ( $LPPREVWNDFUNC , $HWND , $MSG , $WPARAM , $LPARAM )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "lresult" , "CallWindowProc" , "ptr" , $LPPREVWNDFUNC , "hwnd" , $HWND , "uint" , $MSG , "wparam" , $WPARAM , "lparam" , $LPARAM )
IF @error THEN RETURN SETERROR ( @error , @extendED , - 1 )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_CLIENTTOSCREEN ( $HWND , BYREF $TPOINT )
DLLCALL ( "user32.dll" , "bool" , "ClientToScreen" , "hwnd" , $HWND , "struct*" , $TPOINT )
RETURN SETERROR ( @error , @extendED , $TPOINT )
ENDFUNC
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_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_COMMDLGEXTENDEDERROR ( )
LOCAL CONST $CDERR_DIALOGFAILURE = 65535
LOCAL CONST $CDERR_FINDRESFAILURE = 6
LOCAL CONST $CDERR_INITIALIZATION = 2
LOCAL CONST $CDERR_LOADRESFAILURE = 7
LOCAL CONST $CDERR_LOADSTRFAILURE = 5
LOCAL CONST $CDERR_LOCKRESFAILURE = 8
LOCAL CONST $CDERR_MEMALLOCFAILURE = 9
LOCAL CONST $CDERR_MEMLOCKFAILURE = 10
LOCAL CONST $CDERR_NOHINSTANCE = 4
LOCAL CONST $CDERR_NOHOOK = 11
LOCAL CONST $CDERR_NOTEMPLATE = 3
LOCAL CONST $CDERR_REGISTERMSGFAIL = 12
LOCAL CONST $CDERR_STRUCTSIZE = 1
LOCAL CONST $FNERR_BUFFERTOOSMALL = 12291
LOCAL CONST $FNERR_INVALIDFILENAME = 12290
LOCAL CONST $FNERR_SUBCLASSFAILURE = 12289
LOCAL $ARESULT = DLLCALL ( "comdlg32.dll" , "dword" , "CommDlgExtendedError" )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
SWITCH $ARESULT [ 0 ]
CASE $CDERR_DIALOGFAILURE
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The dialog box could not be created." & @LF & "The common dialog box function's call to the DialogBox function failed." & @LF & "For example, this error occurs if the common dialog box call specifies an invalid window handle." )
CASE $CDERR_FINDRESFAILURE
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The common dialog box function failed to find a specified resource." )
CASE $CDERR_INITIALIZATION
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The common dialog box function failed during initialization." & @LF & "This error often occurs when sufficient memory is not available." )
CASE $CDERR_LOADRESFAILURE
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The common dialog box function failed to load a specified resource." )
CASE $CDERR_LOADSTRFAILURE
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The common dialog box function failed to load a specified string." )
CASE $CDERR_LOCKRESFAILURE
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The common dialog box function failed to lock a specified resource." )
CASE $CDERR_MEMALLOCFAILURE
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The common dialog box function was unable to allocate memory for internal structures." )
CASE $CDERR_MEMLOCKFAILURE
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The common dialog box function was unable to lock the memory associated with a handle." )
CASE $CDERR_NOHINSTANCE
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The ENABLETEMPLATE flag was set in the Flags member of the initialization structure for the corresponding common dialog box," & @LF & "but you failed to provide a corresponding instance handle." )
CASE $CDERR_NOHOOK
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The ENABLEHOOK flag was set in the Flags member of the initialization structure for the corresponding common dialog box," & @LF & "but you failed to provide a pointer to a corresponding hook procedure." )
CASE $CDERR_NOTEMPLATE
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The ENABLETEMPLATE flag was set in the Flags member of the initialization structure for the corresponding common dialog box," & @LF & "but you failed to provide a corresponding template." )
CASE $CDERR_REGISTERMSGFAIL
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The RegisterWindowMessage function returned an error code when it was called by the common dialog box function." )
CASE $CDERR_STRUCTSIZE
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The lStructSize member of the initialization structure for the corresponding common dialog box is invalid" )
CASE $FNERR_BUFFERTOOSMALL
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "The buffer pointed to by the lpstrFile member of the OPENFILENAME structure is too small for the file name specified by the user." & @LF & "The first two bytes of the lpstrFile buffer contain an integer value specifying the size, in TCHARs, required to receive the full name." )
CASE $FNERR_INVALIDFILENAME
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "A file name is invalid." )
CASE $FNERR_SUBCLASSFAILURE
RETURN SETERROR ( $ARESULT [ 0 ] , 0 , "An attempt to subclass a list box failed because sufficient memory was not available." )
ENDSWITCH
RETURN HEX ( $ARESULT [ 0 ] )
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_CREATEBITMAP ( $IWIDTH , $IHEIGHT , $IPLANES = 1 , $IBITSPERPEL = 1 , $PBITS = 0 )
LOCAL $ARESULT = DLLCALL ( "gdi32.dll" , "handle" , "CreateBitmap" , "int" , $IWIDTH , "int" , $IHEIGHT , "uint" , $IPLANES , "uint" , $IBITSPERPEL , "ptr" , $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_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_CREATEEVENT ( $PATTRIBUTES = 0 , $FMANUALRESET = TRUE , $FINITIALSTATE = TRUE , $SNAME = "" )
LOCAL $SNAMETYPE = "wstr"
IF $SNAME = "" THEN
$SNAME = 0
$SNAMETYPE = "ptr"
ENDIF
LOCAL $ARESULT = DLLCALL ( "kernel32.dll" , "handle" , "CreateEventW" , "ptr" , $PATTRIBUTES , "bool" , $FMANUALRESET , "bool" , $FINITIALSTATE , $SNAMETYPE , $SNAME )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_CREATEFILE ( $SFILENAME , $ICREATION , $IACCESS = 4 , $ISHARE = 0 , $IATTRIBUTES = 0 , $PSECURITY = 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 , "ptr" , $PSECURITY , "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_CREATEFONT ( $NHEIGHT , $NWIDTH , $NESCAPE = 0 , $NORIENTN = 0 , $FNWEIGHT = $__WINAPICONSTANT_FW_NORMAL , $BITALIC = FALSE , $BUNDERLINE = FALSE , $BSTRIKEOUT = FALSE , $NCHARSET = $__WINAPICONSTANT_DEFAULT_CHARSET , $NOUTPUTPREC = $__WINAPICONSTANT_OUT_DEFAULT_PRECIS , $NCLIPPREC = $__WINAPICONSTANT_CLIP_DEFAULT_PRECIS , $NQUALITY = $__WINAPICONSTANT_DEFAULT_QUALITY , $NPITCH = 0 , $SZFACE = "Arial" )
LOCAL $ARESULT = DLLCALL ( "gdi32.dll" , "handle" , "CreateFontW" , "int" , $NHEIGHT , "int" , $NWIDTH , "int" , $NESCAPE , "int" , $NORIENTN , "int" , $FNWEIGHT , "dword" , $BITALIC , "dword" , $BUNDERLINE , "dword" , $BSTRIKEOUT , "dword" , $NCHARSET , "dword" , $NOUTPUTPREC , "dword" , $NCLIPPREC , "dword" , $NQUALITY , "dword" , $NPITCH , "wstr" , $SZFACE )
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_CREATEPEN ( $IPENSTYLE , $IWIDTH , $NCOLOR )
LOCAL $ARESULT = DLLCALL ( "gdi32.dll" , "handle" , "CreatePen" , "int" , $IPENSTYLE , "int" , $IWIDTH , "dword" , $NCOLOR )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_CREATEPROCESS ( $SAPPNAME , $SCOMMAND , $PSECURITY , $PTHREAD , $FINHERIT , $IFLAGS , $PENVIRON , $SDIR , $PSTARTUPINFO , $PPROCESS )
LOCAL $TCOMMAND = 0
LOCAL $SAPPNAMETYPE = "wstr" , $SDIRTYPE = "wstr"
IF $SAPPNAME = "" THEN
$SAPPNAMETYPE = "ptr"
$SAPPNAME = 0
ENDIF
IF $SCOMMAND <> "" THEN
$TCOMMAND = DLLSTRUCTCREATE ( "wchar Text[" & 260 + 1 & "]" )
DLLSTRUCTSETDATA ( $TCOMMAND , "Text" , $SCOMMAND )
ENDIF
IF $SDIR = "" THEN
$SDIRTYPE = "ptr"
$SDIR = 0
ENDIF
LOCAL $ARESULT = DLLCALL ( "kernel32.dll" , "bool" , "CreateProcessW" , $SAPPNAMETYPE , $SAPPNAME , "struct*" , $TCOMMAND , "ptr" , $PSECURITY , "ptr" , $PTHREAD , "bool" , $FINHERIT , "dword" , $IFLAGS , "ptr" , $PENVIRON , $SDIRTYPE , $SDIR , "ptr" , $PSTARTUPINFO , "ptr" , $PPROCESS )
IF @error THEN RETURN SETERROR ( @error , @extendED , FALSE )
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_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 , 65280 ) , BITSHIFT ( BITAND ( $ICOLOR , 255 ) , - 16 ) , BITSHIFT ( BITAND ( $ICOLOR , 16711680 ) , 16 ) )
ENDIF
LOCAL $HBRUSH = _WINAPI_CREATESOLIDBRUSH ( $ICOLOR )
_WINAPI_FILLRECT ( $HDESTDC , $TRECT , $HBRUSH )
IF @error 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_CREATESOLIDBRUSH ( $NCOLOR )
LOCAL $ARESULT = DLLCALL ( "gdi32.dll" , "handle" , "CreateSolidBrush" , "dword" , $NCOLOR )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN $ARESULT [ 0 ]
ENDFUNC
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 , "ptr" , $PPARAM )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_DEFWINDOWPROC ( $HWND , $IMSG , $IWPARAM , $ILPARAM )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "lresult" , "DefWindowProc" , "hwnd" , $HWND , "uint" , $IMSG , "wparam" , $IWPARAM , "lparam" , $ILPARAM )
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_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_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_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_DRAWEDGE ( $HDC , $PTRRECT , $NEDGETYPE , $GRFFLAGS )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "bool" , "DrawEdge" , "handle" , $HDC , "ptr" , $PTRRECT , "uint" , $NEDGETYPE , "uint" , $GRFFLAGS )
IF @error THEN RETURN SETERROR ( @error , @extendED , FALSE )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_DRAWFRAMECONTROL ( $HDC , $PTRRECT , $NTYPE , $NSTATE )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "bool" , "DrawFrameControl" , "handle" , $HDC , "ptr" , $PTRRECT , "uint" , $NTYPE , "uint" , $NSTATE )
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 = $__WINAPICONSTANT_DI_MASK
CASE 2
$IOPTIONS = $__WINAPICONSTANT_DI_IMAGE
CASE 3
$IOPTIONS = $__WINAPICONSTANT_DI_NORMAL
CASE 4
$IOPTIONS = $__WINAPICONSTANT_DI_COMPAT
CASE 5
$IOPTIONS = $__WINAPICONSTANT_DI_DEFAULTSIZE
CASE ELSE
$IOPTIONS = $__WINAPICONSTANT_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_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 , @extendED , FALSE )
RETURN TRUE
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_DUPLICATEHANDLE ( $HSOURCEPROCESSHANDLE , $HSOURCEHANDLE , $HTARGETPROCESSHANDLE , $IDESIREDACCESS , $FINHERITHANDLE , $IOPTIONS )
LOCAL $ACALL = DLLCALL ( "kernel32.dll" , "bool" , "DuplicateHandle" , "handle" , $HSOURCEPROCESSHANDLE , "handle" , $HSOURCEHANDLE , "handle" , $HTARGETPROCESSHANDLE , "handle*" , 0 , "dword" , $IDESIREDACCESS , "bool" , $FINHERITHANDLE , "dword" , $IOPTIONS )
IF @error OR NOT $ACALL [ 0 ] THEN RETURN SETERROR ( 1 , @extendED , 0 )
RETURN $ACALL [ 4 ]
ENDFUNC
FUNC _WINAPI_ENABLEWINDOW ( $HWND , $FENABLE = TRUE )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "bool" , "EnableWindow" , "hwnd" , $HWND , "bool" , $FENABLE )
IF @error THEN RETURN SETERROR ( @error , @extendED , FALSE )
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 $TDEVICE = DLLSTRUCTCREATE ( $TAGDISPLAY_DEVICE )
LOCAL $IDEVICE = DLLSTRUCTGETSIZE ( $TDEVICE )
DLLSTRUCTSETDATA ( $TDEVICE , "Size" , $IDEVICE )
DLLCALL ( "user32.dll" , "bool" , "EnumDisplayDevicesW" , "struct*" , $TNAME , "dword" , $IDEVNUM , "struct*" , $TDEVICE , "dword" , 1 )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
LOCAL $IN = DLLSTRUCTGETDATA ( $TDEVICE , "Flags" )
IF BITAND ( $IN , $__WINAPICONSTANT_DISPLAY_DEVICE_ATTACHED_TO_DESKTOP ) <> 0 THEN $IFLAGS = BITOR ( $IFLAGS , 1 )
IF BITAND ( $IN , $__WINAPICONSTANT_DISPLAY_DEVICE_PRIMARY_DEVICE ) <> 0 THEN $IFLAGS = BITOR ( $IFLAGS , 2 )
IF BITAND ( $IN , $__WINAPICONSTANT_DISPLAY_DEVICE_MIRRORING_DRIVER ) <> 0 THEN $IFLAGS = BITOR ( $IFLAGS , 4 )
IF BITAND ( $IN , $__WINAPICONSTANT_DISPLAY_DEVICE_VGA_COMPATIBLE ) <> 0 THEN $IFLAGS = BITOR ( $IFLAGS , 8 )
IF BITAND ( $IN , $__WINAPICONSTANT_DISPLAY_DEVICE_REMOVABLE ) <> 0 THEN $IFLAGS = BITOR ( $IFLAGS , 16 )
IF BITAND ( $IN , $__WINAPICONSTANT_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_ENUMWINDOWS ( $FVISIBLE = TRUE , $HWND = DEFAULT )
__WINAPI_ENUMWINDOWSINIT ( )
IF $HWND = DEFAULT THEN $HWND = _WINAPI_GETDESKTOPWINDOW ( )
__WINAPI_ENUMWINDOWSCHILD ( $HWND , $FVISIBLE )
RETURN $__GAWINLIST_WINAPI
ENDFUNC
FUNC __WINAPI_ENUMWINDOWSADD ( $HWND , $SCLASS = "" )
IF $SCLASS = "" THEN $SCLASS = _WINAPI_GETCLASSNAME ( $HWND )
$__GAWINLIST_WINAPI [ 0 ] [ 0 ] += 1
LOCAL $ICOUNT = $__GAWINLIST_WINAPI [ 0 ] [ 0 ]
IF $ICOUNT >= $__GAWINLIST_WINAPI [ 0 ] [ 1 ] THEN
REDIM $__GAWINLIST_WINAPI [ $ICOUNT + 64 ] [ 2 ]
$__GAWINLIST_WINAPI [ 0 ] [ 1 ] += 64
ENDIF
$__GAWINLIST_WINAPI [ $ICOUNT ] [ 0 ] = $HWND
$__GAWINLIST_WINAPI [ $ICOUNT ] [ 1 ] = $SCLASS
ENDFUNC
FUNC __WINAPI_ENUMWINDOWSCHILD ( $HWND , $FVISIBLE = TRUE )
$HWND = _WINAPI_GETWINDOW ( $HWND , $__WINAPICONSTANT_GW_CHILD )
WHILE $HWND <> 0
IF ( NOT $FVISIBLE ) OR _WINAPI_ISWINDOWVISIBLE ( $HWND ) THEN
__WINAPI_ENUMWINDOWSCHILD ( $HWND , $FVISIBLE )
__WINAPI_ENUMWINDOWSADD ( $HWND )
ENDIF
$HWND = _WINAPI_GETWINDOW ( $HWND , $__WINAPICONSTANT_GW_HWNDNEXT )
WEND
ENDFUNC
FUNC __WINAPI_ENUMWINDOWSINIT ( )
REDIM $__GAWINLIST_WINAPI [ 64 ] [ 2 ]
$__GAWINLIST_WINAPI [ 0 ] [ 0 ] = 0
$__GAWINLIST_WINAPI [ 0 ] [ 1 ] = 64
ENDFUNC
FUNC _WINAPI_ENUMWINDOWSPOPUP ( )
__WINAPI_ENUMWINDOWSINIT ( )
LOCAL $HWND = _WINAPI_GETWINDOW ( _WINAPI_GETDESKTOPWINDOW ( ) , $__WINAPICONSTANT_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 , $__WINAPICONSTANT_GW_HWNDNEXT )
WEND
RETURN $__GAWINLIST_WINAPI
ENDFUNC
FUNC _WINAPI_ENUMWINDOWSTOP ( )
__WINAPI_ENUMWINDOWSINIT ( )
LOCAL $HWND = _WINAPI_GETWINDOW ( _WINAPI_GETDESKTOPWINDOW ( ) , $__WINAPICONSTANT_GW_CHILD )
WHILE $HWND <> 0
IF _WINAPI_ISWINDOWVISIBLE ( $HWND ) THEN __WINAPI_ENUMWINDOWSADD ( $HWND )
$HWND = _WINAPI_GETWINDOW ( $HWND , $__WINAPICONSTANT_GW_HWNDNEXT )
WEND
RETURN $__GAWINLIST_WINAPI
ENDFUNC
FUNC _WINAPI_EXPANDENVIRONMENTSTRINGS ( $SSTRING )
LOCAL $ARESULT = DLLCALL ( "kernel32.dll" , "dword" , "ExpandEnvironmentStringsW" , "wstr" , $SSTRING , "wstr" , "" , "dword" , 4096 )
IF @error THEN RETURN SETERROR ( @error , @extendED , "" )
RETURN $ARESULT [ 2 ]
ENDFUNC
FUNC _WINAPI_EXTRACTICONEX ( $SFILE , $IINDEX , $PLARGE , $PSMALL , $IICONS )
LOCAL $ARESULT = DLLCALL ( "shell32.dll" , "uint" , "ExtractIconExW" , "wstr" , $SFILE , "int" , $IINDEX , "struct*" , $PLARGE , "struct*" , $PSMALL , "uint" , $IICONS )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_FATALAPPEXIT ( $SMESSAGE )
DLLCALL ( "kernel32.dll" , "none" , "FatalAppExitW" , "uint" , 0 , "wstr" , $SMESSAGE )
IF @error THEN RETURN SETERROR ( @error , @extendED )
ENDFUNC
FUNC _WINAPI_FILLRECT ( $HDC , $PTRRECT , $HBRUSH )
LOCAL $ARESULT
IF ISPTR ( $HBRUSH ) THEN
$ARESULT = DLLCALL ( "user32.dll" , "int" , "FillRect" , "handle" , $HDC , "struct*" , $PTRRECT , "handle" , $HBRUSH )
ELSE
$ARESULT = DLLCALL ( "user32.dll" , "int" , "FillRect" , "handle" , $HDC , "struct*" , $PTRRECT , "dword_ptr" , $HBRUSH )
ENDIF
IF @error THEN RETURN SETERROR ( @error , @extendED , FALSE )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_FINDEXECUTABLE ( $SFILENAME , $SDIRECTORY = "" )
LOCAL $ARESULT = DLLCALL ( "shell32.dll" , "INT" , "FindExecutableW" , "wstr" , $SFILENAME , "wstr" , $SDIRECTORY , "wstr" , "" )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN SETEXTENDED ( $ARESULT [ 0 ] , $ARESULT [ 3 ] )
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 , $FINVERT = TRUE )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "bool" , "FlashWindow" , "hwnd" , $HWND , "bool" , $FINVERT )
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 , $__WINAPICONSTANT_FLASHW_CAPTION )
IF BITAND ( $IFLAGS , 2 ) <> 0 THEN $IMODE = BITOR ( $IMODE , $__WINAPICONSTANT_FLASHW_TRAY )
IF BITAND ( $IFLAGS , 4 ) <> 0 THEN $IMODE = BITOR ( $IMODE , $__WINAPICONSTANT_FLASHW_TIMER )
IF BITAND ( $IFLAGS , 8 ) <> 0 THEN $IMODE = BITOR ( $IMODE , $__WINAPICONSTANT_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_FLOATTOINT ( $NFLOAT )
LOCAL $TFLOAT = DLLSTRUCTCREATE ( "float" )
LOCAL $TINT = DLLSTRUCTCREATE ( "int" , DLLSTRUCTGETPTR ( $TFLOAT ) )
DLLSTRUCTSETDATA ( $TFLOAT , 1 , $NFLOAT )
RETURN DLLSTRUCTGETDATA ( $TINT , 1 )
ENDFUNC
FUNC _WINAPI_FLUSHFILEBUFFERS ( $HFILE )
LOCAL $ARESULT = DLLCALL ( "kernel32.dll" , "bool" , "FlushFileBuffers" , "handle" , $HFILE )
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 , "ptr" , $PSOURCE , "dword" , $IMESSAGEID , "dword" , $ILANGUAGEID , $SBUFFERTYPE , $PBUFFER , "dword" , $ISIZE , "ptr" , $VARGUMENTS )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
IF $SBUFFERTYPE = "wstr" THEN $PBUFFER = $ARESULT [ 5 ]
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_FRAMERECT ( $HDC , $PTRRECT , $HBRUSH )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "int" , "FrameRect" , "handle" , $HDC , "ptr" , $PTRRECT , "handle" , $HBRUSH )
IF @error THEN RETURN SETERROR ( @error , @extendED , FALSE )
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_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_GETASYNCKEYSTATE ( $IKEY )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "short" , "GetAsyncKeyState" , "int" , $IKEY )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
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_GETCLASSNAME ( $HWND )
IF NOT ISHWND ( $HWND ) THEN $HWND = GUICTRLGETHANDLE ( $HWND )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "int" , "GetClassNameW" , "hwnd" , $HWND , "wstr" , "" , "int" , 4096 )
IF @error THEN RETURN SETERROR ( @error , @extendED , FALSE )
RETURN SETEXTENDED ( $ARESULT [ 0 ] , $ARESULT [ 2 ] )
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_GETCLIENTRECT ( $HWND )
LOCAL $TRECT = DLLSTRUCTCREATE ( $TAGRECT )
DLLCALL ( "user32.dll" , "bool" , "GetClientRect" , "hwnd" , $HWND , "struct*" , $TRECT )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN $TRECT
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_GETCURRENTPROCESSID ( )
LOCAL $ARESULT = DLLCALL ( "kernel32.dll" , "dword" , "GetCurrentProcessId" )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_GETCURRENTTHREAD ( )
LOCAL $ARESULT = DLLCALL ( "kernel32.dll" , "handle" , "GetCurrentThread" )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_GETCURRENTTHREADID ( )
LOCAL $ARESULT = DLLCALL ( "kernel32.dll" , "dword" , "GetCurrentThreadId" )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_GETCURSORINFO ( )
LOCAL $TCURSOR = DLLSTRUCTCREATE ( $TAGCURSORINFO )
LOCAL $ICURSOR = DLLSTRUCTGETSIZE ( $TCURSOR )
DLLSTRUCTSETDATA ( $TCURSOR , "Size" , $ICURSOR )
DLLCALL ( "user32.dll" , "bool" , "GetCursorInfo" , "struct*" , $TCURSOR )
IF @error THEN RETURN SETERROR ( @error , @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_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_GETDESKTOPWINDOW ( )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "hwnd" , "GetDesktopWindow" )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN $ARESULT [ 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_GETDIBITS ( $HDC , $HBMP , $ISTARTSCAN , $ISCANLINES , $PBITS , $PBI , $IUSAGE )
LOCAL $ARESULT = DLLCALL ( "gdi32.dll" , "int" , "GetDIBits" , "handle" , $HDC , "handle" , $HBMP , "uint" , $ISTARTSCAN , "uint" , $ISCANLINES , "ptr" , $PBITS , "ptr" , $PBI , "uint" , $IUSAGE )
IF @error THEN RETURN SETERROR ( @error , @extendED , FALSE )
RETURN $ARESULT [ 0 ]
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_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_GETFOCUS ( )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "hwnd" , "GetFocus" )
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_GETGUIRESOURCES ( $IFLAG = 0 , $HPROCESS = - 1 )
IF $HPROCESS = - 1 THEN $HPROCESS = _WINAPI_GETCURRENTPROCESS ( )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "dword" , "GetGuiResources" , "handle" , $HPROCESS , "dword" , $IFLAG )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC _WINAPI_GETICONINFO ( $HICON )
LOCAL $TINFO = DLLSTRUCTCREATE ( $TAGICONINFO )
DLLCALL ( "user32.dll" , "bool" , "GetIconInfo" , "handle" , $HICON , "struct*" , $TINFO )
IF @error THEN RETURN SETERROR ( @error , @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_GETFILESIZEEX ( $HFILE )
LOCAL $ARESULT = DLLCALL ( "kernel32.dll" , "bool" , "GetFileSizeEx" , "handle" , $HFILE , "int64*" , 0 )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
RETURN $ARESULT [ 2 ]
ENDFUNC
FUNC _WINAPI_GETLASTERRORMESSAGE ( )
LOCAL $TBUFFERPTR = DLLSTRUCTCREATE ( "ptr" )
LOCAL $NCOUNT = _WINAPI_FORMATMESSAGE ( BITOR ( $__WINAPICONSTANT_FORMAT_MESSAGE_ALLOCATE_BUFFER , $__WINAPICONSTANT_FORMAT_MESSAGE_FROM_SYSTEM ) , 0 , _WINAPI_GETLASTERROR ( ) , 0 , $TBUFFERPTR , 0 , 0 )
IF @error THEN RETURN SETERROR ( @error , 0 , "" )
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 )
ENDIF
_WINAPI_LOCALFREE ( $PBUFFER )
ENDIF
RETURN $STEXT
ENDFUNC
FUNC _WINAPI_GETLAYEREDWINDOWATTRIBUTES ( $HWND , BYREF $I_TRANSCOLOR , BYREF $TRANSPARENCY , $ASCOLORREF = FALSE )
$I_TRANSCOLOR = - 1
$TRANSPARENCY = - 1
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "bool" , "GetLayeredWindowAttributes" , "hwnd" , $HWND , "dword*" , $I_TRANSCOLOR , "byte*" , $TRANSPARENCY , "dword*" , 0 )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
IF NOT $ASCOLORREF THEN
$ARESULT [ 2 ] = INT ( BINARYMID ( $ARESULT [ 2 ] , 3 , 1 ) & BINARYMID ( $ARESULT [ 2 ] , 2 , 1 ) & BINARYMID ( $ARESULT [ 2 ] , 1 , 1 ) )
ENDIF
$I_TRANSCOLOR = $ARESULT [ 2 ]
$TRANSPARENCY = $ARESULT [ 3 ]
RETURN $ARESULT [ 4 ]
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
