exitwin.frm

用于学习用的VB源程序,可以缩定一个程序

VERSION 2.00
Begin Form Main 
   BackColor       =   &H8000000F&
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   855
   ClientLeft      =   1815
   ClientTop       =   2355
   ClientWidth     =   5175
   ClipControls    =   0   'False
   ControlBox      =   0   'False
   Height          =   1260
   Icon            =   EXITWIN.FRX:0000
   Left            =   1755
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   855
   ScaleWidth      =   5175
   Top             =   2010
   Width           =   5295
   Begin Line Line4 
      BorderColor     =   &H00808080&
      X1              =   5160
      X2              =   5160
      Y1              =   840
      Y2              =   0
   End
   Begin Line Line3 
      BorderColor     =   &H00FFFFFF&
      X1              =   5160
      X2              =   0
      Y1              =   0
      Y2              =   0
   End
   Begin Line Line2 
      BorderColor     =   &H00808080&
      X1              =   5160
      X2              =   0
      Y1              =   840
      Y2              =   840
   End
   Begin Line Line1 
      BorderColor     =   &H00FFFFFF&
      X1              =   0
      X2              =   0
      Y1              =   0
      Y2              =   840
   End
   Begin Label Label1 
      Alignment       =   2  'Center
      BackColor       =   &H8000000F&
      Caption         =   "Avslutter WINDOWS. Hvis noen programmer fremdeles har uavsluttede funksjoner, vil disse kanskje stoppe prosessen."
      Height          =   615
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4935
   End
End
Option Explicit

Declare Function ExitWindows Lib "User" (ByVal dwReturnCode As Long, ByVal wReserved As Integer) As Integer

Dim R As Integer

Sub CapBar1_Click (ButtonIndex As Integer)

   R = ExitWindows(0, 0)
   End

End Sub

Sub Form_Load ()

   Move Screen.Width / 2 - Width / 2, Screen.Height / 2 - Height / 2
   
   If Not UCase$(Command$) = "CAPTION" Then
      Main.Show
      Main.Refresh
   End If

   ' Sjekk hva kommandolinjen sa
   ' EXIT = avslutt med en gang
   ' RESTART = start Windows p