form2.frm

包括www浏览器、ftp、email服务器、查看网页代码四部分。

VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   5025
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   6000
   LinkTopic       =   "Form2"
   ScaleHeight     =   5025
   ScaleWidth      =   6000
   StartUpPosition =   3  '窗口缺省
   Begin InetCtlsObjects.Inet Inet1 
      Left            =   720
      Top             =   480
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
With Inet1
.URL = "ftp://someFTPSite.com"
.UserName = "wyh"
.Password = "02086227"
.Execute , "DIR"
.Execute , "CLOSE"
End With

End Sub