叫LA的女ftp

1. ftp连接不上是什么原因

修改下面的设置，把勾去掉就解决了。

方法：

1、打开IE的菜单"工具"->"Internet 选项"；

2、点击“高级”标签卡；

3、将“浏览”节点下的“使用被动FTP（为防火墙和DSL调制解调器兼容性）”前面的勾去掉。

2. FTP软件怎么使用

在IP地址那，输入你空间的IP

用户名那里，就输入你空间的账号

密码那里，就输入你空间的密码，

然后点击“连接”，就可以进入空间了。

如果还不明白，可以找我问。

3. 有18岁的女介绍吗

问的什么都不知道 还贴了这么多地址
毛病~！

4. 怎么通过ftp传送文本文件

不知道你的winsock是udp还是tcpip协议

这里给你一个我写的实例我是用的udp这个发送了一段数据不一定接收就正确所以我做了校验

'以下是接收文件的

OptionExplicit

DimFOKAsBoolean,FsAsLong,FileNumberAsInteger,LenFileAsLong '文件的长度

PrivateSubCommand1_Click()

UnloadMe

EndSub

PrivateSubCommand2_Click()

OnErrorResumeNext

DimAAsString

Me.Caption="开始下载"

IfDir(Text2.Text)<>""AndChV.Value=0Then

IfMsgBox("文件已经存在,覆盖吗?",vbCritical+vbYesNo)=vbYesThenKillText2.TextElseExitSub

Else

KillText2.Text

EndIf

IfText2.Text=""ThenText2.Text=Text1.Text

'Command2.Enabled=False

IfCh.Value=0ThenA="#DOW#"ElseA="#DOV#"

FMain.Wsk.SendDataA&Text1.Text

Wt1

FMain.Wsk.SendData"#DOE#"&Text2.Text

EndSub

PrivateSubForm_Load()

DimAAsString

'FMain.Ts.Enabled=True

OnErrorResumeNext

IfFMain.Cb.Text="本地组"OrFMain.Cb.Text="全部组"Then

Me.Caption="请重选下载用户[“组”不能正确下载]"

Else

Command1.Top=-2000

Winsock0.LocalPort=FilePort

Winsock0.Bind

EndIf

EndSub

PrivateSubForm_Unload(CancelAsInteger)

OnErrorResumeNext

Winsock0.Close

Err.Clear

EndSub

PrivateSubLa_Click()

CDL.FileName=""

CDL.ShowOpen

Text2.Text=CDL.FileName

EndSub

PrivateSubWinsock0_DataArrival(ByValbytesTotalAsLong)

OnErrorResumeNext

DimFileByte()AsByte,AAsString,MendByte()AsByte,IAsLong,JAsLong,TempAsString,WAsString

Winsock0.GetDataFileByte,vbArray+vbByte'接收类型为:字节数组

J=UBound(FileByte)'获得包长

ForI=0To7Step2'合并包头

Temp=Temp&Chr(FileByte(I))

Next

ForI=0To9'文件发送结束标记

A=A&Chr(FileByte(I))

Next

IfA="#ERR#"ThenWinsock0.SendData"no"

IfA="#END#"Then

ForI=0ToLen(FMain.TIn.Text)

IfI<100Then

W=Left(Right(FMain.TIn.Text,I),1)

IfW="!"Then

W=Left(Right(FMain.TIn.Text,I+4),5)

ExitFor

EndIf

Else

ExitFor

EndIf

NextI

IfW<>"下载完成!"Then

FOK=False

Me.Caption="下载完成!["&Text2.Text&"]"

FMain.TIn.Text=FMain.TIn.Text&"["&Now&"]"&"下载完成!("&Fs&"<="&LenFile&")"&vbCrLf

Command2.Enabled=True

EndIf

Else

IfVal(Temp)=JThen'比较长度看丢包没有

ReDimMendByte(J-8)

ForI=0ToJ-8'提出包头

MendByte(I)=FileByte(I+7)

Next

Fs=Fs+UBound(FileByte)-7

Put#FileNumber,,MendByte'写文件

Winsock0.SendData"ok"'发送继续发送的请求

Me.Caption="文件下载完成:["&Left(Fs/LenFile*100,4)&"%]"

Else

IfLeft(A,10)="#SENDSTA#"Then

A=""

ForI=10ToUBound(FileByte)'文件发送结束标记

A=A&Chr(FileByte(I))

Next

LenFile=Val(Left(A,InStr(A,"//")-1))

ForI=0ToLen(Text2.Text)

A=Left(Right(Text2.Text,I),1)

IfA=""ThenExitFor

Next

IfDir(Left(Text2.Text,Len(Text2.Text)-I+1),vbDirectory)=""ThenMkDirLeft(Text2.Text,Len(Text2.Text)-I+1)

'"#SENDSTA#"&FileLen(Text1.Text)&"//"&Text2.Text

FileNumber=FreeFile'取得未使用的文件号

Fs=0

OpenText2.TextForBinaryAs#FileNumber'打开文件

Else

IfA<>"#SENDEND#"Then

Winsock0.SendData"no"'出现丢包，请求重发

Else

Winsock0.SendData"#END#"'发送继续发送的请求

Close#FileNumber

Reset

IfFOK=FalseThen

FOK=True

Me.Caption="下载完成!["&Text2.Text&"]"

FMain.TIn.Text=FMain.TIn.Text&"["&Now&"]"&"下载完成!("&Fs&"<="&LenFile&")"&vbCrLf

Command2.Enabled=True

Else

FOK=False

EndIf

EndIf

EndIf

EndIf

EndIf

EndSub