ReadProcessMemo ry (VB2005)

[Evolution445]

Hi all,

I got a problem with my code to check a game's chat position and write text to the game when a command is written by someone on the chat. I haven't figured out yet how to make it send keys to the gamewindow when it's not focussed, and WriteProcessMem ory, but that's for a later issue.

This is my current code:

Public Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Declare Auto Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Byte, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As IntPtr) As Integer
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As IntPtr
 
    Public Sub ReadChat(ByVal Command As String)
 
        Dim hwnd As Integer
        Dim hprocess As Integer
        Dim readprocess
        Dim chataddress As Integer
        Dim votesneeded As String = txtvotesneeded.Text
 
        If hwnd = FindWindow(vbNullString, Game1) = True Then
            chataddress = &H698726
        ElseIf hwnd = FindWindow(vbNullString, Game2) = True Then
            chataddress = &H685381
        Else
            MsgBox("Please Startup the game first before clicking the Start button", MsgBoxStyle.Critical, "Error!")
        End If
 
        On Error Resume Next
        MsgBox("Error #17 occured. Please ask for help at support forum.", MsgBoxStyle.Critical, "Error!")
 
        If hwnd >= 0 Then
            hprocess = OpenProcess(PROCESS_ALL_ACCESS, False, hwnd)
            readprocess = ReadProcessMemory(hprocess, ChatAddress, 78, 78, vbNullString)
            CloseHandle(hprocess)
        End If
 
        If readprocess = Command Then
            SendKeys.Send("{T}")
            Wait(100)
            SendKeys.Send("There are " & votesneeded & " more votes needed to skip map.")
            Wait(100)
            SendKeys.Send("{ENTER}")
        End If
 
    End Sub
 

The game consists of 2 different versions, that's why I want it to change the chataddress to suit each version.
I'm not sure if I done all this code the right way. The only error it gave me during runtime was something with "readproces s". A conversion from type String to type Double failed.

I hope someone can help me get this code right and help me taking any errors out which could prevent it from working perfect.

Thanks in advance !
Evolution445

[Killer42]

Um... what data type is readprocess supposed to be?

[Evolution445]

Um... what data type is readprocess supposed to be?

Dim readprocess
 
readprocess = ReadProcessMemory(hprocess, ChatAddress, 78, 78, vbNullString)
 

Would the problem be solved if I Dim readprocess as Double ?

[Killer42]

Would the problem be solved if I Dim readprocess as Double ?

I don't know, but it wouldn't hurt to try.

I guess the main questions to be answered would be...

• What data type does ReadProcessMemo ry() function return?
• What are the specific details of the error?
• Exactly where in the code does the error occur?

If this were VB6, I'd advise against calling a variable Command, since that's the name under which command-line parameters are retrieved. But in VB2005, I don't know how that works.

[hariharanmca]

I think this link will help you.

Write/ReadProcessMemo ry errors of 487 and 299

[Evolution445]

I don't know, but it wouldn't hurt to try.

I guess the main questions to be answered would be...

• What data type does ReadProcessMemo ry() function return?
• What are the specific details of the error?
• Exactly where in the code does the error occur?

If this were VB6, I'd advise against calling a variable Command, since that's the name under which command-line parameters are retrieved. But in VB2005, I don't know how that works.

ReadProcessMemo ry should only read the chat position and see if there's a specified word written by someone. I think it should only return either True or False.

I think this is how it should go, or what it suposes to do:
------------------
* Read the chataddress with ReadProcessMemo ry
* If "......." is written Then
* Respond using SendKeys
------------------

This is where the error occured:

        If readprocess = Command Then
            SendKeys.Send("{T}")
            Wait(100)
            SendKeys.Send("There are " & votesneeded & " more votes needed to skip map.")
            Wait(100)
            SendKeys.Send("{ENTER}")
        End If
 

I'm not sure if I done this right. Infact, I'm not sure about whole my code.
Any help is appreciated.