home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / rasdialw / rasdialw.exe / RasForm1.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1998-03-05  |  2.5 KB  |  83 lines
  1. VERSION 5.00
  2. Object = "{ED293738-DF14-11CF-B0B6-0000F63A6615}#1.0#0"; "Rasdial.ocx"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   2970
  6.    ClientLeft      =   240
  7.    ClientTop       =   720
  8.    ClientWidth     =   5100
  9.    LinkTopic       =   "Form1"
  10.    PaletteMode     =   1  'UseZOrder
  11.    ScaleHeight     =   2970
  12.    ScaleWidth      =   5100
  13.    StartUpPosition =   2  'CenterScreen
  14.    Begin VB.TextBox Text1 
  15.       Enabled         =   0   'False
  16.       Height          =   285
  17.       Left            =   840
  18.       TabIndex        =   4
  19.       Top             =   2160
  20.       Width           =   1815
  21.    End
  22.    Begin VB.CommandButton Command3 
  23.       Caption         =   "RasPhonebook"
  24.       Height          =   375
  25.       Left            =   2640
  26.       TabIndex        =   2
  27.       Top             =   720
  28.       Width           =   1575
  29.    End
  30.    Begin VB.CommandButton Command2 
  31.       Caption         =   "RasDisconnect"
  32.       Height          =   375
  33.       Left            =   2640
  34.       TabIndex        =   1
  35.       Top             =   1200
  36.       Width           =   1575
  37.    End
  38.    Begin VB.CommandButton Command1 
  39.       Caption         =   "RasDial"
  40.       Height          =   375
  41.       Left            =   960
  42.       TabIndex        =   0
  43.       Top             =   720
  44.       Width           =   1095
  45.    End
  46.    Begin RASDIALLib.RasDial RasDial1 
  47.       Left            =   3600
  48.       Top             =   1920
  49.       _Version        =   65536
  50.       _ExtentX        =   847
  51.       _ExtentY        =   847
  52.       _StockProps     =   0
  53.    End
  54.    Begin VB.Label Label1 
  55.       Caption         =   "IP Address"
  56.       Height          =   255
  57.       Left            =   840
  58.       TabIndex        =   3
  59.       Top             =   1920
  60.       Width           =   1695
  61.    End
  62. Attribute VB_Name = "Form1"
  63. Attribute VB_GlobalNameSpace = False
  64. Attribute VB_Creatable = False
  65. Attribute VB_PredeclaredId = True
  66. Attribute VB_Exposed = False
  67. Private Sub Command1_Click()
  68. 'n% = RasDial1.RasConnect(Form1.hWnd, "CompuServe", False)
  69. 'n% = RasDial1.RasConnect(Form1.hWnd, "CompuServe", True)
  70. 'n% = RasDial1.RasConnect(Form1.hWnd, "CompuServePPP", True)
  71. n = RasDial1.RasConnect(Form1.hWnd, "", False)
  72. If n = True Then
  73.     s = RasDial1.GetIPAddress()
  74.     Text1.Text = s
  75. End If
  76. End Sub
  77. Private Sub Command2_Click()
  78.     RasDial1.RasShutDown
  79. End Sub
  80. Private Sub Command3_Click()
  81.     RasDial1.RasDialConfig (Form1.hWnd)
  82. End Sub
  83.