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