ftp.frm

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

VERSION 5.00
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form htmlshow 
   Caption         =   "htmlshow"
   ClientHeight    =   6585
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7485
   LinkTopic       =   "Form1"
   ScaleHeight     =   8490
   ScaleWidth      =   11880
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "显示代码"
      Height          =   495
      Left            =   3840
      TabIndex        =   1
      Top             =   360
      Width           =   1455
   End
   Begin VB.TextBox Text2 
      Height          =   4935
      Left            =   600
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   0
      Top             =   1440
      Width           =   9015
   End
   Begin InetCtlsObjects.Inet Inet1 
      Left            =   480
      Top             =   240
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      Protocol        =   4
      URL             =   "http://wyh:02086227@"
      UserName        =   "wyh"
      Password        =   "02086227"
   End
End
Attribute VB_Name = "htmlshow"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Command2_Click()


Inet1.Cancel

If Len(Inet1.OpenURL("http://localhost/xml\tt.htm")) <> 0 Then

    MsgBox "已经连接"

    Text2.Text = Inet1.OpenURL("http://localhost/xml\tt.htm")



    '保存到文件

    Open App.Path & "\index.htm" For Output As #1

        Print #1, Text2.Text

    Close #1

Else

    MsgBox "没有连接"

End If


End Sub