|
You last visited: Today at 08:59
Advertisement
Suche Bhopscript.
Discussion on Suche Bhopscript. within the Counter-Strike forum part of the Popular Games category.
07/26/2013, 17:32
|
#1
|
elite*gold: 0 
Join Date: May 2011
Posts: 331
Received Thanks: 6
|
Suche Bhopscript.
Suche Bhop script, aber kein autohotkey sondern ein richtiges was autobhopt mit speed usw. eventuell ohne vac ban. (Css)
|
|
|
|
07/26/2013, 20:12
|
#2
|
elite*gold: 235
Join Date: Jan 2012
Posts: 920
Received Thanks: 377
|
Quote:
Nett formuliert 
Schau dich mal in der Hacker Sektion um dort sind ein paar Multihacks mit BHop.
Einzelne, sichere, gibt es momentan glaub ich nicht.
Ich werde aber mal ein wenig stöbern
|
|
|
|
|
07/27/2013, 00:03
|
#3
|
elite*gold: 1
Join Date: Dec 2010
Posts: 33,275
Received Thanks: 5,709
|
z.B 
Macht dich aber leider nicht schneller.
Es gibt noch viele weitere. Die meisten sind aber sicherlich schon dt oder veraltet.
Hast du nicht schon einmal danach gesucht?
|
|
|
|
|
07/27/2013, 00:17
|
#4
|
elite*gold: 555
Join Date: Sep 2012
Posts: 5,262
Received Thanks: 1,446
|
Script oder Programm?
Kannst auch usen.
Isn bhop drin
|
|
|
|
|
07/27/2013, 00:20
|
#5
|
elite*gold: 1
Join Date: Dec 2010
Posts: 33,275
Received Thanks: 5,709
|
Quote:
Originally Posted by burncode
Script oder Programm?
Kannst auch usen.
Isn bhop drin |
Quote:
|
Suche Bhop script, .......
|
Ich denke aber, dass es ihm aber egal ist.
|
|
|
|
|
07/27/2013, 11:04
|
#6
|
elite*gold: 8
Join Date: Sep 2011
Posts: 5,184
Received Thanks: 1,276
|
Sobald OSH wieder online ist: Da ist vor kurzem erst einer released worden. Extern soweit ich mich erinnern kann.
Sonst c&p dir
Code:
#region _Memory
Func _memoryopen($iv_pid, $iv_desiredaccess = 2035711, $iv_inherithandle = 1)
If NOT ProcessExists($iv_pid)
SetError(1)
Return 0
EndIf
Local $ah_handle[2] = [DllOpen("kernel32.dll")]
If
@error
SetError(2)
Return 0
EndIf
Local $av_openprocess = DllCall($ah_handle[0], "int", "OpenProcess", "int", $iv_desiredaccess, "int", $iv_inherithandle, "int", $iv_pid)
If
@error
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)
SetError(1)
Return 0
EndIf
Local $v_buffer = DllStructCreate($sv_type)
If
@error
SetError
@error
+ 1)
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", "")
If NOT
@error
Local $v_value = Int(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)
SetError(1)
Return 0
EndIf
Local $v_buffer = DllStructCreate($sv_type)
If
@error
SetError
@error
+ 1)
Return 0
Else
DllStructSetData($v_buffer, 1, $v_data)
If
@error
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", "")
If NOT
@error
Return 1
Else
SetError(7)
Return 0
EndIf
EndFunc
Func _memoryclose($ah_handle)
If NOT IsArray($ah_handle)
SetError(1)
Return 0
EndIf
DllCall($ah_handle[0], "int", "CloseHandle", "int", $ah_handle[1])
If NOT
@error
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)$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*", 0)
If $sp_auxret[0]
$htoken = $sp_auxret[3]
DllStructSetData($token_privileges, 1, 1)
$ntokenindex = 1
While $ntokenindex <= $ntokens
If IsArray($privilege)
$priv = $privilege[$ntokenindex - 1]
Else
$priv = $privilege
EndIf
$ret = DllCall("advapi32.dll", "int", "LookupPrivilegeValue", "str", "", "str", $priv, "ptr", DllStructGetPtr($luid))
If $ret[0]
If $benable
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*", 0)
$f = DllCall("kernel32.dll", "int", "GetLastError")
EndIf
$newtoken_privileges = 0
$token_privileges = 0
$luid = 0
If $sp_auxret[0] = 0Return 0
$sp_auxret = DllCall("kernel32.dll", "int", "CloseHandle", "hwnd", $htoken)
If NOT $ret[0]NOT $sp_auxret[0]Return 0
Return $ret[0]
EndFunc
Func _memorypointerread($iv_address, $ah_handle, $av_offset, $sv_type = "dword")
If IsArray($av_offset)
If IsArray($ah_handle)
Local $iv_pointercount = UBound($av_offset) - 1
Else
SetError(2)
Return 0
EndIf
Else
SetError(1)
Return 0
EndIf
Local $iv_data[2], $i
Local $v_buffer = DllStructCreate("dword")
For $i = 0$iv_pointercount
If $i = $iv_pointercount
$v_buffer = DllStructCreate($sv_type)
If
@error
SetError
@error
+ 2)
Return 0
EndIf
$iv_address = "0x" & Hex($iv_data[1] + $av_offset[$i])
DllCall($ah_handle[0], "int", "ReadProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If
@error
SetError(7)
Return 0
EndIf
$iv_data[1] = DllStructGetData($v_buffer, 1)
ElseIf $i = 0
DllCall($ah_handle[0], "int", "ReadProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If
@error
SetError(7)
Return 0
EndIf
$iv_data[1] = DllStructGetData($v_buffer, 1)
Else
$iv_address = "0x" & Hex($iv_data[1] + $av_offset[$i])
DllCall($ah_handle[0], "int", "ReadProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If
@error
SetError(7)
Return 0
EndIf
$iv_data[1] = DllStructGetData($v_buffer, 1)
EndIf
Next
$iv_data[0] = $iv_address
Return $iv_data
EndFunc
Func _memorypointerwrite($iv_address, $ah_handle, $av_offset, $v_data, $sv_type = "dword")
If IsArray($av_offset)
If IsArray($ah_handle)
Local $iv_pointercount = UBound($av_offset) - 1
Else
SetError(2)
Return 0
EndIf
Else
SetError(1)
Return 0
EndIf
Local $iv_structdata, $i
Local $v_buffer = DllStructCreate("dword")
For $i = 0$iv_pointercount
If $i = $iv_pointercount
$v_buffer = DllStructCreate($sv_type)
If
@error
SetError
@error
+ 3)
Return 0
EndIf
DllStructSetData($v_buffer, 1, $v_data)
If
@error
SetError(8)
Return 0
EndIf
$iv_address = "0x" & Hex($iv_structdata + $av_offset[$i])
DllCall($ah_handle[0], "int", "WriteProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If
@error
SetError(9)
Return 0
Else
Return $iv_address
EndIf
ElseIf $i = 0
DllCall($ah_handle[0], "int", "ReadProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If
@error
SetError(3)
Return 0
EndIf
$iv_structdata = DllStructGetData($v_buffer, 1)
Else
$iv_address = "0x" & Hex($iv_structdata + $av_offset[$i])
DllCall($ah_handle[0], "int", "ReadProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If
@error
SetError(3)
Return 0
EndIf
$iv_structdata = DllStructGetData($v_buffer, 1)
EndIf
Next
EndFunc
Func _memorygetbaseaddress($ah_handle, $ihexdec = 0)
Local $iv_address = 1048576
Local $v_buffer = DllStructCreate("dword;dword;dword;dword;dword;dword;dword")
Local $vdata
Local $vtype
If NOT IsArray($ah_handle)
SetError(1)
Return 0
EndIf
DllCall($ah_handle[0], "int", "VirtualQueryEx", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer))
If NOT
@error
$vdata = Hex(Int(DllStructGetData($v_buffer, 2)))
$vtype = Hex(Int(DllStructGetData($v_buffer, 3)))
While $vtype <> "00000080"
DllCall($ah_handle[0], "int", "VirtualQueryEx", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer))
$vdata = Hex(Int(DllStructGetData($v_buffer, 2)))
$vtype = Hex(Int(DllStructGetData($v_buffer, 3)))
If Hex($iv_address) = "01000000"ExitLoop
$iv_address += 65536
WEnd
If $vtype = "00000080"
SetError(0)
If $ihexdec = 1
Return Dec($vdata)
Else
Return $vdata
EndIf
Else
SetError(2)
Return 0
EndIf
Else
SetError(3)
Return 0
EndIf
EndFunc
Func _memorymodulegetbaseaddress($ipid, $smodule)
If NOT ProcessExists($ipid)Return SetError(1, 0, 0)
If NOT IsString($smodule)Return SetError(2, 0, 0)
Local $psapi = DllOpen("psapi.dll")
Local $hprocess
Local $permission = BitOR(2, 1024, 8, 16, 32)
If $ipid > 0
Local $hprocess = DllCall("kernel32.dll", "ptr", "OpenProcess", "dword", $permission, "int", 0, "dword", $ipid)
If $hprocess[0]
$hprocess = $hprocess[0]
EndIf
EndIf
Local $modules = DllStructCreate("ptr[1024]")
Local $acall = DllCall($psapi, "int", "EnumProcessModules", "ptr", $hprocess, "ptr", DllStructGetPtr($modules), "dword", DllStructGetSize($modules), "dword*", 0)
If $acall[4] > 0
Local $imodnum = $acall[4] / 4
Local $atemp
For $i = 1$imodnum
$atemp = DllCall($psapi, "dword", "GetModuleBaseNameW", "ptr", $hprocess, "ptr", Ptr(DllStructGetData($modules, 1, $i)), "wstr", "", "dword", 260)
If $atemp[3] = $smodule
DllClose($psapi)
Return Ptr(DllStructGetData($modules, 1, $i))
EndIf
Next
EndIf
DllClose($psapi)
Return SetError(-1, 0, 0)
EndFunc
#EndRegion
Func _memreaddll($dll, $offset, $ah_handle, $sv_type = "dword")
$staticoffset = Dec($offset)
$baseaddr = _memorymodulegetbaseaddress($ah_handle, $dll)
$finaladdr = "0x" & Hex($baseaddr + $staticoffset)
$memtest = _memoryread($finaladdr, $ah_handle, $sv_type)
Return $memtest
EndFunc
Func _memwritedll($dll, $offset, $value, $ah_handle, $sv_type = "dword")
$staticoffset = Dec($offset)
$baseaddr = _memorymodulegetbaseaddress($ah_handle, $dll)
$finaladdr = "0x" & Hex($baseaddr + $staticoffset)
$memtest = _memorywrite($finaladdr, $ah_handle, $value, $sv_type)
Return $memtest
EndFunc
Func _memwritedllbytearray($dll, $offset, $ah_handle, $v_array)
Local $staticoffset = Dec($offset)
Local $baseaddr = _memorymodulegetbaseaddress($ah_handle, $dll)
Local $finaladdr = "0x" & Hex($baseaddr + $staticoffset)
Local $memtest = _memorywritebytearray($finaladdr, $ah_handle, $v_array)
Return $memtest
EndFunc
Func _memorywritebytearray($iv_address, $ah_handle, $v_array)
If NOT IsArray($ah_handle)
SetError(1)
Return 0
EndIf
If NOT IsArray($v_array)
Return 0
EndIf
Local $emax = UBound($v_array)
Local $bytestring = ""
For $i = 0$emax - 1
$bytestring = $bytestring & "byte;"
Next
Local $v_buffer = DllStructCreate($bytestring)
If
@error
Return 0
Else
For $i = 1$emax
DllStructSetData($v_buffer, $i, $v_array[$i - 1])
If
@error
Return 0
EndIf
Next
EndIf
DllCall($ah_handle[0], "int", "WriteProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If NOT
@error
Return 1
Else
SetError(7)
Return 0
EndIf
EndFunc
Global Const $fw_dontcare = 0
Global Const $fw_thin = 100
Global Const $fw_extralight = 200
Global Const $fw_ultralight = 200
Global Const $fw_light = 300
Global Const $fw_normal = 400
Global Const $fw_regular = 400
Global Const $fw_medium = 500
Global Const $fw_semibold = 600
Global Const $fw_demibold = 600
Global Const $fw_bold = 700
Global Const $fw_extrabold = 800
Global Const $fw_ultrabold = 800
Global Const $fw_heavy = 900
Global Const $fw_black = 900
Global Const $cf_effects = 256
Global Const $cf_printerfonts = 2
Global Const $cf_screenfonts = 1
Global Const $cf_noscriptsel = 8388608
Global Const $cf_inittologfontstruct = 64
Global Const $logpixelsx = 88
Global Const $logpixelsy = 90
Global Const $ansi_charset = 0
Global Const $baltic_charset = 186
Global Const $chinesebig5_charset = 136
Global Const $default_charset = 1
Global Const $easteurope_charset = 238
Global Const $gb2312_charset = 134
Global Const $greek_charset = 161
Global Const $hangeul_charset = 129
Global Const $mac_charset = 77
Global Const $oem_charset = 255
Global Const $russian_charset = 204
Global Const $shiftjis_charset = 128
Global Const $symbol_charset = 2
Global Const $turkish_charset = 162
Global Const $vietnamese_charset = 163
Global Const $out_character_precis = 2
Global Const $out_default_precis = 0
Global Const $out_device_precis = 5
Global Const $out_outline_precis = 8
Global Const $out_ps_only_precis = 10
Global Const $out_raster_precis = 6
Global Const $out_string_precis = 1
Global Const $out_stroke_precis = 3
Global Const $out_tt_only_precis = 7
Global Const $out_tt_precis = 4
Global Const $clip_character_precis = 1
Global Const $clip_default_precis = 0
Global Const $clip_embedded = 128
Global Const $clip_lh_angles = 16
Global Const $clip_mask = 15
Global Const $clip_stroke_precis = 2
Global Const $clip_tt_always = 32
Global Const $antialiased_quality = 4
Global Const $default_quality = 0
Global Const $draft_quality = 1
Global Const $nonantialiased_quality = 3
Global Const $proof_quality = 2
Global Const $default_pitch = 0
Global Const $fixed_pitch = 1
Global Const $variable_pitch = 2
Global Const $ff_decorative = 80
Global Const $ff_dontcare = 0
Global Const $ff_modern = 48
Global Const $ff_roman = 16
Global Const $ff_script = 64
Global Const $ff_swiss = 32
Global Const $tagpoint = "struct;long X;long Y;endstruct"
Global Const $tagrect = "struct;long Left;long Top;long Right;long Bottom;endstruct"
Global Const $tagsize = "struct;long X;long Y;endstruct"
Global Const $tagmargins = "int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight"
Global Const $tagfiletime = "struct;dword Lo;dword Hi;endstruct"
Global Const $ta****temtime = "struct;word Year;word Month;word Dow;word Day;word Hour;word Minute;word Second;word MSeconds;endstruct"
Global Const $tagtime_zone_information = "struct;long Bias;wchar StdName[32];word StdDate[8];long StdBias;wchar DayName[32];word DayDate[8];long DayBias;endstruct"
Global Const $tagnmhdr = "struct;hwnd hWndFrom;uint_ptr IDFrom;INT Code;endstruct"
Global Const $tagcomboboxexitem = "uint Mask;int_ptr Item;ptr Text;int TextMax;int Image;int SelectedImage;int OverlayImage;" & "int Indent;lparam Param"
Global Const $tagnmcbedragbegin = $tagnmhdr & ";int ItemID;wchar szText[260]"
Global Const $tagnmcbeendedit = $tagnmhdr & ";bool fChanged;int NewSelection;wchar szText[260];int Why"
Global Const $tagnmcomboboxex = $tagnmhdr & ";uint Mask;int_ptr Item;ptr Text;int TextMax;int Image;" & "int SelectedImage;int OverlayImage;int Indent;lparam Param"
Global Const $tagdtprange = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;" & "word MinSecond;word MinMSecond;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;" & "word MaxMinute;word MaxSecond;word MaxMSecond;bool MinValid;bool MaxValid"
Global Const $tagnmdatetimechange = $tagnmhdr & ";dword Flag;" & $ta****temtime
Global Const $tagnmdatetimeformat = $tagnmhdr & ";ptr Format;" & $ta****temtime & ";ptr pDisplay;wchar Display[64]"
Global Const $tagnmdatetimeformatquery = $tagnmhdr & ";ptr Format;struct;long SizeX;long SizeY;endstruct"
Global Const $tagnmdatetimekeydown = $tagnmhdr & ";int VirtKey;ptr Format;" & $ta****temtime
Global Const $tagnmdatetimestring = $tagnmhdr & ";ptr UserString;" & $ta****temtime & ";dword Flags"
Global Const $tageventlogrecord = "dword Length;dword Reserved;dword RecordNumber;dword TimeGenerated;dword TimeWritten;dword EventID;" & "word EventType;word NumStrings;word EventCategory;word ReservedFlags;dword ClosingRecordNumber;dword StringOffset;" & "dword UserSidLength;dword UserSidOffset;dword DataLength;dword DataOffset"
Global Const $taggdipbitmapdata = "uint Width;uint Height;int Stride;int Format;ptr Scan0;uint_ptr Reserved"
Global Const $taggdipencoderparam = "byte GUID[16];ulong Count;ulong Type;ptr Values"
Global Const $taggdipencoderparams = "uint Count;byte Params[1]"
Global Const $taggdiprectf = "float X;float Y;float Width;float Height"
Global Const $taggdipstartupinput = "uint Version;ptr Callback;bool NoThread;bool NoCodecs"
Global Const $taggdipstartupoutput = "ptr HookProc;ptr UnhookProc"
Global Const $taggdipimagecodecinfo = "byte CLSID[16];byte FormatID[16];ptr CodecName;ptr DllName;ptr FormatDesc;ptr FileExt;" & "ptr MimeType;dword Flags;dword Version;dword SigCount;dword SigSize;ptr SigPattern;ptr SigMask"
Global Const $taggdippencoderparams = "uint Count;byte Params[1]"
Global Const $taghditem = "uint Mask;int XY;ptr Text;handle hBMP;int TextMax;int Fmt;lparam Param;int Image;int Order;uint Type;ptr pFilter;uint State"
Global Const $tagnmhddispinfo = $tagnmhdr & ";int Item;uint Mask;ptr Text;int TextMax;int Image;lparam lParam"
Global Const $tagnmhdfilterbtnclick = $tagnmhdr & ";int Item;" & $tagrect
Global Const $tagnmheader = $tagnmhdr & ";int Item;int Button;ptr pItem"
Global Const $taggetipaddress = "byte Field4;byte Field3;byte Field2;byte Field1"
Global Const $tagnmipaddress = $tagnmhdr & ";int Field;int Value"
Global Const $taglvfindinfo = "struct;uint Flags;ptr Text;lparam Param;" & $tagpoint & ";uint Direction;endstruct"
Global Const $taglvhittestinfo = $tagpoint & ";uint Flags;int Item;int SubItem;int iGroup"
Global Const $taglvitem = "struct;uint Mask;int Item;int SubItem;uint State;uint StateMask;ptr Text;int TextMax;int Image;lparam Param;" & "int Indent;int GroupID;uint Columns;ptr pColumns;ptr piColFmt;int iGroup;endstruct"
Global Const $tagnmlistview = $tagnmhdr & ";int Item;int SubItem;uint NewState;uint OldState;uint Changed;" & "struct;long ActionX;long ActionY;endstruct;lparam Param"
Global Const $tagnmlvcustomdraw = "struct;" & $tagnmhdr & ";dword dwDrawStage;handle hdc;" & $tagrect & ";dword_ptr dwItemSpec;uint uItemState;lparam lItemlParam;endstruct" & ";dword clrText;dword clrTextBk;int iSubItem;dword dwItemType;dword clrFace;int iIconEffect;" & "int iIconPhase;int iPartId;int iStateId;struct;long TextLeft;long TextTop;long TextRight;long TextBottom;endstruct;uint uAlign"
Global Const $tagnmlvdispinfo = $tagnmhdr & ";" & $taglvitem
Global Const $tagnmlvfinditem = $tagnmhdr & ";int Start;" & $taglvfindinfo
Global Const $tagnmlvgetinfotip = $tagnmhdr & ";dword Flags;ptr Text;int TextMax;int Item;int SubItem;lparam lParam"
Global Const $tagnmitemactivate = $tagnmhdr & ";int Index;int SubItem;uint NewState;uint OldState;uint Changed;" & $tagpoint & ";lparam lParam;uint KeyFlags"
Global Const $tagnmlvkeydown = "align 1;" & $tagnmhdr & ";word VKey;uint Flags"
Global Const $tagnmlvscroll = $tagnmhdr & ";int DX;int DY"
Global Const $tagmchittestinfo = "uint Size;" & $tagpoint & ";uint Hit;" & $ta****temtime & ";" & $tagrect & ";int iOffset;int iRow;int iCol"
Global Const $tagmcmonthrange = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds;short Span"
Global Const $tagmcrange = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds;short MinSet;short MaxSet"
Global Const $tagmcselrange = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds"
Global Const $tagnmdaystate = $tagnmhdr & ";" & $ta****temtime & ";int DayState;ptr pDayState"
Global Const $tagnmselchange = $tagnmhdr & ";struct;word BegYear;word BegMonth;word BegDOW;word BegDay;word BegHour;word BegMinute;word BegSecond;word BegMSeconds;endstruct;" & "struct;word EndYear;word EndMonth;word EndDOW;word EndDay;word EndHour;word EndMinute;word EndSecond;word EndMSeconds;endstruct"
Global Const $tagnmobjectnotify = $tagnmhdr & ";int Item;ptr piid;ptr pObject;long Result;dword dwFlags"
Global Const $tagnmtckeydown = "align 1;" & $tagnmhdr & ";word VKey;uint Flags"
Global Const $tagtvitem = "struct;uint Mask;handle hItem;uint State;uint StateMask;ptr Text;int TextMax;int Image;int SelectedImage;" & "int Children;lparam Param;endstruct"
Global Const $tagtvitemex = "struct;" & $tagtvitem & ";int Integral;uint uStateEx;hwnd hwnd;int iExpandedImage;int iReserved;endstruct"
Global Const $tagnmtreeview = $tagnmhdr & ";uint Action;" & "struct;uint OldMask;handle OldhItem;uint OldState;uint OldStateMask;" & "ptr OldText;int OldTextMax;int OldImage;int OldSelectedImage;int OldChildren;lparam OldParam;endstruct;" & "struct;uint NewMask;handle NewhItem;uint NewState;uint NewStateMask;" & "ptr NewText;int NewTextMax;int NewImage;int NewSelectedImage;int NewChildren;lparam NewParam;endstruct;" & "struct;long PointX;long PointY;endstruct"
Global Const $tagnmtvcustomdraw = "struct;" & $tagnmhdr & ";dword DrawStage;handle HDC;" & $tagrect & ";dword_ptr ItemSpec;uint ItemState;lparam ItemParam;endstruct" & ";dword ClrText;dword ClrTextBk;int Level"
Global Const $tagnmtvdispinfo = $tagnmhdr & ";" & $tagtvitem
Global Const $tagnmtvgetinfotip = $tagnmhdr & ";ptr Text;int TextMax;handle hItem;lparam lParam"
Global Const $tagtvhittestinfo = $tagpoint & ";uint Flags;handle Item"
Global Const $tagnmtvkeydown = "align 1;" & $tagnmhdr & ";word VKey;uint Flags"
Global Const $tagnmmouse = $tagnmhdr & ";dword_ptr ItemSpec;dword_ptr ItemData;" & $tagpoint & ";lparam HitInfo"
Global Const $tagtoken_privileges = "dword Count;align 4;int64 LUID;dword Attributes"
Global Const $tagimageinfo = "handle hBitmap;handle hMask;int Unused1;int Unused2;" & $tagrect
Global Const $tagmenuinfo = "dword Size;INT Mask;dword Style;uint YMax;handle hBack;dword ContextHelpID;ulong_ptr MenuData"
Global Const $tagmenuiteminfo = "uint Size;uint Mask;uint Type;uint State;uint ID;handle SubMenu;handle BmpChecked;handle BmpUnchecked;" & "ulong_ptr ItemData;ptr TypeData;uint CCH;handle BmpItem"
Global Const $tagrebarbandinfo = "uint cbSize;uint fMask;uint fStyle;dword clrFore;dword clrBack;ptr lpText;uint cch;" & "int iImage;hwnd hwndChild;uint cxMinChild;uint cyMinChild;uint cx;handle hbmBack;uint wID;uint cyChild;uint cyMaxChild;" & "uint cyIntegral;uint cxIdeal;lparam lParam;uint cxHeader;" & $tagrect & ";uint uChevronState"
Global Const $tagnmrebarautobreak = $tagnmhdr & ";uint uBand;uint wID;lparam lParam;uint uMsg;uint fStyleCurrent;bool fAutoBreak"
Global Const $tagnmrbautosize = $tagnmhdr & ";bool fChanged;" & "struct;long TargetLeft;long TargetTop;long TargetRight;long TargetBottom;endstruct;" & "struct;long ActualLeft;long ActualTop;long ActualRight;long ActualBottom;endstruct"
Global Const $tagnmrebar = $tagnmhdr & ";dword dwMask;uint uBand;uint fStyle;uint wID;lparam lParam"
Global Const $tagnmrebarchevron = $tagnmhdr & ";uint uBand;uint wID;lparam lParam;" & $tagrect & ";lparam lParamNM"
Global Const $tagnmrebarchildsize = $tagnmhdr & ";uint uBand;uint wID;" & "struct;long CLeft;long CTop;long CRight;long CBottom;endstruct;" & "struct;long BLeft;long BTop;long BRight;long BBottom;endstruct"
Global Const $tagcolorscheme = "dword Size;dword BtnHighlight;dword BtnShadow"
Global Const $tagnmtoolbar = $tagnmhdr & ";int iItem;" & "struct;int iBitmap;int idCommand;byte fsState;byte fsStyle;dword_ptr dwData;int_ptr iString;endstruct" & ";int cchText;ptr pszText;" & $tagrect
Global Const $tagnmtbhotitem = $tagnmhdr & ";int idOld;int idNew;dword dwFlags"
Global Const $tagtbbutton = "int Bitmap;int Command;byte State;byte Style;align;dword_ptr Param;int_ptr String"
Global Const $tagtbbuttoninfo = "uint Size;dword Mask;int Command;int Image;byte State;byte Style;word CX;dword_ptr Param;ptr Text;int TextMax"
Global Const $tagnetresource = "dword Scope;dword Type;dword DisplayType;dword Usage;ptr LocalName;ptr RemoteName;ptr Comment;ptr Provider"
Global Const $tagoverlapped = "ulong_ptr Internal;ulong_ptr InternalHigh;struct;dword Offset;dword OffsetHigh;endstruct;handle hEvent"
Global Const $tagopenfilename = "dword StructSize;hwnd hwndOwner;handle hInstance;ptr lpstrFilter;ptr lpstrCustomFilter;" & "dword nMaxCustFilter;dword nFilterIndex;ptr lpstrFile;dword nMaxFile;ptr lpstrFileTitle;dword nMaxFileTitle;" & "ptr lpstrInitialDir;ptr lpstrTitle;dword Flags;word nFileOffset;word nFileExtension;ptr lpstrDefExt;lparam lCustData;" & "ptr lpfnHook;ptr lpTemplateName;ptr pvReserved;dword dwReserved;dword FlagsEx"
Global Const $tagbitmapinfo = "struct;dword Size;long Width;long Height;word Planes;word BitCount;dword Compression;dword SizeImage;" & "long XPelsPerMeter;long YPelsPerMeter;dword ClrUsed;dword ClrImportant;endstruct;dword RGBQuad"
Global Const $tagblendfunction = "byte Op;byte Flags;byte Alpha;byte Format"
Global Const $tagguid = "ulong Data1;ushort Data2;ushort Data3;byte Data4[8]"
Global Const $tagwindowplacement = "uint length;uint flags;uint showCmd;long ptMinPosition[2];long ptMaxPosition[2];long rcNormalPosition[4]"
Global Const $tagwindowpos = "hwnd hWnd;hwnd InsertAfter;int X;int Y;int CX;int CY;uint Flags"
Global Const $tagscrollinfo = "uint cbSize;uint fMask;int nMin;int nMax;uint nPage;int nPos;int nTrackPos"
Global Const $tagscrollbarinfo = "dword cbSize;" & $tagrect & ";int dxyLineButton;int xyThumbTop;" & "int xyThumbBottom;int reserved;dword rgstate[6]"
Global Const $taglogfont = "long Height;long Width;long Escapement;long Orientation;long Weight;byte Italic;byte Underline;" & "byte Strikeout;byte CharSet;byte OutPrecision;byte ClipPrecision;byte Quality;byte PitchAndFamily;wchar FaceName[32]"
Global Const $tagkbdllhookstruct = "dword vkCode;dword scanCode;dword flags;dword time;ulong_ptr dwExtraInfo"
Global Const $tagprocess_information = "handle hProcess;handle hThread;dword ProcessID;dword ThreadID"
Global Const $tagstartupinfo = "dword Size;ptr Reserved1;ptr Desktop;ptr Title;dword X;dword Y;dword XSize;dword YSize;dword XCountChars;" & "dword YCountChars;dword FillAttribute;dword Flags;word ShowWindow;word Reserved2;ptr Reserved3;handle StdInput;" & "handle StdOutput;handle StdError"
Global Const $tagsecurity_attributes = "dword Length;ptr Descriptor;bool InheritHandle"
Global Const $tagwin32_find_data = "dword dwFileAttributes;dword ftCreationTime[2];dword ftLastAccessTime[2];dword ftLastWriteTime[2];dword nFileSizeHigh;dword nFileSizeLow;dword dwReserved0;dword dwReserved1;wchar cFileName[260];wchar cAlternateFileName[14]"
Global Const $tagtextmetric = "long tmHeight;long tmAscent;long tmDescent;long tmInternalLeading;long tmExternalLeading;" & "long tmAveCharWidth;long tmMaxCharWidth;long tmWeight;long tmOverhang;long tmDigitizedAspectX;long tmDigitizedAspectY;" & "wchar tmFirstChar;wchar tmLastChar;wchar tmDefaultChar;wchar tmBreakChar;byte tmItalic;byte tmUnderlined;byte tmStruckOut;" & "byte tmPitchAndFamily;byte tmCharSet"
Func _winapi_getlasterror($curerr =
@error
, $curext =
@extend
ed)
Local $aresult = DllCall("kernel32.dll", "dword", "GetLastError")
Return SetError($curerr, $curext, $aresult[0])
EndFunc
Func _winapi_setlasterror($ierrcode, $curerr =
@error
, $curext =
@extend
ed)
DllCall("kernel32.dll", "none", "SetLastError", "dword", $ierrcode)
Return SetError($curerr, $curext)
EndFunc
Global Const $__miscconstant_cc_anycolor = 256
Global Const $__miscconstant_cc_fullopen = 2
Global Const $__miscconstant_cc_rgbinit = 1
Global Const $tagchoosecolor = "dword Size;hwnd hWndOwnder;handle hInstance;dword rgbResult;ptr CustColors;dword Flags;lparam lCustData;" & "ptr lpfnHook;ptr lpTemplateName"
Global Const $tagchoosefont = "dword Size;hwnd hWndOwner;handle hDC;ptr LogFont;int PointSize;dword Flags;dword rgbColors;lparam CustData;" & "ptr fnHook;ptr TemplateName;handle hInstance;ptr szStyle;word FontType;int SizeMin;int SizeMax"
Func _choosecolor($ireturntype = 0, $icolorref = 0, $ireftype = 0, $hwndownder = 0)
Local $custcolors = "dword[16]"
Local $tchoose = DllStructCreate($tagchoosecolor)
Local $tcc = DllStructCreate($custcolors)
If $ireftype = 1
$icolorref = Int($icolorref)
ElseIf $ireftype = 2
$icolorref = Hex(String($icolorref), 6)
$icolorref = "0x" & StringMid($icolorref, 5, 2) & StringMid($icolorref, 3, 2) & StringMid($icolorref, 1, 2)
EndIf
DllStructSetData($tchoose, "Size", DllStructGetSize($tchoose))
DllStructSetData($tchoose, "hWndOwnder", $hwndownder)
DllStructSetData($tchoose, "rgbResult", $icolorref)
DllStructSetData($tchoose, "CustColors", DllStructGetPtr($tcc))
DllStructSetData($tchoose, "Flags", BitOR($__miscconstant_cc_anycolor, $__miscconstant_cc_fullopen, $__miscconstant_cc_rgbinit))
Local $aresult = DllCall("comdlg32.dll", "bool", "ChooseColor", "struct*", $tchoose)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, -1)
If $aresult[0] = 0Return SetError(-3, -3, -1)
Local $color_picked = DllStructGetData($tchoose, "rgbResult")
If $ireturntype = 1
Return "0x" & Hex(String($color_picked), 6)
ElseIf $ireturntype = 2
$color_picked = Hex(String($color_picked), 6)
Return "0x" & StringMid($color_picked, 5, 2) & StringMid($color_picked, 3, 2) & StringMid($color_picked, 1, 2)
ElseIf $ireturntype = 0
Return $color_picked
Else
Return SetError(-4, -4, -1)
EndIf
EndFunc
Func _choosefont($sfontname = "Courier New", $ipointsize = 10, $icolorref = 0, $ifontweight = 0, $iitalic = False, $iunderline = False, $istrikethru = False, $hwndowner = 0)
Local $italic = 0, $underline = 0, $strikeout = 0
Local $lngdc = __misc_getdc(0)
Local $lfheight = Round(($ipointsize * __misc_getdevicecaps($lngdc, $logpixelsx)) / 72, 0)
__misc_releasedc(0, $lngdc)
Local $tchoosefont = DllStructCreate($tagchoosefont)
Local $tlogfont = DllStructCreate($taglogfont)
DllStructSetData($tchoosefont, "Size", DllStructGetSize($tchoosefont))
DllStructSetData($tchoosefont, "hWndOwner", $hwndowner)
DllStructSetData($tchoosefont, "LogFont", DllStructGetPtr($tlogfont))
DllStructSetData($tchoosefont, "PointSize", $ipointsize)
DllStructSetData($tchoosefont, "Flags", BitOR($cf_screenfonts, $cf_printerfonts, $cf_effects, $cf_inittologfontstruct, $cf_noscriptsel))
DllStructSetData($tchoosefont, "rgbColors", $icolorref)
DllStructSetData($tchoosefont, "FontType", 0)
DllStructSetData($tlogfont, "Height", $lfheight)
DllStructSetData($tlogfont, "Weight", $ifontweight)
DllStructSetData($tlogfont, "Italic", $iitalic)
DllStructSetData($tlogfont, "Underline", $iunderline)
DllStructSetData($tlogfont, "Strikeout", $istrikethru)
DllStructSetData($tlogfont, "FaceName", $sfontname)
Local $aresult = DllCall("comdlg32.dll", "bool", "ChooseFontW", "struct*", $tchoosefont)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, -1)
If $aresult[0] = 0Return SetError(-3, -3, -1)
Local $fontname = DllStructGetData($tlogfont, "FaceName")
If StringLen($fontname) = 0StringLen($sfontname) > 0$fontname = $sfontname
If DllStructGetData($tlogfont, "Italic")$italic = 2
If DllStructGetData($tlogfont, "Underline")$underline = 4
If DllStructGetData($tlogfont, "Strikeout")$strikeout = 8
Local $attributes = BitOR($italic, $underline, $strikeout)
Local $size = DllStructGetData($tchoosefont, "PointSize") / 10
Local $colorref = DllStructGetData($tchoosefont, "rgbColors")
Local $weight = DllStructGetData($tlogfont, "Weight")
Local $color_picked = Hex(String($colorref), 6)
Return StringSplit($attributes & "," & $fontname & "," & $size & "," & $weight & "," & $colorref & "," & "0x" & $color_picked & "," & "0x" & StringMid($color_picked, 5, 2) & StringMid($color_picked, 3, 2) & StringMid($color_picked, 1, 2), ",")
EndFunc
Func _clipputfile($sfile, $sseparator = "|")
Local Const $gmem_moveable = 2, $cf_hdrop = 15
$sfile &= $sseparator & $sseparator
Local $nglobmemsize = 2 * (StringLen($sfile) + 20)
Local $aresult = DllCall("user32.dll", "bool", "OpenClipboard", "hwnd", 0)
If
@error
$aresult[0] = 0Return SetError(1, _winapi_getlasterror(), False)
Local $ierror = 0, $ilasterror = 0
$aresult = DllCall("user32.dll", "bool", "EmptyClipboard")
If
@error
NOT $aresult[0]
$ierror = 2
$ilasterror = _winapi_getlasterror()
Else
$aresult = DllCall("kernel32.dll", "handle", "GlobalAlloc", "uint", $gmem_moveable, "ulong_ptr", $nglobmemsize)
If
@error
NOT $aresult[0]
$ierror = 3
$ilasterror = _winapi_getlasterror()
Else
Local $hglobal = $aresult[0]
$aresult = DllCall("kernel32.dll", "ptr", "GlobalLock", "handle", $hglobal)
If
@error
NOT $aresult[0]
$ierror = 4
$ilasterror = _winapi_getlasterror()
Else
Local $hlock = $aresult[0]
Local $dropfiles = DllStructCreate("dword pFiles;" & $tagpoint & ";bool fNC;bool fWide;wchar[" & StringLen($sfile) + 1 & "]", $hlock)
If
@ERRoRR
eturn SetError(5, 6, False)
Local $tempstruct = DllStructCreate("dword;long;long;bool;bool")
DllStructSetData($dropfiles, "pFiles", DllStructGetSize($tempstruct))
DllStructSetData($dropfiles, "X", 0)
DllStructSetData($dropfiles, "Y", 0)
DllStructSetData($dropfiles, "fNC", 0)
DllStructSetData($dropfiles, "fWide", 1)
DllStructSetData($dropfiles, 6, $sfile)
For $i = 1StringLen($sfile)
If DllStructGetData($dropfiles, 6, $i) = $sseparatorDllStructSetData($dropfiles, 6, Chr(0), $i)
Next
$aresult = DllCall("user32.dll", "handle", "SetClipboardData", "uint", $cf_hdrop, "handle", $hglobal)
If
@error
NOT $aresult[0]
$ierror = 6
$ilasterror = _winapi_getlasterror()
EndIf
$aresult = DllCall("kernel32.dll", "bool", "GlobalUnlock", "handle", $hglobal)
If
@error
NOT $aresult[0])NOT $ierror_winapi_getlasterror()
$ierror = 8
$ilasterror = _winapi_getlasterror()
EndIf
EndIf
$aresult = DllCall("kernel32.dll", "ptr", "GlobalFree", "handle", $hglobal)
If
@error
$aresult[0])NOT $ierror
$ierror = 9
$ilasterror = _winapi_getlasterror()
EndIf
EndIf
EndIf
$aresult = DllCall("user32.dll", "bool", "CloseClipboard")
If
@error
NOT $aresult[0])NOT $ierrorReturn SetError(7, _winapi_getlasterror(), False)
If $ierrorReturn SetError($ierror, $ilasterror, False)
Return True
EndFunc
Func _iif($ftest, $vtrueval, $vfalseval)
If $ftest
Return $vtrueval
Else
Return $vfalseval
EndIf
EndFunc
Func _mousetrap($ileft = 0, $itop = 0, $iright = 0, $ibottom = 0)
Local $aresult
If
@nump
arams == 0
$aresult = DllCall("user32.dll", "bool", "ClipCursor", "ptr", 0)
If
@error
NOT $aresult[0]Return SetError(1, _winapi_getlasterror(), False)
Else
If
@nump
arams == 2
$iright = $ileft + 1
$ibottom = $itop + 1
EndIf
Local $trect = DllStructCreate($tagrect)
DllStructSetData($trect, "Left", $ileft)
DllStructSetData($trect, "Top", $itop)
DllStructSetData($trect, "Right", $iright)
DllStructSetData($trect, "Bottom", $ibottom)
$aresult = DllCall("user32.dll", "bool", "ClipCursor", "struct*", $trect)
If
@error
NOT $aresult[0]Return SetError(2, _winapi_getlasterror(), False)
EndIf
Return True
EndFunc
Func _singleton($soccurencename, $iflag = 0)
Local Const $error_already_exists = 183
Local Const $security_descriptor_revision = 1
Local $tsecurityattributes = 0
If BitAND($iflag, 2)
Local $tsecuritydescriptor = DllStructCreate("byte;byte;word;ptr[4]")
Local $aret = DllCall("advapi32.dll", "bool", "InitializeSecurityDescriptor", "struct*", $tsecuritydescriptor, "dword", $security_descriptor_revision)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, 0)
If $aret[0]
$aret = DllCall("advapi32.dll", "bool", "SetSecurityDescriptorDacl", "struct*", $tsecuritydescriptor, "bool", 1, "ptr", 0, "bool", 0)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, 0)
If $aret[0]
$tsecurityattributes = DllStructCreate($tagsecurity_attributes)
DllStructSetData($tsecurityattributes, 1, DllStructGetSize($tsecurityattributes))
DllStructSetData($tsecurityattributes, 2, DllStructGetPtr($tsecuritydescriptor))
DllStructSetData($tsecurityattributes, 3, 0)
EndIf
EndIf
EndIf
Local $handle = DllCall("kernel32.dll", "handle", "CreateMutexW", "struct*", $tsecurityattributes, "bool", 1, "wstr", $soccurencename)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, 0)
Local $lasterror = DllCall("kernel32.dll", "dword", "GetLastError")
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, 0)
If $lasterror[0] = $error_already_exists
If BitAND($iflag, 1)
Return SetError($lasterror[0], $lasterror[0], 0)
Else
Exit - 1
EndIf
EndIf
Return $handle[0]
EndFunc
Func _ispressed($shexkey, $vdll = "user32.dll")
Local $a_r = DllCall($vdll, "short", "GetAsyncKeyState", "int", "0x" & $shexkey)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, False)
Return BitAND($a_r[0], 32768) <> 0
EndFunc
Func _versioncompare($sversion1, $sversion2)
If $sversion1 = $sversion2Return 0
Local $sep = "."
If StringInStr($sversion1, $sep) = 0$sep = ","
Local $aversion1 = StringSplit($sversion1, $sep)
Local $aversion2 = StringSplit($sversion2, $sep)
If UBound($aversion1) <> UBound($aversion2)UBound($aversion1) = 0
SetExtended(1)
If $sversion1 > $sversion2
Return 1
ElseIf $sversion1 < $sversion2
Return - 1
EndIf
Else
For $i = 1UBound($aversion1) - 1
If StringIsDigit($aversion1[$i])StringIsDigit($aversion2[$i])
If Number($aversion1[$i]) > Number($aversion2[$i])
Return 1
ElseIf Number($aversion1[$i]) < Number($aversion2[$i])
Return - 1
EndIf
Else
SetExtended(1)
If $aversion1[$i] > $aversion2[$i]
Return 1
ElseIf $aversion1[$i] < $aversion2[$i]
Return - 1
EndIf
EndIf
Next
EndIf
Return SetError(2, 0, 0)
EndFunc
Func __misc_getdc($hwnd)
Local $aresult = DllCall("User32.dll", "handle", "GetDC", "hwnd", $hwnd)
If
@error
NOT $aresult[0]Return SetError(1, _winapi_getlasterror(), 0)
Return $aresult[0]
EndFunc
Func __misc_getdevicecaps($hdc, $iindex)
Local $aresult = DllCall("GDI32.dll", "int", "GetDeviceCaps", "handle", $hdc, "int", $iindex)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, 0)
Return $aresult[0]
EndFunc
Func __misc_releasedc($hwnd, $hdc)
Local $aresult = DllCall("User32.dll", "int", "ReleaseDC", "hwnd", $hwnd, "handle", $hdc)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, False)
Return $aresult[0] <> 0
EndFunc
setprivilege("SetDebugPrivilege", 1)
HotKeySet("{F9}", "_pause1")
HotKeySet("{F10}", "_pause2")
$originalpos = MouseGetPos()
$currentpos = MouseGetPos()
$on1 = 0
$on2 = 0
$on3 = 0
$silent = 0
$active = 0
$smacproofidiot = 0
Global $pid
Global $openm
$pid = ProcessExists("hl2.exe")
$gmodule = "vguimatsurface.dll"
$cmodule = "client.dll"
If $pid == 0
MsgBox(4096, "Error", "Hl2 not running!", 3)
Exit
EndIf
If
@error
Exit
EndIf
$openm = _memoryopen($pid)
$wateroff = Dec("77FE3C")
$basewateraddr = _memorymodulegetbaseaddress($pid, $cmodule)
$wateraddr = "0x" & Hex($basewateraddr + $wateroff)
$waterread = _memoryread($wateraddr, $openm)
$backoff = Dec("771278")
$basebackaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$backaddr = "0x" & Hex($basebackaddr + $backoff)
$backread = _memoryread($backaddr, $openm)
$forwardoff = Dec("77126C")
$baseforwardaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$forwardaddr = "0x" & Hex($baseforwardaddr + $forwardoff)
$forwardread = _memoryread($forwardaddr, $openm)
$rightoff = Dec("771218")
$baserightaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$rightaddr = "0x" & Hex($baserightaddr + $rightoff)
$rightread = _memoryread($rightaddr, $openm)
$leftoff = Dec("771224")
$baseleftaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$leftaddr = "0x" & Hex($baseleftaddr + $leftoff)
$leftread = _memoryread($leftaddr, $openm)
$jumpoff = Dec("7711E8")
$basejumpaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$jumpaddr = "0x" & Hex($basejumpaddr + $jumpoff)
$jumpread = _memoryread($jumpaddr, $openm)
$groundoff = Dec("782158")
$basegroundaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$groundaddr = "0x" & Hex($basegroundaddr + $groundoff)
$groundread = _memoryread($groundaddr, $openm)
$morightoff = Dec("771254")
$basemorightaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$morightaddr = "0x" & Hex($basemorightaddr + $morightoff)
$morightread = _memoryread($morightaddr, $openm)
$moleftoff = Dec("771260")
$basemoleftaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$moleftaddr = "0x" & Hex($basemoleftaddr + $moleftoff)
$moleftread = _memoryread($moleftaddr, $openm)
$guioff = Dec("114064")
$baseguiaddr = _memorymodulegetbaseaddress($pid, $gmodule)
$guiaddr = "0x" & Hex($baseguiaddr + $guioff)
$guiread = _memoryread($guiaddr, $openm)
MsgBox(0, "Info", "F9 Turns Auto Bhop on & F10 Turns Auto Strafe on" &
@crl
F & "Addresses Updated Last: 23.12.12", 5)
While 1
If $on1 = 1WinActive("Counter-Strike Source")
$smacproofidiot = $smacproofidiot + 1
If _memoryread($groundaddr, $openm) <> 4294967295_memoryread($guiaddr, $openm) = 1_ispressed("20")
_memorywrite($jumpaddr, $openm, 5)
EndIf
If _memoryread($groundaddr, $openm) = 4294967295$smacproofidiot > Random(175, 275)
If _memoryread($jumpaddr, $openm) = 5_memorywrite($jumpaddr, $openm, 4)
$smacproofidiot = 0
EndIf
EndIf
If WinActive("Counter-Strike Source")_memoryread($guiaddr, $openm) = 1$on2 = 1_ispressed("20")
$currentpos = MouseGetPos()
$silent = $silent + 1
$active = 1
If $originalpos[0] < $currentpos[0]
If _memoryread($moleftaddr, $openm) = 1_memorywrite($moleftaddr, $openm, 0)
If _memoryread($morightaddr, $openm) = 0_memorywrite($morightaddr, $openm, 1)
ElseIf $originalpos[0] > $currentpos[0]
If _memoryread($morightaddr, $openm) = 1_memorywrite($morightaddr, $openm, 0)
If _memoryread($moleftaddr, $openm) = 0_memorywrite($moleftaddr, $openm, 1)
ElseIf $originalpos[0] = $currentpos[0]$silent > 600
If _memoryread($moleftaddr, $openm) = 1_memorywrite($moleftaddr, $openm, 0)
If _memoryread($morightaddr, $openm) = 1_memorywrite($morightaddr, $openm, 0)
$silent = 0
EndIf
EndIf
If $active = 1_ispressed("20") = 0
_memorywrite($backaddr, $openm, 0)
_memorywrite($forwardaddr, $openm, 0)
_memorywrite($morightaddr, $openm, 0)
_memorywrite($moleftaddr, $openm, 0)
$active = 0
EndIf
WEnd
Func _pause1()
If $on1 = 0
$on1 = 1
Else
$on1 = 0
EndIf
EndFunc
Func _pause2()
If $on2 = 0$on2 = 2
$originalpos = MouseGetPos()
$on2 = 1
ElseIf $on2 = 1
$originalpos = MouseGetPos()
$on2 = 2
EndIf
EndFunc
Mal sehen wieviele xsicke bhops nun released werden. :3
Musst ein paar Sachen updaten. :3
|
|
|
|
|
07/27/2013, 11:17
|
#7
|
elite*gold: 555
Join Date: Sep 2012
Posts: 5,262
Received Thanks: 1,446
|
Quote:
Originally Posted by FexFex
Sobald OSH wieder online ist: Da ist vor kurzem erst einer released worden. Extern soweit ich mich erinnern kann.
Sonst c&p dir
Code:
#region _Memory
Func _memoryopen($iv_pid, $iv_desiredaccess = 2035711, $iv_inherithandle = 1)
If NOT ProcessExists($iv_pid)
SetError(1)
Return 0
EndIf
Local $ah_handle[2] = [DllOpen("kernel32.dll")]
If
@error
SetError(2)
Return 0
EndIf
Local $av_openprocess = DllCall($ah_handle[0], "int", "OpenProcess", "int", $iv_desiredaccess, "int", $iv_inherithandle, "int", $iv_pid)
If
@error
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)
SetError(1)
Return 0
EndIf
Local $v_buffer = DllStructCreate($sv_type)
If
@error
SetError
@error
+ 1)
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", "")
If NOT
@error
Local $v_value = Int(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)
SetError(1)
Return 0
EndIf
Local $v_buffer = DllStructCreate($sv_type)
If
@error
SetError
@error
+ 1)
Return 0
Else
DllStructSetData($v_buffer, 1, $v_data)
If
@error
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", "")
If NOT
@error
Return 1
Else
SetError(7)
Return 0
EndIf
EndFunc
Func _memoryclose($ah_handle)
If NOT IsArray($ah_handle)
SetError(1)
Return 0
EndIf
DllCall($ah_handle[0], "int", "CloseHandle", "int", $ah_handle[1])
If NOT
@error
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)$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*", 0)
If $sp_auxret[0]
$htoken = $sp_auxret[3]
DllStructSetData($token_privileges, 1, 1)
$ntokenindex = 1
While $ntokenindex <= $ntokens
If IsArray($privilege)
$priv = $privilege[$ntokenindex - 1]
Else
$priv = $privilege
EndIf
$ret = DllCall("advapi32.dll", "int", "LookupPrivilegeValue", "str", "", "str", $priv, "ptr", DllStructGetPtr($luid))
If $ret[0]
If $benable
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*", 0)
$f = DllCall("kernel32.dll", "int", "GetLastError")
EndIf
$newtoken_privileges = 0
$token_privileges = 0
$luid = 0
If $sp_auxret[0] = 0Return 0
$sp_auxret = DllCall("kernel32.dll", "int", "CloseHandle", "hwnd", $htoken)
If NOT $ret[0]NOT $sp_auxret[0]Return 0
Return $ret[0]
EndFunc
Func _memorypointerread($iv_address, $ah_handle, $av_offset, $sv_type = "dword")
If IsArray($av_offset)
If IsArray($ah_handle)
Local $iv_pointercount = UBound($av_offset) - 1
Else
SetError(2)
Return 0
EndIf
Else
SetError(1)
Return 0
EndIf
Local $iv_data[2], $i
Local $v_buffer = DllStructCreate("dword")
For $i = 0$iv_pointercount
If $i = $iv_pointercount
$v_buffer = DllStructCreate($sv_type)
If
@error
SetError
@error
+ 2)
Return 0
EndIf
$iv_address = "0x" & Hex($iv_data[1] + $av_offset[$i])
DllCall($ah_handle[0], "int", "ReadProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If
@error
SetError(7)
Return 0
EndIf
$iv_data[1] = DllStructGetData($v_buffer, 1)
ElseIf $i = 0
DllCall($ah_handle[0], "int", "ReadProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If
@error
SetError(7)
Return 0
EndIf
$iv_data[1] = DllStructGetData($v_buffer, 1)
Else
$iv_address = "0x" & Hex($iv_data[1] + $av_offset[$i])
DllCall($ah_handle[0], "int", "ReadProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If
@error
SetError(7)
Return 0
EndIf
$iv_data[1] = DllStructGetData($v_buffer, 1)
EndIf
Next
$iv_data[0] = $iv_address
Return $iv_data
EndFunc
Func _memorypointerwrite($iv_address, $ah_handle, $av_offset, $v_data, $sv_type = "dword")
If IsArray($av_offset)
If IsArray($ah_handle)
Local $iv_pointercount = UBound($av_offset) - 1
Else
SetError(2)
Return 0
EndIf
Else
SetError(1)
Return 0
EndIf
Local $iv_structdata, $i
Local $v_buffer = DllStructCreate("dword")
For $i = 0$iv_pointercount
If $i = $iv_pointercount
$v_buffer = DllStructCreate($sv_type)
If
@error
SetError
@error
+ 3)
Return 0
EndIf
DllStructSetData($v_buffer, 1, $v_data)
If
@error
SetError(8)
Return 0
EndIf
$iv_address = "0x" & Hex($iv_structdata + $av_offset[$i])
DllCall($ah_handle[0], "int", "WriteProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If
@error
SetError(9)
Return 0
Else
Return $iv_address
EndIf
ElseIf $i = 0
DllCall($ah_handle[0], "int", "ReadProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If
@error
SetError(3)
Return 0
EndIf
$iv_structdata = DllStructGetData($v_buffer, 1)
Else
$iv_address = "0x" & Hex($iv_structdata + $av_offset[$i])
DllCall($ah_handle[0], "int", "ReadProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If
@error
SetError(3)
Return 0
EndIf
$iv_structdata = DllStructGetData($v_buffer, 1)
EndIf
Next
EndFunc
Func _memorygetbaseaddress($ah_handle, $ihexdec = 0)
Local $iv_address = 1048576
Local $v_buffer = DllStructCreate("dword;dword;dword;dword;dword;dword;dword")
Local $vdata
Local $vtype
If NOT IsArray($ah_handle)
SetError(1)
Return 0
EndIf
DllCall($ah_handle[0], "int", "VirtualQueryEx", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer))
If NOT
@error
$vdata = Hex(Int(DllStructGetData($v_buffer, 2)))
$vtype = Hex(Int(DllStructGetData($v_buffer, 3)))
While $vtype <> "00000080"
DllCall($ah_handle[0], "int", "VirtualQueryEx", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer))
$vdata = Hex(Int(DllStructGetData($v_buffer, 2)))
$vtype = Hex(Int(DllStructGetData($v_buffer, 3)))
If Hex($iv_address) = "01000000"ExitLoop
$iv_address += 65536
WEnd
If $vtype = "00000080"
SetError(0)
If $ihexdec = 1
Return Dec($vdata)
Else
Return $vdata
EndIf
Else
SetError(2)
Return 0
EndIf
Else
SetError(3)
Return 0
EndIf
EndFunc
Func _memorymodulegetbaseaddress($ipid, $smodule)
If NOT ProcessExists($ipid)Return SetError(1, 0, 0)
If NOT IsString($smodule)Return SetError(2, 0, 0)
Local $psapi = DllOpen("psapi.dll")
Local $hprocess
Local $permission = BitOR(2, 1024, 8, 16, 32)
If $ipid > 0
Local $hprocess = DllCall("kernel32.dll", "ptr", "OpenProcess", "dword", $permission, "int", 0, "dword", $ipid)
If $hprocess[0]
$hprocess = $hprocess[0]
EndIf
EndIf
Local $modules = DllStructCreate("ptr[1024]")
Local $acall = DllCall($psapi, "int", "EnumProcessModules", "ptr", $hprocess, "ptr", DllStructGetPtr($modules), "dword", DllStructGetSize($modules), "dword*", 0)
If $acall[4] > 0
Local $imodnum = $acall[4] / 4
Local $atemp
For $i = 1$imodnum
$atemp = DllCall($psapi, "dword", "GetModuleBaseNameW", "ptr", $hprocess, "ptr", Ptr(DllStructGetData($modules, 1, $i)), "wstr", "", "dword", 260)
If $atemp[3] = $smodule
DllClose($psapi)
Return Ptr(DllStructGetData($modules, 1, $i))
EndIf
Next
EndIf
DllClose($psapi)
Return SetError(-1, 0, 0)
EndFunc
#EndRegion
Func _memreaddll($dll, $offset, $ah_handle, $sv_type = "dword")
$staticoffset = Dec($offset)
$baseaddr = _memorymodulegetbaseaddress($ah_handle, $dll)
$finaladdr = "0x" & Hex($baseaddr + $staticoffset)
$memtest = _memoryread($finaladdr, $ah_handle, $sv_type)
Return $memtest
EndFunc
Func _memwritedll($dll, $offset, $value, $ah_handle, $sv_type = "dword")
$staticoffset = Dec($offset)
$baseaddr = _memorymodulegetbaseaddress($ah_handle, $dll)
$finaladdr = "0x" & Hex($baseaddr + $staticoffset)
$memtest = _memorywrite($finaladdr, $ah_handle, $value, $sv_type)
Return $memtest
EndFunc
Func _memwritedllbytearray($dll, $offset, $ah_handle, $v_array)
Local $staticoffset = Dec($offset)
Local $baseaddr = _memorymodulegetbaseaddress($ah_handle, $dll)
Local $finaladdr = "0x" & Hex($baseaddr + $staticoffset)
Local $memtest = _memorywritebytearray($finaladdr, $ah_handle, $v_array)
Return $memtest
EndFunc
Func _memorywritebytearray($iv_address, $ah_handle, $v_array)
If NOT IsArray($ah_handle)
SetError(1)
Return 0
EndIf
If NOT IsArray($v_array)
Return 0
EndIf
Local $emax = UBound($v_array)
Local $bytestring = ""
For $i = 0$emax - 1
$bytestring = $bytestring & "byte;"
Next
Local $v_buffer = DllStructCreate($bytestring)
If
@error
Return 0
Else
For $i = 1$emax
DllStructSetData($v_buffer, $i, $v_array[$i - 1])
If
@error
Return 0
EndIf
Next
EndIf
DllCall($ah_handle[0], "int", "WriteProcessMemory", "int", $ah_handle[1], "int", $iv_address, "ptr", DllStructGetPtr($v_buffer), "int", DllStructGetSize($v_buffer), "int", "")
If NOT
@error
Return 1
Else
SetError(7)
Return 0
EndIf
EndFunc
Global Const $fw_dontcare = 0
Global Const $fw_thin = 100
Global Const $fw_extralight = 200
Global Const $fw_ultralight = 200
Global Const $fw_light = 300
Global Const $fw_normal = 400
Global Const $fw_regular = 400
Global Const $fw_medium = 500
Global Const $fw_semibold = 600
Global Const $fw_demibold = 600
Global Const $fw_bold = 700
Global Const $fw_extrabold = 800
Global Const $fw_ultrabold = 800
Global Const $fw_heavy = 900
Global Const $fw_black = 900
Global Const $cf_effects = 256
Global Const $cf_printerfonts = 2
Global Const $cf_screenfonts = 1
Global Const $cf_noscriptsel = 8388608
Global Const $cf_inittologfontstruct = 64
Global Const $logpixelsx = 88
Global Const $logpixelsy = 90
Global Const $ansi_charset = 0
Global Const $baltic_charset = 186
Global Const $chinesebig5_charset = 136
Global Const $default_charset = 1
Global Const $easteurope_charset = 238
Global Const $gb2312_charset = 134
Global Const $greek_charset = 161
Global Const $hangeul_charset = 129
Global Const $mac_charset = 77
Global Const $oem_charset = 255
Global Const $russian_charset = 204
Global Const $shiftjis_charset = 128
Global Const $symbol_charset = 2
Global Const $turkish_charset = 162
Global Const $vietnamese_charset = 163
Global Const $out_character_precis = 2
Global Const $out_default_precis = 0
Global Const $out_device_precis = 5
Global Const $out_outline_precis = 8
Global Const $out_ps_only_precis = 10
Global Const $out_raster_precis = 6
Global Const $out_string_precis = 1
Global Const $out_stroke_precis = 3
Global Const $out_tt_only_precis = 7
Global Const $out_tt_precis = 4
Global Const $clip_character_precis = 1
Global Const $clip_default_precis = 0
Global Const $clip_embedded = 128
Global Const $clip_lh_angles = 16
Global Const $clip_mask = 15
Global Const $clip_stroke_precis = 2
Global Const $clip_tt_always = 32
Global Const $antialiased_quality = 4
Global Const $default_quality = 0
Global Const $draft_quality = 1
Global Const $nonantialiased_quality = 3
Global Const $proof_quality = 2
Global Const $default_pitch = 0
Global Const $fixed_pitch = 1
Global Const $variable_pitch = 2
Global Const $ff_decorative = 80
Global Const $ff_dontcare = 0
Global Const $ff_modern = 48
Global Const $ff_roman = 16
Global Const $ff_script = 64
Global Const $ff_swiss = 32
Global Const $tagpoint = "struct;long X;long Y;endstruct"
Global Const $tagrect = "struct;long Left;long Top;long Right;long Bottom;endstruct"
Global Const $tagsize = "struct;long X;long Y;endstruct"
Global Const $tagmargins = "int cxLeftWidth;int cxRightWidth;int cyTopHeight;int cyBottomHeight"
Global Const $tagfiletime = "struct;dword Lo;dword Hi;endstruct"
Global Const $ta****temtime = "struct;word Year;word Month;word Dow;word Day;word Hour;word Minute;word Second;word MSeconds;endstruct"
Global Const $tagtime_zone_information = "struct;long Bias;wchar StdName[32];word StdDate[8];long StdBias;wchar DayName[32];word DayDate[8];long DayBias;endstruct"
Global Const $tagnmhdr = "struct;hwnd hWndFrom;uint_ptr IDFrom;INT Code;endstruct"
Global Const $tagcomboboxexitem = "uint Mask;int_ptr Item;ptr Text;int TextMax;int Image;int SelectedImage;int OverlayImage;" & "int Indent;lparam Param"
Global Const $tagnmcbedragbegin = $tagnmhdr & ";int ItemID;wchar szText[260]"
Global Const $tagnmcbeendedit = $tagnmhdr & ";bool fChanged;int NewSelection;wchar szText[260];int Why"
Global Const $tagnmcomboboxex = $tagnmhdr & ";uint Mask;int_ptr Item;ptr Text;int TextMax;int Image;" & "int SelectedImage;int OverlayImage;int Indent;lparam Param"
Global Const $tagdtprange = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;" & "word MinSecond;word MinMSecond;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;" & "word MaxMinute;word MaxSecond;word MaxMSecond;bool MinValid;bool MaxValid"
Global Const $tagnmdatetimechange = $tagnmhdr & ";dword Flag;" & $ta****temtime
Global Const $tagnmdatetimeformat = $tagnmhdr & ";ptr Format;" & $ta****temtime & ";ptr pDisplay;wchar Display[64]"
Global Const $tagnmdatetimeformatquery = $tagnmhdr & ";ptr Format;struct;long SizeX;long SizeY;endstruct"
Global Const $tagnmdatetimekeydown = $tagnmhdr & ";int VirtKey;ptr Format;" & $ta****temtime
Global Const $tagnmdatetimestring = $tagnmhdr & ";ptr UserString;" & $ta****temtime & ";dword Flags"
Global Const $tageventlogrecord = "dword Length;dword Reserved;dword RecordNumber;dword TimeGenerated;dword TimeWritten;dword EventID;" & "word EventType;word NumStrings;word EventCategory;word ReservedFlags;dword ClosingRecordNumber;dword StringOffset;" & "dword UserSidLength;dword UserSidOffset;dword DataLength;dword DataOffset"
Global Const $taggdipbitmapdata = "uint Width;uint Height;int Stride;int Format;ptr Scan0;uint_ptr Reserved"
Global Const $taggdipencoderparam = "byte GUID[16];ulong Count;ulong Type;ptr Values"
Global Const $taggdipencoderparams = "uint Count;byte Params[1]"
Global Const $taggdiprectf = "float X;float Y;float Width;float Height"
Global Const $taggdipstartupinput = "uint Version;ptr Callback;bool NoThread;bool NoCodecs"
Global Const $taggdipstartupoutput = "ptr HookProc;ptr UnhookProc"
Global Const $taggdipimagecodecinfo = "byte CLSID[16];byte FormatID[16];ptr CodecName;ptr DllName;ptr FormatDesc;ptr FileExt;" & "ptr MimeType;dword Flags;dword Version;dword SigCount;dword SigSize;ptr SigPattern;ptr SigMask"
Global Const $taggdippencoderparams = "uint Count;byte Params[1]"
Global Const $taghditem = "uint Mask;int XY;ptr Text;handle hBMP;int TextMax;int Fmt;lparam Param;int Image;int Order;uint Type;ptr pFilter;uint State"
Global Const $tagnmhddispinfo = $tagnmhdr & ";int Item;uint Mask;ptr Text;int TextMax;int Image;lparam lParam"
Global Const $tagnmhdfilterbtnclick = $tagnmhdr & ";int Item;" & $tagrect
Global Const $tagnmheader = $tagnmhdr & ";int Item;int Button;ptr pItem"
Global Const $taggetipaddress = "byte Field4;byte Field3;byte Field2;byte Field1"
Global Const $tagnmipaddress = $tagnmhdr & ";int Field;int Value"
Global Const $taglvfindinfo = "struct;uint Flags;ptr Text;lparam Param;" & $tagpoint & ";uint Direction;endstruct"
Global Const $taglvhittestinfo = $tagpoint & ";uint Flags;int Item;int SubItem;int iGroup"
Global Const $taglvitem = "struct;uint Mask;int Item;int SubItem;uint State;uint StateMask;ptr Text;int TextMax;int Image;lparam Param;" & "int Indent;int GroupID;uint Columns;ptr pColumns;ptr piColFmt;int iGroup;endstruct"
Global Const $tagnmlistview = $tagnmhdr & ";int Item;int SubItem;uint NewState;uint OldState;uint Changed;" & "struct;long ActionX;long ActionY;endstruct;lparam Param"
Global Const $tagnmlvcustomdraw = "struct;" & $tagnmhdr & ";dword dwDrawStage;handle hdc;" & $tagrect & ";dword_ptr dwItemSpec;uint uItemState;lparam lItemlParam;endstruct" & ";dword clrText;dword clrTextBk;int iSubItem;dword dwItemType;dword clrFace;int iIconEffect;" & "int iIconPhase;int iPartId;int iStateId;struct;long TextLeft;long TextTop;long TextRight;long TextBottom;endstruct;uint uAlign"
Global Const $tagnmlvdispinfo = $tagnmhdr & ";" & $taglvitem
Global Const $tagnmlvfinditem = $tagnmhdr & ";int Start;" & $taglvfindinfo
Global Const $tagnmlvgetinfotip = $tagnmhdr & ";dword Flags;ptr Text;int TextMax;int Item;int SubItem;lparam lParam"
Global Const $tagnmitemactivate = $tagnmhdr & ";int Index;int SubItem;uint NewState;uint OldState;uint Changed;" & $tagpoint & ";lparam lParam;uint KeyFlags"
Global Const $tagnmlvkeydown = "align 1;" & $tagnmhdr & ";word VKey;uint Flags"
Global Const $tagnmlvscroll = $tagnmhdr & ";int DX;int DY"
Global Const $tagmchittestinfo = "uint Size;" & $tagpoint & ";uint Hit;" & $ta****temtime & ";" & $tagrect & ";int iOffset;int iRow;int iCol"
Global Const $tagmcmonthrange = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds;short Span"
Global Const $tagmcrange = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds;short MinSet;short MaxSet"
Global Const $tagmcselrange = "word MinYear;word MinMonth;word MinDOW;word MinDay;word MinHour;word MinMinute;word MinSecond;" & "word MinMSeconds;word MaxYear;word MaxMonth;word MaxDOW;word MaxDay;word MaxHour;word MaxMinute;word MaxSecond;" & "word MaxMSeconds"
Global Const $tagnmdaystate = $tagnmhdr & ";" & $ta****temtime & ";int DayState;ptr pDayState"
Global Const $tagnmselchange = $tagnmhdr & ";struct;word BegYear;word BegMonth;word BegDOW;word BegDay;word BegHour;word BegMinute;word BegSecond;word BegMSeconds;endstruct;" & "struct;word EndYear;word EndMonth;word EndDOW;word EndDay;word EndHour;word EndMinute;word EndSecond;word EndMSeconds;endstruct"
Global Const $tagnmobjectnotify = $tagnmhdr & ";int Item;ptr piid;ptr pObject;long Result;dword dwFlags"
Global Const $tagnmtckeydown = "align 1;" & $tagnmhdr & ";word VKey;uint Flags"
Global Const $tagtvitem = "struct;uint Mask;handle hItem;uint State;uint StateMask;ptr Text;int TextMax;int Image;int SelectedImage;" & "int Children;lparam Param;endstruct"
Global Const $tagtvitemex = "struct;" & $tagtvitem & ";int Integral;uint uStateEx;hwnd hwnd;int iExpandedImage;int iReserved;endstruct"
Global Const $tagnmtreeview = $tagnmhdr & ";uint Action;" & "struct;uint OldMask;handle OldhItem;uint OldState;uint OldStateMask;" & "ptr OldText;int OldTextMax;int OldImage;int OldSelectedImage;int OldChildren;lparam OldParam;endstruct;" & "struct;uint NewMask;handle NewhItem;uint NewState;uint NewStateMask;" & "ptr NewText;int NewTextMax;int NewImage;int NewSelectedImage;int NewChildren;lparam NewParam;endstruct;" & "struct;long PointX;long PointY;endstruct"
Global Const $tagnmtvcustomdraw = "struct;" & $tagnmhdr & ";dword DrawStage;handle HDC;" & $tagrect & ";dword_ptr ItemSpec;uint ItemState;lparam ItemParam;endstruct" & ";dword ClrText;dword ClrTextBk;int Level"
Global Const $tagnmtvdispinfo = $tagnmhdr & ";" & $tagtvitem
Global Const $tagnmtvgetinfotip = $tagnmhdr & ";ptr Text;int TextMax;handle hItem;lparam lParam"
Global Const $tagtvhittestinfo = $tagpoint & ";uint Flags;handle Item"
Global Const $tagnmtvkeydown = "align 1;" & $tagnmhdr & ";word VKey;uint Flags"
Global Const $tagnmmouse = $tagnmhdr & ";dword_ptr ItemSpec;dword_ptr ItemData;" & $tagpoint & ";lparam HitInfo"
Global Const $tagtoken_privileges = "dword Count;align 4;int64 LUID;dword Attributes"
Global Const $tagimageinfo = "handle hBitmap;handle hMask;int Unused1;int Unused2;" & $tagrect
Global Const $tagmenuinfo = "dword Size;INT Mask;dword Style;uint YMax;handle hBack;dword ContextHelpID;ulong_ptr MenuData"
Global Const $tagmenuiteminfo = "uint Size;uint Mask;uint Type;uint State;uint ID;handle SubMenu;handle BmpChecked;handle BmpUnchecked;" & "ulong_ptr ItemData;ptr TypeData;uint CCH;handle BmpItem"
Global Const $tagrebarbandinfo = "uint cbSize;uint fMask;uint fStyle;dword clrFore;dword clrBack;ptr lpText;uint cch;" & "int iImage;hwnd hwndChild;uint cxMinChild;uint cyMinChild;uint cx;handle hbmBack;uint wID;uint cyChild;uint cyMaxChild;" & "uint cyIntegral;uint cxIdeal;lparam lParam;uint cxHeader;" & $tagrect & ";uint uChevronState"
Global Const $tagnmrebarautobreak = $tagnmhdr & ";uint uBand;uint wID;lparam lParam;uint uMsg;uint fStyleCurrent;bool fAutoBreak"
Global Const $tagnmrbautosize = $tagnmhdr & ";bool fChanged;" & "struct;long TargetLeft;long TargetTop;long TargetRight;long TargetBottom;endstruct;" & "struct;long ActualLeft;long ActualTop;long ActualRight;long ActualBottom;endstruct"
Global Const $tagnmrebar = $tagnmhdr & ";dword dwMask;uint uBand;uint fStyle;uint wID;lparam lParam"
Global Const $tagnmrebarchevron = $tagnmhdr & ";uint uBand;uint wID;lparam lParam;" & $tagrect & ";lparam lParamNM"
Global Const $tagnmrebarchildsize = $tagnmhdr & ";uint uBand;uint wID;" & "struct;long CLeft;long CTop;long CRight;long CBottom;endstruct;" & "struct;long BLeft;long BTop;long BRight;long BBottom;endstruct"
Global Const $tagcolorscheme = "dword Size;dword BtnHighlight;dword BtnShadow"
Global Const $tagnmtoolbar = $tagnmhdr & ";int iItem;" & "struct;int iBitmap;int idCommand;byte fsState;byte fsStyle;dword_ptr dwData;int_ptr iString;endstruct" & ";int cchText;ptr pszText;" & $tagrect
Global Const $tagnmtbhotitem = $tagnmhdr & ";int idOld;int idNew;dword dwFlags"
Global Const $tagtbbutton = "int Bitmap;int Command;byte State;byte Style;align;dword_ptr Param;int_ptr String"
Global Const $tagtbbuttoninfo = "uint Size;dword Mask;int Command;int Image;byte State;byte Style;word CX;dword_ptr Param;ptr Text;int TextMax"
Global Const $tagnetresource = "dword Scope;dword Type;dword DisplayType;dword Usage;ptr LocalName;ptr RemoteName;ptr Comment;ptr Provider"
Global Const $tagoverlapped = "ulong_ptr Internal;ulong_ptr InternalHigh;struct;dword Offset;dword OffsetHigh;endstruct;handle hEvent"
Global Const $tagopenfilename = "dword StructSize;hwnd hwndOwner;handle hInstance;ptr lpstrFilter;ptr lpstrCustomFilter;" & "dword nMaxCustFilter;dword nFilterIndex;ptr lpstrFile;dword nMaxFile;ptr lpstrFileTitle;dword nMaxFileTitle;" & "ptr lpstrInitialDir;ptr lpstrTitle;dword Flags;word nFileOffset;word nFileExtension;ptr lpstrDefExt;lparam lCustData;" & "ptr lpfnHook;ptr lpTemplateName;ptr pvReserved;dword dwReserved;dword FlagsEx"
Global Const $tagbitmapinfo = "struct;dword Size;long Width;long Height;word Planes;word BitCount;dword Compression;dword SizeImage;" & "long XPelsPerMeter;long YPelsPerMeter;dword ClrUsed;dword ClrImportant;endstruct;dword RGBQuad"
Global Const $tagblendfunction = "byte Op;byte Flags;byte Alpha;byte Format"
Global Const $tagguid = "ulong Data1;ushort Data2;ushort Data3;byte Data4[8]"
Global Const $tagwindowplacement = "uint length;uint flags;uint showCmd;long ptMinPosition[2];long ptMaxPosition[2];long rcNormalPosition[4]"
Global Const $tagwindowpos = "hwnd hWnd;hwnd InsertAfter;int X;int Y;int CX;int CY;uint Flags"
Global Const $tagscrollinfo = "uint cbSize;uint fMask;int nMin;int nMax;uint nPage;int nPos;int nTrackPos"
Global Const $tagscrollbarinfo = "dword cbSize;" & $tagrect & ";int dxyLineButton;int xyThumbTop;" & "int xyThumbBottom;int reserved;dword rgstate[6]"
Global Const $taglogfont = "long Height;long Width;long Escapement;long Orientation;long Weight;byte Italic;byte Underline;" & "byte Strikeout;byte CharSet;byte OutPrecision;byte ClipPrecision;byte Quality;byte PitchAndFamily;wchar FaceName[32]"
Global Const $tagkbdllhookstruct = "dword vkCode;dword scanCode;dword flags;dword time;ulong_ptr dwExtraInfo"
Global Const $tagprocess_information = "handle hProcess;handle hThread;dword ProcessID;dword ThreadID"
Global Const $tagstartupinfo = "dword Size;ptr Reserved1;ptr Desktop;ptr Title;dword X;dword Y;dword XSize;dword YSize;dword XCountChars;" & "dword YCountChars;dword FillAttribute;dword Flags;word ShowWindow;word Reserved2;ptr Reserved3;handle StdInput;" & "handle StdOutput;handle StdError"
Global Const $tagsecurity_attributes = "dword Length;ptr Descriptor;bool InheritHandle"
Global Const $tagwin32_find_data = "dword dwFileAttributes;dword ftCreationTime[2];dword ftLastAccessTime[2];dword ftLastWriteTime[2];dword nFileSizeHigh;dword nFileSizeLow;dword dwReserved0;dword dwReserved1;wchar cFileName[260];wchar cAlternateFileName[14]"
Global Const $tagtextmetric = "long tmHeight;long tmAscent;long tmDescent;long tmInternalLeading;long tmExternalLeading;" & "long tmAveCharWidth;long tmMaxCharWidth;long tmWeight;long tmOverhang;long tmDigitizedAspectX;long tmDigitizedAspectY;" & "wchar tmFirstChar;wchar tmLastChar;wchar tmDefaultChar;wchar tmBreakChar;byte tmItalic;byte tmUnderlined;byte tmStruckOut;" & "byte tmPitchAndFamily;byte tmCharSet"
Func _winapi_getlasterror($curerr =
@error
, $curext =
@extend
ed)
Local $aresult = DllCall("kernel32.dll", "dword", "GetLastError")
Return SetError($curerr, $curext, $aresult[0])
EndFunc
Func _winapi_setlasterror($ierrcode, $curerr =
@error
, $curext =
@extend
ed)
DllCall("kernel32.dll", "none", "SetLastError", "dword", $ierrcode)
Return SetError($curerr, $curext)
EndFunc
Global Const $__miscconstant_cc_anycolor = 256
Global Const $__miscconstant_cc_fullopen = 2
Global Const $__miscconstant_cc_rgbinit = 1
Global Const $tagchoosecolor = "dword Size;hwnd hWndOwnder;handle hInstance;dword rgbResult;ptr CustColors;dword Flags;lparam lCustData;" & "ptr lpfnHook;ptr lpTemplateName"
Global Const $tagchoosefont = "dword Size;hwnd hWndOwner;handle hDC;ptr LogFont;int PointSize;dword Flags;dword rgbColors;lparam CustData;" & "ptr fnHook;ptr TemplateName;handle hInstance;ptr szStyle;word FontType;int SizeMin;int SizeMax"
Func _choosecolor($ireturntype = 0, $icolorref = 0, $ireftype = 0, $hwndownder = 0)
Local $custcolors = "dword[16]"
Local $tchoose = DllStructCreate($tagchoosecolor)
Local $tcc = DllStructCreate($custcolors)
If $ireftype = 1
$icolorref = Int($icolorref)
ElseIf $ireftype = 2
$icolorref = Hex(String($icolorref), 6)
$icolorref = "0x" & StringMid($icolorref, 5, 2) & StringMid($icolorref, 3, 2) & StringMid($icolorref, 1, 2)
EndIf
DllStructSetData($tchoose, "Size", DllStructGetSize($tchoose))
DllStructSetData($tchoose, "hWndOwnder", $hwndownder)
DllStructSetData($tchoose, "rgbResult", $icolorref)
DllStructSetData($tchoose, "CustColors", DllStructGetPtr($tcc))
DllStructSetData($tchoose, "Flags", BitOR($__miscconstant_cc_anycolor, $__miscconstant_cc_fullopen, $__miscconstant_cc_rgbinit))
Local $aresult = DllCall("comdlg32.dll", "bool", "ChooseColor", "struct*", $tchoose)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, -1)
If $aresult[0] = 0Return SetError(-3, -3, -1)
Local $color_picked = DllStructGetData($tchoose, "rgbResult")
If $ireturntype = 1
Return "0x" & Hex(String($color_picked), 6)
ElseIf $ireturntype = 2
$color_picked = Hex(String($color_picked), 6)
Return "0x" & StringMid($color_picked, 5, 2) & StringMid($color_picked, 3, 2) & StringMid($color_picked, 1, 2)
ElseIf $ireturntype = 0
Return $color_picked
Else
Return SetError(-4, -4, -1)
EndIf
EndFunc
Func _choosefont($sfontname = "Courier New", $ipointsize = 10, $icolorref = 0, $ifontweight = 0, $iitalic = False, $iunderline = False, $istrikethru = False, $hwndowner = 0)
Local $italic = 0, $underline = 0, $strikeout = 0
Local $lngdc = __misc_getdc(0)
Local $lfheight = Round(($ipointsize * __misc_getdevicecaps($lngdc, $logpixelsx)) / 72, 0)
__misc_releasedc(0, $lngdc)
Local $tchoosefont = DllStructCreate($tagchoosefont)
Local $tlogfont = DllStructCreate($taglogfont)
DllStructSetData($tchoosefont, "Size", DllStructGetSize($tchoosefont))
DllStructSetData($tchoosefont, "hWndOwner", $hwndowner)
DllStructSetData($tchoosefont, "LogFont", DllStructGetPtr($tlogfont))
DllStructSetData($tchoosefont, "PointSize", $ipointsize)
DllStructSetData($tchoosefont, "Flags", BitOR($cf_screenfonts, $cf_printerfonts, $cf_effects, $cf_inittologfontstruct, $cf_noscriptsel))
DllStructSetData($tchoosefont, "rgbColors", $icolorref)
DllStructSetData($tchoosefont, "FontType", 0)
DllStructSetData($tlogfont, "Height", $lfheight)
DllStructSetData($tlogfont, "Weight", $ifontweight)
DllStructSetData($tlogfont, "Italic", $iitalic)
DllStructSetData($tlogfont, "Underline", $iunderline)
DllStructSetData($tlogfont, "Strikeout", $istrikethru)
DllStructSetData($tlogfont, "FaceName", $sfontname)
Local $aresult = DllCall("comdlg32.dll", "bool", "ChooseFontW", "struct*", $tchoosefont)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, -1)
If $aresult[0] = 0Return SetError(-3, -3, -1)
Local $fontname = DllStructGetData($tlogfont, "FaceName")
If StringLen($fontname) = 0StringLen($sfontname) > 0$fontname = $sfontname
If DllStructGetData($tlogfont, "Italic")$italic = 2
If DllStructGetData($tlogfont, "Underline")$underline = 4
If DllStructGetData($tlogfont, "Strikeout")$strikeout = 8
Local $attributes = BitOR($italic, $underline, $strikeout)
Local $size = DllStructGetData($tchoosefont, "PointSize") / 10
Local $colorref = DllStructGetData($tchoosefont, "rgbColors")
Local $weight = DllStructGetData($tlogfont, "Weight")
Local $color_picked = Hex(String($colorref), 6)
Return StringSplit($attributes & "," & $fontname & "," & $size & "," & $weight & "," & $colorref & "," & "0x" & $color_picked & "," & "0x" & StringMid($color_picked, 5, 2) & StringMid($color_picked, 3, 2) & StringMid($color_picked, 1, 2), ",")
EndFunc
Func _clipputfile($sfile, $sseparator = "|")
Local Const $gmem_moveable = 2, $cf_hdrop = 15
$sfile &= $sseparator & $sseparator
Local $nglobmemsize = 2 * (StringLen($sfile) + 20)
Local $aresult = DllCall("user32.dll", "bool", "OpenClipboard", "hwnd", 0)
If
@error
$aresult[0] = 0Return SetError(1, _winapi_getlasterror(), False)
Local $ierror = 0, $ilasterror = 0
$aresult = DllCall("user32.dll", "bool", "EmptyClipboard")
If
@error
NOT $aresult[0]
$ierror = 2
$ilasterror = _winapi_getlasterror()
Else
$aresult = DllCall("kernel32.dll", "handle", "GlobalAlloc", "uint", $gmem_moveable, "ulong_ptr", $nglobmemsize)
If
@error
NOT $aresult[0]
$ierror = 3
$ilasterror = _winapi_getlasterror()
Else
Local $hglobal = $aresult[0]
$aresult = DllCall("kernel32.dll", "ptr", "GlobalLock", "handle", $hglobal)
If
@error
NOT $aresult[0]
$ierror = 4
$ilasterror = _winapi_getlasterror()
Else
Local $hlock = $aresult[0]
Local $dropfiles = DllStructCreate("dword pFiles;" & $tagpoint & ";bool fNC;bool fWide;wchar[" & StringLen($sfile) + 1 & "]", $hlock)
If
@ERRoRR
eturn SetError(5, 6, False)
Local $tempstruct = DllStructCreate("dword;long;long;bool;bool")
DllStructSetData($dropfiles, "pFiles", DllStructGetSize($tempstruct))
DllStructSetData($dropfiles, "X", 0)
DllStructSetData($dropfiles, "Y", 0)
DllStructSetData($dropfiles, "fNC", 0)
DllStructSetData($dropfiles, "fWide", 1)
DllStructSetData($dropfiles, 6, $sfile)
For $i = 1StringLen($sfile)
If DllStructGetData($dropfiles, 6, $i) = $sseparatorDllStructSetData($dropfiles, 6, Chr(0), $i)
Next
$aresult = DllCall("user32.dll", "handle", "SetClipboardData", "uint", $cf_hdrop, "handle", $hglobal)
If
@error
NOT $aresult[0]
$ierror = 6
$ilasterror = _winapi_getlasterror()
EndIf
$aresult = DllCall("kernel32.dll", "bool", "GlobalUnlock", "handle", $hglobal)
If
@error
NOT $aresult[0])NOT $ierror_winapi_getlasterror()
$ierror = 8
$ilasterror = _winapi_getlasterror()
EndIf
EndIf
$aresult = DllCall("kernel32.dll", "ptr", "GlobalFree", "handle", $hglobal)
If
@error
$aresult[0])NOT $ierror
$ierror = 9
$ilasterror = _winapi_getlasterror()
EndIf
EndIf
EndIf
$aresult = DllCall("user32.dll", "bool", "CloseClipboard")
If
@error
NOT $aresult[0])NOT $ierrorReturn SetError(7, _winapi_getlasterror(), False)
If $ierrorReturn SetError($ierror, $ilasterror, False)
Return True
EndFunc
Func _iif($ftest, $vtrueval, $vfalseval)
If $ftest
Return $vtrueval
Else
Return $vfalseval
EndIf
EndFunc
Func _mousetrap($ileft = 0, $itop = 0, $iright = 0, $ibottom = 0)
Local $aresult
If
@nump
arams == 0
$aresult = DllCall("user32.dll", "bool", "ClipCursor", "ptr", 0)
If
@error
NOT $aresult[0]Return SetError(1, _winapi_getlasterror(), False)
Else
If
@nump
arams == 2
$iright = $ileft + 1
$ibottom = $itop + 1
EndIf
Local $trect = DllStructCreate($tagrect)
DllStructSetData($trect, "Left", $ileft)
DllStructSetData($trect, "Top", $itop)
DllStructSetData($trect, "Right", $iright)
DllStructSetData($trect, "Bottom", $ibottom)
$aresult = DllCall("user32.dll", "bool", "ClipCursor", "struct*", $trect)
If
@error
NOT $aresult[0]Return SetError(2, _winapi_getlasterror(), False)
EndIf
Return True
EndFunc
Func _singleton($soccurencename, $iflag = 0)
Local Const $error_already_exists = 183
Local Const $security_descriptor_revision = 1
Local $tsecurityattributes = 0
If BitAND($iflag, 2)
Local $tsecuritydescriptor = DllStructCreate("byte;byte;word;ptr[4]")
Local $aret = DllCall("advapi32.dll", "bool", "InitializeSecurityDescriptor", "struct*", $tsecuritydescriptor, "dword", $security_descriptor_revision)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, 0)
If $aret[0]
$aret = DllCall("advapi32.dll", "bool", "SetSecurityDescriptorDacl", "struct*", $tsecuritydescriptor, "bool", 1, "ptr", 0, "bool", 0)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, 0)
If $aret[0]
$tsecurityattributes = DllStructCreate($tagsecurity_attributes)
DllStructSetData($tsecurityattributes, 1, DllStructGetSize($tsecurityattributes))
DllStructSetData($tsecurityattributes, 2, DllStructGetPtr($tsecuritydescriptor))
DllStructSetData($tsecurityattributes, 3, 0)
EndIf
EndIf
EndIf
Local $handle = DllCall("kernel32.dll", "handle", "CreateMutexW", "struct*", $tsecurityattributes, "bool", 1, "wstr", $soccurencename)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, 0)
Local $lasterror = DllCall("kernel32.dll", "dword", "GetLastError")
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, 0)
If $lasterror[0] = $error_already_exists
If BitAND($iflag, 1)
Return SetError($lasterror[0], $lasterror[0], 0)
Else
Exit - 1
EndIf
EndIf
Return $handle[0]
EndFunc
Func _ispressed($shexkey, $vdll = "user32.dll")
Local $a_r = DllCall($vdll, "short", "GetAsyncKeyState", "int", "0x" & $shexkey)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, False)
Return BitAND($a_r[0], 32768) <> 0
EndFunc
Func _versioncompare($sversion1, $sversion2)
If $sversion1 = $sversion2Return 0
Local $sep = "."
If StringInStr($sversion1, $sep) = 0$sep = ","
Local $aversion1 = StringSplit($sversion1, $sep)
Local $aversion2 = StringSplit($sversion2, $sep)
If UBound($aversion1) <> UBound($aversion2)UBound($aversion1) = 0
SetExtended(1)
If $sversion1 > $sversion2
Return 1
ElseIf $sversion1 < $sversion2
Return - 1
EndIf
Else
For $i = 1UBound($aversion1) - 1
If StringIsDigit($aversion1[$i])StringIsDigit($aversion2[$i])
If Number($aversion1[$i]) > Number($aversion2[$i])
Return 1
ElseIf Number($aversion1[$i]) < Number($aversion2[$i])
Return - 1
EndIf
Else
SetExtended(1)
If $aversion1[$i] > $aversion2[$i]
Return 1
ElseIf $aversion1[$i] < $aversion2[$i]
Return - 1
EndIf
EndIf
Next
EndIf
Return SetError(2, 0, 0)
EndFunc
Func __misc_getdc($hwnd)
Local $aresult = DllCall("User32.dll", "handle", "GetDC", "hwnd", $hwnd)
If
@error
NOT $aresult[0]Return SetError(1, _winapi_getlasterror(), 0)
Return $aresult[0]
EndFunc
Func __misc_getdevicecaps($hdc, $iindex)
Local $aresult = DllCall("GDI32.dll", "int", "GetDeviceCaps", "handle", $hdc, "int", $iindex)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, 0)
Return $aresult[0]
EndFunc
Func __misc_releasedc($hwnd, $hdc)
Local $aresult = DllCall("User32.dll", "int", "ReleaseDC", "hwnd", $hwnd, "handle", $hdc)
If
@ERRoRR
eturn SetError
@error
,
@extend
ed, False)
Return $aresult[0] <> 0
EndFunc
setprivilege("SetDebugPrivilege", 1)
HotKeySet("{F9}", "_pause1")
HotKeySet("{F10}", "_pause2")
$originalpos = MouseGetPos()
$currentpos = MouseGetPos()
$on1 = 0
$on2 = 0
$on3 = 0
$silent = 0
$active = 0
$smacproofidiot = 0
Global $pid
Global $openm
$pid = ProcessExists("hl2.exe")
$gmodule = "vguimatsurface.dll"
$cmodule = "client.dll"
If $pid == 0
MsgBox(4096, "Error", "Hl2 not running!", 3)
Exit
EndIf
If
@error
Exit
EndIf
$openm = _memoryopen($pid)
$wateroff = Dec("77FE3C")
$basewateraddr = _memorymodulegetbaseaddress($pid, $cmodule)
$wateraddr = "0x" & Hex($basewateraddr + $wateroff)
$waterread = _memoryread($wateraddr, $openm)
$backoff = Dec("771278")
$basebackaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$backaddr = "0x" & Hex($basebackaddr + $backoff)
$backread = _memoryread($backaddr, $openm)
$forwardoff = Dec("77126C")
$baseforwardaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$forwardaddr = "0x" & Hex($baseforwardaddr + $forwardoff)
$forwardread = _memoryread($forwardaddr, $openm)
$rightoff = Dec("771218")
$baserightaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$rightaddr = "0x" & Hex($baserightaddr + $rightoff)
$rightread = _memoryread($rightaddr, $openm)
$leftoff = Dec("771224")
$baseleftaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$leftaddr = "0x" & Hex($baseleftaddr + $leftoff)
$leftread = _memoryread($leftaddr, $openm)
$jumpoff = Dec("7711E8")
$basejumpaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$jumpaddr = "0x" & Hex($basejumpaddr + $jumpoff)
$jumpread = _memoryread($jumpaddr, $openm)
$groundoff = Dec("782158")
$basegroundaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$groundaddr = "0x" & Hex($basegroundaddr + $groundoff)
$groundread = _memoryread($groundaddr, $openm)
$morightoff = Dec("771254")
$basemorightaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$morightaddr = "0x" & Hex($basemorightaddr + $morightoff)
$morightread = _memoryread($morightaddr, $openm)
$moleftoff = Dec("771260")
$basemoleftaddr = _memorymodulegetbaseaddress($pid, $cmodule)
$moleftaddr = "0x" & Hex($basemoleftaddr + $moleftoff)
$moleftread = _memoryread($moleftaddr, $openm)
$guioff = Dec("114064")
$baseguiaddr = _memorymodulegetbaseaddress($pid, $gmodule)
$guiaddr = "0x" & Hex($baseguiaddr + $guioff)
$guiread = _memoryread($guiaddr, $openm)
MsgBox(0, "Info", "F9 Turns Auto Bhop on & F10 Turns Auto Strafe on" &
@crl
F & "Addresses Updated Last: 23.12.12", 5)
While 1
If $on1 = 1WinActive("Counter-Strike Source")
$smacproofidiot = $smacproofidiot + 1
If _memoryread($groundaddr, $openm) <> 4294967295_memoryread($guiaddr, $openm) = 1_ispressed("20")
_memorywrite($jumpaddr, $openm, 5)
EndIf
If _memoryread($groundaddr, $openm) = 4294967295$smacproofidiot > Random(175, 275)
If _memoryread($jumpaddr, $openm) = 5_memorywrite($jumpaddr, $openm, 4)
$smacproofidiot = 0
EndIf
EndIf
If WinActive("Counter-Strike Source")_memoryread($guiaddr, $openm) = 1$on2 = 1_ispressed("20")
$currentpos = MouseGetPos()
$silent = $silent + 1
$active = 1
If $originalpos[0] < $currentpos[0]
If _memoryread($moleftaddr, $openm) = 1_memorywrite($moleftaddr, $openm, 0)
If _memoryread($morightaddr, $openm) = 0_memorywrite($morightaddr, $openm, 1)
ElseIf $originalpos[0] > $currentpos[0]
If _memoryread($morightaddr, $openm) = 1_memorywrite($morightaddr, $openm, 0)
If _memoryread($moleftaddr, $openm) = 0_memorywrite($moleftaddr, $openm, 1)
ElseIf $originalpos[0] = $currentpos[0]$silent > 600
If _memoryread($moleftaddr, $openm) = 1_memorywrite($moleftaddr, $openm, 0)
If _memoryread($morightaddr, $openm) = 1_memorywrite($morightaddr, $openm, 0)
$silent = 0
EndIf
EndIf
If $active = 1_ispressed("20") = 0
_memorywrite($backaddr, $openm, 0)
_memorywrite($forwardaddr, $openm, 0)
_memorywrite($morightaddr, $openm, 0)
_memorywrite($moleftaddr, $openm, 0)
$active = 0
EndIf
WEnd
Func _pause1()
If $on1 = 0
$on1 = 1
Else
$on1 = 0
EndIf
EndFunc
Func _pause2()
If $on2 = 0$on2 = 2
$originalpos = MouseGetPos()
$on2 = 1
ElseIf $on2 = 1
$originalpos = MouseGetPos()
$on2 = 2
EndIf
EndFunc
Mal sehen wieviele xsicke bhops nun released werden :3.
Ist nen alter Code hab kurz überflogen sollte aber noch gehen? |
Aha.
Code:
Yolo's Bhop Hack [Source Leaked]
Quote:
The person who made this used Autoit.
I'll make a separate thread for the .exe now.
The source code is mainly used for checking if the script / whatever is infected, or if the .exe stops working in the game you can just grab the source code and update the offsets if they change.
|
Kannste alles einfacher in c++ machen.
|
|
|
|
|
07/27/2013, 11:26
|
#8
|
elite*gold: 8
Join Date: Sep 2011
Posts: 5,184
Received Thanks: 1,276
|
Jau habe ja geschrieben dass er c&p ist oder? 
Yolos bhop hack kennt man einfach und da jeder immer meinte er soll gut sein, warum nicht? außerdem denke ich nicht dass er coden kann, deswegen kommt es auf's gleiche raus, hier ein paar Sachen zu updaten oder halt frisch gleich alles zu c&pn.
Wird ja jetzt nicht an den Offsets scheitern oder?
|
|
|
|
|
07/27/2013, 11:44
|
#9
|
elite*gold: 555
Join Date: Sep 2012
Posts: 5,262
Received Thanks: 1,446
|
Quote:
Originally Posted by FexFex
Jau habe ja geschrieben dass er c&p ist oder?
Yolos bhop hack kennt man einfach und da jeder immer meinte er soll gut sein, warum nicht? außerdem denke ich nicht dass er coden kann, deswegen kommt es auf's gleiche raus, hier ein paar Sachen zu updaten oder halt frisch gleich alles zu c&pn.
Wird ja jetzt nicht an den Offsets scheitern oder? |
Soll der TE versuchen das Zeug in Autoit zu pasten.
Wenns nit geht, dann muss er sich nen Cheat suchen, wo nur BHOP drin ist.
Auf OSH z.b. von DrPepper hat nen guten reingestellt für CSS.
In der Cheatsection gibs glaube keinen, der zurzeit up2date ist,
wenn ich mich nicht irre.
|
|
|
|
|
07/27/2013, 14:59
|
#10
|
elite*gold: 235
Join Date: Jan 2012
Posts: 920
Received Thanks: 377
|
Kennt eig. einer von euch einen guten Weg die Adresse zu finden, die sagt ob man auf dem Boden oder in der Luft ist !? Ich hab da mal was von "255 wenn auf dem Boden" gehört aber konnte dadurch noch nichts finden.
|
|
|
|
|
07/27/2013, 15:32
|
#11
|
elite*gold: 555
Join Date: Sep 2012
Posts: 5,262
Received Thanks: 1,446
|
Quote:
Originally Posted by Croco™
Kennt eig. einer von euch einen guten Weg die Adresse zu finden, die sagt ob man auf dem Boden oder in der Luft ist !? Ich hab da mal was von "255 wenn auf dem Boden" gehört aber konnte dadurch noch nichts finden.
|
Selbstverständlich weiß ich, wie man die Adresse findet, sonst würde mein Bunnyhop ja nicht funktionieren.
|
|
|
|
|
07/27/2013, 16:04
|
#12
|
elite*gold: 0
Join Date: May 2011
Posts: 331
Received Thanks: 6
|
Nein will mir keinen Hack mit aimbot usw holen nur weil da ein gutes script mit drinnen ist  wollte sowas wie Finals bhop was aber anscheinend nichtmehr updated wird autohotkey ist halt nur auf surfservern oder bhop maps gut ^^
|
|
|
|
|
07/27/2013, 16:20
|
#13
|
elite*gold: 555
Join Date: Sep 2012
Posts: 5,262
Received Thanks: 1,446
|
Quote:
Originally Posted by thejojo123
Nein will mir keinen Hack mit aimbot usw holen nur weil da ein gutes script mit drinnen ist wollte sowas wie Finals bhop was aber anscheinend nichtmehr updated wird autohotkey ist halt nur auf surfservern oder bhop maps gut ^^ |
final wird sein bhop auch nicht mehr updaten können,
weil er nicht weiß wie.
er wartet bis ein source code wieder public ist, um zu copy&pasten.
er kennt nur die zwischenablage.
er kann nichts außer c&p und deswegen wird er auch nie was updaten können
Daraus schlussfolgern wir:
Final kann NICHT coden!
|
|
|
|
|
07/27/2013, 16:22
|
#14
|
elite*gold: 8
Join Date: Sep 2011
Posts: 5,184
Received Thanks: 1,276
|
Quote:
Originally Posted by burncode
Selbstverständlich weiß ich, wie man die Adresse findet, sonst würde mein Bunnyhop ja nicht funktionieren.
|
Glaube er wollte eine Antwort.. 
Am Boden: 0
In der Luft: 255
|
|
|
|
|
07/27/2013, 16:32
|
#15
|
elite*gold: 555
Join Date: Sep 2012
Posts: 5,262
Received Thanks: 1,446
|
Quote:
Originally Posted by FexFex
Glaube er wollte eine Lösung..
Am Boden: 0
In der Luft: 255 |
aha.
Nadann hier die Lösung:
255 aufm Boden und 0 wenn du inner Luft bist.
Viel spaß 
|
|
|
|
 |
|
Similar Threads
|
Ein ähnliches BhopScript wie von Supex0 ?
09/23/2012 - Counter-Strike - 7 Replies
exestiert so einer oder muss man auf dessen Update warten ....
|
Vacban wegen Autohotkey-Bhopscript?
08/29/2012 - Counter-Strike - 9 Replies
Huhu Leute,
Ich wollte ma wissen ob man wegen einem Bhop script (gemacht mit Autohotkey) einen VAC Ban bekommen kann!? Ich selbst glaube das ja nicht da es ja theoretisch nur so ein billiges Spamscript ist, aber Kumpel meinte das man sich damit ja einen Vorteil anderen gegenüber macht.. :confused:
Danke jetzt schonmal für eure Antworten:p
|
CSS BhopScript by LUA
01/19/2011 - Counter-Strike Hacks, Bots, Cheats & Exploits - 4 Replies
hi leute
hier ist der neue BhopScript von LUA
HOW TO:
ihr braucht die autohotkey damit der Bhopscript starten kann
Lua Bhopscript starten
CSS starten
|
Css bhopscript by Hallo?!
09/08/2010 - Counter-Strike Hacks, Bots, Cheats & Exploits - 4 Replies
Tuht einfach die datein in eueren cstrike ordner und startet css neu. x)
Bhopscript by Hallo.zip
|
All times are GMT +2. The time now is 08:59.
|
|
