juribiu00
Tipo de Conteúdo
Perfis
Fóruns
Atualizações
Quizzes
Store
Posts postados por juribiu00
-
-
sou new school
-
-
é a okaida !
-
alguem me ajuda , ta dando um erro
-
Olá Pessoal tudo bem? queria compartilhar um topico com vocês
eu estava vendo uns videos sobre o Visual basic pois sou iniciante.. eu achei um video bem interessante ,não sei se vocês vão gostar
é um video sobre o jogo muito conhecido "Snake Game" conhecido tambem como jogo da cobrinha ...
vou estar trazendo tambem o codigo que voces vao usar para criar esse jogo é explicando como faz ... Concerteza vocês saberão fazer
Primeiro de tudo adicione uma picturebox selecione o tamanho e a cor de sua preferencia
Renomeie essa picture box para pb_field
Adcione um timer e renomeie este timer para tm_snakemover e seu valor 50 ou de sua preferencia
Caso você nao faça isso o jogo dará errado
Antes ou depois de aplicar o código selecione um interval para o time
o normal é deixar 50 com 100 o jogo vai ficar muito lento
mais se voce for um expert voce pode deixar o interval do timer
no 1 uahauhauha
Depois de ter feito isso clica no seu form1 em uma parte "vazia" exclua oque estiver escrito e coloque este código
Public Class Form1
#Region "snake stuff"
Dim snake(1000) As PictureBox
Dim lenght_of_snake As Integer = -1
Dim left_right_mover As Integer = 0
Dim up_down_mover As Integer = 0
Dim r As New Random
Private Sub create_head()
lenght_of_snake += 1
snake(lenght_of_snake) = New PictureBox
With snake(lenght_of_snake)
.Height = 10
.Width = 10
BackColor = Color.White
.Top = (pb_field.Top + pb_field.Bottom) / 2
.Left = (pb_field.Left + pb_field.Right) / 2
End With
Me.Controls.Add(snake(lenght_of_snake))
snake(lenght_of_snake).BringToFront()
lenghthensnake()
lenghthensnake()
End Sub
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
Select Case e.KeyChar
Case "a"
left_right_mover = -10
up_down_mover = 0
Case "d"
left_right_mover = 10
up_down_mover = 0
Case "w"
up_down_mover = -10
left_right_mover = 0
Case "s"
up_down_mover = 10
left_right_mover = 0
End Select
End Sub
Private Sub lenghthensnake()
lenght_of_snake += 1
snake(lenght_of_snake) = New PictureBox
With snake(lenght_of_snake)
.Height = 10
.Width = 10
.BackColor = Color.White
.Top = snake(lenght_of_snake - 1).Top
.Left = snake(lenght_of_snake - 1).Left + 10
End With
Me.Controls.Add(snake(lenght_of_snake))
snake(lenght_of_snake).BringToFront()
End Sub
#End Region
#Region "Collision"
Private Sub collide_with_walls()
If snake(0).Left < pb_field.Left Then
tm_snakemover.Stop()
MsgBox("Você Perdeu", vbInformation, "AWwnnnnn")
End If
If snake(0).Right > pb_field.Right Then
tm_snakemover.Stop()
MsgBox("Você Perdeu", vbInformation, "AWwnnnnn")
End If
If snake(0).Top < pb_field.Top Then
tm_snakemover.Stop()
MsgBox("Você Perdeu", vbInformation, "AWwnnnnn")
End If
If snake(0).Bottom > pb_field.Bottom Then
tm_snakemover.Stop()
MsgBox("Você Perdeu", vbInformation, "AWwnnnnn")
End If
End Sub
#End Region
Private Sub collide_whith_mouse()
If snake(0).Bounds.IntersectsWith(mouse.Bounds) Then
lenghthensnake()
mouse.Top = r.Next(pb_field.Top, pb_field.Bottom - 10)
mouse.Left = r.Next(pb_field.Left, pb_field.Right - 10)
End If
End Sub
#Region "Mouse Stuff"
Dim mouse As PictureBox
Private Sub create_mouse()
mouse = New PictureBox
With mouse
.Width = 10
.Height = 10
.BackColor = Color.Red
.Top = r.Next(pb_field.Top, pb_field.Bottom - 10)
.Left = r.Next(pb_field.Left, pb_field.Right - 10)
End With
Me.Controls.Add(mouse)
mouse.BringToFront()
End Sub
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
create_head()
create_mouse()
tm_snakemover.Start()
End Sub
Private Sub tm_snakemover_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tm_snakemover.Tick
For i = lenght_of_snake To 1 Step -1
snake(i).Top = snake(i - 1).Top
snake(i).Left = snake(i - 1).Left
Next
snake(0).Top += up_down_mover
snake(0).Left += left_right_mover
collide_with_walls()
collide_whith_mouse()
End Sub
End Class
Video (não sou eu) bastante simples
Obrigado Pessoa até ...
-
http://www.webcheats.com.br/forum/point-blank-cheats/2305485-aimbot-v53.html , Observaçao , não é 5.3 é V53, coloque o site , nao o download que vc hospedou ....
-
-
Como assim ERRO? diga qual erro ...
Eu ia me esquecendo pessoal.pra carregar as 2 horas vips precisa entrar nesste link
Hax Reborn(Precisa ser cadastrado pra usar o hack , e comprar os vips:calma: -
Ok. vlw amigo ...
-
OLÁ PESSOAL ESTAREI MOSTRANDO NOVO AIMBOT 53 HaxReborn
primeiro vocês vao Cria uma conta e baixar o Hack neste Site Hax Reborn Depois vocês vao copiar os arquivos que baixou e colocar na pasta do pb(Ongame) depois abram o arquivo ''Loader2'' após isso logue com sua conta e seja feliz com o hack!
Erros? Como Corrigir.!
Pessoal Se vocês tiverem algum tipos de erro(Dc's na partida , ou fechamento do jogo) Vocês vão fazer o seguinte.
1°Delete a pagina HShield
2°Reinicie o PC.
SCAN do Hack:https://www.virustotal.com/pt/file/d7be121bb81a8426a428129fae30826515a0b0e888037b23b735a0c7066b2ad8/analysis/
Obrigado este foi meu primeiro topico.!
Print do funcionamento do Hack
A interface do hacker e diferente , eu peguei print no propio site do hack!
Infuncional para Windows 8 .
[/center]
-
aqui ta detectado , Windows 7 32 Bits ...
-
Nem pega , kkkkk
Macro anti-recoil
em Point Blank - Cheats / Utilitários
Postado
interessante