肥胖非洲Hftp

❶ 求ftp资源站

由于更新密码比较快,有需要请快下载.
连续剧FTP
IP：202.101.235.119
端口：1000
帐号：biqing.net.tv.0
密码：BIQING.NET.d3g54

金光精品FTP
地址：60.190.249.22
帐号：down
密码：ilovejgwy

9255论坛FTP02
ftp://stargate:[email protected]:9921

康培1号FTP
bbs.hz-zj.cn:21
户名: 康培论坛_康培论坛
密码：hz-zj.cn

西北网盟FTP03号
IP：61.134.33.234
端口：21
用户：xbwmmovs
密码：rfewnklare2qo98e4230

9255论坛FTP01
ftp://sftime:[email protected]:9921

西北网盟FTP02号(原冒险岛影视)
IP：61.134.33.234
端口：21
用户：xbwmmov

晓风ftp电影下载
IP地址： ftp.163down.com
帐 号： bbs.xfnow.com
密 码： 晓风论坛精彩电影
端 口： 21
模 式： 如果不能下载，就取消被动模式试试
速 度： 100K
说 明： 有LIST，单线单任务下载

常用软件ftp
ftp://xaut:[email protected]/

黑亮FTP new
ftp://hlianggaoji:[email protected]

闽南社区ftp
ftp://mov:[email protected]:21
服务器同时在线40人,下载速度为1X80K的速度

新动感F1服务器
服务器地址： 61.132.72.38
用户名： www.cooljs.net
密码: 8gafwxub
端口： 21
传输类型： PASV
普通用户限定速率： 50K/S
线程：1线程/每个IP地址

新动感F3服务器
服务器地址： 61.132.72.39
用户名： www.cooljs.net
passwd: psc5ha12
端口： 21
传输类型： PASV
普通用户限定速率： 50K/S
线程：1线程/每个IP地址

新动感F4（特）服务器
服务器地址： 61.132.72.45
用户名： www.cooljs.net.f
passwd: inhqdezx
端口： 21
传输类型： pasv
普通用户限定速率： 50K/S
线程：1线程/每个IP地址

新动感游戏、软件、学习服务器
服务器地址： 61.132.72.45
用户名： www.cooljs.net.soft
passwd: dvcl8793
端口： 21
传输类型： pasv
普通用户限定速率： 20K/S
线程：1线程/每个IP地址
有LIST列表权限，可以看到目录内容

西北网盟FTP02号(密码更新)
IP：61.134.33.234
端口：21
用户：xbwmmov
密码：dsabdawbewqoi

电影100K
IP地址： ftp.163down.com
帐 号： bbs.xfnow.com
密 码： 晓风论坛精彩电影
端 口： 21
模 式： 如果不能下载，就取消被动模式试试
速 度： 100K
说 明： 有LIST，单线单任务下载

新动感连续剧1号
服务器地址： 61.132.72.38
用户名： www.cooljs.net.music
passwd: 5kg94k0y
端口： 21
传输类型： pasv
普通用户限定速率： 20K/S
线程：1线程/每个IP地址
有LIST列表权限，可以看到目录内容

黑亮社区高级电影下载账户(密码更新)
ftp地址:g4u.cn
账户名:hlianggaoji
密码:hlianghjghggf
本账户是50K*2的账户.谢谢大家的支持

天天精品论坛
ftp://bbs.5udm.com:[email protected]:21

高速ftp,不要密码
ftp://221.224.20.206

康培1号FTP(600G)
地址: bbs.hz-zj.cn:21
户名: 康培论坛_康培论坛
密码：hz-zj.cn

免费补档服务器
FTP 地址： 218.89.188.107
FTP 端口： 2121
一线程，100k/s，有列表权限，限制50人
登录用户名称：ycdv.com.0ww
登录密码：bbs.ycdv.com1210klKJHb

灵动动画FTP下载100K
soulpower.cn
maxs
marry

冰波FTP服务器(密码更新)
地址：ftp://ftp.bingbo.net
帐号：down-bingbo
密码：NL342369

SOLGG资源站FTP7
ftp://bbs.solgg.com:solgg资源站招聘斑竹@58.211.151.211:21

中国辣客联盟
ftp://luckerer:[email protected]

老蛇影视(原名新生代FTP)100K
ftp://downmov:k8k9654@#[email protected]:21

黑亮社区高级电影下载账户
ftp地址:g4u.cn
账户名:hlianggaoji
密码:bbs.hliang.com
本账户是50K*2的账户.谢谢大家的支持

免费RMVB电影分流服务器
FTP 地址： 218.63.236.66
FTP 端口： 21
一线程，50k/s，有列表权限，限制50人
登录用户名称：ycdv.com.0ww
登录密码：bbs.ycdv.com1210hjgyHCH

免费DvDrip系列网通服务器
FTP 地址： 210.21.112.91
FTP 端口： 21
一线程，80k/s，有列表权限，限制100人
登录用户名称：ycdv.com.dvdrip.0ww
登录密码：bbs.ycdv.com1210jhvCHCK

冒险岛影视
ftp://xbwmmov:[email protected]

免费RMVB电影主力服务器
FTP 地址： 218.93.124.229
FTP 端口： 21
登录用户名称：ycdv.com.0ww
登录密码：bbs.ycdv.com1210tfJKF

免费软件网通服务器
FTP 地址： 210.21.112.91
FTP 端口： 21
一线程，50k/s，有列表权限，限制50人
登录用户名称：ycdv.com.software.0ww
登录密码：bbs.ycdv.com1210LJGccKH

----------------------
下课网资源FTP
ftp://www.xiakee.com:下课网FTP下载火热开张@xiakee.com:21

E娱网电信1号ftp
ftp://ftpdown:[email protected]/

E娱网电信1号ftp
ftp://ftpdown:[email protected]/

天翼网络FTP
ftp://yhzx:[email protected]

冰波FTP服务器
地址：ftp://ftp.bingbo.net
帐号：down-bingbo
密码：JH488235
端口：21
ftp://[email protected]

华中科技大学电信系EDA实验室FTP
ftp://211.69.207.25/

龙帝国FTP
ftp://msfans:[email protected]

266.cc ftp
ftp://xlht.cn1:[email protected]

新动感连续剧1号服务器(美剧)
ftp://www.cooljs.net.music:[email protected]/

歪歪娱乐网电影3#服务器
IP：61.189.248.15
端口：2001
用户：www.wwbt.cn
密码：祝君开心

Film ftp
ftp://221.224.20.206/

星空网娱动漫FTP
ftp://yuyu18_mfdm:鱼鱼影吧http://[email protected]:1013

62368手机网吧ftp
ftp://movie:[email protected]/

华源互动2号FTP(密码更新)
IP：124.114.97.206
端口：21
用户：www.cn0919.com
密码：易游以服务+技术领市场，以诚信+效率求生存理

1.南阳理工学院FTP资源站
本站为南阳理工学院院内用户提供资源下载服务
下载时请使用FTP客户端工具下载(推荐使用CuteFTP，服务器地址：ftp.nyist.net,端口：21)
12月11日更新 ：香港40集电视连续剧《大时代》
11月1日更新 ：软件下载 办公软件 MSOFFICE2003,WPS OFFICE2003
10月30日更新 ：娱乐资源 电影《神话》
10月25日更新 ：娱乐资源 电影《独自等待》
2.民主湖1号FTP（主力资源）l
IP：202.202.12.44l 端口：2121l
帐号设置：download/cqumzh（单线程限速500K/S，并发线程60）upload/cqumzh（单线程不限速，并发线程30）list/cqumzh（单线程，并发线程30）l
内容介绍：1号FTP是民主湖FTP资源站的主要建设项目和服务方向，主要提供共享软件、电子图书、课件资料、经典影视等资源，是一个结合素质教育、寓教于乐的学习型站点。
3.民主湖2号FTP（最新推荐资源）l
IP：202.202.12.44l 端口：8021l
帐号设置：download/cqumzh（单线程限速1M/S，并发线程30）upload/cqumzh（单线程不限速，并发线程30）list/cqumzh（单线程，并发线程30）l
内容介绍：2号FTP是民主湖FTP资源站最新推荐下载的资源，更新速度较快。 5.民主湖3号FTP（游戏资源）l
IP：202.202.12.35l 端口：2121l
帐号设置：download/cqumzh（单线程限速500K/S，并发线程20）upload/cqumzh（单线程限速1M/S，并发线程20）list/cqumzh（单线程，并发线程20）l
内容介绍：3号FTP是民主湖FTP资源站服务于民主湖校园游戏对战平台，同时扩展提供非网络游戏资源。
6.民主湖4号FTP（虎溪校区站）l
IP：222.180.184.20l 端口：21l 帐号设置：download/cqumzh（单线程限速200K/S，并发线程50）upload/cqumzh（单线程不限速，并发线程不限）list/cqumzh（单线程，并发线程30） l
内容介绍：4号FTP目前主要服务虎溪校区用户，是一个综合性的资源站点。

❷ 关于VB的FTP下载。。。

模块里声明：
Option Explicit

Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal LAccessType As Long, ByVal sProxyName As String, _
ByVal SProxyBypass As String, ByVal lFlags As Long) As Long
Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, _
ByVal nServerPort As Integer, ByVal sUsername As String, _
ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _
(ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _
lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _
ByVal dwContent As Long) As Long
Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _
(ByVal hFind As Long, lpvFndData As WIN32_FIND_DATA) As Long

Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const scUserAgent = "VB OpenUrl"
Public Const INTERNET_FLAG_RELOAD = &H80000000

窗体里应用：
Private Sub Command1_Click()
Dim lnginet As Long
Dim lnginetconn As Long
Dim blnRC As Boolean

lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _
vbNullString, vbNullString, 0&)
If lnginet Then
lnginetconn = InternetConnect(lnginet, FTP地址,端口号, 用户名, 密码, 1, 0, 0)
If lnginetconn Then
blnRC = FtpGetFile(lnginetconn, 下载文件名, 保存到本地文件名, 0, 0, 1, 0)
If blnRC Then
MsgBox "download ok!!!"
End If
InternetCloseHandle lnginetconn
InternetCloseHandle lnginet
MsgBox "close ok!!!"
Else
MsgBox "can't connect"
End If
Else
MsgBox "ftp wrong"
End If
End Sub

❸ 数码宝贝第一部在哪里有下载

数码宝贝 1-6季全集高清完整版视频免费在线观看：
链接: https://pan..com/s/1xV9LGkjw6jVB8dDdKT-FTg?pwd=7upn 提取码: 7upn
简介:《数码宝贝》（日文：デジモンアドベンチャー；英文：Digimon Adventure）又名《数码宝贝大冒险》，是根据日本万代旗下同名电子游戏系列改编电视动画连续剧，由东映公司旗下动画工作室制作。本片的剧情接续于1999年3月上映的电影《数码宝贝》，讲述了八神太一、石田大和、武之内素娜等八位孩子因意外进入网络世界，在同伴数码宝贝的陪伴下，一同展开的奇幻冒险故事。

❹ 谁有school days h版下载地址

【导读】现在软件市场上有很多软件都有非常多的版本，不仅仅是为了更新换代的需要，更是为了客户端不同需求而特定开发的版本类型，下面跟着小编一起来学习如何下载school days h版的操作方法吧。

准备材料：

1、演示手机：iPhone XR

2、系统版本: ios13.6.1

3、使用软件：App Store

操作方法：

一、打开App Store

首先，打开手机，点击桌面上的【App Store】。

❺ 跪求school days18X双飞结局版

很好奇没事就看了下viv6.c₀m得，之前未选择过的，也就是没出现，那么接下来就是一个。

❻ 仿生学有什么作用

仿生学一词是1960年由美国斯蒂尔根据拉丁文“bios”(生命方式的意思)和字尾“nlc”(“具有……的性质”的意思)构成的。他认为“仿生学是研究以模仿生物系统的方式、或是以具有生物系统特征的方式、或是以类似于生物系统方式工作的系统的科学”。尽管人类在文明进化中不断从生物界受到新的启示，但仿生学的诞生，一般以1960年全美第一届仿生学讨论会的召开为标志。

仿生学的研究范围主要包括：力学仿生、分子仿生、能量仿生、信息与控制仿生等。
力学仿生，是研究并模仿生物体大体结构与精细结构的静力学性质，以及生物体各组成部分在体内相对运动和生物体在环境中运动的动力学性质。例如，建筑上模仿贝壳修造的大跨度薄壳建筑，模仿股骨结构建造的立柱，既消除应力特别集中的区域，又可用最少的建材承受最大的载荷。军事上模仿海豚皮肤的沟槽结构，把人工海豚皮包敷在船舰外壳上，可减少航行揣流，提高航速；
分子仿生，是研究与模拟生物体中酶的催化作用、生物膜的选择性、通透性、生物大分子或其类似物的分析和合成等。例如，在搞清森林害虫舞毒蛾性引诱激素的化学结构后，合成了一种类似有机化合物，在田间捕虫笼中用千万分之一微克，便可诱杀雄虫；
能量仿生，是研究与模仿生物电器官生物发光、肌肉直接把化学能转换成机械能等生物体中的能量转换过程；
信息与控制仿生，是研究与模拟感觉器官、神经元与神经网络、以及高级中枢的智能活动等方面生物体中的信息处理过程。例如根据象鼻虫视动反应制成的“自相关测速仪”可测定飞机着陆速度。根据鲎复眼视网膜侧抑制网络的工作原理，研制成功可增强图像轮廓、提高反差、从而有助于模糊目标检测的—些装置。已建立的神经元模型达100种以上，并在此基础上构造出新型计算机。
模仿人类学习过程，制造出一种称为“感知机”的机器，它可以通过训练，改变元件之间联系的权重来进行学习，从而能实现模式识别。此外，它还研究与模拟体内稳态，运动控制、动物的定向与导航等生物系统中的控制机制，以及人-机系统的仿生学方面。
某些文献中，把分子仿生与能量仿生的部分内容称为化学仿生，而把信息和控制仿生的部分内容称为神经仿生。

附：部分“仿生学”实例
苍蝇与宇宙飞船
令人讨厌的苍蝇，与宏伟的航天事业似乎风马牛不相及，但仿生学却把它们紧密地联系起来了。
苍蝇是声名狼藉的“逐臭之夫”，凡是腥臭污秽的地方，都有它们的踪迹。苍蝇的嗅觉特别灵敏，远在几千米外的气味也能嗅到。但是苍蝇并没有“鼻子”，它靠什么来充当嗅觉的呢? 原来，苍蝇的“鼻子”——嗅觉感受器分布在头部的一对触角上。
每个“鼻子”只有一个“鼻孔”与外界相通，内含上百个嗅觉神经细胞。若有气味进入“鼻孔”，这些神经立即把气味刺激转变成神经电脉冲，送往大脑。大脑根据不同气味物质所产生的神经电脉冲的不同，就可区别出不同气味的物质。因此，苍蝇的触角像是一台灵敏的气体分析仪。
仿生学家由此得到启发，根据苍蝇嗅觉器的结构和功能，仿制成功一种十分奇特的小型气体分析仪。这种仪器的“探头”不是金属，而是活的苍蝇。就是把非常纤细的微电极插到苍蝇的嗅觉神经上，将引导出来的神经电信号经电子线路放大后，送给分析器；分析器一经发现气味物质的信号，便能发出警报。这种仪器已经被安装在宇宙飞船的座舱里，用来检测舱内气体的成分。
这种小型气体分析仪，也可测量潜水艇和矿井里的有害气体。利用这种原理，还可用来改进计算机的输入装置和有关气体色层分析仪的结构原理中。
从萤火虫到人工冷光
自从人类发明了电灯，生活变得方便、丰富多了。但电灯只能将电能的很少一部分转变成可见光，其余大部分都以热能的形式浪费掉了，而且电灯的热射线有害于人眼。那么，有没有只发光不发热的光源呢? 人类又把目光投向了大自然。
在自然界中，有许多生物都能发光，如细菌、真菌、蠕虫、软体动物、甲壳动物、昆虫和鱼类等，而且这些动物发出的光都不产生热，所以又被称为“冷光”。
在众多的发光动物中，萤火虫是其中的一类。萤火虫约有1 500种,它们发出的冷光的颜色有黄绿色、橙色，光的亮度也各不相同。萤火虫发出冷光不仅具有很高的发光效率，而且发出的冷光一般都很柔和，很适合人类的眼睛，光的强度也比较高。因此，生物光是一种人类理想的光。
科学家研究发现，萤火虫的发光器位于腹部。这个发光器由发光层、透明层和反射层三部分组成。发光层拥有几千个发光细胞，它们都含有荧光素和荧光酶两种物质。在荧光酶的作用下，荧光素在细胞内水分的参与下，与氧化合便发出荧光。萤火虫的发光，实质上是把化学能转变成光能的过程。
早在40年代，人们根据对萤火虫的研究，创造了日光灯，使人类的照明光源发生了很大变化。近年来，科学家先是从萤火虫的发光器中分离出了纯荧光素，后来又分离出了荧光酶，接着，又用化学方法人工合成了荧光素。由荧光素、荧光酶、ATP(三磷酸腺苷)和水混合而成的生物光源,可在充满爆炸性瓦斯的矿井中当闪光灯。由于这种光没有电源，不会产生磁场，因而可以在生物光源的照明下，做清除磁性水雷等工作。
现在，人们已能用掺和某些化学物质的方法得到类似生物光的冷光，作为安全照明用。
电鱼与伏特电池
自然界中有许多生物都能产生电，仅仅是鱼类就有500余种 。人们将这些能放电的鱼，统称为“电鱼”。
各种电鱼放电的本领各不相同。放电能力最强的是电鳐、电鲶和电鳗。中等大小的电鳐能产生70伏左右的电压,而非洲电鳐能产生的电压高达220伏；非洲电鲶能产生350伏的电压；电鳗能产生500伏的电压，有一种南美洲电鳗竟能产生高达880伏的电压，称得上电击冠军,据说它能击毙像马那样的大动物。
电鱼放电的奥秘究竟在哪里?经过对电鱼的解剖研究， 终于发现在电鱼体内有一种奇特的发电器官。这些发电器是由许多叫电板或电盘的半透明的盘形细胞构成的。由于电鱼的种类不同，所以发电器的形状、位置、电板数都不一样。电鳗的发电器呈棱形，位于尾部脊椎两侧的肌肉中；电鳐的发电器形似扁平的肾脏，排列在身体中线两侧，共有200万块电板;电鲶的发电器起源于某种腺体，位于皮肤与肌肉之间,约有500万块电板。单个电板产生的电压很微弱，但由于电板很多，产生的电压就很大了。
电鱼这种非凡的本领，引起了人们极大的兴趣。19世纪初，意大利物理学家伏特，以电鱼发电器官为模型，设计出世界上最早的伏打电池。因为这种电池是根据电鱼的天然发电器设计的,所以把它叫做“人造电器官”。对电鱼的研究，还给人们这样的启示：如果能成功地模仿电鱼的发电器官，那么，船舶和潜水艇等的动力问题便能得到很好的解决。
水母的顺风耳
“燕子低飞行将雨，蝉鸣雨中天放晴。”生物的行为与天气的变化有一定关系。沿海渔民都知道，生活在沿岸的鱼和水母成批地游向大海，就预示着风暴即将来临。
水母，又叫海蜇，是一种古老的腔肠动��
�，早在5亿年前,它就漂浮在海洋里了。这种低等动物有预测风暴的本能，每当风暴来临前，它就游向大海避难去了。
原来，在蓝色的海洋上，由空气和波浪摩擦而产生的次声波 (频率为每秒8—13次)，总是风暴来临的前奏曲。这种次声波人耳无法听到，小小的水母却很敏感。仿生学家发现，水母的耳朵的共振腔里长着一个细柄，柄上有个小球，球内有块小小的听石，当风暴前的次声波冲击水母耳中的听石时，听石就剌激球壁上的神经感受器，于是水母就听到了正在来临的风暴的隆隆声。
仿生学家仿照水母耳朵的结构和功能，设计了水母耳风暴预测仪，相当精确地模拟了水母感受次声波的器官。把这种仪器安装在舰船的前甲板上，当接受到风暴的次声波时，可令旋转360°的喇叭自行停止旋转,它所指的方向，就是风暴前进的方向；指示器上的读数即可告知风暴的强度。这种预测仪能提前15小时对风暴作出预报，对航海和渔业的安全都有重要意义。

❼ 谁知道现在哪能下到school days的6集版本，以前的连接基本都失效了

ftp://220.165.8.72:23/[School Days][部分H][18X]/[School_Days][01].rmvb
ftp://220.165.8.72:23/[School Days][部分H][18X]/[School_Days][02].rmvb
ftp://220.165.8.72:23/[School Days][部分H][18X]/[H版][School_Days][03][初体验].rmvb
ftp://220.165.8.72:23/[School Days][部分H][18X]/[H版][School_Days][04][两人的夜祭].rmvb
ftp://220.165.8.72:23/[School Days][部分H][18X]/[H版][School_Days][05][如君所愿].rmvb
ftp://220.165.8.72:23/[School Days][部分H][18X]/[H版][School_Days][06][二人的恋人].rmvb
将地址放在迅雷新建任务地址栏即可 ,试试看吧

❽ VB中使用FTP无法对本地文件进行操作，为什么

我重新给你一个

模块（ftp.cls）
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "FTP1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'******************
'download by http://www.NewXing.com
'*******************
Private Declare Function InternetOpen _
Lib "wininet.dll" _
Alias "InternetOpenA" (ByVal sAgent As String, _
ByVal lAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long
Private Declare Function InternetConnect _
Lib "wininet.dll" _
Alias "InternetConnectA" (ByVal hInternetSession As Long, _
ByVal sServerName As String, _
ByVal nServerPort As Integer, _
ByVal sUsername As String, _
ByVal sPassword As String, _
ByVal lService As Long, _
ByVal lFlags As Long, _
ByVal lContext As Long) As Long
Private Declare Function FtpGetFile _
Lib "wininet.dll" _
Alias "FtpGetFileA" (ByVal hFtpSession As Long, _
ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, _
ByVal fFailIfExists As Boolean, _
ByVal dwFlagsAndAttributes As Long, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
Private Declare Function FtpPutFile _
Lib "wininet.dll" _
Alias "FtpPutFileA" (ByVal hFtpSession As Long, _
ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
Private Declare Function FtpDeleteFile _
Lib "wininet.dll" _
Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, _
ByVal lpszFileName As String) As Boolean
Private Declare Function FtpRenameFile _
Lib "wininet.dll" _
Alias "FtpRenameFileA" (ByVal hFtpSession As Long, _
ByVal lpszExsiting As String, _
ByVal lpszNew As String) As Boolean
Private Declare Function InternetCloseHandle _
Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Declare Function FtpCreateDirectory _
Lib "wininet.dll" _
Alias "FtpCreateDirectoryA" (ByVal hFtpSession&, _
ByVal lpszDirectory$) As Boolean
Dim 连接状态 As Boolean
Dim 连接句柄 As Long
Public Function 连接服务器(ip As String, 端口 As Integer, 帐号 As String, 密码 As String) As Boolean
Dim 初始化 As Long
初始化 = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0&)
连接句柄 = InternetConnect(初始化, ip, 端口, 帐号, 密码, 1, 0, 0)
If 连接句柄 > 0 Then
连接状态 = True
Else
连接状态 = False
End If
连接服务器 = 连接状态
End Function

Public Function 上传文件(本地路径 As String, 远程路径 As String) As Boolean
If 连接状态 = True Then
上传文件 = FtpPutFile(连接句柄, 本地路径, 远程路径, 1, 0)
Else
MsgBox "请先确认连接"
End If
End Function

Public Function 下载文件(远程路径 As String, 本地路径 As String) As Boolean
If 连接状态 = True Then
下载文件 = FtpGetFile(连接句柄, 远程路径, 本地路径, False, &H80000000, &H0, 0)
Else
MsgBox "请先确认连接"
End If
End Function

Public Function 删除文件(远程路径 As String) As Boolean
If 连接状态 = True Then
删除文件 = FtpDeleteFile(连接句柄, 远程路径)
Else
MsgBox "请先确认连接"
End If
End Function

Public Function 创建目录(ByVal 路径 As String) As String
If 连接状态 = True Then
创建目录 = FtpCreateDirectory(连接句柄, 路径)
Else
MsgBox "请先确认连接"
End If
End Function

Public Function 文件改名(ByVal 原文件名 As String, ByVal 新文件名 As String)
If 连接状态 = True Then
ReturnVal& = FtpRenameFile(连接句柄, 原文件名, 新文件名)
Else
MsgBox "请先确认连接"
End If
End Function

窗口调用：
Dim Fffd As FTP1
Set Fffd = New FTP1
Call Fffd.连接服务器(IP地址, 21, "用户名", "密码")
Call Fffd.上传文件(Mid(文件名, 7))

❾ 跪求school days非和谐版

tp://220.165.8.72:23/[School Days][部分H][18X]/[School_Days][01].rmvb
ftp://220.165.8.72:23/[School Days][部分H][18X]/[School_Days][02].rmvb
ftp://220.165.8.72:23/[School Days][部分H][18X]/[H版][School_Days][03][初体验].rmvb
ftp://220.165.8.72:23/[School Days][部分H][18X]/[H版][School_Days][04][两人的夜祭].rmvb
ftp://220.165.8.72:23/[School Days][部分H][18X]/[H版][School_Days][05][如君所愿].rmvb
ftp://220.165.8.72:23/[School Days][部分H][18X]/[H版][School_Days][06][二人的恋人].rmvb

我搜了下，居然第一个出来的就是我的答案……
http://v.youku.com/v_show/id_XMTI2MjA4MDQ0.html
这个是鲜血版的TV结局

❿ 如 data.txt里： id|ip|pro 1|192.168.15.1|ftp 2|192.168.15.42|http 3|192.168.15.22|udp

#!/usr/bin/perl

my %h;
while(<DATA>){
chomp;
my ( $id, $ip, $pro ) = split /\|/;
push @{$h{id}}, $id;
push @{$h{ip}}, $ip;
push @{$h{pro}}, $pro;
}
print "$_ => ", join(', ', @{$h{$_}}), "\n" for keys %h;

__DATA__
1|192.168.15.1|ftp
2|192.168.15.42|http
3|192.168.15.22|udp

======================
pro => ftp , http , udp
ip => 192.168.15.1, 192.168.15.42, 192.168.15.22
id => 1, 2, 3