Results 1 to 13 of 13
  1. #1
    kmanev073's Avatar
    Join Date
    Feb 2011
    Gender
    male
    Location
    Bulgaria
    Posts
    2,400
    Reputation
    97
    Thanks
    2,537
    My Mood
    Cool

    Code is written but can't fix errors pls help

    THIS IS VB !!!!!!

    Public Const PROCESS_VM_READ = &H10
    Public Const PROCESS_VM_WRITE = (&H20)
    Public Const PROCESS_VM_OPERATION = (&H8)
    Public Const PROCESS_QUERY_INFORMATION = (&H400)
    Public Const PROCESS_READ_WRITE_QUERY = PROCESS_VM_READ + PROCESS_VM_WRITE + PROCESS_VM_OPERATION + PROCESS_QUERY_INFORMATION
    Public Const PROCESS_ALL_ACCESS = &H1F0FFF
    Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByVal lpNumberOfBytesWritten As Int32) As Long
    Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Byte(), ByVal nSize As Int32, ByVal lpNumberOfBytesWritten As Int32) As Long
    Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Int32, ByVal lpBuffer() As Byte, ByVal nSize As Int32, ByVal lpNumberOfBytesWritten As Int32) As Long
    Public Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As UInteger, ByVal bInheritHandle As Integer, ByVal dwProcessId As UInteger) As IntPtr
    Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean
    Public Function Game_Hwnd() As Int32
    Dim i As Int32 : Dim foundit As Boolean = False
    For Each p As Process In Process.GetProcessesByName("Crossfire") ' Replace that with the games window text
    i = p.Id
    foundit = True : Exit For
    Next
    If foundit = True Then
    Return i
    Else
    Return 0
    End If
    End Function

    #Region "Memory reading/Writing"
    Private Sub Label9_Click(ByVal Address As Integer, ByVal Value As Integer, ByVal Size As Integer, ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click
    Try
    Dim GameReadWrite As Integer
    Dim PID As Integer = Game_Hwnd()
    GameReadWrite = OpenProcess(PROCESS_READ_WRITE_QUERY, False, PID)

    Dim bytArray() As Byte
    bytArray = BitConverter.GetBytes(Value)
    WriteProcessMemory(GameReadWrite, Address, bytArray, Size, 0)

    CloseHandle(GameReadWrite)
    Catch Ex As Exception
    'ShowError(Ex)
    End Try
    End Sub
    #End Region



    and the error is :Error 1 Method 'Private Sub Label9_Click(Address As Integer, Value As Integer, Size As Integer, sender As Object, e As System.EventArgs)' cannot handle event 'Public Event Click(sender As Object, e As System.EventArgs)' because they do not have a compatible signature. C:\Documents and Settings\Antonia\my documents\visual studio 2010\Projects\CF_ShArKs CrossFire NA Mega Hack\CF_ShArKs CrossFire NA Mega Hack\Form3.vb 42 178 CF_ShArKs CrossFire NA Mega Hack

    pls help

  2. #2
    giniyat101's Avatar
    Join Date
    Sep 2011
    Gender
    male
    Location
    Not telling.
    Posts
    1,935
    Reputation
    130
    Thanks
    1,380
    My Mood
    Dead
    warp [code] tags plz..
    @kmanev073


     



    [img]https://i43.photobucke*****m/albums/e367/DeteSting/Steam-update.gif[/img]

  3. #3
    kmanev073's Avatar
    Join Date
    Feb 2011
    Gender
    male
    Location
    Bulgaria
    Posts
    2,400
    Reputation
    97
    Thanks
    2,537
    My Mood
    Cool
    @giniyat101 what ?

  4. #4
    Fly3r's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Location
    Not telling.
    Posts
    720
    Reputation
    18
    Thanks
    265
    My Mood
    Paranoid
    @giniyat101 means to make it like
    Code:
     this
    @kmanev073
    Joined MPGH: 07/08/09


    i used to tell arrow to the knee jokes then i died due to blood loss from takeing tomany arrows to the knee at once
    A network problem caused by you? What did you do? Trip over the cable?




  5. #5
    CrossRaiders's Avatar
    Join Date
    May 2009
    Gender
    male
    Posts
    1,586
    Reputation
    29
    Thanks
    1,214
    This?

    Code:
    Public Const PROCESS_VM_READ = &H10
     Public Const PROCESS_VM_WRITE = (&H20)
     Public Const PROCESS_VM_OPERATION = (&H8)
     Public Const PROCESS_QUERY_INFORMATION = (&H400)
     Public Const PROCESS_READ_WRITE_QUERY = PROCESS_VM_READ + PROCESS_VM_WRITE + PROCESS_VM_OPERATION + PROCESS_QUERY_INFORMATION
     Public Const PROCESS_ALL_ACCESS = &H1F0FFF
     Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByVal lpNumberOfBytesWritten As Int32) As Long
     Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Byte(), ByVal nSize As Int32, ByVal lpNumberOfBytesWritten As Int32) As Long
     Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Int32, ByVal lpBuffer() As Byte, ByVal nSize As Int32, ByVal lpNumberOfBytesWritten As Int32) As Long
     Public Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As UInteger, ByVal bInheritHandle As Integer, ByVal dwProcessId As UInteger) As IntPtr
     Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean
     Public Function Game_Hwnd() As Int32
     Dim i As Int32 : Dim foundit As Boolean = False
     For Each p As Process In Process.GetProcessesByName("Crossfire") ' Replace that with the games window text
     i = p.Id
     foundit = True : Exit For
     Next
     If foundit = True Then
     Return i
     Else
     Return 0
     End If
     End Function
    
     
    #Region "Memory reading/Writing"
     Private Sub Label9_Click(ByVal Address As Integer, ByVal Value As Integer, ByVal Size As Integer, ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click
     Try
     Dim GameReadWrite As Integer
     Dim PID As Integer = Game_Hwnd()
     GameReadWrite = OpenProcess(PROCESS_READ_WRITE_QUERY, False, PID)
    
     
    Dim bytArray() As Byte
     bytArray = BitConverter.GetBytes(Value)
     WriteProcessMemory(GameReadWrite, Address, bytArray, Size, 0)
    
     
    CloseHandle(GameReadWrite)
     Catch Ex As Exception
     'ShowError(Ex)
     End Try
     End Sub
     #End Region

  6. #6
    kmanev073's Avatar
    Join Date
    Feb 2011
    Gender
    male
    Location
    Bulgaria
    Posts
    2,400
    Reputation
    97
    Thanks
    2,537
    My Mood
    Cool
    @giniyat101 aaa ok but why

  7. #7
    kmanev073's Avatar
    Join Date
    Feb 2011
    Gender
    male
    Location
    Bulgaria
    Posts
    2,400
    Reputation
    97
    Thanks
    2,537
    My Mood
    Cool
    i cant edit anymore so i will leave it

  8. #8
    Fly3r's Avatar
    Join Date
    Jul 2009
    Gender
    male
    Location
    Not telling.
    Posts
    720
    Reputation
    18
    Thanks
    265
    My Mood
    Paranoid
    he told you to make it like abel did to be easily readable
    Joined MPGH: 07/08/09


    i used to tell arrow to the knee jokes then i died due to blood loss from takeing tomany arrows to the knee at once
    A network problem caused by you? What did you do? Trip over the cable?




  9. The Following User Says Thank You to Fly3r For This Useful Post:

    giniyat101 (10-30-2011)

  10. #9
    Ryuesi's Avatar
    Join Date
    Jun 2011
    Gender
    male
    Location
    Right here.
    Posts
    7,339
    Reputation
    413
    Thanks
    2,397
    My Mood
    Relaxed
    I'm do not know VB so i can not help you , but ask @Code[VB] he can help you





    Contributor Since 24-11-2011 ~ 26-12-2011
    VM / PM




  11. #10
    giniyat101's Avatar
    Join Date
    Sep 2011
    Gender
    male
    Location
    Not telling.
    Posts
    1,935
    Reputation
    130
    Thanks
    1,380
    My Mood
    Dead
    Quote Originally Posted by Takrai View Post
    I'm do not know VB so i can not help you , but ask @Code[VB] he can help you
    Stop spamming plz

    @kmanev073
    try copying the data between private sub ....... etc and end sub
    then delete this part and double click on the label again to see if there is mistakes...


     



    [img]https://i43.photobucke*****m/albums/e367/DeteSting/Steam-update.gif[/img]

  12. #11
    kmanev073's Avatar
    Join Date
    Feb 2011
    Gender
    male
    Location
    Bulgaria
    Posts
    2,400
    Reputation
    97
    Thanks
    2,537
    My Mood
    Cool
    @giniyat101 i tried but it wnat declarations that i can only declare in the private sub so i write this topic

  13. #12
    giniyat101's Avatar
    Join Date
    Sep 2011
    Gender
    male
    Location
    Not telling.
    Posts
    1,935
    Reputation
    130
    Thanks
    1,380
    My Mood
    Dead
    @kmanev073
    the error on this line:
    Code:
    Private Sub Label9_Click(Address As Integer, Value As Integer, Size As Integer, sender As Object, e As System.EventArgs)
    change to:
    Code:
    Private Sub Label9_Click(sender As Object, e As System.EventArgs
    done!


     



    [img]https://i43.photobucke*****m/albums/e367/DeteSting/Steam-update.gif[/img]

  14. #13
    kmanev073's Avatar
    Join Date
    Feb 2011
    Gender
    male
    Location
    Bulgaria
    Posts
    2,400
    Reputation
    97
    Thanks
    2,537
    My Mood
    Cool
    yea but in that way i can define the value and these this make other mistakes

Similar Threads

  1. hotkey error - pls help
    By /b/oss in forum Visual Basic Programming
    Replies: 14
    Last Post: 06-01-2010, 07:46 AM
  2. [Help] i can't find playerpointer... pls help
    By kjn220 in forum WarRock Discussions
    Replies: 4
    Last Post: 02-23-2010, 07:12 PM
  3. [Help] ERROR PLS HELP
    By JohnAntony in forum Sudden Attack General
    Replies: 4
    Last Post: 02-08-2010, 07:29 PM
  4. Cod4 Jaegerbomb Aimbot + more hack Error pls help!
    By bigdadyc in forum Call of Duty 4 - Modern Warfare (MW) Hacks
    Replies: 5
    Last Post: 05-05-2009, 02:47 PM
  5. Korean warrock error ! pls help me!
    By TheDark in forum WarRock Korea Hacks
    Replies: 1
    Last Post: 10-11-2007, 11:39 PM