home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / ezdialup.arj / EZ4VB.ZIP / CONNECT.FRM (.txt) next >
Encoding:
Visual Basic Form  |  1996-01-13  |  4.6 KB  |  145 lines
  1. VERSION 2.00
  2. Begin Form frmConnect 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Connect"
  6.    ClientHeight    =   2595
  7.    ClientLeft      =   2520
  8.    ClientTop       =   2970
  9.    ClientWidth     =   4185
  10.    Height          =   3000
  11.    Left            =   2460
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   173
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   279
  18.    Top             =   2625
  19.    Width           =   4305
  20.    Begin SSFrame Frame3D1 
  21.       Caption         =   "Status"
  22.       Font3D          =   0  'None
  23.       FontBold        =   0   'False
  24.       FontItalic      =   0   'False
  25.       FontName        =   "MS Sans Serif"
  26.       FontSize        =   8.25
  27.       FontStrikethru  =   0   'False
  28.       FontUnderline   =   0   'False
  29.       Height          =   1065
  30.       Left            =   120
  31.       TabIndex        =   3
  32.       Top             =   990
  33.       Width           =   3945
  34.       Begin Label lblStatus 
  35.          Alignment       =   2  'Center
  36.          BackColor       =   &H00C0C0C0&
  37.          Caption         =   "Initializing..."
  38.          FontBold        =   0   'False
  39.          FontItalic      =   0   'False
  40.          FontName        =   "MS Sans Serif"
  41.          FontSize        =   8.25
  42.          FontStrikethru  =   0   'False
  43.          FontUnderline   =   0   'False
  44.          Height          =   225
  45.          Left            =   270
  46.          TabIndex        =   4
  47.          Top             =   480
  48.          Width           =   3435
  49.       End
  50.    End
  51.    Begin CommandButton cmdConnect 
  52.       Caption         =   "cmdConnect"
  53.       FontBold        =   0   'False
  54.       FontItalic      =   0   'False
  55.       FontName        =   "MS Sans Serif"
  56.       FontSize        =   8.25
  57.       FontStrikethru  =   0   'False
  58.       FontUnderline   =   0   'False
  59.       Height          =   285
  60.       Left            =   150
  61.       TabIndex        =   2
  62.       Top             =   2220
  63.       Visible         =   0   'False
  64.       Width           =   1215
  65.    End
  66.    Begin MsgBlaster MsgBlaster1 
  67.       Prop8           =   "Click on ""..."" for the About Box ---->"
  68.       Prop9           =   "Click on ""..."" for the Message Center --->"
  69.       Left            =   3510
  70.       MsgList         =   CONNECT.FRX:0000
  71.       MsgPassage      =   CONNECT.FRX:0064
  72.       TargetName      =   "frmConnect"
  73.       Top             =   2130
  74.       UserMsgs        =   CONNECT.FRX:0096
  75.       Version         =   "2.2a"
  76.    End
  77.    Begin CommandButton cmdCancel 
  78.       Caption         =   "&Cancel"
  79.       FontBold        =   0   'False
  80.       FontItalic      =   0   'False
  81.       FontName        =   "MS Sans Serif"
  82.       FontSize        =   8.25
  83.       FontStrikethru  =   0   'False
  84.       FontUnderline   =   0   'False
  85.       Height          =   330
  86.       Left            =   1560
  87.       TabIndex        =   1
  88.       Top             =   2190
  89.       Width           =   1050
  90.    End
  91.    Begin Label Label1 
  92.       BackColor       =   &H00C0C0C0&
  93.       BackStyle       =   0  'Transparent
  94.       Caption         =   "Accessing EZDialup Host"
  95.       FontBold        =   0   'False
  96.       FontItalic      =   0   'False
  97.       FontName        =   "MS Sans Serif"
  98.       FontSize        =   8.25
  99.       FontStrikethru  =   0   'False
  100.       FontUnderline   =   0   'False
  101.       Height          =   195
  102.       Left            =   1230
  103.       TabIndex        =   0
  104.       Top             =   360
  105.       Width           =   1905
  106.    End
  107.    Begin Image Image2 
  108.       Height          =   480
  109.       Left            =   180
  110.       Picture         =   CONNECT.FRX:0433
  111.       Top             =   240
  112.       Width           =   480
  113.    End
  114. Option Explicit
  115. Dim iAbort As Integer
  116. Dim sSessionIni As String, sSessionLnk As String
  117. Sub cmdCancel_Click ()
  118.     Call AbortSession
  119.     frmMainForm.Enabled = True
  120.     Me.Hide
  121. End Sub
  122. Sub cmdConnect_Click ()
  123.     Show
  124.     DoEvents
  125.     sSessionIni = App.Path & "\CLIENT1.INI"
  126.     sSessionLnk = App.Path & "\EXAMPLE1.EZD"
  127.     Call StartSession(sSessionIni & " " & sSessionLnk, Me.hWnd)
  128. End Sub
  129. Sub Form_Load ()
  130.     Center Me
  131. End Sub
  132. Sub Form_QueryUnload (Cancel As Integer, UnloadMode As Integer)
  133.     Cancel = True
  134.     cmdCancel_Click
  135. End Sub
  136. Sub MsgBlaster1_Message (MsgVal As Integer, wParam As Integer, lParam As Long, ReturnVal As Long)
  137.     Dim iResult As Long, sMessage As String
  138.     Select Case MsgVal
  139.       Case WM_USER + 145, WM_USER + 146
  140.         sMessage = Space$(128)
  141.         iResult = lstrcpy(sMessage, lParam)
  142.         lblStatus = sMessage
  143.       End Select
  144. End Sub
  145.