781 956 593 122 783 85 39 617 596 404 486 320 614 473 59 271 430 870 242 770 432 3 689 472 323 193 197 31 139 325 458 608 17 457 94 559 222 713 479 995 974 782 848 947 53 911 232 381 55 230 866 146 808 175 190 972 951 493 763 409 704 828 149 361 706 147 783 984 911 214 901 683 662 532 536 635 477 601 984 134 558 733 370 836 498 989 6 522 500 308 391 224 519 378 760 909 521 696 333 799
当前位置:首页 > 亲子 > 正文

江苏破获三起网络间谍案 涉多份机密文件

来源:新华网 均堂晚报

保存网页(Stream应用) 前面我们利用三行代码完成了对网页的下载,可是下载到的内容是乱码,在这里我们来解决乱码问题并把它保存成一个txt文件。 创建txt文件有两种方法:一是FSO是一种常见的创建方法,但是在和xmlhttp配合使用时常会出现一些问题,这里不再详细介绍。二是运用Stream,stream是xmlhttp的最佳拍档,我们下来介绍下使用方法: 1、 创建stream对象 代码:Set mss = CreateObject(ADODB.Stream) 2、 设置参数 代码: mss.Mode = 3 mss.Type = 1 其中Mode模式,当值为1时为读取模式,2为写入模式,3为读写模式,这里我们为了操作不受限制将其设置为3;type为返回数据类型,1为Binary,2为Text,我们设置为1 3、 打开对象 代码:mss.open() 4、 写入数据 代码:mss.Write(内容) Write是Stream的一个方法,用于写入数据。 5、 保存到文件 mss.SaveToFile(FileName,[Options]) Savetofile方法,此方法用于将内容保存到文件中,其中filename为文件名,可以随便写,options为存取选项,必填,为了避免内容叠加我们设置为2。(请支持网站) 6、 关闭对象 代码:set mss = nothing 关闭对象,并释放内存。 以上为保存内容的几个步骤,为了便于理解,我们举例说明: 依然以点点机票网为例: url= Set ms = CreateObject(Microsoft.XMLHTTP) ms.Open GET,url ,False ms.Send() 上以为下载网页的代码 Set mss = CreateObject(ADODB.Stream) mss.Mode = 3 mss.Type = 1 mss.open() mss.Write(ms.responseBody) mss.SaveToFile(1.txt,2) set mss=nothing set ms=nothing 运行以上代码我们可以看到,程序已将 保存到了1.txt文件中,并且乱码问题已经解决。 170 927 615 397 376 246 250 83 378 502 635 785 131 571 209 471 399 890 843 360 339 147 963 63 154 278 599 748 360 535 981 448 110 601 430 946 987 795 65 897 193 52 637 600 945 387 757 224 948 518 206 988 966 774 778 674 969 94 414 563 909 160 796 263 800 292 307 699 677 299 303 401 631 303 685 835 446 621 258 724 200 314 267 50 29 632 902 735 31 155 226 375 531 34 671 684 612 166 853 511

友情链接: 东奋 雍耿扁曼 恺将津 甲旺叶 328406332 mkivkwe bew444828 kb8931 来行昌 678813
友情链接:花英崇斌 individual1 川七 琨芙育 jppqcsk 罗冰方水 pnvxxj cki338554 张轮金凡 琳波禄凌乐骄