[TLBB] Lập team code auto game sạch+free [Lưu trữ]

shinno

28-05-17, 02:02 PM

#AutoIt3Wrapper_Run_Obfuscator = y
#Obfuscator_Ignore_Variables=
#Obfuscator_Ignore_Funcs=
#Obfuscator_On
Global Const $cb_err = -1
Global Const $cb_errattribute = -3
Global Const $cb_errrequired = -4
Global Const $cb_errspace = -2
Global Const $cb_okay = 0
Global Const $state_system_invisible = 32768
Global Const $state_system_pressed = 8
Global Const $cbs_autohscroll = 64
Global Const $cbs_disablenoscroll = 2048
Global Const $cbs_dropdown = 2
Global Const $cbs_dropdownlist = 3
Global Const $cbs_hasstrings = 512
Global Const $cbs_lowercase = 16384
Global Const $cbs_nointegralheight = 1024
Global Const $cbs_oemconvert = 128
Global Const $cbs_ownerdrawfixed = 16
Global Const $cbs_ownerdrawvariable = 32
Global Const $cbs_simple = 1
Global Const $cbs_sort = 256
Global Const $cbs_uppercase = 8192
Global Const $cbm_first = 5888
Global Const $cb_addstring = 323
Global Const $cb_deletestring = 324
Global Const $cb_dir = 325
Global Const $cb_findstring = 332
Global Const $cb_findstringexact = 344
Global Const $cb_getcomboboxinfo = 356
Global Const $cb_getcount = 326
Global Const $cb_getcuebanner = ($cbm_first + 4)
Global Const $cb_getcursel = 327
Global Const $cb_getdroppedcontrolrect = 338
Global Const $cb_getdroppedstate = 343
Global Const $cb_getdroppedwidth = 351
Global Const $cb_geteditsel = 320
Global Const $cb_getextendedui = 342
Global Const $cb_gethorizontalextent = 349
Global Const $cb_getitemdata = 336
Global Const $cb_getitemheight = 340
Global Const $cb_getlbtext = 328
Global Const $cb_getlbtextlen = 329
Global Const $cb_getlocale = 346
Global Const $cb_getminvisible = 5890
Global Const $cb_gettopindex = 347
Global Const $cb_initstorage = 353
Global Const $cb_limittext = 321
Global Const $cb_resetcontent = 331
Global Const $cb_insertstring = 330
Global Const $cb_selectstring = 333
Global Const $cb_setcuebanner = ($cbm_first + 3)
Global Const $cb_setcursel = 334
Global Const $cb_setdroppedwidth = 352
Global Const $cb_seteditsel = 322
Global Const $cb_setextendedui = 341
Global Const $cb_sethorizontalextent = 350
Global Const $cb_setitemdata = 337
Global Const $cb_setitemheight = 339
Global Const $cb_setlocale = 345
Global Const $cb_setminvisible = 5889
Global Const $cb_settopindex = 348
Global Const $cb_showdropdown = 335
Global Const $cbn_closeup = 8
Global Const $cbn_dblclk = 2
Global Const $cbn_dropdown = 7
Global Const $cbn_editchange = 5
Global Const $cbn_editupdate = 6
Global Const $cbn_errspace = (-1)
Global Const $cbn_killfocus = 4
Global Const $cbn_selchange = 1
Global Const $cbn_selendcancel = 10
Global Const $cbn_selendok = 9
Global Const $cbn_setfocus = 3
Global Const $cbes_ex_casesensitive = 16
Global Const $cbes_ex_noeditimage = 1
Global Const $cbes_ex_noeditimageindent = 2
Global Const $cbes_ex_nosizelimit = 8
Global Const $cbes_ex_pathwordbreakproc = 4
Global Const $__comboboxconstant_wm_user = 1024
Global Const $cbem_deleteitem = $cb_deletestring
Global Const $cbem_getcombocontrol = ($__comboboxconstant_wm_user + 6)
Global Const $cbem_geteditcontrol = ($__comboboxconstant_wm_user + 7)
Global Const $cbem_getexstyle = ($__comboboxconstant_wm_user + 9)
Global Const $cbem_getextendedstyle = ($__comboboxconstant_wm_user + 9)
Global Const $cbem_getimagelist = ($__comboboxconstant_wm_user + 3)
Global Const $cbem_getitema = ($__comboboxconstant_wm_user + 4)
Global Const $cbem_getitemw = ($__comboboxconstant_wm_user + 13)
Global Const $cbem_getunicodeformat = 8192 + 6
Global Const $cbem_haseditchanged = ($__comboboxconstant_wm_user + 10)
Global Const $cbem_insertitema = ($__comboboxconstant_wm_user + 1)
Global Const $cbem_insertitemw = ($__comboboxconstant_wm_user + 11)
Global Const $cbem_setexstyle = ($__comboboxconstant_wm_user + 8)
Global Const $cbem_setextendedstyle = ($__comboboxconstant_wm_user + 14)
Global Const $cbem_setimagelist = ($__comboboxconstant_wm_user + 2)
Global Const $cbem_setitema = ($__comboboxconstant_wm_user + 5)
Global Const $cbem_setitemw = ($__comboboxconstant_wm_user + 12)
Global Const $cbem_setunicodeformat = 8192 + 5
Global Const $cbem_setwindowtheme = 8192 + 11
Global Const $cben_first = (-800)
Global Const $cben_last = (-830)
Global Const $cben_beginedit = ($cben_first - 4)
Global Const $cben_deleteitem = ($cben_first - 2)
Global Const $cben_dragbegina = ($cben_first - 8)
Global Const $cben_dragbeginw = ($cben_first - 9)
Global Const $cben_endedita = ($cben_first - 5)
Global Const $cben_endeditw = ($cben_first - 6)
Global Const $cben_getdispinfo = ($cben_first - 0)
Global Const $cben_getdispinfoa = ($cben_first - 0)
Global Const $cben_getdispinfow = ($cben_first - 7)
Global Const $cben_insertitem = ($cben_first - 1)
Global Const $cbeif_di_setitem = 268435456
Global Const $cbeif_image = 2
Global Const $cbeif_indent = 16
Global Const $cbeif_lparam = 32
Global Const $cbeif_overlay = 8
Global Const $cbeif_selectedimage = 4
Global Const $cbeif_text = 1
Global Const $__comboboxconstant_ws_vscroll = 2097152
Global Const $gui_ss_default_combo = BitOR($cbs_dropdown, $cbs_autohscroll, $__comboboxconstant_ws_vscroll)
#Region _Memory

Func _memoryopen($iv_pid, $iv_desiredaccess = 2035711, $iv_inherithandle = 1)
If NOT ProcessExists($iv_pid) Then
SetError(1)
Return 0
EndIf
Local $ah_handle[2] = [DllOpen("kernel32.dll")]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
SetError(2)
Return 0
EndIf
Local $av_openprocess = DllCall($ah_handle[0], "int", "OpenProcess", "int", $iv_desiredaccess, "int", $iv_inherithandle, "int", $iv_pid)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
DllClose($ah_handle[0])
SetError(3)
Return 0
EndIf
$ah_handle[1] = $av_openprocess[0]
Return $ah_handle
EndFunc

Func _memoryread($iv_address, $ah_handle, $sv_type = "dword")
If NOT IsArray($ah_handle) Then
SetError(1)
Return 0
EndIf
Local $v_buffer = DllStructCreate($sv_type)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return 0
EndIf
DllCall($ah_handle[0], "int", "ReadProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $v_value = DllStructGetData($v_buffer, 1)
Return $v_value
Else
SetError(6)
Return 0
EndIf
EndFunc

Func _memorywrite($iv_address, $ah_handle, $v_data, $sv_type = "dword")
If NOT IsArray($ah_handle) Then
SetError(1)
Return 0
EndIf
Local $v_buffer = DllStructCreate($sv_type)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return 0
Else
DllStructSetData($v_buffer, 1, $v_data)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
SetError(6)
Return 0
EndIf
EndIf
DllCall($ah_handle[0], "int", "WriteProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return 1
Else
SetError(7)
Return 0
EndIf
EndFunc

Func _memoryclose($ah_handle)
If NOT IsArray($ah_handle) Then
SetError(1)
Return 0
EndIf
DllCall($ah_handle[0], "int", "CloseHandle", "int", $ah_handle[1])
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
DllClose($ah_handle[0])
Return 1
Else
DllClose($ah_handle[0])
SetError(2)
Return 0
EndIf
EndFunc

Func setprivilege($privilege, $benable)
Const $token_adjust_privileges = 32
Const $token_query = 8
Const $se_privilege_enabled = 2
Local $htoken, $sp_auxret, $sp_ret, $hcurrprocess, $ntokens, $ntokenindex, $priv
$ntokens = 1
$luid = DllStructCreate("dword;int")
If IsArray($privilege) Then $ntokens = UBound($privilege)
$token_privileges = DllStructCreate("dword;dword[" & (3 * $ntokens) & "]")
$newtoken_privileges = DllStructCreate("dword;dword[" & (3 * $ntokens) & "]")
$hcurrprocess = DllCall("kernel32.dll", "hwnd", "GetCurrentProcess")
$sp_auxret = DllCall("advapi32.dll", "int", "OpenProcessToken", "hwnd", $hcurrprocess[0], "int", BitOR($token_adjust_privileges, $token_query), "int_ptr", 0)
If $sp_auxret[0] Then
$htoken = $sp_auxret[3]
DllStructSetData($token_privileges, 1, 1)
$ntokenindex = 1
While $ntokenindex <= $ntokens
If IsArray($privilege) Then
$priv = $privilege[$ntokenindex - 1]
Else
$priv = $privilege
EndIf
$ret = DllCall("advapi32.dll", "int", "LookupPrivilegeValue", "str", "", "str", $priv, "ptr", DllStructGetPtr($luid))
If $ret[0] Then
If $benable Then
DllStructSetData($token_privileges, 2, $se_privilege_enabled, (3 * $ntokenindex))
Else
DllStructSetData($token_privileges, 2, 0, (3 * $ntokenindex))
EndIf
DllStructSetData($token_privileges, 2, DllStructGetData($luid, 1), (3 * ($ntokenindex - 1)) + 1)
DllStructSetData($token_privileges, 2, DllStructGetData($luid, 2), (3 * ($ntokenindex - 1)) + 2)
DllStructSetData($luid, 1, 0)
DllStructSetData($luid, 2, 0)
EndIf
$ntokenindex += 1
WEnd
$ret = DllCall("advapi32.dll", "int", "AdjustTokenPrivileges", "hwnd", $htoken, "int", 0, "ptr", DllStructGetPtr($token_privileges), "int", DllStructGetSize($newtoken_privileges), "ptr", DllStructGetPtr($newtoken_privileges), "int_ptr", 0)
$f = DllCall("kernel32.dll", "int", "GetLastError")
EndIf
$newtoken_privileges = 0
$token_privileges = 0
$luid = 0
If $sp_auxret[0] = 0 Then Return 0
$sp_auxret = DllCall("kernel32.dll", "int", "CloseHandle", "hwnd", $htoken)
If NOT $ret[0] AND NOT $sp_auxret[0] Then Return 0
Return $ret[0]
EndFunc

#EndRegion _Memory
Global Const $tagpoint = "long X;long Y"
Global Const $tagrect = "long Left;long Top;long Right;long Bottom"
Global Const $tagsize = "long X;long Y"
Global Const $tagmargins = "int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight"
Global Const $tagfiletime = "dword Lo;dword Hi"
Global Const $tagsystemtime = "word Year;word Month;word Dow;word Day;word Hour;word Minute;word Second;word MSeconds"
Global Const $tagtime_zone_information = "long Bias;wchar StdName[32];word StdDate[8];long StdBias;wchar DayName[32];word DayDate[8];long DayBias"
Global Const $tagnmhdr = "hwnd hWndFrom;uint_ptr IDFrom;INT Code"
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;ptr szText"
Global Const $tagnmcbeendedit = $tagnmhdr & ";bool fChanged;int NewSelection;ptr szText;int Why"
Global Const $tagnmcomboboxex = $tagnmhdr & ";uint Mask;int_ptr Item;ptr Text;int TextMax;int Image;" & "int SelectedImage;int OverlayImage;int Indent;lparam Param"
Global Const $tagdtprange = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;" & "word MinSecond;word MinMSecond;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;" & "word MaxMinute;word MaxSecond;word MaxMSecond;bool MinValid;bool MaxValid"
Global Const $tagnmdatetimechange = $tagnmhdr & ";dword Flag;" & $tagsystemtime
Global Const $tagnmdatetimeformat = $tagnmhdr & ";ptr Format;" & $tagsystemtime & ";ptr pDisplay;wchar Display[64]"
Global Const $tagnmdatetimeformatquery = $tagnmhdr & ";ptr Format;long SizeX;long SizeY"
Global Const $tagnmdatetimekeydown = $tagnmhdr & ";int VirtKey;ptr Format;" & $tagsystemtime
Global Const $tagnmdatetimestring = $tagnmhdr & ";ptr UserString;" & $tagsystemtime & ";dword Flags"
Global Const $tageventlogrecord = "dword Length;dword Reserved;dword RecordNumber;dword TimeGenerated;dword TimeWritten;dword EventID;" & "word EventType;word NumStrings;word EventCategory;word ReservedFlags;dword ClosingRecordNumber;dword StringOffset;" & "dword UserSidLength;dword UserSidOffset;dword DataLength;dword DataOffset"
Global Const $taggdipbitmapdata = "uint Width;uint Height;int Stride;int Format;ptr Scan0;uint_ptr Reserved"
Global Const $taggdipencoderparam = "byte GUID[16];dword Count;dword Type;ptr Values"
Global Const $taggdipencoderparams = "dword Count;byte Params[0]"
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 = "dword Count;byte Params[0]"
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 = "uint Flags;ptr Text;lparam Param;" & $tagpoint & ";uint Direction"
Global Const $taglvhittestinfo = $tagpoint & ";uint Flags;int Item;int SubItem"
Global Const $taglvitem = "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"
Global Const $tagnmlistview = $tagnmhdr & ";int Item;int SubItem;uint NewState;uint OldState;uint Changed;" & "long ActionX;long ActionY;lparam Param"
Global Const $tagnmlvcustomdraw = $tagnmhdr & ";dword dwDrawStage;handle hdc;long Left;long Top;long Right;long Bottom;" & "dword_ptr dwItemSpec;uint uItemState;lparam lItemlParam" & ";dword clrText;dword clrTextBk;int iSubItem;dword dwItemType;dword clrFace;int iIconEffect;" & "int iIconPhase;int iPartId;int iStateId;long TextLeft;long TextTop;long TextRight;long TextBottom;uint uAlign"
Global Const $tagnmlvdispinfo = $tagnmhdr & ";" & $taglvitem
Global Const $tagnmlvfinditem = $tagnmhdr & ";" & $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 = $tagnmhdr & ";align 1;word VKey;uint Flags"
Global Const $tagnmlvscroll = $tagnmhdr & ";int DX;int DY"
Global Const $tagmchittestinfo = "uint Size;" & $tagpoint & ";uint Hit;" & $tagsystemtime
Global Const $tagmcmonthrange = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds;short Span"
Global Const $tagmcrange = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds;short MinSet;short MaxSet"
Global Const $tagmcselrange = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds"
Global Const $tagnmdaystate = $tagnmhdr & ";" & $tagsystemtime & ";int DayState;ptr pDayState"
Global Const $tagnmselchange = $tagnmhdr & ";word BegYear;word BegMonth;word BegDOW;word BegDay;" & "word BegHour;word BegMinute;word BegSecond;word BegMSeconds;word EndYear;word EndMonth;word EndDOW;" & "word EndDay;word EndHour;word EndMinute;word EndSecond;word EndMSeconds"
Global Const $tagnmobjectnotify = $tagnmhdr & ";int Item;ptr piid;ptr pObject;long Result"
Global Const $tagnmtckeydown = $tagnmhdr & ";word VKey;uint Flags"
Global Const $tagtvitem = "uint Mask;handle hItem;uint State;uint StateMask;ptr Text;int TextMax;int Image;int SelectedImage;" & "int Children;lparam Param"
Global Const $tagtvitemex = $tagtvitem & ";int Integral"
Global Const $tagnmtreeview = $tagnmhdr & ";uint Action;uint OldMask;handle OldhItem;uint OldState;uint OldStateMask;" & "ptr OldText;int OldTextMax;int OldImage;int OldSelectedImage;int OldChildren;lparam OldParam;uint NewMask;handle NewhItem;" & "uint NewState;uint NewStateMask;ptr NewText;int NewTextMax;int NewImage;int NewSelectedImage;int NewChildren;" & "lparam NewParam;long PointX;long PointY"
Global Const $tagnmtvcustomdraw = $tagnmhdr & ";dword DrawStage;handle HDC;long Left;long Top;long Right;long Bottom;" & "dword_ptr ItemSpec;uint ItemState;lparam ItemParam;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 = $tagnmhdr & ";word VKey;uint Flags"
Global Const $tagnmmouse = $tagnmhdr & ";dword_ptr ItemSpec;dword_ptr ItemData;" & $tagpoint & ";lparam HitInfo"
Global Const $tagtoken_privileges = "dword Count;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"
Global Const $tagnmrebarautobreak = $tagnmhdr & ";uint uBand;uint wID;lparam lParam;uint uMsg;uint fStyleCurrent;bool fAutoBreak"
Global Const $tagnmrbautosize = $tagnmhdr & ";bool fChanged;long TargetLeft;long TargetTop;long TargetRight;long TargetBottom;" & "long ActualLeft;long ActualTop;long ActualRight;long ActualBottom"
Global Const $tagnmrebar = $tagnmhdr & ";dword dwMask;uint uBand;uint fStyle;uint wID;laram lParam"
Global Const $tagnmrebarchevron = $tagnmhdr & ";uint uBand;uint wID;lparam lParam;" & $tagrect & ";lparam lParamNM"
Global Const $tagnmrebarchildsize = $tagnmhdr & ";uint uBand;uint wID;long CLeft;long CTop;long CRight;long CBottom;" & "long BLeft;long BTop;long BRight;long BBottom"
Global Const $tagcolorscheme = "dword Size;dword BtnHighlight;dword BtnShadow"
Global Const $tagnmtoolbar = $tagnmhdr & ";int iItem;" & "int iBitmap;int idCommand;byte fsState;byte fsStyle;align;dword_ptr dwData;int_ptr iString" & ";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;dword Offset;dword OffsetHigh;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 = "dword Size;long Width;long Height;word Planes;word BitCount;dword Compression;dword SizeImage;" & "long XPelsPerMeter;long YPelsPerMeter;dword ClrUsed;dword ClrImportant;dword RGBQuad"
Global Const $tagblendfunction = "byte Op;byte Flags;byte Alpha;byte Format"
Global Const $tagguid = "dword Data1;word Data2;word 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 $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 $tokenuser = 1
Global Const $tokengroups = 2
Global Const $tokenprivileges = 3
Global Const $tokenowner = 4
Global Const $tokenprimarygroup = 5
Global Const $tokendefaultdacl = 6
Global Const $tokensource = 7
Global Const $tokentype = 8
Global Const $tokenimpersonationlevel = 9
Global Const $tokenstatistics = 10
Global Const $tokenrestrictedsids = 11
Global Const $tokensessionid = 12
Global Const $tokengroupsandprivileges = 13
Global Const $tokensessionreference = 14
Global Const $tokensandboxinert = 15
Global Const $tokenauditpolicy = 16
Global Const $tokenorigin = 17
Global Const $tokenelevationtype = 18
Global Const $tokenlinkedtoken = 19
Global Const $tokenelevation = 20
Global Const $tokenhasrestrictions = 21
Global Const $tokenaccessinformation = 22
Global Const $tokenvirtualizationallowed = 23
Global Const $tokenvirtualizationenabled = 24
Global Const $tokenintegritylevel = 25
Global Const $tokenuiaccess = 26
Global Const $tokenmandatorypolicy = 27
Global Const $tokenlogonsid = 28
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

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $aresult = DllCall("kernel32.dll", "dword", "GetLastError")
Return SetError($curerr, $curext, $aresult[0])
EndFunc

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
DllCall("kernel32.dll", "none", "SetLastError", "dword", $ierrcode)
Return SetError($curerr, $curext)
EndFunc

Func _security__adjusttokenprivileges($htoken, $fdisableall, $pnewstate, $ibufferlen, $pprevstate = 0, $prequired = 0)
Local $aresult = DllCall("advapi32.dll", "bool", "AdjustTokenPrivileges", "handle", $htoken, "bool", $fdisableall, "ptr", $pnewstate, "dword", $ibufferlen, "ptr", $pprevstate, "ptr", $prequired)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _security__getaccountsid($saccount, $ssystem = "")
Local $aacct = _security__lookupaccountname($saccount, $ssystem)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return _security__stringsidtosid($aacct[0])
EndFunc

Func _security__getlengthsid($psid)
If NOT _security__isvalidsid($psid) Then Return SetError(-1, 0, 0)
Local $aresult = DllCall("advapi32.dll", "dword", "GetLengthSid", "ptr", $psid)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _security__gettokeninformation($htoken, $iclass)
Local $aresult = DllCall("advapi32.dll", "bool", "GetTokenInformation", "handle", $htoken, "int", $iclass, "ptr", 0, "dword", 0, "dword*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If NOT $aresult[0] Then Return 0
Local $tbuffer = DllStructCreate("byte[" & $aresult[5] & "]")
Local $pbuffer = DllStructGetPtr($tbuffer)
$aresult = DllCall("advapi32.dll", "bool", "GetTokenInformation", "handle", $htoken, "int", $iclass, "ptr", $pbuffer, "dword", $aresult[5], "dword*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If NOT $aresult[0] Then Return 0
Return $tbuffer
EndFunc

Func _security__impersonateself($ilevel = 2)
Local $aresult = DllCall("advapi32.dll", "bool", "ImpersonateSelf", "int", $ilevel)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _security__isvalidsid($psid)
Local $aresult = DllCall("advapi32.dll", "bool", "IsValidSid", "ptr", $psid)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _security__lookupaccountname($saccount, $ssystem = "")
Local $tdata = DllStructCreate("byte SID[256]")
Local $psid = DllStructGetPtr($tdata, "SID")
Local $aresult = DllCall("advapi32.dll", "bool", "LookupAccountNameW", "wstr", $ssystem, "wstr", $saccount, "ptr", $psid, "dword*", 256, "wstr", "", "dword*", 256, "int*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If NOT $aresult[0] Then Return 0
Local $aacct[3]
$aacct[0] = _security__sidtostringsid($psid)
$aacct[1] = $aresult[5]
$aacct[2] = $aresult[7]
Return $aacct
EndFunc

Func _security__lookupaccountsid($vsid)
Local $psid, $aacct[3]
If IsString($vsid) Then
Local $tsid = _security__stringsidtosid($vsid)
$psid = DllStructGetPtr($tsid)
Else
$psid = $vsid
EndIf
If NOT _security__isvalidsid($psid) Then Return SetError(-1, 0, 0)
Local $aresult = DllCall("advapi32.dll", "bool", "LookupAccountSidW", "ptr", 0, "ptr", $psid, "wstr", "", "dword*", 256, "wstr", "", "dword*", 256, "int*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If NOT $aresult[0] Then Return 0
Local $aacct[3]
$aacct[0] = $aresult[3]
$aacct[1] = $aresult[5]
$aacct[2] = $aresult[7]
Return $aacct
EndFunc

Func _security__lookupprivilegevalue($ssystem, $sname)
Local $aresult = DllCall("advapi32.dll", "int", "LookupPrivilegeValueW", "wstr", $ssystem, "wstr", $sname, "int64*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return SetError(0, $aresult[0], $aresult[3])
EndFunc

Func _security__openprocesstoken($hprocess, $iaccess)
Local $aresult = DllCall("advapi32.dll", "int", "OpenProcessToken", "handle", $hprocess, "dword", $iaccess, "ptr", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return SetError(0, $aresult[0], $aresult[3])
EndFunc

Func _security__openthreadtoken($iaccess, $hthread = 0, $fopenasself = False)
If $hthread = 0 Then $hthread = DllCall("kernel32.dll", "handle", "GetCurrentThread")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $aresult = DllCall("advapi32.dll", "bool", "OpenThreadToken", "handle", $hthread[0], "dword", $iaccess, "int", $fopenasself, "ptr*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return SetError(0, $aresult[0], $aresult[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, 0, False)
Local $tcurrstate = DllStructCreate($tagtoken_privileges)
Local $pcurrstate = DllStructGetPtr($tcurrstate)
Local $icurrstate = DllStructGetSize($tcurrstate)
Local $tprevstate = DllStructCreate($tagtoken_privileges)
Local $pprevstate = DllStructGetPtr($tprevstate)
Local $iprevstate = DllStructGetSize($tprevstate)
Local $trequired = DllStructCreate("int Data")
Local $prequired = DllStructGetPtr($trequired)
DllStructSetData($tcurrstate, "Count", 1)
DllStructSetData($tcurrstate, "LUID", $iluid)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return True
EndFunc

Func _security__sidtostringsid($psid)
If NOT _security__isvalidsid($psid) Then Return SetError(-1, 0, "")
Local $aresult = DllCall("advapi32.dll", "int", "ConvertSidToStringSidW", "ptr", $psid, "ptr*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If NOT $aresult[0] Then Return ""
Local $tbuffer = DllStructCreate("wchar Text[256]", $aresult[2])
Local $ssid = DllStructGetData($tbuffer, "Text")
DllCall("Kernel32.dll", "ptr", "LocalFree", "ptr", $aresult[2])
Return $ssid
EndFunc

Func _security__sidtypestr($itype)
Switch $itype
Case 1
Return "User"
Case 2
Return "Group"
Case 3
Return "Domain"
Case 4
Return "Alias"
Case 5
Return "Well Known Group"
Case 6
Return "Deleted Account"
Case 7
Return "Invalid"
Case 8
Return "Invalid"
Case 9
Return "Computer"
Case Else
Return "Unknown SID Type"
EndSwitch
EndFunc

Func _security__stringsidtosid($ssid)
Local $aresult = DllCall("advapi32.dll", "bool", "ConvertStringSidToSidW", "wstr", $ssid, "ptr*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If NOT $aresult[0] Then Return 0
Local $isize = _security__getlengthsid($aresult[2])
Local $tbuffer = DllStructCreate("byte Data[" & $isize & "]", $aresult[2])
Local $tsid = DllStructCreate("byte Data[" & $isize & "]")
DllStructSetData($tsid, "Data", DllStructGetData($tbuffer, "Data"))
DllCall("kernel32.dll", "ptr", "LocalFree", "ptr", $aresult[2])
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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_deskt op = 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 $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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_attachthreadinput($iattach, $iattachto, $fattach)
Local $aresult = DllCall("user32.dll", "bool", "AttachThreadInput", "dword", $iattach, "dword", $iattachto, "bool", $fattach)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_beep($ifreq = 500, $iduration = 1000)
Local $aresult = DllCall("kernel32.dll", "bool", "Beep", "dword", $ifreq, "dword", $iduration)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_clienttoscreen($hwnd, ByRef $tpoint)
Local $ppoint = DllStructGetPtr($tpoint)
DllCall("user32.dll", "bool", "ClientToScreen", "hwnd", $hwnd, "ptr", $ppoint)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndFunc

Func _winapi_closehandle($hobject)
Local $aresult = DllCall("kernel32.dll", "bool", "CloseHandle", "handle", $hobject)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Switch $aresult[0]
Case $cderr_dialogfailure
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Case $cderr_findresfailure
Return SetError($aresult[0], 0, "The common dialog box function failed to find a specified resource.")
Case $cderr_initialization
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Case $cderr_nohook
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Case $cderr_notemplate
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_createcompatiblebitmap($hdc, $iwidth, $iheight)
Local $aresult = DllCall("gdi32.dll", "handle", "CreateCompatibleBitmap", "handle", $hdc, "int", $iwidth, "int", $iheight)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_createcompatibledc($hdc)
Local $aresult = DllCall("gdi32.dll", "handle", "CreateCompatibleDC", "handle", $hdc)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_createfontindirect($tlogfont)
Local $aresult = DllCall("gdi32.dll", "handle", "CreateFontIndirectW", "ptr", DllStructGetPtr($tlogfont))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_createpen($ipenstyle, $iwidth, $ncolor)
Local $aresult = DllCall("gdi32.dll", "handle", "CreatePen", "int", $ipenstyle, "int", $iwidth, "dword", $ncolor)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_createprocess($sappname, $scommand, $psecurity, $pthread, $finherit, $iflags, $penviron, $sdir, $pstartupinfo, $pprocess)
Local $pcommand = 0
Local $sappnametype = "wstr", $sdirtype = "wstr"
If $sappname = "" Then
$sappnametype = "ptr"
$sappname = 0
EndIf
If $scommand <> "" Then
Local $tcommand = DllStructCreate("wchar Text[" & 260 + 1 & "]")
$pcommand = DllStructGetPtr($tcommand)
DllStructSetData($tcommand, "Text", $scommand)
EndIf
If $sdir = "" Then
$sdirtype = "ptr"
$sdir = 0
EndIf
Local $aresult = DllCall("kernel32.dll", "bool", "CreateProcessW", $sappnametype, $sappname, "ptr", $pcommand, "ptr", $psecurity, "ptr", $pthread, "bool", $finherit, "dword", $iflags, "ptr", $penviron, $sdirtype, $sdir, "ptr", $pstartupinfo, "ptr", $pprocess)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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, DllStructGetPtr($trect), $hbrush)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
_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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_deletedc($hdc)
Local $aresult = DllCall("gdi32.dll", "bool", "DeleteDC", "handle", $hdc)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_deleteobject($hobject)
Local $aresult = DllCall("gdi32.dll", "bool", "DeleteObject", "handle", $hobject)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_destroyicon($hicon)
Local $aresult = DllCall("user32.dll", "bool", "DestroyIcon", "handle", $hicon)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_destroywindow($hwnd)
Local $aresult = DllCall("user32.dll", "bool", "DestroyWindow", "hwnd", $hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_drawline($hdc, $ix1, $iy1, $ix2, $iy2)
_winapi_moveto($hdc, $ix1, $iy1)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
_winapi_lineto($hdc, $ix2, $iy2)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return True
EndFunc

Func _winapi_drawtext($hdc, $stext, ByRef $trect, $iflags)
Local $aresult = DllCall("user32.dll", "int", "DrawTextW", "handle", $hdc, "wstr", $stext, "int", -1, "ptr", DllStructGetPtr($trect), "uint", $iflags)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_enablewindow($hwnd, $fenable = True)
Local $aresult = DllCall("user32.dll", "bool", "EnableWindow", "hwnd", $hwnd, "bool", $fenable)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_enumdisplaydevices($sdevice, $idevnum)
Local $pname = 0, $iflags = 0, $adevice[5]
If $sdevice <> "" Then
Local $tname = DllStructCreate("wchar Text[" & StringLen($sdevice) + 1 & "]")
$pname = DllStructGetPtr($tname)
DllStructSetData($tname, "Text", $sdevice)
EndIf
Local $tdevice = DllStructCreate($tagdisplay_device)
Local $pdevice = DllStructGetPtr($tdevice)
Local $idevice = DllStructGetSize($tdevice)
DllStructSetData($tdevice, "Size", $idevice)
DllCall("user32.dll", "bool", "EnumDisplayDevicesW", "ptr", $pname, "dword", $idevnum, "ptr", $pdevice, "dword", 1)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $in = DllStructGetData($tdevice, "Flags")
If BitAND($in, $__winapiconstant_display_device_attached_to_deskt op) <> 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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[2]
EndFunc

Func _winapi_extracticonex($sfile, $iindex, $plarge, $psmall, $iicons)
Local $aresult = DllCall("shell32.dll", "uint", "ExtractIconExW", "wstr", $sfile, "int", $iindex, "handle", $plarge, "handle", $psmall, "uint", $iicons)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_fatalappexit($smessage)
DllCall("kernel32.dll", "none", "FatalAppExitW", "uint", 0, "wstr", $smessage)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndFunc

Func _winapi_fillrect($hdc, $ptrrect, $hbrush)
Local $aresult
If IsPtr($hbrush) Then
$aresult = DllCall("user32.dll", "int", "FillRect", "handle", $hdc, "ptr", $ptrrect, "handle", $hbrush)
Else
$aresult = DllCall("user32.dll", "int", "FillRect", "handle", $hdc, "ptr", $ptrrect, "dword", $hbrush)
EndIf
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_findexecutable($sfilename, $sdirectory = "")
Local $aresult = DllCall("shell32.dll", "INT", "FindExecutableW", "wstr", $sfilename, "wstr", $sdirectory, "wstr", "")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return SetExtended($aresult[0], $aresult[3])
EndFunc

Func _winapi_findwindow($sclassname, $swindowname)
Local $aresult = DllCall("user32.dll", "hwnd", "FindWindowW", "wstr", $sclassname, "wstr", $swindowname)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_flashwindow($hwnd, $finvert = True)
Local $aresult = DllCall("user32.dll", "bool", "FlashWindow", "hwnd", $hwnd, "bool", $finvert)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_flashwindowex($hwnd, $iflags = 3, $icount = 3, $itimeout = 0)
Local $tflash = DllStructCreate($tagflashwinfo)
Local $pflash = DllStructGetPtr($tflash)
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", "ptr", $pflash)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_formatmessage($iflags, $psource, $imessageid, $ilanguageid, ByRef $pbuffer, $isize, $varguments)
Local $sbuffertype = "ptr"
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_freelibrary($hmodule)
Local $aresult = DllCall("kernel32.dll", "bool", "FreeLibrary", "handle", $hmodule)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getancestor($hwnd, $iflags = 1)
Local $aresult = DllCall("user32.dll", "hwnd", "GetAncestor", "hwnd", $hwnd, "uint", $iflags)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getasynckeystate($ikey)
Local $aresult = DllCall("user32.dll", "short", "GetAsyncKeyState", "int", $ikey)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getbkmode($hdc)
Local $aresult = DllCall("gdi32.dll", "int", "GetBkMode", "handle", $hdc)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return SetExtended($aresult[0], $aresult[2])
EndFunc

Func _winapi_getclientheight($hwnd)
Local $trect = _winapi_getclientrect($hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return DllStructGetData($trect, "Bottom") - DllStructGetData($trect, "Top")
EndFunc

Func _winapi_getclientwidth($hwnd)
Local $trect = _winapi_getclientrect($hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return DllStructGetData($trect, "Right") - DllStructGetData($trect, "Left")
EndFunc

Func _winapi_getclientrect($hwnd)
Local $trect = DllStructCreate($tagrect)
DllCall("user32.dll", "bool", "GetClientRect", "hwnd", $hwnd, "ptr", DllStructGetPtr($trect))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $trect
EndFunc

Func _winapi_getcurrentprocess()
Local $aresult = DllCall("kernel32.dll", "handle", "GetCurrentProcess")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getcurrentprocessid()
Local $aresult = DllCall("kernel32.dll", "dword", "GetCurrentProcessId")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getcurrentthread()
Local $aresult = DllCall("kernel32.dll", "handle", "GetCurrentThread")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getcurrentthreadid()
Local $aresult = DllCall("kernel32.dll", "dword", "GetCurrentThreadId")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getcursorinfo()
Local $tcursor = DllStructCreate($tagcursorinfo)
Local $icursor = DllStructGetSize($tcursor)
DllStructSetData($tcursor, "Size", $icursor)
DllCall("user32.dll", "bool", "GetCursorInfo", "ptr", DllStructGetPtr($tcursor))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getdesktopwindow()
Local $aresult = DllCall("user32.dll", "hwnd", "GetDesktopWindow")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getdevicecaps($hdc, $iindex)
Local $aresult = DllCall("gdi32.dll", "int", "GetDeviceCaps", "handle", $hdc, "int", $iindex)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getdlgctrlid($hwnd)
Local $aresult = DllCall("user32.dll", "int", "GetDlgCtrlID", "hwnd", $hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getdlgitem($hwnd, $iitemid)
Local $aresult = DllCall("user32.dll", "hwnd", "GetDlgItem", "hwnd", $hwnd, "int", $iitemid)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getfocus()
Local $aresult = DllCall("user32.dll", "hwnd", "GetFocus")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getforegroundwindow()
Local $aresult = DllCall("user32.dll", "hwnd", "GetForegroundWindow")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_geticoninfo($hicon)
Local $tinfo = DllStructCreate($tagiconinfo)
DllCall("user32.dll", "bool", "GetIconInfo", "handle", $hicon, "ptr", DllStructGetPtr($tinfo))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[2]
EndFunc

Func _winapi_getlasterrormessage()
Local $tbufferptr = DllStructCreate("ptr")
Local $pbufferptr = DllStructGetPtr($tbufferptr)
Local $ncount = _winapi_formatmessage(BitOR($__winapiconstant_form at_message_allocate_buffer, $__winapiconstant_format_message_from_system), 0, _winapi_getlasterror(), 0, $pbufferptr, 0, 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If NOT $ascolorref Then
$aresult[2] = Hex(String($aresult[2]), 6)
$aresult[2] = "0x" & StringMid($aresult[2], 5, 2) & StringMid($aresult[2], 3, 2) & StringMid($aresult[2], 1, 2)
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)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getmousepos($ftoclient = False, $hwnd = 0)
Local $imode = Opt("MouseCoordMode", 1)
Local $apos = MouseGetPos()
Opt("MouseCoordMode", $imode)
Local $tpoint = DllStructCreate($tagpoint)
DllStructSetData($tpoint, "X", $apos[0])
DllStructSetData($tpoint, "Y", $apos[1])
If $ftoclient Then
_winapi_screentoclient($hwnd, $tpoint)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
Return $tpoint
EndFunc

Func _winapi_getmouseposx($ftoclient = False, $hwnd = 0)
Local $tpoint = _winapi_getmousepos($ftoclient, $hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return DllStructGetData($tpoint, "X")
EndFunc

Func _winapi_getmouseposy($ftoclient = False, $hwnd = 0)
Local $tpoint = _winapi_getmousepos($ftoclient, $hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return DllStructGetData($tpoint, "Y")
EndFunc

Func _winapi_getobject($hobject, $isize, $pobject)
Local $aresult = DllCall("gdi32.dll", "int", "GetObject", "handle", $hobject, "int", $isize, "ptr", $pobject)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getopenfilename($stitle = "", $sfilter = "All files (*.*)", $sinitaldir = ".", $sdefaultfile = "", $sdefaultext = "", $ifilterindex = 1, $iflags = 0, $iflagsex = 0, $hwndowner = 0)
Local $ipathlen = 4096
Local $inulls = 0
Local $tofn = DllStructCreate($tagopenfilename)
Local $afiles[1] = [0]
Local $iflag = $iflags
Local $asflines = StringSplit($sfilter, "|")
Local $asfilter[$asflines[0] * 2 + 1]
Local $istart, $ifinal, $stfilter
$asfilter[0] = $asflines[0] * 2
For $i = 1 To $asflines[0]
$istart = StringInStr($asflines[$i], "(", 0, 1)
$ifinal = StringInStr($asflines[$i], ")", 0, -1)
$asfilter[$i * 2 - 1] = StringStripWS(StringLeft($asflines[$i], $istart - 1), 3)
$asfilter[$i * 2] = StringStripWS(StringTrimRight(StringTrimLeft($asfl ines[$i], $istart), StringLen($asflines[$i]) - $ifinal + 1), 3)
$stfilter &= "wchar[" & StringLen($asfilter[$i * 2 - 1]) + 1 & "];wchar[" & StringLen($asfilter[$i * 2]) + 1 & "];"
Next
Local $ttitle = DllStructCreate("wchar Title[" & StringLen($stitle) + 1 & "]")
Local $tinitialdir = DllStructCreate("wchar InitDir[" & StringLen($sinitaldir) + 1 & "]")
Local $tfilter = DllStructCreate($stfilter & "wchar")
Local $tpath = DllStructCreate("wchar Path[" & $ipathlen & "]")
Local $textn = DllStructCreate("wchar Extension[" & StringLen($sdefaultext) + 1 & "]")
For $i = 1 To $asfilter[0]
DllStructSetData($tfilter, $i, $asfilter[$i])
Next
DllStructSetData($ttitle, "Title", $stitle)
DllStructSetData($tinitialdir, "InitDir", $sinitaldir)
DllStructSetData($tpath, "Path", $sdefaultfile)
DllStructSetData($textn, "Extension", $sdefaultext)
DllStructSetData($tofn, "StructSize", DllStructGetSize($tofn))
DllStructSetData($tofn, "hwndOwner", $hwndowner)
DllStructSetData($tofn, "lpstrFilter", DllStructGetPtr($tfilter))
DllStructSetData($tofn, "nFilterIndex", $ifilterindex)
DllStructSetData($tofn, "lpstrFile", DllStructGetPtr($tpath))
DllStructSetData($tofn, "nMaxFile", $ipathlen)
DllStructSetData($tofn, "lpstrInitialDir", DllStructGetPtr($tinitialdir))
DllStructSetData($tofn, "lpstrTitle", DllStructGetPtr($ttitle))
DllStructSetData($tofn, "Flags", $iflag)
DllStructSetData($tofn, "lpstrDefExt", DllStructGetPtr($textn))
DllStructSetData($tofn, "FlagsEx", $iflagsex)
DllCall("comdlg32.dll", "bool", "GetOpenFileNameW", "ptr", DllStructGetPtr($tofn))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If BitAND($iflags, $ofn_allowmultiselect) = $ofn_allowmultiselect AND BitAND($iflags, $ofn_explorer) = $ofn_explorer Then
For $x = 1 To $ipathlen
If DllStructGetData($tpath, "Path", $x) = Chr(0) Then
DllStructSetData($tpath, "Path", "|", $x)
$inulls += 1
Else
$inulls = 0
EndIf
If $inulls = 2 Then ExitLoop
Next
DllStructSetData($tpath, "Path", Chr(0), $x - 1)
$afiles = StringSplit(DllStructGetData($tpath, "Path"), "|")
If $afiles[0] = 1 Then Return __winapi_parsefiledialogpath(DllStructGetData($tpa th, "Path"))
Return StringSplit(DllStructGetData($tpath, "Path"), "|")
ElseIf BitAND($iflags, $ofn_allowmultiselect) = $ofn_allowmultiselect Then
$afiles = StringSplit(DllStructGetData($tpath, "Path"), " ")
If $afiles[0] = 1 Then Return __winapi_parsefiledialogpath(DllStructGetData($tpa th, "Path"))
Return StringSplit(StringReplace(DllStructGetData($tpath, "Path"), " ", "|"), "|")
Else
Return __winapi_parsefiledialogpath(DllStructGetData($tpa th, "Path"))
EndIf
EndFunc

Func _winapi_getoverlappedresult($hfile, $poverlapped, ByRef $ibytes, $fwait = False)
Local $aresult = DllCall("kernel32.dll", "bool", "GetOverlappedResult", "handle", $hfile, "ptr", $poverlapped, "dword*", 0, "bool", $fwait)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$ibytes = $aresult[3]
Return $aresult[0]
EndFunc

Func _winapi_getparent($hwnd)
Local $aresult = DllCall("user32.dll", "hwnd", "GetParent", "hwnd", $hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getprocessaffinitymask($hprocess)
Local $aresult = DllCall("kernel32.dll", "bool", "GetProcessAffinityMask", "handle", $hprocess, "dword_ptr*", 0, "dword_ptr*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $amask[3]
$amask[0] = True
$amask[1] = $aresult[2]
$amask[2] = $aresult[3]
Return $amask
EndFunc

Func _winapi_getsavefilename($stitle = "", $sfilter = "All files (*.*)", $sinitaldir = ".", $sdefaultfile = "", $sdefaultext = "", $ifilterindex = 1, $iflags = 0, $iflagsex = 0, $hwndowner = 0)
Local $ipathlen = 4096
Local $tofn = DllStructCreate($tagopenfilename)
Local $afiles[1] = [0]
Local $iflag = $iflags
Local $asflines = StringSplit($sfilter, "|")
Local $asfilter[$asflines[0] * 2 + 1]
Local $istart, $ifinal, $stfilter
$asfilter[0] = $asflines[0] * 2
For $i = 1 To $asflines[0]
$istart = StringInStr($asflines[$i], "(", 0, 1)
$ifinal = StringInStr($asflines[$i], ")", 0, -1)
$asfilter[$i * 2 - 1] = StringStripWS(StringLeft($asflines[$i], $istart - 1), 3)
$asfilter[$i * 2] = StringStripWS(StringTrimRight(StringTrimLeft($asfl ines[$i], $istart), StringLen($asflines[$i]) - $ifinal + 1), 3)
$stfilter &= "wchar[" & StringLen($asfilter[$i * 2 - 1]) + 1 & "];wchar[" & StringLen($asfilter[$i * 2]) + 1 & "];"
Next
Local $ttitle = DllStructCreate("wchar Title[" & StringLen($stitle) + 1 & "]")
Local $tinitialdir = DllStructCreate("wchar InitDir[" & StringLen($sinitaldir) + 1 & "]")
Local $tfilter = DllStructCreate($stfilter & "wchar")
Local $tpath = DllStructCreate("wchar Path[" & $ipathlen & "]")
Local $textn = DllStructCreate("wchar Extension[" & StringLen($sdefaultext) + 1 & "]")
For $i = 1 To $asfilter[0]
DllStructSetData($tfilter, $i, $asfilter[$i])
Next
DllStructSetData($ttitle, "Title", $stitle)
DllStructSetData($tinitialdir, "InitDir", $sinitaldir)
DllStructSetData($tpath, "Path", $sdefaultfile)
DllStructSetData($textn, "Extension", $sdefaultext)
DllStructSetData($tofn, "StructSize", DllStructGetSize($tofn))
DllStructSetData($tofn, "hwndOwner", $hwndowner)
DllStructSetData($tofn, "lpstrFilter", DllStructGetPtr($tfilter))
DllStructSetData($tofn, "nFilterIndex", $ifilterindex)
DllStructSetData($tofn, "lpstrFile", DllStructGetPtr($tpath))
DllStructSetData($tofn, "nMaxFile", $ipathlen)
DllStructSetData($tofn, "lpstrInitialDir", DllStructGetPtr($tinitialdir))
DllStructSetData($tofn, "lpstrTitle", DllStructGetPtr($ttitle))
DllStructSetData($tofn, "Flags", $iflag)
DllStructSetData($tofn, "lpstrDefExt", DllStructGetPtr($textn))
DllStructSetData($tofn, "FlagsEx", $iflagsex)
DllCall("comdlg32.dll", "bool", "GetSaveFileNameW", "ptr", DllStructGetPtr($tofn))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return __winapi_parsefiledialogpath(DllStructGetData($tpa th, "Path"))
EndFunc

Func _winapi_getstockobject($iobject)
Local $aresult = DllCall("gdi32.dll", "handle", "GetStockObject", "int", $iobject)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getstdhandle($istdhandle)
If $istdhandle < 0 OR $istdhandle > 2 Then Return SetError(2, 0, -1)
Local Const $ahandle[3] = [-10, -11, -12]
Local $aresult = DllCall("kernel32.dll", "handle", "GetStdHandle", "dword", $ahandle[$istdhandle])
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getsyscolor($iindex)
Local $aresult = DllCall("user32.dll", "dword", "GetSysColor", "int", $iindex)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getsyscolorbrush($iindex)
Local $aresult = DllCall("user32.dll", "handle", "GetSysColorBrush", "int", $iindex)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getsystemmetrics($iindex)
Local $aresult = DllCall("user32.dll", "int", "GetSystemMetrics", "int", $iindex)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_gettextextentpoint32($hdc, $stext)
Local $tsize = DllStructCreate($tagsize)
Local $isize = StringLen($stext)
DllCall("gdi32.dll", "bool", "GetTextExtentPoint32W", "handle", $hdc, "wstr", $stext, "int", $isize, "ptr", DllStructGetPtr($tsize))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $tsize
EndFunc

Func _winapi_getwindow($hwnd, $icmd)
Local $aresult = DllCall("user32.dll", "hwnd", "GetWindow", "hwnd", $hwnd, "uint", $icmd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getwindowdc($hwnd)
Local $aresult = DllCall("user32.dll", "handle", "GetWindowDC", "hwnd", $hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getwindowheight($hwnd)
Local $trect = _winapi_getwindowrect($hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return DllStructGetData($trect, "Bottom") - DllStructGetData($trect, "Top")
EndFunc

Func _winapi_getwindowlong($hwnd, $iindex)
Local $sfuncname = "GetWindowLongW"
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $aresult = DllCall("user32.dll", "long_ptr", $sfuncname, "hwnd", $hwnd, "int", $iindex)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getwindowplacement($hwnd)
Local $twindowplacement = DllStructCreate($tagwindowplacement)
DllStructSetData($twindowplacement, "length", DllStructGetSize($twindowplacement))
Local $pwindowplacement = DllStructGetPtr($twindowplacement)
DllCall("user32.dll", "bool", "GetWindowPlacement", "hwnd", $hwnd, "ptr", $pwindowplacement)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $twindowplacement
EndFunc

Func _winapi_getwindowrect($hwnd)
Local $trect = DllStructCreate($tagrect)
DllCall("user32.dll", "bool", "GetWindowRect", "hwnd", $hwnd, "ptr", DllStructGetPtr($trect))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $trect
EndFunc

Func _winapi_getwindowrgn($hwnd, $hrgn)
Local $aresult = DllCall("user32.dll", "int", "GetWindowRgn", "hwnd", $hwnd, "handle", $hrgn)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_getwindowtext($hwnd)
Local $aresult = DllCall("user32.dll", "int", "GetWindowTextW", "hwnd", $hwnd, "wstr", "", "int", 4096)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return SetExtended($aresult[0], $aresult[2])
EndFunc

Func _winapi_getwindowthreadprocessid($hwnd, ByRef $ipid)
Local $aresult = DllCall("user32.dll", "dword", "GetWindowThreadProcessId", "hwnd", $hwnd, "dword*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$ipid = $aresult[2]
Return $aresult[0]
EndFunc

Func _winapi_getwindowwidth($hwnd)
Local $trect = _winapi_getwindowrect($hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return DllStructGetData($trect, "Right") - DllStructGetData($trect, "Left")
EndFunc

Func _winapi_getxyfrompoint(ByRef $tpoint, ByRef $ix, ByRef $iy)
$ix = DllStructGetData($tpoint, "X")
$iy = DllStructGetData($tpoint, "Y")
EndFunc

Func _winapi_globalmemorystatus()
Local $tmem = DllStructCreate($tagmemorystatusex)
Local $pmem = DllStructGetPtr($tmem)
Local $imem = DllStructGetSize($tmem)
DllStructSetData($tmem, 1, $imem)
DllCall("kernel32.dll", "none", "GlobalMemoryStatusEx", "ptr", $pmem)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $amem[7]
$amem[0] = DllStructGetData($tmem, 2)
$amem[1] = DllStructGetData($tmem, 3)
$amem[2] = DllStructGetData($tmem, 4)
$amem[3] = DllStructGetData($tmem, 5)
$amem[4] = DllStructGetData($tmem, 6)
$amem[5] = DllStructGetData($tmem, 7)
$amem[6] = DllStructGetData($tmem, 8)
Return $amem
EndFunc

Func _winapi_guidfromstring($sguid)
Local $tguid = DllStructCreate($tagguid)
_winapi_guidfromstringex($sguid, DllStructGetPtr($tguid))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $tguid
EndFunc

Func _winapi_guidfromstringex($sguid, $pguid)
Local $aresult = DllCall("ole32.dll", "long", "CLSIDFromString", "wstr", $sguid, "ptr", $pguid)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_hiword($ilong)
Return BitShift($ilong, 16)
EndFunc

Func _winapi_inprocess($hwnd, ByRef $hlastwnd)
If $hwnd = $hlastwnd Then Return True
For $ii = $__gainprocess_winapi[0][0] To 1 Step -1
If $hwnd = $__gainprocess_winapi[$ii][0] Then
If $__gainprocess_winapi[$ii][1] Then
$hlastwnd = $hwnd
Return True
Else
Return False
EndIf
EndIf
Next
Local $iprocessid
_winapi_getwindowthreadprocessid($hwnd, $iprocessid)
Local $icount = $__gainprocess_winapi[0][0] + 1
If $icount >= 64 Then $icount = 1
$__gainprocess_winapi[0][0] = $icount
$__gainprocess_winapi[$icount][0] = $hwnd
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $__gainprocess_winapi[$icount][1]
EndFunc

Func _winapi_inttofloat($iint)
Local $tint = DllStructCreate("int")
Local $tfloat = DllStructCreate("float", DllStructGetPtr($tint))
DllStructSetData($tint, 1, $iint)
Return DllStructGetData($tfloat, 1)
EndFunc

Func _winapi_isclassname($hwnd, $sclassname)
Local $sseparator = Opt("GUIDataSeparatorChar")
Local $aclassname = StringSplit($sclassname, $sseparator)
If NOT IsHWnd($hwnd) Then $hwnd = GUICtrlGetHandle($hwnd)
Local $sclasscheck = _winapi_getclassname($hwnd)
For $x = 1 To UBound($aclassname) - 1
If StringUpper(StringMid($sclasscheck, 1, StringLen($aclassname[$x]))) = StringUpper($aclassname[$x]) Then Return True
Next
Return False
EndFunc

Func _winapi_iswindow($hwnd)
Local $aresult = DllCall("user32.dll", "bool", "IsWindow", "hwnd", $hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_iswindowvisible($hwnd)
Local $aresult = DllCall("user32.dll", "bool", "IsWindowVisible", "hwnd", $hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_invalidaterect($hwnd, $trect = 0, $ferase = True)
Local $prect = 0
If IsDllStruct($trect) Then $prect = DllStructGetPtr($trect)
Local $aresult = DllCall("user32.dll", "bool", "InvalidateRect", "hwnd", $hwnd, "ptr", $prect, "bool", $ferase)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_lineto($hdc, $ix, $iy)
Local $aresult = DllCall("gdi32.dll", "bool", "LineTo", "handle", $hdc, "int", $ix, "int", $iy)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_loadbitmap($hinstance, $sbitmap)
Local $sbitmaptype = "int"
If IsString($sbitmap) Then $sbitmaptype = "wstr"
Local $aresult = DllCall("user32.dll", "handle", "LoadBitmapW", "handle", $hinstance, $sbitmaptype, $sbitmap)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_loadimage($hinstance, $simage, $itype, $ixdesired, $iydesired, $iload)
Local $aresult, $simagetype = "int"
If IsString($simage) Then $simagetype = "wstr"
$aresult = DllCall("user32.dll", "handle", "LoadImageW", "handle", $hinstance, $simagetype, $simage, "uint", $itype, "int", $ixdesired, "int", $iydesired, "uint", $iload)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_loadlibrary($sfilename)
Local $aresult = DllCall("kernel32.dll", "handle", "LoadLibraryW", "wstr", $sfilename)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_loadlibraryex($sfilename, $iflags = 0)
Local $aresult = DllCall("kernel32.dll", "handle", "LoadLibraryExW", "wstr", $sfilename, "ptr", 0, "dword", $iflags)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_loadshell32icon($iiconid)
Local $ticons = DllStructCreate("ptr Data")
Local $picons = DllStructGetPtr($ticons)
Local $iicons = _winapi_extracticonex("shell32.dll", $iiconid, 0, $picons, 1)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If $iicons <= 0 Then Return SetError(1, 0, 0)
Return DllStructGetData($ticons, "Data")
EndFunc

Func _winapi_loadstring($hinstance, $istringid)
Local $aresult = DllCall("user32.dll", "int", "LoadStringW", "handle", $hinstance, "uint", $istringid, "wstr", "", "int", 4096)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return SetExtended($aresult[0], $aresult[3])
EndFunc

Func _winapi_localfree($hmem)
Local $aresult = DllCall("kernel32.dll", "handle", "LocalFree", "handle", $hmem)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_loword($ilong)
Return BitAND($ilong, 65535)
EndFunc

Func _winapi_makelangid($lgidprimary, $lgidsub)
Return BitOR(BitShift($lgidsub, -10), $lgidprimary)
EndFunc

Func _winapi_makelcid($lgid, $srtid)
Return BitOR(BitShift($srtid, -16), $lgid)
EndFunc

Func _winapi_makelong($ilo, $ihi)
Return BitOR(BitShift($ihi, -16), BitAND($ilo, 65535))
EndFunc

Func _winapi_makeqword($lodword, $hidword)
Local $tint64 = DllStructCreate("uint64")
Local $tdwords = DllStructCreate("dword;dword", DllStructGetPtr($tint64))
DllStructSetData($tdwords, 1, $lodword)
DllStructSetData($tdwords, 2, $hidword)
Return DllStructGetData($tint64, 1)
EndFunc

Func _winapi_messagebeep($itype = 1)
Local $isound
Switch $itype
Case 1
$isound = 0
Case 2
$isound = 16
Case 3
$isound = 32
Case 4
$isound = 48
Case 5
$isound = 64
Case Else
$isound = -1
EndSwitch
Local $aresult = DllCall("user32.dll", "bool", "MessageBeep", "uint", $isound)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_msgbox($iflags, $stitle, $stext)
BlockInput(0)
MsgBox($iflags, $stitle, $stext & " ")
EndFunc

Func _winapi_mouse_event($iflags, $ix = 0, $iy = 0, $idata = 0, $iextrainfo = 0)
DllCall("user32.dll", "none", "mouse_event", "dword", $iflags, "dword", $ix, "dword", $iy, "dword", $idata, "ulong_ptr", $iextrainfo)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndFunc

Func _winapi_moveto($hdc, $ix, $iy)
Local $aresult = DllCall("gdi32.dll", "bool", "MoveToEx", "handle", $hdc, "int", $ix, "int", $iy, "ptr", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_movewindow($hwnd, $ix, $iy, $iwidth, $iheight, $frepaint = True)
Local $aresult = DllCall("user32.dll", "bool", "MoveWindow", "hwnd", $hwnd, "int", $ix, "int", $iy, "int", $iwidth, "int", $iheight, "bool", $frepaint)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_muldiv($inumber, $inumerator, $idenominator)
Local $aresult = DllCall("kernel32.dll", "int", "MulDiv", "int", $inumber, "int", $inumerator, "int", $idenominator)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_multibytetowidechar($stext, $icodepage = 0, $iflags = 0, $bretstring = False)
Local $stexttype = "ptr", $ptext = $stext
If IsDllStruct($stext) Then
$ptext = DllStructGetPtr($stext)
Else
If NOT IsPtr($stext) Then $stexttype = "STR"
EndIf
Local $aresult = DllCall("kernel32.dll", "int", "MultiByteToWideChar", "uint", $icodepage, "dword", $iflags, $stexttype, $ptext, "int", -1, "ptr", 0, "int", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $iout = $aresult[0]
Local $tout = DllStructCreate("wchar[" & $iout & "]")
Local $pout = DllStructGetPtr($tout)
$aresult = DllCall("kernel32.dll", "int", "MultiByteToWideChar", "uint", $icodepage, "dword", $iflags, $stexttype, $ptext, "int", -1, "ptr", $pout, "int", $iout)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If $bretstring Then Return DllStructGetData($tout, 1)
Return $tout
EndFunc

Func _winapi_multibytetowidecharex($stext, $ptext, $icodepage = 0, $iflags = 0)
Local $aresult = DllCall("kernel32.dll", "int", "MultiByteToWideChar", "uint", $icodepage, "dword", $iflags, "STR", $stext, "int", -1, "ptr", $ptext, "int", (StringLen($stext) + 1) * 2)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_openprocess($iaccess, $finherit, $iprocessid, $fdebugpriv = False)
Local $aresult = DllCall("kernel32.dll", "handle", "OpenProcess", "dword", $iaccess, "bool", $finherit, "dword", $iprocessid)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If $aresult[0] Then Return $aresult[0]
If NOT $fdebugpriv Then Return 0
Local $htoken = _security__openthreadtokenex(BitOR($token_adjust_p rivileges, $token_query))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
_security__setprivilege($htoken, "SeDebugPrivilege", True)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $iret = 0
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$aresult = DllCall("kernel32.dll", "handle", "OpenProcess", "dword", $iaccess, "bool", $finherit, "dword", $iprocessid)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If $aresult[0] Then $iret = $aresult[0]
_security__setprivilege($htoken, "SeDebugPrivilege", False)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
EndIf
_winapi_closehandle($htoken)
Return SetError($ierror, $ilasterror, $iret)
EndFunc

Func __winapi_parsefiledialogpath($spath)
Local $afiles[3]
$afiles[0] = 2
Local $stemp = StringMid($spath, 1, StringInStr($spath, "\", 0, -1) - 1)
$afiles[1] = $stemp
$afiles[2] = StringMid($spath, StringInStr($spath, "\", 0, -1) + 1)
Return $afiles
EndFunc

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $iextracount = 0
If IsString($aextrapaths) Then
If StringLen($aextrapaths) Then
$aextrapaths = StringSplit($aextrapaths, $szpathdelimiter, 1 + 2)
$iextracount = UBound($aextrapaths, 1)
EndIf
ElseIf IsArray($aextrapaths) Then
$iextracount = UBound($aextrapaths)
EndIf
Local $tpaths, $tpathptrs
If $iextracount Then
Local $szstruct = ""
For $path In $aextrapaths
$szstruct &= "wchar[" & StringLen($path) + 1 & "];"
Next
$tpaths = DllStructCreate($szstruct)
$tpathptrs = DllStructCreate("ptr[" & $iextracount + 1 & "]")
For $i = 1 To $iextracount
DllStructSetData($tpaths, $i, $aextrapaths[$i - 1])
DllStructSetData($tpathptrs, 1, DllStructGetPtr($tpaths, $i), $i)
Next
DllStructSetData($tpathptrs, 1, Ptr(0), $iextracount + 1)
EndIf
Local $aresult = DllCall("shlwapi.dll", "bool", "PathFindOnPathW", "wstr", $szfile, "ptr", DllStructGetPtr($tpathptrs))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If $aresult[0] = 0 Then Return SetError(1, 0, $szfile)
Return $aresult[1]
EndFunc

Func _winapi_pointfromrect(ByRef $trect, $fcenter = True)
Local $ix1 = DllStructGetData($trect, "Left")
Local $iy1 = DllStructGetData($trect, "Top")
Local $ix2 = DllStructGetData($trect, "Right")
Local $iy2 = DllStructGetData($trect, "Bottom")
If $fcenter Then
$ix1 = $ix1 + (($ix2 - $ix1) / 2)
$iy1 = $iy1 + (($iy2 - $iy1) / 2)
EndIf
Local $tpoint = DllStructCreate($tagpoint)
DllStructSetData($tpoint, "X", $ix1)
DllStructSetData($tpoint, "Y", $iy1)
Return $tpoint
EndFunc

Func _winapi_postmessage($hwnd, $imsg, $iwparam, $ilparam)
Local $aresult = DllCall("user32.dll", "bool", "PostMessage", "hwnd", $hwnd, "uint", $imsg, "wparam", $iwparam, "lparam", $ilparam)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_primarylangid($lgid)
Return BitAND($lgid, 1023)
EndFunc

Func _winapi_ptinrect(ByRef $trect, ByRef $tpoint)
Local $ix = DllStructGetData($tpoint, "X")
Local $iy = DllStructGetData($tpoint, "Y")
Local $aresult = DllCall("user32.dll", "bool", "PtInRect", "ptr", DllStructGetPtr($trect), "long", $ix, "long", $iy)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_readfile($hfile, $pbuffer, $itoread, ByRef $iread, $poverlapped = 0)
Local $aresult = DllCall("kernel32.dll", "bool", "ReadFile", "handle", $hfile, "ptr", $pbuffer, "dword", $itoread, "dword*", 0, "ptr", $poverlapped)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$iread = $aresult[4]
Return $aresult[0]
EndFunc

Func _winapi_readprocessmemory($hprocess, $pbaseaddress, $pbuffer, $isize, ByRef $iread)
Local $aresult = DllCall("kernel32.dll", "bool", "ReadProcessMemory", "handle", $hprocess, "ptr", $pbaseaddress, "ptr", $pbuffer, "ulong_ptr", $isize, "ulong_ptr*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$iread = $aresult[5]
Return $aresult[0]
EndFunc

Func _winapi_rectisempty(ByRef $trect)
Return (DllStructGetData($trect, "Left") = 0) AND (DllStructGetData($trect, "Top") = 0) AND (DllStructGetData($trect, "Right") = 0) AND (DllStructGetData($trect, "Bottom") = 0)
EndFunc

Func _winapi_redrawwindow($hwnd, $trect = 0, $hregion = 0, $iflags = 5)
Local $prect = 0
If $trect <> 0 Then $prect = DllStructGetPtr($trect)
Local $aresult = DllCall("user32.dll", "bool", "RedrawWindow", "hwnd", $hwnd, "ptr", $prect, "handle", $hregion, "uint", $iflags)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_registerwindowmessage($smessage)
Local $aresult = DllCall("user32.dll", "uint", "RegisterWindowMessageW", "wstr", $smessage)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_releasecapture()
Local $aresult = DllCall("user32.dll", "bool", "ReleaseCapture")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_releasedc($hwnd, $hdc)
Local $aresult = DllCall("user32.dll", "int", "ReleaseDC", "hwnd", $hwnd, "handle", $hdc)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_screentoclient($hwnd, ByRef $tpoint)
Local $aresult = DllCall("user32.dll", "bool", "ScreenToClient", "hwnd", $hwnd, "ptr", DllStructGetPtr($tpoint))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_selectobject($hdc, $hgdiobj)
Local $aresult = DllCall("gdi32.dll", "handle", "SelectObject", "handle", $hdc, "handle", $hgdiobj)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setbkcolor($hdc, $icolor)
Local $aresult = DllCall("gdi32.dll", "INT", "SetBkColor", "handle", $hdc, "dword", $icolor)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setbkmode($hdc, $ibkmode)
Local $aresult = DllCall("gdi32.dll", "int", "SetBkMode", "handle", $hdc, "int", $ibkmode)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setcapture($hwnd)
Local $aresult = DllCall("user32.dll", "hwnd", "SetCapture", "hwnd", $hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setcursor($hcursor)
Local $aresult = DllCall("user32.dll", "handle", "SetCursor", "handle", $hcursor)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setdefaultprinter($sprinter)
Local $aresult = DllCall("winspool.drv", "bool", "SetDefaultPrinterW", "wstr", $sprinter)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setdibits($hdc, $hbmp, $istartscan, $iscanlines, $pbits, $pbmi, $icoloruse = 0)
Local $aresult = DllCall("gdi32.dll", "int", "SetDIBits", "handle", $hdc, "handle", $hbmp, "uint", $istartscan, "uint", $iscanlines, "ptr", $pbits, "ptr", $pbmi, "uint", $icoloruse)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setendoffile($hfile)
Local $aresult = DllCall("kernel32.dll", "bool", "SetEndOfFile", "handle", $hfile)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setevent($hevent)
Local $aresult = DllCall("kernel32.dll", "bool", "SetEvent", "handle", $hevent)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setfilepointer($hfile, $ipos, $imethod = 0)
Local $aresult = DllCall("kernel32.dll", "INT", "SetFilePointer", "handle", $hfile, "long", $ipos, "ptr", 0, "long", $imethod)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setfocus($hwnd)
Local $aresult = DllCall("user32.dll", "hwnd", "SetFocus", "hwnd", $hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setfont($hwnd, $hfont, $fredraw = True)
_sendmessage($hwnd, $__winapiconstant_wm_setfont, $hfont, $fredraw, 0, "hwnd")
EndFunc

Func _winapi_sethandleinformation($hobject, $imask, $iflags)
Local $aresult = DllCall("kernel32.dll", "bool", "SetHandleInformation", "handle", $hobject, "dword", $imask, "dword", $iflags)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setlayeredwindowattributes($hwnd, $i_transcolor, $transparency = 255, $dwflags = 3, $iscolorref = False)
If $dwflags = Default OR $dwflags = "" OR $dwflags < 0 Then $dwflags = 3
If NOT $iscolorref Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute("0x00" & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $aresult = DllCall("user32.dll", "bool", "SetLayeredWindowAttributes", "hwnd", $hwnd, "dword", $i_transcolor, "byte", $transparency, "dword", $dwflags)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setparent($hwndchild, $hwndparent)
Local $aresult = DllCall("user32.dll", "hwnd", "SetParent", "hwnd", $hwndchild, "hwnd", $hwndparent)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setprocessaffinitymask($hprocess, $imask)
Local $aresult = DllCall("kernel32.dll", "bool", "SetProcessAffinityMask", "handle", $hprocess, "ulong_ptr", $imask)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setsyscolors($velements, $vcolors)
Local $isearray = IsArray($velements), $iscarray = IsArray($vcolors)
Local $ielementnum
If NOT $iscarray AND NOT $isearray Then
$ielementnum = 1
ElseIf $iscarray OR $isearray Then
If NOT $iscarray OR NOT $isearray Then Return SetError(-1, -1, False)
If UBound($velements) <> UBound($vcolors) Then Return SetError(-1, -1, False)
$ielementnum = UBound($velements)
EndIf
Local $telements = DllStructCreate("int Element[" & $ielementnum & "]")
Local $tcolors = DllStructCreate("dword NewColor[" & $ielementnum & "]")
Local $pelements = DllStructGetPtr($telements)
Local $pcolors = DllStructGetPtr($tcolors)
If NOT $isearray Then
DllStructSetData($telements, "Element", $velements, 1)
Else
For $x = 0 To $ielementnum - 1
DllStructSetData($telements, "Element", $velements[$x], $x + 1)
Next
EndIf
If NOT $iscarray Then
DllStructSetData($tcolors, "NewColor", $vcolors, 1)
Else
For $x = 0 To $ielementnum - 1
DllStructSetData($tcolors, "NewColor", $vcolors[$x], $x + 1)
Next
EndIf
Local $aresult = DllCall("user32.dll", "bool", "SetSysColors", "int", $ielementnum, "ptr", $pelements, "ptr", $pcolors)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_settextcolor($hdc, $icolor)
Local $aresult = DllCall("gdi32.dll", "INT", "SetTextColor", "handle", $hdc, "dword", $icolor)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setwindowlong($hwnd, $iindex, $ivalue)
_winapi_setlasterror(0)
Local $sfuncname = "SetWindowLongW"
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $aresult = DllCall("user32.dll", "long_ptr", $sfuncname, "hwnd", $hwnd, "int", $iindex, "long_ptr", $ivalue)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setwindowplacement($hwnd, $pwindowplacement)
Local $aresult = DllCall("user32.dll", "bool", "SetWindowPlacement", "hwnd", $hwnd, "ptr", $pwindowplacement)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setwindowpos($hwnd, $hafter, $ix, $iy, $icx, $icy, $iflags)
Local $aresult = DllCall("user32.dll", "bool", "SetWindowPos", "hwnd", $hwnd, "hwnd", $hafter, "int", $ix, "int", $iy, "int", $icx, "int", $icy, "uint", $iflags)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setwindowrgn($hwnd, $hrgn, $bredraw = True)
Local $aresult = DllCall("user32.dll", "int", "SetWindowRgn", "hwnd", $hwnd, "handle", $hrgn, "bool", $bredraw)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setwindowshookex($idhook, $lpfn, $hmod, $dwthreadid = 0)
Local $aresult = DllCall("user32.dll", "handle", "SetWindowsHookEx", "int", $idhook, "ptr", $lpfn, "handle", $hmod, "dword", $dwthreadid)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_setwindowtext($hwnd, $stext)
Local $aresult = DllCall("user32.dll", "bool", "SetWindowTextW", "hwnd", $hwnd, "wstr", $stext)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_showcursor($fshow)
Local $aresult = DllCall("user32.dll", "int", "ShowCursor", "bool", $fshow)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_showerror($stext, $fexit = True)
_winapi_msgbox(266256, "Error", $stext)
If $fexit Then Exit
EndFunc

Func _winapi_showmsg($stext)
_winapi_msgbox(64 + 4096, "Information", $stext)
EndFunc

Func _winapi_showwindow($hwnd, $icmdshow = 5)
Local $aresult = DllCall("user32.dll", "bool", "ShowWindow", "hwnd", $hwnd, "int", $icmdshow)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_stringfromguid($pguid)
Local $aresult = DllCall("ole32.dll", "int", "StringFromGUID2", "ptr", $pguid, "wstr", "", "int", 40)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return SetExtended($aresult[0], $aresult[2])
EndFunc

Func _winapi_sublangid($lgid)
Return BitShift($lgid, 10)
EndFunc

Func _winapi_systemparametersinfo($iaction, $iparam = 0, $vparam = 0, $iwinini = 0)
Local $aresult = DllCall("user32.dll", "bool", "SystemParametersInfoW", "uint", $iaction, "uint", $iparam, "ptr", $vparam, "uint", $iwinini)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_twipsperpixelx()
Local $lngdc, $twipsperpixelx
$lngdc = _winapi_getdc(0)
$twipsperpixelx = 1440 / _winapi_getdevicecaps($lngdc, $__winapiconstant_logpixelsx)
_winapi_releasedc(0, $lngdc)
Return $twipsperpixelx
EndFunc

Func _winapi_twipsperpixely()
Local $lngdc, $twipsperpixely
$lngdc = _winapi_getdc(0)
$twipsperpixely = 1440 / _winapi_getdevicecaps($lngdc, $__winapiconstant_logpixelsy)
_winapi_releasedc(0, $lngdc)
Return $twipsperpixely
EndFunc

Func _winapi_unhookwindowshookex($hhk)
Local $aresult = DllCall("user32.dll", "bool", "UnhookWindowsHookEx", "handle", $hhk)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_updatelayeredwindow($hwnd, $hdcdest, $pptdest, $psize, $hdcsrce, $pptsrce, $irgb, $pblend, $iflags)
Local $aresult = DllCall("user32.dll", "bool", "UpdateLayeredWindow", "hwnd", $hwnd, "handle", $hdcdest, "ptr", $pptdest, "ptr", $psize, "handle", $hdcsrce, "ptr", $pptsrce, "dword", $irgb, "ptr", $pblend, "dword", $iflags)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_updatewindow($hwnd)
Local $aresult = DllCall("user32.dll", "bool", "UpdateWindow", "hwnd", $hwnd)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_waitforinputidle($hprocess, $itimeout = -1)
Local $aresult = DllCall("user32.dll", "dword", "WaitForInputIdle", "handle", $hprocess, "dword", $itimeout)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_waitformultipleobjects($icount, $phandles, $fwaitall = False, $itimeout = -1)
Local $aresult = DllCall("kernel32.dll", "INT", "WaitForMultipleObjects", "dword", $icount, "ptr", $phandles, "bool", $fwaitall, "dword", $itimeout)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_waitforsingleobject($hhandle, $itimeout = -1)
Local $aresult = DllCall("kernel32.dll", "INT", "WaitForSingleObject", "handle", $hhandle, "dword", $itimeout)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_widechartomultibyte($punicode, $icodepage = 0, $bretstring = True)
Local $sunicodetype = "ptr"
If IsDllStruct($punicode) Then
$punicode = DllStructGetPtr($punicode)
Else
If NOT IsPtr($punicode) Then $sunicodetype = "wstr"
EndIf
Local $aresult = DllCall("kernel32.dll", "int", "WideCharToMultiByte", "uint", $icodepage, "dword", 0, $sunicodetype, $punicode, "int", -1, "ptr", 0, "int", 0, "ptr", 0, "ptr", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $tmultibyte = DllStructCreate("char[" & $aresult[0] & "]")
Local $pmultibyte = DllStructGetPtr($tmultibyte)
$aresult = DllCall("kernel32.dll", "int", "WideCharToMultiByte", "uint", $icodepage, "dword", 0, $sunicodetype, $punicode, "int", -1, "ptr", $pmultibyte, "int", $aresult[0], "ptr", 0, "ptr", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If $bretstring Then Return DllStructGetData($tmultibyte, 1)
Return $tmultibyte
EndFunc

Func _winapi_windowfrompoint(ByRef $tpoint)
Local $tpointcast = DllStructCreate("int64", DllStructGetPtr($tpoint))
Local $aresult = DllCall("user32.dll", "hwnd", "WindowFromPoint", "int64", DllStructGetData($tpointcast, 1))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_writeconsole($hconsole, $stext)
Local $aresult = DllCall("kernel32.dll", "bool", "WriteConsoleW", "handle", $hconsole, "wstr", $stext, "dword", StringLen($stext), "dword*", 0, "ptr", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aresult[0]
EndFunc

Func _winapi_writefile($hfile, $pbuffer, $itowrite, ByRef $iwritten, $poverlapped = 0)
Local $aresult = DllCall("kernel32.dll", "bool", "WriteFile", "handle", $hfile, "ptr", $pbuffer, "dword", $itowrite, "dword*", 0, "ptr", $poverlapped)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$iwritten = $aresult[4]
Return $aresult[0]
EndFunc

Func _winapi_writeprocessmemory($hprocess, $pbaseaddress, $pbuffer, $isize, ByRef $iwritten, $sbuffer = "ptr")
Local $aresult = DllCall("kernel32.dll", "bool", "WriteProcessMemory", "handle", $hprocess, "ptr", $pbaseaddress, $sbuffer, $pbuffer, "ulong_ptr", $isize, "ulong_ptr*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$iwritten = $aresult[5]
Return $aresult[0]
EndFunc

Global Const $gui_event_close = -3
Global Const $gui_event_minimize = -4
Global Const $gui_event_restore = -5
Global Const $gui_event_maximize = -6
Global Const $gui_event_primarydown = -7
Global Const $gui_event_primaryup = -8
Global Const $gui_event_secondarydown = -9
Global Const $gui_event_secondaryup = -10
Global Const $gui_event_mousemove = -11
Global Const $gui_event_resized = -12
Global Const $gui_event_dropped = -13
Global Const $gui_rundefmsg = "GUI_RUNDEFMSG"
Global Const $gui_avistop = 0
Global Const $gui_avistart = 1
Global Const $gui_aviclose = 2
Global Const $gui_checked = 1
Global Const $gui_indeterminate = 2
Global Const $gui_unchecked = 4
Global Const $gui_dropaccepted = 8
Global Const $gui_nodropaccepted = 4096
Global Const $gui_acceptfiles = $gui_dropaccepted
Global Const $gui_show = 16
Global Const $gui_hide = 32
Global Const $gui_enable = 64
Global Const $gui_disable = 128
Global Const $gui_focus = 256
Global Const $gui_nofocus = 8192
Global Const $gui_defbutton = 512
Global Const $gui_expand = 1024
Global Const $gui_ontop = 2048
Global Const $gui_fontitalic = 2
Global Const $gui_fontunder = 4
Global Const $gui_fontstrike = 8
Global Const $gui_dockauto = 1
Global Const $gui_dockleft = 2
Global Const $gui_dockright = 4
Global Const $gui_dockhcenter = 8
Global Const $gui_docktop = 32
Global Const $gui_dockbottom = 64
Global Const $gui_dockvcenter = 128
Global Const $gui_dockwidth = 256
Global Const $gui_dockheight = 512
Global Const $gui_docksize = 768
Global Const $gui_dockmenubar = 544
Global Const $gui_dockstatebar = 576
Global Const $gui_dockall = 802
Global Const $gui_dockborders = 102
Global Const $gui_gr_close = 1
Global Const $gui_gr_line = 2
Global Const $gui_gr_bezier = 4
Global Const $gui_gr_move = 6
Global Const $gui_gr_color = 8
Global Const $gui_gr_rect = 10
Global Const $gui_gr_ellipse = 12
Global Const $gui_gr_pie = 14
Global Const $gui_gr_dot = 16
Global Const $gui_gr_pixel = 18
Global Const $gui_gr_hint = 20
Global Const $gui_gr_refresh = 22
Global Const $gui_gr_pensize = 24
Global Const $gui_gr_nobkcolor = -2
Global Const $gui_bkcolor_default = -1
Global Const $gui_bkcolor_transparent = -2
Global Const $gui_bkcolor_lv_alternate = -33554432
Global Const $gui_ws_ex_parentdrag = 1048576
Global Const $pbs_marquee = 8
Global Const $pbs_smooth = 1
Global Const $pbs_smoothreverse = 16
Global Const $pbs_vertical = 4
Global Const $gui_ss_default_progress = 0
Global Const $__progressbarconstant_wm_user = 1024
Global Const $pbm_deltapos = $__progressbarconstant_wm_user + 3
Global Const $pbm_getbarcolor = 1039
Global Const $pbm_getbkcolor = 1038
Global Const $pbm_getpos = $__progressbarconstant_wm_user + 8
Global Const $pbm_getrange = $__progressbarconstant_wm_user + 7
Global Const $pbm_getstate = 1041
Global Const $pbm_getstep = 1037
Global Const $pbm_setbarcolor = $__progressbarconstant_wm_user + 9
Global Const $pbm_setbkcolor = 8192 + 1
Global Const $pbm_setmarquee = $__progressbarconstant_wm_user + 10
Global Const $pbm_setpos = $__progressbarconstant_wm_user + 2
Global Const $pbm_setrange = $__progressbarconstant_wm_user + 1
Global Const $pbm_setrange32 = $__progressbarconstant_wm_user + 6
Global Const $pbm_setstate = 1040
Global Const $pbm_setstep = $__progressbarconstant_wm_user + 4
Global Const $pbm_stepit = $__progressbarconstant_wm_user + 5
#Region Header
#EndRegion Header
#Region Global Variables and Constants
Global Const $ieau3versioninfo[6] = ["V", 2, 4, 0, "20071231", "V2.4-0"]
Global Const $lsfw_lock = 1, $lsfw_unlock = 2
Global $__ieloadwaittimeout = 300000
Global $__ieau3debug = False
Global $__ieau3v1compatibility
Global $__ieau3debug_useolddllcall = False
Global $_ieerrornotify = True
Global $oieerrorhandler, $sieusererrorhandler
Global $iecomerrornumber, $iecomerrornumberhex, $iecomerrordescription, $iecomerrorscriptline, $iecomerrorwindescription, $iecomerrorsource, $iecomerrorhelpfile, $iecomerrorhelpcontext, $iecomerrorlastdllerror, $iecomerrorcomobj, $iecomerroroutput
Global Enum $_iestatus_success = 0, $_iestatus_generalerror, $_iestatus_comerror, $_iestatus_invaliddatatype, $_iestatus_invalidobjecttype, $_iestatus_invalidvalue, $_iestatus_loadwaittimeout, $_iestatus_nomatch, $_iestatus_accessisdenied, $_iestatus_clientdisconnected
Global Enum Step *2 $_ienotifylevel_none = 0, $_ienotifynotifylevel_warning = 1, $_ienotifynotifylevel_error, $_ienotifynotifylevel_comerror
Global Enum Step *2 $_ienotifymethod_silent = 0, $_ienotifymethod_console = 1, $_ienotifymethod_tooltip, $_ienotifymethod_msgbox
#EndRegion Global Variables and Constants
#Region Core functions

Func _iecreate($s_url = "about:blank", $f_tryattach = 0, $f_visible = 1, $f_wait = 1, $f_takefocus = 1)
If $__ieau3v1compatibility Then
Switch String($s_url)
Case "0"
$s_url = "about:blank"
$f_visible = 0
__ieerrornotify("Warning", "_IECreate", "", "Using deprecated behavior - $f_visible is now parameter 3 instead of parameter 1")
Case "1"
$s_url = "about:blank"
$f_visible = 1
__ieerrornotify("Warning", "_IECreate", "", "Using deprecated behavior - $f_visible is now parameter 3 instead of parameter 1")
EndSwitch
EndIf
If NOT $f_visible Then $f_takefocus = 0
If $f_tryattach Then
Local $oresult = _ieattach($s_url, "url")
If IsObj($oresult) Then
If $f_takefocus Then WinActivate(HWnd($oresult.hwnd))
Return SetError($_iestatus_success, 1, $oresult)
EndIf
EndIf
Local $f_mustunlock = 0
If NOT $f_visible AND __ielocksetforegroundwindow($lsfw_lock) Then $f_mustunlock = 1
Local $o_object = ObjCreate("InternetExplorer.Application")
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IECreate", "", "Browser Object Creation Failed")
Return SetError($_iestatus_generalerror, 0, 0)
EndIf
$o_object.visible = $f_visible
If $f_mustunlock AND NOT __ielocksetforegroundwindow($lsfw_unlock) Then __ieerrornotify("Warning", "_IECreate", "", "Foreground Window Unlock Failed!")
_ienavigate($o_object, $s_url, $f_wait)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndFunc

Func _iecreateembedded()
Local $o_object = ObjCreate("Shell.Explorer.2")
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IECreateEmbedded", "", "WebBrowser Object Creation Failed")
Return SetError($_iestatus_generalerror, 0, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object)
EndFunc

Func _ienavigate(ByRef $o_object, $s_url, $f_wait = 1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IENavigate", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "documentContainer") Then
__ieerrornotify("Error", "_IENavigate", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.navigate($s_url)
If $f_wait Then
_ieloadwait($o_object)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
Return SetError($_iestatus_success, 0, -1)
EndFunc

Func _ieattach($s_string, $s_mode = "Title", $i_instance = 1)
$s_mode = StringLower($s_mode)
$i_instance = Int($i_instance)
If $i_instance < 1 Then
__ieerrornotify("Error", "_IEAttach", "$_IEStatus_InvalidValue", "$i_instance < 1")
Return SetError($_iestatus_invalidvalue, 3, 0)
EndIf
If $s_mode = "embedded" OR $s_mode = "dialogbox" Then
Local $iwintitlematchmode = Opt("WinTitleMatchMode", 2)
If $s_mode = "dialogbox" AND $i_instance > 1 Then
If IsHWnd($s_string) Then
$i_instance = 1
__ieerrornotify("Warning", "_IEAttach", "$_IEStatus_GeneralError", "$i_instance > 1 invalid with HWnd and DialogBox. Setting to 1.")
Else
Local $a_winlist = WinList($s_string, "")
If $i_instance <= $a_winlist[0][0] Then
$s_string = $a_winlist[$i_instance][1]
$i_instance = 1
Else
__ieerrornotify("Warning", "_IEAttach", "$_IEStatus_NoMatch")
Opt("WinTitleMatchMode", $iwintitlematchmode)
Return SetError($_iestatus_nomatch, 1, 0)
EndIf
EndIf
EndIf
Local $h_control = ControlGetHandle($s_string, "", "[CLASS:Internet Explorer_Server; INSTANCE:" & $i_instance & "]")
Local $oresult = __iecontrolgetobjfromhwnd($h_control)
Opt("WinTitleMatchMode", $iwintitlematchmode)
If IsObj($oresult) Then
Return SetError($_iestatus_success, 0, $oresult)
Else
__ieerrornotify("Warning", "_IEAttach", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 1, 0)
EndIf
EndIf
Local $o_shell = ObjCreate("Shell.Application")
Local $o_shellwindows = $o_shell.windows()
Local $i_tmp = 1
Local $f_notifystatus, $status, $f_isbrowser, $s_tmp
For $o_window In $o_shellwindows
$f_isbrowser = True
$status = __ieinternalerrorhandlerregister()
If NOT $status Then __ieerrornotify("Warning", "_IEAttach", "Cannot register internal error handler, cannot trap COM errors", "Use _IEErrorHandlerRegister() to register a user error handler")
$f_notifystatus = _ieerrornotify()
_ieerrornotify(False)
If $f_isbrowser Then
$s_tmp = $o_window.type
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
If $f_isbrowser Then
$s_tmp = $o_window.document.title
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
_ieerrornotify($f_notifystatus)
__ieinternalerrorhandlerderegister()
If $f_isbrowser Then
Switch $s_mode
Case "title"
If StringInStr($o_window.document.title, $s_string) > 0 Then
If $i_instance = $i_tmp Then
Return SetError($_iestatus_success, 0, $o_window)
Else
$i_tmp += 1
EndIf
EndIf
Case "instance"
If $i_instance = $i_tmp Then
Return SetError($_iestatus_success, 0, $o_window)
Else
$i_tmp += 1
EndIf
Case "windowtitle"
Local $f_found = False
$s_tmp = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\", "Window Title")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If StringInStr($o_window.document.title & " - " & $s_tmp, $s_string) Then $f_found = True
Else
If StringInStr($o_window.document.title & " - Microsoft Internet Explorer", $s_string) Then $f_found = True
If StringInStr($o_window.document.title & " - Windows Internet Explorer", $s_string) Then $f_found = True
EndIf
If $f_found Then
If $i_instance = $i_tmp Then
Return SetError($_iestatus_success, 0, $o_window)
Else
$i_tmp += 1
EndIf
EndIf
Case "url"
If StringInStr($o_window.locationurl, $s_string) > 0 Then
If $i_instance = $i_tmp Then
Return SetError($_iestatus_success, 0, $o_window)
Else
$i_tmp += 1
EndIf
EndIf
Case "text"
If StringInStr($o_window.document.body.innertext, $s_string) > 0 Then
If $i_instance = $i_tmp Then
Return SetError($_iestatus_success, 0, $o_window)
Else
$i_tmp += 1
EndIf
EndIf
Case "html"
If StringInStr($o_window.document.body.innerhtml, $s_string) > 0 Then
If $i_instance = $i_tmp Then
Return SetError($_iestatus_success, 0, $o_window)
Else
$i_tmp += 1
EndIf
EndIf
Case "hwnd"
If $i_instance > 1 Then
$i_instance = 1
__ieerrornotify("Warning", "_IEAttach", "$_IEStatus_GeneralError", "$i_instance > 1 invalid with HWnd. Setting to 1.")
EndIf
If _iepropertyget($o_window, "hwnd") = $s_string Then
Return SetError($_iestatus_success, 0, $o_window)
EndIf
Case Else
__ieerrornotify("Error", "_IEAttach", "$_IEStatus_InvalidValue", "Invalid Mode Specified")
Return SetError($_iestatus_invalidvalue, 2, 0)
EndSwitch
EndIf
Next
__ieerrornotify("Warning", "_IEAttach", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 1, 0)
EndFunc

Func _ieloadwait(ByRef $o_object, $i_delay = 0, $i_timeout = -1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IELoadWait", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "browserdom") Then
__ieerrornotify("Error", "_IELoadWait", "$_IEStatus_InvalidObjectType", ObjName($o_object))
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Local $otemp, $f_abort = False, $i_errorstatuscode = $_iestatus_success
Local $status = __ieinternalerrorhandlerregister()
If NOT $status Then __ieerrornotify("Warning", "_IELoadWait", "Cannot register internal error handler, cannot trap COM errors", "Use _IEErrorHandlerRegister() to register a user error handler")
Local $f_notifystatus = _ieerrornotify()
_ieerrornotify(False)
Sleep($i_delay)
Local $ieloadwaittimer = TimerInit()
If $i_timeout = -1 Then $i_timeout = $__ieloadwaittimeout
Switch ObjName($o_object)
Case "IWebBrowser2"
While NOT (String($o_object.readystate) = "complete" OR $o_object.readystate = 4 OR $f_abort)
If (TimerDiff($ieloadwaittimer) > $i_timeout) Then
$i_errorstatuscode = $_iestatus_loadwaittimeout
$f_abort = True
EndIf
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$i_errorstatuscode = __iecomerrorunrecoverable()
$f_abort = True
EndIf
Sleep(100)
WEnd
While NOT (String($o_object.document.readystate) = "complete" OR $o_object.document.readystate = 4 OR $f_abort)
If (TimerDiff($ieloadwaittimer) > $i_timeout) Then
$i_errorstatuscode = $_iestatus_loadwaittimeout
$f_abort = True
EndIf
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$i_errorstatuscode = __iecomerrorunrecoverable()
$f_abort = True
EndIf
Sleep(100)
WEnd
Case "DispHTMLWindow2"
While NOT (String($o_object.document.readystate) = "complete" OR $o_object.document.readystate = 4 OR $f_abort)
If (TimerDiff($ieloadwaittimer) > $i_timeout) Then
$i_errorstatuscode = $_iestatus_loadwaittimeout
$f_abort = True
EndIf
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$i_errorstatuscode = __iecomerrorunrecoverable()
$f_abort = True
EndIf
Sleep(100)
WEnd
While NOT (String($o_object.top.document.readystate) = "complete" OR $o_object.top.document.readystate = 4 OR $f_abort)
If (TimerDiff($ieloadwaittimer) > $i_timeout) Then
$i_errorstatuscode = $_iestatus_loadwaittimeout
$f_abort = True
EndIf
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$i_errorstatuscode = __iecomerrorunrecoverable()
$f_abort = True
EndIf
Sleep(100)
WEnd
Case "DispHTMLDocument"
$otemp = $o_object.parentwindow
While NOT (String($otemp.document.readystate) = "complete" OR $otemp.document.readystate = 4 OR $f_abort)
If (TimerDiff($ieloadwaittimer) > $i_timeout) Then
$i_errorstatuscode = $_iestatus_loadwaittimeout
$f_abort = True
EndIf
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$i_errorstatuscode = __iecomerrorunrecoverable()
$f_abort = True
EndIf
Sleep(100)
WEnd
While NOT (String($otemp.top.document.readystate) = "complete" OR $otemp.top.document.readystate = 4 OR $f_abort)
If (TimerDiff($ieloadwaittimer) > $i_timeout) Then
$i_errorstatuscode = $_iestatus_loadwaittimeout
$f_abort = True
EndIf
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$i_errorstatuscode = __iecomerrorunrecoverable()
$f_abort = True
EndIf
Sleep(100)
WEnd
Case Else
$otemp = $o_object.document.parentwindow
While NOT (String($otemp.document.readystate) = "complete" OR $otemp.document.readystate = 4 OR $f_abort)
If (TimerDiff($ieloadwaittimer) > $i_timeout) Then
$i_errorstatuscode = $_iestatus_loadwaittimeout
$f_abort = True
EndIf
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$i_errorstatuscode = __iecomerrorunrecoverable()
$f_abort = True
EndIf
Sleep(100)
WEnd
While NOT (String($otemp.top.document.readystate) = "complete" OR $o_object.top.document.readystate = 4 OR $f_abort)
If (TimerDiff($ieloadwaittimer) > $i_timeout) Then
$i_errorstatuscode = $_iestatus_loadwaittimeout
$f_abort = True
EndIf
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$i_errorstatuscode = __iecomerrorunrecoverable()
$f_abort = True
EndIf
Sleep(100)
WEnd
EndSwitch
_ieerrornotify($f_notifystatus)
__ieinternalerrorhandlerderegister()
Switch $i_errorstatuscode
Case $_iestatus_success
Return SetError($_iestatus_success, 0, 1)
Case $_iestatus_loadwaittimeout
__ieerrornotify("Warning", "_IELoadWait", "$_IEStatus_LoadWaitTimeout")
Return SetError($_iestatus_loadwaittimeout, 3, 0)
Case $_iestatus_accessisdenied
__ieerrornotify("Warning", "_IELoadWait", "$_IEStatus_AccessIsDenied", "Cannot verify readyState. Likely casue: cross-site scripting security restriction.")
Return SetError($_iestatus_accessisdenied, 0, 0)
Case $_iestatus_clientdisconnected
__ieerrornotify("Error", "_IELoadWait", "$_IEStatus_ClientDisconnected", "Browser has been deleted prior to operation.")
Return SetError($_iestatus_clientdisconnected, 0, 0)
Case Else
__ieerrornotify("Error", "_IELoadWait", "$_IEStatus_GeneralError", "Invalid Error Status - Notify IE.au3 developer")
Return SetError($_iestatus_generalerror, 0, 0)
EndSwitch
EndFunc

Func _ieloadwaittimeout($i_timeout = -1)
If $i_timeout = -1 Then
Return SetError($_iestatus_success, 0, $__ieloadwaittimeout)
Else
$__ieloadwaittimeout = $i_timeout
Return SetError($_iestatus_success, 0, 1)
EndIf
EndFunc

#EndRegion Core functions
#Region Frame Functions

Func _ieisframeset(ByRef $o_object)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEIsFrameSet", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If String($o_object.document.body.tagname) = "FRAMESET" Then
Return SetError($_iestatus_success, 0, 1)
Else
Return SetError($_iestatus_success, 0, 0)
EndIf
EndFunc

Func _ieframegetcollection(ByRef $o_object, $i_index = -1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFrameGetCollection", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
$i_index = Number($i_index)
Select
Case $i_index = -1
Return SetError($_iestatus_success, $o_object.document.parentwindow.frames.length, $o_object.document.parentwindow.frames)
Case $i_index > -1 AND $i_index < $o_object.document.parentwindow.frames.length
Return SetError($_iestatus_success, $o_object.document.parentwindow.frames.length, $o_object.document.parentwindow.frames.item($i_ind ex))
Case $i_index < -1
__ieerrornotify("Error", "_IEFrameGetCollection", "$_IEStatus_InvalidValue", "$i_index < -1")
Return SetError($_iestatus_invalidvalue, 2, 0)
Case Else
__ieerrornotify("Warning", "_IEFrameGetCollection", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 2, 0)
EndSelect
EndFunc

Func _ieframegetobjbyname(ByRef $o_object, $s_name)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFrameGetObjByName", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Local $otemp, $oframes
If NOT __ieisobjtype($o_object, "browserdom") Then
__ieerrornotify("Error", "_IEFrameGetObjByName", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
If __ieisobjtype($o_object, "document") Then
$otemp = $o_object.parentwindow
Else
$otemp = $o_object.document.parentwindow
EndIf
If _ieisframeset($otemp) Then
$oframes = _ietagnamegetcollection($otemp, "frame")
Else
$oframes = _ietagnamegetcollection($otemp, "iframe")
EndIf
If $oframes.length Then
For $oframe In $oframes
If $oframe.name = $s_name Then Return SetError($_iestatus_success, 0, $otemp.frames($s_name))
Next
__ieerrornotify("Warning", "_IEFrameGetObjByName", "$_IEStatus_NoMatch", "No frames matching name")
Return SetError($_iestatus_nomatch, 2, 0)
Else
__ieerrornotify("Warning", "_IEFrameGetObjByName", "$_IEStatus_NoMatch", "No Frames found")
Return SetError($_iestatus_nomatch, 2, 0)
EndIf
EndFunc

#EndRegion Frame Functions
#Region Link functions

Func _ielinkclickbytext(ByRef $o_object, $s_linktext, $i_index = 0, $f_wait = 1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IELinkClickByText", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Local $found = 0, $linktext, $links = $o_object.document.links
$i_index = Number($i_index)
For $link In $links
$linktext = $link.outertext & ""
If $linktext = $s_linktext Then
If ($found = $i_index) Then
$link.click
If $f_wait Then
_ieloadwait($o_object)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
Return SetError($_iestatus_success, 0, -1)
EndIf
$found = $found + 1
EndIf
Next
__ieerrornotify("Warning", "_IELinkClickByText", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 0, 0)
EndFunc

Func _ielinkclickbyindex(ByRef $o_object, $i_index, $f_wait = 1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IELinkClickByIndex", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Local $olinks = $o_object.document.links, $olink
$i_index = Number($i_index)
If ($i_index >= 0) AND ($i_index <= $olinks.length - 1) Then
$olink = $olinks($i_index)
$olink.click
If $f_wait Then
_ieloadwait($o_object)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
Return SetError($_iestatus_success, 0, -1)
Else
__ieerrornotify("Warning", "_IELinkClickByIndex", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 2, 0)
EndIf
EndFunc

Func _ielinkgetcollection(ByRef $o_object, $i_index = -1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IELinkGetCollection", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
$i_index = Number($i_index)
Select
Case $i_index = -1
Return SetError($_iestatus_success, $o_object.document.links.length, $o_object.document.links)
Case $i_index > -1 AND $i_index < $o_object.document.links.length
Return SetError($_iestatus_success, $o_object.document.links.length, $o_object.document.links.item($i_index))
Case $i_index < -1
__ieerrornotify("Error", "_IELinkGetCollection", "$_IEStatus_InvalidValue")
Return SetError($_iestatus_invalidvalue, 2, 0)
Case Else
__ieerrornotify("Warning", "_IELinkGetCollection", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 2, 0)
EndSelect
EndFunc

#EndRegion Link functions
#Region Image functions

Func _ieimgclick(ByRef $o_object, $s_linktext, $s_mode = "src", $i_index = 0, $f_wait = 1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEImgClick", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Local $linktext, $found = 0, $imgs = $o_object.document.images
$s_mode = StringLower($s_mode)
$i_index = Number($i_index)
For $img In $imgs
Select
Case $s_mode = "alt"
$linktext = $img.alt
Case $s_mode = "name"
$linktext = $img.name
Case $s_mode = "src"
$linktext = $img.src
Case Else
__ieerrornotify("Error", "_IEImgClick", "$_IEStatus_InvalidValue", "Invalid mode: " & $s_mode)
Return SetError($_iestatus_invalidvalue, 3, 0)
EndSelect
If StringInStr($linktext, $s_linktext) Then
If ($found = $i_index) Then
$img.click
If $f_wait Then
_ieloadwait($o_object)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
Return SetError($_iestatus_success, 0, -1)
EndIf
$found = $found + 1
EndIf
Next
__ieerrornotify("Warning", "_IEImgClick", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 0, 0)
EndFunc

Func _ieimggetcollection(ByRef $o_object, $i_index = -1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEImgGetCollection", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Local $otemp = _iedocgetobj($o_object)
$i_index = Number($i_index)
Select
Case $i_index = -1
Return SetError($_iestatus_success, $otemp.images.length, $otemp.images)
Case $i_index > -1 AND $i_index < $otemp.images.length
Return SetError($_iestatus_success, $otemp.images.length, $otemp.images.item($i_index))
Case $i_index < -1
__ieerrornotify("Error", "_IEImgGetCollection", "$_IEStatus_InvalidValue", "$i_index < -1")
Return SetError($_iestatus_invalidvalue, 2, 0)
Case Else
__ieerrornotify("Warning", "_IEImgGetCollection", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 1, 0)
EndSelect
EndFunc

#EndRegion Image functions
#Region Form functions

Func _ieformgetcollection(ByRef $o_object, $i_index = -1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFormGetCollection", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Local $otemp = _iedocgetobj($o_object)
$i_index = Number($i_index)
Select
Case $i_index = -1
Return SetError($_iestatus_success, $otemp.forms.length, $otemp.forms)
Case $i_index > -1 AND $i_index < $otemp.forms.length
Return SetError($_iestatus_success, $otemp.forms.length, $otemp.forms.item($i_index))
Case $i_index < -1
__ieerrornotify("Error", "_IEFormGetCollection", "$_IEStatus_InvalidValue", "$i_index < -1")
Return SetError($_iestatus_invalidvalue, 2, 0)
Case Else
__ieerrornotify("Warning", "_IEFormGetCollection", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 1, 0)
EndSelect
EndFunc

Func _ieformgetobjbyname(ByRef $o_object, $s_name, $i_index = 0)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFormGetObjByName", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Local $i_length = 0
Local $o_col = $o_object.document.forms.item($s_name)
If IsObj($o_col) Then
If __ieisobjtype($o_col, "elementcollection") Then
$i_length = $o_col.length
Else
$i_length = 1
EndIf
EndIf
$i_index = Number($i_index)
If $i_index = -1 Then
Return SetError($_iestatus_success, $i_length, $o_object.document.forms.item($s_name))
Else
If IsObj($o_object.document.forms.item($s_name, $i_index)) Then
Return SetError($_iestatus_success, $i_length, $o_object.document.forms.item($s_name, $i_index))
Else
__ieerrornotify("Warning", "_IEFormGetObjByName", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 0, 0)
EndIf
EndIf
EndFunc

Func _ieformelementgetcollection(ByRef $o_object, $i_index = -1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFormElementGetCollection", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "form") Then
__ieerrornotify("Error", "_IEFormElementGetCollection", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$i_index = Number($i_index)
Select
Case $i_index = -1
Return SetError($_iestatus_success, $o_object.elements.length, $o_object.elements)
Case $i_index > -1 AND $i_index < $o_object.elements.length
Return SetError($_iestatus_success, $o_object.elements.length, $o_object.elements.item($i_index))
Case $i_index < -1
__ieerrornotify("Error", "_IEFormElementGetCollection", "$_IEStatus_InvalidValue", "$i_index < -1")
Return SetError($_iestatus_invalidvalue, 2, 0)
Case Else
Return SetError($_iestatus_nomatch, 1, 0)
EndSelect
EndFunc

Func _ieformelementgetobjbyname(ByRef $o_object, $s_name, $i_index = 0)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFormElementGetObjByName", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "form") Then
__ieerrornotify("Error", "_IEFormElementGetObjByName", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Local $i_length = 0
Local $o_col = $o_object.elements.item($s_name)
If IsObj($o_col) Then
If __ieisobjtype($o_col, "elementcollection") Then
$i_length = $o_col.length
Else
$i_length = 1
EndIf
EndIf
$i_index = Number($i_index)
If $i_index = -1 Then
Return SetError($_iestatus_success, $i_length, $o_object.elements.item($s_name))
Else
If IsObj($o_object.elements.item($s_name, $i_index)) Then
Return SetError($_iestatus_success, $i_length, $o_object.elements.item($s_name, $i_index))
Else
__ieerrornotify("Warning", "_IEFormElementGetObjByName", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 0, 0)
EndIf
EndIf
EndFunc

Func _ieformelementgetvalue(ByRef $o_object)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFormElementGetValue", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "forminputelement") Then
__ieerrornotify("Error", "_IEFormElementGetValue", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
SetError($_iestatus_success)
If $o_object.value Then
Return $o_object.value
Else
Return ""
EndIf
EndFunc

Func _ieformelementsetvalue(ByRef $o_object, $s_newvalue, $f_fireevent = 1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFormElementSetValue", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "forminputelement") Then
__ieerrornotify("Error", "_IEFormElementSetValue", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
If String($o_object.type) = "file" Then
__ieerrornotify("Error", "_IEFormElementSetValue", "$_IEStatus_InvalidObjectType", "Browser securuty prevents SetValue of TYPE=FILE")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.value = $s_newvalue
If $f_fireevent Then
$o_object.fireevent("OnChange")
$o_object.fireevent("OnClick")
EndIf
Return SetError($_iestatus_success, 0, 1)
EndFunc

Func _ieformelementoptionselect(ByRef $o_object, $s_string, $f_select = 1, $s_mode = "byValue", $f_fireevent = 1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFormElementOptionSelect", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "formselectelement") Then
__ieerrornotify("Error", "_IEFormElementOptionSelect", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Local $oitems = $o_object.options, $inumitems = $o_object.options.length, $f_ismultiple = $o_object.multiple
Switch $s_mode
Case "byValue"
For $oitem In $oitems
If $oitem.value = $s_string Then
Switch $f_select
Case - 1
Return SetError($_iestatus_success, 0, $oitem.selected)
Case 0
If NOT $f_ismultiple Then
__ieerrornotify("Error", "_IEFormElementOptionSelect", "$_IEStatus_InvalidValue", "$f_select=0 only valid for type=select multiple")
SetError($_iestatus_invalidvalue, 3)
EndIf
If $oitem.selected Then
$oitem.selected = False
If $f_fireevent Then
$o_object.fireevent("onChange")
$o_object.fireevent("OnClick")
EndIf
EndIf
Return SetError($_iestatus_success, 0, 1)
Case 1
If NOT $oitem.selected Then
$oitem.selected = True
If $f_fireevent Then
$o_object.fireevent("onChange")
$o_object.fireevent("OnClick")
EndIf
EndIf
Return SetError($_iestatus_success, 0, 1)
Case Else
__ieerrornotify("Error", "_IEFormElementOptionSelect", "$_IEStatus_InvalidValue", "Invalid $f_select value")
Return SetError($_iestatus_invalidvalue, 3, 0)
EndSwitch
__ieerrornotify("Warning", "_IEFormElementOptionSelect", "$_IEStatus_NoMatch", "Value not matched")
Return SetError($_iestatus_nomatch, 2, 0)
EndIf
Next
Case "byText"
For $oitem In $oitems
If String($oitem.text) = $s_string Then
Switch $f_select
Case - 1
Return SetError($_iestatus_success, 0, $oitem.selected)
Case 0
If NOT $f_ismultiple Then
__ieerrornotify("Error", "_IEFormElementOptionSelect", "$_IEStatus_InvalidValue", "$f_select=0 only valid for type=select multiple")
SetError($_iestatus_invalidvalue, 3)
EndIf
If $oitem.selected Then
$oitem.selected = False
If $f_fireevent Then
$o_object.fireevent("onChange")
$o_object.fireevent("OnClick")
EndIf
EndIf
Return SetError($_iestatus_success, 0, 1)
Case 1
If NOT $oitem.selected Then
$oitem.selected = True
If $f_fireevent Then
$o_object.fireevent("onChange")
$o_object.fireevent("OnClick")
EndIf
EndIf
Return SetError($_iestatus_success, 0, 1)
Case Else
__ieerrornotify("Error", "_IEFormElementOptionSelect", "$_IEStatus_InvalidValue", "Invalid $f_select value")
Return SetError($_iestatus_invalidvalue, 3, 0)
EndSwitch
__ieerrornotify("Warning", "_IEFormElementOptionSelect", "$_IEStatus_NoMatch", "Text not matched")
Return SetError($_iestatus_nomatch, 2, 0)
EndIf
Next
Case "byIndex"
Local $i_index = Number($s_string)
If $i_index < 0 OR $i_index >= $inumitems Then
__ieerrornotify("Error", "_IEFormElementOptionSelect", "$_IEStatus_InvalidValue", "Invalid index value, " & $i_index)
Return SetError($_iestatus_invalidvalue, 2, 0)
EndIf
$oitem = $oitems.item($i_index)
Switch $f_select
Case - 1
Return SetError($_iestatus_success, 0, $oitems.item($i_index).selected)
Case 0
If NOT $f_ismultiple Then
__ieerrornotify("Error", "_IEFormElementOptionSelect", "$_IEStatus_InvalidValue", "$f_select=0 only valid for type=select multiple")
SetError($_iestatus_invalidvalue, 3)
EndIf
If $oitem.selected Then
$oitems.item($i_index).selected = False
If $f_fireevent Then
$o_object.fireevent("onChange")
$o_object.fireevent("OnClick")
EndIf
EndIf
Return SetError($_iestatus_success, 0, 1)
Case 1
If NOT $oitem.selected Then
$oitems.item($i_index).selected = True
If $f_fireevent Then
$o_object.fireevent("onChange")
$o_object.fireevent("OnClick")
EndIf
EndIf
Return SetError($_iestatus_success, 0, 1)
Case Else
__ieerrornotify("Error", "_IEFormElementOptionSelect", "$_IEStatus_InvalidValue", "Invalid $f_select value")
Return SetError($_iestatus_invalidvalue, 3, 0)
EndSwitch
Case Else
__ieerrornotify("Error", "_IEFormElementOptionSelect", "$_IEStatus_InvalidValue", "Invalid Mode")
Return SetError($_iestatus_invalidvalue, 4, 0)
EndSwitch
EndFunc

Func _ieformelementcheckboxselect(ByRef $o_object, $s_string, $s_name = "", $f_select = 1, $s_mode = "byValue", $f_fireevent = 1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFormElementCheckboxSelect", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "form") Then
__ieerrornotify("Error", "_IEFormElementCheckboxSelect", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$s_string = String($s_string)
$s_name = String($s_name)
Local $oitems
If $s_name = "" Then
$oitems = _ietagnamegetcollection($o_object, "input")
Else
$oitems = Execute("$o_object.elements('" & $s_name & "')")
EndIf
If NOT IsObj($oitems) Then
__ieerrornotify("Warning", "_IEFormElementCheckboxSelect", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 3, 0)
EndIf
Local $oitem, $f_found = False
Switch $s_mode
Case "byValue"
If __ieisobjtype($oitems, "forminputelement") Then
$oitem = $oitems
If String($oitem.type) = "checkbox" AND String($oitem.value) = $s_string Then $f_found = True
Else
For $oitem In $oitems
If String($oitem.type) = "checkbox" AND String($oitem.value) = $s_string Then
$f_found = True
ExitLoop
EndIf
Next
EndIf
Case "byIndex"
If __ieisobjtype($oitems, "forminputelement") Then
$oitem = $oitems
If String($oitem.type) = "checkbox" AND Number($s_string) = 0 Then $f_found = True
Else
Local $icount = 0
For $oitem In $oitems
If String($oitem.type) = "checkbox" AND Number($s_string) = $icount Then
$f_found = True
ExitLoop
Else
If String($oitem.type) = "checkbox" Then $icount += 1
EndIf
Next
EndIf
Case Else
__ieerrornotify("Error", "_IEFormElementCheckboxSelect", "$_IEStatus_InvalidValue", "Invalid Mode")
Return SetError($_iestatus_invalidvalue, 5, 0)
EndSwitch
If NOT $f_found Then
__ieerrornotify("Warning", "_IEFormElementCheckboxSelect", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 2, 0)
EndIf
Switch $f_select
Case - 1
Return SetError($_iestatus_success, 0, $oitem.checked)
Case 0
If $oitem.checked Then
$oitem.checked = False
If $f_fireevent Then
$oitem.fireevent("onChange")
$oitem.fireevent("OnClick")
EndIf
EndIf
Return SetError($_iestatus_success, 0, 1)
Case 1
If NOT $oitem.checked Then
$oitem.checked = True
If $f_fireevent Then
$oitem.fireevent("onChange")
$oitem.fireevent("OnClick")
EndIf
EndIf
Return SetError($_iestatus_success, 0, 1)
Case Else
__ieerrornotify("Error", "_IEFormElementCheckboxSelect", "$_IEStatus_InvalidValue", "Invalid $f_select value")
Return SetError($_iestatus_invalidvalue, 3, 0)
EndSwitch
EndFunc

Func _ieformelementradioselect(ByRef $o_object, $s_string, $s_name, $f_select = 1, $s_mode = "byValue", $f_fireevent = 1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFormElementRadioSelect", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "form") Then
__ieerrornotify("Error", "_IEFormElementRadioSelect", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$s_string = String($s_string)
$s_name = String($s_name)
Local $oitems = Execute("$o_object.elements('" & $s_name & "')")
If NOT IsObj($oitems) Then
__ieerrornotify("Warning", "_IEFormElementRadioSelect", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 3, 0)
EndIf
Local $oitem, $f_found = False
Switch $s_mode
Case "byValue"
If __ieisobjtype($oitems, "forminputelement") Then
$oitem = $oitems
If String($oitem.type) = "radio" AND String($oitem.value) = $s_string Then $f_found = True
Else
For $oitem In $oitems
If String($oitem.type) = "radio" AND String($oitem.value) = $s_string Then
$f_found = True
ExitLoop
EndIf
Next
EndIf
Case "byIndex"
If __ieisobjtype($oitems, "forminputelement") Then
$oitem = $oitems
If String($oitem.type) = "radio" AND Number($s_string) = 0 Then $f_found = True
Else
Local $icount = 0
For $oitem In $oitems
If String($oitem.type) = "radio" AND Number($s_string) = $icount Then
$f_found = True
ExitLoop
Else
$icount += 1
EndIf
Next
EndIf
Case Else
__ieerrornotify("Error", "_IEFormElementRadioSelect", "$_IEStatus_InvalidValue", "Invalid Mode")
Return SetError($_iestatus_invalidvalue, 5, 0)
EndSwitch
If NOT $f_found Then
__ieerrornotify("Warning", "_IEFormElementRadioSelect", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 2, 0)
EndIf
Switch $f_select
Case - 1
Return SetError($_iestatus_success, 0, $oitem.checked)
Case 0
If $oitem.checked Then
$oitem.checked = False
If $f_fireevent Then
$oitem.fireevent("onChange")
$oitem.fireevent("OnClick")
EndIf
EndIf
Return SetError($_iestatus_success, 0, 1)
Case 1
If NOT $oitem.checked Then
$oitem.checked = True
If $f_fireevent Then
$oitem.fireevent("onChange")
$oitem.fireevent("OnClick")
EndIf
EndIf
Return SetError($_iestatus_success, 0, 1)
Case Else
__ieerrornotify("Error", "_IEFormElementRadioSelect", "$_IEStatus_InvalidValue", "$f_select value invalid")
Return SetError($_iestatus_invalidvalue, 4, 0)
EndSwitch
EndFunc

Func _ieformimageclick(ByRef $o_object, $s_linktext, $s_mode = "src", $i_index = 0, $f_wait = 1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFormImageClick", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Local $linktext, $found = 0
Local $otemp = _iedocgetobj($o_object)
Local $imgs = _ietagnamegetcollection($otemp, "input")
$s_mode = StringLower($s_mode)
$i_index = Number($i_index)
For $img In $imgs
If String($img.type) = "image" Then
Select
Case $s_mode = "alt"
$linktext = $img.alt
Case $s_mode = "name"
$linktext = $img.name
Case $s_mode = "src"
$linktext = $img.src
Case Else
__ieerrornotify("Error", "_IEFormImageClick", "$_IEStatus_InvalidValue", "Invalid mode: " & $s_mode)
Return SetError($_iestatus_invalidvalue, 3, 0)
EndSelect
If StringInStr($linktext, $s_linktext) Then
If ($found = $i_index) Then
$img.click
If $f_wait Then
_ieloadwait($o_object)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
Return SetError($_iestatus_success, 0, -1)
EndIf
$found = $found + 1
EndIf
EndIf
Next
__ieerrornotify("Warning", "_IEFormImageClick", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 2, 0)
EndFunc

Func _ieformsubmit(ByRef $o_object, $f_wait = 1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFormSubmit", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "form") Then
__ieerrornotify("Error", "_IEFormSubmit", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Local $o_window = $o_object.document.parentwindow
$o_object.submit
If $f_wait Then
_ieloadwait($o_window)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
Return SetError($_iestatus_success, 0, -1)
EndFunc

Func _ieformreset(ByRef $o_object)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEFormReset", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "form") Then
__ieerrornotify("Error", "_IEFormReset", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.reset
Return SetError($_iestatus_success, 0, 1)
EndFunc

#EndRegion Form functions
#Region Table functions

Func _ietablegetcollection(ByRef $o_object, $i_index = -1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IETableGetCollection", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
$i_index = Number($i_index)
Select
Case $i_index = -1
Return SetError($_iestatus_success, $o_object.document.getelementsbytagname("table").length, $o_object.document.getelementsbytagname("table"))
Case $i_index > -1 AND $i_index < $o_object.document.getelementsbytagname("table").length
Return SetError($_iestatus_success, $o_object.document.getelementsbytagname("table").length, $o_object.document.getelementsbytagname("table").item($i_index))
Case $i_index < -1
__ieerrornotify("Error", "_IETableGetCollection", "$_IEStatus_InvalidValue", "$i_index < -1")
Return SetError($_iestatus_invalidvalue, 2, 0)
Case Else
__ieerrornotify("Warning", "_IETableGetCollection", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 1, 0)
EndSelect
EndFunc

Func _ietablewritetoarray(ByRef $o_object, $f_transpose = False)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IETableWriteToArray", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "table") Then
__ieerrornotify("Error", "_IETableWriteToArray", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Local $i_cols = 0, $tds, $i_col
Local $trs = $o_object.rows
For $tr In $trs
$tds = $tr.cells
$i_col = 0
For $td In $tds
$i_col = $i_col + $td.colspan
Next
If $i_col > $i_cols Then $i_cols = $i_col
Next
Local $i_rows = $trs.length
Local $a_tablecells[$i_cols][$i_rows]
Local $col, $row = 0
For $tr In $trs
$tds = $tr.cells
$col = 0
For $td In $tds
$a_tablecells[$col][$row] = $td.innertext
$col = $col + $td.colspan
Next
$row = $row + 1
Next
If $f_transpose Then
Local $i_d1 = UBound($a_tablecells, 1), $i_d2 = UBound($a_tablecells, 2), $atmp[$i_d2][$i_d1]
For $i = 0 To $i_d2 - 1
For $j = 0 To $i_d1 - 1
$atmp[$i][$j] = $a_tablecells[$j][$i]
Next
Next
$a_tablecells = $atmp
EndIf
Return SetError($_iestatus_success, 0, $a_tablecells)
EndFunc

#EndRegion Table functions
#Region Read/Write functions

Func _iebodyreadhtml(ByRef $o_object)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEBodyReadHTML", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.document.body.innerhtml)
EndFunc

Func _iebodyreadtext(ByRef $o_object)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEBodyReadText", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "browserdom") Then
__ieerrornotify("Error", "_IEBodyReadText", "$_IEStatus_InvalidObjectType", "Expected document element")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.document.body.innertext)
EndFunc

Func _iebodywritehtml(ByRef $o_object, $s_html)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEBodyWriteHTML", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "browserdom") Then
__ieerrornotify("Error", "_IEBodyWriteHTML", "$_IEStatus_InvalidObjectType", "Expected document element")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.document.body.innerhtml = $s_html
Local $otemp = $o_object.document
_ieloadwait($otemp)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndFunc

Func _iedocreadhtml(ByRef $o_object)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEDocReadHTML", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "browserdom") Then
__ieerrornotify("Error", "_IEDocReadHTML", "$_IEStatus_InvalidObjectType", "Expected document element")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.document.documentelement.outerhtml)
EndFunc

Func _iedocwritehtml(ByRef $o_object, $s_html)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEDocWriteHTML", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "browserdom") Then
__ieerrornotify("Error", "_IEDocWriteHTML", "$_IEStatus_InvalidObjectType", "Expected document element")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.document.write($s_html)
$o_object.document.close()
Local $otemp = $o_object.document
_ieloadwait($otemp)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndFunc

Func _iedocinserttext(ByRef $o_object, $s_string, $s_where = "beforeend")
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEDocInsertText", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "browserdom") OR __ieisobjtype($o_object, "documentcontainer") OR __ieisobjtype($o_object, "document") Then
__ieerrornotify("Error", "_IEDocInsertText", "$_IEStatus_InvalidObjectType", "Expected document element")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$s_where = StringLower($s_where)
Select
Case $s_where = "beforebegin"
$o_object.insertadjacenttext($s_where, $s_string)
Return SetError($_iestatus_success, 0, 1)
Case $s_where = "afterbegin"
$o_object.insertadjacenttext($s_where, $s_string)
Return SetError($_iestatus_success, 0, 1)
Case $s_where = "beforeend"
$o_object.insertadjacenttext($s_where, $s_string)
Return SetError($_iestatus_success, 0, 1)
Case $s_where = "afterend"
$o_object.insertadjacenttext($s_where, $s_string)
Return SetError($_iestatus_success, 0, 1)
Case Else
__ieerrornotify("Error", "_IEDocInsertText", "$_IEStatus_InvalidValue", "Invalid where value")
Return SetError($_iestatus_invalidvalue, 3, 0)
EndSelect
EndFunc

Func _iedocinserthtml(ByRef $o_object, $s_string, $s_where = "beforeend")
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEDocInsertHTML", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "browserdom") OR __ieisobjtype($o_object, "documentcontainer") OR __ieisobjtype($o_object, "document") Then
__ieerrornotify("Error", "_IEDocInsertHTML", "$_IEStatus_InvalidObjectType", "Expected document element")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$s_where = StringLower($s_where)
Select
Case $s_where = "beforebegin"
$o_object.insertadjacenthtml($s_where, $s_string)
Return SetError($_iestatus_success, 0, 1)
Case $s_where = "afterbegin"
$o_object.insertadjacenthtml($s_where, $s_string)
Return SetError($_iestatus_success, 0, 1)
Case $s_where = "beforeend"
$o_object.insertadjacenthtml($s_where, $s_string)
Return SetError($_iestatus_success, 0, 1)
Case $s_where = "afterend"
$o_object.insertadjacenthtml($s_where, $s_string)
Return SetError($_iestatus_success, 0, 1)
Case Else
__ieerrornotify("Error", "_IEDocInsertHTML", "$_IEStatus_InvalidValue", "Invalid where value")
Return SetError($_iestatus_invalidvalue, 3, 0)
EndSelect
EndFunc

Func _ieheadinserteventscript(ByRef $o_object, $s_htmlfor, $s_event, $s_script)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEHeadInsertEventScript", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Local $o_head = $o_object.document.all.tags("HEAD").item(0)
Local $o_script = $o_object.document.createelement("script")
With $o_script
.defer = True
.language = "jscript"
.type = "text/javascript"
.htmlfor = $s_htmlfor
.event = $s_event
.text = $s_script
EndWith
$o_head.appendchild($o_script)
Return SetError($_iestatus_success, 0, 1)
EndFunc

#EndRegion Read/Write functions
#Region Utility functions

Func _iedocgetobj(ByRef $o_object)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEDocGetObj", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Switch __ieisobjtype($o_object, "document")
Case True
Return SetError($_iestatus_success, 0, $o_object)
Case False
Return SetError($_iestatus_success, 0, $o_object.document)
EndSwitch
EndFunc

Func _ietagnamegetcollection(ByRef $o_object, $s_tagname, $i_index = -1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IETagNameGetCollection", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "browserdom") Then
__ieerrornotify("Error", "_IETagNameGetCollection", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Local $otemp
If __ieisobjtype($o_object, "documentcontainer") Then
$otemp = _iedocgetobj($o_object)
Else
$otemp = $o_object
EndIf
$i_index = Number($i_index)
Select
Case $i_index = -1
Return SetError($_iestatus_success, $otemp.getelementsbytagname($s_tagname).length, $otemp.getelementsbytagname($s_tagname))
Case $i_index > -1 AND $i_index < $otemp.getelementsbytagname($s_tagname).length
Return SetError($_iestatus_success, $otemp.getelementsbytagname($s_tagname).length, $otemp.getelementsbytagname($s_tagname).item($i_in dex))
Case $i_index < -1
__ieerrornotify("Error", "_IETagNameGetCollection", "$_IEStatus_InvalidValue", "$i_index < -1")
Return SetError($_iestatus_invalidvalue, 3, 0)
Case Else
__ieerrornotify("Error", "_IETagNameGetCollection", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 0, 0)
EndSelect
EndFunc

Func _ietagnameallgetcollection(ByRef $o_object, $i_index = -1)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IETagNameAllGetCollection", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "browserdom") Then
__ieerrornotify("Error", "_IETagNameAllGetCollection", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Local $otemp
If __ieisobjtype($o_object, "documentcontainer") Then
$otemp = _iedocgetobj($o_object)
Else
$otemp = $o_object
EndIf
$i_index = Number($i_index)
Select
Case $i_index = -1
Return SetError($_iestatus_success, $otemp.all.length, $otemp.all)
Case $i_index > -1 AND $i_index < $otemp.all.length
Return SetError($_iestatus_success, $otemp.all.length, $otemp.all.item($i_index))
Case $i_index < -1
__ieerrornotify("Error", "_IETagNameAllGetCollection", "$_IEStatus_InvalidValue", "$i_index < -1")
Return SetError($_iestatus_invalidvalue, 2, 0)
Case Else
__ieerrornotify("Error", "_IETagNameAllGetCollection", "$_IEStatus_NoMatch")
Return SetError($_iestatus_nomatch, 1, 0)
EndSelect
EndFunc

Func _iegetobjbyname(ByRef $o_object, $s_id, $i_index = 0)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEGetObjByName", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
$i_index = Number($i_index)
If $i_index = -1 Then
Return SetError($_iestatus_success, $o_object.document.getelementsbyname($s_id).length , $o_object.document.getelementsbyname($s_id))
Else
If IsObj($o_object.document.getelementsbyname($s_id). item($i_index)) Then
Return SetError($_iestatus_success, $o_object.document.getelementsbyname($s_id).length , $o_object.document.getelementsbyname($s_id).item($ i_index))
Else
__ieerrornotify("Warning", "_IEGetObjByName", "$_IEStatus_NoMatch", "Name: " & $s_id & ", Index: " & $i_index)
Return SetError($_iestatus_nomatch, 0, 0)
EndIf
EndIf
EndFunc

Func _iegetobjbyid(ByRef $o_object, $s_id)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEGetObjById", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "browserdom") Then
__ieerrornotify("Error", "_IEGetObById", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
If IsObj($o_object.document.getelementbyid($s_id)) Then
Return SetError($_iestatus_success, 0, $o_object.document.getelementbyid($s_id))
Else
__ieerrornotify("Warning", "_IEGetObjById", "$_IEStatus_NoMatch", $s_id)
Return SetError($_iestatus_nomatch, 2, 0)
EndIf
EndFunc

Func _ieaction(ByRef $o_object, $s_action)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
$s_action = StringLower($s_action)
Select
Case $s_action = "click"
If __ieisobjtype($o_object, "documentContainer") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.click()
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "disable"
If __ieisobjtype($o_object, "documentContainer") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.disabled = True
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "enable"
If __ieisobjtype($o_object, "documentContainer") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.disabled = False
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "focus"
If __ieisobjtype($o_object, "documentContainer") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.focus()
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "copy"
$o_object.document.execcommand("Copy")
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "cut"
$o_object.document.execcommand("Cut")
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "paste"
$o_object.document.execcommand("Paste")
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "delete"
$o_object.document.execcommand("Delete")
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "saveas"
$o_object.document.execcommand("SaveAs")
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "refresh"
$o_object.document.execcommand("Refresh")
_ieloadwait($o_object)
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "selectall"
$o_object.document.execcommand("SelectAll")
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "unselect"
$o_object.document.execcommand("Unselect")
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "print"
$o_object.document.parentwindow.print()
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "printdefault"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.execwb(6, 2)
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "back"
If NOT __ieisobjtype($o_object, "documentContainer") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.goback()
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "blur"
$o_object.blur()
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "forward"
If NOT __ieisobjtype($o_object, "documentContainer") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.goforward()
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "home"
If NOT __ieisobjtype($o_object, "documentContainer") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.gohome()
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "invisible"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.visible = 0
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "visible"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.visible = 1
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "search"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.gosearch()
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "stop"
If NOT __ieisobjtype($o_object, "documentContainer") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.stop()
Return SetError($_iestatus_success, 0, 1)
Case $s_action = "quit"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.quit()
$o_object = 0
Return SetError($_iestatus_success, 0, 1)
Case Else
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidValue", "Invalid Action")
Return SetError($_iestatus_invalidvalue, 2, 0)
EndSelect
EndFunc

Func _iepropertyget(ByRef $o_object, $s_property)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "browserdom") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Local $otemp, $itemp
$s_property = StringLower($s_property)
Select
Case $s_property = "browserx"
If __ieisobjtype($o_object, "browsercontainer") OR __ieisobjtype($o_object, "document") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$otemp = $o_object
$itemp = 0
While IsObj($otemp)
$itemp += $otemp.offsetleft
$otemp = $otemp.offsetparent
WEnd
Return SetError($_iestatus_success, 0, $itemp)
Case $s_property = "browsery"
If __ieisobjtype($o_object, "browsercontainer") OR __ieisobjtype($o_object, "document") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$otemp = $o_object
$itemp = 0
While IsObj($otemp)
$itemp += $otemp.offsettop
$otemp = $otemp.offsetparent
WEnd
Return SetError($_iestatus_success, 0, $itemp)
Case $s_property = "screenx"
If __ieisobjtype($o_object, "window") OR __ieisobjtype($o_object, "document") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
If __ieisobjtype($o_object, "browser") Then
Return SetError($_iestatus_success, 0, $o_object.left())
Else
$otemp = $o_object
$itemp = 0
While IsObj($otemp)
$itemp += $otemp.offsetleft
$otemp = $otemp.offsetparent
WEnd
EndIf
Return SetError($_iestatus_success, 0, $itemp + $o_object.document.parentwindow.screenleft)
Case $s_property = "screeny"
If __ieisobjtype($o_object, "window") OR __ieisobjtype($o_object, "document") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
If __ieisobjtype($o_object, "browser") Then
Return SetError($_iestatus_success, 0, $o_object.top())
Else
$otemp = $o_object
$itemp = 0
While IsObj($otemp)
$itemp += $otemp.offsettop
$otemp = $otemp.offsetparent
WEnd
EndIf
Return SetError($_iestatus_success, 0, $itemp + $o_object.document.parentwindow.screentop)
Case $s_property = "height"
If __ieisobjtype($o_object, "window") OR __ieisobjtype($o_object, "document") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
If __ieisobjtype($o_object, "browser") Then
Return SetError($_iestatus_success, 0, $o_object.height())
Else
Return SetError($_iestatus_success, 0, $o_object.offsetheight)
EndIf
Case $s_property = "width"
If __ieisobjtype($o_object, "window") OR __ieisobjtype($o_object, "document") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
If __ieisobjtype($o_object, "browser") Then
Return SetError($_iestatus_success, 0, $o_object.width())
Else
Return SetError($_iestatus_success, 0, $o_object.offsetwidth)
EndIf
Case $s_property = "isdisabled"
Return SetError($_iestatus_success, 0, $o_object.isdisabled())
Case $s_property = "addressbar"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.addressbar())
Case $s_property = "busy"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.busy())
Case $s_property = "fullscreen"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.fullscreen())
Case $s_property = "hwnd"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, HWnd($o_object.hwnd()))
Case $s_property = "left"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.left())
Case $s_property = "locationname"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.locationname())
Case $s_property = "locationurl"
If __ieisobjtype($o_object, "browser") Then
Return SetError($_iestatus_success, 0, $o_object.locationurl())
EndIf
If __ieisobjtype($o_object, "window") Then
Return SetError($_iestatus_success, 0, $o_object.location.href())
EndIf
If __ieisobjtype($o_object, "document") Then
Return SetError($_iestatus_success, 0, $o_object.parentwindow.location.href())
EndIf
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.location.href())
Case $s_property = "menubar"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.menubar())
Case $s_property = "offline"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.offline())
Case $s_property = "readystate"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.readystate())
Case $s_property = "resizable"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.resizable())
Case $s_property = "silent"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.silent())
Case $s_property = "statusbar"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.statusbar())
Case $s_property = "statustext"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.statustext())
Case $s_property = "top"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.top())
Case $s_property = "visible"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.visible())
Case $s_property = "appcodename"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.appc odename())
Case $s_property = "appminorversion"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.appm inorversion())
Case $s_property = "appname"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.appn ame())
Case $s_property = "appversion"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.appv ersion())
Case $s_property = "browserlanguage"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.brow serlanguage())
Case $s_property = "cookieenabled"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.cook ieenabled())
Case $s_property = "cpuclass"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.cpuc lass())
Case $s_property = "javaenabled"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.java enabled())
Case $s_property = "online"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.onli ne())
Case $s_property = "platform"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.plat form())
Case $s_property = "systemlanguage"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.syst emlanguage())
Case $s_property = "useragent"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.user agent())
Case $s_property = "userlanguage"
Return SetError($_iestatus_success, 0, $o_object.document.parentwindow.top.navigator.user language())
Case $s_property = "vcard"
Local $avcard[1][29]
$avcard[0][0] = "Business.City"
$avcard[0][1] = "Business.Country"
$avcard[0][2] = "Business.Fax"
$avcard[0][3] = "Business.Phone"
$avcard[0][4] = "Business.State"
$avcard[0][5] = "Business.StreetAddress"
$avcard[0][6] = "Business.URL"
$avcard[0][7] = "Business.Zipcode"
$avcard[0][8] = "Cellular"
$avcard[0][9] = "Company"
$avcard[0][10] = "Department"
$avcard[0][11] = "DisplayName"
$avcard[0][12] = "Email"
$avcard[0][13] = "FirstName"
$avcard[0][14] = "Gender"
$avcard[0][15] = "Home.City"
$avcard[0][16] = "Home.Country"
$avcard[0][17] = "Home.Fax"
$avcard[0][18] = "Home.Phone"
$avcard[0][19] = "Home.State"
$avcard[0][20] = "Home.StreetAddress"
$avcard[0][21] = "Home.Zipcode"
$avcard[0][22] = "Homepage"
$avcard[0][23] = "JobTitle"
$avcard[0][24] = "LastName"
$avcard[0][25] = "MiddleName"
$avcard[0][26] = "Notes"
$avcard[0][27] = "Office"
$avcard[0][28] = "Pager"
For $i = 0 To 28
$avcard[1][$i] = Execute('$o_object.document.parentWindow.top.navig ator.userProfile.getAttribute("' & $avcard[0][$i] & '")')
Next
Return SetError($_iestatus_success, 0, $avcard)
Case $s_property = "referrer"
Return SetError($_iestatus_success, 0, $o_object.document.referrer)
Case $s_property = "theatermode"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.theatermode)
Case $s_property = "toolbar"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
Return SetError($_iestatus_success, 0, $o_object.toolbar)
Case $s_property = "contenteditable"
If __ieisobjtype($o_object, "browser") OR __ieisobjtype($o_object, "document") Then
$otemp = $o_object.document.body
Else
$otemp = $o_object
EndIf
Return SetError($_iestatus_success, 0, $otemp.iscontenteditable)
Case $s_property = "innertext"
If __ieisobjtype($o_object, "documentcontainer") OR __ieisobjtype($o_object, "document") Then
$otemp = $o_object.document.body
Else
$otemp = $o_object
EndIf
Return SetError($_iestatus_success, 0, $otemp.innertext)
Case $s_property = "outertext"
If __ieisobjtype($o_object, "documentcontainer") OR __ieisobjtype($o_object, "document") Then
$otemp = $o_object.document.body
Else
$otemp = $o_object
EndIf
Return SetError($_iestatus_success, 0, $otemp.outertext)
Case $s_property = "innerhtml"
If __ieisobjtype($o_object, "documentcontainer") OR __ieisobjtype($o_object, "document") Then
$otemp = $o_object.document.body
Else
$otemp = $o_object
EndIf
Return SetError($_iestatus_success, 0, $otemp.innerhtml)
Case $s_property = "outerhtml"
If __ieisobjtype($o_object, "documentcontainer") OR __ieisobjtype($o_object, "document") Then
$otemp = $o_object.document.body
Else
$otemp = $o_object
EndIf
Return SetError($_iestatus_success, 0, $otemp.outerhtml)
Case $s_property = "title"
Return SetError($_iestatus_success, 0, $o_object.document.title)
Case $s_property = "uniqueid"
If __ieisobjtype($o_object, "window") Then
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
Else
Return SetError($_iestatus_success, 0, $o_object.uniqueid)
EndIf
Case Else
__ieerrornotify("Error", "_IEPropertyGet", "$_IEStatus_InvalidValue", "Invalid Property")
Return SetError($_iestatus_invalidvalue, 2, 0)
EndSelect
EndFunc

Func _iepropertyset(ByRef $o_object, $s_property, $newvalue)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Local $otemp
#forceref $oTemp
$s_property = StringLower($s_property)
Select
Case $s_property = "addressbar"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.addressbar = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "height"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.height = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "left"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.left = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "menubar"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.menubar = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "offline"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.offline = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "resizable"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.resizable = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "statusbar"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.statusbar = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "statustext"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.statustext = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "top"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.top = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "width"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.width = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "theatermode"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
If $newvalue Then
$o_object.theatermode = True
Else
$o_object.theatermode = False
EndIf
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "toolbar"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
If $newvalue Then
$o_object.toolbar = True
Else
$o_object.toolbar = False
EndIf
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "contenteditable"
If __ieisobjtype($o_object, "browser") OR __ieisobjtype($o_object, "document") Then
$otemp = $o_object.document.body
Else
$otemp = $o_object
EndIf
If $newvalue Then
$otemp.contenteditable = "true"
Else
$otemp.contenteditable = "false"
EndIf
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "innertext"
If __ieisobjtype($o_object, "documentcontainer") OR __ieisobjtype($o_object, "document") Then
$otemp = $o_object.document.body
Else
$otemp = $o_object
EndIf
$otemp.innertext = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "outertext"
If __ieisobjtype($o_object, "documentcontainer") OR __ieisobjtype($o_object, "document") Then
$otemp = $o_object.document.body
Else
$otemp = $o_object
EndIf
$otemp.outertext = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "innerhtml"
If __ieisobjtype($o_object, "documentcontainer") OR __ieisobjtype($o_object, "document") Then
$otemp = $o_object.document.body
Else
$otemp = $o_object
EndIf
$otemp.innerhtml = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "outerhtml"
If __ieisobjtype($o_object, "documentcontainer") OR __ieisobjtype($o_object, "document") Then
$otemp = $o_object.document.body
Else
$otemp = $o_object
EndIf
$otemp.outerhtml = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "title"
$o_object.document.title = $newvalue
Return SetError($_iestatus_success, 0, 1)
Case $s_property = "silent"
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
If $newvalue Then
$o_object.silent = True
Else
$o_object.silent = False
EndIf
Return SetError($_iestatus_success, 0, 0)
Case Else
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_InvalidValue", "Invalid Property")
Return SetError($_iestatus_invalidvalue, 2, 0)
EndSelect
EndFunc

Func _ieerrornotify($f_notify = -1)
Switch Number($f_notify)
Case - 1
Return $_ieerrornotify
Case 0
$_ieerrornotify = False
Return 1
Case 1
$_ieerrornotify = True
Return 1
Case Else
__ieerrornotify("Error", "_IEErrorNotify", "$_IEStatus_InvalidValue")
Return 0
EndSwitch
EndFunc

Func _ieerrorhandlerregister($s_functionname = "__IEInternalErrorHandler")
$sieusererrorhandler = $s_functionname
$oieerrorhandler = ""
$oieerrorhandler = ObjEvent("AutoIt.Error", $s_functionname)
If IsObj($oieerrorhandler) Then
Return SetError($_iestatus_success, 0, 1)
Else
__ieerrornotify("Error", "_IEPropertySet", "$_IEStatus_GeneralError", "Error Handler Not Registered - Check existance of error function")
Return SetError($_iestatus_generalerror, 1, 0)
EndIf
EndFunc

Func _ieerrorhandlerderegister()
$sieusererrorhandler = ""
$oieerrorhandler = ""
Return SetError($_iestatus_success, 0, 1)
EndFunc

Func _iequit(ByRef $o_object)
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "_IEQuit", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "browser") Then
__ieerrornotify("Error", "_IEAction", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.quit()
$o_object = 0
Return SetError($_iestatus_success, 0, 1)
EndFunc

#EndRegion Utility functions
#Region General

Func _ie_introduction($s_module = "basic")
Local $s_html = ""
Switch $s_module
Case "basic"
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$s_html &= "</HTML>"
Case Else
__ieerrornotify("Error", "_IE_Introduction", "$_IEStatus_InvalidValue")
Return SetError($_iestatus_invalidvalue, 1, 0)
EndSwitch
Local $o_object = _iecreate()
_iedocwritehtml($o_object, $s_html)
Return SetError($_iestatus_success, 0, $o_object)
EndFunc

Func _ie_example($s_module = "basic")
Local $s_html = "", $o_object
Switch $s_module
Case "basic"
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$s_html &= "</HTML>"
$o_object = _iecreate()
_iedocwritehtml($o_object, $s_html)
Case "table"
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$s_html &= "</HTML>"
$o_object = _iecreate()
_iedocwritehtml($o_object, $s_html)
Case "form"
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$s_html &= "</HTML>"
$o_object = _iecreate()
_iedocwritehtml($o_object, $s_html)
Case "frameset"
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$s_html &= "</HTML>"
$o_object = _iecreate()
_iedocwritehtml($o_object, $s_html)
_ieaction($o_object, "refresh")
Local $oframetop = _ieframegetobjbyname($o_object, "Top")
Local $oframemenu = _ieframegetobjbyname($o_object, "Menu")
Local $oframemain = _ieframegetobjbyname($o_object, "Main")
_iebodywritehtml($oframetop, '$oFrameTop = _IEFrameGetObjByName($oIE, "Top")')
_iebodywritehtml($oframemenu, '$oFrameMenu = _IEFrameGetObjByName($oIE, "Menu")')
_iebodywritehtml($oframemain, '$oFrameMain = _IEFrameGetObjByName($oIE, "Main")')
Case "iframe"
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$s_html &= "</HTML>"
$o_object = _iecreate()
_iedocwritehtml($o_object, $s_html)
_ieaction($o_object, "refresh")
Local $oiframeone = _ieframegetobjbyname($o_object, "iFrameOne")
Local $oiframetwo = _ieframegetobjbyname($o_object, "iFrameTwo")
_iebodywritehtml($oiframeone, '$oIFrameOne = _IEFrameGetObjByName($oIE, "iFrameOne")')
_iebodywritehtml($oiframetwo, '$oIFrameTwo = _IEFrameGetObjByName($oIE, "iFrameTwo")')
Case Else
__ieerrornotify("Error", "_IE_Example", "$_IEStatus_InvalidValue")
Return SetError($_iestatus_invalidvalue, 1, 0)
EndSwitch
Return SetError($_iestatus_success, 0, $o_object)
EndFunc

Func _ie_versioninfo()
__ieerrornotify("Information", "_IE_VersionInfo", "version " & $ieau3versioninfo[0] & $ieau3versioninfo[1] & "." & $ieau3versioninfo[2] & "-" & $ieau3versioninfo[3], "Release date: " & $ieau3versioninfo[4])
Return SetError($_iestatus_success, 0, $ieau3versioninfo)
EndFunc

#EndRegion General
#Region Internal functions

Func __ielocksetforegroundwindow($nlockcode)
Local $aret = DllCall("user32.dll", "bool", "LockSetForegroundWindow", "uint", $nlockcode)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return $aret[0]
EndFunc

Func __iecontrolgetobjfromhwnd(ByRef $hwin)
DllCall("ole32.dll", "long", "CoInitialize", "ptr", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local Const $wm_html_getobject = __ieregisterwindowmessage("WM_HTML_GETOBJECT")
Local Const $smto_abortifhung = 2
Local $lresult
__iesendmessagetimeout($hwin, $wm_html_getobject, 0, 0, $smto_abortifhung, 1000, $lresult)
Local $typuuid = DllStructCreate("int;short;short;byte[8]")
DllStructSetData($typuuid, 1, 1651492128)
DllStructSetData($typuuid, 2, 42014)
DllStructSetData($typuuid, 3, 4559)
DllStructSetData($typuuid, 4, 167, 1)
DllStructSetData($typuuid, 4, 49, 2)
DllStructSetData($typuuid, 4, 0, 3)
DllStructSetData($typuuid, 4, 160, 4)
DllStructSetData($typuuid, 4, 201, 5)
DllStructSetData($typuuid, 4, 8, 6)
DllStructSetData($typuuid, 4, 38, 7)
DllStructSetData($typuuid, 4, 55, 8)
Local $aret = DllCall("oleacc.dll", "long", "ObjectFromLresult", "lresult", $lresult, "ptr", DllStructGetPtr($typuuid), "wparam", 0, "idispatch*", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If IsObj($aret[4]) Then
Local $oie = $aret[4].script()
Return $oie.document.parentwindow
Else
Return SetError(1, $aret[0], 0)
EndIf
EndFunc

Func __ieregisterwindowmessage($smsg)
Local $aret = DllCall("user32.dll", "uint", "RegisterWindowMessageW", "wstr", $smsg)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If $aret[0] = 0 Then Return SetError(10, _winapi_getlasterror(), 0)
Return $aret[0]
EndFunc

Func __iesendmessagetimeout($hwnd, $msg, $wparam, $lparam, $nflags, $ntimeout, ByRef $vout, $r = 0, $t1 = "int", $t2 = "int")
Local $aret = DllCall("user32.dll", "lresult", "SendMessageTimeout", "hwnd", $hwnd, "uint", $msg, $t1, $wparam, $t2, $lparam, "uint", $nflags, "uint", $ntimeout, "dword_ptr*", "")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$vout = 0
Return SetError(1, _winapi_getlasterror(), 0)
EndIf
$vout = $aret[7]
If $r >= 0 AND $r <= 4 Then Return $aret[$r]
Return $aret
EndFunc

Func __ieisobjtype(ByRef $o_object, $s_type)
If NOT IsObj($o_object) Then
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
Local $status = __ieinternalerrorhandlerregister()
If NOT $status Then __ieerrornotify("Warning", "internal function __IEIsObjType", "Cannot register internal error handler, cannot trap COM errors", "Use _IEErrorHandlerRegister() to register a user error handler")
Local $f_notifystatus = _ieerrornotify()
_ieerrornotify(False)
Local $s_name = String(ObjName($o_object)), $objectok = False
Switch $s_type
Case "browserdom"
Local $otemp = $o_object.document
If __ieisobjtype($o_object, "documentcontainer") Then
$objectok = True
ElseIf __ieisobjtype($o_object, "document") Then
$objectok = True
ElseIf __ieisobjtype($otemp, "document") Then
$objectok = True
EndIf
Case "browser"
If ($s_name = "IWebBrowser2") OR ($s_name = "IWebBrowser") Then $objectok = True
Case "window"
If $s_name = "DispHTMLWindow2" Then $objectok = True
Case "documentContainer"
If __ieisobjtype($o_object, "window") OR __ieisobjtype($o_object, "browser") Then $objectok = True
Case "document"
If $s_name = "DispHTMLDocument" Then $objectok = True
Case "table"
If $s_name = "DispHTMLTable" Then $objectok = True
Case "form"
If $s_name = "DispHTMLFormElement" Then $objectok = True
Case "forminputelement"
If ($s_name = "DispHTMLInputElement") OR ($s_name = "DispHTMLSelectElement") OR ($s_name = "DispHTMLTextAreaElement") Then $objectok = True
Case "elementcollection"
If ($s_name = "DispHTMLElementCollection") Then $objectok = True
Case "formselectelement"
If $s_name = "DispHTMLSelectElement" Then $objectok = True
Case Else
Return SetError($_iestatus_invalidvalue, 2, 0)
EndSwitch
_ieerrornotify($f_notifystatus)
__ieinternalerrorhandlerderegister()
If $objectok Then
Return SetError($_iestatus_success, 0, 1)
Else
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
EndFunc

Func __ieerrornotify($s_severity, $s_func, $s_status = "", $s_message = "")
If $_ieerrornotify OR $__ieau3debug Then
Local $sstr = "--> IE.au3 " & $ieau3versioninfo[5] & " " & $s_severity & " from function " & $s_func
If NOT String($s_status) = "" Then $sstr &= ", " & $s_status
If NOT String($s_message) = "" Then $sstr &= " (" & $s_message & ")"
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
Return 1
EndFunc

Func __ieinternalerrorhandlerregister()
Local $scurrenterrorhandler = ObjEvent("AutoIt.Error")
If $scurrenterrorhandler <> "" AND NOT IsObj($oieerrorhandler) Then
Return SetError($_iestatus_generalerror, 0, 0)
EndIf
$oieerrorhandler = ""
$oieerrorhandler = ObjEvent("AutoIt.Error", "__IEInternalErrorHandler")
If IsObj($oieerrorhandler) Then
Return SetError($_iestatus_success, 0, 1)
Else
Return SetError($_iestatus_generalerror, 0, 0)
EndIf
EndFunc

Func __ieinternalerrorhandlerderegister()
$oieerrorhandler = ""
If $sieusererrorhandler <> "" Then
$oieerrorhandler = ObjEvent("AutoIt.Error", $sieusererrorhandler)
EndIf
Return SetError($_iestatus_success, 0, 1)
EndFunc

Func __ieinternalerrorhandler()
$iecomerrorscriptline = $oieerrorhandler.scriptline
$iecomerrornumber = $oieerrorhandler.number
$iecomerrornumberhex = Hex($oieerrorhandler.number, 8)
$iecomerrordescription = StringStripWS($oieerrorhandler.description, 2)
$iecomerrorwindescription = StringStripWS($oieerrorhandler.windescription, 2)
$iecomerrorsource = $oieerrorhandler.source
$iecomerrorhelpfile = $oieerrorhandler.helpfile
$iecomerrorhelpcontext = $oieerrorhandler.helpcontext
$iecomerrorlastdllerror = $oieerrorhandler.lastdllerror
$iecomerroroutput = ""
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
SetError($_iestatus_comerror)
Return
EndFunc

Func __iecomerrorunrecoverable()
Select
Case ($iecomerrornumber = -2147352567) OR (String($iecomerrordescription) = "Access is denied.")
Return $_iestatus_accessisdenied
Case ($iecomerrornumber = -2147417848) OR (String($iecomerrorwindescription) = "The object invoked has disconnected from its clients.")
Return $_iestatus_clientdisconnected
Case Else
Return $_iestatus_success
EndSelect
EndFunc

#EndRegion Internal functions
#Region ProtoType Functions

Func __ienavigate(ByRef $o_object, $s_url, $f_wait = 1, $i_flags = 0, $s_target = "", $s_postdata = "", $s_headers = "")
__ieerrornotify("Warning", "__IENavigate", "Unsupported function called. Not fully tested.")
If NOT IsObj($o_object) Then
__ieerrornotify("Error", "__IENavigate", "$_IEStatus_InvalidDataType")
Return SetError($_iestatus_invaliddatatype, 1, 0)
EndIf
If NOT __ieisobjtype($o_object, "documentContainer") Then
__ieerrornotify("Error", "__IENavigate", "$_IEStatus_InvalidObjectType")
Return SetError($_iestatus_invalidobjecttype, 1, 0)
EndIf
$o_object.navigate($s_url, $i_flags, $s_target, $s_postdata, $s_headers)
If $f_wait Then
_ieloadwait($o_object)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
Return SetError($_iestatus_success, 0, $o_object)
EndFunc

Func __iestringtobstr($s_string, $s_charset = "us-ascii")
Local Const $adtypebinary = 1, $adtypetext = 2
Local $o_stream = ObjCreate("ADODB.Stream")
$o_stream.type = $adtypetext
$o_stream.charset = $s_charset
$o_stream.open
$o_stream.writetext($s_string)
$o_stream.position = 0
$o_stream.type = $adtypebinary
$o_stream.position = 0
Return $o_stream.read
EndFunc

Func __iebstrtostring($o_bstr, $s_charset = "us-ascii")
Local Const $adtypebinary = 1, $adtypetext = 2
Local $o_stream = ObjCreate("ADODB.Stream")
$o_stream.type = $adtypebinary
$o_stream.open
$o_stream.write($o_bstr)
$o_stream.position = 0
$o_stream.type = $adtypetext
$o_stream.charset = $s_charset
$o_stream.position = 0
Return $o_stream.readtext
EndFunc

Func __iecreatenewie($s_title, $s_head = "", $s_body = "")
Local $s_temp = __ietempfile("", "~IE~", ".htm")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return SetError($_iestatus_generalerror, 1, 0)
EndIf
Local $s_html = ""
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$s_html &= "</HTML>"
Local $h_file = FileOpen($s_temp, 2)
FileWrite($h_file, $s_html)
FileClose($h_file)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return SetError($_iestatus_generalerror, 2, 0)
EndIf
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $s_pid
If WinWait($s_temp, "", 60) Then
$s_pid = WinGetProcess($s_temp)
Else
__ieerrornotify("Error", "_IECreateNewIE", "", "Timeout waiting for new IE window creation")
Return SetError($_iestatus_generalerror, 3, 0)
EndIf
If NOT FileDelete($s_temp) Then
__ieerrornotify("Warning", "_IECreateNewIE", "", "Could not delete temporary file " & FileGetLongName($s_temp))
EndIf
Local $o_object = _ieattach($s_temp)
_ieloadwait($o_object)
_iepropertyset($o_object, "title", $s_title)
Return SetError($_iestatus_success, $s_pid, $o_object)
EndFunc

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $s_tempname, $i_tmp = 0
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If StringRight($s_directoryname, 1) <> "\" Then $s_directoryname = $s_directoryname & "\"
Do
$s_tempname = ""
While StringLen($s_tempname) < $i_randomlength
$s_tempname = $s_tempname & Chr(Random(97, 122, 1))
WEnd
$s_tempname = $s_directoryname & $s_fileprefix & $s_tempname & $s_fileextension
$i_tmp += 1
If $i_tmp > 200 Then
Return SetError($_iestatus_generalerror, 1, 0)
EndIf
Until NOT FileExists($s_tempname)
Return $s_tempname
EndFunc

#EndRegion ProtoType Functions

Func _filecountlines($sfilepath)
Local $hfile = FileOpen($sfilepath, $fo_read)
If $hfile = -1 Then Return SetError(1, 0, 0)
Local $sfilecontent = StringStripWS(FileRead($hfile), 2)
FileClose($hfile)
Local $atmp
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Else
If StringLen($sfilecontent) Then
Return 1
Else
Return SetError(2, 0, 0)
EndIf
EndIf
Return $atmp[0]
EndFunc

Func _filecreate($sfilepath)
Local $hopenfile = FileOpen($sfilepath, $fo_overwrite)
If $hopenfile = -1 Then Return SetError(1, 0, 0)
Local $hwritefile = FileWrite($hopenfile, "")
FileClose($hopenfile)
If $hwritefile = -1 Then Return SetError(2, 0, 0)
Return 1
EndFunc

Func _filelisttoarray($spath, $sfilter = "*", $iflag = 0)
Local $hsearch, $sfile, $sfilelist, $sdelim = "|"
$spath = StringRegExpReplace($spath, "[\\/]+\z", "") & "\"
If NOT FileExists($spath) Then Return SetError(1, 1, "")
If StringRegExp($sfilter, "[\\/:><\|]|(?s)\A\s*\z") Then Return SetError(2, 2, "")
If NOT ($iflag = 0 OR $iflag = 1 OR $iflag = 2) Then Return SetError(3, 3, "")
$hsearch = FileFindFirstFile($spath & $sfilter)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
While 1
$sfile = FileFindNextFile($hsearch)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$sfilelist &= $sdelim & $sfile
WEnd
FileClose($hsearch)
If NOT $sfilelist Then Return SetError(4, 4, "")
Return StringSplit(StringTrimLeft($sfilelist, 1), "|")
EndFunc

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $a_ret = DllCall("shell32.dll", "int", "ShellExecuteW", "hwnd", 0, "wstr", "print", "wstr", $s_file, "wstr", "", "wstr", "", "int", $i_show)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If $a_ret[0] <= 32 Then Return SetError(10, $a_ret[0], 0)
Return 1
EndFunc

Func _filereadtoarray($sfilepath, ByRef $aarray)
Local $hfile = FileOpen($sfilepath, $fo_read)
If $hfile = -1 Then Return SetError(1, 0, 0)
Local $afile = FileRead($hfile, FileGetSize($sfilepath))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
FileClose($hfile)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Else
If StringLen($afile) Then
Dim $aarray[2] = [1, $afile]
Else
Return SetError(2, 0, 0)
EndIf
EndIf
Return 1
EndFunc

Func _filewritefromarray($file, $a_array, $i_base = 0, $i_ubound = 0)
If NOT IsArray($a_array) Then Return SetError(2, 0, 0)
Local $last = UBound($a_array) - 1
If $i_ubound < 1 OR $i_ubound > $last Then $i_ubound = $last
If $i_base < 0 OR $i_base > $last Then $i_base = 0
Local $hfile
If IsString($file) Then
$hfile = FileOpen($file, $fo_overwrite)
Else
$hfile = $file
EndIf
If $hfile = -1 Then Return SetError(1, 0, 0)
Local $errorsav = 0
For $x = $i_base To $i_ubound
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$errorsav = 3
ExitLoop
EndIf
Next
If IsString($file) Then FileClose($hfile)
If $errorsav Then Return SetError($errorsav, 0, 0)
Return 1
EndFunc

Func _filewritelog($slogpath, $slogmsg, $iflag = -1)
Local $iopenmode = $fo_append
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $smsg = $sdatenow & " " & $stimenow & " : " & $slogmsg
If $iflag <> -1 Then
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
$iopenmode = $fo_overwrite
EndIf
Local $hopenfile = FileOpen($slogpath, $iopenmode)
If $hopenfile = -1 Then Return SetError(1, 0, 0)
Local $iwritefile = FileWriteLine($hopenfile, $smsg)
Local $iret = FileClose($hopenfile)
If $iwritefile = -1 Then Return SetError(2, $iret, 0)
Return $iret
EndFunc

Func _filewritetoline($sfile, $iline, $stext, $foverwrite = 0)
If $iline <= 0 Then Return SetError(4, 0, 0)
If NOT IsString($stext) Then
$stext = String($stext)
If $stext = "" Then Return SetError(6, 0, 0)
EndIf
If $foverwrite <> 0 AND $foverwrite <> 1 Then Return SetError(5, 0, 0)
If NOT FileExists($sfile) Then Return SetError(2, 0, 0)
Local $sread_file = FileRead($sfile)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If UBound($asplit_file) < $iline Then Return SetError(1, 0, 0)
Local $hfile = FileOpen($sfile, $fo_overwrite)
If $hfile = -1 Then Return SetError(3, 0, 0)
$sread_file = ""
For $i = 1 To $asplit_file[0]
If $i = $iline Then
If $foverwrite = 1 Then
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Else
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndIf
ElseIf $i < $asplit_file[0] Then
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
ElseIf $i = $asplit_file[0] Then
$sread_file &= $asplit_file[$i]
EndIf
Next
FileWrite($hfile, $sread_file)
FileClose($hfile)
Return 1
EndFunc

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If NOT $srelativepath OR $srelativepath = "." Then Return $sbasepath
Local $sfullpath = StringReplace($srelativepath, "/", "\")
Local Const $sfullpathconst = $sfullpath
Local $spath
Local $brootonly = StringLeft($sfullpath, 1) = "\" AND StringMid($sfullpath, 2, 1) <> "\"
For $i = 1 To 2
$spath = StringLeft($sfullpath, 2)
If $spath = "\\" Then
$sfullpath = StringTrimLeft($sfullpath, 2)
Local $nserverlen = StringInStr($sfullpath, "\") - 1
$spath = "\\" & StringLeft($sfullpath, $nserverlen)
$sfullpath = StringTrimLeft($sfullpath, $nserverlen)
ExitLoop
ElseIf StringRight($spath, 1) = ":" Then
$sfullpath = StringTrimLeft($sfullpath, 2)
ExitLoop
Else
$sfullpath = $sbasepath & "\" & $sfullpath
EndIf
Next
If $i = 3 Then Return ""
If StringLeft($sfullpath, 1) <> "\" Then
If StringLeft($sfullpathconst, 2) = StringLeft($sbasepath, 2) Then
$sfullpath = $sbasepath & "\" & $sfullpath
Else
$sfullpath = "\" & $sfullpath
EndIf
EndIf
Local $atemp = StringSplit($sfullpath, "\")
Local $apathparts[$atemp[0]], $j = 0
For $i = 2 To $atemp[0]
If $atemp[$i] = ".." Then
If $j Then $j -= 1
ElseIf NOT ($atemp[$i] = "" AND $i <> $atemp[0]) AND $atemp[$i] <> "." Then
$apathparts[$j] = $atemp[$i]
$j += 1
EndIf
Next
$sfullpath = $spath
If NOT $brootonly Then
For $i = 0 To $j - 1
$sfullpath &= "\" & $apathparts[$i]
Next
Else
$sfullpath &= $sfullpathconst
If StringInStr($sfullpath, "..") Then $sfullpath = _pathfull($sfullpath)
EndIf
While StringInStr($sfullpath, ".\")
$sfullpath = StringReplace($sfullpath, ".\", "\")
WEnd
Return $sfullpath
EndFunc

Func _pathgetrelative($sfrom, $sto)
If StringRight($sfrom, 1) <> "\" Then $sfrom &= "\"
If StringRight($sto, 1) <> "\" Then $sto &= "\"
If $sfrom = $sto Then Return SetError(1, 0, StringTrimRight($sto, 1))
Local $asfrom = StringSplit($sfrom, "\")
Local $asto = StringSplit($sto, "\")
If $asfrom[1] <> $asto[1] Then Return SetError(2, 0, StringTrimRight($sto, 1))
Local $i = 2
Local $idiff = 1
While 1
If $asfrom[$i] <> $asto[$i] Then
$idiff = $i
ExitLoop
EndIf
$i += 1
WEnd
$i = 1
Local $srelpath = ""
For $j = 1 To $asto[0]
If $i >= $idiff Then
$srelpath &= "\" & $asto[$i]
EndIf
$i += 1
Next
$srelpath = StringTrimLeft($srelpath, 1)
$i = 1
For $j = 1 To $asfrom[0]
If $i > $idiff Then
$srelpath = "..\" & $srelpath
EndIf
$i += 1
Next
If StringRight($srelpath, 1) == "\" Then $srelpath = StringTrimRight($srelpath, 1)
Return $srelpath
EndFunc

Func _pathmake($szdrive, $szdir, $szfname, $szext)
If StringLen($szdrive) Then
If NOT (StringLeft($szdrive, 2) = "\\") Then $szdrive = StringLeft($szdrive, 1) & ":"
EndIf
If StringLen($szdir) Then
If NOT (StringRight($szdir, 1) = "\") AND NOT (StringRight($szdir, 1) = "/") Then $szdir = $szdir & "\"
EndIf
If StringLen($szext) Then
If NOT (StringLeft($szext, 1) = ".") Then $szext = "." & $szext
EndIf
Return $szdrive & $szdir & $szfname & $szext
EndFunc

Func _pathsplit($szpath, ByRef $szdrive, ByRef $szdir, ByRef $szfname, ByRef $szext)
Local $drive = ""
Local $dir = ""
Local $fname = ""
Local $ext = ""
Local $pos
Local $array[5]
$array[0] = $szpath
If StringMid($szpath, 2, 1) = ":" Then
$drive = StringLeft($szpath, 2)
$szpath = StringTrimLeft($szpath, 2)
ElseIf StringLeft($szpath, 2) = "\\" Then
$szpath = StringTrimLeft($szpath, 2)
$pos = StringInStr($szpath, "\")
If $pos = 0 Then $pos = StringInStr($szpath, "/")
If $pos = 0 Then
$drive = "\\" & $szpath
$szpath = ""
Else
$drive = "\\" & StringLeft($szpath, $pos - 1)
$szpath = StringTrimLeft($szpath, $pos - 1)
EndIf
EndIf
Local $nposforward = StringInStr($szpath, "/", 0, -1)
Local $nposbackward = StringInStr($szpath, "\", 0, -1)
If $nposforward >= $nposbackward Then
$pos = $nposforward
Else
$pos = $nposbackward
EndIf
$dir = StringLeft($szpath, $pos)
$fname = StringRight($szpath, StringLen($szpath) - $pos)
If StringLen($dir) = 0 Then $fname = $szpath
$pos = StringInStr($fname, ".", 0, -1)
If $pos Then
$ext = StringRight($fname, StringLen($fname) - ($pos - 1))
$fname = StringLeft($fname, $pos - 1)
EndIf
$szdrive = $drive
$szdir = $dir
$szfname = $fname
$szext = $ext
$array[1] = $drive
$array[2] = $dir
$array[3] = $fname
$array[4] = $ext
Return $array
EndFunc

Func _replacestringinfile($szfilename, $szsearchstring, $szreplacestring, $fcaseness = 0, $foccurance = 1)
Local $iretval = 0
Local $ncount, $sendswith
If StringInStr(FileGetAttrib($szfilename), "R") Then Return SetError(6, 0, -1)
Local $hfile = FileOpen($szfilename, $fo_read)
If $hfile = -1 Then Return SetError(1, 0, -1)
Local $s_totfile = FileRead($hfile, FileGetSize($szfilename))
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Else
$sendswith = ""
EndIf
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
FileClose($hfile)
Local $hwritehandle = FileOpen($szfilename, $fo_overwrite)
If $hwritehandle = -1 Then Return SetError(2, 0, -1)
For $ncount = 1 To $afilelines[0]
If StringInStr($afilelines[$ncount], $szsearchstring, $fcaseness) Then
$afilelines[$ncount] = StringReplace($afilelines[$ncount], $szsearchstring, $szreplacestring, 1 - $foccurance, $fcaseness)
$iretval = $iretval + 1
If $foccurance = 0 Then
$iretval = 1
ExitLoop
EndIf
EndIf
Next
For $ncount = 1 To $afilelines[0] - 1
If FileWriteLine($hwritehandle, $afilelines[$ncount]) = 0 Then
FileClose($hwritehandle)
Return SetError(3, 0, -1)
EndIf
Next
If $afilelines[$ncount] <> "" Then FileWrite($hwritehandle, $afilelines[$ncount] & $sendswith)
FileClose($hwritehandle)
Return $iretval
EndFunc

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If StringRight($s_directoryname, 1) <> "\" Then $s_directoryname = $s_directoryname & "\"
Local $s_tempname
Do
$s_tempname = ""
While StringLen($s_tempname) < $i_randomlength
$s_tempname = $s_tempname & Chr(Random(97, 122, 1))
WEnd
$s_tempname = $s_directoryname & $s_fileprefix & $s_tempname & $s_fileextension
Until NOT FileExists($s_tempname)
Return $s_tempname
EndFunc

Global Const $__soundconstant_sndid_marker = 1229204781

Func _soundopen($sfile)
If NOT FileExists($sfile) Then Return SetError(2, 0, 0)
Local $asndid[4]
For $i = 1 To 10
$asndid[0] &= Chr(Random(97, 122, 1))
Next
Local $szdrive, $szdir, $szfname, $szext
_pathsplit($sfile, $szdrive, $szdir, $szfname, $szext)
Local $ssnddirname
If $szdrive = "" Then
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Else
$ssnddirname = $szdrive & $szdir
EndIf
Local $ssndfilename = $szfname & $szext
Local $ssnddirshortname = FileGetShortName($ssnddirname, 1)
__soundmcisendstring("open " & FileGetShortName($sfile) & " alias " & $asndid[0])
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Local $stracklength, $ftrynextmethod = False
Local $oshell = ObjCreate("shell.application")
If IsObj($oshell) Then
Local $oshelldir = $oshell.namespace($ssnddirshortname)
If IsObj($oshelldir) Then
Local $oshelldirfile = $oshelldir.parsename($ssndfilename)
If IsObj($oshelldirfile) Then
Local $sraw = $oshelldir.getdetailsof($oshelldirfile, -1)
Local $ainfo = StringRegExp($sraw, ": ([0-9]{2}:[0-9]{2}:[0-9]{2})", 3)
If NOT IsArray($ainfo) Then
$ftrynextmethod = True
Else
$stracklength = $ainfo[0]
EndIf
Else
$ftrynextmethod = True
EndIf
Else
$ftrynextmethod = True
EndIf
Else
$ftrynextmethod = True
EndIf
Local $stag
If $ftrynextmethod Then
$ftrynextmethod = False
If $szext = ".mp3" Then
Local $hfile = FileOpen(FileGetShortName($ssnddirname & $ssndfilename), 4)
$stag = FileRead($hfile, 5156)
FileClose($hfile)
$stracklength = __soundreadxingfrommp3($stag)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Else
$ftrynextmethod = True
EndIf
EndIf
If $ftrynextmethod Then
$ftrynextmethod = False
If $szext = ".mp3" Then
$stracklength = __soundreadtlenfrommp3($stag)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Else
$ftrynextmethod = True
EndIf
EndIf
If $ftrynextmethod Then
$ftrynextmethod = False
__soundmcisendstring("set " & $asndid[0] & " time format miliseconds")
Local $isndlenms = __soundmcisendstring("status " & $asndid[0] & " length", 255)
Local $isndlenmin, $isndlenhour, $isndlensecs
__soundtickstotime($isndlenms, $isndlenhour, $isndlenmin, $isndlensecs)
$stracklength = StringFormat("%02i:%02i:%02i", $isndlenhour, $isndlenmin, $isndlensecs)
EndIf
Local $aitime = StringSplit($stracklength, ":")
Local $iactualticks = __soundtimetoticks($aitime[1], $aitime[2], $aitime[3])
__soundmcisendstring("set " & $asndid[0] & " time format miliseconds")
Local $isoundticks = __soundmcisendstring("status " & $asndid[0] & " length", 255)
Local $ivbrratio
If Abs($isoundticks - $iactualticks) < 1000 Then
$ivbrratio = 0
Else
$ivbrratio = $isoundticks / $iactualticks
EndIf
$asndid[1] = $ivbrratio
$asndid[2] = 0
$asndid[3] = $__soundconstant_sndid_marker
Return $asndid
EndFunc

Func _soundclose($asndid)
If NOT IsArray($asndid) OR NOT __soundchksndid($asndid) Then Return SetError(3, 0, 0)
__soundmcisendstring("close " & $asndid[0])
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return 1
EndFunc

Func _soundplay($asndid, $iwait = 0)
If $iwait <> 0 AND $iwait <> 1 Then Return SetError(2, 0, 0)
If NOT __soundchksndid($asndid) Then Return SetError(3, 0, 0)
If _soundpos($asndid, 2) = _soundlength($asndid, 2) Then __soundmcisendstring("seek " & $asndid[0] & " to start")
If $iwait = 1 Then
__soundmcisendstring("play " & $asndid[0] & " wait")
Else
__soundmcisendstring("play " & $asndid[0])
EndIf
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return 1
EndFunc

Func _soundstop(ByRef $asndid)
Local $vtemp = $asndid
If NOT __soundchksndid($vtemp) Then Return SetError(3, 0, 0)
If IsArray($asndid) Then $asndid[2] = 0
__soundmcisendstring("stop " & $vtemp[0])
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
__soundmcisendstring("seek " & $vtemp[0] & " to start")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return 1
EndFunc

Func _soundpause($asndid)
If NOT __soundchksndid($asndid) Then Return SetError(3, 0, 0)
__soundmcisendstring("pause " & $asndid[0])
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return 1
EndFunc

Func _soundresume($asndid)
If NOT __soundchksndid($asndid) Then Return SetError(3, 0, 0)
__soundmcisendstring("resume " & $asndid[0])
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Return 1
EndFunc

Func _soundlength($asndid, $imode = 1)
If $imode <> 1 AND $imode <> 2 Then Return SetError(1, 0, 0)
Local $bfile = False
If NOT IsArray($asndid) Then
If NOT FileExists($asndid) Then Return SetError(3, 0, 0)
$bfile = True
$asndid = _soundopen($asndid)
Else
If NOT __soundchksndid($asndid) Then Return SetError(3, 0, 0)
EndIf
__soundmcisendstring("set " & $asndid[0] & " time format miliseconds")
Local $isndlenms = Number(__soundmcisendstring("status " & $asndid[0] & " length", 255))
If $asndid[1] <> 0 Then $isndlenms = Round($isndlenms / $asndid[1])
If $bfile Then _soundclose($asndid)
If $imode = 2 Then Return $isndlenms
Local $isndlenmin, $isndlenhour, $isndlensecs
__soundtickstotime($isndlenms, $isndlenhour, $isndlenmin, $isndlensecs)
Local $ssndlenformat = StringFormat("%02i:%02i:%02i", $isndlenhour, $isndlenmin, $isndlensecs)
Return $ssndlenformat
EndFunc

Func _soundseek(ByRef $asndid, $ihour, $imin, $isec)
If NOT IsArray($asndid) OR NOT __soundchksndid($asndid) Then Return SetError(3, 0, 0)
__soundmcisendstring("set " & $asndid[0] & " time format miliseconds")
Local $ims = $isec * 1000
$ims += $imin * 60 * 1000
$ims += $ihour * 60 * 60 * 1000
If $asndid[1] <> 0 Then
$asndid[2] = Round($ims * $asndid[1]) - $ims
$ims = Round($ims * $asndid[1])
EndIf
__soundmcisendstring("seek " & $asndid[0] & " to " & $ims)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If _soundpos($asndid, 2) < 0 Then $asndid[2] = 0
If $ierror Then Return SetError(1, $ierror, 0)
Return 1
EndFunc

Func _soundstatus($asndid)
If NOT __soundchksndid($asndid) Then Return SetError(3, 0, 0)
Return __soundmcisendstring("status " & $asndid[0] & " mode", 255)
EndFunc

Func _soundpos($asndid, $imode = 1)
If $imode <> 1 AND $imode <> 2 Then Return SetError(1, 0, 0)
If NOT __soundchksndid($asndid) Then Return SetError(3, 0, 0)
__soundmcisendstring("set " & $asndid[0] & " time format miliseconds")
Local $isndposms = Number(__soundmcisendstring("status " & $asndid[0] & " position", 255))
If $asndid[1] <> 0 Then
$isndposms -= $asndid[2]
EndIf
If $imode = 2 Then Return $isndposms
Local $isndposmin, $isndposhour, $isndpossecs
__soundtickstotime($isndposms, $isndposhour, $isndposmin, $isndpossecs)
Local $ssndposhms = StringFormat("%02i:%02i:%02i", $isndposhour, $isndposmin, $isndpossecs)
Return $ssndposhms
EndFunc

Func __soundchksndid(ByRef $asndid)
If NOT IsArray($asndid) Then
If NOT FileExists($asndid) Then Return 0
Local $vtemp = FileGetShortName($asndid)
Dim $asndid[4] = [$vtemp, 0, 0, $__soundconstant_sndid_marker]
Else
If UBound($asndid) <> 4 AND $asndid[3] <> $__soundconstant_sndid_marker Then Return 0
EndIf
Return 1
EndFunc

Func __soundmcisendstring($string, $ilen = 0)
Local $iret = DllCall("winmm.dll", "dword", "mciSendStringW", "wstr", $string, "wstr", "", "uint", $ilen, "ptr", 0)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If $iret[0] Then Return SetError(10, $iret[0], $iret[2])
Return $iret[2]
EndFunc

Func __soundreadtlenfrommp3($stag)
If StringLeft($stag, 10) <> "0x49443303" Then Return SetError(1, 0, 0)
Local $itemp = StringInStr($stag, "544C454E") + 21
$stag = StringTrimLeft($stag, $itemp)
Local $stemp = ""
For $i = 1 To 32 Step 2
If StringMid($stag, $i, 2) = "00" Then
ExitLoop
Else
$stemp &= StringMid($stag, $i, 2)
EndIf
Next
Local $ilengthms = Number(BinaryToString("0x" & $stemp))
If $ilengthms <= 0 Then Return SetError(1, 0, 0)
Local $ilengthhour, $ilengthmin, $ilengthsecs
__soundtickstotime($ilengthms, $ilengthhour, $ilengthmin, $ilengthsecs)
Return StringFormat("%02i:%02i:%02i", $ilengthhour, $ilengthmin, $ilengthsecs)
EndFunc

Func __soundreadxingfrommp3($stag)
Local $ixingpos = StringInStr($stag, "58696E67")
If $ixingpos = 0 Then Return SetError(1, 0, 0)
Local $iframes, $iflags = Number("0x" & StringMid($stag, $ixingpos + 14, 2))
If BitAND($iflags, 1) = 1 Then
$iframes = Number("0x" & StringMid($stag, $ixingpos + 16, 8))
Else
Return SetError(1, 0, 0)
EndIf
Local $sheader = StringMid($stag, $ixingpos - 72, 8)
Local $impegbyte = Number("0x" & StringMid($sheader, 4, 1))
Local $ifreqbyte = Number("0x" & StringMid($sheader, 6, 1))
Local $impegver = BitAND($impegbyte, 8)
Local $ilayernum = BitAND($impegbyte, 6)
Local $isamples
Switch $ilayernum
Case 6
$isamples = 384
Case 4
$isamples = 1152
Case 2
Switch $impegver
Case 8
$isamples = 1152
Case 0
$isamples = 576
Case Else
$isamples = 0
EndSwitch
Case Else
$isamples = 0
EndSwitch
If $isamples = 0 Then Return SetError(1, 0, 0)
Local $ifrequency, $ifreqnum = BitAND($ifreqbyte, 12)
Switch $ifreqnum
Case 0
$ifrequency = 44100
Case 4
$ifrequency = 48000
Case 8
$ifrequency = 32000
Case Else
$ifrequency = 0
EndSwitch
If $ifrequency = 0 Then Return SetError(1, 0, 0)
If $impegver = 0 Then $ifrequency = $ifrequency / 2
Local $ilengthms = Int(($iframes * $isamples / $ifrequency) * 1000)
Local $ilengthhours, $ilengthmins, $ilengthsecs
__soundtickstotime($ilengthms, $ilengthhours, $ilengthmins, $ilengthsecs)
Return StringFormat("%02i:%02i:%02i", $ilengthhours, $ilengthmins, $ilengthsecs)
EndFunc

Func __soundtickstotime($iticks, ByRef $ihours, ByRef $imins, ByRef $isecs)
If Number($iticks) < 0 Then Return SetError(1, 0, 0)
If Number($iticks) = 0 Then
$ihours = 0
$iticks = 0
$imins = 0
$isecs = 0
Return 1
EndIf
$iticks = Round($iticks / 1000)
$ihours = Int($iticks / 3600)
$iticks = Mod($iticks, 3600)
$imins = Int($iticks / 60)
$isecs = Round(Mod($iticks, 60))
Return 1
EndFunc

[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If NOT (StringIsInt($ihours) AND StringIsInt($imins) AND StringIsInt($isecs)) Then Return SetError(1, 0, 0)
Return 1000 * ((3600 * $ihours) + (60 * $imins) + $isecs)
EndFunc

Opt("GuiOnEventMode", 1)
Opt("TrayOnEventMode", 1)
Opt("TrayMenuMode", 1)
Global $ok = False, $target, $hp_pet, $hp, $mp, $detect, $tt_target, $skill_hppet1, $hp_thoatnhanh1, $skill_hp1, $skill_mp1, $check_ttptc1, $ttptc_input1, $check_nhatdo1
Global $check_thoatnhanh1, $check_hppet1, $check_mp1, $check_hp1, $check_luaquai1, $check_skill_2, $check_skill_3, $check_skill_4, $check_skill_5, $check_skill_6, $check_skill_7
Global $buff_hp = TimerInit(), $timer = TimerInit(), $timer2 = TimerInit(), $timer3 = TimerInit(), $timer4 = TimerInit(), $timer5 = TimerInit(), $timer6 = TimerInit(), $timer7 = TimerInit()
Global $oie = _iecreateembedded()
Global $vk_f1 = "0x70", $vk_f2 = "0x71", $vk_f3 = "0x72", $vk_f4 = "0x73", $vk_f5 = "0x74", $vk_f6 = "0x75", $vk_f7 = "0x76", $vk_f8 = "0x77", $vk_f9 = "0x78", $vk_f10 = "0x79"
Global $skill2, $skill3, $skill4, $skill5, $skill6, $skill7, $delay2, $delay3, $delay4, $delay5, $delay6, $delay7, $name, $check_nhatdo
Global $winpost
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
HotKeySet("^+q", "TERMINATE")
HotKeySet("^+i", "SHOWMESSAGE")
HotKeySet("^p", "OK")
HotKeySet("{PGUP}", "SHOWTRAY")
HotKeySet("{PGDN}", "TRAY")
$pid = WinGetProcess("[Class:TianLongBaBu WndClass]")
$title = WinGetTitle("[Class:TianLongBaBu WndClass]")
$handle = WinGetHandle($title)
$memid = _memoryopen($pid)
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Ignore_Variables=
#Obfuscator_Ignore_Funcs=
#Obfuscator_On
#Region ### START Koda GUI section ### Form=c:\documents and settings\admin\desktop\auto 2.kxf
$form = GUICreate("Auto CLB", 225, 430, 791, 273)
GUISetOnEvent($gui_event_close, "Terminate")
$tab1 = GUICtrlCreateTab(-1, 0, 225, 430)
$tabsheet1 = GUICtrlCreateTabItem("General")
$check_hppet = GUICtrlCreateCheckbox("Hp <", 15, 45, 40, 25)
GUICtrlSetState(-1, 1)
$hppet_input = GUICtrlCreateCombo("", 60, 48, 40, 20, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "10|20|30|40|50|60|70|80|90|100", "50")
$label1 = GUICtrlCreateLabel("% - Buff", 102, 51, 40, 17)
$skill_hppet = GUICtrlCreateCombo("", 148, 48, 57, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6|F7|F8|F9|F10", "F10")
$check_hp = GUICtrlCreateCheckbox("Hp <", 15, 92, 40, 25)
GUICtrlSetState(-1, 1)
$hp_input = GUICtrlCreateCombo("", 60, 95, 40, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "10|20|30|40|50|60|70|80|90|100", "80")
$label2 = GUICtrlCreateLabel("% - Buff", 102, 98, 40, 17)
$skill_hp = GUICtrlCreateCombo("", 148, 95, 57, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6|F7|F8|F9|F10", "F9")
$check_mp = GUICtrlCreateCheckbox("Mp <", 15, 123, 40, 25)
GUICtrlSetState(-1, 1)
$mp_input = GUICtrlCreateCombo("", 60, 126, 40, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "10|20|30|40|50|60|70|80|90|100", "50")
$label3 = GUICtrlCreateLabel("% - Buff", 102, 129, 40, 17)
$skill_mp = GUICtrlCreateCombo("", 148, 126, 57, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6|F7|F8|F9|F10", "F8")
$group_pet = GUICtrlCreateGroup("Pet", 7, 28, 209, 49)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$group_char = GUICtrlCreateGroup("Nhan vat", 7, 76, 209, 81)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$check_skill2 = GUICtrlCreateCheckbox("Skill", 16, 171, 40, 25)
GUICtrlSetState(-1, 1)
$skill2_input = GUICtrlCreateCombo("", 60, 174, 57, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6|F7|F8|F9|F10", "F2")
$label14 = GUICtrlCreateLabel("Sau", 121, 177, 23, 17)
$delay_skill2 = GUICtrlCreateInput("20", 148, 174, 49, 21)
$label15 = GUICtrlCreateLabel("s", 199, 177, 9, 17)
$check_skill3 = GUICtrlCreateCheckbox("Skill", 16, 201, 40, 25)
GUICtrlSetState(-1, 1)
$skill3_input = GUICtrlCreateCombo("", 60, 204, 57, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6|F7|F8|F9|F10", "F3")
$label4 = GUICtrlCreateLabel("Sau", 121, 207, 23, 17)
$delay_skill3 = GUICtrlCreateInput("25", 148, 204, 49, 21)
$label5 = GUICtrlCreateLabel("s", 199, 207, 9, 17)
$check_skill4 = GUICtrlCreateCheckbox("Skill", 16, 232, 40, 25)
GUICtrlSetState(-1, 1)
$skill4_input = GUICtrlCreateCombo("", 60, 235, 57, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6|F7|F8|F9|F10", "F4")
$label6 = GUICtrlCreateLabel("Sau", 121, 238, 23, 17)
$delay_skill4 = GUICtrlCreateInput("30", 148, 235, 49, 21)
$label7 = GUICtrlCreateLabel("s", 199, 238, 9, 17)
$check_skill5 = GUICtrlCreateCheckbox("Skill", 16, 262, 40, 25)
GUICtrlSetState(-1, 1)
$skill5_input = GUICtrlCreateCombo("", 60, 265, 57, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6|F7|F8|F9|F10", "F5")
$label8 = GUICtrlCreateLabel("Sau", 121, 268, 23, 17)
$delay_skill5 = GUICtrlCreateInput("40", 148, 265, 49, 21)
$label9 = GUICtrlCreateLabel("s", 199, 268, 9, 17)
$check_skill6 = GUICtrlCreateCheckbox("Skill", 16, 293, 40, 25)
GUICtrlSetState(-1, 1)
$skill6_input = GUICtrlCreateCombo("", 60, 296, 57, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6|F7|F8|F9|F10", "F6")
$label10 = GUICtrlCreateLabel("Sau", 121, 299, 23, 17)
$delay_skill6 = GUICtrlCreateInput("50", 148, 296, 49, 21)
$label11 = GUICtrlCreateLabel("s", 199, 299, 9, 17)
$check_skill7 = GUICtrlCreateCheckbox("Skill", 16, 323, 40, 25)
GUICtrlSetState(-1, 1)
$skill7_input = GUICtrlCreateCombo("", 60, 326, 57, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6|F7|F8|F9|F10", "F7")
$label12 = GUICtrlCreateLabel("Sau", 121, 329, 23, 17)
$delay_skill7 = GUICtrlCreateInput("60", 148, 326, 49, 21)
$label13 = GUICtrlCreateLabel("s", 199, 329, 9, 17)
$group3 = GUICtrlCreateGroup("Combo", 8, 158, 209, 201)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$button = GUICtrlCreateButton("START", 130, 380, 85, 34)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetOnEvent(-1, "ok")
GUICtrlSetTip(-1, "Ctrl + P")
$ten_nv = GUICtrlCreateLabel("", 20, 360, 80, 30)
$label_hp = GUICtrlCreateLabel("Hp", 5, 378, 20, 30)
GUICtrlSetColor(-1, 16716032)
$hp_nv = GUICtrlCreateProgress(23, 380, 100, 10)
$label_mp = GUICtrlCreateLabel("Mp", 5, 393, 20, 30)
GUICtrlSetColor(-1, 131277)
$mp_nv = GUICtrlCreateProgress(23, 395, 100, 10)
$label_pet = GUICtrlCreateLabel("Pet", 5, 408, 20, 30)
$hppet_nv = GUICtrlCreateProgress(23, 410, 80, 10)
$tabsheet2 = GUICtrlCreateTabItem("Options")
$check_nhatdo = GUICtrlCreateCheckbox("Tu dong nhat do (Beta)", 15, 30, 160, 25)
$check_ttptc = GUICtrlCreateCheckbox("Buff TTPTC - NM", 15, 60, 100, 25)
$ttptc_input = GUICtrlCreateCombo("", 127, 62, 57, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "F1|F2|F3|F4|F5|F6|F7|F8|F9|F10", "F9")
$check_luaquai = GUICtrlCreateCheckbox("Target lien tuc sau:", 15, 90, 105, 25)
$target_input = GUICtrlCreateCombo("", 127, 92, 57, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8|9|10", "3")
$check_thoatnhanh = GUICtrlCreateCheckbox("Thoat game, Hp <", 15, 120, 105, 25)
$hp_thoatnhanh = GUICtrlCreateCombo("", 126, 122, 57, 25, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "5|10|15|20|25|30|35|40|45|50", "10")
$check_bankinh = GUICtrlCreateCheckbox("Co dinh (Fixing...)", 15, 150, 115, 25)
$label16 = GUICtrlCreateLabel("s", 187, 93, 9, 17)
$label17 = GUICtrlCreateLabel("%", 187, 127, 12, 17)
$save = GUICtrlCreateButton("Save", 8, 390, 50, 23)
GUICtrlSetOnEvent(-1, "SaveSetting")
$load = GUICtrlCreateButton("Load", 60, 390, 50, 23)
GUICtrlSetOnEvent(-1, "LoadSetting")
$hide = GUICtrlCreateButton("Hide", 112, 390, 50, 23)
GUICtrlSetOnEvent(-1, "hide")
$show = GUICtrlCreateButton("Show", 164, 390, 50, 23)
GUICtrlSetOnEvent(-1, "show")
$hd = GUICtrlCreateObj($oie, 0, 200, 240, 185)
_ienavigate($oie, "[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]")
GUICtrlCreateTabItem("")
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
#EndRegion ### END Koda GUI section ###
#Obfuscator_Off
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Ignore_Variables=
#Obfuscator_Ignore_Funcs=
#Obfuscator_On

Func savesetting()
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
IniWrite($path, "Pet", "Check", GUICtrlRead($check_hppet))
IniWrite($path, "Pet", "%", GUICtrlRead($hppet_input))
IniWrite($path, "Pet", "Key", GUICtrlRead($skill_hppet))
IniWrite($path, "Hp", "Check", GUICtrlRead($check_hp))
IniWrite($path, "Hp", "%", GUICtrlRead($hp_input))
IniWrite($path, "Hp", "Key", GUICtrlRead($skill_hp))
IniWrite($path, "Mp", "Check", GUICtrlRead($check_mp))
IniWrite($path, "Mp", "%", GUICtrlRead($mp_input))
IniWrite($path, "Mp", "Key", GUICtrlRead($skill_mp))
IniWrite($path, "Skill2", "Check", GUICtrlRead($check_skill2))
IniWrite($path, "Skill2", "Key", GUICtrlRead($skill2_input))
IniWrite($path, "Skill2", "Delay", GUICtrlRead($delay_skill2))
IniWrite($path, "Skill3", "Check", GUICtrlRead($check_skill3))
IniWrite($path, "Skill3", "Key", GUICtrlRead($skill3_input))
IniWrite($path, "Skill3", "Delay", GUICtrlRead($delay_skill3))
IniWrite($path, "Skill4", "Check", GUICtrlRead($check_skill4))
IniWrite($path, "Skill4", "Key", GUICtrlRead($skill4_input))
IniWrite($path, "Skill4", "Delay", GUICtrlRead($delay_skill4))
IniWrite($path, "Skill5", "Check", GUICtrlRead($check_skill5))
IniWrite($path, "Skill5", "Key", GUICtrlRead($skill5_input))
IniWrite($path, "Skill5", "Delay", GUICtrlRead($delay_skill5))
IniWrite($path, "Skill6", "Check", GUICtrlRead($check_skill6))
IniWrite($path, "Skill6", "Key", GUICtrlRead($skill6_input))
IniWrite($path, "Skill6", "Delay", GUICtrlRead($delay_skill6))
IniWrite($path, "Skill7", "Check", GUICtrlRead($check_skill7))
IniWrite($path, "Skill7", "Key", GUICtrlRead($skill7_input))
IniWrite($path, "Skill7", "Delay", GUICtrlRead($delay_skill7))
IniWrite($path, "Opt", "Nhat_do", GUICtrlRead($check_nhatdo))
IniWrite($path, "Opt", "TTPTC", GUICtrlRead($check_ttptc))
IniWrite($path, "Opt", "Key_TTPTC", GUICtrlRead($ttptc_input))
IniWrite($path, "Opt", "Check_train", GUICtrlRead($check_luaquai))
IniWrite($path, "Opt", "Tg_train", GUICtrlRead($target_input))
IniWrite($path, "Opt", "Check_thoat", GUICtrlRead($check_thoatnhanh))
IniWrite($path, "Opt", "%_thoat", GUICtrlRead($hp_thoatnhanh))
IniWrite($path, "Opt", "Co_dinh", GUICtrlRead($check_bankinh))
EndFunc

Func loadsetting()
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
GUICtrlSetState($check_hppet, IniRead($path, "Pet", "Check", "1"))
GUICtrlSetData($hppet_input, IniRead($path, "Pet", "%", "50"))
GUICtrlSetData($skill_hppet, IniRead($path, "Pet", "Key", "F10"))
GUICtrlSetState($check_hp, IniRead($path, "Hp", "Check", "1"))
GUICtrlSetData($hp_input, IniRead($path, "Hp", "%", "80"))
GUICtrlSetData($skill_hp, IniRead($path, "Hp", "Key", "F9"))
GUICtrlSetState($check_mp, IniRead($path, "Mp", "Check", "1"))
GUICtrlSetData($mp_input, IniRead($path, "Mp", "%", "50"))
GUICtrlSetData($skill_mp, IniRead($path, "Mp", "Key", "F8"))
GUICtrlSetState($check_skill2, IniRead($path, "Skill2", "Check", "1"))
GUICtrlSetData($skill2_input, IniRead($path, "Skill2", "Key", "F2"))
GUICtrlSetData($delay_skill2, IniRead($path, "Skill2", "Delay", "20"))
GUICtrlSetState($check_skill3, IniRead($path, "Skill3", "Check", "1"))
GUICtrlSetData($skill3_input, IniRead($path, "Skill3", "Key", "F3"))
GUICtrlSetData($delay_skill3, IniRead($path, "Skill3", "Delay", "25"))
GUICtrlSetState($check_skill4, IniRead($path, "Skill4", "Check", "1"))
GUICtrlSetData($skill4_input, IniRead($path, "Skill4", "Key", "F4"))
GUICtrlSetData($delay_skill4, IniRead($path, "Skill4", "Delay", "30"))
GUICtrlSetState($check_skill5, IniRead($path, "Skill5", "Check", "1"))
GUICtrlSetData($skill5_input, IniRead($path, "Skill5", "Key", "F5"))
GUICtrlSetData($delay_skill5, IniRead($path, "Skill5", "Delay", "50"))
GUICtrlSetState($check_skill6, IniRead($path, "Skill6", "Check", "1"))
GUICtrlSetData($skill6_input, IniRead($path, "Skill6", "Key", "F6"))
GUICtrlSetData($delay_skill6, IniRead($path, "Skill6", "Delay", "60"))
GUICtrlSetState($check_skill7, IniRead($path, "Skill7", "Check", "1"))
GUICtrlSetData($skill7_input, IniRead($path, "Skill7", "Key", "F7"))
GUICtrlSetData($delay_skill7, IniRead($path, "Skill7", "Delay", "60"))
GUICtrlSetState($check_nhatdo, IniRead($path, "Opt", "Nhat_do", ""))
GUICtrlSetState($check_ttptc, IniRead($path, "Opt", "TTPTC", ""))
GUICtrlSetData($ttptc_input, IniRead($path, "Opt", "Key_TTPTC", "F9"))
GUICtrlSetState($check_luaquai, IniRead($path, "Opt", "Check_train", ""))
GUICtrlSetData($target_input, IniRead($path, "Opt", "Tg_train", "3"))
GUICtrlSetState($check_thoatnhanh, IniRead($path, "Opt", "Check_thoat", "1"))
GUICtrlSetData($hp_thoatnhanh, IniRead($path, "Opt", "%_thoat", "10"))
GUICtrlSetState($check_bankinh, IniRead($path, "Opt", "Co_dinh", ""))
EndFunc

Func hide()
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndFunc

Func show()
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndFunc

#Obfuscator_Off
If StringLeft(WinGetTitle("[Class:TianLongBaBu WndClass]"), 22) <> "Thien Long Bat Bo 3.55.1503" Then
EndIf

Func ok()
$ok = NOT $ok
$timer = TimerInit()
EndFunc

Func read()
$hp = GUICtrlRead($hp_input)
$mp = GUICtrlRead($mp_input)
$hp_pet = GUICtrlRead($hppet_input)
$target = GUICtrlRead($target_input)
$check_hppet1 = GUICtrlRead($check_hppet)
$check_hp1 = GUICtrlRead($check_hp)
$check_mp1 = GUICtrlRead($check_mp)
$check_luaquai1 = GUICtrlRead($check_luaquai)
$check_skill_2 = GUICtrlRead($check_skill2)
$check_skill_3 = GUICtrlRead($check_skill3)
$check_skill_4 = GUICtrlRead($check_skill4)
$check_skill_5 = GUICtrlRead($check_skill5)
$check_skill_6 = GUICtrlRead($check_skill6)
$check_skill_7 = GUICtrlRead($check_skill7)
$skill_hppet1 = Eval("VK_" & GUICtrlRead($skill_hppet))
$skill_hp1 = Eval("VK_" & GUICtrlRead($skill_hp))
$skill_mp1 = Eval("VK_" & GUICtrlRead($skill_mp))
$skill2 = Eval("VK_" & GUICtrlRead($skill2_input))
$skill3 = Eval("VK_" & GUICtrlRead($skill3_input))
$skill4 = Eval("VK_" & GUICtrlRead($skill4_input))
$skill5 = Eval("VK_" & GUICtrlRead($skill5_input))
$skill6 = Eval("VK_" & GUICtrlRead($skill6_input))
$skill7 = Eval("VK_" & GUICtrlRead($skill7_input))
$ttptc_input1 = Eval("VK_" & GUICtrlRead($ttptc_input))
$delay2 = GUICtrlRead($delay_skill2)
$delay3 = GUICtrlRead($delay_skill3)
$delay4 = GUICtrlRead($delay_skill4)
$delay5 = GUICtrlRead($delay_skill5)
$delay6 = GUICtrlRead($delay_skill6)
$delay7 = GUICtrlRead($delay_skill7)
$check_nhatdo1 = GUICtrlRead($check_nhatdo)
$check_ttptc1 = GUICtrlRead($check_ttptc)
$check_thoatnhanh1 = GUICtrlRead($check_thoatnhanh)
$hp_thoatnhanh1 = GUICtrlRead($hp_thoatnhanh)
$hide1 = GUICtrlRead($hide)
EndFunc

Func check()
$base_pet = 6576192
$base_pet = _memoryread($base_pet, $memid)
$base_pet = _memoryread($base_pet + 294556, $memid)
$pet = _memoryread(_memoryread(6577372, $memid) + 92, $memid)
$hppet = _memoryread($base_pet + 60 + $pet * 312, $memid)
$hppet_max = _memoryread($base_pet + 64 + $pet * 312, $memid)
GUICtrlSetData($hppet_nv, $hppet * 100 / $hppet_max)
$base_char = 6576180
$base_char = _memoryread($base_char, $memid)
$base_char = _memoryread($base_char + 100, $memid)
$base_char = _memoryread($base_char + 340, $memid)
$base_char = _memoryread($base_char + 4, $memid)
$name = _memoryread($base_char + 48, $memid, "char[16]")
TraySetToolTip($name)
GUICtrlSetData($ten_nv, $name)
$mp_max = _memoryread($base_char + 1860, $memid)
$hp_max = _memoryread($base_char + 1856, $memid)
$hp_cur = _memoryread($base_char + 1752, $memid)
$mp_cur = _memoryread($base_char + 1756, $memid)
GUICtrlSetData($hp_nv, $hp_cur * 100 / $hp_max)
GUICtrlSetData($mp_nv, $mp_cur * 100 / $mp_max)
$base_detect = 6559704
$base_detect = _memoryread($base_detect, $memid)
$base_detect = _memoryread($base_detect + 0, $memid)
$base_detect = _memoryread($base_detect + 12, $memid)
$detect = _memoryread($base_detect + 100, $memid)
If $detect = 1 Then
Dim $out = TimerInit()
While 1
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
WinActivate($title)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
_soundplay($sound)
TrayTip("", "Canh bao co cau hoi chong auto, chuong trinh se tu thoat sau 40s...", 5)
Sleep(500)
$detect = _memoryread($base_detect + 100, $memid)
Select
Case $detect = 0
_soundstop($sound)
ExitLoop
Case TimerDiff($out) > 40000
WinActivate($title)
ProcessClose($pid)
EndSelect
WEnd
EndIf
If $check_thoatnhanh1 = 1 AND $hp_cur * 100 / $hp_max < $hp_thoatnhanh1 Then
ProcessClose($pid)
EndIf
If $check_hppet1 = 1 AND $hppet * 100 / $hppet_max < $hp_pet Then
Sleep(500)
_winapi_postmessage($handle, 257, $skill_hppet1, 0)
EndIf
If $check_mp1 = 1 AND $mp_cur * 100 / $mp_max < $mp Then
Sleep(500)
_winapi_postmessage($handle, 257, $skill_mp1, 0)
EndIf
If $check_hp1 = 1 AND $hp_cur * 100 / $hp_max < $hp Then
If $check_ttptc1 = 1 Then
Do
$winpost = WinGetPos($handle)
WinActivate($handle)
WinActive($handle)
MouseClick("left", $winpost[0] + 30, $winpost[1] + 60, 10, 10)
Sleep(500)
_winapi_postmessage($handle, 257, $ttptc_input1, 0)
$hp_max = _memoryread($base_char + 1856, $memid)
$hp_cur = _memoryread($base_char + 1752, $memid)
Until $hp_cur * 100 / $hp_max > $hp
_winapi_postmessage($handle, 256, 122, 0)
Else
If TimerDiff($buff_hp) > 10000 Then
Sleep(500)
_winapi_postmessage($handle, 257, $skill_hp1, 0)
$buff_hp = TimerInit()
EndIf
EndIf
EndIf
EndFunc

Sleep(500)
While 1
read()
check()
If $ok Then
GUICtrlSetData($button, "STOP")
$base_atk = 6549696
$base_atk = _memoryread($base_atk, $memid)
$base_atk = _memoryread($base_atk + 4, $memid)
$base_atk = _memoryread($base_atk + 12, $memid)
$atk = _memoryread($base_atk + 100, $memid)
$base_mob = 6549672
$base_mob = _memoryread($base_mob, $memid)
$base_mob = _memoryread($base_mob, $memid)
$base_mob = _memoryread($base_mob + 12, $memid)
$base_mob = _memoryread($base_mob + 96, $memid)
$base_mob = _memoryread($base_mob + 44, $memid)
$base_mob = _memoryread($base_mob + 4, $memid)
$base_mob = _memoryread($base_mob + 44, $memid)
$base_mob = _memoryread($base_mob + 8, $memid)
$base_mob = _memoryread($base_mob + 44, $memid)
$base_mob = _memoryread($base_mob, $memid)
$mob = _memoryread($base_mob + 1888, $memid)
If $check_luaquai1 = 1 Then
If $check_nhatdo1 = 1 Then nhatdo()
_winapi_postmessage($handle, 256, 122, 0)
Sleep($target * 1000 - 1000)
Else
If $atk = 0 OR $mob = 0 Then
If $check_nhatdo1 = 1 Then nhatdo()
_winapi_postmessage($handle, 256, 122, 0)
EndIf
EndIf
_winapi_postmessage($handle, 257, 112, 0)
Sleep(500)
If $check_skill_2 = 1 AND TimerDiff($timer2) > $delay2 * 1000 + 3000 Then
_winapi_postmessage($handle, 257, $skill2, 0)
$timer2 = TimerInit()
EndIf
If $check_skill_3 = 1 AND TimerDiff($timer3) > $delay3 * 1000 + 3000 Then
_winapi_postmessage($handle, 257, $skill3, 0)
$timer3 = TimerInit()
EndIf
If $check_skill_4 = 1 AND TimerDiff($timer4) > $delay4 * 1000 + 3000 Then
_winapi_postmessage($handle, 257, $skill4, 0)
$timer4 = TimerInit()
EndIf
If $check_skill_5 = 1 AND TimerDiff($timer5) > $delay5 * 1000 + 3000 Then
_winapi_postmessage($handle, 257, $skill5, 0)
$timer5 = TimerInit()
EndIf
If $check_skill_6 = 1 AND TimerDiff($timer6) > $delay6 * 1000 + 3000 Then
_winapi_postmessage($handle, 257, $skill6, 0)
$timer6 = TimerInit()
EndIf
If $check_skill_7 = 1 AND TimerDiff($timer7) > $delay7 * 1000 + 3000 Then
_winapi_postmessage($handle, 257, $skill7, 0)
$timer7 = TimerInit()
EndIf
Sleep(500)
Else
GUICtrlSetData($button, "START")
Sleep(1000)
EndIf
WEnd

Func terminate()
Exit 0
EndFunc

Func exitme()
Exit
EndFunc

Func showmessage()
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndFunc

Func tray()
TrayTip("Hide Auto", "Auto duoc an duoi taskbar. nhan PGUP de hien auto", 3)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndFunc

Func showtray()
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
EndFunc

Func nhatdo()
WinActivate($handle)
WinActive($handle)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Sleep(100)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Sleep(100)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Sleep(100)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Sleep(100)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Sleep(100)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Sleep(100)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Sleep(100)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Sleep(100)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Sleep(100)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
Sleep(100)
[Chỉ có thành viên mới xem link được. <a href="register.php"> Nhấp đây để đăng ký thành viên......</a>]
If WinActive("[Class:TianLongBaBu WndClass]", "") <> 0 Then
If $mau1 <> 0 Then
MouseMove($mau1[0], $mau1[1])
MouseDown("right")
Sleep(100)
MouseUp("right")
ElseIf $mau2 <> 0 Then
MouseMove($mau2[0], $mau2[1])
MouseDown("right")
Sleep(100)
MouseUp("right")
ElseIf $mau3 <> 0 Then
MouseMove($mau3[0], $mau3[1])
MouseDown("right")
Sleep(100)
MouseUp("right")
ElseIf $mau4 <> 0 Then
MouseMove($mau4[0], $mau4[1])
MouseDown("right")
Sleep(200)
MouseUp("right")
ElseIf $mau5 <> 0 Then
MouseMove($mau5[0], $mau5[1])
MouseDown("right")
Sleep(100)
MouseUp("right")
EndIf
EndIf
EndFunc

#Obfuscator_Off

việc còn lại lên google tim hiểu AutoIt
còn nếu muôn làm auto như Gauto hay tieudattai thi chi muốn kiếm tiền và phá nát game tlbb
có bằng chứng thi nói người ta keylog ăn cắp tài khoản , không thi bớt đồn nhảm