INET控件的几点使用

原创 2004年09月04日 00:05:00

Inet控件支持HTTPFTP两种通讯协议。利用这个控件可以完成许多功能。

我们通过例子来看看。

 

环境VB6+WINXP

打开VB6,新建工程

添加部件Microsoft Internet Transfer Controls.

form中添加2个按钮,2个文本框和Inet控件

代码如下:

 

Option Explicit

'这段代码使用了GetHeader来返回页面信息,比较准确一些

'可以得到文件最后修改日期,文件大小等等

'用这个办法还可以判断一个文件是否存在

Private Sub Command1_Click()

Dim a As String

Dim str As String

Dim RetCode As Long

Inet1.OpenURL "http://localhost/xml/tt.htm"

 

If Inet1.StillExecuting Then

       DoEvents

End If

'可以看到所有的项目

MsgBox Inet1.GetHeader

 

'得到修改日期时间是格林时间,将它转换北京时间

str = Inet1.GetHeader("Last-modified")

str = Replace(Right(str, Len(str) - InStr(1, str, ",") - 1), "GMT", "")

Text1.Text = CDate(Format(str, "yyyy/mm/dd  hh:mm:ss"))

 

MsgBox Inet1.GetHeader("content-length")

RetCode = Val(Mid(Trim(Inet1.GetHeader), 10, 3))

    Select Case RetCode

    Case 200

        MsgBox "成功"

    Case 404

        MsgBox "没有发现"

    Case Else

        MsgBox "Error"

    End Select

End Sub

 

'这段代码简单的判断了是否与internet连接

'如果连接,得到网页源码并且保存

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")

    If Inet1.StillExecuting Then

       DoEvents

    End If

    '保存到文件

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

        Print #1, Text2.Text

    Close #1

Else

    MsgBox "没有连接"

End If

End Sub.

VB中用inet控件通过FTP实现单个文件和多个文件的上传

来自:http://lihb810.blog.163.com/blog/static/59451162200810275926721/ 公司里有个VB开发的软件要做个ftp上传文件功...
  • hlzs_01
  • hlzs_01
  • 2013年06月05日 14:49
  • 6556

VB控件属性及其一些常数(续1)

2.07、数据列表(DataList) 控件的常用属性 属性说明 (Name) 数据列表(DataList)控件的名称 (自定义) 打开属性页 Appearance 是否用立体效果绘制...
  • yiyiyicz
  • yiyiyicz
  • 2015年03月13日 08:53
  • 1079

vs2010中Calendar控件的一些使用

一.返回指定日期前后的某一日期; // Sets a DateTime to April 3, 2002 of the Gregorian calendar.       DateTime m...
  • GoodShot
  • GoodShot
  • 2014年12月17日 11:40
  • 6169

INET控件Document属性

  • 2011年04月02日 01:27
  • 3KB
  • 下载

用INET控件做的简单的百度注册

  • 2008年04月29日 00:55
  • 6KB
  • 下载

VB不用outlook、winsock、Inet控件发送邮件【附源码】

  • 2010年02月01日 17:17
  • 66KB
  • 下载

INET控件Password属性

  • 2011年04月02日 00:32
  • 8KB
  • 下载

INET控件ResponseInfo属性

  • 2011年04月02日 00:34
  • 6KB
  • 下载

INET控件Protocol属性|推荐代码

  • 2011年03月31日 00:41
  • 3KB
  • 下载

vb通过inet控件实现FTP文件上传

来自:http://hi.baidu.com/jiangdbna/item/b8177de997933b275a7cfb1e Private Sub YdFileUp(sUpfile...
  • hlzs_01
  • hlzs_01
  • 2013年05月13日 16:41
  • 655
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:INET控件的几点使用
举报原因:
原因补充:

(最多只允许输入30个字)