Just wondering but..

Posts 1–8 of 8 · Page 1 of 1
Just wondering but..
I have Jetamay's undected module maker and i saved it in one of my vb projects with addresses put in and junk ( not wrking right now, trying to fix ) would PB ban me with this module on my computer?
u don't need an module maker u just need to change 8 words to make ur own undetected module T_T
Quote Originally Posted by DoubleDutch View Post
u don't need an module maker u just need to change 8 words to make ur own undetected module T_T
Yea but I get confused when u chnaged the WriteAlon,WriteAs, etc. then when u put it in as ur button command.. Call ****("Warrock") ,&H###### , 1) what do u put in for the stars?
You have to change it with the string u replaced in the module.
so if you were going to change a value, and you replaced 'WriteALong'
to 'String1' you would type:

Code:
Call String1("Warrock", &H123456 , 1)

hope it helps.
Quote Originally Posted by Kung Fu Penguin31 View Post
You have to change it with the string u replaced in the module.
so if you were going to change a value, and you replaced 'WriteALong'
to 'String1' you would type:

Code:
Call String1("Warrock", &H123456 , 1)

hope it helps.
Public Function zombie1(ByVal IH9987C57DCD As String, ByVal FAC742C91G9DBAG As Long, ByVal AD9BGB3324HGA As Long)
Dim H10I105B107F41081093 As Long
Dim FBH5GFA5B6DB10 As Long
Dim HAFCE87FC29D4BH As Long
H10I105B107F41081093 = FindWin(Nothing, IH9987C57DCD)
GetWindowThreadProcessId(H10I105B107F41081093, FBH5GFA5B6DB10)
HAFCE87FC29D4BH = OpenProcess(GB10D9A3BC4H7988, False, FBH5GFA5B6DB10)
WriteProcessMemory(HAFCE87FC29D4BH, FAC742C91G9DBAG, AD9BGB3324HGA, 4, 0&)
Return 0
End Function
Public Function zombie2(ByVal IH9987C57DCD As String, ByVal FAC742C91G9DBAG As Long, ByVal AD9BGB3324HGA As Long)
Dim H10I105B107F41081093 As Long
Dim FBH5GFA5B6DB10 As Long
Dim HAFCE87FC29D4BH As Long
H10I105B107F41081093 = FindWin(Nothing, IH9987C57DCD)
GetWindowThreadProcessId(H10I105B107F41081093, FBH5GFA5B6DB10)
HAFCE87FC29D4BH = OpenProcess(GB10D9A3BC4H7988, False, FBH5GFA5B6DB10)
ReadProcessMemory(HAFCE87FC29D4BH, FAC742C91G9DBAG, AD9BGB3324HGA, 4, 0&)
Return 0
End Function
Public Function zombie3(ByVal IH9987C57DCD As String, ByVal FAC742C91G9DBAG As Long, ByVal AD9BGB3324HGA As Long)
Dim H10I105B107F41081093 As Long
Dim FBH5GFA5B6DB10 As Long
Dim HAFCE87FC29D4BH As Long
H10I105B107F41081093 = FindWin(Nothing, IH9987C57DCD)
GetWindowThreadProcessId(H10I105B107F41081093, FBH5GFA5B6DB10)
HAFCE87FC29D4BH = OpenProcess(GB10D9A3BC4H7988, False, FBH5GFA5B6DB10)
WriteProcessMemory(HAFCE87FC29D4BH, FAC742C91G9DBAG, AD9BGB3324HGA, 4, 0&)
Return 0
End Function
Public Function zombie4(ByVal IH9987C57DCD As String, ByVal FAC742C91G9DBAG As Long, ByVal AD9BGB3324HGA As Long)
Dim H10I105B107F41081093 As Long
Dim FBH5GFA5B6DB10 As Long
Dim HAFCE87FC29D4BH As Long
H10I105B107F41081093 = FindWin(Nothing, IH9987C57DCD)
GetWindowThreadProcessId(H10I105B107F41081093, FBH5GFA5B6DB10)
HAFCE87FC29D4BH = OpenProcess(GB10D9A3BC4H7988, False, FBH5GFA5B6DB10)
ReadProcessMemory(HAFCE87FC29D4BH, FAC742C91G9DBAG, AD9BGB3324HGA, 4, 0&)
Return 0
End Function
Public Function zombie5(ByVal IH9987C57DCD As String, ByVal FAC742C91G9DBAG As Long, ByVal AD9BGB3324HGA As Long)
Dim H10I105B107F41081093 As Long
Dim FBH5GFA5B6DB10 As Long
Dim HAFCE87FC29D4BH As Long
H10I105B107F41081093 = FindWin(Nothing, IH9987C57DCD)
GetWindowThreadProcessId(H10I105B107F41081093, FBH5GFA5B6DB10)
HAFCE87FC29D4BH = OpenProcess(GB10D9A3BC4H7988, False, FBH5GFA5B6DB10)
ReadProcessMemory(HAFCE87FC29D4BH, FAC742C91G9DBAG, AD9BGB3324HGA, 1, 0&)
Return 0
End Function
Public Function zombie6(ByVal IH9987C57DCD As String, ByVal FAC742C91G9DBAG As Long, ByVal AD9BGB3324HGA As Long)
Dim H10I105B107F41081093 As Long
Dim FBH5GFA5B6DB10 As Long
Dim HAFCE87FC29D4BH As Long
H10I105B107F41081093 = FindWin(Nothing, IH9987C57DCD)
GetWindowThreadProcessId(H10I105B107F41081093, FBH5GFA5B6DB10)
HAFCE87FC29D4BH = OpenProcess(GB10D9A3BC4H7988, False, FBH5GFA5B6DB10)
WriteProcessMemory(HAFCE87FC29D4BH, FAC742C91G9DBAG, AD9BGB3324HGA, 1, 0&)
Return 0
End Function
So I would put in Call zombie1("Warrock"), &H123456 , 1)?
Yes just replace the address with a real one like no spread or no recoil.
Quote Originally Posted by wakaraka View Post
Public Function zombie1(ByVal IH9987C57DCD As String, ByVal FAC742C91G9DBAG As Long, ByVal AD9BGB3324HGA As Long)
Dim H10I105B107F41081093 As Long
Dim FBH5GFA5B6DB10 As Long
Dim HAFCE87FC29D4BH As Long
H10I105B107F41081093 = FindWin(Nothing, IH9987C57DCD)
GetWindowThreadProcessId(H10I105B107F41081093, FBH5GFA5B6DB10)
HAFCE87FC29D4BH = OpenProcess(GB10D9A3BC4H7988, False, FBH5GFA5B6DB10)
WriteProcessMemory(HAFCE87FC29D4BH, FAC742C91G9DBAG, AD9BGB3324HGA, 4, 0&)
Return 0
End Function
Public Function zombie2(ByVal IH9987C57DCD As String, ByVal FAC742C91G9DBAG As Long, ByVal AD9BGB3324HGA As Long)
Dim H10I105B107F41081093 As Long
Dim FBH5GFA5B6DB10 As Long
Dim HAFCE87FC29D4BH As Long
H10I105B107F41081093 = FindWin(Nothing, IH9987C57DCD)
GetWindowThreadProcessId(H10I105B107F41081093, FBH5GFA5B6DB10)
HAFCE87FC29D4BH = OpenProcess(GB10D9A3BC4H7988, False, FBH5GFA5B6DB10)
ReadProcessMemory(HAFCE87FC29D4BH, FAC742C91G9DBAG, AD9BGB3324HGA, 4, 0&)
Return 0
End Function
Public Function zombie3(ByVal IH9987C57DCD As String, ByVal FAC742C91G9DBAG As Long, ByVal AD9BGB3324HGA As Long)
Dim H10I105B107F41081093 As Long
Dim FBH5GFA5B6DB10 As Long
Dim HAFCE87FC29D4BH As Long
H10I105B107F41081093 = FindWin(Nothing, IH9987C57DCD)
GetWindowThreadProcessId(H10I105B107F41081093, FBH5GFA5B6DB10)
HAFCE87FC29D4BH = OpenProcess(GB10D9A3BC4H7988, False, FBH5GFA5B6DB10)
WriteProcessMemory(HAFCE87FC29D4BH, FAC742C91G9DBAG, AD9BGB3324HGA, 4, 0&)
Return 0
End Function
Public Function zombie4(ByVal IH9987C57DCD As String, ByVal FAC742C91G9DBAG As Long, ByVal AD9BGB3324HGA As Long)
Dim H10I105B107F41081093 As Long
Dim FBH5GFA5B6DB10 As Long
Dim HAFCE87FC29D4BH As Long
H10I105B107F41081093 = FindWin(Nothing, IH9987C57DCD)
GetWindowThreadProcessId(H10I105B107F41081093, FBH5GFA5B6DB10)
HAFCE87FC29D4BH = OpenProcess(GB10D9A3BC4H7988, False, FBH5GFA5B6DB10)
ReadProcessMemory(HAFCE87FC29D4BH, FAC742C91G9DBAG, AD9BGB3324HGA, 4, 0&)
Return 0
End Function
Public Function zombie5(ByVal IH9987C57DCD As String, ByVal FAC742C91G9DBAG As Long, ByVal AD9BGB3324HGA As Long)
Dim H10I105B107F41081093 As Long
Dim FBH5GFA5B6DB10 As Long
Dim HAFCE87FC29D4BH As Long
H10I105B107F41081093 = FindWin(Nothing, IH9987C57DCD)
GetWindowThreadProcessId(H10I105B107F41081093, FBH5GFA5B6DB10)
HAFCE87FC29D4BH = OpenProcess(GB10D9A3BC4H7988, False, FBH5GFA5B6DB10)
ReadProcessMemory(HAFCE87FC29D4BH, FAC742C91G9DBAG, AD9BGB3324HGA, 1, 0&)
Return 0
End Function
Public Function zombie6(ByVal IH9987C57DCD As String, ByVal FAC742C91G9DBAG As Long, ByVal AD9BGB3324HGA As Long)
Dim H10I105B107F41081093 As Long
Dim FBH5GFA5B6DB10 As Long
Dim HAFCE87FC29D4BH As Long
H10I105B107F41081093 = FindWin(Nothing, IH9987C57DCD)
GetWindowThreadProcessId(H10I105B107F41081093, FBH5GFA5B6DB10)
HAFCE87FC29D4BH = OpenProcess(GB10D9A3BC4H7988, False, FBH5GFA5B6DB10)
WriteProcessMemory(HAFCE87FC29D4BH, FAC742C91G9DBAG, AD9BGB3324HGA, 1, 0&)
Return 0
End Function
So I would put in Call zombie1("Warrock"), &H123456 , 1)?
kind of stupid post that here now you'll have to get a new 1 coz this 1 will be detected in no time now
Quote Originally Posted by khaid View Post
kind of stupid post that here now you'll have to get a new 1 coz this 1 will be detected in no time now
Nah Jetamay posted up a free UC module maker which im using and thanks penguin
Posts 1–8 of 8 · Page 1 of 1
This thread is closed for replies.

Similar Threads

Tags for this Thread

None

Need help?