Just wondering but..

[wakaraka]

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?

[DoubleDutch]

u don't need an module maker u just need to change 8 words to make ur own undetected module T_T

[wakaraka]

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?

[Kung Fu Penguin31]

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:

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

hope it helps.

[wakaraka]

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:

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)?

[Kung Fu Penguin31]

Yes just replace the address with a real one like no spread or no recoil.

[khaid]

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

[wakaraka]

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