A VB Question

The tradicional way to writeprocess is using api(kernel32), is there other way to writeprocess?



ThankFull

Whats wrong with traditional one?

Im trying to use the module to crate a trainer for Warrock and Gunbound(two in one), the game hide the process,i can get the pid, but i cant get the phandle(processhandle), i need other code to get phandle, or i new way to writerprocess, write from the pid and not from the Phandle.

now i use this code to get phandle
(phandle = openprocess(PROCESS_ALL_ACESS,False, pid)
but when the process hide, i cant get more.

Thankfull

I'm not 100% what you mean but you could try to modify this so it would serve your needs. I haven't tried it myself but here you go

Declare API's
[php]
Option Explicit

Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF 'Wait forever
Const WAIT_OBJECT_0 = 0 'The state of the specified object is signaled.
Const WAIT_TIMEOUT = &H102 'The time-out interval elapsed, and the object’s state is nonsignaled.

Private Declare Function OpenProcess Lib "kernel32" _
(ByVal dwDesiredAccess As Long, _
ByVal bInheritHandle As Long, _
ByVal dwProcessId As Long) _
As Long
Private Declare Function WaitForSingleObject Lib "kernel32" _
(ByVal hHandle As Long, _
ByVal dwMilliseconds As Long) _
As Long
Private Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) _
As Long

Dim ProcessID As Long
Dim hProcess As Long
[/php]

Example of a function that executes a command:

[php]
Function ShellWait(CommandLine As String, _
TimeOut As Long, _
WindowState As VbAppWinStyle) As Boolean

Dim ProcessID As Long
Dim hProcess As Long

ProcessID = Shell(CommandLine,WindowState)
If ProcessID <> 0 Then
'non-zero (True) so Shell worked
' Get a process handle for the PID (Wait takes a handle)
hProcess = OpenProcess(SYNCHRONIZE, False, ProcessID)
If hProcess <> 0 Then
' Got process handle
' Wait until process finishes before going on
If WaitForSingleObject(hProcess, TimeOut) = WAIT_OBJECT_0 Then
ShellWait = True
Else
ShellWait = False
End If
Else
'Failed to get process handle.
'Perhaps the process terminated very quickly
'or it might not really have executed at all even though Windows
' started a process.
ShellWait = False
End If
Else
' PID zero (False) so Shell failed
ShellWait = False
End If
End Function
[/php]

Call it:
[php]
If ShellWait("warrock.exe") then

Else

End If
[/php]

As I said, it may not be any help but it's worth of trying (I guess)