VB6做一个简单的FTP下载问题_百度知道
VB6做一个简单的FTP下载问题
求高手指导！！ 窗体上三个控件，2个COMMANDBUTTON和一个INET控件（连接FTP用的）2个BUTTON分别是FTPLink（连接FTP用）和FTPget（下载文件用的）过程很简单，先点击FTPlink连接到FTP服务器，再点击FTPget下载一个文件到本地。以下是代码：Private Sub FTPLink_Click(Index As Integer)Inet1.excute &FTP 61.235.123.26&End SubPrivate Sub FTPget_Click(Index As Integer)Inet1.excute &GET test.mdb d:\test.mdb&End SubPrivate Sub Inet1_StateChanged(ByVal State As Integer)AccessType = 1 - icDirectProtocol = 2 - icFTPUserName = &admin&Password = &123&End Sub生成EXE的时候提示在FTPLink_Click和FTPget_Click过程中提示Inet1.excute编译错误：未找到方法和数据成员。请问是什么问题啊，求大神指导。
我有更好的答案
iNet的Excute方法有4给参数，url、operation、data 和requestHeaders实现ftp的时候前两个参数需要，就是说应该是iNet1.Excute &FTP://61.235.123.26&,&GET test.mdb d:\test.mdb&，不需要分成2个操作
其他类似问题
为您推荐：
vb6的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁在VB如何模仿浏览器地址输入_百度知道
提问者采纳
可以使用API函数ShellExcute,我给您写了一个简单的程序,您运行后可以看到结果和关于ShellExcute的说明,望加分！运行方法:1.新建一个文本文件2.将代码粘贴在里面3.另存为“frmMain.frm”（注意,保存为frm后缀名）4.双击“frmMain.frm”将自动调用VB6打开.注意:我的代码是frm文件的源文件,不要直接粘贴在VB6的IDE里面双击出来的文本框里！代码如下&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&VERSION 5.00Begin VB.Form frmMain
&Search Assistant Demo&
ClientHeight
ClientLeft
ClientWidth
ScaleHeight
ScaleWidth
StartUpPosition =
'窗口缺省
Begin VB.Frame fraQueryEngine
&选择搜索引擎&
Begin VB.OptionButton optQueryEngine
Begin VB.OptionButton optQueryEngine
Begin VB.OptionButton optQueryEngine
Begin VB.TextBox txtQueryText
&输入要搜索的内容&
mandButton cmdQuery
Begin VB.Label lblKeyWord
&关键词：&
EndEndAttribute VB_Name = &frmMain&Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption Explicit'**************************************************************************************************************'ShellExecute''VB声明'
Declare Function ShellExecute Lib &shell32.dll& Alias &ShellExecuteA& (ByVal hwnd As Long, _'
ByVal lpOperation As String, _'
ByVal lpFile As String, _'
ByVal lpParameters As String, _'
ByVal lpDirectory As String, _'
ByVal nShowCmd As Long) As Long'说明'
查找与指定文件关联在一起的程序的文件名'返回值'
Long，非零表示成功，零表示失败。会设置GetLastError'参数表'
类型及说明'
指定一个窗口的句柄，有时候，windows程序有必要在创建自己的主窗口前显示一个消息框'
lpOperation
String，指定字串“open”来打开lpFlie文档，或指定“Print”来打印它'
String，想用关联程序打印或打开一个程序名或文件名'
lpParameters String，如lpszFlie是可执行文件，则这个字串包含传递给执行程序的参数'
lpDirectory
String，想使用的完整路径'
定义了如何显示启动程序的常数值。参考ShowWindow函数的nCmdShow参数'**************************************************************************************************************'**************************************************************************************************************'GetLastError''VB声明'
Declare Function GetLastError Lib &kernel32& () As Long'说明'
针对之前调用的api函数，用这个函数取得扩展错误信息（在vb里使用：在vb中，用Err对象的GetLastError属性获取'GetLastError的值。这样做是必要的，因为在api调用返回以及vb调用继续执行期间，vb有时会重设GetLastError的值）'返回值'
Long，由api函数决定。请参考api32.txt文件，其中列出了一系列错误常数；都以ERROR_前缀起头。'常用的错误代码'
ERROR_INVALID_HANDLE
无效的句柄作为一个参数传递'
ERROR_CALL_NOT_IMPLEMENTED
在win 95下调用专为win nt设计的win32 api函数'
ERROR_INVALID_PARAMETER
函数中有个参数不正确'注解'
GetLastError返回的值通过在api函数中调用SetLastError或SetLastErrorEx设置。函数并无必要设置上一次错误信息，所'以即使一次GetLastError调用返回的是零值，也不能担保函数已成功执行。只有在函数调用返回一个错误结果时，这个函数指'出的错误结果才是有效的。通常，只有在函数返回一个错误结果，而且已知函数会设置GetLastError变量的前提下，才应访问'GetLastError；这时能保证获得有效的结果。SetLastError函数主要在对api函数进行模拟的dll函数中使用，所以对vb应用程'序来说是没有意义的'**************************************************************************************************************'**************************************************************************************************************'ShowWindow''VB声明'
Declare Function ShowWindow Lib &user32& (ByVal hwnd As Long, _'
ByVal nCmdShow As Long) As Long'说明'
控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性）'返回值'
Long，如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零）'参数表'
类型及说明'
Long，窗口句柄，要向这个窗口应用由nCmdShow指定的命令'
nCmdShow Long，为窗口指定可视性方面的一个命令。'请用下述任何一个常数'
隐藏窗口，活动状态给令一个窗口'
SW_MINIMIZE
最小化窗口，活动状态给令一个窗口'
SW_RESTORE
用原来的大小和位置显示一个窗口，同时令其进入活动状态'
用当前的大小和位置显示一个窗口，同时令其进入活动状态'
SW_SHOWMAXIMIZED
最大化窗口，并将其激活'
SW_SHOWMINIMIZED
最小化窗口，并将其激活'
SW_SHOWMINNOACTIVE
最小化一个窗口，同时不改变活动窗口'
用当前的大小和位置显示一个窗口，不改变活动窗口'
SW_SHOWNOACTIVATE
用最近的大小和位置显示一个窗口，同时不改变活动窗口'
SW_SHOWNORMAL
与SW_RESTORE相同'**************************************************************************************************************Private Declare Function ShellExecute Lib &shell32.dll& Alias &ShellExecuteA& (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongDim szQueryEngine As String '搜索引擎代码'载入窗体时初始化搜索引擎代码,默认为optQueryEngine的默认引擎,即百度搜索的搜索代码Private Sub Form_Load()
szQueryEngine = &&End Sub'使用Option数组来选择搜索引擎,Option数组的名字为&optQueryEngine&,分别代表三个不同搜索引擎,可另行添加Private Sub optQueryEngine_Click(Index As Integer)
Select Case Index
szQueryEngine = &&
szQueryEngine = &&
szQueryEngine = &&
End SelectEnd Sub'使用TextBox来输入待查询的词,TextBox的名字为&txtQueryText&,以下过程使txtQueryText获取焦点时自动全选Private Sub txtQueryText_GotFocus()
txtQueryText.SelStart = 0
txtQueryText.SelLength = Len(txtQueryText.Text)End SubPrivate Sub cmdQuery_Click()
Debug.Print IIf((ShellExecute(Me.hwnd, &open&, szQueryEngine & txtQueryText.Text, vbNullString, vbNullString, 0)) & 32, &Successed&, &Failed&)End Sub
提问者评价
..不错 谢谢了 但是还差一个直接输入地址 浏览的
其他类似问题
为您推荐：
您可能关注的推广
浏览器的相关知识
其他1条回答
使用 vb的webbrowse控件就可以搞定了
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁也许你感兴趣
1. 2. 3. 4. 5. 6. 7. 8. 9. 10.