Vb Net. Wolftü normal hile "D3D Tıkklamalı" hileye nasıl çevrilir ?

[Shitric]

yine de alta alıyor kardeşim be, başka ne yapabilirim

Önce formun TopMost özelliğini False olarak ayarlayacaksın. Daha sonra bir timer oluşturacaksın. Forma sağ tıklayım View Code diyeceksin ve boş bir yere şu kodları yapıştıracaksın;

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If GetAsyncKeyState(Keys.INSERT) Then
            If Me.Visible = True Then
                Me.Visible = False
                Me.TopMost = False
                ResumeProcess("wolftü.bin")
            ElseIf Me.Visible = False Then
                Interaction.AppActive("wolftü.bin")
                Me.Visible = True
                Me.TopMost = True
                SuspendProcess("wolftü.bin")
                Me.BringToFront()
            End If
        End If
    End Sub

Yüksek ihtimal çalışacaktır. Ek olarak da INSERT tuşuna basıldığı zaman menüyü gizleyip gösterecektir.

 

[huhacixx21]

bu kod fix ti galiba

 

[ARTHUR48]

Shitric
Önce formun TopMost özelliğini False olarak ayarlayacaksın. Daha sonra bir timer oluşturacaksın. Forma sağ tıklayım View Code diyeceksin ve boş bir yere şu kodları yapıştıracaksın;

topmost özelliğini form loada true diye eklemiştim onu falseye mi çevirmem gerek yani.
şimdi bir deneme yapalım bakıyım, sağol

 

[ARTHUR48]

@Shitric
Önce formun TopMost özelliğini False olarak ayarlayacaksın. Daha sonra bir timer oluşturacaksın. Forma sağ tıklayım View Code diyeceksin ve boş bir yere şu kodları yapıştıracaksın;

Private Sub Timer62_Tick(sender As System.Object, e As System.EventArgs) Handles Timer62.Tick
On Error Resume Next
If GetAsyncKeyState(Keys.Insert) Then
If Me.Visible = True Then
Me.Visible = False
Me.TopMost = False
ElseIf Me.Visible = False Then
Me.Visible = True
Me.TopMost = True
Me.BringToFront()
Interaction.AppActivate("wolftü.bin")
End If
End If
End Sub

ben bu kodu bu şekilde eklemiştim hata yoktu. senin kodu girince şu kodlardan dolayı hata veriyor;
ResumeProcess("wolftü.bin")
SuspendProcess("wolftü.bin")

hata; 'String' türünün değeri 'System.Diagnostics.Process' olarak değiştirilemez.

hata;

 

[Shitric]

Dim game As Process() = Process.GetProcessByName("wolftü.bin")(0)

Bu değişken satırını ekle ve hata veren yerleri,

ResumeProcess(game)
SuspendProcess(game)

Olarak değiştir. Kodları aklımdan yazıyorum, hata varsa da basit bir hatadır sen düzeltirsin.

 

[Shitric]

bu kod fix ti galiba

Kodu bizzat elimle yazdım. Ayrıca şu mantığınızı anlamıyorum ben, hile mi bu fix yiyecek? Programlama dillerinde fix diye bir olay söz konusu değildir, her ne olursa olsun yazdığınız kodlar çalışmaya devam eder. Yanlızca müdahale ettiğiniz oyun vb. programın çalışmasını engelleyebilir.

 

[huhacixx21]

Kodu bizzat elimle yazdım. Ayrıca şu mantığınızı anlamıyorum ben, hile mi bu fix yiyecek? Programlama dillerinde fix diye bir olay söz konusu değildir, her ne olursa olsun yazdığınız kodlar çalışmaya devam eder. Yanlızca müdahale ettiğiniz oyun vb. programın çalışmasını engelleyebilir.

Fix ten kastım resume procces ve suspend procces kodu hata veriyor onu demek istedim

 

[Shitric]

Fix ten kastım resume procces ve suspend procces kodu hata veriyor onu demek istedim

Gene hatalısın, bu kodları oyun fixleyemez. Kodları kullandığın program oyun korumasının 'Yasaklı Programlar' veritabanına eklendiyse fix olayı gerçekleşir. Kodlar hiçbir şekilde fix yemez.

 

[huhacixx21]

K

Gene hatalısın, bu kodları oyun fixleyemez. Kodları kullandığın program oyun korumasının 'Yasaklı Programlar' veritabanına eklendiyse fix olayı gerçekleşir. Kodlar hiçbir şekilde fix yemez.

Kodlar fix derken yanlış söylemişim daha önceden bu kodlar paylaşıldığında hatalı verilmişti eksik kod olduğu için resume kodları hata veriyordu sen sadece o kodları yazınca hatalı sandım

 

[ARTHUR48]

Dim game As Process() = Process.GetProcessByName("wolftü.bin")(0)

Bu değişken satırını ekle ve hata veren yerleri,

ResumeProcess(game)
SuspendProcess(game)

Olarak değiştir. Kodları aklımdan yazıyorum, hata varsa da basit bir hatadır sen düzeltirsin.

bu kodları ben şu şekilde eklemiştim, hata varmı burda bi bak bakalım, yanlış yere eklemedim herhalde ama:
Public Class Form1
<Runtime.InteropServices.DllImport("user32.dll")> _
Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
End Function

Dim game As Process() = Process.GetProcessesByName("wolftü.bin")

Private Sub HackerTheme1_Click(sender As System.Object, e As System.EventArgs) Handles HackerTheme1.Click
Try
Interaction.AppActivate("wolftü.bin")
Me.TopMost = True
Catch
Me.TopMost = True
End Try
System.Windows.Forms.Cursor.Hide()


SuspendProcess(game(0))
ResumeProcess(game(0))
End Sub

 

[Shitric]

bu kodları ben şu şekilde eklemiştim, hata varmı burda bi bak bakalım, yanlış yere eklemedim herhalde ama:
Public Class Form1
<Runtime.InteropServices.DllImport("user32.dll")> _
Public Shared Function GetAsyncKeyState(ByVal vKey As System.Windows.Forms.Keys) As Short
End Function

Dim game As Process() = Process.GetProcessesByName("wolftü.bin")

Private Sub HackerTheme1_Click(sender As System.Object, e As System.EventArgs) Handles HackerTheme1.Click
Try
Interaction.AppActivate("wolftü.bin")
Me.TopMost = True
Catch
Me.TopMost = True
End Try
System.Windows.Forms.Cursor.Hide()


SuspendProcess(game(0))
ResumeProcess(game(0))
End Sub

Kodlarda bir hata yok fakat sıralama yanlış, bu yapıyı benim yazdığım kodlarla değiştir.

 

[ARTHUR48]

değiştirdim ama 3 tane hata veriyor ve düzelmiyor ki

 

[dizoyen]

.NET İLE OLMAZ ki C++ Bilmen gerek

 

[ndngailesi]

.NET İLE OLMAZ ki C++ Bilmen gerek

katılıyorum aslında olur olurda güncel kodlar yok