Originally Posted by
wakaraka
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)?