📄 2880.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

💻 HTML

字号:

<html>
  <head>
    <title>如何用vb6撰写一支FTP-Client的程式?!</title>
  </head>
  <BODY BACKGROUND="" BGCOLOR="white" TEXT="black" LINK="red" VLINK="#808080" ALINK="">
    <center>
      <h1>如何用vb6撰写一支FTP-Client的程式?!</h1>
    </center>

<HR><p>
Posted by <a href="mailto:rustic@cclw400.ccl.itri.org.tw">Rustic</a> on May 19, 1998 at 01:36:09:<p>
我尝试用MS Internet Transfer 控制项 来写一支可即时得知接收状况的FTP-Client  可是似乎无法得知接收的状况(只能于传完后触发)!!<br>请问该怎么完成这个动作呢?! 还是有更好的办法?!<p>下面是我的程式...<br>Private Sub command1_Click()<br>              Inet1.Execute "ftp://company.com.tw GET Readme.txt c:\readme.txt"<br>End Sub<p>在说明档中提到只要用 GET 方法便可在StateChange事件中来拦截...<br>Private Sub Inet1_StateChanged(ByVal State As Integer)<br>    Select Case State<br>           :<br>           :<br>        Case 12 'icResponseCompleted<br>                '取得第一区块。<br>                vtData = Inet1.GetChunk(1024, 1)<br>                <br>                Do While Not bDone<br>                    strData = strData & vtData<br>                    '取得下一区块。<br>                    vtData = Inet1.GetChunk(1024, 1)<br>                    If Len(vtData) = 0 Then<br>                        bDone = True<br>                    End If<br>                    SizeCount = SizeCount + 1024<br>                Loop<br>                <br>            End Select<br>End Sub<br>
<br>
<p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 2880-->
<!--top: 2896--><li><a href="2896.html"><b>改用 WinSock 控制项</b></a> 小吴 <i>17:44:46 5/19/98</i>
(<!--responses: 2896-->0)
<ul><!--insert: 2896-->
</ul><!--end: 2896-->
</ul><!--end: 2880-->
<br><HR><p>

</body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -