Ir para conteúdo
Faça parte da equipe! (2024) ×
Conheça nossa Beta Zone! Novas áreas a caminho! ×
  • Quem está por aqui   0 membros estão online

    • Nenhum usuário registrado visualizando esta página.

pbbr (point blank brasil) Offeter para aplicaçao VB.NET !


 Compartilhar

Posts Recomendados

Ko8rzts.pngi0zC7xh.png

V28LX.png

 

 

Team Game Hacks

 

Ola Membros da WC esto aki para oferecer meus conhecimentos para vocês.

so da Equipe TGH (Membros do Grupo : Smoll , Fast ,Orions ,Picasso,Max Junior , Zeus )

 

Hoje venho posta Ofeter ja pronto só aplica VB.NET

 

nao sei a funçao de cada codigo entao quem tem noçao ou base desses jogo ajuda :)

 

 

.WritePointerByte("POINTBLANK", 11414152, DirectCast(24, Byte), numArray1)

Return

End Sub

 

 

 

 

.WritePointerInteger("POINTBLANK", 11434824, 1104003014, numArray1)

Return

End Sub

 

 

 

 

Private Sub Button10_Click(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox3.Text, "Missão Total", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 3440

mainModule.WritePointerInteger("PointBlank", 11416652, 12, numArray1)

End If

If ((Operators.CompareString(Me.ComboBox3.Text, "Missão Dinossauros", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 3440

mainModule.WritePointerInteger("PointBlank", 11416652, 16, numArray1)

End If

If ((Operators.CompareString(Me.ComboBox3.Text, "Missão Sobreviventes", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 3440

mainModule.WritePointerInteger("PointBlank", 11416652, 17, numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

 

Private Sub Button2_Click_1(ByVal sender As Object, ByVal e As EventArgs)

Dim numArray1 As Integer()

 

If ((Operators.CompareString(Me.ComboBox2.Text, "ON", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(56, Byte), numArray1)

End If

If ((Operators.CompareString(Me.ComboBox2.Text, "OFF", False) = 0)) Then

numArray1 = New Integer(1 - 1) {}

numArray1(0) = 239881

mainModule.WritePointerByte("POINTBLANK", 11414152, DirectCast(0, Byte), numArray1)

End If

Return

End Sub

 

 

 

Breve Novas ...

Link para o comentário
Compartilhar em outros sites

Este tópico está impedido de receber novos posts.
 Compartilhar

×
×
  • Criar Novo...

Informação Importante

Nós fazemos uso de cookies no seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies , caso contrário, vamos supor que você está bem para continuar.