[Coding] VB.NET Teamswitch Code

[Momo5000]

Nothing Special.
Works with Battlefield 1.5
100% Punkbuster Undetected.

PHP Code:

    Public Function SetTeam(ByVal iTeam As Integer)
        Dim HANDLE() As Process = Process.GetProcessesByName("bf2")
        Dim CPlayerManager As Integer = 0
        Dim LocalPlayer As Integer = 0
        If HANDLE.Length = 0 Then Return 0
        ReadProcessMemory(HANDLE(0).Handle, &HA08F60, CPlayerManager, 4, 0)
        ReadProcessMemory(HANDLE(0).Handle, CPlayerManager + &H60, LocalPlayer, 4, 0)
        WriteProcessMemory(HANDLE(0).Handle, LocalPlayer + &HD8, BitConverter.GetBytes(iTeam), 4, 0)
        Return 1
    End Function

    Public Function GetTeam()
        Dim HANDLE() As Process = Process.GetProcessesByName("bf2")
        Dim CPlayerManager As Integer = 0
        Dim LocalPlayer As Integer = 0
        Dim iTeam As Integer = 0
        If HANDLE.Length = 0 Then Return 0
        ReadProcessMemory(HANDLE(0).Handle, &HA08F60, CPlayerManager, 4, 0)
        ReadProcessMemory(HANDLE(0).Handle, CPlayerManager + &H60, LocalPlayer, 4, 0)
        ReadProcessMemory(HANDLE(0).Handle, LocalPlayer + &HD8, iTeam, 4, 0)
        Return iTeam
    End Function 


[SimPle01]

So this just makes you switch teams every %x amount of seconds?

[learn_more]

Originally Posted by SimPle01

So this just makes you switch teams every %x amount of seconds?

nope, just when the function is called (you can place it in a timer tho )

[Momo5000]

Originally Posted by SimPle01

So this just makes you switch teams every %x amount of seconds?

Call the SetTeam function with 1 or 2 and the enemys will appear blue, its like a esp hack.

GetTeam gets the current team value.

[SimPle01]

Ah, ok Thanks I figured it did something like that