Как приложить приложение форм Windows к процессу .exe

Question

еще раз Мне нужна ваша помощь. Поверьте мне, я искал это десятки раз, но не мог найти много полезной информации.

Итак, идея этого проекта, который я делаю, заключается в том, чтобы приложить мое приложение форм Windows vb.net к игре под названием «встречное глобальное наступление», это не обман!

Мои намерения в основном некоторые полезные инструменты, которые я могу смотреть на время игры, такие как время и т.д ...

[Проблема] Я смотрел несколько видео, где это было сделано, но противно, что они привязали существующие процессы к их формам окон, например. Я увидел видеоролик, в котором парень приложил файл calc.exe к своему окну, и, как вы понимаете, я хочу наоборот, я хочу приложить свои формы окон к существующему приложению.

[Вещи я пытался] Так что я сделал, был скопировать его C# код, перевести его в vb.net и смешайте его вокруг, и я перепутался плохо: D

Когда я запускаю мой проект начинается по крайней мере 200 экземпляров каждого процесса (игра & приложение), и я должен перезагрузить компьютер, чтобы закрыть их: D

Imports System.Windows.Forms 
Imports System.Threading 
Imports System.Diagnostics 
Imports System.Runtime.InteropServices 

Partial Public Class CubicCheat 
    Inherits Form 
    Public Sub New() 
     InitializeComponent() 
    End Sub 

    <DllImport("USER32.DLL")> _ 
    Private Shared Function SetParent(hwc As IntPtr, hwp As IntPtr) As IntPtr 
    End Function 

    Private Sub CubicCheat_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
     HookCsgo() 
    End Sub 

    Function HookCsgo() 
     Dim csgo As Process = Process.Start("C:\Program Files (x86)\Steam\steamapps\common\Counter-Strike Global Offensive\csgo.exe") 
     Dim cubic As Process = Process.Start("C:\Users\redfa_000\Documents\Visual Studio 2012\Projects\C++ Projekter\Crazy Tutorials\CubicHook\CubicHook\bin\Debug\CubicHook.exe") 
     Thread.Sleep(500) 
     cubic.WaitForInputIdle() 
     SetParent(cubic.MainWindowHandle, csgo.Handle) 
     Dispose() 
    End Function 

End Class 

Answer 1

Я бы ожидать, что ваш код выглядеть следующим образом:

Dim csgo As Process 
    Dim csgoFileName As String = "C:\Program Files (x86)\Steam\steamapps\common\Counter-Strike Global Offensive\csgo.exe" 
    Dim csgoMatches As Process() = Process.GetProcessesByName(System.IO.Path.GetFileNameWithoutExtension(csgoFileName)) 
    If csgoMatches.Length = 0 Then 
     csgo = Process.Start(csgoFileName) 
     csgo.WaitForInputIdle() 
    Else 
     csgo = csgoMatches(0) 
    End If 

    Dim cubic As Process 
    Dim cubicFileName As String = "C:\Users\redfa_000\Documents\Visual Studio 2012\Projects\C++ Projekter\Crazy Tutorials\CubicHook\CubicHook\bin\Debug\CubicHook.exe" 
    Dim cubicMatches() As Process = Process.GetProcessesByName(System.IO.Path.GetFileNameWithoutExtension(cubicFileName)) 
    If cubicMatches.Length = 0 Then 
     cubic = Process.Start(cubicFileName) 
     cubic.WaitForInputIdle() 
    Else 
     cubic = cubicMatches(0) 
    End If 

    SetParent(cubic.MainWindowHandle, csgo.MainWindowHandle) 

Обратите внимание, что в вызове SetParent() мы используем MainWindowHandle в как мест. Вы не можете использовать Handle там, поскольку это означает что-то совершенно другое.