Code:
#Region
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Add_Constants=n
#EndRegion
GLOBAL CONST $FW_DONTCARE = 0
GLOBAL CONST $FW_THIN = 100
GLOBAL CONST $FW_EXTRALIGHT = 200
GLOBAL CONST $FW_ULTRALIGHT = 200
GLOBAL CONST $FW_LIGHT = 300
GLOBAL CONST $FW_NORMAL = 400
GLOBAL CONST $FW_REGULAR = 400
GLOBAL CONST $FW_MEDIUM = 500
GLOBAL CONST $FW_SEMIBOLD = 600
GLOBAL CONST $FW_DEMIBOLD = 600
GLOBAL CONST $FW_BOLD = 700
GLOBAL CONST $FW_EXTRABOLD = 800
GLOBAL CONST $FW_ULTRABOLD = 800
GLOBAL CONST $FW_HEAVY = 900
GLOBAL CONST $FW_BLACK = 900
GLOBAL CONST $CF_EFFECTS = 256
GLOBAL CONST $CF_PRINTERFONTS = 2
GLOBAL CONST $CF_SCREENFONTS = 1
GLOBAL CONST $CF_NOSCRIPTSEL = 8388608
GLOBAL CONST $CF_INITTOLOGFONTSTRUCT = 64
GLOBAL CONST $LOGPIXELSX = 88
GLOBAL CONST $LOGPIXELSY = 90
GLOBAL CONST $ANSI_CHARSET = 0
GLOBAL CONST $BALTIC_CHARSET = 186
GLOBAL CONST $CHINESEBIG5_CHARSET = 136
GLOBAL CONST $DEFAULT_CHARSET = 1
GLOBAL CONST $EASTEUROPE_CHARSET = 238
GLOBAL CONST $GB2312_CHARSET = 134
GLOBAL CONST $GREEK_CHARSET = 161
GLOBAL CONST $HANGEUL_CHARSET = 129
GLOBAL CONST $MAC_CHARSET = 77
GLOBAL CONST $OEM_CHARSET = 255
GLOBAL CONST $RUSSIAN_CHARSET = 204
GLOBAL CONST $SHIFTJIS_CHARSET = 128
GLOBAL CONST $SYMBOL_CHARSET = 2
GLOBAL CONST $TURKISH_CHARSET = 162
GLOBAL CONST $VIETNAMESE_CHARSET = 163
GLOBAL CONST $OUT_CHARACTER_PRECIS = 2
GLOBAL CONST $OUT_DEFAULT_PRECIS = 0
GLOBAL CONST $OUT_DEVICE_PRECIS = 5
GLOBAL CONST $OUT_OUTLINE_PRECIS = 8
GLOBAL CONST $OUT_PS_ONLY_PRECIS = 10
GLOBAL CONST $OUT_RASTER_PRECIS = 6
GLOBAL CONST $OUT_STRING_PRECIS = 1
GLOBAL CONST $OUT_STROKE_PRECIS = 3
GLOBAL CONST $OUT_TT_ONLY_PRECIS = 7
GLOBAL CONST $OUT_TT_PRECIS = 4
GLOBAL CONST $CLIP_CHARACTER_PRECIS = 1
GLOBAL CONST $CLIP_DEFAULT_PRECIS = 0
GLOBAL CONST $CLIP_EMBEDDED = 128
GLOBAL CONST $CLIP_LH_ANGLES = 16
GLOBAL CONST $CLIP_MASK = 15
GLOBAL CONST $CLIP_STROKE_PRECIS = 2
GLOBAL CONST $CLIP_TT_ALWAYS = 32
GLOBAL CONST $ANTIALIASED_QUALITY = 4
GLOBAL CONST $DEFAULT_QUALITY = 0
GLOBAL CONST $DRAFT_QUALITY = 1
GLOBAL CONST $NONANTIALIASED_QUALITY = 3
GLOBAL CONST $PROOF_QUALITY = 2
GLOBAL CONST $DEFAULT_PITCH = 0
GLOBAL CONST $FIXED_PITCH = 1
GLOBAL CONST $VARIABLE_PITCH = 2
GLOBAL CONST $FF_DECORATIVE = 80
GLOBAL CONST $FF_DONTCARE = 0
GLOBAL CONST $FF_MODERN = 48
GLOBAL CONST $FF_ROMAN = 16
GLOBAL CONST $FF_SCRIPT = 64
GLOBAL CONST $FF_SWISS = 32
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"
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
GLOBAL CONST $__MISCCONSTANT_CC_ANYCOLOR = 256
GLOBAL CONST $__MISCCONSTANT_CC_FULLOPEN = 2
GLOBAL CONST $__MISCCONSTANT_CC_RGBINIT = 1
GLOBAL CONST $TAGCHOOSECOLOR = "dword Size;hwnd hWndOwnder;handle hInstance;dword rgbResult;ptr CustColors;dword Flags;lparam lCustData;" & "ptr lpfnHook;ptr lpTemplateName"
GLOBAL CONST $TAGCHOOSEFONT = "dword Size;hwnd hWndOwner;handle hDC;ptr LogFont;int PointSize;dword Flags;dword rgbColors;lparam CustData;" & "ptr fnHook;ptr TemplateName;handle hInstance;ptr szStyle;word FontType;int SizeMin;int SizeMax"
FUNC _CHOOSECOLOR ( $IRETURNTYPE = 0 , $ICOLORREF = 0 , $IREFTYPE = 0 , $HWNDOWNDER = 0 )
LOCAL $CUSTCOLORS = "dword[16]"
LOCAL $TCHOOSE = DLLSTRUCTCREATE ( $TAGCHOOSECOLOR )
LOCAL $TCC = DLLSTRUCTCREATE ( $CUSTCOLORS )
IF $IREFTYPE = 1 THEN
$ICOLORREF = INT ( $ICOLORREF )
ELSEIF $IREFTYPE = 2 THEN
$ICOLORREF = HEX ( STRING ( $ICOLORREF ) , 6 )
$ICOLORREF = "0x" & STRINGMID ( $ICOLORREF , 5 , 2 ) & STRINGMID ( $ICOLORREF , 3 , 2 ) & STRINGMID ( $ICOLORREF , 1 , 2 )
ENDIF
DLLSTRUCTSETDATA ( $TCHOOSE , "Size" , DLLSTRUCTGETSIZE ( $TCHOOSE ) )
DLLSTRUCTSETDATA ( $TCHOOSE , "hWndOwnder" , $HWNDOWNDER )
DLLSTRUCTSETDATA ( $TCHOOSE , "rgbResult" , $ICOLORREF )
DLLSTRUCTSETDATA ( $TCHOOSE , "CustColors" , DLLSTRUCTGETPTR ( $TCC ) )
DLLSTRUCTSETDATA ( $TCHOOSE , "Flags" , BITOR ( $__MISCCONSTANT_CC_ANYCOLOR , $__MISCCONSTANT_CC_FULLOPEN , $__MISCCONSTANT_CC_RGBINIT ) )
LOCAL $ARESULT = DLLCALL ( "comdlg32.dll" , "bool" , "ChooseColor" , "struct*" , $TCHOOSE )
IF @error THEN RETURN SETERROR ( @error , @extendED , - 1 )
IF $ARESULT [ 0 ] = 0 THEN RETURN SETERROR ( - 3 , - 3 , - 1 )
LOCAL $COLOR_PICKED = DLLSTRUCTGETDATA ( $TCHOOSE , "rgbResult" )
IF $IRETURNTYPE = 1 THEN
RETURN "0x" & HEX ( STRING ( $COLOR_PICKED ) , 6 )
ELSEIF $IRETURNTYPE = 2 THEN
$COLOR_PICKED = HEX ( STRING ( $COLOR_PICKED ) , 6 )
RETURN "0x" & STRINGMID ( $COLOR_PICKED , 5 , 2 ) & STRINGMID ( $COLOR_PICKED , 3 , 2 ) & STRINGMID ( $COLOR_PICKED , 1 , 2 )
ELSEIF $IRETURNTYPE = 0 THEN
RETURN $COLOR_PICKED
ELSE
RETURN SETERROR ( - 4 , - 4 , - 1 )
ENDIF
ENDFUNC
FUNC _CHOOSEFONT ( $SFONTNAME = "Courier New" , $IPOINTSIZE = 10 , $ICOLORREF = 0 , $IFONTWEIGHT = 0 , $IITALIC = FALSE , $IUNDERLINE = FALSE , $ISTRIKETHRU = FALSE , $HWNDOWNER = 0 )
LOCAL $ITALIC = 0 , $UNDERLINE = 0 , $STRIKEOUT = 0
LOCAL $LNGDC = __MISC_GETDC ( 0 )
LOCAL $LFHEIGHT = ROUND ( ( $IPOINTSIZE * __MISC_GETDEVICECAPS ( $LNGDC , $LOGPIXELSX ) ) / 72 , 0 )
__MISC_RELEASEDC ( 0 , $LNGDC )
LOCAL $TCHOOSEFONT = DLLSTRUCTCREATE ( $TAGCHOOSEFONT )
LOCAL $TLOGFONT = DLLSTRUCTCREATE ( $TAGLOGFONT )
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "Size" , DLLSTRUCTGETSIZE ( $TCHOOSEFONT ) )
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "hWndOwner" , $HWNDOWNER )
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "LogFont" , DLLSTRUCTGETPTR ( $TLOGFONT ) )
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "PointSize" , $IPOINTSIZE )
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "Flags" , BITOR ( $CF_SCREENFONTS , $CF_PRINTERFONTS , $CF_EFFECTS , $CF_INITTOLOGFONTSTRUCT , $CF_NOSCRIPTSEL ) )
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "rgbColors" , $ICOLORREF )
DLLSTRUCTSETDATA ( $TCHOOSEFONT , "FontType" , 0 )
DLLSTRUCTSETDATA ( $TLOGFONT , "Height" , $LFHEIGHT )
DLLSTRUCTSETDATA ( $TLOGFONT , "Weight" , $IFONTWEIGHT )
DLLSTRUCTSETDATA ( $TLOGFONT , "Italic" , $IITALIC )
DLLSTRUCTSETDATA ( $TLOGFONT , "Underline" , $IUNDERLINE )
DLLSTRUCTSETDATA ( $TLOGFONT , "Strikeout" , $ISTRIKETHRU )
DLLSTRUCTSETDATA ( $TLOGFONT , "FaceName" , $SFONTNAME )
LOCAL $ARESULT = DLLCALL ( "comdlg32.dll" , "bool" , "ChooseFontW" , "struct*" , $TCHOOSEFONT )
IF @error THEN RETURN SETERROR ( @error , @extendED , - 1 )
IF $ARESULT [ 0 ] = 0 THEN RETURN SETERROR ( - 3 , - 3 , - 1 )
LOCAL $FONTNAME = DLLSTRUCTGETDATA ( $TLOGFONT , "FaceName" )
IF STRINGLEN ( $FONTNAME ) = 0 AND STRINGLEN ( $SFONTNAME ) > 0 THEN $FONTNAME = $SFONTNAME
IF DLLSTRUCTGETDATA ( $TLOGFONT , "Italic" ) THEN $ITALIC = 2
IF DLLSTRUCTGETDATA ( $TLOGFONT , "Underline" ) THEN $UNDERLINE = 4
IF DLLSTRUCTGETDATA ( $TLOGFONT , "Strikeout" ) THEN $STRIKEOUT = 8
LOCAL $ATTRIBUTES = BITOR ( $ITALIC , $UNDERLINE , $STRIKEOUT )
LOCAL $SIZE = DLLSTRUCTGETDATA ( $TCHOOSEFONT , "PointSize" ) / 10
LOCAL $COLORREF = DLLSTRUCTGETDATA ( $TCHOOSEFONT , "rgbColors" )
LOCAL $WEIGHT = DLLSTRUCTGETDATA ( $TLOGFONT , "Weight" )
LOCAL $COLOR_PICKED = HEX ( STRING ( $COLORREF ) , 6 )
RETURN STRINGSPLIT ( $ATTRIBUTES & "," & $FONTNAME & "," & $SIZE & "," & $WEIGHT & "," & $COLORREF & "," & "0x" & $COLOR_PICKED & "," & "0x" & STRINGMID ( $COLOR_PICKED , 5 , 2 ) & STRINGMID ( $COLOR_PICKED , 3 , 2 ) & STRINGMID ( $COLOR_PICKED , 1 , 2 ) , "," )
ENDFUNC
FUNC _CLIPPUTFILE ( $SFILE , $SSEPARATOR = "|" )
LOCAL CONST $GMEM_MOVEABLE = 2 , $CF_HDROP = 15
$SFILE &= $SSEPARATOR & $SSEPARATOR
LOCAL $NGLOBMEMSIZE = 2 * ( STRINGLEN ( $SFILE ) + 20 )
LOCAL $ARESULT = DLLCALL ( "user32.dll" , "bool" , "OpenClipboard" , "hwnd" , 0 )
IF @error OR $ARESULT [ 0 ] = 0 THEN RETURN SETERROR ( 1 , _WINAPI_GETLASTERROR ( ) , FALSE )
LOCAL $IERROR = 0 , $ILASTERROR = 0
$ARESULT = DLLCALL ( "user32.dll" , "bool" , "EmptyClipboard" )
IF @error OR NOT $ARESULT [ 0 ] THEN
$IERROR = 2
$ILASTERROR = _WINAPI_GETLASTERROR ( )
ELSE
$ARESULT = DLLCALL ( "kernel32.dll" , "handle" , "GlobalAlloc" , "uint" , $GMEM_MOVEABLE , "ulong_ptr" , $NGLOBMEMSIZE )
IF @error OR NOT $ARESULT [ 0 ] THEN
$IERROR = 3
$ILASTERROR = _WINAPI_GETLASTERROR ( )
ELSE
LOCAL $HGLOBAL = $ARESULT [ 0 ]
$ARESULT = DLLCALL ( "kernel32.dll" , "ptr" , "GlobalLock" , "handle" , $HGLOBAL )
IF @error OR NOT $ARESULT [ 0 ] THEN
$IERROR = 4
$ILASTERROR = _WINAPI_GETLASTERROR ( )
ELSE
LOCAL $HLOCK = $ARESULT [ 0 ]
LOCAL $DROPFILES = DLLSTRUCTCREATE ( "dword pFiles;" & $TAGPOINT & ";bool fNC;bool fWide;wchar[" & STRINGLEN ( $SFILE ) + 1 & "]" , $HLOCK )
IF @error THEN RETURN SETERROR ( 5 , 6 , FALSE )
LOCAL $TEMPSTRUCT = DLLSTRUCTCREATE ( "dword;long;long;bool;bool" )
DLLSTRUCTSETDATA ( $DROPFILES , "pFiles" , DLLSTRUCTGETSIZE ( $TEMPSTRUCT ) )
DLLSTRUCTSETDATA ( $DROPFILES , "X" , 0 )
DLLSTRUCTSETDATA ( $DROPFILES , "Y" , 0 )
DLLSTRUCTSETDATA ( $DROPFILES , "fNC" , 0 )
DLLSTRUCTSETDATA ( $DROPFILES , "fWide" , 1 )
DLLSTRUCTSETDATA ( $DROPFILES , 6 , $SFILE )
FOR $I = 1 TO STRINGLEN ( $SFILE )
IF DLLSTRUCTGETDATA ( $DROPFILES , 6 , $I ) = $SSEPARATOR THEN DLLSTRUCTSETDATA ( $DROPFILES , 6 , CHR ( 0 ) , $I )
NEXT
$ARESULT = DLLCALL ( "user32.dll" , "handle" , "SetClipboardData" , "uint" , $CF_HDROP , "handle" , $HGLOBAL )
IF @error OR NOT $ARESULT [ 0 ] THEN
$IERROR = 6
$ILASTERROR = _WINAPI_GETLASTERROR ( )
ENDIF
$ARESULT = DLLCALL ( "kernel32.dll" , "bool" , "GlobalUnlock" , "handle" , $HGLOBAL )
IF ( @error OR NOT $ARESULT [ 0 ] ) AND NOT $IERROR AND _WINAPI_GETLASTERROR ( ) THEN
$IERROR = 8
$ILASTERROR = _WINAPI_GETLASTERROR ( )
ENDIF
ENDIF
$ARESULT = DLLCALL ( "kernel32.dll" , "ptr" , "GlobalFree" , "handle" , $HGLOBAL )
IF ( @error OR $ARESULT [ 0 ] ) AND NOT $IERROR THEN
$IERROR = 9
$ILASTERROR = _WINAPI_GETLASTERROR ( )
ENDIF
ENDIF
ENDIF
$ARESULT = DLLCALL ( "user32.dll" , "bool" , "CloseClipboard" )
IF ( @error OR NOT $ARESULT [ 0 ] ) AND NOT $IERROR THEN RETURN SETERROR ( 7 , _WINAPI_GETLASTERROR ( ) , FALSE )
IF $IERROR THEN RETURN SETERROR ( $IERROR , $ILASTERROR , FALSE )
RETURN TRUE
ENDFUNC
FUNC _IIF ( $FTEST , $VTRUEVAL , $VFALSEVAL )
IF $FTEST THEN
RETURN $VTRUEVAL
ELSE
RETURN $VFALSEVAL
ENDIF
ENDFUNC
FUNC _MOUSETRAP ( $ILEFT = 0 , $ITOP = 0 , $IRIGHT = 0 , $IBOTTOM = 0 )
LOCAL $ARESULT
IF @numpARAMS == 0 THEN
$ARESULT = DLLCALL ( "user32.dll" , "bool" , "ClipCursor" , "ptr" , 0 )
IF @error OR NOT $ARESULT [ 0 ] THEN RETURN SETERROR ( 1 , _WINAPI_GETLASTERROR ( ) , FALSE )
ELSE
IF @numpARAMS == 2 THEN
$IRIGHT = $ILEFT + 1
$IBOTTOM = $ITOP + 1
ENDIF
LOCAL $TRECT = DLLSTRUCTCREATE ( $TAGRECT )
DLLSTRUCTSETDATA ( $TRECT , "Left" , $ILEFT )
DLLSTRUCTSETDATA ( $TRECT , "Top" , $ITOP )
DLLSTRUCTSETDATA ( $TRECT , "Right" , $IRIGHT )
DLLSTRUCTSETDATA ( $TRECT , "Bottom" , $IBOTTOM )
$ARESULT = DLLCALL ( "user32.dll" , "bool" , "ClipCursor" , "struct*" , $TRECT )
IF @error OR NOT $ARESULT [ 0 ] THEN RETURN SETERROR ( 2 , _WINAPI_GETLASTERROR ( ) , FALSE )
ENDIF
RETURN TRUE
ENDFUNC
FUNC _SINGLETON ( $SOCCURENCENAME , $IFLAG = 0 )
LOCAL CONST $ERROR_ALREADY_EXISTS = 183
LOCAL CONST $SECURITY_DESCRIPTOR_REVISION = 1
LOCAL $TSECURITYATTRIBUTES = 0
IF BITAND ( $IFLAG , 2 ) THEN
LOCAL $TSECURITYDESCRIPTOR = DLLSTRUCTCREATE ( "byte;byte;word;ptr[4]" )
LOCAL $ARET = DLLCALL ( "advapi32.dll" , "bool" , "InitializeSecurityDescriptor" , "struct*" , $TSECURITYDESCRIPTOR , "dword" , $SECURITY_DESCRIPTOR_REVISION )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
IF $ARET [ 0 ] THEN
$ARET = DLLCALL ( "advapi32.dll" , "bool" , "SetSecurityDescriptorDacl" , "struct*" , $TSECURITYDESCRIPTOR , "bool" , 1 , "ptr" , 0 , "bool" , 0 )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
IF $ARET [ 0 ] THEN
$TSECURITYATTRIBUTES = DLLSTRUCTCREATE ( $TAGSECURITY_ATTRIBUTES )
DLLSTRUCTSETDATA ( $TSECURITYATTRIBUTES , 1 , DLLSTRUCTGETSIZE ( $TSECURITYATTRIBUTES ) )
DLLSTRUCTSETDATA ( $TSECURITYATTRIBUTES , 2 , DLLSTRUCTGETPTR ( $TSECURITYDESCRIPTOR ) )
DLLSTRUCTSETDATA ( $TSECURITYATTRIBUTES , 3 , 0 )
ENDIF
ENDIF
ENDIF
LOCAL $HANDLE = DLLCALL ( "kernel32.dll" , "handle" , "CreateMutexW" , "struct*" , $TSECURITYATTRIBUTES , "bool" , 1 , "wstr" , $SOCCURENCENAME )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
LOCAL $LASTERROR = DLLCALL ( "kernel32.dll" , "dword" , "GetLastError" )
IF @error THEN RETURN SETERROR ( @error , @extendED , 0 )
IF $LASTERROR [ 0 ] = $ERROR_ALREADY_EXISTS THEN
IF BITAND ( $IFLAG , 1 ) THEN
RETURN SETERROR ( $LASTERROR [ 0 ] , $LASTERROR [ 0 ] , 0 )
ELSE
EXIT - 1
ENDIF
ENDIF
RETURN $HANDLE [ 0 ]
ENDFUNC
FUNC _ISPRESSED ( $SHEXKEY , $VDLL = "user32.dll" )
LOCAL $A_R = DLLCALL ( $VDLL , "short" , "GetAsyncKeyState" , "int" , "0x" & $SHEXKEY )
IF @error THEN RETURN SETERROR ( @error , @extendED , FALSE )
RETURN BITAND ( $A_R [ 0 ] , 32768 ) <> 0
ENDFUNC
FUNC _VERSIONCOMPARE ( $SVERSION1 , $SVERSION2 )
IF $SVERSION1 = $SVERSION2 THEN RETURN 0
LOCAL $SEP = "."
IF STRINGINSTR ( $SVERSION1 , $SEP ) = 0 THEN $SEP = ","
LOCAL $AVERSION1 = STRINGSPLIT ( $SVERSION1 , $SEP )
LOCAL $AVERSION2 = STRINGSPLIT ( $SVERSION2 , $SEP )
IF UBOUND ( $AVERSION1 ) <> UBOUND ( $AVERSION2 ) OR UBOUND ( $AVERSION1 ) = 0 THEN
SETEXTENDED ( 1 )
IF $SVERSION1 > $SVERSION2 THEN
RETURN 1
ELSEIF $SVERSION1 < $SVERSION2 THEN
RETURN - 1
ENDIF
ELSE
FOR $I = 1 TO UBOUND ( $AVERSION1 ) - 1
IF STRINGISDIGIT ( $AVERSION1 [ $I ] ) AND STRINGISDIGIT ( $AVERSION2 [ $I ] ) THEN
IF NUMBER ( $AVERSION1 [ $I ] ) > NUMBER ( $AVERSION2 [ $I ] ) THEN
RETURN 1
ELSEIF NUMBER ( $AVERSION1 [ $I ] ) < NUMBER ( $AVERSION2 [ $I ] ) THEN
RETURN - 1
ENDIF
ELSE
SETEXTENDED ( 1 )
IF $AVERSION1 [ $I ] > $AVERSION2 [ $I ] THEN
RETURN 1
ELSEIF $AVERSION1 [ $I ] < $AVERSION2 [ $I ] THEN
RETURN - 1
ENDIF
ENDIF
NEXT
ENDIF
RETURN SETERROR ( 2 , 0 , 0 )
ENDFUNC
FUNC __MISC_GETDC ( $HWND )
LOCAL $ARESULT = DLLCALL ( "User32.dll" , "handle" , "GetDC" , "hwnd" , $HWND )
IF @error OR NOT $ARESULT [ 0 ] THEN RETURN SETERROR ( 1 , _WINAPI_GETLASTERROR ( ) , 0 )
RETURN $ARESULT [ 0 ]
ENDFUNC
FUNC __MISC_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 __MISC_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 ] <> 0
ENDFUNC
$FORM2 = GUICREATE ( "Mp3 Player" , 792 , 473 , 320 , 98 )
GUISETSTATE ( @SW_HIDE )
GLOBAL $GAMEBOTS = 0
GLOBAL $OMFG1 = 0
GLOBAL $KKK = 0
GLOBAL $NEXT = 0
GLOBAL $OOO = 0
GLOBAL $TTT = 0
GLOBAL $YIO = 0
GLOBAL $OMFG2 = 0
GLOBAL $MACROS = 0
GLOBAL $TUY = 0
GLOBAL $HHG = 0
GLOBAL $QUICKS = 0
GLOBAL $BOT_ACTIVE1 = 0
GLOBAL $BOT_ACTIVE2 = 0
GLOBAL $BOT_ACTIVE3 = 0
GLOBAL $BOT_ACTIVE6 = 0
GLOBAL $BOT_ACTIVE7 = 0
GLOBAL $BURSTS = 0
GLOBAL $BOJ1 = 0
GLOBAL $SPAM = 0
GLOBAL $SPAM2 = 0
GLOBAL $CROUCH = 0
GLOBAL $MOT1 = 1
HOTKEYSET ( "{UP}" , "_go1" )
HOTKEYSET ( "{DOWN}" , "_Exit" )
LOCAL $FILE = FILEOPEN ( "ms.txt" , 0 )
IF $FILE = - 1 THEN
MSGBOX ( 0 , "Error" , "Unable to open file." )
EXIT
ENDIF
FILECLOSE ( $FILE )
WHILE 1
LOCAL $FILE = FILEOPEN ( "ms.txt" , 0 )
GLOBAL $LINE = FILEREAD ( $FILE , 1 )
FILECLOSE ( $FILE )
SLEEP ( 10 )
WEND
FUNC _EXIT ( )
EXIT
ENDFUNC
FUNC _GO1 ( )
IF $MOT1 = 1 THEN
GLOBAL $MOT1 = 2
BEEP ( 500,200 )
CALL ( "_" & 0 , "1" )
RETURN
ELSEIF $MOT1 = 2 THEN
GLOBAL $MOT1 = 1
BEEP ( 500 , 500 )
CALL ( "_" & 0 , "0" )
RETURN
ENDIF
ENDFUNC
FUNC _0 ( $ACTION )
IF $ACTION = 1 THEN
GLOBAL $ACTIVE1 = 0
GLOBAL $MACROS = 0
IF $BOT_ACTIVE1 = 1 THEN
$BOT_ACTIVE1 = 0
ELSE
GLOBAL $ACTIVE1 = 0
GLOBAL $BOT_ACTIVE1 = 1
ENDIF
RETURN _MACROS ( )
ELSEIF $ACTION = 0 THEN
GLOBAL $ACTIVE1 = 1
GLOBAL $MACROS = 1
RETURN
ENDIF
ENDFUNC
FUNC _MACROS ( )
IF $ACTIVE1 = 0 THEN
DO
WHILE 1
SLEEP ( 10 )
IF _ISPRESSED ( "01" ) THEN
MOUSECLICK ( "middle" )
IF $LINE = "" THEN
SLEEP ( 33 )
ELSE
SLEEP ( $LINE )
ENDIF
IF $ACTIVE1 = 1 THEN
RETURN
ENDIF
ENDIF
WEND
UNTIL $ACTIVE1 = 1
ENDIF
ENDFUNC
3.Press ctrl+F7 to compile or make it "macro.exe" or what name you like file