help my hack premium

hi, I need help, because my hack is detected this is my code:

Module this:

Public Const notdetectedU = &H1F0FFF
Dim f1holder As Integer
Dim timer_pos As Long

'API Declaration
Public Declare Function notdetectedA Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function mamen Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function notdetectedB 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 notdetectedC Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function notdetectedD Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function notdetectedF Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function notdetectedG 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 Function notdetectedK(notdetectedQ As String, notdetectedR As Long, notdetectedS As Long) 'WriteALong
Dim notdetectedH As Long
Dim notdetectedI As Long
Dim notdetectedJ As Long
notdetectedH = notdetectedD(vbNullString, notdetectedQ)
If (notdetectedH = 0) Then
End
Exit Function
End If
notdetectedA notdetectedH, notdetectedI
notdetectedJ = mamen(notdetectedU, False, notdetectedI)
If (notdetectedJ = 0) Then
Exit Function
End If
notdetectedB notdetectedJ, notdetectedR, notdetectedS, 4, 0&
notdetectedC notdetectedV
End Function

Public Function notdetectedL(notdetectedQ As String, notdetectedR As Long, notdetectedT As Long) 'ReadALong
Dim notdetectedH As Long
Dim notdetectedI As Long
Dim notdetectedJ As Long
notdetectedH = notdetectedD(vbNullString, notdetectedQ)
If (notdetectedH = 0) Then
End
Exit Function
End If
notdetectedA notdetectedH, notdetectedI
notdetectedJ = mamen(notdetectedU, False, notdetectedI)
If (notdetectedJ = 0) Then
Exit Function
End If
notdetectedG notdetectedJ, notdetectedR, notdetectedT, 4, 0&
notdetectedC notdetectedV
End Function

Public Function notdetectedN(notdetectedQ As String, notdetectedR As Long, notdetectedT As Single) 'ReadAFloat
Dim notdetectedH As Long
Dim notdetectedI As Long
Dim notdetectedJ As Long
notdetectedH = notdetectedD(vbNullString, notdetectedQ)
If (notdetectedH = 0) Then
End
Exit Function
End If
notdetectedA notdetectedH, notdetectedI
notdetectedJ = mamen(notdetectedU, False, notdetectedI)
If (notdetectedJ = 0) Then
Exit Function
End If
notdetectedG notdetectedJ, notdetectedR, notdetectedT, 4, 0&
notdetectedC notdetectedV
End Function

Public Function notdetectedM(notdetectedQ As String, notdetectedR As Long, notdetectedS As Single) 'WriteAFloat
Dim notdetectedH As Long
Dim notdetectedI As Long
Dim notdetectedJ As Long
notdetectedH = notdetectedD(vbNullString, notdetectedQ)
If (notdetectedH = 0) Then
End
Exit Function
End If
notdetectedA notdetectedH, notdetectedI
notdetectedJ = mamen(notdetectedU, False, notdetectedI)
If (notdetectedJ = 0) Then
Exit Function
End If
notdetectedB notdetectedJ, notdetectedR, notdetectedS, 4, 0&
notdetectedC notdetectedV
End Function

Public Function notdetectedO(notdetectedQ As String, notdetectedR As Long, notdetectedS As Byte) 'WriteAByte
Dim notdetectedH As Long
Dim notdetectedI As Long
Dim notdetectedJ As Long
notdetectedH = notdetectedD(vbNullString, notdetectedQ)
If (notdetectedH = 0) Then
End
Exit Function
End If
notdetectedA notdetectedH, notdetectedI
notdetectedJ = mamen(notdetectedU, False, notdetectedI)
If (notdetectedJ = 0) Then
Exit Function
End If
notdetectedB notdetectedJ, notdetectedR, notdetectedS, 1, 0&
notdetectedC notdetectedV
End Function

Public Function notdetectedP(notdetectedQ As String, notdetectedR As Long, notdetectedT As Byte) 'ReadAByte
Dim notdetectedH As Long
Dim notdetectedI As Long
Dim notdetectedJ As Long
notdetectedH = notdetectedD(vbNullString, notdetectedQ)
If (notdetectedH = 0) Then
End
Exit Function
End If
notdetectedA notdetectedH, notdetectedI
notdetectedJ = mamen(notdetectedU, False, notdetectedI)
If (notdetectedJ = 0) Then
Exit Function
End If
notdetectedG notdetectedJ, notdetectedR, notdetectedT, 1, 0&
notdetectedC notdetectedV
End Function

and this is the Code hack:

Code:

If Check1.Value = 1 Then
Dim Premium As Long
    Dim Premium1 As Long
    Call notdetectedL("WarRock", &HBA2088, Premium)
    Premium1 = Premium + &H364
    Call notdetectedK("Warrock", Premium1, 3)
End If

lol...
without bypass premium hack is always detected 0min kicks

Module is not very good! Try it HGDFVJALKDJFHSGBVMNE

woow i didnt know that premium hacks exist can u give it public??

How is a good module pls

Originally Posted by xSmilex83

How is a good module pls

Undetected module:
http://www.mpgh.net/forum/33-visual_...er_v1_0_a.html
Bypass:
C++

BTW Don't vips have their own bypass?

First of all your not telling us if its VB6 or VB.NET
Second of all just because its detected doesnt mean its the code
Thirdly make a bypass...

is in vb6 pls help me

I jst made the instructions for u...make a damn fucking bypass...

Yeah, which is why im suprised this guy got fucking caught, probably doesnt know how to use it...

suckerrrrr...nubsssssssssssssssssss

first off al your coding is wriong it must be
Private Sub Check1_Click()
If Check1 = Checked Then
<here your coding>

(for 1 the numeber of your timer)

NFD Pointer , only change the addie and offset! ( btw value 3 = gold , value 2 = silver , value 1 = bronze )Lobby Pointer = b94bd8

* Moved to VB Section *

You guys suck
It doesn't work with NFD or i code NFD wrong.. But I don't think so...

This the code: (works, new addys included) Do not coppy and past this!) It won't work with your module

So you have to change it a little bit:P. I dont want all that copy and past noobs who think they can make a hack.

Code:

    Dim Prem1 As Long
    Dim Prem2 As Long
    Call ReadALong(&H4FE6EE, Prem1)
    Prem2 = Prem1 + &H364
    Call WriteALong(Prem2, 3)

Thank me if I helped you

Greets Wouter

Originally Posted by wouter11

You guys suck
It doesn't work with NFD or i code NFD wrong.. But I don't think so...

This the code: (works, new addys included) Do not coppy and past this!) It won't work with your module

So you have to change it a little bit:P. I dont want all that copy and past noobs who think they can make a hack.

Code:

    Dim Prem1 As Long
    Dim Prem2 As Long
    Call ReadALong(&H4FE6EE, Prem1)
    Prem2 = Prem1 + &H364
    Call WriteALong(Prem2, 3)

Thank me if I helped you

Greets Wouter

So if u jst change the strings it works? xD

help my hack premium

Similar Threads

Tags for this Thread