当前位置：首页 -> 技术开发 -> 程序开发 -> 用VB制作文件下载程序

用VB制作文件下载程序

时间： 2021-07-31 作者：daque

连载vb喜好者乐土作家：艾军 --------------------------------------------------------------------------------　　载入文献是每个网友都常常做的事，大师普遍都是用少许专用软硬件如“搜集蚂蚁”来实行。然而，即使要本人编写一个步调，实行载入一个一定的文献（如载入关系的网页并表露出来）又该如何做呢？不要急，看了底下的引见你就会领会实行文献的载入本来是很大略的。　　在vb中有一个 winsock 控件，经过它不妨实行文献的载入。底下我开始引见一下该控件的重要属性、本领和事变：　　localpor属性：树立当地计划机运用的端口（普遍树立为0）；　　protocol属性：树立winsock控件运用的和议，tcp或udp（普遍树立为0）；　　remoteport属性：树立要贯穿的远端计划机端口（80为http21为ftp，25为smtp）；　　remotehost 属性：树立用来标识长途计划机的称呼（remoteport 属性即使为 80 则树立为“sohu．com”或“sina．com．cn”，即使为 25 则树立为“smtp．21cn．com”）；connect本领：诉求贯穿到长途计划机；　　close本领：封闭贯穿；　　senddata本领：将数据发送给长途计划机；　　getdata本领：获得暂时的数据块并将其保存在变体典型的变量中；　　connect事变：当一个connect操纵实行时爆发；　　close事变：当close操纵实行时爆发；　　dataarrival事变：接受数据时爆发；　　底下咱们就来实行文献的载入功效，并以次载搜狐网站的首页为例：option eｘplicitdim myall as stringprivate sub form＿load创造贯穿winsock1．protocol＝0winsock1．remotehost ＝ "sohu．com即使想载入"新浪"首页，则换为 sina．com．cnwinsock1．remoteport ＝ 80winsock1．connect 发端索取数据end subprivate sub winsock1＿connectdim strcommand as stringdim strwebpage as stringstrwebpage ＝ "http//www．oshu．com/" 指定网页，这边是指搜狐的首页strcommand ＝ "get " ＋ strwebpage ＋ " http/1．0" ＋ vbcrlfstrcommand ＝ strcommand ＋ "accept/" ＋ vbcrlfstrcommand ＝ strcommand ＋ "acceptteｘt/html" ＋ vbcrlfstrcommand ＝ strcommand ＋ vbcrlfwinsock1．senddata strcommand 发送吩咐end sub[rivate sub winsock1＿dataarrivalbyval bytestotal as long　　发端载入，收到数据时，爆发dataarrival事变on error resume neｘtdim webdata as stringwinsock1．getdata webdata vbstring myall ＝ myall ＋ webdata 博得关系的网页文献end subprivate sub winsock1＿close 当载入实行时爆发。　　本人设置关系的操纵　　myall 是载入的网页，你不妨把它表露在文本框中，也可把它生存为文献，也可经过少许自设置的因变量举行消息的索取，限于篇幅，这边就不引见了。　　winsock1．close 封闭 winsock　　end sub　　到此为止，断定你已领会怎样在vb中经过 winsock 控件载入文献了。本步调在 vb6．0、win９8 情况下运转平常，即使你再有什么题目，可到 www．d1vb．com来，咱们一道计划。

用VB制作文件下载程序

相关推荐

推荐下载

热门阅览

最新排行