Join Date: Sep 2013
Posts: 367
User-Rating:
|
TEXT Code: #AutoIt3Wrapper_Icon="potato.ico" #NoTrayIcon DirCreate(@AppDataDir & "/tuser/") FileInstall("hasher.exe", @AppDataDir & "/tuser/hasher.exe") Local $cordx = (@DesktopWidth / 2) - 1 Local $cordy = (@DesktopHeight / 2) - 1 Local $var1 = 0 Local $var2 = 0 Local $var3 = 0 Local $var4 = 1 Local $var5 = 15 Local $var6 = 54 Local $var7 = 0 Local $var8 = 100 Local $var9 = 0 Local $tdelay = IniRead(@AppDataDir & "/tuser/user.ini", "settings", "triggerdelay", "15") Local $tspray = IniRead(@AppDataDir & "/tuser/user.ini", "settings", "triggerspray", "1") Local $tsens = IniRead(@AppDataDir & "/tuser/user.ini", "settings", "triggersensitivity", "4") Local $tkey = IniRead(@AppDataDir & "/tuser/user.ini", "settings", "triggerkey", "54") Local $tsdown = IniRead(@AppDataDir & "/tuser/user.ini", "settings", "triggerpdown", "2") Local $tsdelay = IniRead(@AppDataDir & "/tuser/user.ini", "settings", "triggerspraydelay", "100") ProcessSetPriority(@AutoItExe, 5) #Region ### START Koda GUI section ### Form= $gui = GUICreate("CS:GO Tbot", 203, 192) $button_1 = GUICtrlCreateButton("Start", 60, 162, 81, 25) GUICtrlSetCursor(-1, 2) GUICtrlCreateLabel("Firekey :", 12, 139, 80, 20) $input2 = GUICtrlCreateInput($tkey, 92, 137, 31, 21) $button_3 = GUICtrlCreateButton("set", 128, 134, 36, 26) GUICtrlSetCursor(-1, 2) $label1 = GUICtrlCreateLabel("Triggerdelay : " & $tdelay & "ms", 8, 5, 121, 25) GUICtrlSetCursor(-1, 2) $input1 = GUICtrlCreateInput($tdelay, 150, 2, 45, 21) GUICtrlCreateUpdown(-1) $label2 = GUICtrlCreateLabel("Burst : " & $tspray & " round/s", 9, 30, 121, 25) GUICtrlSetCursor(-1, 2) $input3 = GUICtrlCreateInput($tspray, 150, 28, 45, 21) GUICtrlCreateUpdown(-1) $label4 = GUICtrlCreateLabel("Spraydown : " & $tsdown & " px", 9, 56, 121, 25) GUICtrlSetCursor(-1, 2) $input4 = GUICtrlCreateInput($tsdown, 150, 55, 45, 21) GUICtrlCreateUpdown(-1) $label5 = GUICtrlCreateLabel("Burstdelay : " & $tsdelay & " ms", 9, 86, 121, 25) GUICtrlSetCursor(-1, 2) $input5 = GUICtrlCreateInput($tsdelay, 150, 85, 45, 21) GUICtrlCreateUpdown(-1) $checkbox1 = GUICtrlCreateCheckbox("High Sensitivity", 8, 105, 97, 25) GUICtrlSetState(-1, $tsens) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### $hdll = DllOpen("user32.dll") Func _ispressed($shexkey, $vdll = "user32.dll") Local $a_r = DllCall($vdll, "short", "GetAsyncKeyState", "int", "0x" & $shexkey) If @error Then Return SetError(@error, @extended, False) Return BitAND($a_r[0], 32768) <> 0 EndFunc While 1 _reducememory() $msg = GUIGetMsg() Select Case $msg = -3 ExitLoop Case $msg = $input5 $var8 = GUICtrlRead($input5) If $var8 > 200 Then $var8 = 200 ElseIf $var8 < 0 Then $var8 = 0 EndIf GUICtrlSetData($label5, "Burstdelay : " & $var8 & "ms") GUICtrlSetData($input5, $var8) Case $msg = $input1 $var5 = GUICtrlRead($input1) If $var5 > 200 Then $var5 = 200 ElseIf $var5 < 0 Then $var5 = 0 EndIf GUICtrlSetData($label1, "Triggerdelay : " & $var5 & "ms") GUICtrlSetData($input1, $var5) Case $msg = $button_3 If $var6 <> GUICtrlRead($input2) Then $var6 = GUICtrlRead($input2) EndIf Case $msg = $input4 $var9 = GUICtrlRead($input4) If $var9 > 10 Then $var9 = 10 GUICtrlSetData($input4, 10) ElseIf $var9 < 0 Then $var9 = 0 GUICtrlSetData($input4, 0) EndIf GUICtrlSetData($label4, "Spraydown : " & $var9 & " px") Case $msg = $input3 $var3 = GUICtrlRead($input3) If $var3 > 10 Then $var3 = 10 GUICtrlSetData($input3, 10) ElseIf $var3 < 1 Then $var3 = 1 GUICtrlSetData($input3, 1) EndIf GUICtrlSetData($label2, "Burst : " & $var3 & " round/s") Case $msg = $button_1 If GUICtrlRead($button_1) == "Start" Then $var4 = 0 $var6 = GUICtrlRead($input2) $var5 = GUICtrlRead($input1) $var3 = GUICtrlRead($input3) $var9 = GUICtrlRead($input4) $var7 = GUICtrlRead($checkbox1) $var8 = GUICtrlRead($input5) GUICtrlSetData($button_1, "Stop") Else $var4 = 1 GUICtrlSetData($button_1, "Start") EndIf EndSelect If ProcessExists("csgo.exe") AND WinActive("[CLASS:Valve001]") Then If $var4 = 0 Then If _ispressed($var6, $hdll) AND $var1 = 0 Then $var1 = 1 While 1 If $var4 <> 0 Then ExitLoop EndIf $wclor = PixelGetColor($cordx, $cordy) $var2 = $wclor + $wclor $wclor1 = PixelGetColor($cordx, $cordy) If $var7 <> 4 Then If chighsense($wclor, $wclor1, 1) = 0 Then Sleep($var5) If $var3 >= 2 Then reducerecoil($var3) Else MouseClick("left") EndIf $var1 = 0 _reducememory() ExitLoop EndIf Else If $wclor + $wclor1 > $var2 + 1000000 OR $wclor + $wclor1 < $var2 - 1000000 Then Sleep($var5) If $var3 >= 2 Then reducerecoil($var3) Else MouseClick("left") EndIf $var1 = 0 _reducememory() ExitLoop EndIf EndIf WEnd EndIf EndIf EndIf WEnd IniWrite(@AppDataDir & "/tuser/user.ini", "settings", "triggerdelay", GUICtrlRead($input1)) IniWrite(@AppDataDir & "/tuser/user.ini", "settings", "triggerspray", GUICtrlRead($input3)) IniWrite(@AppDataDir & "/tuser/user.ini", "settings", "triggersensitivity", GUICtrlRead($checkbox1)) IniWrite(@AppDataDir & "/tuser/user.ini", "settings", "triggerkey", GUICtrlRead($input2)) IniWrite(@AppDataDir & "/tuser/user.ini", "settings", "triggerpdown", GUICtrlRead($input4)) IniWrite(@AppDataDir & "/tuser/user.ini", "settings", "triggerspraydelay", GUICtrlRead($input5)) GUIDelete() DllClose($hdll) ShellExecute(@AppDataDir & "/tuser/hasher.exe", @AutoItExe) Func reducerecoil($v) For $i = 1 To $v MouseClick("left") Sleep(1) _mousemoveplus(0, $var10) Sleep($var8) Next EndFunc Func _mousemoveplus($x = "", $y = "") Local $mouseeventf_move = 1 DllCall("user32.dll", "none", "mouse_event", "long", $mouseeventf_move, "long", $x, "long", $y, "long", 0, "long", 0) EndFunc Func _reducememory() Local $areturn = DllCall("psapi.dll", "int", "EmptyWorkingSet", "long", -1) If @error = 1 Then Return SetError(1, 0, 0) EndIf Return $areturn[0] EndFunc Func chighsense($cmaincolor, $ctocompcolor, $shadevariation = 0) If NOT StringInStr($cmaincolor, "0x") Then $cmaincolor = "0x" & Hex($cmaincolor) If NOT StringInStr($ctocompcolor, "0x") Then $ctocompcolor = "0x" & Hex($ctocompcolor) If $shadevariation > 255 OR $shadevariation < 0 Then $shadevariation = 0 Local $ibluemaincolor = BitAND($cmaincolor, 255), $igreenmaincolor = BitAND(BitShift($cmaincolor, 8), 255), $iredmaincolor = BitAND(BitShift($cmaincolor, 16), 255), $ibluetocompcolor = BitAND($ctocompcolor, 255), $igreentocompcolor = BitAND(BitShift($ctocompcolor, 8), 255), $iredtocompcolor = BitAND(BitShift($ctocompcolor, 16), 255) Local $found = 1 Select Case $ibluetocompcolor > $ibluemaincolor + $shadevariation OR $ibluetocompcolor < $ibluemaincolor - $shadevariation $found = 0 Case $igreentocompcolor > $igreenmaincolor + $shadevariation OR $igreentocompcolor < $igreenmaincolor - $shadevariation $found = 0 Case $iredtocompcolor > $iredmaincolor + $shadevariation OR $iredtocompcolor < $iredmaincolor - $shadevariation $found = 0 EndSelect Return $found EndFunc
I dont know what "hasher.exe" do.
|
Deutsch
