肥胖非洲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