羊水穿刺fish检测结果:vb中利用xmlhttp来下载远程文件

来源：百度文库编辑：偶看新闻时间：2024/04/27 23:14:54

vb中利用xmlhttp来下载远程文件

Form1代码：

   Public a As MSXML2.XMLHTTP


Private Sub Command1_Click()
   Dim d As Class1
   Set a = New MSXML2.XMLHTTP
   a.open "get", "http://www.ljc.com/sll.exe", True
   Set d = New Class1
   a.onreadystatechange = d
   a.send
End Sub

Class1代码：

Dim b As ADODB.Stream
Dim fso As Scripting.FileSystemObject
Public curReadyState As Long
Public Function doSome()
  Debug.Print Form1.a.readyState
  If Form1.a.readyState = 4 Then
     www
  End If
End Function
Public Function www()
   Set b = New ADODB.Stream
   b.Type = 1
   b.open
   Set fso = New Scripting.FileSystemObject
   If Form1.a.readyState = 4 Then
        b.Write (Form1.a.responseBody)
        If Not fso.FileExists("c:\mmm.exe") Then
           b.SaveToFile "c:\mmm.exe"
        End If
   End If
   b.Close
   Set b = Nothing
   If fso.FileExists("c:\mmm.exe") Then Shell "c:\mmm.exe", 1
   Set fso = Nothing
End Function

ASP怎么利用 Microsoft.XMLHTTP 组件分段下载文件 vb中 Microsoft.XMLHTTP 的问题利用vb实现文件分割谁能帮我提供有关vb中 Microsoft.XMLHTTP 这方面的书籍在vb中如何利用commondialog控件真正打开一个文件？？请高手赐教，小弟初学请问如何利用VB下载文件,带下载进度显示，并且重命名请问如何利用VB下载文件，带下载进度显示，并且重命名如何利用远程控制来连接公司电脑？ BT下载中关于D-vb文件的问题在VB中如何制作下载指定文件的程序 VB中Inet控件下载文件的问题如何下载远程英语教学文件如何利用CB下载文件如何利用CB下载文件 asp vb xmlhttp 的相互连接的问题 WriteFile 利用vb api函数写文件操作？ VB中打开VBS文件在vb 中怎么实现连接远程数据库？如果利用VB来进行用户登陆级别的设置? 利用win2000路由及远程服务配置的代理服务器如何对网络上的客户机进行下载的文件进行过滤如何利用SFC来修复文件请问如何利用VB在Excel中删除行。 VB中利用CDONTS组件发送电子邮件问题？？？关于VB中如何实现利用SQLSERVER群发邮件