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

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Shitric

Cehalet Mutluluktur
Süper Üye
Katılım
5 Mar 2016
Mesajlar
1,345
Çözümler
1
Tepki puanı
359
Ödüller
10
10 HİZMET YILI
ARTHUR48' Alıntı:
yine de alta alıyor kardeşim be, başka ne yapabilirim
Genişletmek için tıklayın ...

Ö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;

VB.Net: 
    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

H
Düşüncelerimle Beni Başbaşka Bırakın
Banlı Üye
Katılım
22 Kas 2018
Mesajlar
98
Tepki puanı
18
Yaş
25
7 HİZMET YILI
bu kod fix ti galiba
 

ARTHUR48

Seçkin Üye
Katılım
16 Ara 2015
Mesajlar
427
Tepki puanı
94
Ödüller
11
10 HİZMET YILI
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

Seçkin Üye
Katılım
16 Ara 2015
Mesajlar
427
Tepki puanı
94
Ödüller
11
10 HİZMET YILI
@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

Cehalet Mutluluktur
Süper Üye
Katılım
5 Mar 2016
Mesajlar
1,345
Çözümler
1
Tepki puanı
359
Ödüller
10
10 HİZMET YILI
VB.Net: 
Dim game As Process() = Process.GetProcessByName("wolftü.bin")(0)

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

VB.Net: 
ResumeProcess(game)
SuspendProcess(game)

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

Shitric

Cehalet Mutluluktur
Süper Üye
Katılım
5 Mar 2016
Mesajlar
1,345
Çözümler
1
Tepki puanı
359
Ödüller
10
10 HİZMET YILI
huhacixx21' Alıntı:
bu kod fix ti galiba
Genişletmek için tıklayın ...

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

H
Düşüncelerimle Beni Başbaşka Bırakın
Banlı Üye
Katılım
22 Kas 2018
Mesajlar
98
Tepki puanı
18
Yaş
25
7 HİZMET YILI
Fix ten kastım resume procces ve suspend procces kodu hata veriyor onu demek istedim
 

Shitric

Cehalet Mutluluktur
Süper Üye
Katılım
5 Mar 2016
Mesajlar
1,345
Çözümler
1
Tepki puanı
359
Ödüller
10
10 HİZMET YILI
huhacixx21' Alıntı:
Fix ten kastım resume procces ve suspend procces kodu hata veriyor onu demek istedim
Genişletmek için tıklayın ...
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

H
Düşüncelerimle Beni Başbaşka Bırakın
Banlı Üye
Katılım
22 Kas 2018
Mesajlar
98
Tepki puanı
18
Yaş
25
7 HİZMET YILI
K
Shitric' Alıntı:
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.
Genişletmek için tıklayın ...
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

Seçkin Üye
Katılım
16 Ara 2015
Mesajlar
427
Tepki puanı
94
Ödüller
11
10 HİZMET YILI

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

Cehalet Mutluluktur
Süper Üye
Katılım
5 Mar 2016
Mesajlar
1,345
Çözümler
1
Tepki puanı
359
Ödüller
10
10 HİZMET YILI

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

ARTHUR48

Seçkin Üye
Katılım
16 Ara 2015
Mesajlar
427
Tepki puanı
94
Ödüller
11
10 HİZMET YILI
değiştirdim ama 3 tane hata veriyor ve düzelmiyor ki
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Menü
Giriş Yap
Kayıt Ol