Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

[PORADNIK][VB.NET]Fake D3D

qqqqq

Przez qqqqq
w Niezbędnik Programisty - Archiwum

Rekomendowane odpowiedzi

qqqqq Budowniczy

qqqqq

Opublikowano
Budowniczy

qqqqq

Opublikowano

Pokaże wam jak zrobic Fake D3D menu, za pomocą klawiszy!

 

Zrobimy 3 Hack'i, używamy tyle Timer'ów, ponieważ nie znam innej drogi

 

Potrzebujemy:

- 9 Timer'ów

- 6 Label'i

20rwiuh.jpg

Nazwij:

Label1 - Stamina

Label2 - No spread

Label3 - No Recoil

Label4 - Off

Label5 - Off

Label6 - Off

 

Timer1 - interval 100- Enabled = True

Wklej ten Kod:

If GetaSyncKeyState(40) Then 
            Label1.ForeColor = Color.Red 
            Timer2.Enabled = True 
            Timer4.Enabled = True 
            timer5.enabled = true

 

Timer2 - Interval 100 - Enabled = False

Wklej ten Kod:

 If GetAsyncKeyState(39) Then 
            Label4.Text = "On" 
        End If 

        If GetAsyncKeyState(37) Then 
            Label4.Text = "Off" 
        End If

 

Timer3 - Interval 1 - Enabled = True

Wklej ten Kod:

if Label4.text = "On" then 
CODE TWOJEGO HACK'A
end if

 

1 Hack zrobiony:)

 

Timer4 - Interval 100 - Enabled = False

Wklej ten Kod:

If GetAsyncKeyState(40) Then 
            Timer1.Enabled = False 
            Label2.ForeColor = Color.Red 
            Label1.ForeColor = Color.Blue 
            Timer2.Enabled = False 
            Timer7.Enabled = True 
            timer8.enabled = true 
        End If

 

Timer5 - Interval 100 - Enabled = False

Wklej ten Kod:

If GetAsyncKeyState(39) Then 
            Label5.Text = "On" 
        End If 

        If GetASyncKeyState(37) Then 
            Label5.Text = "Off" 
        End If

 

Timer6 - Interval 1 - Enabled = True

 If Label3.Text = "On" Then 
            CODE TWOJEGO HACK'A
        End If

 

2 Hack zrobony :)

 

Timer7 - interval 100 - enabled = False

Wklej ten Kod:

 If GetAsyncKeyState(40) Then 
            Timer4.Enabled = False 
            Label3ForeColor = Color.Red 
            Label2.ForeColor = Color.Blue 
            Timer5.Enabled = False 
            End If

 

Timer8 - interval 100 - Enabled = False

Wklej ten Kod:

If GetAsyncKeyState(39) Then 
            Label6.Text = "On" 
        End If 

        If GetASyncKeyState(37) Then 
            Label6.Text = "Off" 
        End If

 

Timer9 - Interval 1 - Enabled = True

Wklej ten Kod:

If label6.text = "On" then 
CODE TWOJEGO HACK'A 
End if

 

I masz 3 Hack :)

Myślę, że pomogłem i już będziecie wiedzieć jak zrobić Fake D3D

myimageog3.gif

ban1.gif

>>> MOJE PORADNIKI DO PROGRAMOWANIA <<<

Mogę pomódz w waszych problemach w godzinach 8-24 PW

  • 2 tygodnie później...
Gość azerf

Gość azerf

Opublikowano

Gość azerf

Opublikowano

I rozkpuje starsze tematy aby sie pokłócić.

Propagandhi Bywalec

Propagandhi

Opublikowano
Bywalec

Propagandhi

Opublikowano

Napisałem jeszcze kiedyś prosty przykład fałszywego direct 3D menu dla Fabiego. Dodałem jedną nową rzecz - efekt fade out (jeśli menu nie jest używane, to staje się półprzezroczyste) . Rożnica z powyższym polega na tym, że wykorzystuje tylko jeden timer i nie ssie tyle procesora (mniejszy lag).

 

Zasada działania opiera się o zmianę tzw TabIndex. Każdy element posiada we właściwości opcję o tej nazwie, wskazującą na jakąś liczbę. Przyciskając klawisz TAB w programie poruszamy się pomiędzy elementami o kolejnych numerach TabIndex. My nie będziemy korzystać z klawisza TAB do sterowania menu, tylko z klawiszy strzałek: góra, dół - zmiana opcji; prawo, lewo - włącz, wyłącz opcje.

 

W przykładzie wykorzystałem labele, ułożone kolejno z góry na dół według numerów TabIndex (rosnąco):

 

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label6.Text = TimeOfDay
        'instrukcja do poruszania sie po menu (gora/dol)
        If GetAsyncKeyState(38) And Me.TabIndex > 0 Then
            Me.TabIndex = Me.TabIndex - 1
        ElseIf GetAsyncKeyState(40) And Me.TabIndex < 4 Then
            '<4 mniejsze od liczby elementów z TAbindex - u mnie akurat 4
            Me.TabIndex = Me.TabIndex + 1
        End If
        '-------------------------------------------------------------------------
        'istrukcja do zmiany staminy w menu
        If Me.TabIndex = 0 Then
            Label1.ForeColor = Color.Red
            If GetAsyncKeyState(39) And Label1.Text = "Stamina 0" Then
                'opcja wlaczona
                Label1.Text = "Stamina 1"
            ElseIf GetAsyncKeyState(37) And Label1.Text = "Stamina 1" Then
                'opcja wylaczona
                Label1.Text = "Stamina 0"
            End If
        ElseIf Me.TabIndex <> 0 Then
            Label1.ForeColor = Color.Gold
        End If
        '-------------------------------------------------------------------------
        'instrukcja do zmiany no spread/recoil w menu
        If Me.TabIndex = 1 Then
            Label2.ForeColor = Color.Red
            If GetAsyncKeyState(39) And Label2.Text = "No Spread/Recoil 0" Then
                'opcja wlaczona
                Label2.Text = "No Spread/Recoil 1"
            ElseIf GetAsyncKeyState(37) And Label2.Text = "No Spread/Recoil 1" Then
                'opcja wylaczona
                Label2.Text = "No Spread/Recoil 0"
                'sama wroci do naturalnego stanu
            End If
        ElseIf Me.TabIndex <> 1 Then
            Label2.ForeColor = Color.Gold
        End If
        '-------------------------------------------------------------------------
        'instrukcja do zmiany instant spawn w menu
        If Me.TabIndex = 2 Then
            Label3.ForeColor = Color.Red
            If GetAsyncKeyState(39) And Label3.Text = "Instant Spawn 0" Then
                'opcja wlaczona
                Label3.Text = "Instant Spawn 1"
            ElseIf GetAsyncKeyState(37) And Label3.Text = "Instant Spawn 1" Then
                'opcja wylaczona
                Label3.Text = "Instant Spawn 0"
                'sama wroci do naturalnego stanu
            End If
        ElseIf Me.TabIndex <> 2 Then
            Label3.ForeColor = Color.Gold
        End If
        '-------------------------------------------------------------------------
        'instrukcja do zmiany boxes w menu
        If Me.TabIndex = 3 Then
            Label4.ForeColor = Color.Red
            If GetAsyncKeyState(39) And Label4.Text = "Boxes 0" Then
                'opcja wlaczona
                Label4.Text = "Boxes 1"
                ZGTPTKMMHN(playerpointer, &H2DC, 0)
                ZGTPTKMMHN(playerpointer, &H2E0, 0)
                ZGTPTKMMHN(playerpointer, &H2E4, 0)
                OZLJFUYJGZ(nolspread, 0, 4)
            ElseIf GetAsyncKeyState(37) And Label4.Text = "Boxes 1" Then
                'opcja wylaczona
                Label4.Text = "Boxes 0"
                'sama wroci do naturalnego stanu
            End If
        ElseIf Me.TabIndex <> 3 Then
            Label4.ForeColor = Color.Gold
        End If
        '-------------------------------------------------------------------------
        'instrukcja do zmiany NFD w menu
        If Me.TabIndex = 4 Then
            Label5.ForeColor = Color.Red
            If GetAsyncKeyState(39) And Label5.Text = "No Fall Damage 0" Then
                'opcja wlaczona
                Label5.Text = "No Fall Damage 1"
                ZGTPTKMMHN(playerpointer, &H2DC, 0)
                ZGTPTKMMHN(playerpointer, &H2E0, 0)
                ZGTPTKMMHN(playerpointer, &H2E4, 0)
                OZLJFUYJGY(nolspread, 0, 4)
            ElseIf GetAsyncKeyState(37) And Label5.Text = "No Fall Damage 1" Then
                'opcja wylaczona
                Label5.Text = "No Fall Damage 0"
                'sama wroci do naturalnego stanu
            End If
        ElseIf Me.TabIndex <> 4 Then
            Label5.ForeColor = Color.Gold
        End If
        '-------------------------------------------------------------------------
        'sprawdzam czy opcje wlaczone i jesli tak to nadpisuje pamiec
        If Label1.Text = "Stamina 1" Then
            ZGTPTKMMHH(playerpointer, &H28C, 100)
        End If
        If Label2.Text = "No Spread/Recoil 1" Then
            ZGTPTKMMHH(playerpointer, &H2DC, 0)
            ZGTPTKMMHH(playerpointer, &H2E0, 0)
            ZGTPTKMMHH(playerpointer, &H2E4, 0)
            OZLJFUYJGZ(nolspread, 0, 4)
        End If
        If Label3.Text = "Instant Spawn 1" Then
            OZLJFUYJGZ(nospawn1, 0, 4)
            OZLJFUYJGZ(nospawn2, 0, 4)
        End If
        If Label4.Text = "Boxes 1" Then
            OZLJFUYJGZ(bokses, 1, 4)
        End If
        If Label5.Text = "No Fall Damage 1" Then
            ZGTPTKMMHH(playerpointer, &H264, -2000)
        End If
        '-------------------------------------------------------------------------
        'efekt fade in i fade out
        If GetAsyncKeyState(37) Or GetAsyncKeyState(38) Or GetAsyncKeyState(39) Or GetAsyncKeyState(40) Then
            csec = 5000 'czas odliczania do włączenia fade out w milisekundach
            Me.Opacity = 1
        Else : csec = csec - 100
        End If
        If csec < 200 And Opacity > 0.3 Then '0.3 - maxymalna przezroczystość
            Me.Opacity = Me.Opacity - 0.01
        End If

    End Sub

 

To już efekt po dodaniu przezroczystego tła i paru kosmetycznych poprawkach:

- od lewej menu aktywne i menu nieaktywne z fade out

 

image1pf5.jpg

  • 1 miesiąc temu...
Umbrew15 Pasjonat

Umbrew15

Opublikowano
Pasjonat

Umbrew15

Opublikowano

wyjaśni ktoś to jaśniej jak zrobić te OFF w haxu na Invisible i unl ammo i trochę bardziej sczegółowo jak zrobić te : 6 Label'i i te okienko czarne , i jak ja nie chcę 6 funckji tylko 2 jak zrobić Invi i unl ammo znaczy się tylko fake D3D z tymi funkcjami ???

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...