[TUT]
Heres my TUT how to make a fake virus
This is a code for a fake windows security center. The design part is up to you on how to make it look real.
This is a code for a fake windows security center. The design part is up to you on how to make it look real.
Code:
Timer1_tick
Dim TheRandom As New Random
ProgressBar1.Value += TheRandom.Next(1, 3)
If ProgressBar1.Value = 70 Then
Timer1.Enabled = False
MsgBox("One or more file(s) are still infecting your computer from Quarantine.",MsgBoxStyle.Critical, "ERROR")
End If
Timer2_tick
Dim TheRandom As New Random
Timer2.Interval = TheRandom.Next(100, 1000)
On Error Resume Next
If ProgressBar1.Value = 67 Then
Timer2.Enabled = False
MsgBox("Infected File(s) are still infecting your computer, Cannot clean file(s).", MsgBoxStyle.Critical, "ERROR")
Else
ProgressBar1.Value += TheRandom.Next(1, 3)
End If
Button1_Click
Button1.Enabled = False
ProgressBar1.Enabled = True
ProgressBar1.Visible = True
ProgressBar1.Value = 0
Timer1.Enabled = True
Button2_Click
Button2.Enabled = False
Timer2.Enabled = True
ProgressBar1.Value = 0
Button3_Click
Button3.Enabled = False
MsgBox("Cannot remove file(s), make sure the file(s) are still not in use", MsgBoxStyle.Critical, "ERROR")
Button4_Click
Button4.Enabled = False
MsgBox("Leaving viruses on your computer is not wise! Please quarantine the file(s)", MsgBoxStyle.Critical, "ERROR")
Button5_Click
MsgBox("hahahahahah this was a prank!, did ya belive This Was Real?", MsgBoxStyle.YesNo, ":P")
End
Originally Posted by lostcausejr
