reqius

17 Października 2013

Jak się będzie odbywać głosowanie?

11 Maja 2013

Działa na zasadzie autoselect potworka oraz wysyanie Keypress, czyli możecie bocic w zminimalizowanym silku.

Opt("TrayMenuMode", 1)
#Include <GuiListView.au3>
Dim $listview[3] = ['Belt','Slot','Delay'], $child_buf_ok = -1, $child_atk_ok = -1,$swsroCharname = 0xA9DB98, $ecsroCharname = 0xA9DBB8, $mysroCharname = 0xA00340, $run = False, $epointer = 0xA9EE64, $spointer = 0xA9EE44, $zerkoffset = 0x7E6
Dim $m=0, $e=0, $s=0
$GUI = GUICreate('Private Server Bot', 341, 370, @DesktopWidth/2-370/2, @DesktopHeight/2-341/2, 0x100A0000)
GUICtrlCreateGroup("Character", 5, 5, 325, 45)
$char = GUICtrlCreateCombo("", 10, 20, 230, -1, 3)
GUICtrlSetFont(-1, 10)
$refresh = GUICtrlCreateButton("Refresh", 250, 19, 70, 26)

GUICtrlCreateGroup("Buffs", 5, 50, 160, 250)
$buf = GUICtrlCreateListView("Belt|Slot|Delay", 10, 65, 150, 200)
_GUICtrlListView_SetColumnWidth($buf, 2, -2)
For $i=0 To 2
    _GUICtrlListView_SetColumn($buf, $i, $listview[$i], -1, 2)
Next
$buf_add = GUICtrlCreateButton("Add", 10, 270, 70)
$buf_del = GUICtrlCreateButton("Delete", 90, 270, 70)
GUICtrlCreateGroup("Attack Skills", 170, 50, 160, 250)
$atk = GUICtrlCreateListView("Belt|Slot", 175, 65, 150, 200)
For $i=0 To 1
    _GUICtrlListView_SetColumnWidth($atk, $i, 73)
    _GUICtrlListView_SetColumn($atk, $i, $listview[$i], -1, 2)
Next
$atk_add = GUICtrlCreateButton("Add", 175, 270, 70)
$atk_del = GUICtrlCreateButton("Delete", 255, 270, 70)

$zerk = GUICtrlCreateCheckbox("Use Zerk", 10, 307)

$start = GUICtrlCreateButton("Start Bot", 75, 305, 120)
$stop = GUICtrlCreateButton("Stop Bot", 205, 305, 120)

CharList()
ini()

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case -4
            Tray()
        Case $buf_add
            $child = GUICreate("Add Buff", 100, 150, -1, -1, 0x10000000, 0x88)
            GUICtrlCreateLabel("Belt:", 5, 13)
            $child_belt = GUICtrlCreateCombo("", 45, 10, 40, -1, 3)
            GUICtrlSetData(-1, "F1|F2|F3|F4", "F1")
            GUICtrlCreateLabel("Slot:", 5, 43)
            $child_slot = GUICtrlCreateCombo("", 45, 40, 40, -1, 3)
            GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8|9", 1)
            GUICtrlCreateLabel("Delay:", 5, 73)
            $child_delay = GUICtrlCreateInput(100, 45, 70, 40)
            $child_buf_ok = GUICtrlCreateButton("OK", 5, 100, 85, 20, 1)
        Case $child_buf_ok
            GUICtrlCreateListViewItem(GUICtrlRead($child_belt)&"|"&GUICtrlRead($child_slot)&"|"&GUICtrlRead($child_delay), $buf)
            GUIDelete($child)
        Case $buf_del
            _GUICtrlListView_DeleteItemsSelected($buf)
        Case $atk_add
            $child = GUICreate("Add Attack Skill", 100, 120, -1, -1, 0x10000000, 0x88)
            GUICtrlCreateLabel("Belt:", 5, 13)
            $child_belt = GUICtrlCreateCombo("", 45, 10, 40, -1, 3)
            GUICtrlSetData(-1, "F1|F2|F3|F4", "F1")
            GUICtrlCreateLabel("Slot:", 5, 43)
            $child_slot = GUICtrlCreateCombo("", 45, 40, 40, -1, 3)
            GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8|9", 1)
            $child_atk_ok = GUICtrlCreateButton("OK", 5, 70, 85, 20, 1)
        Case $child_atk_ok
            GUICtrlCreateListViewItem(GUICtrlRead($child_belt)&"|"&GUICtrlRead($child_slot), $atk)
            GUIDelete($child)
        Case $atk_del
            _GUICtrlListView_DeleteItemsSelected($atk)
        Case $refresh
            CharList()
            ini()
        Case $start
            FileDelete(GUICtrlRead($char)&".ini")
            For $i=0 To _GUICtrlListView_GetItemCount($atk)-1
                IniWrite(GUICtrlRead($char)&".ini", "atk_skill", $i+1, _GUICtrlListView_GetItemTextString($atk, $i))
            Next
            For $i=0 To _GUICtrlListView_GetItemCount($buf)-1
                IniWrite(GUICtrlRead($char)&".ini", "buf_skill", $i+1, _GUICtrlListView_GetItemTextString($buf, $i))
            Next
            If GUICtrlRead($zerk)=1 Then
                IniWrite(GUICtrlRead($char)&".ini", "zerk", "on", "1")
            Else
                IniWrite(GUICtrlRead($char)&".ini", "zerk", "on", "0")
            EndIf
            $run = True
        Case $stop
            $run = False
        Case $char
            ini()
        Case Else
            InputCheck()
            If $run Then bot(GUICtrlRead($char))
    EndSwitch
    InputCheck()
    Switch TrayGetMsg()
        Case - 13
            Tray()
    EndSwitch
    InputCheck()
WEnd

Func bot($charname)
    $buff_skill = IniReadSection($charname&".ini", "buf_skill")
    If IsArray($buff_skill) And $buff_skill[0][0]<>0 Then
        For $i=1 To $buff_skill[0][0]
            If $run = True Then
                $string = StringSplit($buff_skill[$i][1], "|")
                Buff($charname, $string[1], $string[2], $string[3])
                InputCheck()
            EndIf
            Sleep(10)
        Next
    EndIf
    $attack_skill = IniReadSection($charname&".ini", "atk_skill")
    If IsArray($attack_skill) And $attack_skill[0][0]<>0 Then
        For $i=1 To $attack_skill[0][0]
            If $run = True Then
                $string = StringSplit($attack_skill[$i][1], "|")
                Skill($charname, $string[1], $string[2])
                InputCheck()
                Zerk()
            EndIf
            Sleep(10)
        Next
    EndIf
EndFunc

Func Skill($charname, $bar, $slot, $delay = 0.5)
    If Not IsDeclared($charname&"skill" & $bar & $slot) Then
        For $i=1 to 5
            SendSro(GetHandle($charname), $bar)
        Next
        SendSro(GetHandle($charname), $slot)
        Assign($charname&"skill" & $bar & $slot, TimerInit(), 2)
    ElseIf TimerDiff(Eval($charname&"skill" & $bar & $slot)) > $delay * 1000 Then
        For $i=1 to 5
            SendSro(GetHandle($charname), $bar)
        Next
        SendSro(GetHandle($charname), $slot)
        Assign($charname&"skill" & $bar & $slot, TimerInit(), 2)
    EndIf
EndFunc

Func Buff($charname, $bar, $slot, $delay = 300)
    If Not IsDeclared($charname&"buff" & $bar & $slot) Then
        SleepWithCheck(2000)
        For $i=1 to 5
            SendSro(GetHandle($charname), $bar)
        Next
        SendSro(GetHandle($charname), $slot)
        SleepWithCheck(2000)
        Assign($charname&"buff" & $bar & $slot, TimerInit(), 2)
    ElseIf TimerDiff(Eval($charname&"buff" & $bar & $slot)) > $delay * 1000 Then
        Assign($charname&"buff", TimerInit(), 2)
        SleepWithCheck(2000)
        For $i=1 to 5
            SendSro(GetHandle($charname), $bar)
        Next
        SendSro(GetHandle($charname), $slot)
        SleepWithCheck(2000)
        Assign($charname&"buff" & $bar & $slot, TimerInit(), 2)
    EndIf
EndFunc

Func CharList()
    $list = WinList("[CLASS:CLIENT]")
    For $i=1 To $list[0][0]
        Local $mid = memopen(WinGetProcess($list[$i][1]))
        Local $name = memread($mid, $swsroCharname, 'char[12]')
        If $name<>'' Then GUICtrlSetData($char, $name, $name)
        Local $name = memread($mid, $ecsroCharname, 'char[12]')
        If $name<>'' Then GUICtrlSetData($char, $name, $name)
        Local $name = memread($mid, $mysroCharname, 'char[12]')
        If $name<>'' And $name<>'?ŻQĆá<' And $name<>'h??=' And $name<>'Í;??ö?Ud˛' Then GUICtrlSetData($char, $name, $name)
        memclose($mid)
    Next
EndFunc

Func GetHandle($charname)
    Local $list = WinList("[CLASS:CLIENT]")
    For $i=1 To $list[0][0]
        Local $mid = memopen(WinGetProcess($list[$i][1]))
        Local $name = memread($mid, $mysroCharname, 'char[12]')
        If $name = $charname Then
            memclose($mid)
            Global $m=1
            Global $e=0
            Global $s=0
            Return $list[$i][1]
        EndIf
        Local $name = memread($mid, $swsroCharname, 'char[12]')
        If $name = $charname Then
            Global $m=0
            Global $e=0
            Global $s=1
            memclose($mid)
            Return $list[$i][1]
        EndIf
        Local $name = memread($mid, $ecsroCharname, 'char[12]')
        If $name = $charname Then
            Global $m=0
            Global $e=1
            Global $s=0
            memclose($mid)
            Return $list[$i][1]
        EndIf
        memclose($mid)
        Sleep(10)
    Next
EndFunc

Func SendSro($handle, $key)
    Switch $key
        Case "F1"
            $k = 0x70
        Case "F2"
            $k = 0x71
        Case "F3"
            $k = 0x72
        Case "F4"
            $k = 0x73
        Case Else
            $k = 0x30+$key
    EndSwitch
    DllCall("User32.dll", "int", "PostMessageA", "hwnd", $handle, "int", 0x100, "int", $k, "int", 0)
    DllCall("User32.dll", "int", "PostMessageA", "hwnd", $handle, "int", 0x101, "int", $k, "int", 0)
EndFunc

Func ini()
    _GUICtrlListView_DeleteAllItems($atk)
    _GUICtrlListView_DeleteAllItems($buf)
    If FileExists(GUICtrlRead($char)&".ini") Then
        $section = IniReadSection(GUICtrlRead($char)&".ini", "atk_skill")
        if IsArray($section) Then
            For $i=1 To $section[0][0]
                GUICtrlCreateListViewItem($section[$i][1], $atk)
            Next
        EndIf
        $section = IniReadSection(GUICtrlRead($char)&".ini", "buf_skill")
        If IsArray($section) Then
            For $i=1 To $section[0][0]
                GUICtrlCreateListViewItem($section[$i][1], $buf)
            Next
        EndIf
        If IniRead(GUICtrlRead($char)&".ini", "zerk", "on", "0") = "1" Then GUICtrlSetState($zerk, 1)
    EndIf
EndFunc

Func memopen($pid)
    Local $mid = DllCall('kernel32.dll', 'int', 'OpenProcess', 'int', 0x1F0FFF, 'int', 1, 'int', $pid)
    Return $mid[0]
EndFunc

Func memread($mid, $adress, $type = 'dword')
    Local $struct = DllStructCreate($type)
    DllCall('kernel32.dll', 'int', 'ReadProcessMemory', 'int', $mid, 'int', $adress, 'ptr', DllStructGetPtr($struct), 'int', DllStructGetSize($struct), 'int', '')
    Return DllStructGetData($struct, 1)
EndFunc

Func memreaddynamic($mid, $pointer, $offset, $type = "dword")
    $newadress = memread($mid, $pointer) + $offset
    Return memread($mid, $newadress, $type)
EndFunc

Func memwrite($mid, $adress, $byte)
    Local $struct = DllStructCreate('byte')
    DllStructSetData($struct, 1, $byte)
    DllCall('kernel32.dll', 'int', 'WriteProcessMemory', 'int', $mid, 'int', $adress, 'ptr', DllStructGetPtr($struct), 'int', DllStructGetSize($struct), 'int', 0)
EndFunc

Func memclose($mid)
    DllCall('kernel32.dll', 'int', 'CloseHandle', 'int', $mid)
EndFunc

Func Tray()
    If BitAND(WinGetState($GUI), 2) Then
        WinSetState($GUI, "", @SW_HIDE)
    Else
        WinSetState($GUI, "", @SW_SHOW)
    EndIf
EndFunc

Func IsPressed($sHexKey, $vDLL = 'user32.dll')
    Local $a_R = DllCall($vDLL, "int", "GetAsyncKeyState", "int", $sHexKey)
    If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
    Return 0
EndFunc   ;==>_IsPressed

Func InputCheck()
    If $e=1 Then
        $CharBase = $epointer
    ElseIf $s=1 Then
        $CharBase = $spointer
    EndIf
    If WinActive(GetHandle(GUICtrlRead($char))) Then
        If IsPressed(0x74) Then
            If $run Then
                $run = False
            Else
                $run = True
            EndIf
            Do
                Sleep(1)
            Until Not IsPressed(0x74)
        EndIf
        If IsPressed(0x75) Then
            $mid = memopen(WinGetProcess(GetHandle(GUICtrlRead($char))))
            If memread($mid, $CharBase+8, 'byte') = 1 Then
                memwrite($mid, $CharBase+8, 0)
            Else
                memwrite($mid, $CharBase+8, 1)
            EndIf
            memclose($mid)
            Do
                Sleep(1)
            Until Not IsPressed(0x75)
        EndIf
        If IsPressed(0x76) Then
            $mid = memopen(WinGetProcess(GetHandle(GUICtrlRead($char))))
            If memread($mid, $CharBase+9, 'byte') = 1 Then
                memwrite($mid, $CharBase+9, 0)
            Else
                memwrite($mid, $CharBase+9, 1)
            EndIf
            memclose($mid)
            Do
                Sleep(1)
            Until Not IsPressed(0x76)
        EndIf
        If IsPressed(0x77) Then WinSetState(GetHandle(GUICtrlRead($char)), "", @SW_MINIMIZE)
    EndIf
EndFunc

Func Zerk()
    If GUICtrlRead($zerk)=1 Then
        If $e=1 Then
            $CharBase = $epointer
        ElseIf $s=1 Then
            $CharBase = $spointer
        EndIf
        Local $handle = GetHandle(GUICtrlRead($char))
        Local $mid = memopen(WinGetProcess($handle))
        Local $zerkpoints = memreaddynamic($mid, $CharBase, $zerkoffset, 'byte')
        If $zerkpoints = 5 Then
            DllCall("User32.dll", "int", "PostMessageA", "hwnd", $handle, "int", 0x100, "int", 0x09, "int", 0)
            DllCall("User32.dll", "int", "PostMessageA", "hwnd", $handle, "int", 0x101, "int", 0x09, "int", 0)
        EndIf
        memclose($mid)
    EndIf
EndFunc

Func SleepWithCheck($time)
    Assign('sleep', TimerInit(), 2)
    Do
        InputCheck()

        Switch GUIGetMsg()
            Case -3
                Exit
            Case -4
                Tray()
            Case $stop
                $run = False
        EndSwitch
        Sleep(10)
    Until TimerDiff(Eval('sleep')) > $time
EndFunc

5 Kwietnia 2013

dodane nospread do triggerbota. nieźle chodzi.

12 Sierpnia 2011

Czesc

22 Października 2008

thx, dam ci plusika

[ Dodano: 2008-10-20, 16:58 ]

Czemu nie moge dac plusa?

Tylko autor tematu moze dawac plusa

btw. offtopic juz off ;p

22 Października 2008

O tak, dzieki

wciskam juz plusika

21 Października 2008

jasne ze windows

Windows Media Player czy Winamp

21 Października 2008

Mam problem, potrzebuje bindu ktorym aktywuje 3 pliki cfg na raz 'exec 1/2/3.cfg' probowalem to robic ale nie wychodzilo...

21 Października 2008

lol

HTML czy PHP?

19 Października 2008

Nie ma. Zainstaluj jakis zestaw i wlacz tylko noflasha.

18 Października 2008

10/10

mYm gra teraz II rudn? HLC z FX ;]

18 Października 2008

6/10

18 Października 2008

Admin

Quote czy Code?

18 Października 2008

czesc

18 Października 2008

1. Kupujemy flesha, idziemy na B, i zatrzymujemy się koło drzwi

2. Celownik nakierowujemy pomiędzy dwoma skrzynkami

3. Rzucony flesh oślepia tunel na B

18 Października 2008

Bug który występuje na mapie de_dust2 jak się idzie na bombsite A

18 Października 2008

Brooklyn ! haha ;d to salto najlepsze

18 Października 2008

Zabawa polega na tym, ?e ka?dy z nas pisze jaki? kawa? lub zapodaje link do jakiegos ?miesznego filmiku, czy tekstu. To zale?y od was :-). Wa?ne, aby by?o troche humoru xD.

Wi?c ja zaczynam... Opowiedzia?bym jaki? dowcip ale ju? nawet nie moge nic wymy?lic tej porze, to zapodam tylko kilka ?miesznych filmików :

http://pl.youtube.com/watch?v=91SWCyGKsU8&feature=related

http://pl.youtube.com/watch?v=-6o1QmGQs5Y

http://pl.youtube.com/watch?v=QV35Rwpdtj8 - chyba najlepsze

http://pl.youtube.com/watch?v=ErUxEke58gs - i oczywi?cie stary, dobry ... Ch?op z Mazur

18 Października 2008

Kolego, ?adne sygnaturki robisz 8/10 za wszystkie oO

18 Października 2008

Oto moj spis gier:

CS 1.6

CS CZ

CS Source

Call of Duty 2

Call of Duty 4

Fifa 2009

:-D

18 Października 2008

Siemka

18 Października 2008

ok dzi?ki

/mo?na zamkn??

18 Października 2008

Siema, jestem Marcin

Mam 15lat..

Mieszkam w Brzesku...

Moje pseudo po lewo...

Czyta?em regulamin...

Forum mi si? podoba...

Pozdro...

18 Października 2008

Witam mam problem taki , jak móg?bym da? resa serwa ?eby sie dane zaktualizowa?y tzn. dane z Serwer.CFG i AMX , dlatego ze mam tylko dane FTP nie mam ?adnego dost?pu do stronki tak jak maja firmy np. Shooters itp. ?e mo?na da? restart ... Kto ma jaki? pomys?

18 Października 2008

Spróbuj wpisa? te komendy:

hud_saytext "1"
hud_saytext_internal "1"
hud_saytext_time "6"
spec_menu "0"

A jak nie pomo?e to zainstaluj patcha v21...

Zaloguj się

Profile

Forum

FAQ

Quiz

Posty opublikowane przez reqius

Powiadomienie o plikach cookie