Vb net wolftü oyun içinde şu işlemi yap kodu lazım_?

[ARTHUR48]

selamunaleyküm arkadaşlar.. wolftüde oyun içinde elimde silah olmadığını ve ölü olduğumu tanımlayacak bir koda ihtiyacım var. "silah seçmediysem yada öldüysem veya hp 1 den azsa" şu işlemi yap diyebileceğim bir kod. bilen varsa yardım ederse sevinirim.. bu arada kod bilgim zayıf olduğu için mümkünse akıl değilde direk kod istiyorum. teşekkürler

 

[SwemBoy]

Silkroad değil ki bu oyun, öyle şeyler yapılamaz.
Silkroad botunda var bu tip şeyler

 

[Mr.BullS]

Silkroad değil ki bu oyun, öyle şeyler yapılamaz.
Silkroad botunda var bu tip şeyler

Neden Yapılmasın ?

Mesela Oyunda Silah Alacakken 1 Silahı Aldığında 0 Olan Sabit Bi Değer Bulursun Ve Bunu Oyundaki Herşeyde Böyle Yaparsın
Eklersin Bi Timer Enabled = True , Interval = 1 Yaparsın Ve Adresi Yazarsın .... Value 1 ise silah alınmadı 0 ise silah alındı

 

[ARTHUR48]

Mesela Oyunda Silah Alacakken 1 Silahı Aldığında 0 Olan Sabit Bi Değer Bulursun Ve Bunu Oyundaki Herşeyde Böyle Yaparsın
Eklersin Bi Timer Enabled = True , Interval = 1 Yaparsın Ve Adresi Yazarsın .... Value 1 ise silah alınmadı 0 ise silah alındı

bunu koda nasıl dökecez işte, c.e fazla anlamıyorum, bypassta atıyor hemen

 

[ch4p0]

if wolftüdeki-hp-değerini-ifade-eden-parametre.dll (vs)  "1" veya value = "1" then
label1.text = " 1 hp'niz kaldı"

if komutuyla halledebilirsin bu senin hayal gücüne kalmış birşey.

Örnek bir şablon ;

Module Multiline
    Public Sub Main()
        'Create a Random object to seed our starting value
        Dim randomizer As New Random()
        'set our variable
        Dim count As Integer = randomizer.Next(0, 5)

        Dim message As String

        'If count is zero, output will be no items
        If count = 0 Then
            message = "There are no items."
        'If count is 1, output will be "There is 1 item.".      
        ElseIf count = 1 Then
            message = "There is 1 item."
        'If count is greater than 1, output will be "There are {count} items.", where {count} is replaced by the value of count.
        Else
            message = $"There are {count} items."
        End If

        Console.WriteLine(message)
    End Sub
End Module
'This example displays output like the following:
' There are 4 items.

Kolay gelsin

 

[CaptainMemory]

Sana iki adet ptr yeterli olur birincisi elindeki silahın valuesi ikincisi hp nin valuesi bunları sürekli okutursun eğer hp <=0 işlem yaptırırsın veya elindeki silahın valuesi yoksa yani 0 a eşitse yine işlem yaptırırsın bu 2 ptr yi bulmanda çok zor değil hatta baya basit o yüzden 2-3 dakikalık bypass ile yapabilirsin

 

[While]

cheat engine ile adressleri bulacan başka şekilde olması imkansız

 

[ARTHUR48]

if wolftüdeki-hp-değerini-ifade-eden-parametre.dll (vs)  "1" veya value = "1" then
label1.text = " 1 hp'niz kaldı"

if komutuyla halledebilirsin bu senin hayal gücüne kalmış birşey.

Örnek bir şablon ;

Module Multiline
    Public Sub Main()
        'Create a Random object to seed our starting value
        Dim randomizer As New Random()
        'set our variable
        Dim count As Integer = randomizer.Next(0, 5)

        Dim message As String

        'If count is zero, output will be no items
        If count = 0 Then
            message = "There are no items."
        'If count is 1, output will be "There is 1 item.".     
        ElseIf count = 1 Then
            message = "There is 1 item."
        'If count is greater than 1, output will be "There are {count} items.", where {count} is replaced by the value of count.
        Else
            message = $"There are {count} items."
        End If

        Console.WriteLine(message)
    End Sub
End Module
'This example displays output like the following:
' There are 4 items.

Kolay gelsin

eyvallah kardeşim bir deniyim becerebilirsem, burda hp 1 den az olursa komutu verebiliriz belki, silah seçmedim yada elimde silah yok komutu da verebilirmiyiz.

Sana iki adet ptr yeterli olur birincisi elindeki silahın valuesi ikincisi hp nin valuesi bunları sürekli okutursun eğer hp <=0 işlem yaptırırsın veya elindeki silahın valuesi yoksa yani 0 a eşitse yine işlem yaptırırsın bu 2 ptr yi bulmanda çok zor değil hatta baya basit o yüzden 2-3 dakikalık bypass ile yapabilirsin

silah valueleri kolay hp ye bakmam lazım, bir uygulamaya çalışıyım bakalım. sağolasın

 

[ch4p0]

eyvallah kardeşim bir deniyim becerebilirsem, burda hp 1 den az olursa komutu verebiliriz belki, silah seçmedim yada elimde silah yok komutu da verebilirmiyiz.

visual basic üzerinde if else işine yarayabilir fakat işin içine pointerler vs karıştığı için fazla bilgi veremem ama dediğim gibi eğer yazılımın visual basic dili üzerine kuruluysa if else yeterli olacaktır.

 

[ARTHUR48]

ch4p0
visual basic üzerinde if else işine yarayabilir fakat işin içine pointerler vs karıştığı için fazla bilgi veremem ama dediğim gibi eğer yazılımın visual basic dili üzerine kuruluysa if else yeterli olacaktır.

eyvallah işte kod bilgim zayıf, ama yapmaya çalıştığım şeyi kısmen çözdüm, biraz tuş kombinasyonu kullanıyorum, sorun çözülüyor ama, ben bu işi otomatik olarak yaptırmaya çalışıyorum, az kaldı. yaptığım hiiileyi paylaşacak olsam benden başkası zor kullanır ):

 

[ch4p0]

ch4p0
visual basic üzerinde if else işine yarayabilir fakat işin içine pointerler vs karıştığı için fazla bilgi veremem ama dediğim gibi eğer yazılımın visual basic dili üzerine kuruluysa if else yeterli olacaktır.

eyvallah işte kod bilgim zayıf, ama yapmaya çalıştığım şeyi kısmen çözdüm, biraz tuş kombinasyonu kullanıyorum, sorun çözülüyor ama, ben bu işi otomatik olarak yaptırmaya çalışıyorum, az kaldı. yaptığım hiiileyi paylaşacak olsam benden başkası zor kullanır ):

İf else parametlerine uyarlamak istediğin kod satırını paylaşırsan belki yardımım dokunabilir.

 

[ARTHUR48]

İf else parametlerine uyarlamak istediğin kod satırını paylaşırsan belki yardımım dokunabilir.

sağolasın, olur valueleri ayarlıyımda ondan sonra

 

[dizoyen]

cheat engine ile yapabilirsin

 

[Rєxbrave]

if wolftüdeki-hp-değerini-ifade-eden-parametre.dll (vs)  "1" veya value = "1" then
label1.text = " 1 hp'niz kaldı"

if komutuyla halledebilirsin bu senin hayal gücüne kalmış birşey.

Örnek bir şablon ;

Module Multiline
    Public Sub Main()
        'Create a Random object to seed our starting value
        Dim randomizer As New Random()
        'set our variable
        Dim count As Integer = randomizer.Next(0, 5)

        Dim message As String

        'If count is zero, output will be no items
        If count = 0 Then
            message = "There are no items."
        'If count is 1, output will be "There is 1 item.".     
        ElseIf count = 1 Then
            message = "There is 1 item."
        'If count is greater than 1, output will be "There are {count} items.", where {count} is replaced by the value of count.
        Else
            message = $"There are {count} items."
        End If

        Console.WriteLine(message)
    End Sub
End Module
'This example displays output like the following:
' There are 4 items.

Kolay gelsin

Sağolasın kardeş banada lazımdı.