用VBS可执行程序+Xmlhttp下载备份网上文件的代码

今天写程序时突然想到做一个文件的备份,把网站上的数据库备份到本地机上。一个简单的小程序,做成可执行的文件,用VBS最简单方便了。 'On Error Resume Next 
Dim iRemote,iLocal 
iRemote = InputBox("请输入远程文件路径:") 
Set xPost = CreateObject("Microsoft.XMLHTTP") 
xPost.Open "GET",iRemote,0 
xPost.Send() 
Set stream = CreateObject("ADODB.Stream") 
stream.Mode = 3 
stream.Type = 1 
stream.Open() 
stream.Write(xPost.responseBody) 
if (stream.size<10240) then 
    MsgBox("远程文件不存在!") 
else 
    SaveFile 
end if 
stream.close 
set stream = nothing

' 保存文件 
function SaveFile 
    iLocal = InputBox("请输入本机保存路径:") 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    returnValue = "0" 
    if (fso.FileExists(iLocal)) then 
        returnValue = MsgBox("'"&iLocal&"'文件已存在,真的要覆盖吗?",vbYesNoCancel,"确认框") 
    end if 
    set fso = nothing 
    if (returnValue = "6" or returnValue = "0") then '覆盖 
        stream.SaveToFile iLocal,2 
        MsgBox("文件备份成功!") 
    elseif (returnValue = "7") then 
        SaveFile 
    end if 
end function

时间: 2007-08-07

VB使用XMLHTTP实现Post与Get的方法

本文所述为visual basic6.0的一个模块方法,是使用XMLHTTP实现Post与Get功能,虽然是一个老代码,但是可以替代Inet控件,实现数据通讯.很值得学习借鉴一下. 主要模块代码如下: '========================================================== '| 模 块 名 | XMLHTTP '| 说 明 | 替代Inet控件,实现数据通讯 '============================================

VB6中的LSet语句和RSet语句详解

VB6中有几种长得很像的语句:Let.Set.LSet.RSet. Let用于一般变量的赋值: 复制代码 代码如下: [Let] varname = expression 大部分情况下我们都省略Let,直接用等号赋值,以致于不少人根本不知道Let的存在. Set用于对象的赋值,将变量指向对象并增加对象的引用计数,也有不少人不知道引用计数为何物. 那么LSet是干什么用的呢?咋一看好像是Let和Set的结合体,其实不然.LSet中的L是Left的缩写,与之对应的是RLet.你问我怎么知道L是Lef

VB调用Word拼写检查功能实例

众所周知,Word有自带的拼写检查功能.VB中想要实现调用 Word 拼写检查功能其实很简单就可以实现,方法是先建立word对象,然后把需要检查的字符串放到 WORD中,调用word拼写检查,再取出返回值,最后关闭对象. 各个步骤的具体实现代码如下所示: Function CheckSpell(IncorrectText as string) as string Dim Word As Object, retText$ On Error Resume Next '建立WORD对象并打开 Set

VB XMLHTTP使用方法

Private Function IsHearOK(URL As String) As Boolean Dim XMLObject As Object, ReturnType As String Set XMLObject = CreateObject("Microsoft.XMLHTTP") XMLObject.Open "GET", URL, False XMLObject.setRequestHeader "CONTENT-TYPE", &

VB中的RasEnumConnections函数返回632错误解决方法

今天用了一下RasEnumConnections函数,发现MSDN上的例子是错误的. MSDN上RasEnumConnections的文档是这么说的: 复制代码 代码如下: To determine the required buffer size, call RasEnumConnections with lprasconn set to NULL. The variable pointed to by lpcb should be set to zero. The function will

用ASP VBS xmlhttp adodbstream下载和保存图片的代码

函数: 复制代码 代码如下: function saveFile(data,recfilen)      set Astream=CreateObject("Adodb.Stream")'asp Server.CreateObject("Adodb.Stream")      fxt=mid(recfilen,InStrRev(recfilen,".")+1)      txt=false      if fxt="asp" 

VB6反编译软件VB RezQV2.4a 正式版注册码

VB6反编译软件VB RezQV2.4a 正式版 (下载该软件)软件说明:VB6反编译软件VB RezQV2.4a 正式版注册码:name: Ardith Freebairncode: 680F-69EA-7154-0CA3 发布者:Regkey.cn发布时间:2006-2-1 12:02:45发布IP:202.96.134.128

VB实现的倒计时类代码详解

本文所述为用VB制作倒计时程序用到的一个Module类代码,是基于控制台的倒计时程序,可供VB初学者或者VB爱好者参考学习,当然读者也可以将其拷贝代码到VB工程里面直接使用,不过需要自己创建相关的代码,对于初学者来说,也是很容易看懂的一段代码. 具体功能代码如下: Module Module1 Sub Main() Dim a As Date Dim h, m, s As Integer Dim n, i As Long Dim x, z As Long Dim y As Long Consol

VB读取线程、句柄及写入内存的API代码实例

本文所述实例为VB读取内存.线程及句柄的一个API,对涉及系统底层操作的VB编程有一定的帮助,需要的读者可以参考使用.这个API可获取到线程ID,写内存,包括进程句柄,ByVal 内存区地址,数据,总长度,已经完成长度,读取进程,包括进程句柄,ByVal 内存区地址,读取来的数据存放处,要读取的长度,已经读取的长度,内存分配(进程柄,地址[好像只要丢个0进去就行],长度,权限1[MEM_COMMIT],权限2[PAGE_READWRITE])返回:分配到的内存起始地址等功能. 具体实现代码如下:

Java读取txt文件和写入txt文件的简单实例

写Java程序时经常碰到要读如txt或写入txt文件的情况,但是由于要定义好多变量,经常记不住,每次都要查,特此整理一下,简单易用,方便好懂! package edu.thu.keyword.test; import java.io.File; import java.io.InputStreamReader; import java.io.BufferedReader; import java.io.BufferedWriter; import java.io.FileInputStream;

Ruby中用线程实现经典的生产者消费者问题代码实例

示例代码: 复制代码 代码如下: require "thread" puts "ProAndCon"    queue = Queue.new    #用队列Queue实现线程同步     producer = Thread.new do     10.times do |i|          sleep rand(i) # 让线程睡眠一段时间          queue << i          puts "#{i} produced&

PHP按行读取、处理较大CSV文件的代码实例

对于数百万条数据量的CSV文件,文件大小可能达到数百M,如果简单读取的话很可能出现超时或者卡死的现象. 为了成功将CSV文件里的数据导入数据库,分批处理是非常必要的. 下面这个函数是读取CSV文件中指定的某几行数据: 复制代码 代码如下: /** * csv_get_lines 读取CSV文件中的某几行数据 * @param $csvfile csv文件路径 * @param $lines 读取行数 * @param $offset 起始行数 * @return array * */functi

线程和进程的区别及Python代码实例

在程序猿的世界中,线程和进程是一个很重要的概念,很多人经常弄不清线程和进程到底是什么,有什么区别,本文试图来解释一下线程和进程.首先来看一下概念: 进程(英语:process),是计算机中已运行程序的实体.进程为曾经是分时系统的基本运作单位.在面向进程设计的系统(如早期的UNIX,Linux 2.4及更早的版本)中,进程是程序的基本执行实体:在面向线程设计的系统(如当代多数操作系统.Linux 2.6及更新的版本)中,进程本身不是基本运行单位,而是线程的容器.程序本身只是指令.数据及其组织形式的

c++实现逐行读取配置文件写入内存的示例

不解析配置内容,只读取文件内容,剪去注释和首尾空格后写入缓存: vector<string> 中.供其他方法使用.代码是在做一个MFC小工具时写的. ReadProtocol.h 复制代码 代码如下: /*** 从文件中 读取 protocol 的内容 写入缓存* 供外部方法使用* Alex Liu, 2014*/ #pragma once #include <vector>#include <map>#include <list>#include <

php从memcache读取数据再批量写入mysql的方法

本文实例讲述了php从memcache读取数据再批量写入mysql的方法.分享给大家供大家参考.具体分析如下: 用 Memcache 可以缓解 php和数据库压力下面代码是解决高负载下数据库写入瓶颈问题,遇到最实用的:写入ip pv uv的时候,用户达到每分钟几万访问量,要记录这些数据,实时写入数据库必定奔溃. 用以下技术就能解决,还有如用户注册,同一时间断内,大量用户注册,可以缓存后一次性写入到数据库,代码如下: 复制代码 代码如下: public function cldata(){ $me

C#逐行分元素读取记事本数据并写入数据库的方法

本文实例讲述了C#逐行分元素读取记事本数据并写入数据库的方法.分享给大家供大家参考.具体分析如下: 其实这里最关键的一个方法是 StreamReader类里的 ReadLine();这个方法可以逐行读取txt流里面的数据.写了个简单的demo,已经加上了详细的注释说明. ok,好了,不废话,下面直接上代码 复制代码 代码如下: public void InputData()  {      DataTable dt = new DataTable();      string strFilePa

java读取文件和写入文件的方式(简单实例)

Java代码 public class ReadFromFile { /** * 以字节为单位读取文件,常用于读二进制文件,如图片.声音.影像等文件. */ public static void readFileByBytes(String fileName) { File file = new File(fileName); InputStream in = null; try { System.out.println("以字节为单位读取文件内容,一次读一个字节:"); // 一次读

C#通过XML节点属性/属性值读取写入XML操作代码实例

1.XML的内容如下: 复制代码 代码如下: <?xml version="1.0" encoding="utf-8" ?><root>  <title>    <settings id = "0" name = "显示文字">欢迎您!智慧服务,互动体验......</settings>    <settings id = "1" name