Problem with aimbot

First i have two wolf kill aimbot

obj :

WPI("WolfTeam.bin", Obj + &H4736E4, 1, &H96, &H288, &H1124)

WolfTeam.bin :

WPI("Wolfteam.bin", bin.Text + &H28809C, 1, &H4A8, &H60, &H120, &H464)

I Active Aimbot After Weapon Selection and to know if weapon is selected or not i use this method :
it's "bin" pointer and if i selected weapon the pointer value will be "1" and if not selected the value will be "0"

Public Function IsSelected() As Long
Dim Res As Long
Res = ReadLong(bin.Text + 2640764)
Return Res
End Function

i use it like that

if IsSelected() = "1" then
' Now i active aimbot
but i use bin aimbot not obj
end if

- And use wepaons slots pointer but i activate it before join the room

#NOTE : Slots timer interval = 1000 1 sec
#NOTE : Aimbot Timer Interval = 1000 1 sec

but i get anti aah kick ::L:L:L:L:L
so i want to know what's the problem to solve it any help plz

The problem is that addresses is being changed every time, and you are change it when you are alive and switching to another weapon will get AAH, so make your interval more less 500 ms or less until it will disappear.
and the best thing is to code in c++ instead of sh*t vb