Thread: AVA MACRO CODE

Page 2 of 3 FirstFirst 123 LastLast
Results 16 to 30 of 37
  1. #16
    ySoNoob's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Location
    United States
    Posts
    622
    Reputation
    31
    Thanks
    2,223
    My Mood
    Fine
    Quote Originally Posted by MarvLie View Post
    thats is not a visual basic code O.o
    I know that was an AutoIt codding!
    I code my programs In VB tho! xD
    u asked me what program do I use! Be Specific next time!



  2. #17
    Duffman..'s Avatar
    Join Date
    Jun 2013
    Gender
    male
    Location
    Anonymous.
    Posts
    498
    Reputation
    35
    Thanks
    172
    My Mood
    Psychedelic
    Quote Originally Posted by _Anonymous_ View Post
    MACRO SOURCE CODE



    TUT ON HOW TO MAKE A MACRO AND MAKE IT YOUR OWN HACK
    Bdwy, I release this in order for everyone can compile and make this in private and safe for Aeria games to patch
    Here we go..

    1.Download Auto IT installer click here:
    2.Copy paste the code and paste to AutoIT editor

    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
    4.Open a notepad and type a number of you MS or milliseconds per firing and save it as "ms.txt"

    THERE YOU GO! you have your own Macro program
    HAVE FAN OF MAKING! YOU OWNED AVA!

    Hot key

    Up- to start
    down- to exit

    Send me your source code for Less recoil

  3. #18
    _Anonymous_'s Avatar
    Join Date
    Nov 2012
    Gender
    male
    Location
    (Not Applicable)
    Posts
    71
    Reputation
    10
    Thanks
    1,028
    My Mood
    Drunk
    Quote Originally Posted by Duffman.. View Post


    Send me your source code for Less recoil
    Code:
    Private Sub Form_Load()
    Form1.Hide
    MsgBox "Please launch the game now !", vbInformation, "Ver1.2 Update June 5, 2013"
    End Sub
    
    Private Sub Text2_Change()
    
    If Text2.Text = "A" Then
    Exit Sub
    Else
    actionfire
    End If
    
    End Sub
    
    Private Sub Timer3_Timer()
    
    If GetAsyncKeyState(vbKeyRButton) Then
    Text2.Text = "B"
    Else
    Text2.Text = "A"
    Timer4.Enabled = False
    End If
    
    If GetAsyncKeyState(vbKeyEnd) Then
    MsgBox "Program will now exit!", vbExclamation, "Rapid fire OFF"
    MsgBox "Coded by: _Anonymous_ MPGH.NET", vbInformation, "Rapid123.exe"
    End
    End If
    
    End Sub
    
    Private Sub Timer4_Timer()
    actionfire
    End Sub
    
    Function actionfire()
    
    mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
    mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
    
    Timer4.Enabled = True
    End Function
    module1
    Code:
    Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
    Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
    
    Public Const MOUSEEVENTF_LEFTDOWN = &H2
    Public Const MOUSEEVENTF_LEFTUP = &H4

  4. The Following User Says Thank You to _Anonymous_ For This Useful Post:

    Duffman.. (06-05-2013)

  5. #19
    Hitachy77's Avatar
    Join Date
    Apr 2013
    Gender
    male
    Posts
    53
    Reputation
    10
    Thanks
    5
    My Mood
    Relaxed
    Hey @_Anonymous_, would you mind a lil hellp?
    I Compiled it, but when i try to run the .exe it show me this error:

    Line 204 (File""):
    Error:"if" statements must have a "Then" keyword.

    Attached Thumbnails Attached Thumbnails
    error.jpg  

    Last edited by Hitachy77; 06-13-2013 at 09:25 PM.









  6. #20
    _Anonymous_'s Avatar
    Join Date
    Nov 2012
    Gender
    male
    Location
    (Not Applicable)
    Posts
    71
    Reputation
    10
    Thanks
    1,028
    My Mood
    Drunk
    Quote Originally Posted by Hitachy77 View Post
    Hey @_Anonymous_, would you mind a lil hellp?
    I Compiled it, but when i try to run the .exe it show me this error:

    Line 204 (File""):
    Error:"if" statements must have a "Then" keyword.

    check your inbox for details, feel free to ask

  7. The Following User Says Thank You to _Anonymous_ For This Useful Post:

    Hitachy77 (06-14-2013)

  8. #21
    Hitachy77's Avatar
    Join Date
    Apr 2013
    Gender
    male
    Posts
    53
    Reputation
    10
    Thanks
    5
    My Mood
    Relaxed
    Tnx for your reply @_Anonymous_
    Will give it a try a repot Back..

    ----Edit-----
    Just got it to work and its awesome
    Last edited by Hitachy77; 06-14-2013 at 09:58 PM.









  9. #22
    britallsw's Avatar
    Join Date
    Jun 2013
    Gender
    male
    Posts
    2
    Reputation
    10
    Thanks
    0
    Quote Originally Posted by Hitachy77 View Post
    Hey @_Anonymous_, would you mind a lil hellp?
    I Compiled it, but when i try to run the .exe it show me this error:

    Line 204 (File""):
    Error:"if" statements must have a "Then" keyword.

    same question

  10. #23
    xaforib's Avatar
    Join Date
    Mar 2010
    Gender
    male
    Posts
    32
    Reputation
    10
    Thanks
    2
    Autoit macros isn't detected?

    BTW. you can make a simple tap macro (which press hotkey very fast) like this :

    $dll = DllOpen("user32.dll")
    While 1
    if _ispressed("01", $dll) then
    MouseClick("Middle")
    endif
    wend

  11. The Following User Says Thank You to xaforib For This Useful Post:

    _Anonymous_ (06-19-2013)

  12. #24
    Wizard147's Avatar
    Join Date
    Feb 2013
    Gender
    male
    Posts
    43
    Reputation
    10
    Thanks
    82
    My Mood
    Innocent
    Quote Originally Posted by Hitachy77 View Post
    Hey @_Anonymous_, would you mind a lil hellp?
    I Compiled it, but when i try to run the .exe it show me this error:

    Line 204 (File""):
    Error:"if" statements must have a "Then" keyword.

    same error

  13. #25
    eladrial's Avatar
    Join Date
    Oct 2012
    Gender
    male
    Posts
    2
    Reputation
    10
    Thanks
    0
    I have some problems with the code. Maybe you can help me. Thanks!

  14. #26
    _Anonymous_'s Avatar
    Join Date
    Nov 2012
    Gender
    male
    Location
    (Not Applicable)
    Posts
    71
    Reputation
    10
    Thanks
    1,028
    My Mood
    Drunk
    Quote Originally Posted by eladrial View Post
    I have some problems with the code. Maybe you can help me. Thanks!
    Check your inbox

  15. #27
    amunatemra's Avatar
    Join Date
    Jan 2013
    Gender
    male
    Posts
    1
    Reputation
    10
    Thanks
    0
    Where do I go to learn how to make hacks for games?

  16. #28
    daviddidi's Avatar
    Join Date
    Apr 2011
    Gender
    male
    Posts
    1,164
    Reputation
    13
    Thanks
    1,963
    My Mood
    Doh
    Quote Originally Posted by amunatemra View Post
    Where do I go to learn how to make hacks for games?
    Go learn the C++ bro

    I want to Develop this World,
    But you Never Tell Me The Source Code ...

    Joined Forum: April 2011

  17. #29
    Dare*'s Avatar
    Join Date
    Dec 2011
    Gender
    male
    Posts
    9
    Reputation
    10
    Thanks
    1
    Hi, I know a bit of C++, but have only ever used it to make standalone programs that do things I want.
    I would like to make my own hack, but I do not know enough about hacking to know where to start. Does anyone know of any tutorials on how hacking works? Essentially, I don't know what the goal of the program I make should be. I know I want it to change something or add something to AVA programming, but I don't know how to make it happen.

    Any help or suggestions would be greatly appreciated!

    Additional info: at the moment I just want to make a simple 3box Euro hack. Also, I know matlab better than C++, is it possible (I assume not) to make a hack with matlab instead?
    Last edited by Dare*; 08-11-2013 at 06:02 PM.

  18. #30
    linkinkn's Avatar
    Join Date
    Nov 2012
    Gender
    male
    Posts
    4
    Reputation
    10
    Thanks
    0
    I Compiled it, but when i try to run the .exe it show me this error:

    Line 204 (File""):
    Error:"if" statements must have a "Then" keyword.

    hepl me

Page 2 of 3 FirstFirst 123 LastLast

Similar Threads

  1. AVA Macro v.1
    By /b/oss in forum Alliance of Valiant Arms (AVA) Coding / Source Code
    Replies: 16
    Last Post: 01-28-2012, 01:07 AM
  2. [Detected] AVA Macro v.1
    By /b/oss in forum Alliance of Valiant Arms (AVA) Hacks & Cheats
    Replies: 82
    Last Post: 07-18-2011, 01:18 AM
  3. Help!I want to buy AVA VIP code
    By haitianfeihong in forum Alliance of Valiant Arms (AVA) Discussions
    Replies: 2
    Last Post: 11-29-2010, 08:34 PM
  4. Superjump Macro Codes
    By ExodusPKER in forum CrossFire Hacks & Cheats
    Replies: 43
    Last Post: 10-29-2009, 05:09 AM
  5. Macro Code for Visual C++
    By sgt_eberhart in forum C++/C Programming
    Replies: 2
    Last Post: 04-11-2009, 06:54 PM