Como TeleTransporta Pra Base do Dino! VB Visual Basic

[mcfaelzim 0]

eaaew pessoal, eu aqui de novo , para postar um Dino Spam para vocês.....

 

 

Tutorial

 

Adicione Uma ComboBox e coloque Isso.

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Estou No time AZul

Estou No time Vermelho

 

Adicione Um Button e coloque isso!

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

 

Ja qui vai pra frente da base isso aqui e util "Dino Spam

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

 

Créditos

 

H4KiTo da Space Cheats por prostar no forum dele !

 

Mcfaelzim ( Eu ) , Por postar há vocês

 

Vou fazer em Trainer para vocês q ficará mais Fácil !

[Death 33]

[lukas4i20 0]

eae man tem um erro q o visual basic da nessa parte >

 

If ComboBox1.SelectedItem = "Estou No time AZul" Then

Dim re As Integer

re = ReadPointerInteger("PointBlank", &HADAE54, &H270)

ReadPointerInteger("PointBlank", &HADAE54, &H2A8)

ReadPointerInteger("PointBlank", &HADAE54, &H2E0)

ReadPointerInteger("PointBlank", &HADAE54, &H318)

ReadPointerInteger("PointBlank", &HADAE54, &H350)

ReadPointerInteger("PointBlank", &HADAE54, &H388)

ReadPointerInteger("PointBlank", &HADAE54, &H3C0)

ReadPointerInteger("PointBlank", &HADAE54, &H3F8)

WritePointerInteger("PointBlank", &HADAE54, re, &H28C)

WritePointerInteger("PointBlank", &HADAE54, re, &H2C4)

WritePointerInteger("PointBlank", &HADAE54, re, &H2FC)

WritePointerInteger("PointBlank", &HADAE54, re, &H334)

WritePointerInteger("PointBlank", &HADAE54, re, &H36C)

WritePointerInteger("PointBlank", &HADAE54, re, &H3A4)

WritePointerInteger("PointBlank", &HADAE54, re, &H3DC)

WritePointerInteger("PointBlank", &HADAE54, re, &H414)

Button1.BackColor = Color.Red

End If

If ComboBox1.SelectedItem = "Estou No time Vermelho" Then

Dim re As Integer

re = ReadPointerInteger("PointBlank", &HADAE54, &H28C)

ReadPointerInteger("PointBlank", &HADAE54, &H2C4)

ReadPointerInteger("PointBlank", &HADAE54, &H2FC)

ReadPointerInteger("PointBlank", &HADAE54, &H334)

ReadPointerInteger("PointBlank", &HADAE54, &H36C)

ReadPointerInteger("PointBlank", &HADAE54, &H3A4)

ReadPointerInteger("PointBlank", &HADAE54, &H3DC)

ReadPointerInteger("PointBlank", &HADAE54, &H414)

WritePointerInteger("PointBlank", &HADAE54, re, &H270)

WritePointerInteger("PointBlank", &HADAE54, re, &H2A8)

WritePointerInteger("PointBlank", &HADAE54, re, &H2E0)

WritePointerInteger("PointBlank", &HADAE54, re, &H318)

WritePointerInteger("PointBlank", &HADAE54, re, &H350)

WritePointerInteger("PointBlank", &HADAE54, re, &H388)

WritePointerInteger("PointBlank", &HADAE54, re, &H3C0)

WritePointerInteger("PointBlank", &HADAE54, re, &H3F8)

Button1.BackColor = Color.DeepSkyBlue

End If

[[P]4blo 0]

O Erro que tem é que tem que adiciona o Module

[I~Johnnie 25]

@lukas4i20

Qual é o seu visual basic? Talvez ele não aceite os códigos, Baixa o 2010, ou alguma versão mais recenta, talvez seja isso

 

#FICA A DICA