home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fbifile / intellig.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-08  |  3.4 KB  |  111 lines
  1. VERSION 2.00
  2. Begin Form Intelligence 
  3.    Caption         =   "Please Wait"
  4.    ClientHeight    =   2445
  5.    ClientLeft      =   3090
  6.    ClientTop       =   3060
  7.    ClientWidth     =   3825
  8.    ControlBox      =   0   'False
  9.    Height          =   2850
  10.    Left            =   3030
  11.    LinkMode        =   1  'Source
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   2445
  16.    ScaleWidth      =   3825
  17.    Top             =   2715
  18.    Width           =   3945
  19.    Begin CommandButton Command1 
  20.       Caption         =   "OK"
  21.       Default         =   -1  'True
  22.       Height          =   375
  23.       Left            =   1560
  24.       TabIndex        =   3
  25.       Top             =   2040
  26.       Visible         =   0   'False
  27.       Width           =   735
  28.    End
  29.    Begin Timer Timer2 
  30.       Interval        =   1000
  31.       Left            =   3240
  32.       Top             =   1920
  33.    End
  34.    Begin Timer Timer1 
  35.       Enabled         =   0   'False
  36.       Interval        =   10000
  37.       Left            =   120
  38.       Top             =   1920
  39.    End
  40.    Begin TextBox accesscode 
  41.       Height          =   375
  42.       Left            =   1200
  43.       TabIndex        =   2
  44.       Top             =   1560
  45.       Visible         =   0   'False
  46.       Width           =   1455
  47.    End
  48.    Begin Label Label2 
  49.       Alignment       =   2  'Center
  50.       Caption         =   "Gathering Intelligence Data"
  51.       Height          =   375
  52.       Left            =   600
  53.       TabIndex        =   1
  54.       Top             =   840
  55.       Width           =   2655
  56.    End
  57.    Begin Label Label1 
  58.       Alignment       =   2  'Center
  59.       Height          =   255
  60.       Left            =   600
  61.       TabIndex        =   0
  62.       Top             =   240
  63.       Width           =   2655
  64.    End
  65. Declare Function Flashwindow% Lib "user" (ByVal hWnd%, ByVal bInvert%)
  66. Sub command1_click ()
  67.     If LCase$(accesscode.Text) = "fbifile" Then
  68.         i% = sndplaysound("accden.wav", 1)
  69.         MsgBox "Access Denied"
  70.         Exit Sub
  71.     End If
  72.     Unload intelligence
  73. End Sub
  74. Sub Form_Activate ()
  75.     i% = sndplaysound("gather.wav", 1)
  76. End Sub
  77. Sub Form_Unload (Cancel As Integer)
  78.     timer2.enabled = 0
  79.     fbifile.BTN_View.Visible = -1
  80. End Sub
  81. Sub Timer1_Timer ()
  82.     If label2.Caption = "Compiling Data" Then GoTo secondtime
  83.     label2.Caption = "Compiling Data"
  84.     'this plays the WAV:
  85.     i% = sndplaysound("compile.wav", 1)
  86.     'the flags work as follows:
  87.     '0  wait until sound finishes before returning
  88.     '1  return immediately - sound can be stopped with
  89.     ' i% =sndplaysound(0&, 0)
  90.     '2  play no default if it can't find the WAV
  91.     '4  play sound over and over, must be combined with 1 by calling the flag
  92.     ' i% =sndplaysound(snd_async or snd_loop, 0) it can also be stopped with '(0%,0)
  93.     '5 returns false immediately if sound is already playing.
  94.     Timer1.enabled = 0
  95.     Timer1.enabled = -1
  96.     Exit Sub
  97. secondtime:
  98.     intelligence.Caption = ""
  99.     label1.Caption = "Profile Complete"
  100.     label2.Caption = "Enter Security Access Code"
  101.     'this plays the WAV:
  102.     i% = sndplaysound("access.wav", 1)
  103.     accesscode.Visible = -1
  104.     command1.Visible = -1
  105.     Timer1.enabled = 0
  106.     timer2.enabled = 0
  107. End Sub
  108. Sub Timer2_Timer ()
  109.     Succ% = Flashwindow%(intelligence.hWnd, 1)
  110. End Sub
  111.