VB写的ftp服务器怎么搭建,serv-u搭建ftp服务器

Q1：VB FTP服务器 制作

首先,要保证你的机器能上网,而且有不低于ADSL 512Kbps的网络速度。其次,硬件性能要能满足你的需要。最后,需要安装FTP服务器端的软件,这类软件很多,可以使用微软的IIS(Internet Information Server 因特网信息服务系统),也可以使用专业软件。不同的软件提供的功能不同,适应的需求和操作系统也不同。一般来说,系统最低要求如下: CPU:PⅢ 450MHz以上 内存:256MB SDRAM以上 带宽:ADSL 512Kbps以上 至于操作系统,Windows 98/Me/NT/2000/XP均可,如果对服务器的性能和安全性要求很低,可以采用Windows 98和Windows Me。本文中,如无特殊说明,均以Windows XP专业版为操作系统,其余操作系统下FTP服务器的架设及设置均大同小异。 一、用IIS架设(windows 2000 和windows XP 自带) 如果只是想建个小型的同时在线用户数不超过10个的FTP服务器,且不会同时进行大流量的数据传输,可以用IIS 5.0作为服务器软件来架设(IIS只适用于Windows NT/2000/XP操作系统)。 1.安装 Windows XP默认安装时不安装IIS组件,需要手工添加安装。进入控制面板,找到“添加/删除程序”,打开后选择“添加/删除Windows组件”,在弹出的“Windows组件向导”窗口中,将“Internet信息服务(IIS)”项选中。在该选项前的“√”背景色是灰色的,这是因为Windows XP默认并不安装FTP服务组件。再点击右下角的“详细信息”,在弹出的“Internet信息服务(IIS)”窗口中,找到“文件传输协议(FTP)服务”,选中后确定即可。 安装完后需要重启。Windows NT/2000和Windows XP的安装方法相同。 2.设置 电脑重启后,FTP服务器就开始运行了,但还要进行一些设置。点击“开始→所有程序→管理工具→Internet信息服务”,进入“Internet信息服务”窗口后,找到“默认FTP站点”,右击鼠标,在弹出的右键菜单中选择“属性”。在“属性”中,我们可以设置FTP服务器的名称、IP、端口、访问账户、FTP目录位置、用户进入FTP时接收到的消息等。 1)FTP站点基本信息 进入“FTP站点”选项卡,其中的“描述”选项为该FTP站点的名称,用来称呼你的服务器,可以随意填,比如“我的小站”;“IP地址”为服务器的IP,系统默认为“全部未分配”,一般不须改动,但如果在下拉列表框中有两个或两个以上的IP地址时,最好指定为公网IP;“TCP端口”一般仍设为默认的21端口;“连接”选项用来设置允许同时连接服务器的用户最大连接数;“连接超时”用来设置一个等待时间,如果连接到服务器的用户在线的时间超过等待时间而没有任何操作,服务器就会自动断开与该用户的连接。 2)设置账户及其权限 很多FTP站点都要求用户输入用户名和密码才能登录,这个用户名和密码就叫账户。不同用户可使用相同的账户访问站点,同一个站点可设置多个账户,每个账户可拥有不同的权限,如有的可以上传和下载,而有的则只允许下载。 3)安全设定 进入“安全账户”选项卡,有“允许匿名连接”和“仅允许匿名连接”两项,默认为“允许匿名连接”,此时FTP服务器提供匿名登录。“仅允许匿名连接”是用来防止用户使用有管理权限的账户进行访问,选中后,即使是Administrator(管理员)账号也不能登录,FTP只能通过服务器进行“本地访问”来管理。至于“FTP站点操作员”选项,是用来添加或删除本FTP服务器具有一定权限的账户。IIS与其他专业的FTP服务器软件不同,它基于Windows用户账号进行账户管理,本身并不能随意设定FTP服务器允许访问的账户,要添加或删除允许访问的账户,必须先在操作系统自带的“管理工具”中的“计算机管理”中去设置Windows用户账号,然后再通过“安全账户”选项卡中的“FTP站点操作员”选项添加或删除。但对于Windows 2000和Windows XP专业版,系统并不提供“FTP站点操作员”账户添加与删除功能,只提供Administrator一个管理账号。

Q2：vb做ftp服务器

不能仅仅简单买一个高性能服务器来解决问题，建议楼主还是咨询下系统集成厂商，或者懂这方面的朋友，帮你来分析下你们公司的实际情况！以下是我的建议： 既然是OA系统，我们必须要确保其安全性，如果公司对OA的依赖程度很高的话，或者文件都是存放在服务器上的！那么建议你不要只用一台服务器！具体可以这样： 分为两台机器，一台OA服务器，一台WEB服务器；根据负载，如WEB服务器的负载不大，那么配置可以略低于OA服务器，把有限的预算加到OA服务器上去（如果预算充足，那么OA、web、卡巴服务器、邮件服务器（如果有的话）等，分别采购不同的服务器）；然后通过集群，首先OA服务器和web服务器（或者邮件服务器，邮件一般也是企业不能缺少的）做双机互备，这样的话，即使其中任何一台机器有问题，那么服务器会自动切换到另一台，这样在保证企业正常使用的前提下，完成服务器修复！ 当然OA以及邮件等一些数据对企业来说是非常重要的，损失了往往后果不堪设想的，所以在数据备份方面，如果预算充足，还是建议再挂一台存储器，最好再上一个磁带机！把OA数据库、邮件数据备份在存储设备上！这样即使服务器数据被人攻击或者遭遇严重的病毒攻击，服务器数据完全丢失的情况下，在重装服务器后，可以通过存储设备中备份的数据来挽回损失！ 当然关于其他一些问题，包括安装杀毒软件，还有还原软件（赛门铁克比较著名）之类的也需要注意！

Q3：用VB做一个自动从FTP服务器下载文件并运行的程序

Option Explicit Dim strCommand As String Dim strWebPage As String Private Sub Command1_Click() Winsock1.RemoteHost = "202.103.176.81" "返回或设置远程计算机，控件向它发送数据或从它那里接收数据。既可提供主机名，比如 "FTP://ftp.microsoft.com"，也可提供点格式下的 IP 地址字符串，比如 "100.0.1.1"。 Winsock1.RemotePort = 80 "返回或设置要连接的远程端口号 Winsock1.Connect "返回与远程计算机的连接。 End Sub Private Sub Winsock1_Connect() "当一个 Connect 操作完成时发生。 On Error Resume Next strWebPage = " http://202.103.176.81/crun/yingzi007/code_1.asp" strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf "GET 为FTP命令 strCommand = strCommand + "Accept: */*" + vbCrLf "这句可以不要 strCommand = strCommand + "Accept: text/html" + vbCrLf "这句可以不要 strCommand = strCommand + vbCrLf "记住一定要加上vbCrLf Debug.Print strCommand Winsock1.SendData strCommand ""给远程计算机发送数据 End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) "当新数据到达时产生该事件 On Error Resume Next "在错误处理程序结束后，恢复原有的运行 Dim webData As String Winsock1.GetData webData, vbString "检取当前的数据块 Text1.Text = Text1.Text + webData End Sub

Q4：VB中如何读取ftp服务器上面的text文本文件？

使用Inet控件进行FTP操作inet1 . protocol=icftpinet 1 . remote host=p _ server name "服务器IP或域名Inet 1 . remote port=cint(p _ server port)FTP端口Inet 1。UserName=uName "FTP帐户Inet1。Password=uPWS "FTP密码Inet1。执行""，Ls" ri=inet1。Stillexecutingdo whiriri=inet1。still executing dos ventslosopvd=inet 1。getchunk (1024，icstring)判断服务的FTP是否连接成功。在下面的服务器上下载文本数据。假设文件名为1.txtp_pathDir是当前软件运行目录，下一个字符带有\。比如e3360 \ 1111 \ tepfile的临时文件，工作原理是先下载这个文件，然后判断本地是否存在。如果存在，请打开文件读取内容。如果不存在，则表示服务器上不存在此文件，但需要注意的是，如果文件太大，可能需要等待。tepFile=p _ PathDir " 1 . txt _ " " Inet 1。执行hDir，" get 1.txt " tepFileInet1。执行""，" GET 1.txt " tepFileri=Inet1。当riri=Inet1时仍然执行。stillexecutingdoeventslopif Dir(tepFile)=" " thennet 1。CancelMsgBox "文件不存在" inetstate，vbokonly，exist，"系统提示" ElseInet1。这里已经存在‘取消’，就像本地操作文件一样，请打开获取的内容，不要详细写出‘End If’。

Q5：VB6 如何使用ftp上传文件到服务器

Option ExplicitPublic 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 LongPublic 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 LongPublic 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 BooleanPublic 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 BooleanPublic Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" _(ByVal hFtpSession As Long, ByVal lpszFileName As String) As BooleanPublic Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" _(ByVal hFtpSession As Long, ByVal lpszExsiting As String, ByVal lpszNew As String) As BooleanPublic Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As IntegerPublic 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 LongPublic Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _(ByVal hFind As Long, lpvFndData As WIN32_FIND_DATA) As LongConst INTERNET_OPEN_TYPE_PRECONFIG = 0Public Type FILETIMEdwLowDateTime As LongdwHighDateTime As LongEnd TypePublic Type WIN32_FIND_DATAdwFilAttributes As LongftCreationTime As FILETIMEftLastAccessTime As FILETIMEftLastWriteTime As FILETIMEnFileSizeHigh As LongnFileSizeLow As LongdwReserved0 As LongdwReserved1 As LongcFileName As String * 260cAlternate As String * 14End TypePublic Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongType OPENFILENAMElStructSize As LonghwndOwner As LonghInstance As LonglpstrFilter As StringlpstrCustomFilter As StringnMaxCustFilter As LongnFilterIndex As LonglpstrFile As StringnMaxFile As LonglpstrFileTitle As StringnMaxFileTitle As LonglpstrInitialDir As StringlpstrTitle As Stringflags As LongnFileOffset As IntegernFileExtension As IntegerlpstrDefExt As StringlCustData As LonglpfnHook As LonglpTemplateName As StringEnd TypePrivate Sub Command1_Click()lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _vbNullString, vbNullString, 0&)If lnginet Thenlnginetconn = InternetConnect(lnginet, "ip地址", 0, _"用户名", "密码", 1, 0, 0)If lnginetconn ThenblnRC = FtpGetFile(lnginetconn, "website/address.asp", "c:/address.asp", 0, 0, 1, 0)If blnRC ThenMsgBox "download ok!!!"End IfInternetCloseHandle lnginetconnInternetCloseHandle lnginetMsgBox "close ok!!!"ElseMsgBox "can"t connect"End IfElseMsgBox "ftp wrong"End IfEnd SubPrivate Sub Command2_Click()Dim pData As WIN32_FIND_DATADim lngHINet As LongDim intError As IntegerDim strTemp As StringDim blnRC As BooleanpData.cFileName = String(260, 0)lnginet = InternetOpen(vbNullString, INTERNET_OPEN_TYPE_PRECONFIG, _vbNullString, vbNullString, 0&)If lnginet Thenlnginetconn = InternetConnect(lnginet, "IP地址", 0, _"用户名", "密码", 1, 0, 0)If lnginetconn ThenlngHINet = FtpFindFirstFile(lnginetconn, "*.*", pData, 0, 0)strTemp = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)DopData.cFileName = String(260, 0)blnRC = InternetFindNextFile(lngHINet, pData)If Not blnRC ThenExit DoElsestrTemp = Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)End IfLoopText1.Text = strTempEnd IfEnd IfInternetCloseHandle lngHINetInternetCloseHandle lnginetconnInternetCloseHandle lnginetEnd Sub

Q6：vb 上传文件到指定ftp服务器

采用ezftp控件FTP.RemoteAddress = 地址 FTP.UserName = 用户名 FTP.Password = 密码 FTP.Connect FTP.LocalFile = 文件本地地址 FTP.RemoteFile = ftp上的地址 On Error Resume Next FTP.PutFile If Err 0 Then MsgBox "未能连接到远程服务器，请检测网络", vbExclamation, "注意" Exit Sub End If MsgBox "上传成功", , "成功！" FTP.Disconnect