connect to.frm

VB网络连接的程序

VERSION 4.00
Begin VB.Form Connect 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Connect To:"
   ClientHeight    =   1335
   ClientLeft      =   4200
   ClientTop       =   2610
   ClientWidth     =   3615
   Height          =   1740
   Icon            =   "Connect To.frx":0000
   Left            =   4140
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1335
   ScaleWidth      =   3615
   Top             =   2265
   Width           =   3735
   Begin VB.CommandButton Apply 
      Caption         =   "&Apply"
      Height          =   375
      Left            =   2520
      TabIndex        =   2
      Top             =   360
      Width           =   975
   End
   Begin VB.TextBox Connection 
      Height          =   285
      Left            =   120
      TabIndex        =   1
      Top             =   360
      Width           =   2295
   End
   Begin VB.CommandButton Cancel 
      Caption         =   "&Cancel"
      Height          =   375
      Left            =   2520
      TabIndex        =   3
      Top             =   840
      Width           =   975
   End
   Begin VB.Label Connectionlabel 
      Caption         =   "Internet &connection:"
      Height          =   255
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1455
   End
End
Attribute VB_Name = "Connect"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Private Sub Apply_Click()

Dim rtn 'declare the needed variables

rtn = Shell("rundll32.exe rnaui.dll,RnaDial " & Connection.Text, 0) 'show the Connect dialog

End Sub


Private Sub Cancel_Click()

Unload Me 'exit the program

End Sub


Private Sub Form_Load()

Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2 'centre the form on the screen

'This project was downloaded from
'
'http://www.brianharper.demon.co.uk/
'
'Please use this project and all of its source code however you want.
'
'UNZIPPING
'To unzip the project files you will need a 32Bit unzipper program that
'can handle long file names. If you have a latest copy of Winzip installed
'on your system then you may use that. If you however dont have a copy,
'then visit my web site, go into the files section and from there you can
'click on the Winzip link to goto their site and download a copy of the
'program. By doing this you will now beable to unzip the project files
'retaining their proper long file names.
'Once upzipped, load up your copy of Visual Basic and goto
'File/Open Project. Locate the project files to where ever you unzipped
'them, then click Open. The project files will be loaded and are now ready
'for use.
'
'THE PROJECT
'This project can be very handy if your application is dealing with the
'Internet, and first of all needs to be connected otherwise the user may
'not carry on. No API calls are used in the project, just shell out to
'RUNDLL32.EXE and tell it to call the connect dialog with your desired
'Internet connection service provider.
'
'IMPORTANT
'=========
'You must type in the EXACT name of your Internet connection which
'includes uppercase and lowercase letters. If you just use lower case,
'and the connection uses uppercase, then the dialog will not be called.
'
'NOTES
'I have only provided the necessary project files with the zip. This keeps
'the size of the zip files down to a minimum and enables me to upload more
'prjects files to my site.
'
'I hope you find the project usful in what ever you are programming. I
'have tried to write out a small explanation of what each line of code
'does in the project, although most of it is pretty simple to understand.
'
'If you find any bugs in the code then please dont hesitate to Email me and
'I will get back to you as soon as possible. If you however need help on a
'different matter concerning Visual Basic then please please Email me as
'I like to here from people and here what they are programming.
'
'My Email address is:
'[e-mail]
'
'My web site is:
'http://www.brianharper.demon.co.uk/
'
'Please visit my web site and find many other useful projects like this.
'

End Sub