Results 1 to 4 of 4
  1. #1
    nub_g0t_high's Avatar
    Join Date
    Aug 2007
    Location
    How the fuck should i know?
    Posts
    242
    Reputation
    10
    Thanks
    15

    wats wrong with this?

    this code won't compile. and will this work on the updated warrock?

    Code:

    Dim f1holder As Integer
    Dim timer_pos As Long
    'API Declaration

    Public Declare Function D8A681DE Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwID As Long) As Long
    Public Declare Function B99B9EEF Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwID As Long) As Long
    Public Declare Function DBE400D1 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    Public Declare Function AE3F95B9 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
    Public Declare Function F1B2AAF1 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
    Public Declare Function D80555F3 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    Public Declare Function E6FE487C Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

    'WriteALong
    Public Function E2BE9DB7(AC1DD600 As Long, EA69628F As Long)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long

    B8AE2B13 = F1B2AAF1(vbNullString, "WarRock")

    If (B8AE2B13 = 0) Then
    Exit Function
    End If

    D8A681DE B8AE2B13, A4EF8B4D

    A199DFD1 = B99B9EEF(&H1F0FFF, False, A4EF8B4D)

    If (A199DFD1 = 0) Then
    Exit Function
    End If

    DBE400D1 A199DFD1, AC1DD600, EA69628F, 4, 0&

    AE3F95B9 A199DFD1
    End Function

    'WriteAByte
    Public Function CB21D5D8(AC1DD600 As Long, EA69628F As Byte)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long

    B8AE2B13 = F1B2AAF1(vbNullString, "WarRock")

    If (B8AE2B13 = 0) Then
    Exit Function
    End If

    D8A681DE B8AE2B13, A4EF8B4D

    A199DFD1 = B99B9EEF(&H1F0FFF, False, A4EF8B4D)

    If (A199DFD1 = 0) Then
    Exit Function
    End If

    DBE400D1 A199DFD1, AC1DD600, EA69628F, 1, 0&

    AE3F95B9 A199DFD1
    End Function

    'WriteAFloat
    Public Function A55D798B(AC1DD600 As Long, EA69628F As Double)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long

    B8AE2B13 = F1B2AAF1(vbNullString, "WarRock")

    If (B8AE2B13 = 0) Then
    Exit Function
    End If

    D8A681DE B8AE2B13, A4EF8B4D

    A199DFD1 = B99B9EEF(&H1F0FFF, False, A4EF8B4D)

    If (A199DFD1 = 0) Then
    Exit Function
    End If

    DBE400D1 A199DFD1, AC1DD600, EA69628F, 4, 0&

    AE3F95B9 A199DFD1
    End Function

    'ReadALong
    Public Function C2646E6D(AC1DD600 As Long, EA69628F As Long)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long

    B8AE2B13 = F1B2AAF1(vbNullString, "WarRock")

    If (B8AE2B13 = 0) Then
    Exit Function
    End If

    D8A681DE B8AE2B13, A4EF8B4D

    A199DFD1 = B99B9EEF(&H1F0FFF, False, A4EF8B4D)

    If (A199DFD1 = 0) Then
    Exit Function
    End If

    D80555F3 A199DFD1, AC1DD600, EA69628F, 4, 0&

    AE3F95B9 A199DFD1
    End Function

    'ReadAByte
    Public Function A4D2B04C(AC1DD600 As Long, EA69628F As Byte)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long

    B8AE2B13 = F1B2AAF1(vbNullString, "WarRock")

    If (B8AE2B13 = 0) Then
    Exit Function
    End If

    D8A681DE B8AE2B13, A4EF8B4D

    A199DFD1 = B99B9EEF(&H1F0FFF, False, A4EF8B4D)

    If (A199DFD1 = 0) Then
    Exit Function
    End If

    D80555F3 A199DFD1, AC1DD600, EA69628F, 1, 0&

    AE3F95B9 A199DFD1
    End Function

    'ReadAFloat
    Public Function D298A93C(AC1DD600 As Long, EA69628F As Double)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long

    B8AE2B13 = F1B2AAF1(vbNullString, "WarRock")

    If (B8AE2B13 = 0) Then
    Exit Function
    End If

    D8A681DE B8AE2B13, A4EF8B4D

    A199DFD1 = B99B9EEF(&H1F0FFF, False, A4EF8B4D)

    If (A199DFD1 = 0) Then
    Exit Function
    End If

    D80555F3 A199DFD1, AC1DD600, EA69628F, 4, 0&

    AE3F95B9 A199DFD1
    End Function

    'WriteASM
    Public Function A2E8481F(Address As Long, ASM As String)
    Dim i As Integer
    Dim i2 As Integer

    i2 = 1
    While i < (Len(ASM) / 2)
    Call CB21D5D8(Address + i, &H0, Val("&H" & Mid$(" & ASM & ", i2, 2)))
    i = i + 1
    i2 = i2 + 2
    Wend
    End Function

  2. #2
    sukh13's Avatar
    Join Date
    Aug 2007
    Gender
    male
    Posts
    64
    Reputation
    10
    Thanks
    7
    hmm i think u puting wrong address thats y

  3. #3
    kizzyy's Avatar
    Join Date
    Oct 2007
    Gender
    male
    Posts
    8
    Reputation
    10
    Thanks
    0
    Quote Originally Posted by nub_g0t_high View Post
    this code won't compile. and will this work on the updated warrock?

    Code:

    Dim f1holder As Integer
    Dim timer_pos As Long
    'API Declaration

    Public Declare Function D8A681DE Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwID As Long) As Long
    Public Declare Function B99B9EEF Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwID As Long) As Long
    Public Declare Function DBE400D1 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    Public Declare Function AE3F95B9 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
    Public Declare Function F1B2AAF1 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
    Public Declare Function D80555F3 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    Public Declare Function E6FE487C Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

    'WriteALong
    Public Function E2BE9DB7(AC1DD600 As Long, EA69628F As Long)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long

    B8AE2B13 = F1B2AAF1(vbNullString, "WarRock")

    If (B8AE2B13 = 0) Then
    Exit Function
    End If

    D8A681DE B8AE2B13, A4EF8B4D

    A199DFD1 = B99B9EEF(&H1F0FFF, False, A4EF8B4D)

    If (A199DFD1 = 0) Then
    Exit Function
    End If

    DBE400D1 A199DFD1, AC1DD600, EA69628F, 4, 0&

    AE3F95B9 A199DFD1
    End Function

    'WriteAByte
    Public Function CB21D5D8(AC1DD600 As Long, EA69628F As Byte)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long

    B8AE2B13 = F1B2AAF1(vbNullString, "WarRock")

    If (B8AE2B13 = 0) Then
    Exit Function
    End If

    D8A681DE B8AE2B13, A4EF8B4D

    A199DFD1 = B99B9EEF(&H1F0FFF, False, A4EF8B4D)

    If (A199DFD1 = 0) Then
    Exit Function
    End If

    DBE400D1 A199DFD1, AC1DD600, EA69628F, 1, 0&

    AE3F95B9 A199DFD1
    End Function

    'WriteAFloat
    Public Function A55D798B(AC1DD600 As Long, EA69628F As Double)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long

    B8AE2B13 = F1B2AAF1(vbNullString, "WarRock")

    If (B8AE2B13 = 0) Then
    Exit Function
    End If

    D8A681DE B8AE2B13, A4EF8B4D

    A199DFD1 = B99B9EEF(&H1F0FFF, False, A4EF8B4D)

    If (A199DFD1 = 0) Then
    Exit Function
    End If

    DBE400D1 A199DFD1, AC1DD600, EA69628F, 4, 0&

    AE3F95B9 A199DFD1
    End Function

    'ReadALong
    Public Function C2646E6D(AC1DD600 As Long, EA69628F As Long)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long

    B8AE2B13 = F1B2AAF1(vbNullString, "WarRock")

    If (B8AE2B13 = 0) Then
    Exit Function
    End If

    D8A681DE B8AE2B13, A4EF8B4D

    A199DFD1 = B99B9EEF(&H1F0FFF, False, A4EF8B4D)

    If (A199DFD1 = 0) Then
    Exit Function
    End If

    D80555F3 A199DFD1, AC1DD600, EA69628F, 4, 0&

    AE3F95B9 A199DFD1
    End Function

    'ReadAByte
    Public Function A4D2B04C(AC1DD600 As Long, EA69628F As Byte)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long

    B8AE2B13 = F1B2AAF1(vbNullString, "WarRock")

    If (B8AE2B13 = 0) Then
    Exit Function
    End If

    D8A681DE B8AE2B13, A4EF8B4D

    A199DFD1 = B99B9EEF(&H1F0FFF, False, A4EF8B4D)

    If (A199DFD1 = 0) Then
    Exit Function
    End If

    D80555F3 A199DFD1, AC1DD600, EA69628F, 1, 0&

    AE3F95B9 A199DFD1
    End Function

    'ReadAFloat
    Public Function D298A93C(AC1DD600 As Long, EA69628F As Double)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long

    B8AE2B13 = F1B2AAF1(vbNullString, "WarRock")

    If (B8AE2B13 = 0) Then
    Exit Function
    End If

    D8A681DE B8AE2B13, A4EF8B4D

    A199DFD1 = B99B9EEF(&H1F0FFF, False, A4EF8B4D)

    If (A199DFD1 = 0) Then
    Exit Function
    End If

    D80555F3 A199DFD1, AC1DD600, EA69628F, 4, 0&

    AE3F95B9 A199DFD1
    End Function

    'WriteASM
    Public Function A2E8481F(Address As Long, ASM As String)
    Dim i As Integer
    Dim i2 As Integer

    i2 = 1
    While i < (Len(ASM) / 2)
    Call CB21D5D8(Address + i, &H0, Val("&H" & Mid$(" & ASM & ", i2, 2)))
    i = i + 1
    i2 = i2 + 2
    Wend
    End Function
    ummmmm.. if this is ur module then you diod this wrong i saw that you ahd this
    'WriteALong
    Public Function E2BE9DB7(AC1DD600 As Long, EA69628F As Long)
    Dim B8AE2B13 As Long
    Dim A199DFD1 As Long
    Dim A4EF8B4D As Long
    the E2BE9DB7
    should be replaced with your Writealong in ur hack codes
    Like is sed.. if this is your module.

  4. #4
    radnomguywfq3's Avatar
    Join Date
    Jan 2007
    Gender
    male
    Location
    J:\E\T\A\M\A\Y.exe
    Posts
    8,858
    Reputation
    381
    Thanks
    1,823
    My Mood
    Sad
    This module was obviously Generated by a computer application, they commenly make mistake when the programmer is programmnig the code, they often forget simple things because the debugger does not apply to thing in quotes.



    There are two types of tragedies in life. One is not getting what you want, the other is getting it.

    If you wake up at a different time in a different place, could you wake up as a different person?


Similar Threads

  1. Wats wrong with this?
    By scorpoistak in forum Combat Arms Hack Coding / Programming / Source Code
    Replies: 15
    Last Post: 07-11-2010, 04:16 AM
  2. Whats wrong with this code ?
    By bohnenbong in forum WarRock - International Hacks
    Replies: 7
    Last Post: 10-26-2007, 06:57 AM
  3. whats wrong with this...
    By NetNavi in forum WarRock - International Hacks
    Replies: 6
    Last Post: 09-03-2007, 01:19 AM
  4. what is wrong with this source?
    By Petros in forum C++/C Programming
    Replies: 6
    Last Post: 07-04-2007, 04:33 PM
  5. wats wrong with this weapon code
    By CHECK2PASS in forum WarRock - International Hacks
    Replies: 3
    Last Post: 07-03-2007, 04:38 AM