INET控件的几点使用
2024-07-21 02:24:40
供稿：网友
本文来源于网页设计爱好者web开发社区http://www.html.org.cn收集整理，欢迎访问。inet控件支持http与ftp两种通讯协议。利用这个控件可以完成许多功能。
我们通过例子来看看。
环境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.
