论坛: 编程破解 标题: FTP的问题!! 复制本贴地址    
作者: bcliangzi [bcliangzi]    论坛用户   登录
请问在程序
__________________________________________________
Private  Sub  Inet1_StateChanged(ByVal  State  As  Integer) 
　　’  Retrieve  server  response  using  the  GetChunk 
　　’  method  when  State  =  12.  This  example  assumes  the 
　　’  data  is  text. 
　　Select  Case  State 
　　’  ...  Other  cases  not  shown. 
　　Case  icResponseReceived  ’  12 
　　Dim  vtData  As  Variant  ’  Data  variable. 
　　Dim  strData  As  String:  strData  =  "" 
　　Dim  bDone  As  Boolean:  bDone  =  False 
　　’  Get  first  chunk. 
　　vtData  =  Inet1.GetChunk(1024,  icString) 
　　Do  While  Not  bDone 
　　strData  =  Data  &  vtData 
　　’  Get  next  chunk. 
　　vtData  =  Inet1.GetChunk(1024,  icString) 
　　If  Len(vtData)  =  0  Then 
　　　  bDone  =  True 
　　End  If 
　　Loop 
　　txtData.Text  =  strData 
　　End  Select 
　　End  Sub 
__________________________________________________
中,　Dim  vtData  As  Variant  ’  Data  variable. 
　　Dim  strData  As  String:  strData  =  "" 
　　Dim  bDone  As  Boolean:  bDone  =  False 
是干什么用的?几个变量代表什么?

地主 发表时间: 11/02 03:55
回复: andy701 [andy701]   论坛用户   登录
看来很复杂的样子  ：（

B1层 发表时间: 11/02 13:30
回复: bcliangzi [bcliangzi]   论坛用户   登录
无人问津呀？





































B2层 发表时间: 04-02-17 16:45
回复: blegding [blegding]   论坛用户   登录
vb我好久都没碰了！！~。~

B3层 发表时间: 04-02-18 15:10

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号