OOMMFFGG you module is a whore and I have to get ready for school so just paste this code into the timer.
Dim TargW As Long
Dim ProcID as long
Dim ProcessHandle as long
TargW = FindWindow(VbNullString, "WarRock")
getwindowthreadprocessid TargW, ProcID
ProcessHandle = OpenProcess(ALL_PROCESS_ACCSESS, False, ProcID)
writeprocessmemory(ProcessHandle,&H7F2B34,11204034 56,4,0&)