作者b8888 (b8888)
看板Visual_Basic
标题Re: [VB6 ] 有关inet 的引用
时间Wed Feb 25 15:15:55 2009
: 推 Y78:改成 form1.inet1 02/24 18:54
先谢谢Y78大大的说明
小弟後来想到可以放到Form_Load中
所以改写程式
Private Sub Form_Load()
With Inet1
.URL = "ftp://1XX.X.1XX.2XX"
.UserName = "USER"
.Password = "PWD"
.Execute , "get F1.txt D:\F1.txt
' .Execute , "CLOSE" '关闭连接。
End With
'End === > 这边搞不定
End Sub
现在有一个问题是
如果有加end的指令在执行後会自动结束程式;但不会下载档案
^^^^^^^ ^^^^^^^^^^^^^^^
如果有没有加end的指令在执行後不会结束程式(会秀出表单);但会下载档案
^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
想请问的是~~~
我该如何做可以下载档案;程式也可以自动结束?
^^^^^^^^^^^^^^^^^^^^^^^^^^^^
或是有什麽方法去判断档案已下载完成?
我有试过 Private Sub Inet1_StateChanged(ByVal State As Integer)
去抓 state=12
但是却不会跳到 stat=12 的选项?--> 在Form_Load()下
谢谢您回答
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 163.29.241.8
1F：推 Y78:在end的前一行加上: DoEvents() 试试看? 02/25 22:21
2F：推 fumizuki:form_load 不要加end statechanged判断12才要求end ? 02/25 22:24
3F：→ fumizuki:不确定可不可行 要试过才知道 02/25 22:24