WinDOS Shell 0.1A
Submitted By:
Shehbaz
Rating:
(
Rate It)
VERSION 5.00
Begin VB.Form frmShut
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 8595
ClientLeft = 0
ClientTop = 0
ClientWidth = 11880
DrawWidth = 5
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8595
ScaleWidth = 11880
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
WindowState = 2 'Maximized
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 250
Left = 1275
Top = 3600
End
Begin VB.Timer Timer1
Interval = 250
Left = 1305
Top = 4200
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 17
Left = 4425
Shape = 3 'Circle
Top = 6975
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 16
Left = 5565
Shape = 3 'Circle
Top = 7155
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 15
Left = 6690
Shape = 3 'Circle
Top = 7020
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 14
Left = 7665
Shape = 3 'Circle
Top = 6390
Width = 1095
End
Begin VB.Line Line1
BorderColor = &H000000C0&
BorderWidth = 3
X1 = 3465
X2 = 8640
Y1 = 4485
Y2 = 4485
End
Begin VB.Label lblStop
BackStyle = 0 'Transparent
Caption = "STOP "
BeginProperty Font
Name = "OCR A Extended"
Size = 72
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 1575
Left = 4305
TabIndex = 1
Top = 2745
Width = 3615
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1335
Index = 13
Left = 8430
Shape = 3 'Circle
Top = 5400
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1155
Index = 12
Left = 8760
Shape = 3 'Circle
Top = 4425
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 11
Left = 8730
Shape = 3 'Circle
Top = 3315
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 10
Left = 8355
Shape = 3 'Circle
Top = 2235
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 9
Left = 7650
Shape = 3 'Circle
Top = 1320
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 8
Left = 6660
Shape = 3 'Circle
Top = 765
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 7
Left = 5550
Shape = 3 'Circle
Top = 585
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 6
Left = 4425
Shape = 3 'Circle
Top = 795
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 5
Left = 3435
Shape = 3 'Circle
Top = 1365
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 4
Left = 2685
Shape = 3 'Circle
Top = 2205
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 3
Left = 2295
Shape = 3 'Circle
Top = 3270
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1125
Index = 2
Left = 2250
Shape = 3 'Circle
Top = 4425
Width = 1095
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1335
Index = 1
Left = 2670
Shape = 3 'Circle
Top = 5415
Width = 1080
End
Begin VB.Shape round
BorderColor = &H00000080&
FillColor = &H0000C000&
Height = 1095
Index = 0
Left = 3375
Shape = 3 'Circle
Top = 6420
Width = 1170
End
Begin VB.Label lblShut
BackStyle = 0 'Transparent
Caption = "SHUT DOWN"
BeginProperty Font
Name = "OCR A Extended"
Size = 48
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1965
Left = 4770
TabIndex = 0
Top = 4620
Width = 2535
End
Begin VB.Shape Inner
BorderColor = &H000000C0&
BorderWidth = 5
Height = 5535
Left = 3480
Shape = 3 'Circle
Top = 1680
Width = 5175
End
Begin VB.Shape Outer
BorderColor = &H000000FF&
BorderWidth = 5
FillColor = &H0000FF00&
Height = 8055
Left = 960
Shape = 3 'Circle
Top = 360
Width = 10215
End
End
Attribute VB_Name = "frmShut"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Function circ(v As Single, n As Single)
If v = 0 Then
round(n).FillStyle = 1
Else
round(n).FillStyle = 0
End If
End Function
Private Sub Form_Load()
Dim fil As Boolean
End Sub
Private Sub lblShut_Click()
Dim a As Single
Timer1.Enabled = False
For a = 1 To 13
q = circ(0, a)
Next
c = ExitWindowsEx(1, 0&)
End Sub
Private Sub lblStop_Click()
Dim a As Single
Timer1.Enabled = False
For a = 1 To 13
q = circ(0, a)
Next
Unload Me
End Sub
Private Sub Timer1_Timer()
Static numfil As Single
w = circ(1, numfil)
numfil = numfil + 1
If numfil > 17 Then
numfil = 0
Timer2.Enabled = True
Timer1.Enabled = False
Timer1.Interval = Timer1.Interval - 30
'lblStop.Caption = Timer1.Interval
If Timer1.Interval < 40 Then
Timer1.Interval = 35
Unload Me
X = ExitWindowsEx(1, 0&)
End If
End If
End Sub
Private Sub Timer2_Timer()
Static numemp As Single
w = circ(0, numemp)
numemp = numemp + 1
If numemp > 17 Then
numemp = 0
Timer2.Enabled = False
Timer1.Enabled = True
Timer2.Interval = Timer1.Interval - 30
'lblShut.Caption = Timer2.Interval
If Timer2.Interval < 40 Then
Timer2.Interval = 35
End If
End If
End Sub
