大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Internet Transfer 控件支持超文本传输协议 (HTTP) 和文件传输协议 (FTP),它们是 Internet 网上使用最广泛的两种协议。
创新互联公司成立于2013年,先为威远等服务建站,威远等地企业,进行企业商务咨询服务。为威远企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
使用 HTTP 协议,可以连接全球信息网(World Wide Web)服务器,以检索 HTML 文档。使用 FTP 协议可以在 FTP 服务器上登录,以下载和加载文件。UserName 和 Password 属性可让您在要求验证身份的私有的服务器上进行登录。另外,也可以连接公用的 FTP 服务器,并下载文件。Execute 方法支持普通的 FTP 命令,如 CD 和 GET。
webbrowser就是一个浏览器。
主要的区别:
inet没有界面,webbrowser有,inet可以使用:请求、回应的方式发送web指令实现,而webbrowser是一个浏览器。
inet不负责解析HTML的内容,但是webbrowser可以解析
1.ifconfig 查看网络接口状态ifconfig 如果不接任何参数,就会输出当前网络接口的情况;[root@ubuntu ~]# ifconfigeth0 Link encap:Ethernet HWaddr 00:03:0E:25:36:41inet addr:192.168.17.110 Bcast:192.168.17.255 Mask:255.255.255.0inet6 addr: fe80::203:dff:fe27:8641/64 Scope:LinkUP BROADCAST RUNNING MULTICAST MTU:1500 Metric:1RX packets:618 errors:0 dropped:0 overruns:0 frame:0TX packets:676 errors:0 dropped:0 overruns:0 carrier:0collisions:0 txqueuelen:1000RX bytes:491238 (479.7 KiB) TX bytes:86286 (84.2 KiB)Interrupt:5 Base address:0x8c00lo Link encap:Local Loopbackinet addr:127.0.0.1 Mask:255.0.0.0inet6 addr: ::1/128 Scope:HostUP LOOPBACK RUNNING MTU:16436 Metric:1RX packets:1692 errors:0 dropped:0 overruns:0 frame:0TX packets:1692 errors:0 dropped:0 overruns:0 carrier:0collisions:0 txqueuelen:0RX bytes:3174550 (3.0 MiB) TX bytes:3174550 (3.0 MiB)eth0 表示第一块网卡, 其中 HWaddr 表示网卡的物理地址,可以看到目前这个网卡的物理地址(MAC地址)是 00:03:0E:25:36:41; inet addr 用来表示网卡的IP地址,此网卡的 IP地址是 192.168.17.110,广播地址, Bcast:192.168.17.255,掩码地址Mask:255.255.255.0lo 是表示主机的回坏地址,这个一般是用来测试一个网络程序,但又不想让局域网或外网的用户能够查看,只能在此台主机上运行和查看所用的网络接口。比如把 HTTPD服务器的指定到回坏地址,在浏览器输入 127.0.0.1 就能看到你所架WEB网站了。但只是您能看得到,局域网的其它主机或用户无从知道;如果想知道主机所有网络接口的情况,请用下面的命令;[root@ubuntu ~]#ifconfig -a如果想查看某个端口,比如查看eth0 的状态,就可以用下面的方法;[root@ubuntu ~]#ifconfig eth02.ifconfig 配置网络接口ifconfig 可以用来配置网络接口的IP地址、掩码、网关、物理地址等;值得一说的是用ifconfig 为网卡指定IP地址,这只是用来调试网络用的,并不会更改系统关于网卡的配置文件。如果您想把网络接口的IP地址固定下来,目前有三个方法:一是通过各个 发行和版本专用的工具来修改IP地址;二是直接修改网络接口的配置文件;三是修改特定的文件,加入ifconfig 指令来指定网卡的IP地址,比如在redhat或Fedora中,把ifconfig 的语名写入/etc/rc.d/rc.local文件中;ifconfig 配置网络端口的方法:ifconfig 工具配置网络接口的方法是通过指令的参数来达到目的的,我们只说最常用的参数;ifconfig 网络端口 IP地址 hw MAC地址 netmask 掩码地址 broadcast 广播地址 [up/down]* 实例一:比如我们用ifconfig 来调试 eth0网卡的地址[root@ubuntu ~]#ifconfig eth0 down[root@ubuntu ~]#ifconfig eth0 192.168.17.100 broadcast 192.168.17.255 netmask 255.255.255.0[root@ubuntu ~]#ifconfig eth0 up[root@ubuntu ~]#ifconfig eth0eth0 Link encap:Ethernet HWaddr 00:03:0E:25:36:41inet addr:192.168.17.110 Bcast:192.168.17.255 Mask:255.255.255.0inet6 addr: fe80::203:dff:fe27:8641/64 Scope:LinkUP BROADCAST RUNNING MULTICAST MTU:1500 Metric:1RX packets:618 errors:0 dropped:0 overruns:0 frame:0TX packets:676 errors:0 dropped:0 overruns:0 carrier:0collisions:0 txqueuelen:1000RX bytes:491238 (479.7 KiB) TX bytes:86286 (84.2 KiB)Interrupt:5 Base address:0x8c00第一行:ifconfig eth0 down 表示如果eth0是激活的,就把它DOWN掉。此命令等同于 ifdown eth0;第二行:用ifconfig 来配置 eth0的IP地址、广播地址和网络掩码;第三行:用ifconfig eth0 up 来激活eth0 ; 此命令等同于 ifup eth0第四行:用 ifconfig eth0 来查看 eth0的状态;当然您也可以用直接在指令IP地址、网络掩码、广播地址的同时,激活网卡;要加up参数;比如下面的例子;[root@ubuntu ~]#ifconfig eth0 192.168.17.110 broadcast 192.168.17.255 netmask 255.255.255.0 up* 实例二:在这个例子中,我们要学会设置网络IP地址的同时,学会设置网卡的物理地址(MAC地址);比如我们设置网卡eth1的IP地址、网络掩码、广播地址,物理地址并且激活它;[root@ubuntu ~]#ifconfig eth1 192.168.17.252 hw ether 00:03:0E:25:36:41 netmask 255.255.255.0 broadcast 192.168.17.255 up或[root@ubuntu ~]#ifconfig eth1 hw ether 04:64:03:00:12:51[root@ubuntu ~]#ifconfig eth1 192.168.17.252 netmask 255.255.255.0 broadcast 192.168.17.255 up其中 hw 后面所接的是网络接口类型, ether表示乙太网, 同时也支持 ax25 、ARCnet、netrom等,详情请查看 man ifconfig ;3.如何用ifconfig 来配置虚拟网络接口有时我们为了满足不同的需要还需要配置虚拟网络接口,比如我们用不同的IP地址来架运行多个HTTPD服务器,就要用到虚拟地址;这样就省却了同一个IP地址,如果开设两个的HTTPD服务器时,要指定端口号。虚拟网络接口指的是为一个网络接口指定多个IP地址,虚拟接口是这样的 eth0:0 、 eth0:1、eth0:2 ... .. eth1N。当然您为eth1 指定多个IP地址,也就是 eth1:0、eth1:1、eth1:2 ... ...以此类推;其实用ifconfig 为一个网卡配置多个IP地址,就用前面我们所说的ifconfig的用法,这个比较简单;看下面的例子;[root@ubuntu ~]#ifconfig eth1:0 192.168.17.251 hw ether 00:03:0E:25:36:41 netmask 255.255.255.0 broadcast 192.168.17.255 up或[root@ubuntu ~]#ifconfig eth1 hw ether 00:03:0E:25:36:41[root@ubuntu ~]#ifconfig eth1 192.168.17.251 netmask 255.255.255.0 broadcast 192.168.17.255 up注意:指定时,要为每个虚拟网卡指定不同的物理地址;在 Redhat/Fedora 或与Redhat/Fedora类似的系统,您可以把配置网络IP地址、广播地址、掩码地址、物理地址以及激活网络接口同时放在一个句子中,写入/etc/rc.d/rc.local中。比如下面的例子;ifconfig eth1:0 192.168.17.250 hw ether 00:11:22:33:44:55 netmask 255.255.255.0 broadcast 192.168.17.255 upifconfig eth1:1 192.168.17.249 hw ether 00:11:00:33:11:55 netmask 255.255.255.0 broadcast 192.168.17.255 up解说:上面是为eth1的网络接口,设置了两个虚拟接口;每个接口都有自己的物理地址、IP地址... ...4.如何用ifconfig 来激活和终止网络接口的连接激活和终止网络接口的用 ifconfig 命令,后面接网络接口,然后加上 down或up参数,就可以禁止或激活相应的网络接口了。当然也可以用专用工具ifup和ifdown 工具;[root@ubuntu ~]#ifconfig eth0 down[root@ubuntu ~]#ifconfig eth0 up[root@ubuntu ~]#ifup eth0[root@ubuntu ~]#ifdown eth0
引自MSDN
StateChanged 事件
连接中状态发生改变,就会引发该事件。
语法
object_StateChanged(ByVal State As Integer)
StateChanged 事件的语法包含下面部分:
部分 描述
object 对象表达式,其值是“应用于”列表中的对象。
State 整数。如下面的“设置值”所示,指定状态。
设置值
State 的设置值:
常数 值 描述
icNone 0 无状态可报告。
icHostResolvingHost 1 该控件正在查询所指定的主机的 IP 地址。
icHostResolved 2 该控件已成功地找到所指定的主机的 IP 地址。
icConnecting 3 该控件正在与主机连接。
icConnected 4 该控件已与主机连接成功。
icRequesting 5 该控件正在向主机发送请求。
icRequestSent 6 该控件发送请求已成功。
icReceivingResponse 7 该控件正在接收主机的响应。
icResponseReceived 8 该控件已成功地接收到主机的响应。
icDisconnecting 9 该控件正在解除与主机的连接。
icDisconnected 10 该控件已成功地与主机解除了连接。
icError 11 与主机通讯时出现了错误。
icResponseCompleted 12 该请求已经完成,并且所有数据均已接收到。
说明
一般来说,使用 StateChanged 事件决定何时使用 GetChunk 方法来检索数据。要这样做,须使用 Select Case 语句,并测试 icResponseReceived (8) 或 icResponseCompleted (12)。
注意,当该控件已完成一个操作时,且此操作在缓冲区中没有产生任何数据,此时 icResponseReceived 状态也可能出现。例如,当与某个 FTP 站点进行连接时,该控件将与此 FTP 站点“握手”,但没有在缓冲区中产生任何数据,此时会出现 icResponseReceived 状态。
另一方面,一个操作完全完成后,会出现 icResponseCompleted 状态。例如,如果正在使用 Execute 方法和 GET 操作来检索某个文件,在此文件被完全检索之后,将出现 icResponseCompleted 事件,且仅出现一次。
实际上,使用 icResponseReceived 状态可以对数据做语法分析,直到检索到所需信息为止(例如,检索 HTML 文件时,只对标头进行检索)。获得该信息后,就可以取消这次检索。另一方面,如果想检索整个文件,icResponseCompleted 状态还会通知传输已经完成,可以继续。
===================================
Private Sub Inet1_StateChanged(ByVal State As Integer)
Select Case State
Case icNone '无状态可报告。
Debug.Print "无状态可报告。
"
Case icHostResolvingHost
Debug.Print "该控件正在查询所指定的主机的 IP 地址。"
Case icHostResolved
Debug.Print "该控件已成功地找到所指定的主机的 IP 地址。"
Case icConnecting
Debug.Print "该控件正在与主机连接。"
Case icConnected
Debug.Print "该控件已与主机连接成功。"
Case icRequesting
Debug.Print "该控件正在向主机发送请求。"
Case icRequestSent
Debug.Print "该控件发送请求已成功。"
Case icReceivingResponse
Debug.Print "该控件正在接收主机的响应。"
Case icResponseReceived
Debug.Print "该控件已成功地接收到主机的响应。"
Case icDisconnecting
Debug.Print "该控件正在解除与主机的连接。"
Case icDisconnected
Debug.Print "该控件已成功地与主机解除了连接。"
Case icError
Debug.Print "与主机通讯时出现了错误。"
Case icResponseCompleted
Debug.Print "该请求已经完成,并且所有数据均已接收到。"
End Select
End Sub
在工具箱的而某一个菜单上右键选择项
进去要么选择已经有的
要么自己浏览dll文件,添加进去再选择
Imports System.Net
Imports System.IO
Module FtpSample
Sub Main(ByVal args() As String)
If args.Length = 0 OrElse args(0).Equals("/?") Then
DisplayUsage()
ElseIf args.Length = 1 Then
Download(args(0))
ElseIf args.Length = 2 Then
If args(0).Equals("/list") Then
List(args(1))
Else
Upload(args(0), args(1))
End If
Else
Console.WriteLine("Unrecognized argument.")
End If
End Sub
Private Sub DisplayUsage()
Console.WriteLine("USAGE:")
Console.WriteLine(" FtpSample [/? | FTP download URL | local file")
Console.WriteLine(" FTP upload URL | /list FTP list URL]")
Console.WriteLine()
Console.WriteLine("where")
Console.WriteLine(" FTP download URL URL of a file to download from an FTP server.")
Console.WriteLine(" FTP upload URL Location on a FTP server to upload a file to.")
Console.WriteLine(" FTP list URL Location on a FTP server to list the contents of.")
Console.WriteLine(" local file A local file to upload to an FTP server.")
Console.WriteLine()
Console.WriteLine(" Options:")
Console.WriteLine(" /? Display this help message.")
Console.WriteLine(" /list Specifies the list command.")
Console.WriteLine()
Console.WriteLine("EXAMPLES:")
Console.WriteLine(" Download a file FtpSample ")
Console.WriteLine(" Upload a file FtpSample upload.txt ")
End Sub
Private Sub Download(ByVal downloadUrl As String)
Dim responseStream As Stream = Nothing
Dim fileStream As FileStream = Nothing
Dim reader As StreamReader = Nothing
Try
Dim downloadRequest As FtpWebRequest = _
WebRequest.Create(downloadUrl)
Dim downloadResponse As FtpWebResponse = _
downloadRequest.GetResponse()
responseStream = downloadResponse.GetResponseStream()
Dim fileName As String = _
Path.GetFileName(downloadRequest.RequestUri.AbsolutePath)
If fileName.Length = 0 Then
reader = New StreamReader(responseStream)
Console.WriteLine(reader.ReadToEnd())
Else
fileStream = File.Create(fileName)
Dim buffer(1024) As Byte
Dim bytesRead As Integer
While True
bytesRead = responseStream.Read(buffer, 0, buffer.Length)
If bytesRead = 0 Then
Exit While
End If
fileStream.Write(buffer, 0, bytesRead)
End While
End If
Console.WriteLine("Download complete.")
Catch ex As UriFormatException
Console.WriteLine(ex.Message)
Catch ex As WebException
Console.WriteLine(ex.Message)
Catch ex As IOException
Console.WriteLine(ex.Message)
Finally
If reader IsNot Nothing Then
reader.Close()
ElseIf responseStream IsNot Nothing Then
responseStream.Close()
End If
If fileStream IsNot Nothing Then
fileStream.Close()
End If
End Try
End Sub
Private Sub Upload(ByVal fileName As String, ByVal uploadUrl As String)
Dim requestStream As Stream = Nothing
Dim fileStream As FileStream = Nothing
Dim uploadResponse As FtpWebResponse = Nothing
Try
Dim uploadRequest As FtpWebRequest = WebRequest.Create(uploadUrl)
uploadRequest.Method = WebRequestMethods.
' UploadFile is not supported through an Http proxy
' so we disable the proxy for this request.
uploadRequest.Proxy = Nothing
requestStream = uploadRequest.GetRequestStream()
fileStream = File.Open(fileName, FileMode.Open)
Dim buffer(1024) As Byte
Dim bytesRead As Integer
While True
bytesRead = fileStream.Read(buffer, 0, buffer.Length)
If bytesRead = 0 Then
Exit While
End If
requestStream.Write(buffer, 0, bytesRead)
End While
' The request stream must be closed before getting the response.
requestStream.Close()
uploadResponse = uploadRequest.GetResponse()
Console.WriteLine("Upload complete.")
Catch ex As UriFormatException
Console.WriteLine(ex.Message)
Catch ex As IOException
Console.WriteLine(ex.Message)
Catch ex As WebException
Console.WriteLine(ex.Message)
Finally
If uploadResponse IsNot Nothing Then
uploadResponse.Close()
End If
If fileStream IsNot Nothing Then
fileStream.Close()
End If
If requestStream IsNot Nothing Then
requestStream.Close()
End If
End Try
End Sub
Private Sub List(ByVal listUrl As String)
Dim reader As StreamReader = Nothing
Try
Dim listRequest As FtpWebRequest = WebRequest.Create(listUrl)
listRequest.Method = WebRequestMethods.
Dim listResponse As FtpWebResponse = listRequest.GetResponse()
reader = New StreamReader(listResponse.GetResponseStream())
Console.WriteLine(reader.ReadToEnd())
Console.WriteLine("List complete.")
Catch ex As UriFormatException
Console.WriteLine(ex.Message)
Catch ex As WebException
Console.WriteLine(ex.Message)
Finally
If reader IsNot Nothing Then
reader.Close()
End If
End Try
End Sub
End Module
可以通过设置 Credentials 属性来指定用于连接服务器的凭据,也可以将它们包含在传递给 Create 方法的 URI 的 UserInfo 部分中。
从 FTP 服务器下载文件时,如果命令成功,所请求的文件的内容即在响应对象的流中。通过调用 GetResponseStream 方法,可以访问此流。
如果使用 FtpWebRequest 对象向服务器上载文件,则必须将文件内容写入请求流,请求流是通过调用 GetRequestStream 方法或其异步对应方法(BeginGetRequestStream 和 EndGetRequestStream 方法)获取的。必须写入流并在发送请求之前关闭该流。
请求是通过调用 GetResponse 方法或其异步对应方法(BeginGetResponse 和 EndGetResponse 方法)发送到服务器的。请求的操作完成时,会返回一个 FtpWebResponse 对象。FtpWebResponse 对象提供操作的状态以及从服务器下载的所有数据。
企业版应该有的,用法 工程-----部件-------勾选Microsoft internet transfer control 6.0---应用----确定,工具箱里就会有inet控件。找不到Microsoft internet transfer control 6.0的话,下载msinet.ocx 放到c:\windows\system32\下,注册,然后用法同上