blob: 75a4481be874f5778d911ddf04b6f0125bab9847 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
Public Class errorblaster
Dim ran As New Random
Dim chosenerror As Integer
Private Sub closebutton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closebutton.Click
Me.Close()
End Sub
Private Sub programtopbar_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles programtopbar.MouseDown
If e.Button = MouseButtons.Left Then
programtopbar.Capture = False
Const WM_NCLBUTTONDOWN As Integer = &HA1S
Const HTCAPTION As Integer = 2
Dim msg As Message = _
Message.Create(Me.Handle, WM_NCLBUTTONDOWN, _
New IntPtr(HTCAPTION), IntPtr.Zero)
Me.DefWndProc(msg)
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim openerror As New windows95messagebox
chosenerror = ran.Next(1, 9)
If chosenerror = 1 Then
openerror.infomessage.Text = "Your Computer Is Infected"
End If
If chosenerror = 2 Then
openerror.infomessage.Text = "Virus Detected"
End If
If chosenerror = 3 Then
openerror.infomessage.Text = "You need to uninfect your computer"
End If
If chosenerror = 4 Then
openerror.infomessage.Text = "your computer is at risk download some program now to fix your comptuer"
End If
If chosenerror = 5 Then
openerror.infomessage.Text = "Your computer is going to explode you need to save all changed now and then take it apart"
End If
If chosenerror = 6 Then
openerror.infomessage.Text = "download an antivirus program now to save your computer"
End If
If chosenerror = 7 Then
openerror.infomessage.Text = "Windows has detected a virus"
End If
If chosenerror = 8 Then
openerror.infomessage.Text = "Your computer is going to be completly taken over if you do not right now downlaod antivirus software"
End If
openerror.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End Sub
Private Sub look_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles look.Tick
Me.programtopbar.BackColor = Windows95.exampleprogramtopbar.BackColor
Me.programtopbar.BackgroundImage = Windows95.exampleprogramtopbar.BackgroundImage
Me.programname.BackColor = Windows95.exampleprogramtext.BackColor
End Sub
Private Sub errorblaster_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
look.Start()
End Sub
End Class
|
