VB.NET ESP HACK Çalıştırma Sorunu

[KwanesTE]

Merhaba Arkadaşlar Ben Rules Of Survival Oyununun Hilesini Yapıyorum Trainerimin İçine C++ Kodlaması Bulunan ESP.exe dosyasını forma yükledim ama butona basınca çalışmasını istiyorum Ne Yaptıysam olmuyor bi yardım etseniz

İlgili Görseller

Bağlantıları görmek için lütfen Giriş Yap

 

[4RM4N]

Yardim iste kuruculardan

 

[LeftSpace]

önce dosyayı resources olarak ekleyip klasöre çıkarttıktan sonra çalıştırmalısın vb.net hakkında pek bilgim yok ama bildigim kadarıyla bu şekilde oluyor.

 

[Yukido]

VB.net için bende pek bilmiyorum ancak, C# için bu konuda kendim hazırladığım bir source dosyam var, orada ki resource'u değiştirip kullanabilirsin. Ama dediğim gibi C# için yapılıyor diye biliyorum bu olayı.

 

[iqnower]

kuruculara söle

 

[Yukido]

@KwanesTE Özel mesajdan sana bir video linki atıyorum, altında da source(kaynak dosyası)nın linki var. Onu indir visual studio'da aç sadece videoda gösterdiğim yere ESP.exeyi sürükleyip build et.

 

[ByLeonS]

Al Kardeşi Kodlar :

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.IO
Imports System.Diagnostics
Imports System.Threading
Imports System.Runtime.InteropServices

Namespace execalistir

    Public Partial Class Form1
        Inherits Form

        Public Sub New()
            InitializeComponent()
        End Sub

        <DllImport("user32.dll")>
        Private Shared Function SetParent(ByVal child As IntPtr, ByVal newParent As IntPtr) As IntPtr
        End Function

        <DllImport("user32.dll")>
        Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
        End Function

        <DllImport("user32.dll")>
        <MarshalAs(UnmanagedType.Bool)>
        Private Shared Function IsWindowVisible(ByVal hWnd As IntPtr) As Boolean
        End Function

        Private Const WM_SYSCOMMAND As Integer = 274

        Private Const SC_MAXIMIZE As Integer = 61488

        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim exeyolu As String = "calc.exe"
            Dim calistir As Process = Process.Start(exeyolu)
            While calistir.MainWindowHandle = IntPtr.Zero OrElse Not IsWindowVisible(calistir.MainWindowHandle)
                System.Threading.Thread.Sleep(10)
                calistir.Refresh()
            End While

            calistir.WaitForInputIdle()
            SetParent(calistir.MainWindowHandle, Me.panel1.Handle)
            SendMessage(calistir.MainWindowHandle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
        End Sub
    End Class
End Namespace

 

[KwanesTE]

önce dosyayı resources olarak ekleyip klasöre çıkarttıktan sonra çalıştırmalısın vb.net hakkında pek bilgim yok ama bildigim kadarıyla bu şekilde oluyor.

Hiç Birşey Anlamadım Böyle Projeler Var Sadece Bir Kod Lazım Eskiden Bende Biliyordum Ama Unuttum

 

[loadLo0t]

Hiç Birşey Anlamadım Böyle Projeler Var Sadece Bir Kod Lazım Eskiden Bende Biliyordum Ama Unuttum

Hmmm... anlaşılan sen hatırlayana kadar eski hilelere devam edicez ya da Dword yeni hile çıkarır sana iyi hatırlamalar kardeşim